[ALL]Sistema de VIP (APROVADO)
+21
marcos43
Ricardo
bobmarley
ϟ Rukasu
VegetasupremoMaker
felipewyd
victorpup
gtajunior
metaliko
Storm™
Capitão Taylor
Freitas
Luiz
alexandre
Cris~
danilonc
snool
soullife
extreme
Soad~
Lendário
25 participantes
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 3
Página 1 de 3 • 1, 2, 3 
[ALL]Sistema de VIP (APROVADO)
por Lendário Ter 20 Out 2009, 13:34
Cliente source
Na frmMirage,Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer), procure por:
Agora no modGameLogic, Sub BltPlayerName(ByVal Index As Long), procure por:
Procure no modGameLogic por:
VIP (jogador com acesso 1) não pode apertar F1;
VIP não pode Kickar e Banir;
Nome do jogador (e também do PET) VIP, agora é azul;
Jogador VIP ganha 2 vezes mais esperiência que jogador "free";
Créditos : Cesar
Na frmMirage,Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer), 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
- Código:
Call CheckInput(0, KeyCode, Shift)
If KeyCode = vbKeyF1 Then
If Player(MyIndex).Access > 1 Then
frmadmin.Visible = False
frmadmin.Visible = True
End If
End If
- 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
- Código:
' // Moniter Admin Commands //
If GetPlayerAccess(MyIndex) > 1 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
- 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
- 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(Cyan)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
Agora 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(DarkGrey)
Case 2
Color = QBColor(Cyan)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
- 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(Cyan)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If
Procure no modGameLogic 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
VIP (jogador com acesso 1) não pode apertar F1; VIP não pode Kickar e Banir; Nome do jogador (e também do PET) VIP, agora é azul; Jogador VIP ganha 2 vezes mais esperiência que jogador "free";Créditos : Cesar
Última edição por lendario em Qua 28 Jul 2010, 18:52, editado 1 vez(es)
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL]Sistema de VIP (APROVADO)
por Soad~ Qui 15 Abr 2010, 21:33
Cesar não foi o Raijenki..da MMODEV antiga ...Cesar usava elysium diamond e esse tutorial e pra elysium engine brasil (eeb)...
Soad~- Membro
- Mensagens : 231
-
extreme- Membro
- Mensagens : 213
Re: [ALL]Sistema de VIP (APROVADO)
por soullife Sex 11 Jun 2010, 16:01
Eu não achei nenhum codigo eu uso o EEB 
soullifeBanido
- Mensagens : 14
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL]Sistema de VIP (APROVADO)
por soullife Sex 11 Jun 2010, 16:18
Bom fui em scripst>principal>Ctrl + F>tentei os codigos nao achou
Pra falar eu nem sei oq é isso o.o
Pra falar eu nem sei oq é isso o.o
soullifeBanido- Mensagens : 14
Re: [ALL]Sistema de VIP (APROVADO)
por Lendário Sex 11 Jun 2010, 17:11
Não é no main
é na souce que abre pelo VB6
é na souce que abre pelo VB6
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL]Sistema de VIP (APROVADO)
por snool Ter 29 Jun 2010, 13:48
Nossa porque eu faço tudo certo e nunca funciona,não aconteceu nada do que era pra acontecer o.o
snool- Membro Sênior
- Mensagens : 351
nao da
por danilonc Qui 12 Ago 2010, 12:38
eu nao consigo ja fiz la no elysium diamond e nã vai.
eu testo no meu ADM
eu koloko ele sem acesso e ataco um monstro ai da 1 de exp
ai koloko 1 de acesso ataka ele continua dando 1.
e o painel de adm nao saiu para acesso 1.
a parte qe mais me ferra é essa
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
na 'XP extra para usuários VIPs D: nao tem o D: obvio e o meu ta em ingles
e tipo esse comando é para fikar assim
' Ter certeza que não dar experiência menor que 0.
If Exp < 0 Then
Exp = 1
End If
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
ou assim
' Ter certeza que não dar experiência menor que 0.
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
If Exp < 0 Then
Exp = 1
End If
vlw
eu testo no meu ADM
eu koloko ele sem acesso e ataco um monstro ai da 1 de exp
ai koloko 1 de acesso ataka ele continua dando 1.
e o painel de adm nao saiu para acesso 1.
a parte qe mais me ferra é essa
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
na 'XP extra para usuários VIPs D: nao tem o D: obvio e o meu ta em ingles
e tipo esse comando é para fikar assim
' Ter certeza que não dar experiência menor que 0.
If Exp < 0 Then
Exp = 1
End If
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
ou assim
' Ter certeza que não dar experiência menor que 0.
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
If Exp < 0 Then
Exp = 1
End If
vlw
danilonc- Novato
- Mensagens : 24
Re: [ALL]Sistema de VIP (APROVADO)
por Lendário Qui 12 Ago 2010, 12:45
Você ta fazendo algo errado amigo esse tutorial ja foi testado por vários, inclusive por mim.
Lendário- Administrador Lendário
- Mensagens : 1958
danilonc- Novato
- Mensagens : 24
Re: [ALL]Sistema de VIP (APROVADO)
por danilonc Qui 12 Ago 2010, 13:04
mesmo assim a ultima parte tem qe kolokar
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
em baixo de ke?
'XP extra para usuários VIPs D:
If GetPlayerAccess(Attacker) >= 1 Then
Exp = Exp * 2
Else
Exp = Exp * 1
End If
em baixo de ke?
danilonc- Novato
- Mensagens : 24
Re: [ALL]Sistema de VIP (APROVADO)
por Lendário Qui 12 Ago 2010, 13:06
Abaixo disso:
- Código:
' Ter certeza que não dar experiência menor que 0.
If Exp < 0 Then
Exp = 1
End If
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL]Sistema de VIP (APROVADO)
por danilonc Qui 12 Ago 2010, 13:14
Não foi.
eu tenho certeza de que eu não estou fazendo nada de arrado.
eu ja fiz umas 5 vezes
eu tenho certeza de que eu não estou fazendo nada de arrado.
eu ja fiz umas 5 vezes
danilonc- Novato
- Mensagens : 24
Cris~- Membro Veterano
- Mensagens : 1574
danilonc- Novato
- Mensagens : 24
Re: [ALL]Sistema de VIP (APROVADO)
por Lendário Qui 12 Ago 2010, 13:35
http://www.mmorpgbr.com/tutoriais-f3/como-compilar-o-client-ou-sever-t181.htm
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL]Sistema de VIP (APROVADO)
por danilonc Qui 12 Ago 2010, 14:47
você compilia os arquivos que meche quando eu fasso a configuração?
danilonc- Novato
- Mensagens : 24
Re: [ALL]Sistema de VIP (APROVADO)
por danilonc Qui 12 Ago 2010, 14:49
eu nao consigo compiliar.
eu nao acho esse Make elysium engine brasil.exe
eu nao acho esse Make elysium engine brasil.exe
danilonc- Novato
- Mensagens : 24
Re: [ALL]Sistema de VIP (APROVADO)
por danilonc Qui 12 Ago 2010, 15:08
AHH ACABEI DE DESCOBRIR UMA COISA AKI.
https://2img.net/r/ihimizer/i/naotenho.png/
https://2img.net/r/ihimizer/i/cade.png/
A 1º FOTO QUE EU PEGUEI DESSE TUTO http://www.mmorpgbr.com/visual-basic-f61/iniciantecomo-editar-server-e-client-side-t1253.htm
TEM UM ARQUIVO "ELYSIUM ENGINE BRASIL
(CLIENTE)
visual basic project"
QUE NO MEU NÃO TEM.
EU JA EXTRAI DE NOVO.
O QUE FASSO?
https://2img.net/r/ihimizer/i/naotenho.png/
https://2img.net/r/ihimizer/i/cade.png/
A 1º FOTO QUE EU PEGUEI DESSE TUTO http://www.mmorpgbr.com/visual-basic-f61/iniciantecomo-editar-server-e-client-side-t1253.htm
TEM UM ARQUIVO "ELYSIUM ENGINE BRASIL
(CLIENTE)
visual basic project"
QUE NO MEU NÃO TEM.
EU JA EXTRAI DE NOVO.
O QUE FASSO?
danilonc- Novato
- Mensagens : 24
Re: [ALL]Sistema de VIP (APROVADO)
por Lendário Qui 12 Ago 2010, 16:47
Primeiramente edite o poste e não faça doble. Leia as regras ![[ALL]Sistema de VIP (APROVADO) I_icon_edit](https://2img.net/h/hitskin.com/themes/15/61/59/i_icon_edit.gif)
.
O seu num preciza ser o Make elysium engine brasil.exe basta clicar no nome que tiver la para compilar, mais ele sempre começa com Make e termina com .exe.
Se você não tem o visual basic 6 precisa baixar-lo.
.O seu num preciza ser o Make elysium engine brasil.exe basta clicar no nome que tiver la para compilar, mais ele sempre começa com Make e termina com .exe.
Se você não tem o visual basic 6 precisa baixar-lo.
Lendário- Administrador Lendário
- Mensagens : 1958
danilonc- Novato
- Mensagens : 24
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL]Sistema de VIP (APROVADO)
por alexandre Qui 26 Ago 2010, 14:21
queria saber qual o elysium e compativel com esse tuto
alexandre- Membro
- Mensagens : 121
-
Página 1 de 3 • 1, 2, 3
Tópicos semelhantes» [ALL]Aprendendo Sadscript [APROVADO]
» [ALL]Escolher raça (APROVADO)
» como fazer para o sistema de transformação requerir acesso(vip, sistema de 2 vips)
» Sistema de char tai,gen,nin/sistema de 2 barra de classe
» [Sistema] Sistema de Level Maximo 1000
» [ALL]Escolher raça (APROVADO)
» como fazer para o sistema de transformação requerir acesso(vip, sistema de 2 vips)
» Sistema de char tai,gen,nin/sistema de 2 barra de classe
» [Sistema] Sistema de Level Maximo 1000
MMORPG Brasil :: OPEN SOURCE ENGINES :: Outras Engines :: Elysium :: Tutoriais
Página 1 de 3
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