DevClub


Você não está conectado. Conecte-se ou registre-se

DevClub » Engines abordadas » Elysium Engine » Tutoriais » Sistema de VIP

Photo

Sistema de VIP

Started by ,

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

GuiinhoLP
Postado Ter Abr 23, 2013 5:04 pm

GuiinhoLP
Membro
Bom Esse e um Sistema de Vip Basico Vamo Lah '

Primeiro Vamos Mudar Para que os Vip's Não Tenha Acesso Ao F1 Painel do administrador

Cliente ~ Side:
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 > 2 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
Procure Por:

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:

  ' // 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

Agora 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(Darkgrey)
            Case 3
                Color = QBColor(Blue)
            Case 4
                Color = QBColor(Pink)
        End Select
    Else
        Color = QBColor(BrightRed)
    End If

Agora Na 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(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:
 ' 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
Cliente Terminado Vamo Ou Serve~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

Abaixo Adicione:

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
Fim Esplicando oque mudou:

Código:
*VIP (jogador com acesso 1) não pode apertar F1'
*VIP 2 (jogador com acesso 2) não pode apertar F1'
*VIP e VIP 2 não pode Kickar,Banir, nem editar mapas'
*Nome do jogador (e também do PET) VIP, agora é azul'
*Nome do jogador (e também do PET) VIP2, agora é Verde'
*Jogador VIP ganha 2 vezes mais esperiência que jogador "free"
*Jogador VIP 2 ganha 3 vezes mais esperiência que jogador "free"
Bom e isso Vlw

Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

DevClub » Engines abordadas » Elysium Engine » Tutoriais » Sistema de VIP

Permissões neste sub-fórum
Não podes responder a tópicos