[Tutorial] Sistema Vip que funciona Hitskin_logo Hitskin.com

Isto é uma pré-visualização de um tema em Hitskin.com
Instalar o temaVoltar para a ficha do tema

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

[Tutorial] Sistema Vip que funciona

+5
Eduardo01
TheSilver
Felipe1998
DeaN
FilipeJF
9 participantes

Página 1 de 2 1, 2  Seguinte

Ir para baixo

[Tutorial] Sistema Vip que funciona Empty [Tutorial] Sistema Vip que funciona

Mensagem por FilipeJF Qui maio 12, 2011 3:20 pm

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

[Tutorial] Sistema Vip que funciona 833372 VIP (jogador com acesso 1) não pode apertar F1;
[Tutorial] Sistema Vip que funciona 833372 VIP não pode Kickar e Banir;
[Tutorial] Sistema Vip que funciona 833372 Nome do jogador (e também do PET) VIP, agora é azul;
[Tutorial] Sistema Vip que funciona 833372 Jogador VIP ganha 2 vezes mais esperiência que jogador "free";

Créditos : Cesar

_________________

[Tutorial] Sistema Vip que funciona Atpqp
O Equívoco do Sábio - conto na Amazon
FilipeJF
FilipeJF
Aldeia Friend
Aldeia Friend

Medalhas : [Tutorial] Sistema Vip que funciona Trophy11[Tutorial] Sistema Vip que funciona 94Jxv
Mensagens : 1859
Créditos : 134

Ir para o topo Ir para baixo

[Tutorial] Sistema Vip que funciona Empty Re: [Tutorial] Sistema Vip que funciona

Mensagem por DeaN Qui maio 12, 2011 5:53 pm

legal o sistema de Vip
1+

_________________
Dean, Programador Geral :)

Contato: Skype:matucarvalho e Facebook
The Enze - Vulzt

Shield Block
Anti-Cheat para jogos de FPS, agora vou adaptar para jogos de RPG principalmente para o RMXP.
www.shieldblock.net
fb.com/shieldblockoficial

[Tutorial] Sistema Vip que funciona MiB0H
DeaN
DeaN
Colaborador
Colaborador

Mensagens : 1243
Créditos : 48

http://www.shieldblock.net

Ir para o topo Ir para baixo

[Tutorial] Sistema Vip que funciona Empty Re: [Tutorial] Sistema Vip que funciona

Mensagem por Felipe1998 Seg Jan 16, 2012 4:11 pm

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

Felipe1998
Novato
Novato

Mensagens : 8
Créditos : 0

Ir para o topo Ir para baixo

[Tutorial] Sistema Vip que funciona Empty Re: [Tutorial] Sistema Vip que funciona

Mensagem por TheSilver Seg Jan 16, 2012 6:37 pm

Caramba eu num entendo uma , de script parabens +cred

_________________

Clan:



EXP Maker:

Harumi:



Coloque sua assinatura em Spoiler e Ajude a diminuir o "peso" das paginas
TheSilver
TheSilver
Membro Ativo
Membro Ativo

Mensagens : 277
Créditos : 10

Ir para o topo Ir para baixo

[Tutorial] Sistema Vip que funciona Empty Re: [Tutorial] Sistema Vip que funciona

Mensagem por Eduardo01 Ter Fev 14, 2012 9:39 pm

so nao entende como vou da vip aos playeres
Eduardo01
Eduardo01
Iniciante
Iniciante

Mensagens : 54
Créditos : 10

Ir para o topo Ir para baixo

[Tutorial] Sistema Vip que funciona Empty Re: [Tutorial] Sistema Vip que funciona

Mensagem por gustavotx Ter Fev 14, 2012 10:24 pm

Funciona em NPM v3?

_________________
Meu Game Lupus Online:

[Tutorial] Sistema Vip que funciona Sing2zq

[Tutorial] Sistema Vip que funciona AIymW
Tem Meu Respeito:
gustavotx
gustavotx
Experiente
Experiente

Mensagens : 411
Créditos : 64

Ir para o topo Ir para baixo

[Tutorial] Sistema Vip que funciona Empty Re: [Tutorial] Sistema Vip que funciona

Mensagem por LeonM² Ter Fev 14, 2012 10:28 pm

gustavotx escreveu:Funciona em NPM v3?
[Tutorial] Sistema Vip que funciona Mae-deus-meme
Cara isso aki é eclipse engine e não RM, isso foi um ato de noob ou de alguem que não presta atenção procure se informar das coisas, area de Eclipse é para Eclipse, area de RM é para RM. u.u
LeonM²
LeonM²
Lenda
Lenda

Mensagens : 1802
Créditos : 153

Ir para o topo Ir para baixo

[Tutorial] Sistema Vip que funciona Empty Re: [Tutorial] Sistema Vip que funciona

Mensagem por gustavotx Ter Fev 14, 2012 10:33 pm

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

_________________
Meu Game Lupus Online:

[Tutorial] Sistema Vip que funciona Sing2zq

[Tutorial] Sistema Vip que funciona AIymW
Tem Meu Respeito:
gustavotx
gustavotx
Experiente
Experiente

Mensagens : 411
Créditos : 64

Ir para o topo Ir para baixo

[Tutorial] Sistema Vip que funciona Empty Re: [Tutorial] Sistema Vip que funciona

Mensagem por jeanmfc Sáb Fev 18, 2012 10:51 am

Para isso precisa do visual basic certo?

jeanmfc
Novato
Novato

Mensagens : 3
Créditos : 0

Ir para o topo Ir para baixo

[Tutorial] Sistema Vip que funciona Empty Re: [Tutorial] Sistema Vip que funciona

Mensagem por jeanmfc Sáb Fev 18, 2012 11:08 am

Se me ajudar do 1 credito

jeanmfc
Novato
Novato

Mensagens : 3
Créditos : 0

Ir para o topo Ir para baixo

[Tutorial] Sistema Vip que funciona Empty Re: [Tutorial] Sistema Vip que funciona

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Página 1 de 2 1, 2  Seguinte

Ir para o topo

- Tópicos semelhantes

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