catman/heutekeinkoenig
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
xxsoca 2023-06-04 19:24:58 +02:00
parent 7c63b3c2e9
commit b26d5d7dfa
2 changed files with 12 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
daten.pl
View File

@ -1,9 +1,9 @@
:- use_module(library(pce)). :- use_module(library(pce)).
% Später für die Ausgabe des Types vom Terrain an den Nutzer % Später für die Ausgabe des Types vom Terrain an den Nutzer
feldType(grass, 1). feldType(grass, 1, green).
feldType(mountain, 2). feldType(mountain, 2, grey).
feldType(water, 3). feldType(water, 3, blue).
% einheit(type, attack, defense, action multiplier, upkeep) % einheit(type, attack, defense, action multiplier, upkeep)
% der multiplier ist der angewandte faktor für boni/mali % der multiplier ist der angewandte faktor für boni/mali

25
gui.pl
View File

@ -6,25 +6,14 @@
window(Name) :- window(Name) :-
new(D, dialog(Name)), new(D, dialog(Name)),
send(D, append, button(init, message(@prolog, init_feld1))), send(D, append, button(init, message(@prolog, init_feld1))),
send(D, append, button(show, message(@prolog, window3, 'Spielfeld'))), send(D, append, button(show3, message(@prolog, window3, 'Spielfeld'))),
send(D, append, button(newbutton, message(@prolog, new_butt, D))), send(D, append, button(show2, message(@prolog, window2, 'Spielfeld'))),
send(D, open). send(D, open).
window2(Name) :-
new(D, dialog(Name)),
feld(0,0,X0),
send(D, append(new(T1,text(X0)))),
feld(0,1,X1),
send(new(_T2,text(X1)), right(T1)),
send(D, open).
window3(Name) :- window3(Name) :-
new(P, auto_sized_picture(Name)), new(P, dialog(Name)),
send(P, display, new(T, tabular)), new(T, tabular),
%send(P, display, new(T, tabular)),
send(T, border, 1), send(T, border, 1),
send(T, cell_spacing, -1), send(T, cell_spacing, -1),
send(T, rules, all), send(T, rules, all),
@ -111,4 +100,8 @@ window3(Name) :-
]), ]),
%T?for_all(message(@arg1?contents, equal, '1'), message(@arg1, background, red)), % Zelle 1: Rote Hintergrundfarbe
% T?for_all(message(@arg1?contents, equal, '2'), message(@arg1, background, green)), % Zelle 2: Grüne Hintergrundfarbe
send(P, append, T),
send(P, open). send(P, open).