Changeset 420 for trunk/LocalPlayer/Term.pas

Timestamp:

Dec 28, 2021, 4:46:47 PM (2 years ago)

Author:

chronos

Message:

• Modified: Updated Common package to version 0.9.
• Modified: Code cleanup.

File:

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

trunk/LocalPlayer/Term.pas

@@ -4419 +4419 @@
             end;
             MyUn[uix].Status := MyUn[uix].Status or usToldNoReturn;
-          end
+          end;
         end;
 
@@ -4434 +4434 @@
         ShowModal;
         if ModalResult <> mrOK then
-          exit
+          exit;
       end;
 
@@ -4503 +4503 @@
             begin // zoom to city
               ZoomToCity(Loc);
-              exit
-            end
+              Exit;
+            end;
           end;
 
@@ -4510 +4510 @@
       (MyData.FarTech <> adNexus) then
       if not ChooseResearch then
-        exit;
+        Exit;
   end;
 
@@ -4557 +4557 @@
   end
   else
-    PanelPaint
-end; // EndTurn
+    PanelPaint;
+end;
 
 procedure TMainScreen.EndNego;