Changeset 319 for trunk/LocalPlayer/Term.pas

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.

File:

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

trunk/LocalPlayer/Term.pas

@@ -1362 +1362 @@
     need := false;
     for i := 0 to 27 do
-      if MyRO.Wonder[i].CityID <> -1 then
+      if MyRO.Wonder[i].CityID <> WonderNotBuiltYet then
         need := true;
     if need then
@@ -2024 +2024 @@
       if MyRO.Wonder[i].CityID <> MyData.ToldWonders[i].CityID then
       begin
-        if MyRO.Wonder[i].CityID = -2 then
+        if MyRO.Wonder[i].CityID = WonderDestroyed then
           with MessgExDlg do
           begin { tell about destroyed wonders }
@@ -2076 +2076 @@
       end
       else if (MyRO.Wonder[i].EffectiveOwner <> MyData.ToldWonders[i]
-        .EffectiveOwner) and (MyRO.Wonder[i].CityID > -2) then
+        .EffectiveOwner) and (MyRO.Wonder[i].CityID > WonderDestroyed) then
         if MyRO.Wonder[i].EffectiveOwner < 0 then
         begin
@@ -5907 +5907 @@
     begin // city destroyed
       for i := 0 to 27 do { tell about destroyed wonders }
-        if (MyRO.Wonder[i].CityID = -2) and (MyData.ToldWonders[i].CityID <> -2)
+        if (MyRO.Wonder[i].CityID = WonderDestroyed) and (MyData.ToldWonders[i].CityID <> WonderDestroyed)
         then
           with MessgExDlg do
@@ -7316 +7316 @@
     mEUnitStat.Enabled := MyRO.nEnemyModel > 0;
     { mWonders.Enabled:= false;
-      for i:=0 to 27 do if MyRO.Wonder[i].CityID<>-1 then
+      for i:=0 to 27 do if MyRO.Wonder[i].CityID <> WonderNotBuiltYet then
       mWonders.Enabled:=true; }
     mDiagram.Enabled := MyRO.Turn >= 2;