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]Sistema de dois VIP!(NOVO)

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

1Tutorial [ALL]Sistema de dois VIP!(NOVO) em Sab 28 Ago 2010, 21:19

breno


Membro
Membro
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";

2Tutorial Re: [ALL]Sistema de dois VIP!(NOVO) em Qua 15 Set 2010, 15:22

Luucas Robeerto


Fundador
Fundador
Muito Bom
afro

http://universogamesmmo.forumeiros.com

3Tutorial Re: [ALL]Sistema de dois VIP!(NOVO) em Sex 08 Out 2010, 09:26

Thales12


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

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

=)

4Tutorial Re: [ALL]Sistema de dois VIP!(NOVO) em Qua 13 Out 2010, 23:03

willame05


Membro
Membro
BOm Tuto xD

5Tutorial Re: [ALL]Sistema de dois VIP!(NOVO) em Sab 04 Jun 2011, 12:13

Walber


Membro
Membro
Como Faço pra Salvar e Compilar ??

6Tutorial Re: [ALL]Sistema de dois VIP!(NOVO) em Sab 04 Jun 2011, 12:39

Luucas Robeerto


Fundador
Fundador
Simples basta clicar em file no menú superior do VB6 e clicar em "Make nomedaengine" veja como na screen abaixo
[Você precisa estar registrado e conectado para ver esta imagem.]


_______________________________________________________________________________________________________

[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

7Tutorial Re: [ALL]Sistema de dois VIP!(NOVO) em Ter 07 Jun 2011, 20:37

hardsfree


Membro
Membro
boa chara gostei cheers +1 de cred

8Tutorial Re: [ALL]Sistema de dois VIP!(NOVO) em Dom 03 Jul 2011, 21:27

NuKeNiN


Membro
Membro
mutio bom +1 cred

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