Changeset 420 for trunk/GameServer.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/GameServer.pas (modified) (7 diffs)

trunk/GameServer.pas

@@ -1810 +1810 @@
             end;
           end;
-        exit
+        Exit;
       end;
 
@@ -1826 +1826 @@
         dec(Research, Cost);
         Happened := Happened or phTech;
-        ResearchTech := -1
+        ResearchTech := -1;
       end
       else if (ResearchTech = -2) and (nCity > 0) then
@@ -1859 +1859 @@
             if 1 shl p1 and GWatching <> 0 then
               CallPlayer(cShowShipChange, p1, ShowShipChange);
-          end
+          end;
       end;
       if WinOnAlone and (GAlive and not(1 shl pTurn or 1) = 0) then
@@ -1871 +1871 @@
           if (p1 <> pTurn) and ((GAlive or GWatching) and (1 shl p1) <> 0) then
             RW[p1].EnemyReport[pTurn].Government := gDespotism;
-        inc(Happened, phChangeGov)
+        inc(Happened, phChangeGov);
       end;
     end; // if Difficulty[pTurn]>0
@@ -2611 +2611 @@
       end;
     end;
-  end; // with
-end; { MoveUnit }
+  end;
+end;
 
 function Server(Command, Player, Subject: integer; var Data): integer; stdcall;
@@ -2698 +2698 @@
   ShowShipChange: TShowShipChange;
   ShowNegoData: TShowNegoData;
-  logged, ok, HasShipChanged, AllHumansDead, OfferFullySupported: boolean;
-
-begin { >>>server }
+  logged, ok, HasShipChanged, AllHumansDead, OfferFullySupported: Boolean;
+begin
   if Command = sTurn then
   begin
@@ -3566 +3565 @@
               ChangeClientWhenDone(scDipOffer, pDipActive, LastOffer,
                 SizeOf(LastOffer));
-            end
-          end
+            end;
+          end;
         end
       else