Changeset 328 for trunk/LocalPlayer/Term.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/Term.pas (modified) (19 diffs)

trunk/LocalPlayer/Term.pas

@@ -458 +458 @@
     EnhancementJobs: TEnhancementJobs;
     ImpOrder: array [0 .. nCityType - 1] of TImpOrder;
-    ToldWonders: array [0 .. 27] of TWonderInfo;
+    ToldWonders: array [0 .. nWonder - 1] of TWonderInfo;
     ToldTech: array [0 .. nAdv - 1] of ShortInt;
   end;
@@ -469 +469 @@
     DeliveredPrices: TPriceSet;
     ReceivedPrices: TPriceSet;
+  end;
+
+  TCurrentMoveInfo = record
+    AfterMovePaintRadius: Integer;
+    AfterAttackExpeller: Integer;
+    DoShow: Boolean;
+    IsAlly: Boolean;
   end;
 
@@ -568 +575 @@
 
 var
-  Jump: array [0 .. nPl - 1] of integer;
-  pTurn, pLogo, UnStartLoc, ToldSlavery: integer;
-  SmallScreen, GameOK, MapValid, skipped, idle: boolean;
-
-  SaveOption: array of integer;
-  MiniColors: array [0..11, 0..1] of TColor;
+  Jump: array [0 .. nPl - 1] of Integer;
+  pTurn: Integer;
+  pLogo: Integer;
+  UnStartLoc: Integer;
+  ToldSlavery: Integer;
+  SmallScreen: Boolean;
+  GameOK: Boolean;
+  MapValid: Boolean;
+  Skipped: Boolean;
+  Idle: Boolean;
+
+  SaveOption: array of Integer;
   MainMap: TIsoMap;
-  CurrentMoveInfo: record AfterMovePaintRadius, AfterAttackExpeller: integer;
-  DoShow, IsAlly: boolean;
-end;
+  CurrentMoveInfo: TCurrentMoveInfo;
 
 function CityEventName(i: integer): string;
@@ -1070 +1081 @@
       begin
         result := false;
-        exit
+        exit;
       end;
       ChosenResearch := ModalSelectDlg.result;
@@ -1396 +1407 @@
   begin
     need := false;
-    for i := 0 to 27 do
+    for i := 0 to nWonder - 1 do
       if MyRO.Wonder[i].CityID <> WonderNotBuiltYet then
         need := true;
@@ -1492 +1503 @@
           $FF - Tribe[i].Color and $FF) * 2;
         if TestColorDistance < ColorDistance then
-          ColorDistance := TestColorDistance
+          ColorDistance := TestColorDistance;
       end;
     if ColorDistance > BestColorDistance then
     begin
       CountBest := 0;
-      BestColorDistance := ColorDistance
+      BestColorDistance := ColorDistance;
     end;
     if ColorDistance = BestColorDistance then
@@ -1503 +1514 @@
       inc(CountBest);
       if DelphiRandom(CountBest) = 0 then
-        result := j
+        result := j;
     end;
   end;
@@ -1574 +1585 @@
         begin
           MostCost := TestCost;
-          IconIndex := imShipComp + i
+          IconIndex := imShipComp + i;
         end;
       end;
@@ -1586 +1597 @@
 procedure TMainScreen.InitModule;
 var
-  x, y, i, j, Domain: integer;
+  i, j, Domain: integer;
 begin
   { search icons for advances: }
@@ -1610 +1621 @@
               else
                 AdvIcon[i] := 86 + Domain;
-      for j := 28 to nImp - 1 do
+      for j := nWonder to nImp - 1 do
         if Imp[j].Preq = i then
           AdvIcon[i] := j;
-      for j := 28 to nImp - 1 do
+      for j := nWonder to nImp - 1 do
         if (Imp[j].Preq = i) and (Imp[j].Kind <> ikCommon) then
           AdvIcon[i] := j;
@@ -1619 +1630 @@
         if i = JobPreq[j] then
           AdvIcon[i] := 84;
-      for j := 0 to 27 do
+      for j := 0 to nWonder - 1 do
         if Imp[j].Preq = i then
           AdvIcon[i] := j;
@@ -1637 +1648 @@
   TribeNames := tstringlist.Create;
 
-  for x := 0 to 11 do
-    for y := 0 to 1 do
-      MiniColors[x, y] := HGrSystem.Data.Canvas.Pixels[66 + x, 67 + y];
   IsoEngine.Init(InitEnemyModel);
   if not IsoEngine.ApplyTileSize(TileSize) and (TileSize <> tsMedium) then
@@ -2049 +2057 @@
     end;
 
-    for i := 0 to 27 do
+    for i := 0 to nWonder - 1 do
     begin
       OwnWonder := false;
@@ -2221 +2229 @@
           if (MyRO.Turn > 0) and (Loc >= 0) and (Flags and chCaptured = 0) and
             (WondersOnly = (Flags and chProduction <> 0) and
-            (Project0 and cpImp <> 0) and (Project0 and cpIndex < 28)) then
+            (Project0 and cpImp <> 0) and (Project0 and cpIndex < nWonder)) then
           begin
             if WondersOnly then
@@ -2602 +2610 @@
                   inc(ToldAlive, 1 shl i);
               PeaceEvaHappened := 0;
-              for i := 0 to 27 do
+              for i := 0 to nWonder - 1 do
                 with ToldWonders[i] do
                 begin
@@ -5852 +5860 @@
     if CityCaptured and (MyMap[ToLoc] and fCity = 0) then
     begin // city destroyed
-      for i := 0 to 27 do { tell about destroyed wonders }
+      for i := 0 to nWonder - 1 do { tell about destroyed wonders }
         if (MyRO.Wonder[i].CityID = WonderDestroyed) and (MyData.ToldWonders[i].CityID <> WonderDestroyed)
         then
@@ -5874 +5882 @@
     begin // city captured
       ListDlg.AddCity;
-      for i := 0 to 27 do { tell about capture of wonders }
+      for i := 0 to nWonder - 1 do { tell about capture of wonders }
         if MyRO.City[MyRO.nCity - 1].Built[i] > 0 then
           with MessgExDlg do
@@ -7183 +7191 @@
       // check if city types already usefull:
       if MyRO.nCity > 0 then
-        for i := 28 to nImp - 1 do
+        for i := nWonder to nImp - 1 do
           if (i <> imTrGoods) and (Imp[i].Kind = ikCommon) and
             (Imp[i].Preq <> preNA) and
@@ -7262 +7270 @@
     mEUnitStat.Enabled := MyRO.nEnemyModel > 0;
     { mWonders.Enabled:= false;
-      for i:=0 to 27 do if MyRO.Wonder[i].CityID <> WonderNotBuiltYet then
+      for i:=0 to nWonder - 1 do if MyRO.Wonder[i].CityID <> WonderNotBuiltYet then
       mWonders.Enabled:=true; }
     mDiagram.Enabled := MyRO.Turn >= 2;