Changeset 265 for trunk/UCore.pas

Timestamp:

Jan 15, 2019, 1:03:40 AM (6 years ago)

Author:

chronos

Message:

• Modified: Cell power is now internally represented as unit power (TUnit class).
• Modified: Allow to have only one player in the game.
• Added: New win objective None to just play freely without any win objective.
• Added: New win objective to capture entire map.
• Added: TGameSystem class to represent various game play systems of other existing games.
• Fixed: Clear correctly defender player from unit moves if his cell is captured.
• Fixed: Do not allow to remove too many players to have at least minimum players.

File:

• trunk/UCore.pas (modified) (7 diffs)

trunk/UCore.pas

@@ -9 +9 @@
   UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator,
   URegistry, ULastOpenedList, UTheme, Registry, Menus, UFormClient, UPlayer,
-  UGameServer, UGameClient, fgl, UServerList;
+  UGameServer, UGameClient, fgl, UServerList, UGameSystem, UUnit;
 
 type
@@ -87 +87 @@
     procedure UpdateOtherForms;
     procedure FormClientActions;
+    procedure InitGameSystems;
   public
     Game: TGame;
@@ -99 +100 @@
     LocalClients: TClients;
     ServerList: TServerList;
+    GameSystems: TGameSystems;
     procedure ReopenGameOnInit;
     procedure LoadConfig;
@@ -445 +447 @@
 procedure TCore.DataModuleCreate(Sender: TObject);
 begin
+  GameSystems := TGameSystems.Create;
+  InitGameSystems;
   Server := TServer.Create;
   LocalClients := TClients.Create;
   GameSettings := TGame.Create;
+  GameSettings.GameSystem := GameSystems.First;
   Game := TGame.Create;
   Game.OnMoveUpdated := DoMoveUpdated;
@@ -453 +458 @@
   Game.OnNewTurn := GameNewTurnExecute;
   Game.OnPlayerChange := DoPlayerChange;
+  Game.GameSystem := GameSystems.First;
   Server.Game := Game;
   LocalClients.Game := Game;
@@ -481 +487 @@
   FreeAndNil(Game);
   FreeAndNil(GameSettings);
+  FreeAndNil(GameSystems);
 end;
 
@@ -486 +493 @@
 begin
   LastOpenedList1.LoadToMenuItem(FormMain.MenuItemLoadRecent, LoadRecentExecute);
+end;
+
+procedure TCore.InitGameSystems;
+begin
+  with GameSystems.AddNew('HexWars') do begin
+    MaxPlayerCount := 3;
+    with UnitKinds.AddNew('Unit') do begin
+      Moves := 1;
+      Stack := 99;
+    end;
+  end;
+
+  with GameSystems.AddNew('Civilization') do begin
+    MaxPlayerCount := 3;
+    with UnitKinds.AddNew('Scout') do begin
+      Moves := 1;
+      Stack := 1;
+    end;
+    with UnitKinds.AddNew('Settler') do begin
+      Moves := 1;
+      Stack := 1;
+    end;
+  end;
+
+  with GameSystems.AddNew('Dune 2') do begin
+    MaxPlayerCount := 3;
+    with UnitKinds.AddNew('Light Infantry') do begin
+      Moves := 1;
+    end;
+    with UnitKinds.AddNew('Heavy Troopers') do begin
+      Moves := 1;
+    end;
+    with UnitKinds.AddNew('Trike') do begin
+      Moves := 1;
+    end;
+    with UnitKinds.AddNew('Quad') do begin
+      Moves := 1;
+    end;
+  end;
+
+  with GameSystems.AddNew('Battle Isle 2') do begin
+    MaxPlayerCount := 8;
+    with UnitKinds.AddNew('Demon 132') do begin
+      Moves := 4;
+      Stack := 10;
+    end;
+    with UnitKinds.AddNew('Troll 142') do begin
+      Moves := 3;
+      Stack := 10;
+    end;
+    with UnitKinds.AddNew('Ranger 132') do begin
+      Moves := 10;
+      Stack := 10;
+    end;
+    with UnitKinds.AddNew('Buggy') do begin
+      Moves := 10;
+      Stack := 10;
+    end;
+  end;
 end;