MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

[ALL]Sistema Vip

3 participantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Tutoriais

Ir para baixo

[ALL]Sistema Vip Empty [ALL]Sistema Vip

Mensagem por brendon Seg 16 Nov 2009, 08:16

Vamos Começar:

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ê 2 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
Obs:
:@: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 o Dobro esperiência que jogador "free";

Testado e Pega 100%! Caso algo errado Poste!
brendon
brendon
Membro
Membro

Mensagens : 109

Ir para o topo Ir para baixo

[ALL]Sistema Vip Empty Re: [ALL]Sistema Vip

Mensagem por Lucas Lôpo Seg 16 Nov 2009, 08:32

Ja tem um tutorial desse aqui foi ate o Lenon que fez xD
Lucas Lôpo
Lucas Lôpo
Membro Veterano
Membro Veterano

Mensagens : 833

Ir para o topo Ir para baixo

[ALL]Sistema Vip Empty Re: [ALL]Sistema Vip

Mensagem por Karlos Seg 16 Nov 2009, 10:10

¬¬' isso esta meio complicado, a administração poderia levantar uma tabela mostrando quais contudos que ja foram postados e quais são as ideias para pegarmos para fazer, e quais em estão precisando de ajuda. se fizerem a tabela bem elaborada, acho que ia ficar da maneiro, criativo, e de grande utilidade, fora a organização que ia ficar melhor.
Karlos
Karlos
Membro Veterano
Membro Veterano

Mensagens : 2851

http://www.talack.com.br

Ir para o topo Ir para baixo

[ALL]Sistema Vip Empty Re: [ALL]Sistema Vip

Mensagem por Lucas Lôpo Seg 16 Nov 2009, 11:29

Rapaz nem tudo tem que ser feito pela Administraçao
vai da pessoa olhar os tutos que ja existe mas a preguiça
é grande ^^ ai acabao fazendo Topico iguais como esse.
Lucas Lôpo
Lucas Lôpo
Membro Veterano
Membro Veterano

Mensagens : 833

Ir para o topo Ir para baixo

[ALL]Sistema Vip Empty Re: [ALL]Sistema Vip

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Tutoriais

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