Changeset 428 for trunk

Timestamp:

Apr 28, 2022, 9:40:44 PM (3 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Term.pas

@@ -2335 +2335 @@
               begin
                 if Flags and CityRepMask <> 0 then
-                  ShowCityList := true
+                  ShowCityList := true;
               end;
             end;
@@ -6205 +6205 @@
       end;
       Update; // remove message box from screen
-    end
+    end;
   end;
 
@@ -6242 +6242 @@
       Update; // remove message box from screen
       MyUn[UnFocus].Status := MyUn[UnFocus].Status or usToldNoReturn;
-    end
+    end;
   end;
 
@@ -6280 +6280 @@
           begin
             Play('NOMOVE_SUBMARINE');
-            PaintLoc(ToLoc)
+            PaintLoc(ToLoc);
           end;
         eStealthUnit:
           begin
             Play('NOMOVE_STEALTH');
-            PaintLoc(ToLoc)
+            PaintLoc(ToLoc);
           end;
         eZOC_EnemySpotted:
           begin
             Play('NOMOVE_ZOC');
-            PaintLoc(ToLoc, 1)
+            PaintLoc(ToLoc, 1);
           end;
         rExecuted .. maxint:
@@ -6408 +6408 @@
       begin
         LostArmy[i] := MyRO.EnemyModel[i].Lost - LostArmy[i];
-        inc(nLostArmy, LostArmy[i])
+        inc(nLostArmy, LostArmy[i]);
       end;
       if result and rUnitRemoved <> 0 then
@@ -6443 +6443 @@
             MyRO.EnemyModel[MyRO.EnemyUn[euix].emix].Domain));
           ShowModal;
-        end
-      end
+        end;
+      end;
     end;
     if result and rUnitRemoved <> 0 then
@@ -6455 +6455 @@
     begin
       UpdateViews(true);
-      Update
-    end
+      Update;
+    end;
   end;
 
@@ -6582 +6582 @@
       assert(result <> eMissionDone);
       CheckTerrainBtnVisible;
-      FocusOnLoc(ToLoc, flRepaintPanel or flImmUpdate)
+      FocusOnLoc(ToLoc, flRepaintPanel or flImmUpdate);
     end;
 
@@ -6588 +6588 @@
   then
     ZoomToCity(ToLoc, UnFocus < 0, chCaptured); // show captured city
-end; // moveunit
+end;
 
 procedure TMainScreen.MoveOnScreen(ShowMove: TShowMove;
@@ -6634 +6634 @@
       if xFrom < xTo then begin
         xMin := xFrom;
-        xRange := xTo - xFrom
+        xRange := xTo - xFrom;
       end else begin
         xMin := xTo;
-        xRange := xFrom - xTo
+        xRange := xFrom - xTo;
       end;
       if yFrom < yTo then begin
         yMin := yFrom;
-        yRange := yTo - yFrom
+        yRange := yTo - yFrom;
       end else begin
         yMin := yTo;
-        yRange := yFrom - yTo
+        yRange := yFrom - yTo;
       end;
       inc(xRange, xxt * 2);
@@ -6692 +6692 @@
         Ticks := NowPrecise;
       until (((Ticks - Ticks0) * 12) / OneMillisecond) >= MoveTime;
-      Ticks0 := Ticks
+      Ticks0 := Ticks;
     end;
   end;