Advice on TCL that will ban with user defined /msg triggers

[birdrop]

Im looking for a simple script that will ban on /msg text

Specificly /msg botname pass text

But the more configurable, the better.
Ive been looking all over the place with no luck.

Thanks

[Papillon]

Code: Select all

set banwords [list pass bla1 bla2 bla3]
bind msgm - * ban_on_privmsg
proc ban_on_privmsg {nick host hand arg} {
  global banwords 
  foreach x $banwords {
    if {[lsearch [split $arg] $x] != -1} {
      put the bancode in here
    }
  }
} 

[birdrop]

I appreciate that code, but Im real new and 1. Dont even know where to put it and 2, Not sure how to edit it.

Thanks alot tho. Ill try and figure it out

The part where "put the bancode in here" Is that the banmask?

[Papillon]

It's where you put the code to do get the hostmask and execute the ban.
take a look at these sites to learn what to put in there.
http://www.egghelp.org/enhance.htm#tclscripts
http://www.suninet.nl/tclguide/

also check out the tcl-commands.doc in the /doc dir of your eggdrop