Changeset 18 for trunk/UFormMain.pas

Timestamp:

Feb 26, 2014, 9:45:23 PM (11 years ago)

Author:

chronos

Message:

• Add: Player start units setting.
• Add: Allow add and remove players in new game dialog.
• Fixed: Do not allow move from to same cell.

File:

• trunk/UFormMain.pas (modified) (1 diff)

trunk/UFormMain.pas

@@ -200 +200 @@
 begin
   if (Abs(StartMousePoint.X - X) < 5) and (Abs(StartMousePoint.Y - Y) < 5) then begin
-    if Game.CurrentPlayer.Mode = pmHuman then begin
+    if Game.Running and (Game.CurrentPlayer.Mode = pmHuman) then begin
       Game.CurrentPlayer.SelectCell(Point(X, Y));
       Redraw;