PM Word check..

[DoD_Owner]

Hey guys.... well I have this script, and I would like 1 feature more written into it... I want it to type the sentence/word that the users got kicked for... would be nice to know ;-) I hope it's possible.

------------------------

botname = "Daemonicus"
trigs = { ["dreamer"]=1,["d r e a m e r"]=2,["fuck shadow"]=3,
["kingsofchaos"]=4,["fuck dod"]=5,["seven-private"]=6,["s e v e n - p r i v a t e"]=7,["cornerhouse"]=8,["c o r n e r h o u s e"]=9,["lir.dk"]=10, ["corner house"]=11,["joine ch"]=12,
["Drop Inn"]=13,["dropinn"]=14,["d r o p i n n"]=15,["217.215.12.141"]=16,["dreams.gotdns.org:412"]=17,["bigshare"]=18,["ronna.no-ip.com:412"]=19,["dragonslayer-gbg.no-ip.org"]=20,["ChatBaren.dyndns.dk:22221"]=21 }


function DataArrival(user, data)
if (not user.bOperator) then
if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then
for key,a in trigs do
if( strfind( strlower(data), key) ) then
SendPmToOps( botname, user.sName.." has been kicked because of Offensive Language / Advertising." )
user:Disconnect()
end
end
end
end
end


----------------

Thx in advance.

//DoD_Owner...

[nErBoS]

Hi,

Try this one...

botname = "Daemonicus" 

trigs = { 
	["dreamer"]= "Reason.",
	["d r e a m e r"]= "Reason.",
	["fuck shadow"]= "Reason.", 
	["kingsofchaos"]= "Reason.",
	["fuck dod"]= "Reason.",
	["seven-private"]= "Reason.",
	["s e v e n - p r i v a t e"]= "Reason.",
	["cornerhouse"]= "Reason.",
	["c o r n e r h o u s e"]= "Reason.",
	["lir.dk"]= "Reason.", 
	["corner house"]= "Reason.",
	["joine ch"]= "Reason.", 
	["Drop Inn"]= "Reason.",
	["dropinn"]= "Reason.",
	["d r o p i n n"]= "Reason.",
	["217.215.12.141"]= "Reason.",
	["dreams.gotdns.org:412"]= "Reason.",
	["bigshare"]= "Reason.",
	["ronna.no-ip.com:412"]= "Reason.",
	["dragonslayer-gbg.no-ip.org"]= "Reason.",
	["ChatBaren.dyndns.dk:22221"]= "Reason." 
} 


function DataArrival(user, data) 
	if (not user.bOperator) then 
		if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then 
			for key,a in trigs do 
				if( strfind( strlower(data), key) ) then 
					SendToOps(botname, user.sName.." has been been discconect because "..a)
					SendToOps(botname, "He have written the word "..key) 
					user:Disconnect() 
				end 
			end 
		end 
	end 
end

Best regards, nErBoS

[DoD_Owner]

Thx m8... it's working perfectly.... but can you make it type the reason in my Daemonicus bot, as my old one did... ??

[nErBoS]

Hi,

Done...

botname = "Daemonicus" 

trigs = { 
	["dreamer"]= "Reason.",
	["d r e a m e r"]= "Reason.",
	["fuck shadow"]= "Reason.", 
	["kingsofchaos"]= "Reason.",
	["fuck dod"]= "Reason.",
	["seven-private"]= "Reason.",
	["s e v e n - p r i v a t e"]= "Reason.",
	["cornerhouse"]= "Reason.",
	["c o r n e r h o u s e"]= "Reason.",
	["lir.dk"]= "Reason.", 
	["corner house"]= "Reason.",
	["joine ch"]= "Reason.", 
	["Drop Inn"]= "Reason.",
	["dropinn"]= "Reason.",
	["d r o p i n n"]= "Reason.",
	["217.215.12.141"]= "Reason.",
	["dreams.gotdns.org:412"]= "Reason.",
	["bigshare"]= "Reason.",
	["ronna.no-ip.com:412"]= "Reason.",
	["dragonslayer-gbg.no-ip.org"]= "Reason.",
	["ChatBaren.dyndns.dk:22221"]= "Reason." 
} 


