Evento de XP

Tutorial Simples, Mas que vai ajudar muito o pessoal que não sabe fazer.

Abra o Server~Side va na frmServer na aba Control crie 1 txtbox com :

Citação :

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 :

Citação :

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, Vinicius Neon por postar aqui na UNIVERSO.