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


5 participantes

    Magia de Teletransporte

    Pablo Kawan
    Pablo Kawan
    Experiente
    Experiente


    Mensagens : 480
    Créditos : 158

    Magia de Teletransporte Empty Magia de Teletransporte

    Mensagem por Pablo Kawan Sex Nov 28, 2014 8:19 pm

    Ola povo u-u aqui vai uma bem simples, um sistema de teletransportar para onde seu inimigo está, selecionando por target e com range ;3

    só fiz para o newbie num postar primeiro


    Client~Side

    Na frmEditor_Spell crie um chekbox com as configurações:


    Name: chkATele
    Caption: Teleporte


    Dê dois cliques e adicione:


    CÓDIGO:
    Código:
        If chkATele.Value = 0 Then
            Spell(EditorIndex).ATele = False
        Else
            Spell(EditorIndex).ATele = True
        End If



    Em Type Spellrec adicione no final:


    CÓDIGO:
    Código:
    ATele as Boolean



    Procure por:


    CÓDIGO:
    Código:
    .scrlRange.Value = Spell(EditorIndex).Range



    E abaixo adicione:


    CÓDIGO:
    Código:
            If Spell(EditorIndex).ATele Then
                .ATele.Value = 1
            Else
                .ATele.Value = 0
            End If



    Serve~side

    Em Type Spellrec adicione no final:


    CÓDIGO:
    Código:
    ATele as Boolean

    Procure por dentro da sub CastSpell:


    CÓDIGO:
    Código:
    Vital = Round((Vital * 0.7)) * Round((Player(index).Level * 1.14)) * Round((Stats.Intelligence + (Stats.Willpower / 2)))

    CASO NAO ACHE A DE CIMA PROCURE POR:

    Código:

    ' set the vital
    Vital = Spell(spellnum).Vital
    AoE = Spell(spellnum).AoE
    range = Spell(spellnum).range


    abaixo adicione:



    CÓDIGO:
    Código:
        If Spell(SpellNum).ATele Then
            If targetType = TARGET_TYPE_PLAYER Then
                PlayerWarp index, GetPlayerMap(target), GetPlayerX(target), GetPlayerY(target)
                SendAnimation GetPlayerMap(index), Spell(SpellNum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, index
                PlayerMsg index, "Você teletransportou para atras do seu inimigo!", BrightRed
                Exit Sub
            ElseIf targetType = TARGET_TYPE_NPC Then
                PlayerWarp index, GetPlayerMap(index), MapNpc(MapNum).NPC(target).x, MapNpc(MapNum).NPC(target).y
                SendAnimation GetPlayerMap(index), Spell(SpellNum).SpellAnim, 0, 0, TARGET_TYPE_PLAYER, index
                PlayerMsg index, "Você teletransportou para atras do seu inimigo!", BrightRed
                Exit Sub
            End If
            
            Dim xt, yt As Long
            If targetType = TARGET_TYPE_PLAYER Then
                xt = GetPlayerX(target)
                yt = GetPlayerY(target)
            Else
                xt = MapNpc(MapNum).NPC(target).x
                yt = MapNpc(MapNum).NPC(target).y
            End If
              
            If Not isInRange(Range, GetPlayerX(index), GetPlayerY(index), xt, yt) Then
                PlayerMsg index, "Target está longe!", BrightRed
                SendClearSpellBuffer index
            End If
            
        End If

    e pronto ;3 seja feliz
    ~Creditos: Kawanzii
                   Eclipse Origins

    atenção, este sistema está funcional mas não está completo e não vou disponibilizar ele completo. estude-o e melhore-o!

    Em breve estarei disponibilizando magia de invisibilidade(só para dx8), andar sobre a agua, magia de roubar magia rs e não sei se vou postar magia de controlar o player. estou disponibilizando apenas o que não irei usar para meu projeto. 
    não ajudo em projetos!
    caso achar algum erro o sistema ou não funcionar 
    skype:
        Pablokawan


    Última edição por kawanzii em Seg Dez 01, 2014 9:15 am, editado 3 vez(es)


    _________________
    Assinatura removida pela Staff
    ^ Tenho nova, surprise
    Magia de Teletransporte H2D9a9k
    newbie123
    newbie123
    Semi-Experiente
    Semi-Experiente


    Mensagens : 128
    Créditos : 35

    Magia de Teletransporte Empty Re: Magia de Teletransporte

    Mensagem por newbie123 Sex Nov 28, 2014 8:43 pm

    "só fiz para o newbie num postar primeiro "


    Olha so que legal, eu ia criar esse sistema domingo que é quando vou ta mais folgado, mas cê postou antes safado e.e


    De qualquer modo não testei mas +1 pra você Successful
    Pablo Kawan
    Pablo Kawan
    Experiente
    Experiente


    Mensagens : 480
    Créditos : 158

    Magia de Teletransporte Empty Re: Magia de Teletransporte

    Mensagem por Pablo Kawan Sex Nov 28, 2014 8:57 pm

    vlw <3 sei preve o futuro

    proximo sistema, teletransportar para local aleatorio ;v com sistema de detectar tile bloqueada


    _________________
    Assinatura removida pela Staff
    ^ Tenho nova, surprise
    Magia de Teletransporte H2D9a9k
    newbie123
    newbie123
    Semi-Experiente
    Semi-Experiente


    Mensagens : 128
    Créditos : 35

    Magia de Teletransporte Empty Re: Magia de Teletransporte

    Mensagem por newbie123 Sex Nov 28, 2014 9:04 pm

    vlw <3 sei preve o futuro

    proximo sistema, teletransportar para local aleatorio ;v com sistema de detectar tile bloqueada

    D:, safado e.e, domingo você me paga vou postar tutoriais mais rapido que você u_u


    OFF: Ta bom parei com o off topic e.e +1 cred so pra não ser um post sem nada e.e
    Pablo Kawan
    Pablo Kawan
    Experiente
    Experiente


    Mensagens : 480
    Créditos : 158

    Magia de Teletransporte Empty Re: Magia de Teletransporte

    Mensagem por Pablo Kawan Sex Nov 28, 2014 9:07 pm

    tenho uma engine com mais de 40 sistemas exclusivos ;v só que tenho pena de postar e todos ficarem com meus sistemas


    _________________
    Assinatura removida pela Staff
    ^ Tenho nova, surprise
    Magia de Teletransporte H2D9a9k
    kriteuss
    kriteuss
    Iniciante
    Iniciante


    Mensagens : 44
    Créditos : 2

    Magia de Teletransporte Empty Re: Magia de Teletransporte

    Mensagem por kriteuss Sex Nov 28, 2014 10:52 pm

    mt bom mano, tava procurando muito esse sistema
    vlw por compartilhar +1
    Pablo Kawan
    Pablo Kawan
    Experiente
    Experiente


    Mensagens : 480
    Créditos : 158

    Magia de Teletransporte Empty Re: Magia de Teletransporte

    Mensagem por Pablo Kawan Seg Dez 01, 2014 9:13 am

    *Sistema atualizado
     - Erro no local da colocação do script em outras versões do eo

    @off
    Ei, vc é Kiriteus da vison que tava pedindo um sistema desse ?


    _________________
    Assinatura removida pela Staff
    ^ Tenho nova, surprise
    Magia de Teletransporte H2D9a9k
    Spooky
    Spooky
    Membro Ativo
    Membro Ativo


    Mensagens : 267
    Créditos : 24

    Magia de Teletransporte Empty Re: Magia de Teletransporte

    Mensagem por Spooky Qua Dez 17, 2014 11:00 am

    Da esse erro aí parça :v

    Magia de Teletransporte 2eohamb


    _________________
    Sign
    Magia de Teletransporte Hticjn

    Sign¹:

    Sign²:
    avatar
    bielmegatrinf
    Iniciante
    Iniciante


    Mensagens : 75
    Créditos : 3

    Magia de Teletransporte Empty Re: Magia de Teletransporte

    Mensagem por bielmegatrinf Qua Dez 17, 2014 1:06 pm

    maninho parabéns! se esse sistema é oq eu entendi ser ele teleporta players por habilidade , tem que jeito mais facil de fazer isso para os iniciantes , se por uma variavel nas habilidades por eventos e por um processo paralelo nos eventos comuns chamada teletransporte pode fazer esse sistema facinho ,  pode até mesmo gravar o local pra se teleporta pra onde quiser quando quiser isso tudo apenas com eventos! se estiver se não entenderam .. e tiver alguem interessado eu posso ensinar! Very Happy
    Spooky
    Spooky
    Membro Ativo
    Membro Ativo


    Mensagens : 267
    Créditos : 24

    Magia de Teletransporte Empty Re: Magia de Teletransporte

    Mensagem por Spooky Sáb Dez 20, 2014 8:39 pm

    Quem estiver com erro no

    CÓDIGO:
    Código:
            If Spell(EditorIndex).ATele Then
                .ATele.Value = 1
            Else
                .ATele.Value = 0
            End If

    Mude para 

    CÓDIGO:
    Código:
            If Spell(EditorIndex).ATele Then
                .chkATele.Value = 1
            Else
                .chkATele.Value = 0
            End If


    _________________
    Sign
    Magia de Teletransporte Hticjn

    Sign¹:

    Sign²:

    Conteúdo patrocinado


    Magia de Teletransporte Empty Re: Magia de Teletransporte

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Nov 14, 2024 10:28 pm