Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

 » Engines » Elysium » Tutoriais » [ALL]Sistema de dois VIP!

[ALL]Sistema de dois VIP!

2 participantes

Ir para baixo  Mensagem [Página 1 de 1]

1[ALL]Sistema de dois VIP! Empty [ALL]Sistema de dois VIP! Sáb Dez 29, 2012 3:45 pm

DrayonDuarte

DrayonDuarte

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

Agora 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

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 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(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

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
            'XP extra para usuários VIPs 2 D:
            If GetPlayerAccess(Attacker) >= 2 Then
            Exp = Exp * 3
            Else
            Exp = Exp * 1
            End If

*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";

Creditos:
Gustavo santos Diniz - Por fazer o sistema e o tutorial

2[ALL]Sistema de dois VIP! Empty Re: [ALL]Sistema de dois VIP! Sáb Dez 29, 2012 3:55 pm

Kyle

avatar

Bom , vai ajudar aos iniciantes que querem colocar esse sistema!!

Ahh , só pra avisar ! Eu testei e é 100%Funcional!

https://imakersdev.directorioforuns.com

Ir para o topo  Mensagem [Página 1 de 1]

 » Engines » Elysium » Tutoriais » [ALL]Sistema de dois VIP!

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