Evento de XP

por thales12 Qui Set 08, 2011 7:43 pm

Bom .. Cabei de fazer o EventoXp e to postando aki ! Smile

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 ! Smile

por **spectrus** Qui Set 08, 2011 7:47 pm

Boa uso e aprovo
so que o meu e diferente!

por thales12 Qui Set 08, 2011 7:48 pm

Boa uso e aprovo
so que o meu e diferente!

como q e o teu ? e.e

por Conteúdo patrocinado

Re: Evento de XP