Aldeia RPG

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

Suporte ao desenvolvimento de jogos


3 participantes

    Magia Tirando Dano.

    Firefox
    Firefox
    Iniciante
    Iniciante


    Mensagens : 65
    Créditos : 1

    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.
    Valentine
    Valentine
    Administrador
    Administrador


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

    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
    Firefox
    Firefox
    Iniciante
    Iniciante


    Mensagens : 65
    Créditos : 1

    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
    BrunoFox
    BrunoFox
    Aldeia Friend
    Aldeia Friend


    Mensagens : 1531
    Créditos : 32

    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

    Conteúdo patrocinado


    Magia Tirando Dano. Empty Re: Magia Tirando Dano.

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sex Nov 22, 2024 9:10 am