Mirage Source

Sub SetLocalPlayerID()
Dim i As Long
Dim C As Long

    For i = 1 To MAX_PLAYERS
        LocalPlayerID(i) = 0
    Next i
   
    C = 1
   
    For i = 1 To MAX_PLAYERS
         If IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
               LocalPlayerID(C) = i
               C = C + 1
         End If
     Next i
     
End Sub

    ' ::::::::::::::::::::::::::
    ' :: Update local players ::
    ' ::::::::::::::::::::::::::
    If LCase$(Parse(0)) = "updatelocalplayers" Then
        Call SetLocalPlayerID
    End If

Sub SendLeaveMap(ByVal Index As Long, ByVal oldMap As Long, MapNum)
Dim Packet As String
Dim i As Long

    Packet = "PLAYERDATA" & SEP_CHAR & Index & SEP_CHAR & GetPlayerName(Index) & SEP_CHAR & GetPlayerSprite(Index) & SEP_CHAR & 0 & SEP_CHAR & GetPlayerX(Index) & SEP_CHAR & GetPlayerY(Index) & SEP_CHAR & GetPlayerDir(Index) & SEP_CHAR & GetPlayerAccess(Index) & SEP_CHAR & GetPlayerPK(Index) & SEP_CHAR & END_CHAR
    Call SendDataToMapBut(Index, oldMap, Packet)
   
    Call SetPlayerMap(Index, MapNum)
                   
        For i = 1 To MAX_PLAYERS
            If IsPlaying(i) And i <> Index And GetPlayerMap(i) = oldMap Then
                Packet = Packet & "UpdateLocalPlayers" & END_CHAR
                Call SendDataTo(i, Packet)
            End If
        Next i
       
        Packet = "UpdateLocalPlayers" & END_CHAR
        Call SendDataTo(Index, Packet)
       
        For i = 1 To MAX_PLAYERS
            If IsPlaying(i) And i <> Index And GetPlayerMap(i) = MapNum Then
                Packet = Packet & "UpdateLocalPlayers" & END_CHAR
                Call SendDataTo(i, Packet)
            End If
        Next i
   
End Sub

        ' Blit out players
         For i = 1 To MAX_PLAYERS
            If LocalPlayerID(i) = 0 Then
                Exit For
            End If
            Call BltPlayer(LocalPlayerID(i))
        Next i

Packet = Packet & "UpdateLocalPlayers" & END_CHAR

Packet = "UpdateLocalPlayers" & END_CHAR