egghelp/eggheads community

zlobus · Post by **zlobus** » Sun Mar 06, 2005 10:08 am

i want script to ban user which said *http://www.netwars.ru/go.php?login=*
But i want to be able to change the forbidden word, bantime, banmask and reason.
help.

Ofloo · Post by **Ofloo** » Sun Mar 06, 2005 10:45 am

what to do:

- create a variable list with words using set
- then use bind pubm
- match each word using foreach with string match or regexp against your list, import this list into your proc using global

or read this

zlobus · Post by **zlobus** » Sun Mar 06, 2005 11:04 am

i don't think that without any examples i can do it. even with your help. I don't want leatn tcl i just want to create one small script.... maybe something like this is already created... then show me plz.

Ofloo · Post by **Ofloo** » Sun Mar 06, 2005 11:30 am

old and not most efficient code i am sur but should work .. or at least it will put you in the right direction

http://ftp.ofloo.net/pub/scripts/contrib/badword.tcl.gz

Kurupt · Post by **Kurupt** » Sun Mar 06, 2005 4:34 pm

Code: Select all

bind pubm - "*http://www.netwars.ru/go.php?login=*" ban:word
proc ban:word {nick uhost hand chan text} {
global botnick
set reason "You use a forbiden word"
set time "60" # in minutes
set banmask *!*@[lindex [split $uhost @] 1] # will be *!*@ip
newchanban $chan $banmask $botnick $reason $time