Suporte ao desenvolvimento de jogos!


    Magia de Teletransporte

    Compartilhe
    avatar
    Pablo Kawan
    Experiente
    Experiente

    Mensagens : 485
    Créditos : 158

    Magia de Teletransporte

    Mensagem por Pablo Kawan em Sex Nov 28, 2014 9: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 10:15 am, editado 3 vez(es)


    _________________
    Assinatura removida pela Staff
    ^ Tenho nova, surprise
    avatar
    newbie123
    Semi-Experiente
    Semi-Experiente

    Mensagens : 128
    Créditos : 34

    Re: Magia de Teletransporte

    Mensagem por newbie123 em Sex Nov 28, 2014 9: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
    avatar
    Pablo Kawan
    Experiente
    Experiente

    Mensagens : 485
    Créditos : 158

    Re: Magia de Teletransporte

    Mensagem por Pablo Kawan em Sex Nov 28, 2014 9: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
    avatar
    newbie123
    Semi-Experiente
    Semi-Experiente

    Mensagens : 128
    Créditos : 34

    Re: Magia de Teletransporte

    Mensagem por newbie123 em Sex Nov 28, 2014 10: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
    avatar
    Pablo Kawan
    Experiente
    Experiente

    Mensagens : 485
    Créditos : 158

    Re: Magia de Teletransporte

    Mensagem por Pablo Kawan em Sex Nov 28, 2014 10: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
    avatar
    kriteuss
    Iniciante
    Iniciante

    Mensagens : 45
    Créditos : 2

    Re: Magia de Teletransporte

    Mensagem por kriteuss em Sex Nov 28, 2014 11:52 pm

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

    Mensagens : 485
    Créditos : 158

    Re: Magia de Teletransporte

    Mensagem por Pablo Kawan em Seg Dez 01, 2014 10: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
    avatar
    Spooky
    Membro Ativo
    Membro Ativo

    Mensagens : 262
    Créditos : 23

    Re: Magia de Teletransporte

    Mensagem por Spooky em Qua Dez 17, 2014 12:00 pm

    Da esse erro aí parça :v



    _________________
    Sign

    Sign¹:

    Sign²:

    bielmegatrinf
    Iniciante
    Iniciante

    Mensagens : 75
    Créditos : 3

    Re: Magia de Teletransporte

    Mensagem por bielmegatrinf em Qua Dez 17, 2014 2: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
    avatar
    Spooky
    Membro Ativo
    Membro Ativo

    Mensagens : 262
    Créditos : 23

    Re: Magia de Teletransporte

    Mensagem por Spooky em Sab Dez 20, 2014 9: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

    Sign¹:

    Sign²:

    Conteúdo patrocinado

    Re: Magia de Teletransporte

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sab Abr 21, 2018 9:56 pm