-- Kenny Script by ¨˜”°º•Hawk•º°”˜¨
--  31-03-04
Bot = "Kenny"
kennytext = { 
"*umfl* *uuffum*",
"*lluu* *mlmlff* *umfl* *lfumfl* *umfl*",
"*lmmf* *uullu* *mmmm*",
"*ommlu* *uullu* *lmmf* *ommlu* *mflf*",
"*olomum* *lmmf* *mhhhmmlm*",
"*Mhhl* *mujm* *umfl*",
} 
Kennylizednicks = {}

function DataArrival(user, data)
   	if (strsub(data,1,1) == "<") then
   		data=strsub(data,1,strlen(data)-1)
   		s,e,cmd = strfind(data,"%b<>%s+(%S+)")
			if user.bOperator then
      				if (cmd=="+kenny") then
         				kenylize(user, data)
					return 1
      				elseif (cmd=="+unkenny") then
         				Unkenylize(user, data)
					return 1
      				elseif (cmd=="+showkenny") then
					ShowKennys(user)
					return 1
      				elseif (cmd=="+unkennyall") then
					Kennylizednicks = {}
         				SendToAll(Bot, " all kennys have gone ! ! !")
					return 1
      				end
			end
      				if strsub(data,1,1) == "<" then
         				if Kennylizednicks[user.sName] == 1 then
						text=kennytext[random(1, getn(kennytext))]
						SendToAll(user.sName, text)
						return 1
         				end
      				end
   		end
end

function kenylize(user, data)
	local s,e,cmd,usr = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
   		if kennyd == nil then
      			user:SendData(Bot,"The User is not in the hub ! ! !")
      		else
			if Kennylizednicks[kennyd.sName] == nil then
         			Kennylizednicks[kennyd.sName] = 1
         			SendToAll(Bot,kennyd.sName.." Has been turned in to a Kenny Clone  ! ! !")
      			end
   		end
end

function Unkenylize(user, data)
	local s,e,cmd,usr = strfind(data,"%b<>%s+(%S+)%s+(%S+)")
	local kennyd = GetItemByName(usr)
   		if kennyd == nil then
      			user:SendData(Bot,"The User is not in the hub ! ! !")
   		else
      			if Kennylizednicks[kennyd.sName] == 1 then
         			Kennylizednicks[kennyd.sName] = nil;
         			SendToAll(Bot, 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(Bot,"\r\n\r\nKennylised users..\r\n\r\n"..names)
		
end