18-12-2008, 06:59 AM
Okay, so the other day, I got bored and tried to write one from scratch, needless to say it was a success. I'm pretty confident in it, as it seemed to work quite well, though I'd appreciate it if someone with a bit more knowledge than I, took a look at it to see if there was any potential bugs or problems. The good thing about this is, that it keeps track of the players warn level. So all you need to do is /warn the player. First warning sends a text warn. Second a kick, and the third a good ol' ban. Enjoy, and remember I need some constructive criticism.
Server Side
[spoiler]Find
Under it add:
Then Find:
Under it add:
Then Find
Above it add:
Then Find:
And under that add:
Then in the player rec find:
Under that add:[/spoiler]
Client Side
[spoiler]Find:
Under it add:
Then find:
Under it add:
Then find:
Under it add:[/spoiler]
That should be it. Give it a whirl, and drop me some feed back.
Server Side
[spoiler]Find
Code:
CQuitUnder it add:
Code:
CSetWarnThen Find:
Code:
Sub SetPlayerPK(ByVal Index As Long, ByVal PK As Long)
Player(Index).Char(TempPlayer(Index).CharNum).PK = PK
End SubUnder it add:
Code:
Function GetPlayerWarn(ByVal Index As Long) As Long
GetPlayerWarn = Player(Index).Char(TempPlayer(Index).CharNum).Warn
End Function
Sub SetPlayerWarn(ByVal Index As Long, ByVal Warn As Long)
Player(Index).Char(TempPlayer(Index).CharNum).Warn = Warn
End SubThen Find
Code:
Case Else
GoTo ErrorHandle ' packet not foundAbove it add:
Code:
Case CSetWarn
HandleSetWarn Index, ParseThen Find:
Code:
' :::::::::::::::::::::::
' :: Set sprite packet ::
' :::::::::::::::::::::::
Private Sub HandleSetSprite(ByVal Index As Long, ByRef Parse() As String)
Dim N As Long
' Prevent hacking
If GetPlayerAccess(Index) < ADMIN_MAPPER Then
Call HackingAttempt(Index, "Admin Cloning")
Exit Sub
End If
' The sprite
N = CLng(Parse(1))
Call SetPlayerSprite(Index, N)
Call SendPlayerData(Index)
Exit Sub
End SubAnd under that add:
Code:
' :::::::::::::::::::::::
' :: Set Warn packet ::
' :::::::::::::::::::::::
Sub HandleSetWarn(ByVal Index As Long, _
ByRef Parse() As String)
Dim N As Long
N = FindPlayer(Parse(1))
If N > 0 Then
If N Index Then
Select Case GetPlayerWarn(N) + 1
Case 1
Call SetPlayerWarn(N, 1)
'Call SetPlayerWarn(n, GetPlayerWarn(n) + 1)
Call PlayerMsg(Index, "You have received your first warning, for breaking the rules. Your second will result in a kick!", Blue)
Case 2
Call SetPlayerWarn(N, GetPlayerWarn(N) + 1)
Call AlertMsg(Index, "You have received your second warning. Your third will result in a ban")
Case 3
Call SetPlayerWarn(N, GetPlayerWarn(N) + 1)
Call BanIndex(N, Index)
End Select
Else
Call PlayerMsg(Index, "You can't warn yourself!", BrightRed)
End If
Else
Call PlayerMsg(Index, "Player Isn't Online!", BrightRed)
End If
End SubThen in the player rec find:
Code:
PK As ByteUnder that add:
Code:
Warn As ByteClient Side
[spoiler]Find:
Code:
Case "/setaccess"
If GetPlayerAccess(MyIndex) < ADMIN_CREATOR Then
AddText "You need to be a high enough staff member to do this!", AlertColor
GoTo Continue
End If
If UBound(Command) < 2 Then
AddText "Usage: /setaccess (name) (access)", AlertColor
GoTo Continue
End If
If IsNumeric(Command(1)) = True Or IsNumeric(Command(2)) = False Then
AddText "Usage: /setaccess (name) (access)", AlertColor
GoTo Continue
End If
SendSetAccess Command(1), CLng(Command(2))Under it add:
Code:
Case "/warn"
If GetPlayerAccess(MyIndex) < ADMIN_CREATOR Then
AddText "You need to be a high enough staff member to do this!", AlertColor
GoTo Continue
End If
If UBound(Command) < 1 Then
AddText "Usage: /warn (name)", AlertColor
GoTo Continue
End If
If IsNumeric(Command(1)) = True Then
AddText "Usage: /warn (name)", AlertColor
GoTo Continue
End If
SendSetWarn Command(1)Then find:
Code:
Sub SendSetAccess(ByVal Name As String, ByVal Access As Byte)
Dim Packet As String
Packet = CSetAccess & SEP_CHAR & Name & SEP_CHAR & Access & END_CHAR
Call SendData(Packet)
End SubUnder it add:
Code:
Sub SendSetWarn(ByVal Name As String)
Dim Packet As String
Packet = CSetWarn & SEP_CHAR & Name & END_CHAR
Call SendData(Packet)
End SubThen find:
Code:
CQuitUnder it add:
Code:
CSetWarnThat should be it. Give it a whirl, and drop me some feed back.
Here's a challenge for ya Nean, store a date on the player rec as well, and make the third warning a one day ban, and add a fourth warning that permanently bans them 
