2 tipos de Vip
2 participantes
Página 1 de 1
2 tipos de Vip
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:
Mude para:
Código:
Agora procure no modGameLogic por:
Código:
Mude para:
Código:
Agora procure por:
Código:
Mude para:
Código:
No modGameLogic, Sub BltPetName(ByVal Index As Long), procure por:
Código:
Mude para:
Código:
Agora no modGameLogic, Sub BltPlayerName(ByVal Index As Long), procure por:
Código:
Mude para:
Código:
Sever sourse
Procure no modGameLogic por:
Código:
Dê enter e adicione:
Código:
Procure Por:
CÓDIGO:
Mude Para:
CÓDIGO:
Logo Abaixo Disso Você Verá Isso:
CÓDIGO:
Mude Para:
CÓDIGO:
Explicação:
Eu Apenas Editei essa Linha.
If GetPlayerAccess : Foi Modificado o "ADMIN_MONITER" para Acesso 3!
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:
' 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 * 2
Else
Exp = Exp * 1
End If
Procure Por:
CÓDIGO:
- Código:
' Ter certeza que eles não tem acesso
If GetPlayerAccess(Attacker) > ADMIN_MONITER Then
Call PlayerMsg(Attacker, "Você não pode atacar um jogador sendo um administrador!", BrightBlue)
Else
Mude Para:
CÓDIGO:
- Código:
' Ter certeza que eles não tem acesso
If GetPlayerAccess(Attacker) >= 3 Then
Call PlayerMsg(Attacker, "Você não pode atacar um jogador sendo um administrador!", BrightBlue)
Else
Logo Abaixo Disso Você Verá Isso:
CÓDIGO:
- Código:
' Checar se a vitima não é um administrador
If GetPlayerAccess(Victim) > ADMIN_MONITER Then
Call PlayerMsg(Attacker, "Você não pode atacar " & GetPlayerName(Victim) & "!", BrightRed)
Else
Mude Para:
CÓDIGO:
- Código:
' Checar se a vitima não é um administrador
If GetPlayerAccess(Victim) >= 3 Then
Call PlayerMsg(Attacker, "Você não pode atacar " & GetPlayerName(Victim) & "!", BrightRed)
Else
Explicação:
Eu Apenas Editei essa Linha.
If GetPlayerAccess : Foi Modificado o "ADMIN_MONITER" para Acesso 3!
- Código:
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 4 vezes mais esperiência que jogador "free";
Uchiha- Estagiário
- Mensagens : 62
Estrelas Makers : 95
Creditos : 11
Data de inscrição : 03/07/2011
Localização : Vitoria Da Conquista - Ba
Re: 2 tipos de Vip
Lol muito bom!!! da pra lucrar com os Silver vips e GOld vips HEHE!
+ CRED
+ CRED
spectrus- Administrador
- Mensagens : 299
Estrelas Makers : 1466
Creditos : 49
Data de inscrição : 01/01/2011
Idade : 30
Localização : V.da conquista bahia
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|
Sex Dez 05, 2014 10:00 am por Fabio-3dgames
» Lost In Dreams chapter 01
Seg Nov 24, 2014 7:22 pm por slipknot
» A Makers Brasil ressuscitara em breve!!
Sáb Nov 01, 2014 2:26 pm por Francisco Souza
» Elysium Diamond 3.3.2
Sáb Nov 01, 2014 2:17 pm por Francisco Souza
» personagens e objetos 3d game builder
Seg Jul 28, 2014 2:33 pm por Reginaldo Aparecido Zanus
» fala galera \o obs auhsaush digita galera asygasyga
Dom Jul 06, 2014 1:40 am por anastiel
» tutorial headshot fps creator
Seg Jun 09, 2014 6:08 pm por EspinhosoGamer
» SnakeMod fps creator
Seg Jun 09, 2014 5:55 pm por EspinhosoGamer
» serial fps creator
Seg maio 26, 2014 7:35 pm por slipknot