Changeset 328 for trunk/LocalPlayer/Select.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/LocalPlayer/Select.pas (modified) (2 diffs)

trunk/LocalPlayer/Select.pas

@@ -1068 +1068 @@
         code[0, 0] := cpImp + imTrGoods;
         Lines[0] := 1;
-        for i := 28 to nImp - 1 do
+        for i := nWonder to nImp - 1 do
           if Imp[i].Kind = ikCommon then
             TryAddImpLine(0, i + cpImp);
-        for i := 28 to nImp - 1 do
+        for i := nWonder to nImp - 1 do
           if not(Imp[i].Kind in [ikCommon, ikTrGoods]) and
             ((MyRO.NatBuilt[i] = 0) or (Imp[i].Kind = ikNatLocal)) then
@@ -1083 +1083 @@
 
         // wonders
-        for i := 0 to 27 do
+        for i := 0 to nWonder - 1 do
           TryAddImpLine(1, i + cpImp);