Changeset 496 for trunk/GameServer.pas

Timestamp:

Dec 18, 2023, 10:31:54 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/GameServer.pas

@@ -610 +610 @@
 procedure SaveGame(FileName: string; Auto: Boolean);
 var
-  X, Y, I, zero, Tile, nLocal: Integer;
+  X, Y, I, Zero, Tile, nLocal: Integer;
   LogFile: TFileStream;
   S: string[255];
@@ -637 +637 @@
       fmCreate or fmShareExclusive);
 
-  zero := 0;
+  Zero := 0;
   LogFile.Position := 0;
   S := 'cEvoBook';
@@ -662 +662 @@
   for I := 0 to nPl - 1 do
     if not Assigned(bix[I]) then
-      LogFile.Write(zero, 4)
+      LogFile.Write(Zero, 4)
     else
     begin
@@ -669 +669 @@
       else
         S := PlayersBrain[I].FileName;
-      Move(zero, S[Length(S) + 1], 4);
+      Move(Zero, S[Length(S) + 1], 4);
       LogFile.Write(S, (Length(S) div 4 + 1) * 4);
       LogFile.Write(OriginalDataVersion[I], 4);
       S := ''; { behavior }
-      Move(zero, S[Length(S) + 1], 4);
+      Move(Zero, S[Length(S) + 1], 4);
       LogFile.Write(S, (Length(S) div 4 + 1) * 4);
       LogFile.Write(Difficulty[I], 4);
@@ -687 +687 @@
     AutoSaveState := CL.State;
     AutoSaveExists := True;
-  end
+  end;
 end;