SSO Moderador.G
Mensagens : 83 Moeda : 117 Pontos : 6 Data de inscrição : 06/01/2013
| Assunto: [Tutorial]Sistema de jogador vip Seg Jan 07, 2013 9:21 am | |
| Créditos: Nao sei.- Spoiler:
Cliente~Side Na 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 Server~Side Procure 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:
-
Código: Selecionar tudo 'XP extra para usuários VIPs D: If GetPlayerAccess(Attacker) >= 1 Then Exp = Exp * 2 Else Exp = Exp * 1 End If Obs: Va ao servidor, na aba de jogadores, selecione-o na lista, clique na opçao setar acesso e mude para 1, assim tornara o player vip. 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";
| |
|
Over~ Moderador.G
Mensagens : 149 Moeda : 214 Pontos : 11 Data de inscrição : 04/01/2013
| Assunto: Re: [Tutorial]Sistema de jogador vip Seg Jan 07, 2013 10:40 am | |
| Muito bom parabéns. +1REP. | |
|