Changeset 614 for trunk/GameServer.pas

Timestamp:

Sep 14, 2024, 5:43:37 PM (5 days ago)

Author:

chronos

Message:

• Added: Nwe editor menu action to create filled map with selected tile.

File:

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

trunk/GameServer.pas

@@ -75 +75 @@
   MovieMode: Boolean): Boolean;
 procedure EditMap(const AMapFileName: string; Newlx, Newly, NewLandMass: Integer);
+procedure FillMap(TerrainType: Cardinal);
 procedure DirectHelp(Command: Integer);
 function ToAutoSaveFileName(FileName: string): string;
@@ -1363 +1364 @@
   Notify(ntBackOff);
   Inform(pTurn);
-  ChangeClientWhenDone(cTurn, 0, nil^, 0)
+  ChangeClientWhenDone(cTurn, 0, nil^, 0);
+end;
+
+procedure FillMap(TerrainType: Cardinal);
+var
+  Loc1: Integer;
+begin
+  for Loc1 := 0 to MapSize - 1 do
+    RealMap[Loc1] := TerrainType or ($F shl 27);
 end;
 
@@ -1375 +1384 @@
 procedure EditMap(const AMapFileName: string; Newlx, Newly, NewLandMass: Integer);
 var
-  p1, Loc1: Integer;
+  p1: Integer;
   Game: TNewGameData;
   Map: TMap;
@@ -1402 +1411 @@
     FreeAndNil(Map);
   end else begin
-    for Loc1 := 0 to MapSize - 1 do
-      RealMap[Loc1] := fOcean or ($F shl 27);
+    FillMap(fOcean);
   end;
   CL := nil;
@@ -3069 +3077 @@
 
     sRandomMap:
-      if (Player = 0) and MapGeneratorAvailable then
-      begin
+      if (Player = 0) and MapGeneratorAvailable then begin
         CreateElevation;
         PreviewElevation := False;
@@ -3076 +3083 @@
         FillChar(ObserveLevel, MapSize * 4, 0);
         DiscoverAll(Player, lObserveSuper);
-      end
-      else
-        Result := eInvalid;
+      end else Result := eInvalid;
+
+    sFillMap:
+      if Player = 0 then begin
+        FillMap(TFillMapData(Data).Tile);
+        FillChar(ObserveLevel, MapSize * 4, 0);
+        DiscoverAll(Player, lObserveSuper);
+      end else Result := eInvalid;
 
     sMapGeneratorRequest: