Portal
Sistema de Classe Comprada na verdade ela só faz bloquear para não poder escolher a classe quando cria o personagem.
Pode ser usada junto ao sistema de Mudar de Classe Por item do Doolly.
Só pra lembrar esse sistema não é meu é do Thales que usou no projeto dele Naruto Kage e o Kaue Disponibilizou na MMORPGBR.
Primeiro Vá no cliente~side,depois frmMenu,click no botão classes,
Abaixo desse codigo:
Coloque:
Abra seu "Server.vbp" e procure por:
E nesta "Sub" depois de:
Creditos:
Kaue por disponibilizar,(MMORPGBR)
Thales12 por criar.
Lucas100vs Completar
Snoopy por postar aki
Pode ser usada junto ao sistema de Mudar de Classe Por item do Doolly.
Só pra lembrar esse sistema não é meu é do Thales que usou no projeto dele Naruto Kage e o Kaue Disponibilizou na MMORPGBR.
Primeiro Vá no cliente~side,depois frmMenu,click no botão classes,
Abaixo desse codigo:
- Codigo:
- Private Sub cmbClass_Click()
newCharClass = cmbClass.ListIndex
newCharSprite = 0
NewCharacterBltSprite
Coloque:
- Codigo:
- If cmbClass.ListIndex = NumeroDaClasse Then
cmbClass.ListIndex = 6
MsgBox "Classe Paga, Por Favor Ascesse nosso site para melhores informações"
End If
If cmbClass.ListIndex = NumeroDaClasse Then
cmbClass.ListIndex = 6
MsgBox "Classe Paga, Por Favor Ascesse nosso site para melhores informações"
End If
Abra seu "Server.vbp" e procure por:
- Codigo:
- Private Sub
HandleAddChar(ByVal Index As Long, ByRef Data() As Byte, ByVal StartAddr
As Long, ByVal ExtraVar As Long)
E nesta "Sub" depois de:
- Codigo:
- ' Check if name is already in use
If FindChar(Name) Then
Call AlertMsg(Index, "Sorry, but that name is in use!")
Exit Sub
End If
- Codigo:
- 'Check if class is vip or blocked by any way
If Class = 1 Then ' 1 é o número da classe bloqueada
Call AlertMsg(Index, "Sorry, but that class is VIP!")
Exit Sub
End If
Creditos:
Kaue por disponibilizar,(MMORPGBR)
Thales12 por criar.
Lucas100vs Completar
Snoopy por postar aki
Última edição por Snoopy em Sáb Fev 15, 2014 11:12 pm, editado 1 vez(es)
.
