[ALL] Sistema de VIP "fucionando"
+29
pokoloko
UroshiSan
lraniel
Bleach
Rick0800Suco
xurana321
Gu1lh3rm3
Cris~
luukas337
youh
Infinit Online
extreme
Sapeka
julival_25
St4rk
Pablo
Trusnadle
CAIO
klinton-1234
hornet600
God of Fusion
dbzuniverso
Hunter
Ramonxxd
Karlos
brendon
leuzin_xD
Zeus
Lendário
33 participantes
MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Tutoriais
Página 1 de 3
Página 1 de 3 • 1, 2, 3 
[ALL] Sistema de VIP "fucionando"
por Lendário Ter 29 Set 2009, 15:16
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 Qui 04 Nov 2010, 14:00, editado 1 vez(es)
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL] Sistema de VIP "fucionando"
por Zeus Ter 29 Set 2009, 20:48
Acho que já ví esse tuto na Modev, mais valeu ae xD
Zeus- Membro Vitalicio
- Mensagens : 711
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL] Sistema de VIP "fucionando"
por leuzin_xD Qua 18 Nov 2009, 16:55
Desculpe por estar postando aqui =x
Nao sei se é a rea certa Mais eu to fazendo meu server pelo eclipse PriButon e nao to encontrado isso
" ' // 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 "
Sera q alguem podia me ajudar ?
Obrigado
Nao sei se é a rea certa Mais eu to fazendo meu server pelo eclipse PriButon e nao to encontrado isso
" ' // 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 "
Sera q alguem podia me ajudar ?
Obrigado
leuzin_xD- Membro Junior
- Mensagens : 84
Re: [ALL] Sistema de VIP "fucionando"
por Lendário Qui 19 Nov 2009, 11:30
Sua versão pode não ser compativel
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL] Sistema de VIP "fucionando"
por brendon Dom 29 Nov 2009, 14:19
Ei, topow se eu foce fazer Vip 2 tbm, eu fiz fiko assim a parte da XP extra:
![[ALL] Sistema de VIP "fucionando" 46043729](https://2img.net/r/ihimizer/img301/9830/46043729.jpg)
- Código:
'XP extra para usuários VIPs 2 D:
If GetPlayerAccess(Attacker) >= 2 Then
Exp = Exp * 3
Else
Exp = Exp * 1
End If
brendon- Membro
- Mensagens : 109
Re: [ALL] Sistema de VIP "fucionando"
por Karlos Dom 29 Nov 2009, 15:29
va na linha 98 evja o que esta acontecendo .:lol.:
Karlos- Membro Veterano
- Mensagens : 2851
-
Re: [ALL] Sistema de VIP "fucionando"
por brendon Dom 29 Nov 2009, 16:15
Eu jah vi mas quando eu coloco aparece, é que tem que por end Sub mas no VIP normal ta sem END Sub e funfa normal, mas quando eu coloco End Sub da o seguinte erro:"Bloco If sem End If" Mas como você vê está com End If
brendon- Membro
- Mensagens : 109
Re: [ALL] Sistema de VIP "fucionando"
por Karlos Dom 29 Nov 2009, 18:36
õe + 1 end if no final e seja feliz XD
Karlos- Membro Veterano
- Mensagens : 2851
-
Re: [ALL] Sistema de VIP "fucionando"
por Ramonxxd Dom 06 Dez 2009, 19:02
Aonde fika
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)?
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)?
Ramonxxd- Membro Sênior
- Mensagens : 334
-
Re: [ALL] Sistema de VIP "fucionando"
por Hunter Dom 06 Dez 2009, 19:13
Dê um Ctrl F copia e cola isso na tela de procura e seja feliz : 
Hunter- Membro
- Mensagens : 200
Re: [ALL] Sistema de VIP "fucionando"
por Ramonxxd Dom 06 Dez 2009, 19:16
Pode Me Explikar Melhor Sou novato por Favor
Ramonxxd- Membro Sênior
- Mensagens : 334
-
Re: [ALL] Sistema de VIP "fucionando"
por Hunter Dom 06 Dez 2009, 19:28
Olha, faz o seguinte:
Aperta "ctrl f" com o vb aberto, vai aparecer essa telinha:
![[ALL] Sistema de VIP "fucionando" 97872018](https://2img.net/r/ihimizer/img130/2885/97872018.jpg)
Onde está escrito "Find What" vc coloca o code que procura.
Marque a checkbox Current Project e por último clique em "Find Next"
Também sou novato, mais tenho me esforçado bastante ^^'
Aperta "ctrl f" com o vb aberto, vai aparecer essa telinha:
Onde está escrito "Find What" vc coloca o code que procura.
Marque a checkbox Current Project e por último clique em "Find Next"
Também sou novato, mais tenho me esforçado bastante ^^'
Hunter- Membro
- Mensagens : 200
Ramonxxd- Membro Sênior
- Mensagens : 334
-
Hunter- Membro
- Mensagens : 200
Re: [ALL] Sistema de VIP "fucionando"
por Ramonxxd Dom 06 Dez 2009, 19:44
aonde eu acho
' Ter certeza que não dar experiência menor que 0.
If Exp < 0 Then
Exp = 1
End If
se eu nao tiver o que eu faço , eu ja fiz tudo só falta esse
' Ter certeza que não dar experiência menor que 0.
If Exp < 0 Then
Exp = 1
End If
se eu nao tiver o que eu faço , eu ja fiz tudo só falta esse
Ramonxxd- Membro Sênior
- Mensagens : 334
-
Re: [ALL] Sistema de VIP "fucionando"
por Hunter Dom 06 Dez 2009, 19:50
Bem, essa linha existe, ñ precisa ser feita..
Mas se ñ achou, tente colocar somente isso na procura:
Mas se ñ achou, tente colocar somente isso na procura:
- Código:
If Exp < 0 Then
Hunter- Membro
- Mensagens : 200
não consigo
por dbzuniverso Qua 13 Jan 2010, 11:37
Eu uso o Elysium Engine Brasil 2.6 fiz isso mais de 10 vezes e n consigo fazer pq ??
eu coloco acesso 1 fica prata o nome e n azul e da pra aperta f1 e f4
poderia me ajudar ????
eu coloco acesso 1 fica prata o nome e n azul e da pra aperta f1 e f4
poderia me ajudar ????
dbzuniverso- Novato
- Mensagens : 1
Re: [ALL] Sistema de VIP "fucionando"
por God of Fusion Seg 18 Jan 2010, 12:39
Cara voçê nao deve ter lido o tutorial todo!
Na FrmMirage Procura por:
Ai agora é so mudar pra:
O F4 agora
Na FrmMirage Procure por:
E mude para:
E pronto
OBS:O do F4 eu que fiz .-. e se estiver errado por favor me corrijam
Na FrmMirage Procura 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
Ai agora é so mudar pra:
- 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
O F4 agora
Na FrmMirage Procure por:
- Código:
' The Guild Creator
If KeyCode = vbKeyF4 Then
If Player(MyIndex).Access > 0 Then
frmGuild.Show vbModeless, frmMirage
End If
End If
E mude para:
- Código:
' The Guild Creator
If KeyCode = vbKeyF4 Then
If Player(MyIndex).Access > 2 Then
frmGuild.Show vbModeless, frmMirage
End If
End If
E pronto
OBS:O do F4 eu que fiz .-. e se estiver errado por favor me corrijam
God of Fusion- Novato
- Mensagens : 18
Re: [ALL] Sistema de VIP "fucionando"
por hornet600 Dom 24 Jan 2010, 17:12
esse do f4 quem fez foi o lenon
hornet600- Novato
- Mensagens : 31
Re: [ALL] Sistema de VIP "fucionando"
por klinton-1234 Dom 24 Jan 2010, 17:35
' The Guild Creator
If KeyCode = vbKeyF4 Then
If Player(MyIndex).Access > 2 Then
frmGuild.Show vbModeless, frmMirage
End If
End If
qualquer pessoa consegue fazer isso...
If KeyCode = vbKeyF4 Then
If Player(MyIndex).Access > 2 Then
frmGuild.Show vbModeless, frmMirage
End If
End If
qualquer pessoa consegue fazer isso...
klinton-1234- Membro
- Mensagens : 220
Re: [ALL] Sistema de VIP "fucionando"
por God of Fusion Seg 25 Jan 2010, 10:28
Realmente qualquer pessoa faz. e eu nem sabia que o lenon tinha feito esse tuto .-.
God of Fusion- Novato
- Mensagens : 18
Re: [ALL] Sistema de VIP "fucionando"
por CAIO Seg 25 Jan 2010, 14:31
Gente eu abro com o vb dai eu ponho pra salvar mais nao muda nada ajudaa minha versão é a 2.6
CAIO- Membro Sênior
- Mensagens : 337
Lendário- Administrador Lendário
- Mensagens : 1958
Re: [ALL] Sistema de VIP "fucionando"
por Trusnadle Seg 25 Jan 2010, 14:52
É facil depois de ter feito tudo vai em File>Make(Nome do projeto)
e pronto.
e pronto.
Trusnadle- Novato
- Mensagens : 12
Página 1 de 3 • 1, 2, 3
Tópicos semelhantes» [Ajuda] "Trocar Senha" no MainMenu
» [ALL]Comando "vou Fazer Evento!"
» Ajuda em Danos das spells - itens "stack" e fazer itens equipados sumir do inventario
» "Reset" sem usar VB
» [ALL]AutoCorreção "Simples"
» [ALL]Comando "vou Fazer Evento!"
» Ajuda em Danos das spells - itens "stack" e fazer itens equipados sumir do inventario
» "Reset" sem usar VB
» [ALL]AutoCorreção "Simples"
MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: 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