Sistema de Prisão

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

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

legal ! +1 cred !