Changeset 590 for trunk/GameServer.pas

Timestamp:

Jul 24, 2024, 10:25:56 PM (4 months ago)

Author:

chronos

Message:

• Modified: Map load and save moved to separate class TMap.

File:

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

trunk/GameServer.pas

@@ -8 +8 @@
 uses
   Protocol, Database, DynLibs, Platform, DateUtils, LazFileUtils, Brain, Global,
+  Map,
   {$IFDEF DPI}Graphics{$ELSE}Graphics{$ENDIF};
 
@@ -73 +74 @@
 function LoadGame(const FileName: string; Turn: Integer;
   MovieMode: Boolean): Boolean;
-procedure EditMap(const Map: string; Newlx, Newly, NewLandMass: Integer);
+procedure EditMap(const AMapFileName: string; Newlx, Newly, NewLandMass: Integer);
 procedure DirectHelp(Command: Integer);
 function ToAutoSaveFileName(FileName: string): string;
@@ -80 +81 @@
 procedure ChangeClient;
 procedure NextPlayer;
-function PreviewMap(lm: Integer): Pointer;
+function PreviewMap(ALandMass: Integer): Pointer;
 
 
@@ -283 +284 @@
 end;
 
-function PreviewMap(lm: Integer): Pointer;
+function PreviewMap(ALandMass: Integer): Pointer;
 begin
   lx := lxmax;
   ly := lymax;
   MapSize := lx * ly;
-  LandMass := lm;
+  LandMass := ALandMass;
   DelphiRandSeed := PreviewRND;
   if not PreviewElevation then
@@ -563 +564 @@
 end;
 
-procedure SaveMap(FileName: string);
-var
-  I: Integer;
-  MapFile: TFileStream;
-  S: string[255];
-begin
-  MapFile := TFileStream.Create(FileName, fmCreate or fmShareExclusive);
-  try
-    MapFile.Position := 0;
-    S := 'cEvoMap'#0;
-    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);
-  finally
-    FreeAndNil(MapFile);
-  end;
-end;
-
-function LoadMap(FileName: string): Boolean;
-var
-  I, Loc1: Integer;
-  MapFile: TFileStream;
-  S: string[255];
-begin
-  Result := False;
-  if not FileExists(FileName) then Exit;
-  MapFile := TFileStream.Create(FileName, fmOpenRead or fmShareExclusive);
-  try
-    MapFile.Position := 0;
-    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);
-      ly := ly and not 1;
-      if lx > lxmax then
-        lx := lxmax;
-      if ly > lymax then
-        ly := lymax;
-      MapSize := lx * ly;
-      MapFile.Read(RealMap, MapSize * 4);
-      for Loc1 := 0 to MapSize - 1 do
-      begin
-        RealMap[Loc1] := RealMap[Loc1] and
-          ($7F01FFFF or fPrefStartPos or fStartPos) or ($F shl 27);
-        if RealMap[Loc1] and (fTerrain or fSpecial) = fSwamp or fSpecial2 then
-          RealMap[Loc1] := RealMap[Loc1] and not (fTerrain or fSpecial) or
-            (fSwamp or fSpecial1);
-        if (RealMap[Loc1] and fDeadLands <> 0) and
-          (RealMap[Loc1] and fTerrain <> fArctic) then
-          RealMap[Loc1] := RealMap[Loc1] and not (fTerrain or fSpecial)
-            or fDesert;
-      end;
-      Result := True;
-    end;
-  finally
-    FreeAndNil(MapFile);
-  end;
-end;
-
 procedure SaveGame(FileName: string; Auto: Boolean);
 var
@@ -717 +652 @@
   BrainUsed: Set of 0 .. 254; { used brains }
   AIBrains: TBrains;
+  Map: TMap;
 begin
   for p1 := 0 to nPl - 1 do begin
@@ -865 +801 @@
   else
   begin // predefined map
-    if Mode = moPlaying then
-      LoadMap(MapFileName); // new game -- load map from file
+    if Mode = moPlaying then begin
+      Map := TMap.Create;
+      Map.LoadFromFile(MapFileName); // new game -- load map from file
+      MapSize := Map.MapSize;
+      lx := Map.Size.X;
+      ly := Map.Size.Y;
+      Move(Map.Tiles[0], RealMap, MapSize * 4);
+      FreeAndNil(Map);
+    end;
     GetMem(MapField, MapSize * 4);
     Move(RealMap, MapField^, MapSize * 4);
@@ -1419 +1362 @@
 end;
 
-procedure EditMap(const Map: string; Newlx, Newly, NewLandMass: Integer);
+procedure EditMap(const AMapFileName: string; Newlx, Newly, NewLandMass: Integer);
 var
   p1, Loc1: Integer;
   Game: TNewGameData;
+  Map: TMap;
 begin
   Notify(ntStartDone);
   Notify(ntInitLocalHuman);
-  MapFileName := Map;
+  MapFileName := AMapFileName;
   lx := Newlx;
   ly := Newly;
@@ -1438 +1382 @@
   GAlive := 0;
   GWatching := 1;
-  if not LoadMap(MapFileName) then
-    for Loc1 := 0 to MapSize - 1 do
-      RealMap[Loc1] := fOcean or ($F shl 27);
+  for Loc1 := 0 to MapSize - 1 do
+    RealMap[Loc1] := fOcean or ($F shl 27);
+  if FileExists(MapFileName) then begin
+    Map := TMap.Create;
+    Map.LoadFromFile(MapFileName);
+    MapSize := Map.MapSize;
+    lx := Map.Size.X;
+    ly := Map.Size.Y;
+    Move(Map.Tiles[0], RealMap, MapSize * 4);
+    FreeAndNil(Map);
+  end;
   CL := nil;
   InitMapEditor;
@@ -2720 +2672 @@
   ShowNegoData: TShowNegoData;
   Logged, Ok, HasShipChanged, AllHumansDead, OfferFullySupported: Boolean;
+  Map: TMap;
 begin
   if Command = sTurn then
@@ -3295 +3248 @@
       if Player = 0 then
       begin
-        if Command = sSaveMap then
-          SaveMap(MapFileName);
+        if Command = sSaveMap then begin
+          Map := TMap.Create;
+          Map.Size := Point(lx, ly);
+          Map.MaxTurn := MaxTurn;
+          Move(RealMap, Map.Tiles[0], MapSize * 4);
+          Map.SaveToFile(MapFileName);
+          FreeAndNil(Map);
+        end;
         Notify(ntBackOn);
         BrainTerm.Client(cBreakGame, -1, nil^);