diff --git a/gui.pl b/gui.pl index b798f3c..4cd49c1 100644 --- a/gui.pl +++ b/gui.pl @@ -7,34 +7,34 @@ window :- new(D, dialog("Game")), openingscreen(D), - send(D, append, button('spielfeld', message(@prolog, spielfeld, 'Spielfeld'))), + show_image(D), send(D, append, button('Start Game', message(@prolog, choose_units))), send(D, append, button(reset, message(@prolog, reset_game))), + new(Label1, label(name,'')), + new(Label2, label(name,'a game by king cat and sir swi-ear-a-prolot')), + send(D, append, Label1), + send(D, append, Label2), send(D, open). openingscreen(D) :- - new(Label, label(name, ' - __ __ __ __ -/\ \/\ \ /\ \__ /\ \ __ -\ \ \_\ \ __ __ __\ \ ,_\ __ \ \ \/'\ __ /\_\ ___ - \ \ _ \ /'__`\/\ \/\ \\ \ \/ /'__`\ \ \ , < /'__`\/\ \ /' _ `\ - \ \ \ \ \/\ __/\ \ \_\ \\ \ \_/\ __/ \ \ \\`\ /\ __/\ \ \/\ \/\ \ - \ \_\ \_\ \____\\ \____/ \ \__\ \____\ \ \_\ \_\ \____\\ \_\ \_\ \_\ - \/_/\/_/\/____/ \/___/ \/__/\/____/ \/_/\/_/\/____/ \/_/\/_/\/_/ - - - __ __ -/\ \/\ \ __ -\ \ \/'/' ___ __ ___ /\_\ __ - \ \ , < / __`\ /'__`\/' _ `\/\ \ /'_ `\ - \ \ \\`\ /\ \L\ \/\ __//\ \/\ \ \ \/\ \L\ \ - \ \_\ \_\ \____/\ \____\ \_\ \_\ \_\ \____ \ - \/_/\/_/\/___/ \/____/\/_/\/_/\/_/\/___L\ \ - /\____/ - \_/__/ + new(Label1, label(name,'Herzlich Willkommen zu:')), + new(Label2, label(name,'Heute kein Koenig - the Game')), + new(Label3, label(name,'oder auch: Battle for Westnoth - only with guns.')), + new(Label4, label(name,'Enjoy and remember: all your bases are belong to us')), + new(Label5, label(name,'')), + send(D, append, Label1), + send(D, append, Label2), + send(D, append, Label3), + send(D, append, Label4), + send(D, append, Label5). - ')), - send(D, append, Label). +show_image(D) :- + new(I, image('i-need-you-cats.gif')), + new(B, bitmap(I)), + new(D2, dialog('')), + %send(D2, append, B), + send(D2, display, B), + send(D2, right, D). process_choose_units(D, P1U1, P1U2, P1U3, P2U1, P2U2, P2U3) :- get(P1U1, selection, Text1U1), @@ -45,7 +45,8 @@ process_choose_units(D, P1U1, P1U2, P1U3, P2U1, P2U2, P2U3) :- get(P2U3, selection, Text2U3), init_player1(Text1U1, Text1U2, Text1U3), init_player2(Text2U1, Text2U2, Text2U3), - send(D, destroy). + send(D, destroy), + spielfeld('Spielfeld'). choose_units :- new(D, dialog('Waehle Einheiten')), diff --git a/i-need-you-cats.gif b/i-need-you-cats.gif new file mode 100644 index 0000000..f1e52a7 Binary files /dev/null and b/i-need-you-cats.gif differ