Changeset 89 for trunk

Timestamp:

Nov 16, 2014, 2:43:04 PM (10 years ago)

Author:

chronos

Message:

• Added: Holding SHIFT key during click to attack maximum available power is moved without dialog confirmation.
• Fixed: Also store to file state if game is in Running mode.

File:

• trunk/UGame.pas (modified) (3 diffs)

trunk/UGame.pas

@@ -2013 +2013 @@
   if Assigned(NewSelectedCell) then begin
     if Assigned(SelectedCell) and Game.Map.IsCellsNeighbor(NewSelectedCell, SelectedCell) then begin
+      if ssShift in ShiftState then begin
+        // Make maximum unit move without confirmation dialog
+        Game.SetMove(SelectedCell, NewSelectedCell, SelectedCell.Power, False);
+        SelectedCell := nil;
+      end else
       if ssCtrl in ShiftState then begin
         // If CTRL key pressed then storno all moved from selected cell and
@@ -2456 +2461 @@
         TPlayer(Players[I]).PlayerMap.CheckVisibility;
       end;
+      Running := ReadBoolean(RootNode, 'Running', True);
     end;
   finally
@@ -2487 +2493 @@
       WriteInteger(RootNode, 'WinObjective', Integer(WinObjective));
       WriteInteger(RootNode, 'StayAliveForDefinedTurns', StayAliveForDefinedTurns);
+      WriteBoolean(RootNode, 'Running', Running);
 
       NewNode := OwnerDocument.CreateElement('Map');