Word script

[Twix]

I'm after a script, or part of a script that I can use that will warn and then kick a user who mentions a word either in main chat or a PM.

Any ideas?

TIA

Twix

[kepp]

sBot = "BotName_here"

BadWords = {["fuck"]=1,["dick"]=2,["pussy"]=3}

               function Main()
               frmHub:RegBot(sBot)
end

              function DataArrival(user, data)
                       if not user.bOperator then
                       for key,a in BadWords do
                       if strfind(strlower(data), key, 1, 1) or strfind(strlower(data), key, 1, 4) then
                      user:SendData(BotName, "Do Not missbehave in here")
                      --SendToAll(BotName, ""..user.sName.." has been kicked due to Misbehave")
                      user:Disconnect()
               end
          end
     end
end

Just a quick one... Not tested!

*Edit* Oups... some changes :)

[chub]

Good one Kepp, it sure silenced me. Didn't think anything could gag the hubowner. LOL.

I felt I had to try it since there are a lot of ppl comming into the hub screaming things about the hub "theme" and kinda wanted the worse most common stuff out of the hub as fast as possible. Well, turned out the script  disconnected the user sending abusing posts to main chat but also totally gagged me (owner/host) So except for the owner gag it is a nice script.  

[plop]

lol, it gags all operators.
kepp: you want 2 check if a user is not a operator, if it is a operator you don't want 2 do anything.
return 1  means stop processing and stop any further data going out.

plop

[kepp]

Sorry about that... :D

Updated ***

[chub]

Ok, since I am at work atm, I can't test it, but have a question: Is it possible to have phrases in it and not just words? Like ["a phrase instead of one word"]=1 ?
Also, I assume the limit is not only 3 words?  

[kepp]

Nope, but i can't think of any other words that i care about...

Hmm, and nope, well, i can't do it....
i think it will search for spaces between eachword...
and the user will get kicked for saying nothing at all...
But then again, i don't know for sure

[plop]

posible, but for safety you better replace spaces for %s.
["a%sphrase%sinstead%sof%sone%sword"]=1
like this.

plop

[chub]

Originally posted by plop
posible, but for safety you better replace spaces for %s.
["a%sphrase%sinstead%sof%sone%sword"]=1
like this.

plop

Thanks plop, if that works, u may have solved one of my biggest problems, hubwise. Will test it when I get home from work in 6 hours or so and report back here  

[Twix]

Thanks kepp, just what I was after  

[chub]

well... works fine after some modding...  

[kepp]

np... And thanks Plop!!!

[plop]

np folks.

plop

[tezlo]

few things..

[*]no need for an associative array.. you iterate them all anyway
[*]you only need to strlower(data) once
[*]%s will NOT work since the strfind is not regexp enabled
[*]this code will try to find badwords not only on chat and PM..
but on Search or anything coming to DataArrival
[*]whats the point of censoring PMs anyway?
[/list]

badWords = { "fuck", "dick", "pussy", "my ass" }

function DataArrival(user, data)
	if not user.bOperator and (strsub(data, 1, 1) == "<" or strsub(data, 1, 4) == "$To:") then
		data = strlower(data)	-- !!
		for id, word in badWords do
			if strfind(data, word, 1, 1) then
				-- do whatever
			end
		end
	end
end

[kepp]

Some copy and paste misstakes, as i wrote it for something else..
yep, true, Pm's are private so who care about a bad word in there?

badWords = { "fuck", "dick", "pussy", "my ass" }

function DataArrival(user, data)
	if not user.bOperator and (strsub(data, 1, 1) == "<") then
		data = strlower(data)	-- !!
		for id, word in badWords do
			if strfind(data, word, 1, 1) then
				-- do whatever
			end
		end
	end
end

[chub]

Originally posted by tezlo
few things..

[*]no need for an associative array.. you iterate them all anyway
[*]you only need to strlower(data) once
[*]%s will NOT work since the strfind is not regexp enabled
[*]this code will try to find badwords not only on chat and PM..
but on Search or anything coming to DataArrival
[*]whats the point of censoring PMs anyway?
[/list]

What's the point of censoring PMs? I gather most ppl here know I host a gaythemed hub, by now. And there are ppl popping in just to vent their narrowminded thoughts of almost any outlook on life so for instance this, I got in a PM, the other day:

[2003-11-24 23:36] <[Telia]Sphinxx> YOU ARE SICK!!!! A FUCKING PERVERT!! 
[2003-11-24 23:36]  (automated message) I am not around the computer. Please leave me a note or ask someone else!    

This happy guy rambled on in main chat aswell and I got notified that he'd been on others in PM aswell.
I have rather thick skin after a few years in the "scene" so I don't mind it and frankly don't care, either, but there are ppl much less secure than me and things like this posted to them are kinda hurtful.
I want to be able to filter out as much of this kind of stuff as possible, in main and in PM.

Reason enough?

[kepp]

*** <---

[chub]

Originally posted by kepp
*** <---

LOL... eeh good point!  

[kepp]

sorry, i was about to comment something, but noticed i didn't have too :)

[plop]

more then enough reason 2 do so chub.
got 2 gay nephew's and had a couple gay teachers.
some can do like you, others feel the pain from such remarks.
it's sad that there are such narrow minded ppl around.
it's everybody's free right 2 love who he/she wants whether it's from the same sex or not.
if some1 can't except that he/she has a problem him-/herself.

plop

[kepp]

Hoyya ^^

[chub]

Originally posted by plop

it's sad that there are such narrow minded ppl around.
it's everybody's free right 2 love who he/she wants whether it's from the same sex or not.
if some1 can't except that he/she has a problem him-/herself.

plop

Couldn't agree more.

Anyhow, I am running the script in the hub and it seems to be working grand ok. Adding more phrases to it when I find new word combos that these ppl use.