Magia Tirando Dano. 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.

Magia Tirando Dano.

3 participantes

Ir para baixo

Magia Tirando Dano. Empty Magia Tirando Dano.

Mensagem por Firefox Sex Set 30, 2011 1:56 pm

Galera queria saber se e possível fazer uma magia em que você não precisa seleccionar o alvo na hora que for soltar a magia + mesmo assim ela tira Hp do inimigo.




Ex:Magia Tirando Dano. Fa1nrr



Ae soltei a magia ela fica ao meu redor por 60 segundos ae nesses 60 segundos se eu encostar no inimigo tira HP dele.



Agradeço a atenção.
Firefox
Firefox
Iniciante
Iniciante

Mensagens : 65
Créditos : 1

Ir para o topo Ir para baixo

Magia Tirando Dano. Empty Re: Magia Tirando Dano.

Mensagem por Valentine Sex Set 30, 2011 3:48 pm

E cara é meio complicado, vai no servidor, no sub:
Código:
Public Sub CastSpell(ByVal
procura por:
Código:
Case SPELL_TYPE_DAMAGEHP
E tenta ver algo sobre isso ai, tenta fazer com que a magia afete o
Código:
GetPlayerX(Index) - 1
e o
Código:
GetPlayerX(Index) + 1
dentro disso:
Código:
                    For i = 1 To MAX_MAP_NPCS
                        If MapNpc(mapnum).Npc(i).Num > 0 Then
                            If MapNpc(mapnum).Npc(i).Vital(HP) > 0 Then
                                If isInRange(AoE, x, y, MapNpc(mapnum).Npc(i).x, MapNpc(mapnum).Npc(i).y) Then
                                    If CanPlayerAttackNpc(Index, i, True) Then
                                        SendAnimation mapnum, Spell(SpellNum).SpellAnim, 0, 0, TARGET_TYPE_NPC, i
                                        PlayerAttackNpc Index, i, Vital, SpellNum
                                    End If
                                End If
                            End If
                        End If
                    Next

faz algo do tipo:
Código:
                    For i = 1 To MAX_MAP_NPCS
                        If MapNpc(mapnum).Npc(i).Num > 0 Then
                            If MapNpc(mapnum).Npc(i).Vital(HP) > 0 Then
                                If GetPlayerX(Index) - 1 = MapNpc(mapnum).Npc(i).x Or GetPlayerX(Index) + 1 = MapNpc(mapnum).Npc(i).x Then
                                'If isInRange(AoE, x, y, MapNpc(mapnum).Npc(i).x, MapNpc(mapnum).Npc(i).y) Then
                                    If CanPlayerAttackNpc(Index, i, True) Then
                                        SendAnimation mapnum, Spell(SpellNum).SpellAnim, 0, 0, TARGET_TYPE_NPC, i
                                        PlayerAttackNpc Index, i, Vital, SpellNum
                                    End If
                                End If
                            End If
                        End If
                    Next

Espero ter ajudado
Valentine
Valentine
Administrador
Administrador

Medalhas : Magia Tirando Dano. ZgLkiRU
Mensagens : 5341
Créditos : 1164

https://www.aldeiarpg.com/

Ir para o topo Ir para baixo

Magia Tirando Dano. Empty Re: Magia Tirando Dano.

Mensagem por Firefox Sex Set 30, 2011 7:21 pm

Aee marloss tenho vb akii naum + esse tuto ae funciona



vlw Marloss
Firefox
Firefox
Iniciante
Iniciante

Mensagens : 65
Créditos : 1

Ir para o topo Ir para baixo

Magia Tirando Dano. Empty Re: Magia Tirando Dano.

Mensagem por BrunoFox Ter Out 04, 2011 10:01 pm

O Problema meu é diferente as magias nao querem hitar '-'

_________________
Magia Tirando Dano. CHlkxwf
BrunoFox
BrunoFox
Aldeia Friend
Aldeia Friend

Mensagens : 1531
Créditos : 32

http://explosionsoft.forumeiros.com

Ir para o topo Ir para baixo

Magia Tirando Dano. Empty Re: Magia Tirando Dano.

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


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