Changeset 281 for trunk/UCore.pas

Timestamp:

Feb 21, 2019, 10:45:41 PM (6 years ago)

Author:

chronos

Message:

• Added: New map type hexagonal horizontal.
• Added: Limit allowed map type according selected game system.

File:

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

trunk/UCore.pas

@@ -125 +125 @@
 uses
   UFormMain, UFormNew, UFormSettings, UFormAbout, UClientAI, UFormKeyShortcuts,
-  UFormHelp, UFormCharts, UFormUnitMoves, UFormPlayersStats, UClientGUI;
+  UFormHelp, UFormCharts, UFormUnitMoves, UFormPlayersStats, UClientGUI, UMapType;
 
 const
@@ -514 +514 @@
 procedure TCore.InitGameSystems;
 begin
-  with GameSystems.AddNew('HexWars') do begin
+  with GameSystems.AddNew('Custom') do begin
+    PreferedMapType := mtNone;
     MaxPlayerCount := 3;
     with UnitKinds.AddNew('Unit') do begin
@@ -522 +523 @@
   end;
 
-  with GameSystems.AddNew('Civilization') do begin
+  with GameSystems.AddNew('HexWars') do begin
+    PreferedMapType := mtHexagonVertical;
+    MaxPlayerCount := 3;
+    with UnitKinds.AddNew('Unit') do begin
+      Moves := 1;
+      Power := 99;
+    end;
+  end;
+
+  with GameSystems.AddNew('Civilization I') do begin
+    PreferedMapType := mtSquare;
     MaxPlayerCount := 3;
     with UnitKinds.AddNew('Scout') do begin
@@ -534 +545 @@
   end;
 
+  with GameSystems.AddNew('Civilization II') do begin
+    PreferedMapType := mtIsometric;
+    MaxPlayerCount := 3;
+    with UnitKinds.AddNew('Scout') do begin
+      Moves := 1;
+      Power := 1;
+    end;
+    with UnitKinds.AddNew('Settler') do begin
+      Moves := 1;
+      Power := 1;
+    end;
+  end;
+
+  with GameSystems.AddNew('Civilization III') do begin
+    PreferedMapType := mtIsometric;
+    MaxPlayerCount := 3;
+    with UnitKinds.AddNew('Scout') do begin
+      Moves := 1;
+      Power := 1;
+    end;
+    with UnitKinds.AddNew('Settler') do begin
+      Moves := 1;
+      Power := 1;
+    end;
+  end;
+
+  with GameSystems.AddNew('Civilization IV') do begin
+    PreferedMapType := mtIsometric;
+    MaxPlayerCount := 3;
+    with UnitKinds.AddNew('Scout') do begin
+      Moves := 1;
+      Power := 1;
+    end;
+    with UnitKinds.AddNew('Settler') do begin
+      Moves := 1;
+      Power := 1;
+    end;
+  end;
+
+  with GameSystems.AddNew('Civilization V') do begin
+    PreferedMapType := mtHexagonHorizontal;
+    MaxPlayerCount := 3;
+    with UnitKinds.AddNew('Scout') do begin
+      Moves := 1;
+      Power := 1;
+    end;
+    with UnitKinds.AddNew('Settler') do begin
+      Moves := 1;
+      Power := 1;
+    end;
+  end;
+
+  with GameSystems.AddNew('Civilization VI') do begin
+    PreferedMapType := mtHexagonHorizontal;
+    MaxPlayerCount := 3;
+    with UnitKinds.AddNew('Scout') do begin
+      Moves := 1;
+      Power := 1;
+    end;
+    with UnitKinds.AddNew('Settler') do begin
+      Moves := 1;
+      Power := 1;
+    end;
+  end;
+
   with GameSystems.AddNew('Dune 2') do begin
+    PreferedMapType := mtSquare;
     MaxPlayerCount := 3;
     with UnitKinds.AddNew('Light Infantry') do begin
@@ -551 +628 @@
 
   with GameSystems.AddNew('Battle Isle 2') do begin
+    PreferedMapType := mtHexagonHorizontal;
     MaxPlayerCount := 8;
     with UnitKinds.AddNew('Demon 132') do begin
@@ -567 +645 @@
       Moves := 10;
       Power := 10;
+    end;
+  end;
+
+  with GameSystems.AddNew('Panzer General') do begin
+    PreferedMapType := mtHexagonHorizontal;
+    MaxPlayerCount := 2;
+    with UnitKinds.AddNew('Rifle Team') do begin
+      Moves := 1;
+    end;
+    with UnitKinds.AddNew('Machine Gun') do begin
+      Moves := 1;
+    end;
+    with UnitKinds.AddNew('Heavy Infantry') do begin
+      Moves := 1;
+    end;
+    with UnitKinds.AddNew('Granadiers') do begin
+      Moves := 1;
     end;
   end;