Changeset 618 for trunk/GameServer.pas

Timestamp:

Sep 15, 2024, 1:51:10 PM (5 days ago)

Author:

chronos

Message:

• Modified: Generate random resources in editor filled map.

File:

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

trunk/GameServer.pas

@@ -75 +75 @@
   MovieMode: Boolean): Boolean;
 procedure EditMap(const AMapFileName: string; Newlx, Newly, NewLandMass: Integer);
-procedure FillMap(TerrainType: Cardinal);
+procedure FillMap(TerrainType: Cardinal; SpecialResources: Boolean);
 procedure DirectHelp(Command: Integer);
 function ToAutoSaveFileName(FileName: string): string;
@@ -1367 +1367 @@
 end;
 
-procedure FillMap(TerrainType: Cardinal);
+procedure FillMap(TerrainType: Cardinal; SpecialResources: Boolean);
 var
   Loc1: Integer;
 begin
-  for Loc1 := 0 to MapSize - 1 do
-    RealMap[Loc1] := TerrainType or ($F shl 27);
+  if SpecialResources then begin
+    for Loc1 := 0 to MapSize - 1 do
+      EditTile(Loc1, TerrainType or ($F shl 27));
+  end else begin
+    for Loc1 := 0 to MapSize - 1 do
+      RealMap[Loc1] := TerrainType or ($F shl 27);
+  end;
 end;
 
@@ -1411 +1416 @@
     FreeAndNil(Map);
   end else begin
-    FillMap(fOcean);
+    FillMap(fOcean, False);
   end;
   CL := nil;
@@ -3087 +3092 @@
     sFillMap:
       if Player = 0 then begin
-        FillMap(TFillMapData(Data).Tile);
+        FillMap(TFillMapData(Data).Tile, True);
         FillChar(ObserveLevel, MapSize * 4, 0);
         DiscoverAll(Player, lObserveSuper);