Suporte ao desenvolvimento de jogos!


    Desaprender Magia

    Compartilhe
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Desaprender Magia

    Mensagem por thales12 em Sab Set 03, 2011 11:20 am

    Abra o Client~Side va na frmMirage procure pela picPlayerSpells crie 1 label com Caption: Esquecer Spell de 2 clicks e adicione:

    Código:
    If Player(MyIndex).Spell(SpellIndex) > 0 Then
    If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
    If MsgBox("Você tem certeza que quer deletar essa magia ?", vbYesNo, "Forget Spell") = vbNo Then Exit Sub
    Call SendData("forgetspell" & SEP_CHAR & SpellIndex & SEP_CHAR & END_CHAR)
    End If
    Else
    Call AddText("Não existe Spell nesse slot.", BrightRed)
    End If
    dps procure por:

    Código:
    Public Inventory As Long
    em baixo adicione:

    Código:
    Public SpellIndex As Long
    dps procure por:

    Código:
    frmMirage.lstSpells.ListIndex = 0
    em baixo adicione:

    Código:
    SpellIndex = 1

    dps no Server~Side procure por:

    Código:
    Case "achat"
                N = Player(Index).ChatPlayer

                If N < 1 Then
                    Call PlayerMsg(Index, "No one requested to chat with you.", Pink)
                    Exit Sub
                End If

                If Player(N).ChatPlayer <> Index Then
                    Call PlayerMsg(Index, "Chat failed.", Pink)
                    Exit Sub
                End If
                Call SendDataTo(Index, "PPCHATTING" & SEP_CHAR & N & SEP_CHAR & END_CHAR)
                Call SendDataTo(N, "PPCHATTING" & SEP_CHAR & Index & SEP_CHAR & END_CHAR)
                Exit Sub
    em baixo adicione:

    Código:
     Case "forgetspell"
    ' Spell slot
    N = CLng(Parse(1))

    ' Prevent subscript out of range
    If N <= 0 Or N > MAX_PLAYER_SPELLS Then
    Call HackingAttempt(Index, "Invalid Spell Slot")
    Exit Sub
    End If

    With Player(Index).Char(Player(Index).CharNum)
    If .Spell(N) = 0 Then
    Call PlayerMsg(Index, "Não existe Spell nesse slot.", Red)

    Else
    Call PlayerMsg(Index, "Você apagou a spell """ & Trim$(Spell(.Spell(N)).Name) & """", Green)

    .Spell(N) = 0
    Call SendSpells(Index)
    End If
    End With
    Exit Sub
    Fim !

    Créditos: a mim Thales12 por fazer o tutorial.


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    Alexandrexs
    Ocasional
    Ocasional

    Mensagens : 165
    Créditos : 42

    Re: Desaprender Magia

    Mensagem por Alexandrexs em Sab Set 03, 2011 11:49 am

    Good!! + 1 Cred


    Última edição por Alexandrexs em Sab Set 03, 2011 12:59 pm, editado 1 vez(es)


    _________________
    Utilize nossa Fan Bar:


    Código:
    [img]http://imageshack.us/a/img89/9804/userbar2wr.png[/img]

    Nosso Fórum: ( Em construção mas ativo )
    [url=darkslayer.forumeiros.com]Dark Slayer - Fórum[/url]
    avatar
    iCoke~
    Ocasional
    Ocasional

    Medalhas :
    Mensagens : 225
    Créditos : 15

    Re: Desaprender Magia

    Mensagem por iCoke~ em Sab Set 03, 2011 12:20 pm

    @Alexandrexs
    Cara se não me engano esse tutorial é para Elysium Engine e não RMXP D:

    @Thales12
    Legal o tutorial Successful

    + Créd
    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Re: Desaprender Magia

    Mensagem por thales12 em Sab Set 03, 2011 12:23 pm

    sem ofença, mais é mais facil ir no banco de dados, selecionar a classe e
    deletar a magia ou criar um evento ir em mudar habilidade selecione o
    personagem e vai em esqueser e depois escolhe a habilidade e da um ok.

    Eu acho que assim é mais facil em desaprender magia.

    Mesmo assim, + 1 Credito por disponibilizar.

    '-', tu e maluco ? e.e
    isso e para o player q tem spell, sem querer ele aprende a magia 2 vezes quer apagar ela, vai nas spell e apaga a outra... '-'
    e esse geito q tu falo nao pega no elysium .. '-'
    e obrigado pelo cred ...

    isso e para elysium '-'

    @Alexandrexs
    Cara se não me engano esse tutorial é para Elysium Engine e não RMXP D:

    @Thales12
    Legal o tutorial

    + Créd

    realmente isso e para Elysium ...
    e obrigado pelo credito.


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:

    avatar
    Renanr
    Iniciante
    Iniciante

    Mensagens : 57
    Créditos : 15

    Re: Desaprender Magia

    Mensagem por Renanr em Sex Set 09, 2011 1:03 pm

    Muito Bom!!!

    Parabéns tutorial bem feito. +1
    avatar
    DeaN
    Colaborador
    Colaborador

    Mensagens : 1287
    Créditos : 48

    Re: Desaprender Magia

    Mensagem por DeaN em Sex Set 09, 2011 2:30 pm

    Muito loco este sistema da para imaginar grades ideias com ele e sistemas bem bacanas.
    1+


    _________________
    Dean, Programador Geral :)

    Contato: Skype:matucarvalho e Facebook
    The Enze - Vulzt

    Shield Block
    Anti-Cheat para jogos de FPS, agora vou adaptar para jogos de RPG principalmente para o RMXP.
    www.shieldblock.net
    fb.com/shieldblockoficial

    avatar
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 312
    Créditos : 104

    Re: Desaprender Magia

    Mensagem por thales12 em Sex Set 09, 2011 2:41 pm

    @DeaN escreveu:Muito loco este sistema da para imaginar grades ideias com ele e sistemas bem bacanas.
    1+

    Realmente, isso me deu ate 1 ideia .. vou fazer 1 sistema aki dps vou postar aki , +1 para vc dean por me dar essa ideia ! :)


    _________________
    Meu fã ? Meu Amigo ? Entao Use !




    Minha Sign:


    Conteúdo patrocinado

    Re: Desaprender Magia

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Dom Abr 22, 2018 3:00 pm