Changeset 349 for branches/highdpi/AI/StdAI/AI.pas

Timestamp:

Apr 6, 2021, 8:11:02 PM (3 years ago)

Author:

chronos

Message:

• Modified: Merged trunk branch version r348 into highdpi branch.

File:

• branches/highdpi/AI/StdAI/AI.pas (modified) (2 diffs)

branches/highdpi/AI/StdAI/AI.pas

@@ -1122 +1122 @@
             begin // settlers could be added to this city
               Happy := BasicHappy;
-              for i := 0 to 27 do
+              for i := 0 to nWonder - 1 do
                 if Built[i] > 0 then
                   Inc(Happy);
@@ -2596 +2596 @@
           if (iix >= 0) and (((Imp[iix].Kind in [ikNatLocal, ikNatGlobal]) and
             (RO.NatBuilt[iix] > 0)) or ((Imp[iix].Kind = ikWonder) and
-            (RO.Wonder[iix].CityID <> -1))) then
+            (RO.Wonder[iix].CityID <> WonderNotBuiltYet))) then
             CheckProd := True;
         end;