Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte no desenvolvimento de jogos


    Correção - Informações de um jogador

    Ricardo
    Ricardo
    Ocasional
    Ocasional

    Mensagens : 162
    Créditos : 71

    Ficha do personagem
    Nível: 1
    Experiência:
    Informações - Correção - Informações de um jogador Left_bar_bleue0/0Informações - Correção - Informações de um jogador Empty_bar_bleue  (0/0)
    Vida:
    Informações - Correção - Informações de um jogador Left_bar_bleue30/30Informações - Correção - Informações de um jogador Empty_bar_bleue  (30/30)

    Informações - Correção - Informações de um jogador Empty Correção - Informações de um jogador

    Mensagem por Ricardo Sex Ago 31, 2012 7:55 pm

    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

      Data/hora atual: Ter Set 21, 2021 9:21 pm