[Sistema]Evento de Experiencia Para Eclipse.

por athos000 Qui 28 Nov 2013, 13:05

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, e com caption: Evento de Experiência

Dentro da frame Crie uma HScrollbar com o nome de: scrlEventos
Dê 2 click's na HScrollbar e coloque este código:
Código:

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

Ainda na frame crie uma Label com as seguintes informações:
Código:

Código:: Name=lblEventos Caption=Exp 0x

Agora crie um CheckBox na mesmo frame com o nome: Ativarevento
Dê 2 clicks no seu checkBox e adicione isto:
Código:

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

Agora na Sub AttackNpc depois da linha:
Código:

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

Adicione este código:
Código:

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

Pronto! Agora é so compilar e você ja tem um ótimo Sistema de Evento de Experiência.

Creditos
AthosMelo

Mas 1 Cred Obrigado Pela atençao ate mas.

por Eduardo Qui 28 Nov 2013, 14:27

Me pergunto para que tantos códigos inúteis que você colocou aiii, eu não usaria isso. Sem ofensas já tém varios tutoriais de evento xp aqui no fórum para Eclipse Origins, então não tinha nescessidade de você postar isso. Até por que se isso funcionar que é muito dificil de aconteçer, eu não o recomendaria.

por athos000 Qui 28 Nov 2013, 15:49

vei na boa, so quiz ajudar Neutral

por Eduardo Qui 28 Nov 2013, 18:40

'0' continue assim, sempre querendo ajudar. Mas ajude de uma maneira útil. Desculpe se fui grosso mas eu disse apenas a verdade, os códigos estão ruins.

Boa sorte e que melhore na programação.

por athos000 Qui 28 Nov 2013, 19:39

nao foi grosso n cara na boa ;)e pq aprendi a pouco tempo a programar.

por Pablo Qui 28 Nov 2013, 22:46

Em vez de usar o sinal de "=", utilize ">=", que irá servir do número inicial até os demais.
Espero que tenha entendido.
Abraços.

por Fogomax Sex 29 Nov 2013, 10:44

Sim, isso faria o código pesar menos, exigindo menos do servidor.
O código ficaria assim:

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

por Conteúdo patrocinado

[Sistema]Evento de Experiencia Para Eclipse.

[Sistema]Evento de Experiencia Para Eclipse.

Re: [Sistema]Evento de Experiencia Para Eclipse.

Re: [Sistema]Evento de Experiencia Para Eclipse.

Re: [Sistema]Evento de Experiencia Para Eclipse.

Re: [Sistema]Evento de Experiencia Para Eclipse.

Re: [Sistema]Evento de Experiencia Para Eclipse.

Re: [Sistema]Evento de Experiencia Para Eclipse.

Re: [Sistema]Evento de Experiencia Para Eclipse.