modHandleData

Código:

Sub HandlePlayerInfoRequest(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim Name As String
    Dim i As Long
    Dim Buffer As clsBuffer
   
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
    Name = Buffer.ReadString
    Set Buffer = Nothing
    i = FindPlayer(Name)
   
    Call PlayerMsg(index, Trim$(Name) & vbNewLine & "Stats" & vbNewLine & "Força: " & GetPlayerStat(i, Strength) & "/" & "Defesa: " & GetPlayerStat(i, Endurance) & "/" & "Inteligência: " & GetPlayerStat(i, Intelligence) & "/" & "Agilidade: " & GetPlayerStat(i, Agility) & "/" & "Força de Vontade: " & "/" & GetPlayerStat(i, Willpower) & vbNewLine & "Vitals" & vbNewLine & GetPlayerVital(i, HP) & " de " & GetPlayerMaxVital(i, HP) & "/" & GetPlayerVital(i, MP) & " de " & GetPlayerMaxVital(i, MP), White)
End Sub