Desaprender Spell
Página 1 de 1
Desaprender Spell
Abra o Client~Side va na frmMirage procure pela picPlayerSpells crie 1 label com Caption: Esquecer Spell de 2 clicks e adicione:
dps procure por:
em baixo adicione:
dps procure por:
em baixo adicione:
SpellIndex = 1
dps no Server~Side procure por:
em baixo adicione:
Fim !
- 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:
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 !
Guardian- Administrador
- Mensagens : 31
Pontos : 51116
Reputação : 5
Data de inscrição : 02/11/2011
Idade : 32
Desineria RPG Maker
Nível de atividade:
(51104/100000)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|