O tutorial mexe somente com o server side, desde já dou os créditos a thales12 pelo evento de xp e seguidamente para mim por adaptá-lo, colocando duração e alguns limites.
Na frmServer em qualquer das abas adicione 2 scrollbox, 2 labels, 2 command button e 1 timer com as seguintes propriedades:
Dê dois clicks na scrlXP e adicione:
Agora no cmdXP adicione:
No outro command button adicione:
Agora no Timer adicione:
Na sub PlayerAttackNpc procure por:
Acima adicione:
Pronto!! A duração é em minutos, coloquei um limite de 3 horas
Na frmServer em qualquer das abas adicione 2 scrollbox, 2 labels, 2 command button e 1 timer com as seguintes propriedades:
- Código:
1º Label
Name:lblXP
Caption: XP x1
1º Scrollbox
Name:scrlXP
Min:1
Max:20
2º Label
Name:lblTempo
Caption:Duração:
2º Scrollbox
Name:scrlTempo
Max:180
1º CommandButton
Name:cmdXP
Caption:Começar
2º Command Button
Caption:Terminar
Timer
Name:tmrXP
Enabled:False
Interval:60000
Dê dois clicks na scrlXP e adicione:
- Código:
lblXP.Caption = "XP x" & scrlXP.value
- Código:
If scrlTempo.value > 1 Then
lblTempo.Caption = "Duração:" & scrlTempo.value & " Mins"
Else
lblTempo.Caption = "Duração:" & scrlTempo.value & " Min"
End IF
Agora no cmdXP adicione:
- Código:
On Error Resume Next
GlobalMsg "Evento " & scrlXP.value & " x Ativado!", BrightCyan
tmrXP.Interval = tmrXP.Interval * scrlTempo.value
tmrXP.Enabled = True
No outro command button adicione:
- Código:
scrlXP.value = 1
Agora no Timer adicione:
- Código:
scrlXP.value = 1
scrlTempo.value = 1
On Error Resume Next
Call GlobalMsg("Fim do evento de experiencia!", White)
tmrXP.Enabled = False
Na sub PlayerAttackNpc procure por:
- Código:
' Make sure we dont get less then 0
If exp < 0 Then
exp = 1
End If
Acima adicione:
- Código:
If Not frmServer.scrlXP.value = 1 Then
exp = exp * frmServer.scrlXP.value
End If
Pronto!! A duração é em minutos, coloquei um limite de 3 horas