Aldeia RPG

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

Suporte ao desenvolvimento de jogos


2 participantes

    Sistema de Prisão

    thales12
    thales12
    Membro de Honra
    Membro de Honra


    Mensagens : 322
    Créditos : 108

    Ficha do personagem
    Nível: 1
    Experiência:
    Sistema de Prisão Left_bar_bleue0/0Sistema de Prisão Empty_bar_bleue  (0/0)
    Vida:
    Sistema de Prisão Left_bar_bleue30/30Sistema de Prisão Empty_bar_bleue  (30/30)

    Sistema de Prisão Empty Sistema de Prisão

    Mensagem por thales12 Sex Jul 29, 2011 12:47 am

    Começando ..

    Baixe a Form aki >>> http: //www .mediafire.com/?thtxxf8485p12o4
    tire os espaços

    Abra o Seu Client~Side logo em seguida va na FrmAdmin e adicione 1 CommandButton no lugar q vc achar melhor com a Caption Prender jogador e name btnjail de dois cliques nesse botão e adicione:

    Código:
    If GetPlayerAccess(MyIndex) >= ADMIN_MONITER Then
        frmJail.Visible = True
        Else: Call AddText("Você não está autorizado para exercer essa função.", BrightRed)
        End If

    dps procure por, Sub SendBan(ByVal Name As String) em cima dessa sub adicione:

    Código:
    Sub SendJail(ByVal Name As String, ByVal Motivo As String, ByVal Map As Long, ByVal x As Byte, ByVal y As Byte)
        Dim Packet As String
       
            Packet = "JAILPLAYER" & SEP_CHAR & Name & SEP_CHAR & Motivo & SEP_CHAR & Map & SEP_CHAR & x & SEP_CHAR & y & END_CHAR
            Call SendData(Packet)
        End Sub
    Client~Side terminado, agora abra o Server~Side e procure por:

    Código:
    ' :::::::::::::::::::::
                    ' :: Ban list packet ::
                    ' :::::::::::::::::::::
    Em cima dela adicione:

    Código:
    ' ::::::::::::::::::::::::
                ' :: Jail player packet ::
                ' ::::::::::::::::::::::::
                Case "jailplayer"
             
                ' Proteção
                    If GetPlayerAccess(Index) <= 0 Then
                        Call HackingAttempt(Index, "Admin Cloning")
                        Exit Sub
                    End If
       
                    ' player index
                    N = FindPlayer(Parse(1))
    Fim Sistema de Prisão Cheesy

    Créditos: Thales12 Por criar o Sistema, Tutorial e Postar.
    tenchumaster
    tenchumaster
    Banido
    Banido


    Mensagens : 577
    Créditos : 76

    Sistema de Prisão Empty Re: Sistema de Prisão

    Mensagem por tenchumaster Sáb Jul 30, 2011 12:45 am

    Sistema de Prisão 364988687 legal ! +1 cred !


    _________________
    Sistema de Prisão Barradefan



    Barra de fan do meu joguinho use voce tambem

    [code:1][URL=http://imageshack.us/photo/my-images/163/barradefan.jpg/][IMG]http://img163.imageshack.us/img163/2981/barradefan.jpg[/IMG][/URL]

    [/code:1]

      Data/hora atual: Ter Mar 19, 2024 10:46 am