Desaprender Magia

por **thales12** Sáb 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.

por Alexandrexs Sáb Set 03, 2011 11:49 am

Good!! + 1 Cred Desaprender Magia 2620290309

por iCoke~ Sáb 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

por **thales12** Sáb 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 '-'