[Tutorial] Evento XP com conclusão

por dazateam Seg 23 Set 2013, 13:01

Bem um menbru ai pediu isso, pra fica mais "bunitinho" o game
tópico do "pedido" (Clique aqui)

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 " & txtEventoEXP.Text & " x Ativado!", 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

a parte do evento xp já está pronta, agora vamos para o enceramento dele..

crie um Timer com:

Código:: Name: TmrEventoEXP Interval: 1 Enabled: false

dentro dele adicione:

Código:: txtEventoEXP.Text = 1 On Error Resume Next Call GlobalMsg("Fim do evento de experiencia!", White) TmrEventoEXP.Enabled = False

agora crie 1 comandButon com:

Código:: Caption: Terminar

e nele adicione:

Código:: TmrEventoEXP.Enabled = True

qualquer erro informar aqui..

Créditos

Raizen ~ Dazateam (Rodrigo)

Thales12

por Eduardo Seg 23 Set 2013, 16:17

Me diga por que criar um timer , se o interval dele é 1? , não é mais fácil por dentro do button mesmo os cód?.

[Tutorial] Evento XP com conclusão

[Tutorial] Evento XP com conclusão

Re: [Tutorial] Evento XP com conclusão