Animação da Magia em Area

modCombat

Procure por:

Código:

    ' set the vital
    Vital = Spell(SpellNum).Vital
    AoE = Spell(SpellNum).AoE
    Range = Spell(SpellNum).Range

Acima adicione:

Código:

    If Spell(SpellNum).Type = SPELL_TYPE_DAMAGEHP Then
        If Spell(SpellNum).IsAoE = True Then
            InUseArea index, SpellNum
            DidCast = True
        End If
    End If

E no final do modulo adicione:

Código:

Function InUseArea(ByVal index As Long, ByVal SpellNum As Long)
Dim i As Long, n As Byte
Dim Mapa As Long, x As Byte, y As Byte

    n = Spell(SpellNum).AoE
    Mapa = GetPlayerMap(index)
   
    For x = 0 To n
        For y = 0 To n
            SendAnimation Mapa, Spell(SpellNum).SpellAnim, GetPlayerX(index) - x, GetPlayerY(index) + y
            SendAnimation Mapa, Spell(SpellNum).SpellAnim, GetPlayerX(index) + x, GetPlayerY(index) + y
            SendAnimation Mapa, Spell(SpellNum).SpellAnim, GetPlayerX(index) - x, GetPlayerY(index) - y
            SendAnimation Mapa, Spell(SpellNum).SpellAnim, GetPlayerX(index) + x, GetPlayerY(index) - y
        Next
    Next
       
    For i = 1 To MAX_MAP_NPCS
        If MapNpc(Mapa).NPC(i).x = x Then
            If MapNpc(Mapa).NPC(i).y = y Then
                PlayerAttackNpc index, i, Spell(SpellNum).Vital
            End If
        End If
    Next
       
    For i = 1 To Player_HighIndex
        If i = GetPlayerMap(index) Then Exit Function
       
        If GetPlayerMap(i) = Mapa Then
            If GetPlayerX(i) = x Then
                If GetPlayerY(i) = y Then
                    PlayerAttackPlayer index, i, Spell(SpellNum).Vital, SpellNum
                End If
            End If
        End If
    Next
End Function

Para usar a Magia em Area basta selecionar no Editor de magias a opção de magia em area e depois no scrlAoE selecionar o tamanho da magia.

OBS: ao usar a spell area.. sai uma animação no npc e no player..
traduzindo sai 2 anims.
da spell e do npc/player target..

caso queira tirar fassa o seguinte

no server~side na sub Castspell procure por:

Código:

SendAnimation mapNum, Spell(SpellNum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, i

e mude para:

Código:

'  SendAnimation mapNum, Spell(SpellNum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, i

dps procure por:

Código:

SendAnimation mapNum, Spell(SpellNum).SpellAnim, 0, 0, TARGET_TYPE_NPC, i

e mude para:

Código:

' SendAnimation mapNum, Spell(SpellNum).SpellAnim, 0, 0, TARGET_TYPE_NPC, i

Tudo isso na Sub CastSpell no server~side em ModCombat.

créditos: thales

Não dá o mesmo que 1 animação, mas quase não desce, não precisa se preocupar com isso.

Malz ai reviver o topic mais é q eu vou usar e quando testei aki vi q n ta mudando a animação sempre fica a mesma

Como assim não está mudando?

Eu mudo a animação no editor de spell mais sempre é a mesma

tá desse geito
se a spell for a 1ª a animação vai ser a 1ª
se for a 2ª a animação vai ser a 2ª...

acho q da pra intender

Pronto, problema resolvido, era só trocar o

Código:

SpellNum

Por

Código:

Spell(SpellNum).Animation

Agora sim vou usar vlw
Marlos/Valentine
+1 cred sei q n precisa mais fazer oq neh

Edit:
Marlos ta tando um Compile error
Method or data member not found