Mirage Source

Public Sub SendMap()
  Erase Buffer
 
  Buffer = AddLongToBuffer(Buffer, GetPlayerMap(MyIndex))
  Buffer = AddToBuffer(Buffer, VarPtr(Map), LenB(Map))
   
  Call SendData(Buffer, SMsgMapData)
End Sub

Private Sub HandleSMsgMapData(ByVal index As Long, ByVal StartAddr As Long, ByVal ByteLen As Long, ByVal ExtraVar As Long)
  Dim i As Long, MapNum As Long
  Dim Buffer() As Byte
 
  If HasAccess(index, ADMIN_MAPPER) = NO Then Exit Sub
 
  Buffer = FillBuffer(StartAddr, ByteLen)
  MapNum = GetLongFromBuffer(Buffer, True)
 
  Call CopyMemory(ByVal VarPtr(Map(MapNum)), Buffer(0), LenB(Map(MapNum)))
 
  Call SendMapNpcsToMap(MapNum)
  Call SpawnMapNpcs(MapNum)
 
  'Save the map
  Call SaveMap(MapNum)
       
        ' Refresh map for everyone online
        For i = 1 To HighIndex
            If IsPlaying(i) And GetPlayerMap(i) = MapNum Then
                Call PlayerWarp(i, MapNum, GetPlayerX(i), GetPlayerY(i))
            End If
        Next i
End Sub

  Buffer = AddLongToBuffer(Buffer, GetPlayerMap(MyIndex))
  Buffer = AddToBuffer(Buffer, VarPtr(Map), LenB(Map))

  Buffer = AddLongToBuffer(Buffer, GetPlayerMap(MyIndex))
  Buffer = Buffer & AddToBuffer(Buffer, VarPtr(Map), LenB(Map))

Buffer = AddLongToBuffer(Buffer, GetPlayerMap(MyIndex))
Buffer = AddToBuffer(Buffer, VarPtr(Map), LenB(Map))

Type TileRec
    Ground As Integer
    Mask As Integer
    Anim As Integer
    Fringe As Integer
    Type As Byte
    Data1 As Integer
    Data2 As Integer
    Data3 As Integer

    Mask2 As Integer
    M2Anim As Integer
    FAnim As Integer
    Fringe2 As Integer
    F2Anim As Integer
End Type