-- PolicyOfTruth by Herodes and bastya_elvtars (the rock n' roll doctor)
-- puts some addition after mainchat lines
-- questions are omitted, also commands starting with the prefixes in tPref ;)
----------- v 0.2
-- added prefixed command protection by Herodes
-- added question teasing by bastya_elvtars
tPrefs = { "!", ".", "?", "+", "@", "#"}


chance=6 -- the bigger the number is, the less the chance is that users text will be changed


mergetext={ -- up2u to add anything u like, it comes after users text and a space
"- just kidding! :P",
"- i am a fool and telling lies...",
"- dont u believe what i say!",
" or not,...",
" i am being a dork",
" i dont really mean this ..",
}

mergeq={ -- text after questions
"i know im a n00b, but what2do...",
"lol, i ask such a simple thing.",
"damn, i am bothering you again",
"i know the answer, but mainchat looked so empty.",
"hehe i think ppl in here are holding encyclopaedias in their hands",
}

function DataArrival(user,data)
	if strsub(data, 1, 1) == "<" then 
		data=strsub(data,1,strlen(data)-1)
		for i,v in tPrefs do
			if not strfind(data,"%b<>%s+"..i..".*") and not strfind(data,"%?$") then
				local a=random(chance)
				if a==1 then
					SendToAll(data.." "..mergetext[random(getn(mergetext))]) return 1
				else
					SendToAll(data) return 1
				end
			elseif not strfind(data,"%b<>%s+"..i..".*") and strfind(data,"%?$") then
				local a=random(chance)
				if a==1 then
					SendToAll(data.." "..mergeq[random(getn(mergeq))]) return 1
				else
					SendToAll(data) return 1
				end
			end
		end
	end
end