Changeset 591 for trunk/GameServer.pas

Timestamp:

Jul 24, 2024, 11:02:31 PM (8 weeks ago)

Author:

chronos

Message:

• Modified: Draw graphical preview for maps which doesn't have associated image.

File:

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

trunk/GameServer.pas

@@ -291 +291 @@
   LandMass := ALandMass;
   DelphiRandSeed := PreviewRND;
-  if not PreviewElevation then
-  begin
+  if not PreviewElevation then begin
     CreateElevation;
     PreviewElevation := True;
@@ -1382 +1381 @@
   GAlive := 0;
   GWatching := 1;
-  for Loc1 := 0 to MapSize - 1 do
-    RealMap[Loc1] := fOcean or ($F shl 27);
   if FileExists(MapFileName) then begin
     Map := TMap.Create;
@@ -1392 +1389 @@
     Move(Map.Tiles[0], RealMap, MapSize * 4);
     FreeAndNil(Map);
+  end else begin
+    for Loc1 := 0 to MapSize - 1 do
+      RealMap[Loc1] := fOcean or ($F shl 27);
   end;
   CL := nil;