Changeset 442 for trunk/GameServer.pas

Timestamp:

May 18, 2022, 10:43:27 PM (2 years ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/GameServer.pas (modified) (7 diffs)

trunk/GameServer.pas

@@ -958 +958 @@
   if Mode >= moMovie then
     Notify(ntEndInfo);
-end; { StartGame }
+end;
 
 procedure EndGame;
@@ -1324 +1324 @@
   Inform(pTurn);
   ChangeClientWhenDone(cResume, 0, nil^, 0);
-end; // LoadGame
+end;
 
 procedure InsertTerritoryUpdateCommands;
@@ -1908 +1908 @@
   end;
   // CheckContact;
-end; { BeforeTurn }
+end;
 
 procedure AfterTurn;
@@ -2035 +2035 @@
           CheckWin(p1);
   end;
-end; // Afterturn
+end;
 
 procedure NextPlayer;
@@ -2289 +2289 @@
         end;
   end;
-end; // ExecuteMove
+end;
 
 function ExecuteAttack(p, uix, ToLoc: integer; var MoveInfo: TMoveInfo;
@@ -2559 +2559 @@
     end;
   end;
-end; // ExecuteAttack
+end;
 
 function MoveUnit(p, uix, dx, dy: integer; TestOnly: boolean): integer;
@@ -4490 +4490 @@
     LastEndClientCommand := Command;
 {$IFOPT O-}dec(nHandoverStack, 2); {$ENDIF}
-end; { <<<server }
+end;