[ALL] Sistema de Prisão

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

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

Código:

' :::::::::::::::::::::
            ' :: Ban list packet ::
            ' :::::::::::::::::::::

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))
           
            If N <> Index Then
                If N > 0 Then
                    If GetPlayerAccess(N) <= GetPlayerAccess(Index) Then
                        Call AddLog(GetPlayerName(Index) & " prendeu " & GetPlayerName(N) & " Motivo: " & Parse(2) & ".", ADMIN_LOG)
                        Call GlobalMsg(GetPlayerName(N) & " foi preso por:" & GetPlayerName(Index) & " Motivo: " & Parse(2) & ".", White)
                        Call PlayerWarp(N, Val(Parse(3)), Val(Parse(4)), Val(Parse(5)))
                    Else
                        Call PlayerMsg(Index, "Ele é um administrador de nível maior que o seu!", White)
                    End If
 
                Else
                    Call PlayerMsg(Index, "O jogador está offline.", White)
                End If
 
            Else
                Call PlayerMsg(Index, "Você não pode se prender!", White)
            End If
        Exit Sub

Spoiler:

Gostei! +1

Nosa thales dessa ves vc me surpreendeu muito, vou usar no meu jogo concerteza, vc mereceu, +2 creditos !

Aew! faltava uma linha pro meu ficar funcionando!!

TY ajudou aew =)

tem que fazer mais sistemas assim ^^

Hun Gostei Thales quando for Criar 1 topico mano olha si ñ ja tem aki no
forum ou na prodev pra galera ñ fica falando que vc Copio porque vc
poderia ter Copiado mais com eu te conheço tenho Certeza que ñ rsrs ^^

thales12 escreveu:Bom nao tinha nada para mim fazer, entao fiz um sistema de Prisão !!!

Baixe a Form aki >>> FrmJail

Abra o Seu Client~Side logo em seguida va na FrmAdmin e adicione 1 CommandButon 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))
           
            If N <> Index Then
                If N > 0 Then
                    If GetPlayerAccess(N) <= GetPlayerAccess(Index) Then
                        Call AddLog(GetPlayerName(Index) & " prendeu " & GetPlayerName(N) & " Motivo: " & Parse(2) & ".", ADMIN_LOG)
                        Call GlobalMsg(GetPlayerName(N) & " foi preso por:" & GetPlayerName(Index) & " Motivo: " & Parse(2) & ".", White)
                        Call PlayerWarp(N, Val(Parse(3)), Val(Parse(4)), Val(Parse(5)))
                    Else
                        Call PlayerMsg(Index, "Ele é um administrador de nível maior que o seu!", White)
                    End If
 
                Else
                    Call PlayerMsg(Index, "O jogador está offline.", White)
                End If
 
            Else
                Call PlayerMsg(Index, "Você não pode se prender!", White)
            End If
        Exit Sub

Demonstração

Spoiler:

Spoiler:

Créditos: thales por criar o sistema,tutorial e postar.
[/spoiler]

Código:


If GetPlayerMap(index) = MAPA Then 'O Mapa da Cadeia
Call PlayerMsg(index, "Voce Esta Preso!", 4) 'Dizendo aonde esta
Exit Sub 'finalizacao do comando , caso tenha no seu comando nao precisa disso
End If ' e adicione 1 end if para poder fexar o caso


Bom Mano So faltou uma coisa e eu vou completar ^^

nos comandos que teletransporte ou warps e tal voce poe o seguinte comando:

Código:

If GetPlayerMap(index) = MAPA Then 'O Mapa da Cadeia
Call PlayerMsg(index, "Voce Esta Preso!", 4) 'Dizendo aonde esta
Exit Sub 'finalizacao do comando , caso tenha no seu comando nao precisa disso
End If ' e adicione 1 end if para poder fexar o caso


Essa Funçao serve pro jogador que estiver na cadeia nao possa sair por comando apenas o admin tira ele!
Parabens, +1 Cred.

OBS: vou fazer prisão pelo vb, sem script

se o thales disse (vou fazer prisão pelo vb, sem script)
se nem ele sabe oque postou não preciso dizer mais nada

Código:

If GetPlayerMap(index) = MAPA Then 'O Mapa da Cadeia
Call PlayerMsg(index, "Voce Esta Preso!", 4) 'Dizendo aonde esta
Exit Sub 'finalizacao do comando , caso tenha no seu comando nao precisa disso
End If ' e adicione 1 end if para poder fexar o caso