Changeset 319 for trunk/AI

Timestamp:

Mar 19, 2021, 3:31:53 PM (4 years ago)

Author:

chronos

Message:

• Modified: Optimized drawing of Wonders window.
• Modified: Used named constants for Wonders CitiID special cases.

Location:

trunk/AI/StdAI

Files:

• AI.pas (modified) (1 diff)
• Barbarina.pas (modified) (2 diffs)
• Protocol.pas (modified) (2 diffs)

trunk/AI/StdAI/AI.pas

@@ -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;

trunk/AI/StdAI/Barbarina.pas

@@ -1328 +1328 @@
   for iix := 0 to 27 do
     if (Imp[iix].Preq <> preNA) and ((Imp[iix].Preq = preNone) or
-      IsResearched(Imp[iix].Preq)) and (RO.Wonder[iix].CityID = -1) then
+      IsResearched(Imp[iix].Preq)) and (RO.Wonder[iix].CityID = WonderNotBuiltYet) then
       Inc(WonderAvailable, 1 shl iix);
   for cix := 0 to RO.nCity - 1 do
@@ -1500 +1500 @@
               if ((RO.Government <> gDespotism) or (RO.nUn >= RO.nCity * 4)) and
                 not IsResearched(adMassProduction) and (Built[imPalace] > 0) and
-                (RO.Wonder[woZeus].CityID = -1) and City_Improvable(cix, woZeus) then
+                (RO.Wonder[woZeus].CityID = WonderNotBuiltYet) and City_Improvable(cix, woZeus) then
                 City_StartImprovement(cix, woZeus)
               else if (City_CurrentImprovementProject(cix) >= 0) and

trunk/AI/StdAI/Protocol.pas

@@ -1265 +1265 @@
 mcHospital = mcSupplyShip;
 
+// Wonders CityID constants
+WonderNotBuiltYet = -1;
+WonderDestroyed = -2;
+
 type
   TServerCall = function (Command, Player, Subject: Integer; var Data)
@@ -1768 +1772 @@
 procedure DelphiRandomize;
 
+
 implementation