[ALL]Sistema De 3 VIP (NOVO)
+16
ismael
hardsfree
Ricardo
alexandre
Thales12
nicholas
Master-Man
pedr513dc
Pablo
playsson14z
Lendário
bioraulteixei
Lucas Roberto
V-Force
DshFox
willa
20 participantes
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 2
Página 1 de 2 • 1, 2 
[ALL]Sistema De 3 VIP (NOVO)
por willa Seg 18 Out 2010, 20:07
Depois De Observar o Sistema De Dois Vip,Penssei em tentar faser um SisteMa De Tres VIP.Então Como Ninguem criou um para mostrar.Vamos Lá.
Abra Seu Cliente~Side
Procure Por:
Mude Para:
Logo Abaixo Voce Verá Isso (Use Caso Vc Queira Que Vips não Criem GUILD) :
(Se Sim) Mude Para :
Na modGameLogic Procure Por:
Mude Para :
Feito Isso Procure Por:
Mude Para:
Agora No modGameLogic, Sub BltPetName(ByVal Index As Long), procure por:
Muda ela Para:
Apos Isso no modGameLogic, Sub BltPlayerName(ByVal Index As Long), procure por:
Mude Ela Para:
Agora Abra SeuSever~Side.
No modGameLogic procure por:
Explicação:
VIP (jogador com acesso 1) não pode apertar F1;
VIP 2 (jogador com acesso 2) não pode apertar F1;
VIP (jogador com acesso 3) não pode apertar F1;
VIP e VIP 2 nem VIP 3 não pode Kickar,Banir,Editar mapas nem Criar GUILD;
Nome do jogador (e também do PET) VIP (jogador com acesso 1), agora é Azul;
Nome do jogador (e também do PET) VIP2 (jogador com acesso 2), agora é Amarelo;
Nome do jogador (e também do PET) VIP3 (jogador com acesso 3), agora é Verde Claro;
Jogador VIP ganha 2 vezes mais esperiência que jogador "free";
Jogador VIP 2 ganha 3 vezes mais esperiência que jogador "free";
Jogador VIP 3 ganha 4 vezes mais esperiência que jogador "free";
OBS: Concerteza tera os Bugs que Tem No VIP2,eu ja Fiz Alguns Turiais Arrumando elles,Caso Vc Faça o Sistema De Tres VIP's,para Arrumar os Bugs Basta Mudar o Acesso 2 Para 3 e Seguir o Tutorial Normal!
Creditos
--> Creditos :
Willame
Abra Seu Cliente~Side
Procure Por:
- Código:
Call CheckInput(0, KeyCode, Shift)
If KeyCode = vbKeyF1 Then
If Player(MyIndex).Access > 0 Then
frmadmin.Visible = False
frmadmin.Visible = True
End If
End If
Mude Para:
- Código:
Call CheckInput(0, KeyCode, Shift)
If KeyCode = vbKeyF1 Then
If Player(MyIndex).Access > 3 Then
frmadmin.Visible = False
frmadmin.Visible = True
End If
End If
Logo Abaixo Voce Verá Isso (Use Caso Vc Queira Que Vips não Criem GUILD) :
- Código:
' The Guild Creator
If KeyCode = vbKeyF4 Then
If Player(MyIndex).Access > 0 Then
frmGuild.Show vbModeless, frmMirage
End If
End If
(Se Sim) Mude Para :
- Código:
' The Guild Creator
If KeyCode = vbKeyF4 Then
If Player(MyIndex).Access > 3 Then
frmGuild.Show vbModeless, frmMirage
End If
End If
Na modGameLogic Procure Por:
- Código:
' // Moniter Admin Commands //
If GetPlayerAccess(MyIndex) > 0 Then
' day night command
If LCase(Mid(MyText, 1, 9)) = "/dianoite" Then
If GameTime = TIME_DAY Then
GameTime = TIME_NIGHT
Else
GameTime = TIME_DAY
End If
Call SendGameTime
MyText = vbNullString
Exit Sub
End If
Mude Para :
- Código:
' // Moniter Admin Commands //
If GetPlayerAccess(MyIndex) > 3 Then
' day night command
If LCase(Mid(MyText, 1, 9)) = "/dianoite" Then
If GameTime = TIME_DAY Then
GameTime = TIME_NIGHT
Else
GameTime = TIME_DAY
End If
Call SendGameTime
MyText = vbNullString
Exit Sub
End If
Feito Isso Procure Por:
- Código:
' // Mapper Admin Commands //
If GetPlayerAccess(MyIndex) >= ADMIN_MAPPER Then
' Location
If LCase(Mid(MyText, 1, 4)) = "/loc" Then
Call SendRequestLocation
MyText = vbNullString
Exit Sub
End If
Mude Para:
- Código:
' // Mapper Admin Commands //
If GetPlayerAccess(MyIndex) > 3 Then
' day night command
If LCase(Mid(MyText, 1, 9)) = "/dianoite" Then
If GameTime = TIME_DAY Then
GameTime = TIME_NIGHT
Else
GameTime = TIME_DAY
End If
Call SendGameTime
MyText = vbNullString
Exit Sub
End If
Agora No modGameLogic, Sub BltPetName(ByVal Index As Long), procure por:
- Código:
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
Color = QBColor(Brown)
Case 1
Color = QBColor(DarkGrey)
Case 2
Color = QBColor(Cyan)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
Muda ela Para:
- Código:
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
Color = QBColor(Brown)
Case 1
Color = QBColor(BrightBlue)
Case 2
Color = QBColor(Darkgrey)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
Apos Isso no modGameLogic, Sub BltPlayerName(ByVal Index As Long), procure por:
- Código:
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
Color = QBColor(Brown)
Case 1
Color = QBColor(Grey)
Case 2
Color = QBColor(Cyan)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
Mude Ela Para:
- Código:
' Check access level
If GetPlayerPK(Index) = NO Then
Select Case GetPlayerAccess(Index)
Case 0
Color = QBColor(Brown)
Case 1
Color = QBColor(BrightBlue)
Case 2
Color = QBColor(Yellow)
Case 3
Color = QBColor(BrightGreen)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
Agora Abra SeuSever~Side.
No modGameLogic procure por:
- Código:
' Ter certeza que não dar experiência menor que 0.
If Exp < 0 Then
Exp = 1
End If
- Código:
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
'XP extra para usuários VIPs 2 D:
If GetPlayerAccess(Attacker) >= 2 Then
Exp = Exp * 3
Else
Exp = Exp * 1
End If
'XP extra para usuários VIPs 3 D:
If GetPlayerAccess(Attacker) >= 3 Then
Exp = Exp * 4
Else
Exp = Exp * 1
End If
Explicação:
VIP (jogador com acesso 1) não pode apertar F1; VIP 2 (jogador com acesso 2) não pode apertar F1; VIP (jogador com acesso 3) não pode apertar F1; VIP e VIP 2 nem VIP 3 não pode Kickar,Banir,Editar mapas nem Criar GUILD; Nome do jogador (e também do PET) VIP (jogador com acesso 1), agora é Azul; Nome do jogador (e também do PET) VIP2 (jogador com acesso 2), agora é Amarelo; Nome do jogador (e também do PET) VIP3 (jogador com acesso 3), agora é Verde Claro; Jogador VIP ganha 2 vezes mais esperiência que jogador "free"; Jogador VIP 2 ganha 3 vezes mais esperiência que jogador "free"; Jogador VIP 3 ganha 4 vezes mais esperiência que jogador "free";OBS: Concerteza tera os Bugs que Tem No VIP2,eu ja Fiz Alguns Turiais Arrumando elles,Caso Vc Faça o Sistema De Tres VIP's,para Arrumar os Bugs Basta Mudar o Acesso 2 Para 3 e Seguir o Tutorial Normal!
Creditos
--> Creditos :
Willame Última edição por willa em Seg 18 Out 2010, 20:19, editado 2 vez(es)
willa- Membro Junior
- Mensagens : 80
DshFox- Membro Vitalicio
- Mensagens : 614
Re: [ALL]Sistema De 3 VIP (NOVO)
por V-Force Seg 18 Out 2010, 20:13
kra +1 de Cred, mas qualquer ja deve ter feito esse tutorial no game dele ja que para isso eh soh ter lógica, ou melhor soh mudar os numero dos acessos
por isso que prefiro o meu sistema de vip, que diferente desse eh um acesso especial que não afeta o acesso de 1 a 15, i eh por tempo
por isso que prefiro o meu sistema de vip, que diferente desse eh um acesso especial que não afeta o acesso de 1 a 15, i eh por tempo
V-Force- Administrador V-Force
- Mensagens : 933
willa- Membro Junior
- Mensagens : 80
Re: [ALL]Sistema De 3 VIP (NOVO)
por Lucas Roberto Ter 19 Out 2010, 12:36
Hum o unica coisa que ele vez
vou tirar o accesso para nao editar o server e xp
Nada de novo ae
mais esta falendo
Lembrando que esse sistema tem no meu server
e tinha comversando com um dos imtegrante da staff dele que ia fazer esse sistema para mim "Jose"
e ainda nao esta igual o meu
mais uma coizinha se nao tiver sistema de server estavel o Serrver da erro Ok
pessoal muito EXP^^
vou tirar o accesso para nao editar o server e xp
Nada de novo ae
mais esta falendo
Lembrando que esse sistema tem no meu server
e tinha comversando com um dos imtegrante da staff dele que ia fazer esse sistema para mim "Jose"
e ainda nao esta igual o meu
mais uma coizinha se nao tiver sistema de server estavel o Serrver da erro Ok
pessoal muito EXP^^
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
Re: [ALL]Sistema De 3 VIP (NOVO)
por willa Ter 19 Out 2010, 16:16
Hum...esse Sistema eu fiz so para ver se funcionava mesmo!
Como vc disse não tem nada de novo é a mesma coisa do que o dois,dando preferencia ao acesso 3.
Eu não sabia que vc tinha um sistema parecido,e não tentei faser igual de niguem.
Fiz Mal em Faser Esse Tuto.
Como vc disse não tem nada de novo é a mesma coisa do que o dois,dando preferencia ao acesso 3.
Lembrando que esse sistema tem no meu server
e tinha comversando com um dos imtegrante da staff dele que ia fazer esse sistema para mim "Jose"
e ainda nao esta igual o meu
Eu não sabia que vc tinha um sistema parecido,e não tentei faser igual de niguem.
Fiz Mal em Faser Esse Tuto.
Última edição por willa em Ter 19 Out 2010, 16:20, editado 1 vez(es)
willa- Membro Junior
- Mensagens : 80
Re: [ALL]Sistema De 3 VIP (NOVO)
por Lucas Roberto Ter 19 Out 2010, 16:17
Fica Trank's Manow
^^ so falei que tem esse sistema com mais funçao no meu projeto
^^ Esta legal
+1 de CRED
^^ so falei que tem esse sistema com mais funçao no meu projeto
^^ Esta legal
+1 de CRED
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
willa- Membro Junior
- Mensagens : 80
Re: [ALL]Sistema De 3 VIP (NOVO)
por bioraulteixei Dom 24 Out 2010, 15:55
eu coloquei isso no meu server q eu saiba eu fui o primeiro a fazer isso e tem q fazer o tuto de serve estavel
bioraulteixei- Novato
- Mensagens : 26
Re: [ALL]Sistema De 3 VIP (NOVO)
por Lendário Dom 24 Out 2010, 16:11
oO VIP de 3. Até onde vocês vão com VIP em? hsaushaushas
Lendário- Administrador Lendário
- Mensagens : 1958
playsson14z- Membro Junior
- Mensagens : 91
-
Re: [ALL]Sistema De 3 VIP (NOVO)
por Pablo Dom 24 Out 2010, 18:33
aff tpw n gostei mt do tuto pq
os cara ja iam saber q era so mudar o 2 para 3 né xD
mais foi bom em ter postado e so pra dar uma marca pro cara q falou q tem ae
eu tbm tinha no meu antigo dbz a muito tempo atras '-'
os cara ja iam saber q era so mudar o 2 para 3 né xD
mais foi bom em ter postado e so pra dar uma marca pro cara q falou q tem ae
eu tbm tinha no meu antigo dbz a muito tempo atras '-'
Pablo- Moderador Global
- Mensagens : 1371
Re: [ALL]Sistema De 3 VIP (NOVO)
por willa Ter 26 Out 2010, 20:29
Pessoal não por nada mais não estou Disendo que Criei o Sistema..
Apenas Tentei Faser e deu certo...Postei o Tuto Para Quem Não Sabe Faser e Gostaria De Ter...
Então vcs ai que diz q tinha eu dbz sei la oq mais....não critiquem se não tiveram a coragem de postar um Tuto Vlws...
Apenas Tentei Faser e deu certo...Postei o Tuto Para Quem Não Sabe Faser e Gostaria De Ter...
Então vcs ai que diz q tinha eu dbz sei la oq mais....não critiquem se não tiveram a coragem de postar um Tuto Vlws...
willa- Membro Junior
- Mensagens : 80
Re: [ALL]Sistema De 3 VIP (NOVO)
por pedr513dc Qua 27 Out 2010, 18:18
Otimo!! Gostei acho q vo por issu no meu game
pedr513dc- Membro
- Mensagens : 136
-
Re: [ALL]Sistema De 3 VIP (NOVO)
por Pablo Qua 03 Nov 2010, 11:52
veio esse tuto se vc n reparo para quem e vip 2 ganha 2x a xp do vip 1 então saira 6
e o vip 3 ganha 4x mais a xp
igual 6x4=24 a xp q vai dar o vip 3 então o vip 3 da 24x a xp '-'
e o vip 3 ganha 4x mais a xp
igual 6x4=24 a xp q vai dar o vip 3 então o vip 3 da 24x a xp '-'
Pablo- Moderador Global
- Mensagens : 1371
Re: [ALL]Sistema De 3 VIP (NOVO)
por Master-Man Qui 09 Dez 2010, 18:49
Eu tentei dá seguinte maneira
Acho q assim vai rodar do jeito certo
- Código:
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
'XP extra para usuários VIPs 2 D:
If GetPlayerAccess(Attacker) >= 2 Then
Exp = Exp * 1
Else
Exp = Exp * 1
End If
'XP extra para usuários VIPs 3 D:
If GetPlayerAccess(Attacker) >= 3 Then
Exp = Exp * 1
Else
Exp = Exp * 1
End If
Acho q assim vai rodar do jeito certo
Master-Man- Membro Junior
- Mensagens : 63
Re: [ALL]Sistema De 3 VIP (NOVO)
por Lucas Roberto Qui 09 Dez 2010, 19:01
Funfar vai sim mais e um roubo Uu
POis voce aumento do Vip Normal
eo Vip2 e Vip3
Voce diminuio o Exp Oo
vai funfa sim mais isso
POis voce aumento do Vip Normal
eo Vip2 e Vip3
Voce diminuio o Exp Oo
vai funfa sim mais isso
- Spoiler:
- UM ROUBO PARA OS PLAYER QUE COMPRAR O VIP
![[ALL]Sistema De 3 VIP (NOVO) 535201](https://2img.net/u/2515/17/56/91/smiles/535201.gif)
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
Re: [ALL]Sistema De 3 VIP (NOVO)
por Master-Man Qui 09 Dez 2010, 21:11
éh,vai ser tipo,meu svr vai ser vip a xp 2x ,vip2 a xp 4x ,vip 3 a xp 6 x
E pra eu consiguir isso eu colokei:
com esse código eu consigui a xp q eu keria=D
E pra eu consiguir isso eu colokei:
- Código:
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
'XP extra para usuários VIPs 2 D:
If GetPlayerAccess(Attacker) >= 2 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
'XP extra para usuários VIPs 3 D:
If GetPlayerAccess(Attacker) >= 3 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
com esse código eu consigui a xp q eu keria=D
Master-Man- Membro Junior
- Mensagens : 63
Re: [ALL]Sistema De 3 VIP (NOVO)
por Lucas Roberto Sex 10 Dez 2010, 11:46
Uu
que bom que conseguio oque queria Uu
ali em cima foi apenas uma bricaderia Uu
que bom que conseguio oque queria Uu
ali em cima foi apenas uma bricaderia Uu
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
Re: [ALL]Sistema De 3 VIP (NOVO)
por Pablo Ter 14 Dez 2010, 18:08
tpw esse negoço de 2x
fica meio estranho o certo era que eu queria assim tpw o dbz forces
3x 5x
mais como e vip 3 eu queria
3x 5x 7x não 2x 4x 6x
pq esse de 2 4 e 6 eu ja fiz '-'
fica meio estranho o certo era que eu queria assim tpw o dbz forces
3x 5x
mais como e vip 3 eu queria
3x 5x 7x não 2x 4x 6x
pq esse de 2 4 e 6 eu ja fiz '-'
Pablo- Moderador Global
- Mensagens : 1371
Re: [ALL]Sistema De 3 VIP (NOVO)
por nicholas Sáb 19 Fev 2011, 13:16
tutorial nao e pra all e ra apenas eeb aquio ta dando erro na hora de salvar e eu uso o elysioum e nao funfo tutoria nao e pra all
nicholas- Membro Veterano
- Mensagens : 1144
Re: [ALL]Sistema De 3 VIP (NOVO)
por Lucas Roberto Sáb 19 Fev 2011, 13:50
--
e all sim mande um scren do erro
e all sim mande um scren do erro
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
Re: [ALL]Sistema De 3 VIP (NOVO)
por Thales12 Sáb 19 Fev 2011, 14:06
Sistema de 2 vips ja e fods, 3 vips, daki a pouco, 4 vips, 5 vips, no futuro 15 vips '-'
Sistema de 3 vips qualquer 1 faz, se vc olhar o sistema de vip 2, vc vai ver como e, e poe o vip 3, eu acho esse tutorial desnecessario '-'
/fato
@bom e so minha opnião..
Sistema de 3 vips qualquer 1 faz, se vc olhar o sistema de vip 2, vc vai ver como e, e poe o vip 3, eu acho esse tutorial desnecessario '-'
/fato
@bom e so minha opnião..
Thales12- Membro Veterano
- Mensagens : 1011
-
Re: [ALL]Sistema De 3 VIP (NOVO)
por Lucas Roberto Sáb 19 Fev 2011, 14:07
Sistema de 2 vips ja e fods, 3 vips, daki a pouco, 4 vips, 5 vips, no futuro 15 vips '-'
Sistema de 3 vips qualquer 1 faz, se vc olhar o sistema de vip 2, vc vai ver como e, e poe o vip 3, eu acho esse tutorial desnecessario '-'
/fato
concordo
Lucas Roberto- Membro Veterano
- Mensagens : 1794
-
Re: [ALL]Sistema De 3 VIP (NOVO)
por nicholas Sáb 19 Fev 2011, 14:28
no meu eysoum dimaond nao funfapq sera?
nicholas- Membro Veterano
- Mensagens : 1144
Página 1 de 2 • 1, 2
Tópicos semelhantes» [EE][ES]Sistema Mapas Novo .
» [ALL]Sistema Mapas Novo . 2.0
» [ALL]Sistema de dois VIP!(NOVO)
» Elysium Diamond (Video Aula) Criando Jogo 'novo sistema''
» como fazer para o sistema de transformação requerir acesso(vip, sistema de 2 vips)
» [ALL]Sistema Mapas Novo . 2.0
» [ALL]Sistema de dois VIP!(NOVO)
» Elysium Diamond (Video Aula) Criando Jogo 'novo sistema''
» como fazer para o sistema de transformação requerir acesso(vip, sistema de 2 vips)
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 2
Permissões neste sub-fórum
Não podes responder a tópicos
» Ojkjeeeee
» Naruto Great Ninja Batle
» Recrutamento de um Designer para jogo de CDZ.
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
» Projeto Dbz
» Avaliação - Sprites Naruto
» [Sprites] DBZ (Plix)
» Super Pack - Bleach V.2
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
» [Pedido] Contador de resets na FrmMain
» [Recrutamento]
» Ajuda erro no Cliente e Servidor do EEB 2.6!
» Como criar tilesets para Eclipse Origins 3.0 (POKÉMON)
» Recursos Pokemons
» erro frm flash
» Pedido - Pack de star wars
» [Ajuda] Sobre como por o servidor on por ip fixo
» Illusion Dimension - O Misterio do ID: BETA TESTE ONLINE
» [NSME] Naruto Shinobi Maker Engine
» Script /base,/casa Igual DBZ Forces
» [Pedido]Colar Tsunade item sprite eclipse origin
» [Pedido] Elysium
» Naruto - Recruta
» [Avaliação] - Kirito from Sword Art Online; Red and Pikachu from Pokemon.
» [Avaliação] - Kenpachi Zaraki from Bleach; Libra Shiryu From Saint Seiya.
» Demonstração de Sprites (Á VENDA!)
» [Sistema de Reset]Para Eclipse .
» Cada Guild Nascer em Certo Mapa
» Dragon Ball z Fusion A Grande Volta
» Ajuda com Ip fixo
» Como Fazer um GUI no Eclipse Origins
» Shisui Susanoo
» Fantasy Art Online
» Ajuda !!
» como passar o usuário e senha para o MainMenu?
» Ru time ero 13 Type mismatch
» Jarvis 1.3 Download
» [Avaliação/Disponibilização]Árvore 64x64
» Mlk's Zikas Signatures
» Pedido de Sistemas
» [AjudaEEB]Gerador de EXP
» [Avaliar] Base, Humano e Goblin.
» Fabrica do Tio Cronos!
» [PixelArt] Minion - Meu malvado favorito
» [Avaliar] Goku Dragon Ball Z