mIRC+TCL antispam (SOLVED)

[masheen]

can anyone give me a simple script dat makes the bot check for priv message triggers like *www.* *join #* and when someone does, it private
messages me with the offenders nick and trigger match. just one channel is ok.

For example bot is in #chan , and ausernick priv. messages the bot with a phrase: please visit www.website.com, the bot then messages me with this format: ausernick *www.*

in turn wen i receive the relay message from the bot, my irc script will kick the nick that privmsg's the bot. il take care of the irc script. i just nid the TCL for my bot to detect the privmsg triggers i set and messages me with the format:
<offendernick> <triggermatch>

anyone can help me pls? thanks a lot.

[r0t3n]

It would be easier to either code the detection into the msl script, or let the bot do the full job and kick the user. Whats the point of the bot msg'ing you to tell you to kick that user...

[masheen]

yep i have scripts for that already...and besides i nid it cos the bot aint opped in the chan. i just nid the script dat does d above from that script i can also make a lot of tclscripts that i have in mind which requires privmsg'ng thru tcl <> mirc.

can anybody help? thanks.

[metroid]

Code: Select all

set useless(mynick) "My-Nick-Here"
set useless(patterns) [list *www* *bla* *#* *something*]

bind MSGM -|- * check:spam

proc check:spam {nick host hand msg} {
  global useless;

  foreach pattern $useless(patterns) {
    if {[string match -nocase $pattern $msg]} {
      putserv "PRIVMSG $useless(mynick) :$nick $pattern"
      break;
    }
  }
}

[masheen]

thanks metroid for a fast reply