Changeset 486 for trunk/LocalPlayer

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk/LocalPlayer

Files:

• ClientTools.pas (modified) (4 diffs)
• IsoEngine.pas (modified) (3 diffs)
• Select.pas (modified) (5 diffs)
• Term.pas (modified) (2 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

trunk/LocalPlayer/IsoEngine.pas

@@ -193 +193 @@
 begin
   // prepare age 2+3 cities
-  for age := 2 to 3 do
-    for size := 0 to 3 do
+  for Age := 2 to 3 do
+    for Size := 0 to 3 do
       with Pictures[Age, Size] do
         FindPosition(HGrCities, Size * (xxt * 2 + 1), (Age - 2) * (yyt * 3 + 1),
@@ -738 +738 @@
 begin
   Age := GetAge(CityInfo.Owner);
-  if CityInfo.size < 5 then
+  if CityInfo.Size < 5 then
     xGr := 0
-  else if CityInfo.size < 9 then
+  else if CityInfo.Size < 9 then
     xGr := 1
-  else if CityInfo.size < 13 then
+  else if CityInfo.Size < 13 then
     xGr := 2
   else
@@ -793 +793 @@
       yShield := Y - 2 * yyt + cpic.yShield;
     end;
-    S := IntToStr(CityInfo.size);
+    S := IntToStr(CityInfo.Size);
     LabelLength := FOutput.Canvas.TextWidth(S);
     FillRect(xShield, yShield, LabelLength + 4, 16, $000000);

trunk/LocalPlayer/Select.pas

@@ -238 +238 @@
 
 var
-  icon, ofs, X, Y, y0, lix, I, J, TextColor, Available, first, Test,
-    FutureCount, growth, TrueFood, TrueProd: Integer;
+  icon, ofs, X, Y, y0, lix, I, J, TextColor, Available, First, Test,
+    FutureCount, Growth, TrueFood, TrueProd: Integer;
   CityReport: TCityReportNew;
   mox: ^TModelInfo;
@@ -253 +253 @@
 
   if Kind in [kCities, kCityEvents] then
-    with MyCity[lix] do
+    with TCity(MyCity[lix]) do
     begin
       X := 104 - 76;
@@ -281 +281 @@
           Font.Color := $000000;
           S := IntToStr(MyCity[lix].Size);
-          TextOut(X - 4 - textwidth(S) div 2, Y, S);
+          TextOut(X - 4 - TextWidth(S) div 2, Y, S);
         end;
 
@@ -402 +402 @@
             ((Size < NeedAqueductSize) or (Built[imAqueduct] = 1) and
             (Size < NeedSewerSize) or (Built[imSewer] = 1));
+          Growth := CutCityFoodSurplus(CityReport.FoodSurplus,
+            (MyRO.Government <> gAnarchy) and (Flags and chCaptured = 0),
+            MyRO.Government, Size);
           PaintRelativeProgressBar(Offscreen.Canvas, 1, X + 15 + CityNameSpace +
-            4, Y + 7, 68, TrueFood, CutCityFoodSurplus(CityReport.FoodSurplus,
-            (MyRO.Government <> gAnarchy) and (Flags and chCaptured = 0),
-            MyRO.Government, Size), CityReport.Storage, CanGrow, MainTexture);
+            4, Y + 7, 68, TrueFood, Growth, CityReport.Storage, CanGrow, MainTexture);
 
           if Project <> cpImp + imTrGoods then
@@ -413 +414 @@
 
             // production progress
-            growth := CityReport.Production;
-            if (growth < 0) or (MyRO.Government = gAnarchy) or
+            Growth := CityReport.Production;
+            if (Growth < 0) or (MyRO.Government = gAnarchy) or
               (Flags and chCaptured <> 0) then
-              growth := 0;
+              Growth := 0;
             PaintRelativeProgressBar(Offscreen.Canvas, 4,
-              X + CityNameSpace + 4 + 304 - 60 + 9, Y + 7, 68, TrueProd, growth,
+              X + CityNameSpace + 4 + 304 - 60 + 9, Y + 7, 68, TrueProd, Growth,
               CityReport.ProjectCost, True, MainTexture);
           end;

trunk/LocalPlayer/Term.pas

@@ -765 +765 @@
 
 procedure ChooseModelPicture(P, mix, Code, Hash, Turn: Integer;
-  ForceNew, final: Boolean);
+  ForceNew, Final: Boolean);
 var
   I: Integer;
@@ -796 +796 @@
     IsNew := Tribe[P].ChooseModelPicture(Picture, Code, Turn, ForceNew);
   end;
-  if final then
+  if Final then
     if not TribeOriginal[P] then
       Tribe[P].SetModelPicture(Picture, IsNew)