This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post . Click the X in the top right-corner of this box to dismiss this message.
Old posts that have not been replied to for several years.
p
pirate
Post
by pirate » Sun Aug 01, 2004 8:53 pm
hello there ive searched for 3 days now and cant find what im after
i cant tcl script if my life depended on it
im after a tcl that will version onjoin and add the user+addy to a shitlist
reason is im trying to get the stupid xdcc catcher out of my channel
and they are using the version reply mirc 6.14
users wont mind to change versions if they want to stay and talk
but these bots are way out of control and something needs done.
thanks
user
Posts: 1452 Joined: Tue Mar 18, 2003 9:58 pm
Location: Norway
Post
by user » Sun Aug 01, 2004 9:12 pm
pirate wrote: hello there ive searched for 3 days now and cant find what im after
i cant tcl script if my life depended on it
im after a tcl that will version onjoin and add the user+addy to a shitlist
I guess you should be happy your life doesn't depend on being able to find stuff
I searched for 3 seconds and found one right here:
http://www.egghelp.org/tcl.htm ..or did you try that one already? (it's called noversions.tcl)
Have you ever read "The Manual"?
K
Voice
Posts: 34 Joined: Wed Jan 28, 2004 7:31 pm
Location: Romania @sibiu
Contact:
Post
by K » Tue Aug 03, 2004 2:48 pm
a bether ideea is to ban the one who is doing that dcc exploit. here is a script:
Code: Select all
bind raw - PRIVMSG raw:exploit
proc raw:exploit {from keyword args} {
set args [string trim $args "{}"]
if {[regexp {(SEND|RESUME).*"(?:[^" ]*\s){32}.*$} $args]} {
set banmask *!*@[lindex [split $from @] 1]
set chan [lindex [split $args] 0]
newchanban $chan $banmask Exploit "DCC Exploit" 5d
}
}