Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

Sistema de Evento Por Experiencia e Tempo

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial Sistema de Evento Por Experiencia e Tempo

Mensagem por Lucas Roberto em Qui 02 Fev 2017, 14:13

Explicação: Este sistema serve para quando colocado o tempo e o numero do exp no servidor, iniciará um evento de Experiência com um determinado tempo para acabar...
Go...
Só usaremos o server side...
Vá na sua frmServer
Faça igual está na imagem..
[Você precisa estar registrado e conectado para ver esta imagem.]

Código:
1 Scroll nome = scrlXP
1 Scroll nome = scrlTempo
1 Timer nome = tmrXP
1 Button nome = cmdXP
1 Button nome = cmdFim
1 Label nome = lblXP
1 Label nome = lblTempoEXP
1 Label nome = lblXPV

dê dois cliques no scrlXP e adicione:
Código:
lblXP.Caption = "XP x" & scrlXP.Value

depois disso, dê dois cliques no scrlTempo e adicione:
Código:
If scrlTempo.Value > 1 Then
lblTempoEXP.Caption = scrlTempo.Value
End If

dê dois cliques no tmrXP e adicione:
Código:
On Error Resume Next
   lblTempoEXP.Caption = lblTempoEXP.Caption - 1

If lblTempoEXP.Caption = "0" Then
  Call GlobalMsg("[ ! ]O Evento de Experiência acabou!", BrightBlue)
       tmrXP.Enabled = False
   lblTempoEXP.Caption = 0
    lblXPV.Caption = 1
   scrlXP.Value = 0
  scrlTempo.Value = 0
End If

abra o cmdXP e adicione:
Código:
On Error Resume Next
GlobalMsg "[Evento]Evento " & scrlXP.Value & " x Ativado!", BrightBlue
lblXPV.Caption = scrlXP.Value
tmrXP.Enabled = True

no cmdFim adicione:
Código:
scrlXP.Value = 1
scrlTempo.Value = 0
lblXPV.Caption = 1
lblTempoEXP.Caption = 0
GlobalMsg "[ ! ]O Evento foi terminado por um Administrador!", BrightBlue

agora, no modGameLogic procure por:
Código:
' Checar se está em grupo, se sim, dividir experiência.
        If Player(Attacker).InParty = 0 Then
            If GetPlayerLevel(Attacker) = MAX_LEVEL Then
                Call SetPlayerExp(Attacker, Experience(MAX_LEVEL))
                Call BattleMsg(Attacker, "Você não pode mais ganhar experiência!", BrightBlue, 0)
            Else
                Call SetPlayerExp(Attacker, GetPlayerExp(Attacker) + Exp)
                Call BattleMsg(Attacker, "Você ganhou " & Exp & " de experiência.", BrightBlue, 0)
            End If

Acima disso, adicione:
Código:
'Evento de Exp Por tempo
            If Not frmServer.lblXPV.Caption = 1 Then
                   Exp = Exp * frmServer.lblXPV.Caption
                End If

FIM !...
Créditos: iBlaz3

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum