MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[Tutorial] Evento XP com conclusão

2 participantes

Ir para baixo

[Tutorial] Evento XP com conclusão Empty [Tutorial] Evento XP com conclusão

Mensagem 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
dazateam
dazateam
Membro Vitalicio
Membro Vitalicio

Mensagens : 690

Ir para o topo Ir para baixo

[Tutorial] Evento XP com conclusão Empty Re: [Tutorial] Evento XP com conclusão

Mensagem 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?.
Eduardo
Eduardo
Membro Veterano
Membro Veterano

Mensagens : 1178

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos