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

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

[ALL]Evento de Experiência Modivicado [funcionando]

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

Luucas Robeerto


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

Caption= Evento de Experiencia
Dentro da frame Crie uma TextBox

Name=scrlEventos

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

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

Ainda na frame crie uma Label

Name=lblEventos

Caption=Exp 0x

Agora crie um CheckBox no frmserver em frente ao seu Evento, Dê 2 clicks no seu checkBox e adicione isto:

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

Na "Sub AttackNpc" depois da linha:

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

Adicione este código:

Código:
 'Evento de Experiencia
                If GetPlayerAccess(Attacker) = 0 And frmServer.NOMEBOX.Value = 1 Then
            Exp = Exp * frmServer.scrlEventos.Text
        Else
            Exp = Exp
        End If

Caso você queira colocar o evento para os VIPs também, éah soh adicionar este código abaixo do código acima:

Código:
 'Evento de Experiencia
                If GetPlayerAccess(Attacker) = 1 And frmServer.NOMEBOX.Value = 1 Then
            Exp = Exp * frmServer.scrlEventos.Text
        Else
            Exp = Exp
        End If

OBS: NOMEBOX é para você colocar o nome do seu CheckBox qe você criou.

Explicando o Que Mudou :

Em vez de por HScrollbar
Pois TextBox

Aqui está um exemplo de como ficará seu servidor depois de tudo pronto!

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

Créditos :
ADM_DANTE: por editar e corrigir Very Happy
Peguei esse tuturial do skyper so fisso algumas mudança entao Credito ao skyper Por Criar o Tuturial


Creditos Lucas Roberto Idea


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

giovani18


Membro
Membro
mano nao to acahndo isso aqui nao

http://masterdbz.xpg.com.br

RicardoxD


Membro
Membro
Você ta procurando por:

Código:
Sub AttackNpc

?

giovani18


Membro
Membro
sim procurei tambem pelo codigo tambem nao achei

http://masterdbz.xpg.com.br

RicardoxD


Membro
Membro
Mais se coloco pra procura pelo pretjeto intero?

giovani18


Membro
Membro
nao sei como faz pra procura

http://masterdbz.xpg.com.br

RicardoxD


Membro
Membro
Control + F e em MakeProject (Eu acho)

giovani18


Membro
Membro
tem isso nao (makeprject)

http://masterdbz.xpg.com.br

Luucas Robeerto


Fundador
Fundador
'-'

Aperte no seu teclado

Ctrl - F

Pronto apareçera um Painel


_______________________________________________________________________________________________________

[Você precisa estar registrado e conectado para ver esta imagem.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

giovani18


Membro
Membro
vlw consegui ja

http://masterdbz.xpg.com.br

NuKeNiN


Membro
Membro
vlw +1 cred

giovani18


Membro
Membro
ai fui fazer isso deu esse erro aqui

'Evento de Experiencia
If GetPlayerAccess(Attacker) = 0 And frmServer.NOMEBOX.Value = 1 Then
Exp = Exp * frmServer.scrlEventos.Text
Else
Exp = Exp
End If

http://masterdbz.xpg.com.br

RenanR


Membro
Membro
em NOMEBOX, você tem que botar o nome do checkbox que você criou la no server.

http://mmomakerbr.ativoforum.com

giovani18


Membro
Membro
vlw ja consegui so vi isso depois boiei mesmo^^

http://masterdbz.xpg.com.br

nicholas


Membro
Membro
Desculpe pelo off mais:

O Nome do topico esta errado "modivicado"

-=(У$trØy£r$)=-


Membro
Membro
Belo tuto^^

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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