Changeset 282 for trunk/UCore.pas

Timestamp:

Mar 10, 2019, 4:48:41 PM (6 years ago)

Author:

chronos

Message:

• Modified: Allow to set nation in player settings.

File:

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

trunk/UCore.pas

@@ -9 +9 @@
   UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator,
   URegistry, ULastOpenedList, UTheme, Registry, Menus, UFormClient, UPlayer,
-  UGameServer, UGameClient, fgl, UServerList, UGameSystem, UUnit;
+  UGameServer, UGameClient, fgl, UServerList, UGameSystem, UUnit, Graphics;
 
 type
@@ -118 +118 @@
   Core: TCore;
 
+const
+  clOrange = $009Aff;
+  clBrown = $a52A2A;
+
 
 implementation
@@ -517 +521 @@
     PreferedMapType := mtNone;
     MaxPlayerCount := 3;
+    with Nations.AddNew('Nation 1') do begin
+      Color := clBlue;
+    end;
+    with Nations.AddNew('Nation 2') do begin
+      Color := clRed;
+    end;
+    with Nations.AddNew('Nation 3') do begin
+      Color := clGreen;
+    end;
+    with Nations.AddNew('Nation 4') do begin
+      Color := clOrange;
+    end;
+    with Nations.AddNew('Nation 5') do begin
+      Color := clPurple;
+    end;
+    with Nations.AddNew('Nation 6') do begin
+      Color := clMaroon;
+    end;
+    with Nations.AddNew('Nation 7') do begin
+      Color := clAqua;
+    end;
+    with Nations.AddNew('Nation 8') do begin
+      Color := clFuchsia;
+    end;
     with UnitKinds.AddNew('Unit') do begin
       Moves := 1;
@@ -525 +553 @@
   with GameSystems.AddNew('HexWars') do begin
     PreferedMapType := mtHexagonVertical;
-    MaxPlayerCount := 3;
+    UnitsMoveImmediately := False;
+    MaxPlayerCount := 8;
+    with Nations.AddNew('Nation 1') do begin
+      Color := clBlue;
+    end;
+    with Nations.AddNew('Nation 2') do begin
+      Color := clRed;
+    end;
+    with Nations.AddNew('Nation 3') do begin
+      Color := clGreen;
+    end;
+    with Nations.AddNew('Nation 4') do begin
+      Color := clOrange;
+    end;
+    with Nations.AddNew('Nation 5') do begin
+      Color := clPurple;
+    end;
+    with Nations.AddNew('Nation 6') do begin
+      Color := clMaroon;
+    end;
+    with Nations.AddNew('Nation 7') do begin
+      Color := clAqua;
+    end;
+    with Nations.AddNew('Nation 8') do begin
+      Color := clFuchsia;
+    end;
     with UnitKinds.AddNew('Unit') do begin
       Moves := 1;
@@ -534 +587 @@
   with GameSystems.AddNew('Civilization I') do begin
     PreferedMapType := mtSquare;
+    UnitsMoveImmediately := True;
+    MaxPlayerCount := 3;
+    with Nations.AddNew('Americans') do begin
+      Color := clFuchsia;
+    end;
+    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 II') do begin
+    PreferedMapType := mtIsometric;
+    UnitsMoveImmediately := True;
     MaxPlayerCount := 3;
     with UnitKinds.AddNew('Scout') do begin
@@ -545 +616 @@
   end;
 
-  with GameSystems.AddNew('Civilization II') do begin
+  with GameSystems.AddNew('Civilization III') do begin
     PreferedMapType := mtIsometric;
+    UnitsMoveImmediately := True;
     MaxPlayerCount := 3;
     with UnitKinds.AddNew('Scout') do begin
@@ -558 +630 @@
   end;
 
-  with GameSystems.AddNew('Civilization III') do begin
+  with GameSystems.AddNew('Civilization IV') do begin
     PreferedMapType := mtIsometric;
+    UnitsMoveImmediately := True;
     MaxPlayerCount := 3;
     with UnitKinds.AddNew('Scout') do begin
@@ -571 +644 @@
   end;
 
-  with GameSystems.AddNew('Civilization IV') do begin
-    PreferedMapType := mtIsometric;
+  with GameSystems.AddNew('Civilization V') do begin
+    PreferedMapType := mtHexagonHorizontal;
+    UnitsMoveImmediately := True;
     MaxPlayerCount := 3;
     with UnitKinds.AddNew('Scout') do begin
@@ -584 +658 @@
   end;
 
-  with GameSystems.AddNew('Civilization V') do begin
+  with GameSystems.AddNew('Civilization VI') do begin
     PreferedMapType := mtHexagonHorizontal;
+    UnitsMoveImmediately := True;
     MaxPlayerCount := 3;
     with UnitKinds.AddNew('Scout') do begin
@@ -597 +672 @@
   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;
+    UnitsMoveImmediately := True;
     MaxPlayerCount := 3;
+    with Nations.AddNew('Attreides') do begin
+      Color := clBlue;
+    end;
+    with Nations.AddNew('Harkonen') do begin
+      Color := clRed;
+    end;
+    with Nations.AddNew('Ordos') do begin
+      Color := clGreen;
+    end;
+    with Nations.AddNew('Fremens') do begin
+      Color := clBrown;
+    end;
+    with Nations.AddNew('Sardaukers') do begin
+      Color := clPurple;
+    end;
+    with Nations.AddNew('Merceneries') do begin
+      Color := clOrange;
+    end;
     with UnitKinds.AddNew('Light Infantry') do begin
       Moves := 1;
@@ -629 +710 @@
   with GameSystems.AddNew('Battle Isle 2') do begin
     PreferedMapType := mtHexagonHorizontal;
+    UnitsMoveImmediately := True;
     MaxPlayerCount := 8;
     with UnitKinds.AddNew('Demon 132') do begin
@@ -650 +732 @@
   with GameSystems.AddNew('Panzer General') do begin
     PreferedMapType := mtHexagonHorizontal;
+    UnitsMoveImmediately := True;
     MaxPlayerCount := 2;
+    with Nations.AddNew('Germany') do begin
+      Color := clBlue;
+    end;
+    with Nations.AddNew('Russia') do begin
+      Color := clRed;
+    end;
+    with Nations.AddNew('Alliance') do begin
+      Color := clGreen;
+    end;
     with UnitKinds.AddNew('Rifle Team') do begin
       Moves := 1;