Changeset 328 for trunk/LocalPlayer/CityScreen.pas

Timestamp:

Mar 25, 2021, 3:02:29 PM (3 years ago)

Author:

chronos

Message:

• Modified: Use nWonder constant as number of wonders instead of numeric value.
• Modified: Code cleanup.

File:

• trunk/LocalPlayer/CityScreen.pas (modified) (5 diffs)

trunk/LocalPlayer/CityScreen.pas

@@ -325 +325 @@
     for i := 0 to 29 do
     begin
-      for iix := 28 to nImp - 1 do
+      for iix := nWonder to nImp - 1 do
         if (ImpPosition[iix] = i) and (c.Built[iix] > 0) then
         begin
@@ -336 +336 @@
     i := 30;
     for iix := 0 to nImp do
-      if (c.Built[iix] > 0) and ((iix < 28) or (ImpPosition[iix] < 0)) then
+      if (c.Built[iix] > 0) and ((iix < nWonder) or (ImpPosition[iix] < 0)) then
       begin
         FillRect(Rect(5 + 16 * (i mod 3) + 48 * (i div 18),
@@ -350 +350 @@
       if iix <> imTrGoods then
       begin
-        if (iix >= 28) and (ImpPosition[iix] >= 0) then
+        if (iix >= nWonder) and (ImpPosition[iix] >= 0) then
           i := ImpPosition[iix];
         if i < 36 then
@@ -827 +827 @@
       Cnt := 0;
       for iix := 0 to nImp - 1 do
-        if ((iix < 28) or (ImpPosition[iix] < 0)) and (c.Built[iix] > 0) then
+        if ((iix < nWonder) or (ImpPosition[iix] < 0)) and (c.Built[iix] > 0) then
         begin
           i := Cnt - Page * 6;
@@ -838 +838 @@
     else
     begin
-      for iix := 28 to nImp - 1 do
+      for iix := nWonder to nImp - 1 do
       begin
         i := ImpPosition[iix] - 6 * ZoomArea;