Policy Of Truth

[bastya_elvtars]

Just a little fun script to stuff up mainchat lines - it is real fun

-- PolicyOfTruth by Herodes and bastya_elvtars (the rock n' roll doctor)
-- puts some addition after mainchat lines
-- questions are omitted, also commands starting with !


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 ..",
}

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

[Herodes]

"Take my word for it ... , or not .."  lol

[bastya_elvtars]

[21:17] <[Telia]Styx> +rules  i am being a dork

:D :D :D

[Herodes]

Lol bast
I like this script as nothing in the world :D

An update so that  +rules i am a dork doesnt happen ;)

-- 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 ;)
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 ..",
}

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+"..v..".*") 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
			end
		end
	end
end

[bastya_elvtars]

OK, Herodes, I win...

-- 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

[TiMeTrAVelleR]

This last version  block  commands  i use  in hub  

 8)

lol  they  both  do  

[BottledHate]

Originally posted by T?M??r?V?ll?R
This last version  block  commands  i use  in hub  

 8)

lol  they  both  do  

looks like it is because it processes all data regardless
of weather it uses it or not... not positive, but removing
 the two:

else
					SendToAll(data) return 1

should stop it from processing ALL chat therefore
making other commands not get to the other bots'
dataarrival. (i mean.. if it isn't going to use the data, let
it pass on its way.)
^^^^
don't quote me on this, i just came up with that looking at the thing...

another option.. add a "_" (underscore) to the begging of the script
 name, so it loads last in pto, making its' dataarrival get
 stuff after all the others have had their way with it.
^^^^
don't quote me on that either, it's REALLY late, and i've
 been partying :D

-BH

[TiMeTrAVelleR]

else
               SendToAll(data) return 1

removed  that  seems  to work   thanks

have a good sleep  :D

[TiMeTrAVelleR]

seemed  to work   but not animore  shame   quite funny  ;(