--ScreenCleaner.lua 1.1 by yepyepyep4711 and Hawk
--!cls will wipe the main chat clean (does that remind you of something? ;) )
--the command will be added to the rightclick menu of the OPs (optional)



botname = "ScreenCleaner"

rightclick = 0 -- if anything else than 1 rightclick menu won't appear

function DataArrival (curUser, sData)
command=strsub(sData,1,strlen(sData)-1)
s,e,cmd = strfind(command,"%b<>%s+(%S+)")
	if curUser.bOperator then
		if cmd=="!cls" then
			temp = "\r\n"
			for i=1,200,1 do
				temp = temp.."\r\n"
			end 
			SendToAll(botname, temp)
		end
	end
end



function OpConnected(curUser)
	if rightclick == 1 then
		curUser:SendData("$UserCommand 255 7") 
		curUser:SendData("$UserCommand 0 3") 
		curUser:SendData("$UserCommand 1 2 Clear Screen$<%[mynick]> !cls&#124;") 
	end
end