Changeset 9 for trunk/UFormMain.pas

Timestamp:

Feb 12, 2014, 10:58:00 PM (11 years ago)

Author:

chronos

Message:

• Added: Neighbors of selected cell can be selected as attack target.
• Added: End of turn cause player switch.

File:

• trunk/UFormMain.pas (modified) (4 diffs)

trunk/UFormMain.pas

@@ -34 +34 @@
     Timer1: TTimer;
     procedure AExitExecute(Sender: TObject);
+    procedure AGameEndTurnExecute(Sender: TObject);
     procedure AGameNewExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -92 +93 @@
     RedrawPending := False;
     PaintBox1.Repaint;
+    Caption := Game.CurrentPlayer.Name + ' - xTactics';
   end;
 end;
@@ -108 +110 @@
 begin
   Application.Terminate;
+end;
+
+procedure TFormMain.AGameEndTurnExecute(Sender: TObject);
+begin
+  Game.NextTurn;
+  Redraw;
 end;
 
@@ -128 +136 @@
 begin
   Game.New;
+  Redraw;
 end;