Evento EXP

Meu Sistema EventoXp e to postando aki !

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 Ativo!! Agora você ganha " & txtEventoEXP.Text & " vezes mais de EXP!Aproveite.", 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 !