Changeset 191 for trunk/UGame.pas

Timestamp:

May 1, 2018, 10:16:08 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Clients initialization if game is loaded from file.
• Fixed: Removed compilation warnings.

File:

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

trunk/UGame.pas

@@ -8 +8 @@
   Classes, SysUtils, ExtCtrls, Graphics, XMLConf, XMLRead, XMLWrite, Forms,
   DOM, Math, LazFileUtils, UXMLUtils, Dialogs, Types, LCLType, LCLIntf, fgl,
-  UGeometry, SpecializedList;
+  UGeometry;
 
 const
@@ -1467 +1467 @@
       if Power < MaxPower then begin
         // Increase units count
-        if Game.GrowAmount = gaByOne then Addition := 1
-          else if Game.GrowAmount = gaBySquareRoot then begin
-            Addition := Trunc(Sqrt(Power));
-            if Addition = 0 then Addition := 1;
-          end;
+        Addition := 0;
+        if Game.GrowAmount = gaByOne then begin
+          Addition := 1;
+        end else
+        if Game.GrowAmount = gaBySquareRoot then begin
+          Addition := Trunc(Sqrt(Power));
+          if Addition = 0 then Addition := 1;
+        end;
         Power := Min(Power + Addition, MaxPower);
       end else