Changeset 618
- Timestamp:
- Sep 15, 2024, 1:51:10 PM (8 weeks ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Database.pas
r592 r618 1928 1928 end; 1929 1929 end; 1930 // RealMap[Loc] :=RealMap[Loc] and not fSpecial;1931 // RW[0].Map[Loc] :=RealMap[Loc] or fObserved;1930 // RealMap[Loc] := RealMap[Loc] and not fSpecial; 1931 // RW[0].Map[Loc] := RealMap[Loc] or fObserved; 1932 1932 end; 1933 1933 -
trunk/GameServer.pas
r614 r618 75 75 MovieMode: Boolean): Boolean; 76 76 procedure EditMap(const AMapFileName: string; Newlx, Newly, NewLandMass: Integer); 77 procedure FillMap(TerrainType: Cardinal );77 procedure FillMap(TerrainType: Cardinal; SpecialResources: Boolean); 78 78 procedure DirectHelp(Command: Integer); 79 79 function ToAutoSaveFileName(FileName: string): string; … … 1367 1367 end; 1368 1368 1369 procedure FillMap(TerrainType: Cardinal );1369 procedure FillMap(TerrainType: Cardinal; SpecialResources: Boolean); 1370 1370 var 1371 1371 Loc1: Integer; 1372 1372 begin 1373 for Loc1 := 0 to MapSize - 1 do 1374 RealMap[Loc1] := TerrainType or ($F shl 27); 1373 if SpecialResources then begin 1374 for Loc1 := 0 to MapSize - 1 do 1375 EditTile(Loc1, TerrainType or ($F shl 27)); 1376 end else begin 1377 for Loc1 := 0 to MapSize - 1 do 1378 RealMap[Loc1] := TerrainType or ($F shl 27); 1379 end; 1375 1380 end; 1376 1381 … … 1411 1416 FreeAndNil(Map); 1412 1417 end else begin 1413 FillMap(fOcean );1418 FillMap(fOcean, False); 1414 1419 end; 1415 1420 CL := nil; … … 3087 3092 sFillMap: 3088 3093 if Player = 0 then begin 3089 FillMap(TFillMapData(Data).Tile );3094 FillMap(TFillMapData(Data).Tile, True); 3090 3095 FillChar(ObserveLevel, MapSize * 4, 0); 3091 3096 DiscoverAll(Player, lObserveSuper);
Note:
See TracChangeset
for help on using the changeset viewer.