1 Evento de EXP Seg 14 Jan 2013, 12:43
Halt
Administrador
thales12 escreveu:Bom .. Cabei de fazer o EventoXp e to postando aki ! :)
Abra o Server~Side va na frmServer na aba Control crie 1 txtbox com :
Name: txtEventoEXP
Caption: 0
de 2 clicks e adicione:
- Código:
If Not IsNumeric(txtEventoEXP.Text) Then
txtEventoEXP.Text = "0"
End If
volte a frmServer e do lado da txt crie 1 commandButton com :
Caption: Começar
de 2 clicks nele e adicione:
- Código:
On Error Resume Next
GlobalMsg "Evento Ativado! Agora você ganhara " & txtEventoEXP.Text & " vezes mais de XP!", BrightCyan
na modCombat na Sub PlayerAttackNPC procure por:
- Código:
' Make sure we dont get less then 0
If Exp < 0 Then
Exp = 1
End If
e em cima adicione:
- Código:
If Not frmServer.txtEventoEXP.Text = 0 Then
exp = exp * frmServer.txtEventoEXP.Text
End If
na modCombat na Sub PlayerAttackPlayer procure por:
- Código:
' Make sure we dont get less then 0
If exp < 0 Then
exp = 0
End If
em cima adicione:
- Código:
If Not frmServer.txtEventoEXP.Text = 0 Then
exp = exp * frmServer.txtEventoEXP.Text
End If
Créditos: Thales12 por fazer o sistema, tutorial e postar ! :)