Convidado Convidado
| Assunto: Sistema De Vip Dom 29 Ago 2010, 20:23 | |
| Cliente sourceNa 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 Mude para: - 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 Agora procure no modGameLogic por: - 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:
-
' // 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 No modGameLogic, Sub BltPetName(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 Mude para: - 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 Mude para: - 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 Sever sourseProcure no modGameLogic por: - 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:
-
'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 : CesarOBS: Para Achar os Codigos No Visual Basic 6.0 marque a opção Current Project Veja o Exemplo: [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Última edição por D'Black em Dom 29 Ago 2010, 20:37, editado 1 vez(es) |
|
Convidado Convidado
| Assunto: Re: Sistema De Vip Dom 29 Ago 2010, 20:28 | |
| Só Reforçando .
Para Achar os destinatários Aperta Ctrl+F e Deixa a Opção Current Project Selecionada .
Acho que o Tutorial quem Fez foi o Lennon Não tenho certeza . |
|
Convidado Convidado
| Assunto: Re: Sistema De Vip Dom 29 Ago 2010, 20:34 | |
| Vlw Ae Vo Adicionar Ao meu Topico ^^ |
|
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: Sistema De Vip Ter 31 Ago 2010, 15:03 | |
| | |
|
Convidado Convidado
| Assunto: coloca um tuto a colocar sistema vip por tempo Sex 03 Set 2010, 11:27 | |
| coloca um tuto de como por sistema de vip por tempo e que eu nao entendi nada
ja agora em que sitio posso criar um topico de ajuda |
|
Conteúdo patrocinado
| Assunto: Re: Sistema De Vip | |
| |
|