[Tutorial] Sistema Vip que funciona

Cliente source
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

Sever sourse
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:

'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 : Cesar

legal o sistema de Vip
1+

Filipi como chega na FRM Mirage e nos outros?
Ajuda ae que terá +1 Cred xD

Caramba eu num entendo uma , de script parabens +cred

so nao entende como vou da vip aos playeres

Funciona em NPM v3?

Aff cara, malz nem prestei atenção ;D mais tbm eu vi o topico no inicio então nao sabia se era eclipse ;D

Para isso precisa do visual basic certo?

Se me ajudar do 1 credito