Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  Registrar-seRegistrar-se  Conectar-seConectar-se  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Compartilhe | 
 

 Sistema De Vip

Ir em baixo 
AutorMensagem
D'Black
Iniciante
Iniciante
avatar

Mensagens : 30

MensagemAssunto: Sistema De Vip   Dom 29 Ago 2010, 19:23

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

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

Créditos : Cesar


OBS: Para Achar os Codigos No Visual Basic 6.0 marque a opção Current Project Veja o Exemplo: [Você precisa estar registrado e conectado para ver esta imagem.]


Última edição por D'Black em Dom 29 Ago 2010, 19:37, editado 1 vez(es)
Voltar ao Topo Ir em baixo
http://www.uniononline.tk/
Takezo Kenzei
Iniciante
Iniciante
avatar

Mensagens : 22

MensagemAssunto: Re: Sistema De Vip   Dom 29 Ago 2010, 19:28

Só Reforçando .

Para Achar os destinatários Aperta Ctrl+F e Deixa a Opção Current Project Selecionada .

Acho que o Tutorial quem Fez foi o Lennon Não tenho certeza .
Voltar ao Topo Ir em baixo
D'Black
Iniciante
Iniciante
avatar

Mensagens : 30

MensagemAssunto: Re: Sistema De Vip   Dom 29 Ago 2010, 19:34

Vlw Ae Vo Adicionar Ao meu Topico ^^ Very Happy
Voltar ao Topo Ir em baixo
http://www.uniononline.tk/
Lucas Roberto
Administrador
Administrador
avatar

Mensagens : 709

MensagemAssunto: Re: Sistema De Vip   Ter 31 Ago 2010, 14:03

Muito Bom
Voltar ao Topo Ir em baixo
http://universogamesmmo.forumeiros.com
alexandre
Iniciante
Iniciante


Mensagens : 45

MensagemAssunto: coloca um tuto a colocar sistema vip por tempo   Sex 03 Set 2010, 10:27

coloca um tuto de como por sistema de vip por tempo e que eu nao entendi nada

ja agora em que sitio posso criar um topico de ajuda
Voltar ao Topo Ir em baixo
Conteúdo patrocinado




MensagemAssunto: Re: Sistema De Vip   

Voltar ao Topo Ir em baixo
 
Sistema De Vip
Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Hoppi Hotel - Sistema Lucrativo - Habbo Pirata - Gratis - Eventos - Promoções - Vagas na Equipe
» Habbo Sistema Lucrativo - Sem Lag - Totalmente Novo - Wireds 100& - Cassinos - Raros Semanais
» Novo sistema da Receita
» Transformice source 1.225 101% COM SISTEMA DE MOEDAS E SALA ANIME
» Sistema de Captcha com letras aleatórias

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Universo Games :: Tutoriais :: Tutoriais Aprovados-
Ir para: