Changeset 464 for trunk/LocalPlayer

Timestamp:

Nov 29, 2023, 6:25:22 PM (12 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk/LocalPlayer

Files:

• CityScreen.pas (modified) (3 diffs)
• Tribes.pas (modified) (2 diffs)

trunk/LocalPlayer/CityScreen.pas

@@ -403 +403 @@
     D, I, Total, xGr, yGr: Integer;
     TileInfo: TTileInfo;
-    rare: Boolean;
+    Rare: Boolean;
   begin
     with AreaMap do begin
@@ -412 +412 @@
     end;
     Total := TileInfo.Food + TileInfo.Prod + TileInfo.Trade;
-    rare := MyMap[Loc] and $06000000 > 0;
-    if rare then
+    Rare := MyMap[Loc] and $06000000 > 0;
+    if Rare then
       Inc(Total);
     if Add4Happy then
@@ -431 +431 @@
         yGr := 126
       end
-      else if rare and (I = Total - 1) then
+      else if Rare and (I = Total - 1) then
         xGr := 66 + 110
       else if I >= TileInfo.Food + TileInfo.Prod then

trunk/LocalPlayer/Tribes.pas

@@ -509 +509 @@
         HGr := LoadGraphicSet(GrName);
         pix := Info.pix;
-        Inc(HGr.pixUsed[pix]);
+        Inc(HGr.PixUsed[pix]);
       end;
       ModelName[mix] := '';
@@ -584 +584 @@
       else
       begin
-        Used := 4 * HGr.pixUsed[TestPic.pix];
+        Used := 4 * HGr.PixUsed[TestPic.pix];
         if HGr = HGrStdUnits then
           Inc(Used, 2); // prefer units not from StdUnits