Looks like it saves 1 file per 200x200 area.
Type MapType
flgInUse As Boolean
Xsize As Integer
Ysize As Integer
WorldBaseXpos As Integer
WorldBaseYpos As Integer
WorldBaseZpos As Integer
ConnectGrid(-1 To 1, -1 To 1) As Integer
flgSurface As Boolean
' 1000
flgChanged As Boolean
' 998
UpLink As Integer
DownLink As Integer
xxx(1 To 994) As Byte
'''''''''''''''
Elevation_Map() As Byte
Surface_Water_Map() As Byte
BackGround_Map() As Integer
Change_Map() As Integer
Grass_Map() As Byte
Mining_Map() As MiningType
Player_Map() As Integer
Land_Owner_Map() As LandOwnerType
Item_Map() As Long
MonsterSpawnMap() As MonsterSpawnMapType ' wilderness
End Type
Sub modMap_Save(MapIndex As Integer, Optional flgClear As Boolean = False)
On Error GoTo Error_modMap_Save
Dim filenum As Integer, i As Long, Count As Long, FileName As String
If Map(MapIndex).WorldBaseZpos >= 100 Then
FileName = "\maps\dungeon" & Format(Map(MapIndex).WorldBaseZpos, "00000") & ".map"
Else
FileName = "\maps\map" & Format(Map(MapIndex).WorldBaseXpos, "0000") & "x" & Format(Map(MapIndex).WorldBaseYpos, "0000") & "x" & Format(Map(MapIndex).WorldBaseZpos, "0000") & ".map"
End If
filenum = FreeFile()
'Open App.path & "\maps\map" & Format(MapIndex, "00000") & ".map" For Binary As filenum
Open App.path & FileName For Binary As filenum
Put #filenum, , Map(MapIndex).Xsize
Put #filenum, , Map(MapIndex).Ysize
Put #filenum, , Map(MapIndex).WorldBaseXpos
Put #filenum, , Map(MapIndex).WorldBaseYpos
Put #filenum, , Map(MapIndex).WorldBaseZpos
Put #filenum, , Map(MapIndex).ConnectGrid
Put #filenum, , Map(MapIndex).flgSurface
If Map(MapIndex).flgSurface Then
Put #filenum, , Map(MapIndex).Elevation_Map
Put #filenum, , Map(MapIndex).Surface_Water_Map
Put #filenum, , Map(MapIndex).Land_Owner_Map
Else
Put #filenum, , Map(MapIndex).Mining_Map
End If
Put #filenum, , Map(MapIndex).Grass_Map
Put #filenum, , Map(MapIndex).MonsterSpawnMap
If Map(MapIndex).WorldBaseZpos >= 100 Then
Put #filenum, , Map(MapIndex).Land_Owner_Map
End If
Put #filenum, , Map(MapIndex).DownLink
Put #filenum, , Map(MapIndex).UpLink
Close filenum
Map(MapIndex).flgChanged = False
Exit Sub
Error_modMap_Save:
modMisc_Log "Error_modMap_Save : " & Err.Description
End Sub