Convidado Convidado
| Assunto: [ALL]Sistema de dois VIP!(NOVO) Sá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"; |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [ALL]Sistema de dois VIP!(NOVO) Qua 15 Set 2010, 16:22 | |
| Muito Bom | |
|
Convidado Convidado
| Assunto: Re: [ALL]Sistema de dois VIP!(NOVO) Sex 08 Out 2010, 10:26 | |
| Desculpa o off-topic, mais preciso falar GamesPower mensagens: 83 OBS: dessas 83, 63 e de tanto ele falar Muito Bom .. =) |
|
Convidado Convidado
| Assunto: Re: [ALL]Sistema de dois VIP!(NOVO) Qui 14 Out 2010, 00:03 | |
| |
|
Convidado Convidado
| Assunto: Re: [ALL]Sistema de dois VIP!(NOVO) Sáb 04 Jun 2011, 13:13 | |
| Como Faço pra Salvar e Compilar ?? |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [ALL]Sistema de dois VIP!(NOVO) Sá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] | |
|
Convidado Convidado
| Assunto: Re: [ALL]Sistema de dois VIP!(NOVO) Ter 07 Jun 2011, 21:37 | |
| boa chara gostei +1 de cred |
|
Convidado Convidado
| Assunto: Re: [ALL]Sistema de dois VIP!(NOVO) Dom 03 Jul 2011, 22:27 | |
| |
|
Conteúdo patrocinado
| Assunto: Re: [ALL]Sistema de dois VIP!(NOVO) | |
| |
|