Changeset 486 for trunk/LocalPlayer/ClientTools.pas

Timestamp:

Dec 8, 2023, 8:25:31 PM (5 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/ClientTools.pas (modified) (4 diffs)

trunk/LocalPlayer/ClientTools.pas

@@ -57 +57 @@
 function IsMilReportNew(Enemy: Integer): Boolean;
 function CutCityFoodSurplus(FoodSurplus: Integer; IsCityAlive: Boolean;
-  gov, size: Integer): Integer;
+  gov, Size: Integer): Integer;
 function CityTaxBalance(cix: Integer; const CityReport: TCityReportNew): Integer;
 procedure SumCities(var TaxSum, ScienceSum: Integer);
@@ -233 +233 @@
 
 function CutCityFoodSurplus(FoodSurplus: Integer; IsCityAlive: Boolean;
-  gov, size: Integer): Integer;
+  gov, Size: Integer): Integer;
 begin
   Result := FoodSurplus;
   if not IsCityAlive or (Result > 0) and ((gov = gFuture) or
-    (size >= NeedAqueductSize) and (Result < 2)) then
+    (Size >= NeedAqueductSize) and (Result < 2)) then
     Result := 0; { no growth }
 end;
@@ -253 +253 @@
       (CityReport.Production > 0) then
       Inc(Result, CityReport.Production);
-    if ((MyRO.Government = gFuture) or (MyCity[cix].size >=
+    if ((MyRO.Government = gFuture) or (MyCity[cix].Size >=
       NeedAqueductSize) and (CityReport.FoodSurplus < 2)) and
       (CityReport.FoodSurplus > 0) then
@@ -330 +330 @@
       Owner := Me;
       ID := MyCity[cix].ID;
-      size := MyCity[cix].size;
+      Size := MyCity[cix].Size;
       Flags := 0;
       if MyCity[cix].Built[imPalace] > 0 then