function DataArrival(user, data) 
	if (not user.bOperator) then 
		if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then 
			for key,a in trigs do 
				if( strfind( strlower(data), key) ) then 
					SendPmToOps( botname, user.sName.." has been kicked because of Offensive Language / Advertising." ) 
					SendPmToOps(botname, "Reason: "..a)
					SendPmToOps(botname, "He have written the word "..key) 
					user:Disconnect() 
				end 
			end 
		end 
	end 
end

Best regards, nErBoS

[MrZ]

:))) hia ErBoS

ya been doing some of these mods by now... why not making an own real good one.

one that fits all request u had and that we newbee's can easy modify ourself.... or would that take away all the fun parts...hihi

Z ya

[DoD_Owner]

This is very nice ! Getting better and better.... but I have 1 more request for this script. Can you make it so, that the user gets the same thing in pm as I do, so that he know's what he did wrong ??   Would be extremely nice.

Thx in advance

//DoD_Owner

[nErBoS]

Hi,

Originally posted by MrZ
:))) hia ErBoS

ya been doing some of these mods by now... why not making an own real good one.

one that fits all request u had and that we newbee's can easy modify ourself.... or would that take away all the fun parts...hihi

Z ya

Sorry didn't understand what you want.

About the pm user...

botname = "Daemonicus" 

trigs = { 
	["dreamer"]= "Reason.",
	["d r e a m e r"]= "Reason.",
	["fuck shadow"]= "Reason.", 
	["kingsofchaos"]= "Reason.",
	["fuck dod"]= "Reason.",
	["seven-private"]= "Reason.",
	["s e v e n - p r i v a t e"]= "Reason.",
	["cornerhouse"]= "Reason.",
	["c o r n e r h o u s e"]= "Reason.",
	["lir.dk"]= "Reason.", 
	["corner house"]= "Reason.",
	["joine ch"]= "Reason.", 
	["Drop Inn"]= "Reason.",
	["dropinn"]= "Reason.",
	["d r o p i n n"]= "Reason.",
	["217.215.12.141"]= "Reason.",
	["dreams.gotdns.org:412"]= "Reason.",
	["bigshare"]= "Reason.",
	["ronna.no-ip.com:412"]= "Reason.",
	["dragonslayer-gbg.no-ip.org"]= "Reason.",
	["ChatBaren.dyndns.dk:22221"]= "Reason." 
} 


function DataArrival(user, data) 
	if (not user.bOperator) then 
		if (( strsub(data, 1, 1) == "<" ) or ( strsub(data, 1, 4) == "$To:" )) then 
			for key,a in trigs do 
				if( strfind( strlower(data), key) ) then 
					SendPmToOps( botname, user.sName.." has been kicked because of Offensive Language / Advertising." ) 
					SendPmToOps(botname, "Reason: "..a)
					SendPmToOps(botname, "He have written the word "..key) 
					user:SendPM(botname, "You are been disconnect for have written the word "..key)
					user:Disconnect() 
				end 
			end 
		end 
	end 
end

Best regards, nErBoS

[DoD_Owner]

Thx m8... This works PERFECTLY..... I'm VERY glad for this.... thx..

[MrZ]

nErBoS.. i mean that u have been helping ppl a lot with all these word checking bot's..why not make one ur own and make it so its easy so even all us newbies can modify the words and other options..

just a thought to easy up ur job with all our questions :))

btw ur doing a damn good job here
TNX a lot dude

Z ya

[nErBoS]

Hi,

Thanks for the kind words, about making that script i could start doing, but i am having a lot of work, soon as i can i will do that.

Best regards, nErBoS