22-09-2008, 06:47 PM
Alright, I fixed it so it works with the newest version. All you need to change, is the server side of things. Add this
And find: And under that add:
Code:
' ::::::::::::::::::::::::
' :: Jail Player Packet ::
' ::::::::::::::::::::::::
Sub HandleJailPlayer(ByVal Index As Long, ByRef Parse() As String)
Dim N
' Prevent hacking...
If GetPlayerAccess(Index) < ADMIN_CREATOR Then
Call HackingAttempt(Index, "Admin Cloning")
Exit Sub
End If
N = FindPlayer(Parse(1))
If N Index Then
If N > 0 Then
'Sends messages out
Call PlayerMsg(N, "You have been jailed by an admin.", BrightRed)
Call GlobalMsg(GetPlayerName(N) & " has been jailed by an admin.", BrightRed)
'Warp to Jail map (Change the coordinates to fit your needs)
Call PlayerWarp(N, 5, 8, 8)
Else
Call PlayerMsg(Index, "Player is not online.", White)
End If
Else
Call PlayerMsg(Index, "You cannot jail yourself!", White)
End If
End Sub
And find:
Code:
Handlekickplayer index, parse
Code:
Case CJailPlayer
HandleJailPlayer Index, Parse