Changeset 464 for trunk/LocalPlayer/CityScreen.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/LocalPlayer/CityScreen.pas (modified) (3 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