Suporte no desenvolvimento de jogos


    Desaprender Magia

    thales12
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 318
    Créditos : 108
    Cash : 0

    Desaprender Magia Empty 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 !

    Desaprender Magia Thalesfan
    Desaprender Magia Mv0yg8

    Minha Sign:

    Desaprender Magia Zkqt5e
    Alexandrexs
    Alexandrexs
    Ocasional
    Ocasional

    Mensagens : 162
    Créditos : 42
    Cash : 0

    Desaprender Magia Empty Re: Desaprender Magia

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

    Good!! + 1 Cred Desaprender Magia 2620290309 Desaprender Magia 2620290309


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


    _________________
    Utilize nossa Fan Bar:
    Desaprender Magia Userbar2wr

    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]
    iCoke~
    iCoke~
    Ocasional
    Ocasional

    Medalhas : Desaprender Magia Trophy12
    Mensagens : 231
    Créditos : 15
    Cash : 0

    Ficha do personagem
    Nível: 1
    Experiência:
    Desaprender Magia Left_bar_bleue0/0Desaprender Magia Empty_bar_bleue  (0/0)
    Vida:
    Desaprender Magia Left_bar_bleue30/30Desaprender Magia Empty_bar_bleue  (30/30)

    Desaprender Magia Empty 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
    thales12
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 318
    Créditos : 108
    Cash : 0

    Desaprender Magia Empty 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. Desaprender Magia 2057188497

    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 Desaprender Magia 3912376022

    + Créd

    realmente isso e para Elysium ...
    e obrigado pelo credito. Desaprender Magia 364988687


    _________________
    Meu fã ? Meu Amigo ? Entao Use !

    Desaprender Magia Thalesfan
    Desaprender Magia Mv0yg8

    Minha Sign:

    Desaprender Magia Zkqt5e
    Nãner
    Nãner
    Iniciante
    Iniciante

    Mensagens : 64
    Créditos : 21
    Cash : 0

    Ficha do personagem
    Nível: 1
    Experiência:
    Desaprender Magia Left_bar_bleue0/0Desaprender Magia Empty_bar_bleue  (0/0)
    Vida:
    Desaprender Magia Left_bar_bleue30/30Desaprender Magia Empty_bar_bleue  (30/30)

    Desaprender Magia Empty Re: Desaprender Magia

    Mensagem por Nãner em Sex Set 09, 2011 1:03 pm

    Muito Bom!!!

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

    Mensagens : 1245
    Créditos : 48
    Cash : 0

    Desaprender Magia Empty 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

    Desaprender Magia MiB0H
    thales12
    thales12
    Membro Ativo
    Membro Ativo

    Mensagens : 318
    Créditos : 108
    Cash : 0

    Desaprender Magia Empty 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 !

    Desaprender Magia Thalesfan
    Desaprender Magia Mv0yg8

    Minha Sign:

    Desaprender Magia Zkqt5e

    Conteúdo patrocinado

    Desaprender Magia Empty Re: Desaprender Magia

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Seg Out 21, 2019 7:39 pm