[ALL]Evento de Experiência [funcionando] Para Eclipse Evolution

por wilclefi Qui 18 Fev 2010, 21:00

--Criação do Evento de experiência para Eclipse Evolution--

Server~Side
Vá em frmServer na aba control painel ou control panel [pra quem usa Eclipse Evolution]
aumente um pouco o tamanho do server para criar uma frame com qualquer nome.

Caption= Evento de Experiencia

Dentro da frame Crie uma HScrollbar

Name=scrlEventos

Dê 2 click's na HScrollbar e coloque este código:

Código:: Dim lol As Long lol = scrlEventos.Value lblEventos.caption = "Exp " & lol & "x"

Ainda na frame crie uma Label

Name=lblEventos

Caption=Exp 0x

Agora crie um CheckBox no frmserver

Name=Ativarevento

em frente ao seu Evento, Dê 2 clicks no seu checkBox e adicione isto:

Código:: If Ativarevento.Value = 0 Then scrleventos.Enabled = True Call GlobalMsg("Evento de experiência finalizado!", White) Else scrleventos.Enabled = False Call GlobalMsg("Evento de experiência, começou, o coeficiente multiplicador é o: " & scrleventos.Value, White) End If

Dps aperte Ctrl+F e colo que na opition Current Project e escreva Sub AttackNpc.
[ALL]Evento de Experiência [funcionando] Para Eclipse Evolution 24188c75b4cfee9924e45b6cf575964b

[ALL]Evento de Experiência [funcionando] Para Eclipse Evolution 24188c75b4cfee9924e45b6cf575964b

Na "Sub AttackNpc" depois da linha:

Código:: If Exp < 0 Then Exp = 1 End If

Adicione este código:
PS: Eu botei para todos os acessos receberem EXP

Código:: 'Evento de Experiencia If GetPlayerAccess(Attacker) = 0 And frmServer.Ativarevento.Value = 1 Then Exp = Exp * frmServer.scrlEventos.Value Else Exp = Exp End If 'Evento de Experiencia If GetPlayerAccess(Attacker) = 1 And frmServer.Ativarevento.Value = 1 Then Exp = Exp * frmServer.scrlEventos.Value Else Exp = Exp End If 'Evento de Experiencia If GetPlayerAccess(Attacker) = 2 And frmServer.Ativarevento.Value = 1 Then Exp = Exp * frmServer.scrlEventos.Value Else Exp = Exp End If 'Evento de Experiencia If GetPlayerAccess(Attacker) = 3 And frmServer.Ativarevento.Value = 1 Then Exp = Exp * frmServer.scrlEventos.Value Else Exp = Exp End If 'Evento de Experiencia If GetPlayerAccess(Attacker) = 4 And frmServer.Ativarevento.Value = 1 Then Exp = Exp * frmServer.scrlEventos.Value Else Exp = Exp End If 'Evento de Experiencia If GetPlayerAccess(Attacker) = 5 And frmServer.Ativarevento.Value = 1 Then Exp = Exp * frmServer.scrlEventos.Value Else Exp = Exp End If

Olha como Fico :
[ALL]Evento de Experiência [funcionando] Para Eclipse Evolution 3d6da4c806d51158b1be690ea169abd5

Qual quer erro e duvida posta ai Galera

alanbyakuia: por criar o tutorial
skyper: por ajuda na parte do botar em uma outra sessao so que para Ely
Wilclefison EU XD: Por dar uma ajeita e para fazer fumfa melhor no Eclipse Evolution xD

por celiojedi Sex 19 Fev 2010, 13:09

Perfeito para Evento double Xp do meu servidor valeu meu brother mais um pto para vc !!

por St4rk Ter 09 Mar 2010, 11:59

Cara,eu fiz isso bem mais facil,você feis totalmente complicado,o antigo sim fuciona a diferença é um erro no comando,minha engine tem esse sistema e tem vip por tempo Very Happy