[Correção] Informações de um jogador

por Ricardo Sex 31 Ago 2012, 18:55

Explicação

Quando você usa o comando "/info" nada acontece.

Server~Side

modHandleData

Troque toda a Sub HandlePlayerInfoRequest por:

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

Créditos

Ricardo