Na Public Sub BltPlayer(ByVal Index As Long) procure por:
Código:
' Check for attacking animation If Player(Index).AttackTimer + (attackspeed / 2) > GetTickCount Then If Player(Index).Attacking = 1 Then Anim = 3 End If
Mude para:
Código:
' Check for attacking animation If Player(Index).AttackTimer + (attackspeed / 2) > GetTickCount Then If Player(Index).Attacking = 1 Then Anim = 4 End If
Agora na Public Sub BltNpc(ByVal MapNpcNum As Long)
Procure por:
Código:
' Check for attacking animation If MapNpc(MapNpcNum).AttackTimer + (attackspeed / 2) > GetTickCount Then If MapNpc(MapNpcNum).Attacking = 1 Then Anim = 3 End If
E mude para:
Código:
' Check for attacking animation If MapNpc(MapNpcNum).AttackTimer + (attackspeed / 2) > GetTickCount Then If MapNpc(MapNpcNum).Attacking = 1 Then Anim = 4 End If