Universo Games
Ola , Convidado

[ALL]Sistema de dois VIP!(NOVO) Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 [ALL]Sistema de dois VIP!(NOVO)

Ir para baixo 
AutorMensagem
Convidado
Convidado
Anonymous



[ALL]Sistema de dois VIP!(NOVO) Empty
MensagemAssunto: [ALL]Sistema de dois VIP!(NOVO)   [ALL]Sistema de dois VIP!(NOVO) EmptySáb 28 Ago 2010, 22:19

Para aqueles que querem coloca dois VIP no seu cliente vai ai um tutorial basico de como colocar dois VIP no jogo!

CLIENTE SOURCE

Na frmMirage,Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer), procure por:

Código:
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:
Código:
Call CheckInput(0, KeyCode, Shift)
If KeyCode = vbKeyF1 Then
If Player(MyIndex).Access > 2 Then
frmadmin.Visible = False
frmadmin.Visible = True
End If
End If


Agora procure no modGameLogic por:

Código:
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:
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



Agora procure por:

Código:
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:
Código:
 ' // Mapper Admin Commands //
If GetPlayerAccess(MyIndex) > 2 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



No modGameLogic, Sub BltPetName(ByVal Index As Long), procure por:

Código:
Código:
 [color=green]' 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


Mude para:

Código:
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


Agora no modGameLogic, Sub BltPlayerName(ByVal Index As Long), procure por:

Código:
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 para:

Código:
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(Grey)
Case 3
Color = QBColor(Blue)
Case 4
Color = QBColor(Pink)
End Select
Else
Color = QBColor(BrightRed)
End If



Sever sourse
Procure no modGameLogic por:

Código:
Código:
 ' Ter certeza que não dar experiência menor que 0.
If Exp < 0 Then
Exp = 1
End If



Dê enter e adicione:

Código:
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




Arrow VIP (jogador com acesso 1) não pode apertar F1;
Arrow VIP 2 (jogador com acesso 2) não pode apertar F1;
Arrow VIP e VIP 2 não pode Kickar,Banir, nem editar mapas;
Arrow Nome do jogador (e também do PET) VIP, agora é azul;
Arrow Nome do jogador (e também do PET) VIP2, agora é Verde;
Arrow Jogador VIP ganha 2 vezes mais esperiência que jogador "free";
Arrow Jogador VIP 2 ganha 3 vezes mais esperiência que jogador "free";
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

[ALL]Sistema de dois VIP!(NOVO) Empty
MensagemAssunto: Re: [ALL]Sistema de dois VIP!(NOVO)   [ALL]Sistema de dois VIP!(NOVO) EmptyQua 15 Set 2010, 16:22

Muito Bom
afro
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



[ALL]Sistema de dois VIP!(NOVO) Empty
MensagemAssunto: Re: [ALL]Sistema de dois VIP!(NOVO)   [ALL]Sistema de dois VIP!(NOVO) EmptySex 08 Out 2010, 10:26

Desculpa o off-topic, mais preciso falar Very Happy
GamesPower

mensagens: 83
OBS: dessas 83, 63 e de tanto ele falar Muito Bom ..

=)
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Sistema de dois VIP!(NOVO) Empty
MensagemAssunto: Re: [ALL]Sistema de dois VIP!(NOVO)   [ALL]Sistema de dois VIP!(NOVO) EmptyQui 14 Out 2010, 00:03

BOm Tuto xD
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Sistema de dois VIP!(NOVO) Empty
MensagemAssunto: Re: [ALL]Sistema de dois VIP!(NOVO)   [ALL]Sistema de dois VIP!(NOVO) EmptySáb 04 Jun 2011, 13:13

Como Faço pra Salvar e Compilar ??
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

[ALL]Sistema de dois VIP!(NOVO) Empty
MensagemAssunto: Re: [ALL]Sistema de dois VIP!(NOVO)   [ALL]Sistema de dois VIP!(NOVO) EmptySáb 04 Jun 2011, 13:39

Simples basta clicar em file no menú superior do VB6 e clicar em "Make nomedaengine" veja como na screen abaixo
[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



[ALL]Sistema de dois VIP!(NOVO) Empty
MensagemAssunto: Re: [ALL]Sistema de dois VIP!(NOVO)   [ALL]Sistema de dois VIP!(NOVO) EmptyTer 07 Jun 2011, 21:37

boa chara gostei cheers +1 de cred
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Sistema de dois VIP!(NOVO) Empty
MensagemAssunto: Re: [ALL]Sistema de dois VIP!(NOVO)   [ALL]Sistema de dois VIP!(NOVO) EmptyDom 03 Jul 2011, 22:27

mutio bom +1 cred
Ir para o topo Ir para baixo
Conteúdo patrocinado





[ALL]Sistema de dois VIP!(NOVO) Empty
MensagemAssunto: Re: [ALL]Sistema de dois VIP!(NOVO)   [ALL]Sistema de dois VIP!(NOVO) Empty

Ir para o topo Ir para baixo
 
[ALL]Sistema de dois VIP!(NOVO)
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Novo Tema v2.0
» Warp por Resets (Novo)
» Warp por Inteligência (Novo)
» Novo OT de Pokemon (POKÈ FUZION)
» "NOVO" Memorizador de spells... Leia Mais!!!

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Elysium Diamond :: Tutoriais-
Ir para: