| View previous topic :: View next topic |
| Author |
Message |
masheen
Voice
Joined: 28 Apr 2007
Posts: 28
|
 Posted: Tue Jul 03, 2007 7:57 am Post subject: mIRC+TCL antispam (SOLVED) |
 |
|
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.
_________________
let he who is without stone cast the first sin
Last edited by masheen on Wed Jul 04, 2007 5:41 am; edited 1 time in total |
|
| Back to top |
|
 |
r0t3n
Owner
Joined: 31 May 2005
Posts: 507
Location: UK
|
| Posted: Tue Jul 03, 2007 10:10 am Post subject: |
|
|
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...
_________________
r0t3n @ #r0t3n @ Quakenet |
|
| Back to top |
|
|
masheen
Voice
Joined: 28 Apr 2007
Posts: 28
|
| Posted: Tue Jul 03, 2007 10:55 am Post subject: |
|
|
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.
_________________
let he who is without stone cast the first sin |
|
| Back to top |
|
|
metroid
Owner
Joined: 16 Jun 2004
Posts: 771
|
| Posted: Tue Jul 03, 2007 1:24 pm Post subject: |
|
|
| Code: | 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;
}
}
} |
|
|
| Back to top |
|
|
masheen
Voice
Joined: 28 Apr 2007
Posts: 28
|
| Posted: Wed Jul 04, 2007 5:41 am Post subject: |
|
|
thanks metroid for a fast reply
_________________
let he who is without stone cast the first sin |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
