--Random Chat 1.0
--by Mutor The Ugly  10/20/04
--Request by patamon90
--
--Sends random messages to main on timer.
--
--User Settings-------------------------------------------------------------------------------------
Bot = frmHub:GetHubBotName()	-- Name for bot, pulled from the hub
Mins = 60			-- Interval [in minutes] between announcements.
CommOn = "+rant"		-- Start the script.
CommOff = "+hush"		-- Stop the script.
StartOn = "1"			-- Start script on or off  ["1"=on "0"=off].
--
--
--What Should this bot say in main chat?
Echoes = {
"Help I've fallen and I...   ...hey nice carpet.",
"24 hours in a day ... 24 beers in a case ... coincidence?",
"Multitasking : Screwing up several things at once.",
"The reason talk is cheap is that supply exceeds demand.",
"Support bacteria - they're the only culture some people have.",
"BE ALERT! ...The world needs more lerts.",
"Shin: a device for finding furniture in the dark",
"Nothing is fool-proof to a sufficiently talented fool.",
"If ignorance is bliss, you must be orgasmic.",
"Stealth means never having to say you're sorry.",
"Subliminal Message: Send Mutor all your money..."
}
--End User Settings----------------------------------------------------------------------------------

function Main() 
	SetTimer(Mins*60000)
	if StartOn == "1" then
		StartTimer()
	end
end

function DataArrival(user, data)
	s,e,cmd = strfind(data, "%b<>%s+(%S+)(%S+)")
	if (cmd==CommOn) and user.bOperator then
		user:SendData(Bot,"\r\n\r\n\t--<< [ Random Chat Started ] >>--   Timer Settings = "..Mins.." minutes. \r\n\tType '"..CommOff.."' to stop script.\r\n\r\n")
		StartTimer()
	return 1
	elseif (cmd==CommOff) and user.bOperator then
		StopTimer()   
		user:SendData(Bot,"\r\n\r\n\t--<< [ Random Chat Stopped ] >>--   Script has been stopped. Type '"..CommOn.."' to start script.\r\n\r\n")
	return 1
	end
end

function OnTimer()
	local RandomChat = Echoes[random(1, getn(Echoes))]
		SendToAll(Bot,"\r\n\r\n\t"..RandomChat.."\r\n")
end