Alenaldo Membro
Mensagens : 38 Moeda : 104 Pontos : 4 Data de inscrição : 05/01/2013 Idade : 31 Localização : São luis MA
| Assunto: Correção - Informações de um jogador Seg Jan 14, 2013 8:42 am | |
| Explicação Quando você usa o comando "/info" nada acontece. Server~Side - Código:
-
modHandleData Troque toda a Sub HandlePlayerInfoRequest por: CÓDIGO: - 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 eu Ricardo | |
|