Changeset 274 for trunk/UGame.pas

Timestamp:

Feb 3, 2019, 8:32:20 PM (6 years ago)

Author:

chronos

Message:

• Added: Keep information about available unit moves during turn.
• Added: Allow to move units instantly during turn.
• Added: Game system parameter to play without possibility to merge/split units.

File:

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

trunk/UGame.pas

@@ -349 +349 @@
         StartCell.OneUnit.Power := Player.StartUnits;
         StartCell.OneUnit.Kind := GameSystem.UnitKinds[0];
+        StartCell.OneUnit.Player := Player;
       end;
     end;
+    InitUnitMoves;
     PlayerMap.CheckVisibility;
     Inc(I);
@@ -524 +526 @@
     SetValue(DOMString(Path + '/MaxPower'), MaxPower);
     Players.SaveConfig(Config, Path + '/Players');
+    GameSystem.SaveConfig(Config, Path + '/GameSystem');
   end;
 end;
@@ -562 +565 @@
     MaxPower := GetValue(DOMString(Path + '/MaxPower'), 99);
     Players.LoadConfig(Config, Path + '/Players');
+    GameSystem.LoadConfig(Config, Path + '/GameSystem');
   end;
 end;
@@ -771 +775 @@
   CurrentPlayer.ReduceMovesPower;
   CurrentPlayer.RemoveInvalidMoves;
+  CurrentPlayer.InitUnitMoves;
   if Assigned(FOnChange) then
     FOnChange(Self);