OP Status
Moderator: Moderators
-
ChaosTheKitty
- Posts: 6
- Joined: 2003-07-10 16:07
OP Status
Does anyone know if there is a script out there that can tell me how many times from the last restart a OP has kicked, banned and what they've banned for?
Hub: anime-neko.kicks-ass.net
Site: www.neko-network.com
Site: www.neko-network.com
-
MangaDav
- Posts: 9
- Joined: 2003-04-09 10:05
- Location: Bruxelles
This little script stocks in the object oKick the number of kicks an Op does and, if you send the command "!NbKicks [OP-Name]" you get a PM from this OP saying how many kicks he has done... I don't know how to get the reason of the kick nor how to get who has banned and he reason... So I can't make this script better... Sorry
[/code]
Code: Select all
Dim oKick
Dim sCom
Sub Main()
oKick = CreateObject("Scripting.Dictionary")
sCom = "!NbKicks "
End Sub
Sub DataArival(curUser, sCurData)
If left(sCurData, 6) = "$Kick " then
If oKick.Exists(curUser.sName) Then
oKick.Item(curUser.sName) = oKick.Item(curUser.sName) + 1
Else
oKick.Add curUser.sName, 1
End If
End If
If (Left(sCurData, 1) = "<") and (InStr(sCurData, sCom) > 0)
sOP = AfterFirst(sCurData, sCom)
curUser.PrivateMessage sOP, "I've already Kicked " & oKick.Item(sOP) & " person since last restart of the hub..."
End If
End Sub
Who is online
Users browsing this forum: Google [Bot] and 0 guests