Changeset 291 for trunk/UGame.pas

Timestamp:

Mar 26, 2019, 1:16:27 PM (6 years ago)

Author:

chronos

Message:

• Modified: UnitKind list and items converted to general item list.

File:

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

trunk/UGame.pas

@@ -303 +303 @@
     NewPower := Random(MaxNeutralUnits + 1);
     if (NewPower > 0) and not Assigned(OneUnit) then begin
-      OneUnit := Units.AddNew(GameSystem.UnitKinds[0], NewPower);
+      OneUnit := Units.AddNew(TUnitKind(GameSystem.UnitKinds[0]), NewPower);
     end;
     Player := nil;
@@ -344 +344 @@
         StartCell.Player := Player;
         if not Assigned(StartCell.OneUnit) then
-          StartCell.OneUnit := Self.Units.AddNew(GameSystem.UnitKinds[0], Player.StartUnits);
+          StartCell.OneUnit := Self.Units.AddNew(TUnitKind(GameSystem.UnitKinds[0]), Player.StartUnits);
         StartCell.OneUnit.Power := Player.StartUnits;
-        StartCell.OneUnit.Kind := GameSystem.UnitKinds[0];
+        StartCell.OneUnit.Kind := TUnitKind(GameSystem.UnitKinds[0]);
         StartCell.OneUnit.Player := Player;
       end;