Kick & warn script.

[Jaakko]

I need a script that kicks user if he has been warned 3 times, and after 3 kicks will automagically ban him for 6 hours.
Protection for profiles would be nice, but isn't necessary.

Profiles:

[-1] = 0, -- unreg
[0] = 1, -- admin
[1] = 1, -- master
[2] = 1, -- operator
[3] = 0, -- vip
[4] = 0, -- reg

[CrazyGuy]

I made this script, but i can't find it back  :-\
I know it's being used in a hub, I'll ask the owner to attach it.

[-SkA-]

ChatArrival = function(User,Data)
	local _,_,cmd,sNick,sReason = string.find(Data, "%b<>%s%p(%S+)%s(%S+)%s(.*)|")
	if (cmd) and (cmd =="warn") then
		local Prof = GetProfilePermissions(User.iProfile)
		if (Prof.bKick) then
			if (sReason) then
				local Victim = GetItemByName(sNick)
				if Victim then
					if (Victim.iProfile == -1) or (Victim.iProfile > User.iProfile) then
						Victim:SendPM(frmHub:GetHubBotName(), "You have been warned by "..User.sName.." because: "..sReason)
						SendToAll(frmHub:GetHubBotName(), sNick.." has been warned because: "..sReason)
					else
						User:SendData(frmHub:GetHubBotName(), "Forget it, "..sNick.." is more powerful than you.")
					end
				else
					User:SendData(frmHub:GetHubBotName(), sNick.." is not online")
				end
			else
				User:SendData(frmHub:GetHubBotName(),"Please specify a reason")
			end
		else
			User:SendData(frmHub:GetHubBotName(), "You are not allowed to use this command")
		end
		return 1
	end
end

OpConnected = function(User)
	local Prof = GetProfilePermissions(User.iProfile)
	if (Prof.bKick) then
		User:SendData("$UserCommand 1 3 "..frmHub:GetHubName().."\\Warn$<%[mynick]> !warn %[nick] %[line:Reason]&#124;|")
	end
end