Changeset 531 for trunk/LocalPlayer/Select.pas

Timestamp:

Mar 27, 2024, 12:31:14 PM (8 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Select.pas

@@ -1073 +1073 @@
   PPicture, PTestPicture: ^TModelPicture;
   ModelOk: array [0 .. 4095] of Boolean;
-  ok: Boolean;
+  Ok: Boolean;
 begin
   for I := 0 to MaxLayer - 1 do
@@ -1108 +1108 @@
         begin
           { if MyModel[i].Kind=mkSlaves then
-            ok:= MyRO.Wonder[woPyramids].EffectiveOwner=Me
+            Ok:= MyRO.Wonder[woPyramids].EffectiveOwner=Me
             else } if MyModel[I].Domain = dSea then
           begin
-            ok := False;
+            Ok := False;
             for dx := -2 to 2 do
               for dy := -2 to 2 do
@@ -1120 +1120 @@
                     ((MyMap[Loc1] and fTerrain = fShore) or
                     (MyMap[Loc1] and fCanal > 0)) then
-                    ok := True;
+                    Ok := True;
                 end;
           end
           else
-            ok := True;
-          if ok then
+            Ok := True;
+          if Ok then
           begin
             if MyModel[I].Status and msObsolete = 0 then
@@ -1163 +1163 @@
           Inc(Lines[0]);
         end;
-        ok := False;
+        Ok := False;
         for I := 0 to nDomains - 1 do
           if (upgrade[I, 0].Preq = preNone) or
             (MyRO.Tech[upgrade[I, 0].Preq] >= tsApplicable) then
-            ok := True;
-        if ok then { new unit class }
+            Ok := True;
+        if Ok then { new unit class }
         begin
           Code[0, Lines[0]] := adMilitary;
@@ -1255 +1255 @@
         for I := 0 to nAdv - 1 do
         begin
-          ok := (MyRO.Tech[I] <> tsNA) or (MyRO.ResearchTech = I);
+          Ok := (MyRO.Tech[I] <> tsNA) or (MyRO.ResearchTech = I);
           for J := 1 to nColumn - 1 do
             with MyRO.EnemyReport[Column[J]]^ do
               if (Tech[I] <> tsNA) or (TurnOfCivilReport >= 0) and
                 (ResearchTech = I) then
-                ok := True;
-          if ok then
+                Ok := True;
+          if Ok then
           begin
             Code[0, Lines[0]] := I;
@@ -1269 +1269 @@
         SortTechs;
 
-        ok := MyRO.ResearchTech = adMilitary;
+        Ok := MyRO.ResearchTech = adMilitary;
         for J := 1 to nColumn - 1 do
           with MyRO.EnemyReport[Column[J]]^ do
             if (MyRO.Alive and (1 shl Column[J]) <> 0) and
               (TurnOfCivilReport >= 0) and (ResearchTech = adMilitary) then
-              ok := True;
-        if ok then
+              Ok := True;
+        if Ok then
         begin
           Code[0, Lines[0]] := adMilitary;
@@ -1330 +1330 @@
         begin // check if opponent already has this model
           MakeModelInfo(Me, mix, MyModel[mix], mi);
-          ok := True;
+          Ok := True;
           for emix := 0 to MyRO.nEnemyModel - 1 do
             if (MyRO.EnemyModel[emix].Owner = DipMem[Me].pContact) and
               IsSameModel(MyRO.EnemyModel[emix], mi) then
-              ok := False;
-          if ok then
+              Ok := False;
+          if Ok then
           begin
             Code[0, Lines[0]] := mix;
@@ -1414 +1414 @@
             if not Assigned(PPicture.HGr) then
               InitEnemyModel(emix);
-            ok := True;
+            Ok := True;
             if MainScreen.mNames.Checked then
               for J := 0 to Lines[0] - 1 do
@@ -1426 +1426 @@
                 begin
                   Code[1, J] := 1;
-                  ok := False;
+                  Ok := False;
                   Break;
                 end;
               end;
-            if ok then
+            if Ok then
             begin
               Code[0, Lines[0]] := emix;