Ataque do NPC Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

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

Ataque do NPC

Ir para baixo

Ataque do NPC Empty Ataque do NPC

Mensagem por Ricardo Seg maio 20, 2013 10:40 pm

Introdução

A animação do ataque do NPC só é enviada quando o NPC acerta o jogador.

Server~Side

modCombat

Procure por:

Código:
Sub NpcAttackPlayer(ByVal mapNpcNum As Long, ByVal victim As Long, ByVal Damage As Long)

Na Sub NpcAttackPlayer procure por:

Código:
    ' Send this packet so they can see the npc attacking
    Set Buffer = New clsBuffer
    Buffer.WriteLong ServerPackets.SNpcAttack
    Buffer.WriteLong mapNpcNum
    SendDataToMap MapNum, Buffer.ToArray()
    Set Buffer = Nothing

Apague. Agora na Function CanNpcAttackPlayer procure por:

Código:
    Dim npcNum As Long

E abaixo adicione:

Código:
    Dim Buffer As clsBuffer

Procure por:

Código:
    MapNpc(MapNum).Npc(mapNpcNum).AttackTimer = GetTickCount

E acima adicione

Código:
    ' Send this packet so they can see the npc attacking
    Set Buffer = New clsBuffer
    Buffer.WriteLong ServerPackets.SNpcAttack
    Buffer.WriteLong mapNpcNum
    SendDataToMap MapNum, Buffer.ToArray()
    Set Buffer = Nothing

Na Sub TryNpcAttackPlayer ache:

Código:
        If Damage > 0 Then
            Call NpcAttackPlayer(mapNpcNum, index, Damage)

Abaixo adicione:

Código:
        Else
            SendActionMsg mapNum, "Block!", Cyan, 1, (GetPlayerX(index) * 32), (GetPlayerY(index) * 32)

Créditos

Ricardo
Ricardo
Ricardo
Ocasional
Ocasional

Mensagens : 162
Créditos : 71

Ficha do personagem
Nível: 1
Experiência:
Ataque do NPC Left_bar_bleue0/0Ataque do NPC Empty_bar_bleue  (0/0)
Vida:
Ataque do NPC Left_bar_bleue30/30Ataque do NPC Empty_bar_bleue  (30/30)

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos