Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Registrar-seRegistrar-se  Conectar-seConectar-se  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Compartilhe | 
 

 Sistema de Evento Por Experiencia e Tempo

Ir em baixo 
AutorMensagem
Lucas Roberto
Administrador
Administrador
avatar

Mensagens : 709

MensagemAssunto: Sistema de Evento Por Experiencia e Tempo   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.]
Voltar ao Topo Ir em baixo
http://universogamesmmo.forumeiros.com
 
Sistema de Evento Por Experiencia e Tempo
Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» TOP 5 - Jogos que resistiram ao tempo
» Xml Do mapa de Evento
» Hoppi Hotel - Sistema Lucrativo - Habbo Pirata - Gratis - Eventos - Promoções - Vagas na Equipe
» Habbo Sistema Lucrativo - Sem Lag - Totalmente Novo - Wireds 100& - Cassinos - Raros Semanais
» Futuro Evento em Curitiba

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Universo Games :: Tutoriais :: Tutoriais Aprovados-
Ir para: