Kenny Script by ??????Hawk?????? small MoDDeD :D

[6Marilyn6Manson6]

-- Kenny Script by ??????Hawk??????
--  31-03-04
--// Change small by 6Marilyn6Manson6 28/04/2006
------------------------------------------------------
BotName = "[ITA]Kenny-Mute"			--frmHub:GetHubBotName(),
Version = "0.1"
Prefix = "!"							--! + # ? -
Kennylizednicks = {}
Mutes = {}
mins = 1000 * 60 * 1
------------------------------------------------------
CanDo = {
[-1] = 0,  -- Users
[0] = 1,   -- Masters
[1] = 0,   -- OPs
[2] = 0,   -- VIPs
[3] = 0,   -- REGs
[4] = 1,   -- MODs
[5] = 1,   -- Founders
}
------------------------------------------------------
kennytext = { 
	"*umfl* *uuffum*",
	"*lluu* *mlmlff* *umfl* *lfumfl* *umfl*",
	"*lmmf* *uullu* *mmmm*",
	"*ommlu* *uullu* *lmmf* *ommlu* *mflf*",
	"*olomum* *lmmf* *mhhhmmlm*",
	"*Mhhl* *mujm* *umfl*",
} 
------------------------------------------------------
function OnTimer()
	Kennylizednicks = {}
	Mutes = {}
	SendToOps(BotName, "All Kennys have gone ! ! !")
	SendToOps(BotName, "All Mutes have gone ! ! !")
	StopTimer()
end
------------------------------------------------------
function Main()
	if BotName ~= frmHub:GetHubBotName() then
		frmHub:RegBot(BotName, 1, "Kenny-Mute "..Version.."", "")
	end
end
------------------------------------------------------
function ChatArrival(user, data)
	data=string.sub(data,1,string.len(data)-1)
	s,e,cmd = string.find(data,"%b<>%s+(%S+)")
	if CanDo[user.iProfile] == 1 then
		if (cmd==Prefix.."kenny") then
			StopTimer()
			SetTimer(mins)
			StartTimer() 
			kennylize(user, data)
			return 1
		elseif (cmd==Prefix.."unkenny") then
			Unkennylize(user, data)
			return 1
		elseif (cmd==Prefix.."showkenny") then
			ShowKennys(user)
			return 1
		elseif (cmd==Prefix.."unkennyall") then
			Kennylizednicks = {}
			SendToOps(BotName, "All Kennys have gone ! ! !")
			return 1
		elseif (cmd==Prefix.."mute") then
			StopTimer()
			SetTimer(mins)
			StartTimer() 
			DoMutes(user, data)
			return 1
		elseif (cmd==Prefix.."unmute") then
			UnDoMutes(user, data)
			return 1
		elseif (cmd==Prefix.."showmutes") then
			ShowMutes(user)
			return 1
		elseif (cmd==Prefix.."clearmutes") then
			Mutes = {}
			SendToOps(BotName, "All Mutes have gone ! ! !")
			return 1
		end
	end
	if Kennylizednicks[user.sName] == 1 then
		text=kennytext[math.random(1, table.getn(kennytext))]
		SendToAll(user.sName, text)
		return 1
	elseif Mutes[user.sName] == 1 then
		user:SendData(BotName,"You are muted. Your message has been blocked ! ! !")
		return 1
	end
end
------------------------------------------------------
function ToArrival(user,data)
	if Kennylizednicks[user.sName] == 1 then
		s,e,g,h,j = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")
		j = kennytext[math.random(1, table.getn(kennytext))]
		SendPmToNick(g,h,j)			
		user:SendPM(BotName," You have been kenylized this was sent instead. ' "..j.." '")
		return 1
	elseif Mutes[user.sName] == 1 then
		user:SendPM(BotName,"You are muted. Your message has been blocked ! ! !")
		return 1
	end
end
------------------------------------------------------
function DoMutes(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local Muted = GetItemByName(usr)
	if Muted == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Mutes[Muted.sName] == nil then
			Mutes[Muted.sName] = 1
			SendToAll(BotName,Muted.sName.." Has been Muted ! ! !")
		end
	end
end
------------------------------------------------------
function UnDoMutes(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local Muted = GetItemByName(usr)
	if Muted == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Mutes[Muted.sName] == 1 then
			Mutes[Muted.sName] = nil;
			SendToAll(BotName, Muted.sName.." Has Been Un-Muted ..")
		end
	end
end
------------------------------------------------------
function ShowMutes(user)
	local names = ""
	for index, value in Mutes do
		local line = index
		names = names.." "..line.."\r\n"
	end
	user:SendPM(BotName,"\r\n\r\nMuted users..\r\n\r\n"..names)
end
------------------------------------------------------
function kennylize(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
	if kennyd == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Kennylizednicks[kennyd.sName] == nil then
			Kennylizednicks[kennyd.sName] = 1
			SendToAll(BotName,kennyd.sName.." Has been turned in to a Kenny Clone  ! ! !")
		end
	end
end
------------------------------------------------------
function Unkennylize(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
	if kennyd == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Kennylizednicks[kennyd.sName] == 1 then
			Kennylizednicks[kennyd.sName] = nil;
			SendToAll(BotName, kennyd.sName.." Has Returned ..")
		end
	end
end
------------------------------------------------------
function ShowKennys(user)
	local names = ""
	for index, value in Kennylizednicks do
		local line = index
		names = names.." "..line.."\r\n"
	end
	user:SendPM(BotName,"\r\n\r\nKennylised users..\r\n\r\n"..names)
end
------------------------------------------------------
--// 6Marilyn6Manson6

[Markitos]

------------------------------------------------------
--// 6Marilyn6Manson6-- Kenny Script by ??????Hawk??????
--  31-03-04
--// Change small by 6Marilyn6Manson6 28/04/2006
--// Moded by Markitos 28/04/2006
-- Added tables to commands
-- Added Right Click
-- Added OnError function
--
------------------------------------------------------
BotName = "[ITA]Kenny-Mute"			--frmHub:GetHubBotName(),
Version = "0.1"
Kennylizednicks = {}
Mutes = {}
mins = 1000 * 60 * 1
RC = "Kenny"
ErrLogFile = frmHub:GetPtokaXLocation().."scripts\\KennyErrLog.txt"
------------------------------------------------------
CanDo = {
[-1] = 0,  -- Users
[0] = 1,   -- Masters
[1] = 0,   -- OPs
[2] = 0,   -- VIPs
[3] = 0,   -- REGs
[4] = 1,   -- MODs
[5] = 1,   -- Founders
}
------------------------------------------------------
kennytext = { 
	"*umfl* *uuffum*",
	"*lluu* *mlmlff* *umfl* *lfumfl* *umfl*",
	"*lmmf* *uullu* *mmmm*",
	"*ommlu* *uullu* *lmmf* *ommlu* *mflf*",
	"*olomum* *lmmf* *mhhhmmlm*",
	"*Mhhl* *mujm* *umfl*",
} 
------------------------------------------------------
function OnTimer()
	Kennylizednicks = {}
	Mutes = {}
	SendToOps(BotName, "All Kennys have gone !!!")
	SendToOps(BotName, "All Mutes have gone !!!")
	StopTimer()
end
------------------------------------------------------
function Main()
	if BotName ~= frmHub:GetHubBotName() then
		frmHub:RegBot(BotName, 1, "Kenny-Mute "..Version.."", "")
	end
end
------------------------------------------------------
OpConnected = function(user)
    if CanDo[user.iProfile] == 1 then
		if user.bUserCommand then
			user:SendData("$UserCommand 0 3")
			user:SendData("$UserCommand 1 3 "..RC.."\\Kenny User$<%[mynick]> !kenny %[nick]&#124;|")
			user:SendData("$UserCommand 1 3 "..RC.."\\Unkenny User$<%[mynick]> !unkenny %[nick]&#124;|")
			user:SendData("$UserCommand 1 3 "..RC.."\\Mute User$<%[mynick]> !mute %[nick]&#124;|")
			user:SendData("$UserCommand 1 3 "..RC.."\\Unmute User$<%[mynick]> !unmute %[nick]&#124;|")
			user:SendData("$UserCommand 1 3 "..RC.."\\Show Kenny$<%[mynick]> !showkenny %[nick]&#124;|")
			user:SendData("$UserCommand 1 3 "..RC.."\\Show Mutes$<%[mynick]> !showmutes %[nick]&#124;|")
			user:SendData("$UserCommand 1 3 "..RC.."\\Unkenny All$<%[mynick]> !unkennyall %[nick]&#124;|")
			user:SendData("$UserCommand 1 3 "..RC.."\\Clear Mutes$<%[mynick]> !clearmutes %[nick]&#124;|")
		end
	end
end
---------------------------------------------------
function ChatArrival(user, data)
	local data=string.sub(data,1,string.len(data)-1)
	local s,e,cmd = string.find(data,"%b<>%s%p(%w+)")
	if CanDo[user.iProfile] == 1 and cmd then
		local tCmds = {
		["kenny"] = function()
			StopTimer()
			SetTimer(mins)
			StartTimer() 
			kennylize(user, data)
		end,
		["unkenny"] = function()
			Unkennylize(user, data)
		end,
		["showkenny"] = function()
			ShowKennys(user)
		end,
		["unkennyall"] = function()
			Kennylizednicks = {}
			SendToOps(BotName, "All Kennys have gone ! ! !")
		end,
		["mute"] = function()
			StopTimer()
			SetTimer(mins)
			StartTimer() 
			DoMutes(user, data)
		end,
		["unmute"] = function()
			UnDoMutes(user, data)
		end,
		["showmutes"] = function()
			ShowMutes(user)
		end,
		["clearmutes"] = function()
			Mutes = {}
			SendToOps(BotName, "All Mutes have gone ! ! !")
		end,
		}
		if tCmds[string.lower(cmd)] then
			return tCmds[cmd](user,data),1
		end
	end
		if Kennylizednicks[user.sName] == 1 then
			text=kennytext[math.random(1, table.getn(kennytext))]
			return SendToAll(user.sName, text),1
		elseif Mutes[user.sName] == 1 then
			return user:SendData(BotName,"You are muted. Your message has been blocked ! ! !"),1
		end
end
------------------------------------------------------
function ToArrival(user,data)
	if Kennylizednicks[user.sName] == 1 then
		s,e,g,h,j = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")
		j = kennytext[math.random(1, table.getn(kennytext))]
		SendPmToNick(g,h,j)			
		return user:SendPM(BotName," You have been kenylized this was sent instead. ' "..j.." '"),1
	elseif Mutes[user.sName] == 1 then
		return user:SendPM(BotName,"You are muted. Your message has been blocked ! ! !"),1
	end
end
------------------------------------------------------
function DoMutes(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local Muted = GetItemByName(usr)
	if Muted == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Mutes[Muted.sName] == nil then
			Mutes[Muted.sName] = 1
			SendToAll(BotName,Muted.sName.." Has been Muted ! ! !")
		end
	end
end
------------------------------------------------------
function UnDoMutes(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local Muted = GetItemByName(usr)
	if Muted == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Mutes[Muted.sName] == 1 then
			Mutes[Muted.sName] = nil;
			SendToAll(BotName, Muted.sName.." Has Been Un-Muted ..")
		end
	end
end
------------------------------------------------------
function ShowMutes(user)
	local names = ""
	for index, value in pairs(Mutes) do
		local line = index
		names = names.." "..line.."\r\n"
	end
	user:SendData(BotName,"\t\r\n\Muted users..\r\n\t"..names)
end
------------------------------------------------------
function kennylize(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
	if kennyd == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Kennylizednicks[kennyd.sName] == nil then
			Kennylizednicks[kennyd.sName] = 1
			SendToAll(BotName,kennyd.sName.." Has been turned in to a Kenny Clone  ! ! !")
		end
	end
end
------------------------------------------------------
function Unkennylize(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
	if kennyd == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Kennylizednicks[kennyd.sName] == 1 then
			Kennylizednicks[kennyd.sName] = nil;
			SendToAll(BotName, kennyd.sName.." Has Returned ..")
		end
	end
end
------------------------------------------------------
function ShowKennys(user)
	local names = ""
	for index, value in pairs(Kennylizednicks) do
		local line = index
		names = names.." "..line.."\r\n"
	end
	user:SendData(BotName,"\r\n\Kennylised users..\r\n"..names)
end
------------------------------------------------------
OnError = function(ErrorMsg)
	if ErrorMsg then
		SendPmToOps(BotName, "Kenny.v"..Version.." Error: "..ErrorMsg)
		local file,err = io.open(ErrLogFile, "a+")
		if err then
			file = io.open(ErrLogFile, "w+")
		end
		file:write("Kenny.v"..Version.." - Error: "..os.date().." - "..ErrorMsg.."\n")
		file:close()

	end
end
----------------------------------------------------
--// 6Marilyn6Manson6

More ideas just ask...

[Markitos]

New update  ;D

------------------------------------------------------
--// 6Marilyn6Manson6-- Kenny Script by ??????Hawk??????
--  31-03-04
--// Change small by 6Marilyn6Manson6 28/04/2006
--// Moded by Markitos 28/04/2006
-- Added tables to commands
-- Added Right Click
-- Added OnError function

-- Optimized code.... (10/05/06)
------------------------------------------------------
BotName = "[ITA]Kenny-Mute"			--frmHub:GetHubBotName(),
Version = "0.1"
Kennylizednicks = {}
Mutes = {}
mins = 1000 * 60 * 1
RC = "Kenny"
ErrLogFile = frmHub:GetPtokaXLocation().."scripts\\KennyErrLog.txt"
------------------------------------------------------
kennytext = { 
	"*umfl* *uuffum*",
	"*lluu* *mlmlff* *umfl* *lfumfl* *umfl*",
	"*lmmf* *uullu* *mmmm*",
	"*ommlu* *uullu* *lmmf* *ommlu* *mflf*",
	"*olomum* *lmmf* *mhhhmmlm*",
	"*Mhhl* *mujm* *umfl*",
} 
------------------------------------------------------
function OnTimer()
	Kennylizednicks = {}
	Mutes = {}
	SendToOps(BotName, "All Kennys have gone !!!")
	SendToOps(BotName, "All Mutes have gone !!!")
	StopTimer()
end
------------------------------------------------------
function Main()
	if BotName ~= frmHub:GetHubBotName() then
		frmHub:RegBot(BotName, 1, "Kenny-Mute "..Version.."", "")
	end
end
--------------------------------------------------------
ChatArrival = function(user, data) 
	local s,e,cmd = string.find(data,"%b<>%s%p(%w+)")
	if cmd then
		if tCommands[cmd] then
			return tCommands[cmd].tFunc(user, data), 1
		end
	end
	if Kennylizednicks[user.sName] == 1 then
		text=kennytext[math.random(1, table.getn(kennytext))]
		return SendToAll(user.sName, text),1
	elseif Mutes[user.sName] == 1 then
		return user:SendData(BotName,"You are muted. Your message has been blocked ! ! !"),1
	end
end

OpConnected = function(user)
	if user.bUserCommand then
		user:SendData("$UserCommand 0 3")
		for i,v in pairs(tCommands) do
			local sRC = string.gsub(v.tRC,"{}",i)
			user:SendData("$UserCommand 1 3 "..RC.."\\"..sRC.."&#124;")
		end
	end
end
------------------------------------------------------------------------
tCommands = {
	kenny = {
		tFunc = function(user,data)
			StopTimer()
			SetTimer(mins)
			StartTimer() 
			kennylize(user, data)
		end,
		tRC = "Kenny User$<%[mynick]> !{}"
	},
	unkenny = {
		tFunc = function(user)
			Unkennylize(user, data)
		end,
		tRC = "Unkenny User$<%[mynick]> !{}"
	},
	showkenny = {
		tFunc = function(user)
			ShowKennys(user)
		end,
		tRC = "Show Kenny$<%[mynick]> !{}"
	},
	unkennyall = {
		tFunc = function(user)
			Kennylizednicks = {}
			SendToOps(BotName, "All Kennys have gone ! ! !")
		end,
		tRC = "Unkenny All$<%[mynick]> !{}"
	},
	mute = {
		tFunc = function(user)
			StopTimer()
			SetTimer(mins)
			StartTimer() 
			DoMutes(user, data)
		end,
		tRC = "Mute User$<%[mynick]> !{}"
	},
	unmute = {
		tFunc = function(user)
			UnDoMutes(user, data)
		end,
		tRC = "Unmute User$<%[mynick]> !{}"
	},
	showmutes = {
		tFunc = function(user)
			ShowMutes(user)
		end,
		tRC = "Show Mutes$<%[mynick]> !{}"
	},
	clearmutes = {
		tFunc = function(user)
			Mutes = {}
			SendToOps(BotName, "All Mutes have gone ! ! !")
		end,
		tRC = "Clear Mutes$<%[mynick]> !{}"
	},
}
------------------------------------------------------
function ToArrival(user,data)
	if Kennylizednicks[user.sName] == 1 then
		s,e,g,h,j = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")
		j = kennytext[math.random(1, table.getn(kennytext))]
		SendPmToNick(g,h,j)			
		return user:SendPM(BotName," You have been kenylized this was sent instead. ' "..j.." '"),1
	elseif Mutes[user.sName] == 1 then
		return user:SendPM(BotName,"You are muted. Your message has been blocked ! ! !"),1
	end
end
------------------------------------------------------
function DoMutes(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local Muted = GetItemByName(usr)
	if Muted == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Mutes[Muted.sName] == nil then
			Mutes[Muted.sName] = 1
			SendToAll(BotName,Muted.sName.." Has been Muted ! ! !")
		end
	end
end
------------------------------------------------------
function UnDoMutes(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local Muted = GetItemByName(usr)
	if Muted == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Mutes[Muted.sName] == 1 then
			Mutes[Muted.sName] = nil;
			SendToAll(BotName, Muted.sName.." Has Been Un-Muted ..")
		end
	end
end
------------------------------------------------------
function ShowMutes(user)
	local names = ""
	for index, value in pairs(Mutes) do
		local line = index
		names = names.." "..line.."\r\n"
	end
	user:SendData(BotName,"\t\r\n\Muted users..\r\n\t"..names)
end
------------------------------------------------------
function kennylize(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
	if kennyd == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Kennylizednicks[kennyd.sName] == nil then
			Kennylizednicks[kennyd.sName] = 1
			SendToAll(BotName,kennyd.sName.." Has been turned in to a Kenny Clone  ! ! !")
		end
	end
end
------------------------------------------------------
function Unkennylize(user, data)
	local s,e,cmd,usr = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
	if kennyd == nil then
		user:SendData(BotName,"The User is not in the hub ! ! !")
	else
		if Kennylizednicks[kennyd.sName] == 1 then
			Kennylizednicks[kennyd.sName] = nil;
			SendToAll(BotName, kennyd.sName.." Has Returned ..")
		end
	end
end
------------------------------------------------------
function ShowKennys(user)
	local names = ""
	for index, value in pairs(Kennylizednicks) do
		local line = index
		names = names.." "..line.."\r\n"
	end
	user:SendData(BotName,"\r\n\Kennylised users..\r\n"..names)
end
------------------------------------------------------
OnError = function(ErrorMsg)
	if ErrorMsg then
		SendPmToOps(BotName, "Kenny.v"..Version.." Error: "..ErrorMsg)
		local file,err = io.open(ErrLogFile, "a+")
		if err then
			file = io.open(ErrLogFile, "w+")
		end
		file:write("Kenny.v"..Version.." - Error: "..os.date().." - "..ErrorMsg.."\n")
		file:close()

	end
end
----------------------------------------------------
--// 6Marilyn6Manson6