CPlayerInfoRequest

CAdvancedPlayerInfoRequest

       ' ::::::::::::::::::::::::::::::::
' :: Player info request packet ::
' ::::::::::::::::::::::::::::::::
Sub HandlePlayerInfoRequest(ByVal Index As Long, ByRef Parse() As String)
Dim Name As String
Dim i As Long, n As Long

    Name = Parse(1)
   
    i = FindPlayer(Name)
    If i > 0 Then
        Call PlayerMsg(Index, "Account: " & Trim$(Player(i).Login) & ", Name: " & GetPlayerName(i), BrightGreen)
        If GetPlayerAccess(Index) > ADMIN_MONITOR Then
            Call PlayerMsg(Index, "-=- Stats for " & GetPlayerName(i) & " -=-", BrightGreen)
            Call PlayerMsg(Index, "Level: " & GetPlayerLevel(i) & "  Exp: " & GetPlayerExp(i) & "/" & GetPlayerNextLevel(i), BrightGreen)
            Call PlayerMsg(Index, "HP: " & GetPlayerVital(i, Vitals.HP) & "/" & GetPlayerMaxVital(i, Vitals.HP) & "  MP: " & GetPlayerVital(i, Vitals.MP) & "/" & GetPlayerMaxVital(i, Vitals.MP) & "  SP: " & GetPlayerVital(i, Vitals.SP) & "/" & GetPlayerMaxVital(i, Vitals.SP), BrightGreen)
            Call PlayerMsg(Index, "Strength: " & GetPlayerStat(i, Stats.Strength) & "  Defense: " & GetPlayerStat(i, Stats.Defense) & "  Magic: " & GetPlayerStat(i, Stats.Magic) & "  Speed: " & GetPlayerStat(i, Stats.Speed), BrightGreen)
            n = Int(GetPlayerStat(i, Stats.Strength) / 2) + Int(GetPlayerLevel(i) / 2)
            i = Int(GetPlayerStat(i, Stats.Defense) / 2) + Int(GetPlayerLevel(i) / 2)
            If n > 100 Then n = 100
            If i > 100 Then i = 100
            Call PlayerMsg(Index, "Critical Hit Chance: " & n & "%, Block Chance: " & i & "%", BrightGreen)
        End If
    Else
        Call PlayerMsg(Index, "Player is not online.", White)
    End If
End Sub

       
' :::::::::::::::::::::::::::::::::::::::::
' :: Advanced Player info request packet ::
' :::::::::::::::::::::::::::::::::::::::::
Sub HandleAdvancedPlayerInfoRequest(ByVal Index As Long, ByRef Parse() As String)
Dim Name As String
Dim i As Long, n As Long

    Name = Parse(1)
   
    i = FindPlayer(Name)
   If GetPlayerAccess(Index) > 0 Then
    If i > 0 Then
        Call PlayerMsg(Index, "Account: " & Trim$(Player(i).Login) & ", Name: " & GetPlayerName(i), BrightGreen)
        If GetPlayerAccess(Index) > ADMIN_MONITOR Then
            Call PlayerMsg(Index, "-=- Advanced Info for " & GetPlayerName(i) & " -=-", BrightGreen)
            Call PlayerMsg(Index, "IP: " & GetPlayerIP(i), BrightGreen)
            Call PlayerMsg(Index, "Access: " & GetPlayerAccess(i), BrightGreen)
            Call PlayerMsg(Index, "PK's: " & GetPlayerPK(i), BrightGreen)
            Call PlayerMsg(Index, "Coordinates: " & GetPlayerMap(i) & "  X: " & GetPlayerX(i) & "  Y: " & GetPlayerY(i), BrightGreen)
    Else
        Call PlayerMsg(Index, "Player is not online.", White)
    End If
    End If
    End If
End Sub       

Case CPlayerInfoRequest
            HandlePlayerInfoRequest Index, Parse

        Case CAdvancedPlayerInfoRequest
            HandleAdvancedPlayerInfoRequest Index, Parse

CPlayerInfoRequest

CAdvancedPlayerInfoRequest

Case "/info"
                    ' Checks to make sure we have more than one string in the array
                    If UBound(Command) >= 1 Then
                        Call SendData(CPlayerInfoRequest & SEP_CHAR & Command(1) & END_CHAR)
                    End If

                Case "/ainfo"
                    ' Checks to make sure we have more than one string in the array
                    If UBound(Command) >= 1 Then
                        Call SendData(CAdvancedPlayerInfoRequest & SEP_CHAR & Command(1) & END_CHAR)
                    End If