Changeset 457 for trunk/GameServer.pas

Timestamp:

Nov 27, 2023, 12:10:57 AM (6 months ago)

Author:

chronos

Message:

• Modified: Use enumeration type in Help unit for better readability.
• Fixed: Corruption external help image referenced with incorrect file name case.
• Fixed: Chinese translation converted to UTF-8.
• Modified: Code cleanup.

File:

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

trunk/GameServer.pas

@@ -551 +551 @@
     MapFile.Position := 0;
     S := 'cEvoMap'#0;
-    MapFile.write(S[1], 8); { file id }
+    MapFile.Write(S[1], 8); { file id }
     I := 0;
-    MapFile.write(I, 4); { format id }
-    MapFile.write(MaxTurn, 4);
-    MapFile.write(lx, 4);
-    MapFile.write(ly, 4);
-    MapFile.write(RealMap, MapSize * 4);
+    MapFile.Write(I, 4); { format id }
+    MapFile.Write(MaxTurn, 4);
+    MapFile.Write(lx, 4);
+    MapFile.Write(ly, 4);
+    MapFile.Write(RealMap, MapSize * 4);
   finally
     FreeAndNil(MapFile);
@@ -574 +574 @@
     MapFile := TFileStream.Create(FileName, fmOpenRead or fmShareExclusive);
     MapFile.Position := 0;
-    MapFile.read(S[1], 8); { file id }
-    MapFile.read(I, 4); { format id }
+    MapFile.Read(S[1], 8); { file id }
+    MapFile.Read(I, 4); { format id }
     if I = 0 then
     begin
-      MapFile.read(I, 4); // MaxTurn
-      MapFile.read(lx, 4);
-      MapFile.read(ly, 4);
+      MapFile.Read(I, 4); // MaxTurn
+      MapFile.Read(lx, 4);
+      MapFile.Read(ly, 4);
       ly := ly and not 1;
       if lx > lxmax then
@@ -587 +587 @@
         ly := lymax;
       MapSize := lx * ly;
-      MapFile.read(RealMap, MapSize * 4);
+      MapFile.Read(RealMap, MapSize * 4);
       for Loc1 := 0 to MapSize - 1 do
       begin
@@ -609 +609 @@
 end;
 
-procedure SaveGame(FileName: string; auto: Boolean);
+procedure SaveGame(FileName: string; Auto: Boolean);
 var
   X, Y, I, zero, Tile, nLocal: Integer;
@@ -631 +631 @@
       end;
 
-  if auto and AutoSaveExists then // append to existing file
+  if Auto and AutoSaveExists then // append to existing file
     LogFile := TFileStream.Create(SavePath + FileName, fmOpenReadWrite or
       fmShareExclusive)
@@ -641 +641 @@
   LogFile.Position := 0;
   S := 'cEvoBook';
-  LogFile.write(S[1], 8); { file id }
+  LogFile.Write(S[1], 8); { file id }
   I := CevoVersion;
-  LogFile.write(I, 4); { c-evo version }
-  LogFile.write(ExeInfo.Time, 4);
-  LogFile.write(lx, 4);
-  LogFile.write(ly, 4);
-  LogFile.write(LandMass, 4);
+  LogFile.Write(I, 4); { c-evo version }
+  LogFile.Write(ExeInfo.Time, 4);
+  LogFile.Write(lx, 4);
+  LogFile.Write(ly, 4);
+  LogFile.Write(LandMass, 4);
   if LandMass = 0 then
-    LogFile.write(MapField^, MapSize * 4);
-
-  LogFile.write(MaxTurn, 4);
-  LogFile.write(RND, 4);
-  LogFile.write(GTurn, 4);
+    LogFile.Write(MapField^, MapSize * 4);
+
+  LogFile.Write(MaxTurn, 4);
+  LogFile.Write(RND, 4);
+  LogFile.Write(GTurn, 4);
   if nLocal > 1 then // multiplayer game -- no quick view
   begin
     I := $80;
-    LogFile.write(I, 4);
+    LogFile.Write(I, 4);
   end
   else
-    LogFile.write(SaveMap, ((MapSize - 1) div 4 + 1) * 4);
+    LogFile.Write(SaveMap, ((MapSize - 1) div 4 + 1) * 4);
   for I := 0 to nPl - 1 do
     if not Assigned(bix[I]) then
-      LogFile.write(zero, 4)
+      LogFile.Write(zero, 4)
     else
     begin
@@ -671 +671 @@
         S := PlayersBrain[I].FileName;
       Move(zero, S[Length(S) + 1], 4);
-      LogFile.write(S, (Length(S) div 4 + 1) * 4);
-      LogFile.write(OriginalDataVersion[I], 4);
+      LogFile.Write(S, (Length(S) div 4 + 1) * 4);
+      LogFile.Write(OriginalDataVersion[I], 4);
       S := ''; { behavior }
       Move(zero, S[Length(S) + 1], 4);
-      LogFile.write(S, (Length(S) div 4 + 1) * 4);
-      LogFile.write(Difficulty[I], 4);
+      LogFile.Write(S, (Length(S) div 4 + 1) * 4);
+      LogFile.Write(Difficulty[I], 4);
     end;
 
-  if auto and AutoSaveExists then
+  if Auto and AutoSaveExists then
     CL.AppendToFile(LogFile, AutoSaveState)
   else
     CL.SaveToFile(LogFile);
   FreeAndNil(LogFile);
-  if auto then
+  if Auto then
   begin
     AutoSaveState := CL.State;
@@ -1139 +1139 @@
     LogFile.Read(SaveMap, 4);
     if SaveMap[0] <> $80 then
-      LogFile.read(SaveMap[4], ((MapSize - 1) div 4 + 1) * 4 - 4);
+      LogFile.Read(SaveMap[4], ((MapSize - 1) div 4 + 1) * 4 - 4);
     for p1 := 0 to nPl - 1 do
     begin