Bem vindo visitante.
Caso ainda não tenha uma conta,pedimos para que crie uma,assim você terá acesso a todos os links e imagens disponíveis no fórum.

Você não está conectado. Conecte-se ou registre-se

Contagem de execuções e mortes

Ir em baixo  Mensagem [Página 1 de 1]

1Normal Contagem de execuções e mortes em Sex Fev 17, 2012 12:55 pm

Ricardo

avatar
Moderador Local
Moderador Local
Client~Side

Na Type PlayerRec, no final antes do End Type, adicione:

Código:
    Kill As Long
    Dead As Long


Procure por:

Código:
    Call SetPlayerPK(i, Buffer.ReadLong)


E abaixo adicione:

Código:
    Player(i).Kill = Buffer.ReadLong
    Player(i).Dead = Buffer.ReadLong


Serve~Side

Na Type PlayerRec, no final antes do End Type, adicione:

Código:
    Kill As Long
    Dead As Long


Na Sub AddChar e nela ache:

Código:
        Player(Index).Vital(Vitals.MP) = GetPlayerMaxVital(Index, Vitals.MP)


E abaixo adicione:

Código:
        Player(Index).Kill = 0
        Player(Index).Dead = 0


Agora na Sub PlayerAttackPlayer procure por:

Código:
        If exp = 0 Then
            Call PlayerMsg(victim, "You lost no exp.", BrightRed)
            Call PlayerMsg(attacker, "You received no exp.", BrightBlue)
        Else
            Call SetPlayerExp(victim, GetPlayerExp(victim) - exp)
            SendEXP victim
            Call PlayerMsg(victim, "You lost " & exp & " exp.", BrightRed)


E acima adicione:

Código:
        ' Kill e Dead
        Player(attacker).Kill = Player(attacker).Kill + 1
        Call PlayerMsg(attacker, "Agora você tem " & Player(attacker).Kill & " Execuções", BrightRed)
        Player(victim).Dead = Player(victim).Dead + 1
        Call PlayerMsg(victim, "Agora você tem " & Player(victim).Dead & " Mortes", BrightRed)


Na Function PlayerData procure por:

Código:
    Buffer.WriteLong GetPlayerPK(Index)


E abaixo adicione:

Código:
    Buffer.WriteLong Player(Index).Kill
    Buffer.WriteLong Player(Index).Dead


Creditos:

Ricardo

Ver perfil do usuário

2Normal Re: Contagem de execuções e mortes em Ter Fev 21, 2012 1:22 pm

wyvern670

avatar
Iniciante
Iniciante
Vlw Ricardo,aki funfo certinho Smile

Ver perfil do usuário

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum