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.
sys
Voice
Posts: 19 Joined: Mon Sep 24, 2001 8:00 pm
Location: Middle East
Post
by sys » Sun Jun 15, 2003 1:46 pm
Hello!
Where can I find a script that does a FINGER on join, and when found a certain words on FINGER reply it does kick/ban.
Ex: [Mr_ FINGER reply]: Don't.Look (Ne4244Oo38Pe3799mIs31) Idle 229 seconds (By HackGroup)
I want the kick to be on this word (By HackGroup)
Thank yo!
sys
Voice
Posts: 19 Joined: Mon Sep 24, 2001 8:00 pm
Location: Middle East
Post
by sys » Mon Jun 16, 2003 10:12 am
Thats not what I want
ReaLz
Op
Posts: 121 Joined: Sat Oct 19, 2002 5:33 am
Location: Athens, Greece
Post
by ReaLz » Mon Jun 16, 2003 10:18 am
I think it's simple...
Code: Select all
set banscripts {
"*(By HackGroup)*"
}
bind join - "*" join_check
bind ctcr - FINGER ban_scripts
proc join_check {nick host hand chan} {
putserv "PRIVMSG $nick :\001FINGER\001"
return
}
proc ban_scripts {nick host handle dest keyword args} {
set args [lindex $args 0]
set reply [lindex $args 0]
foreach script $::banscripts {
if {[string match -nocase $script $reply]} {
set mask "*!*@[lindex [split $host @] 1]"
newban $mask BadScript "\0021 hour\002 ban for \002using lame scripts\002 within \002$::chan\002 " 60
}
}
}
«A fantastic spaghetti is a spaghetti that does not exist»
user
Posts: 1452 Joined: Tue Mar 18, 2003 9:58 pm
Location: Norway
Post
by user » Mon Jun 16, 2003 10:35 am
sys wrote: Thats not what I want
The script in the post i linked to does exactly what you requested. The only difference is that it deals with ctcp VERSION, not FINGER. The code ReaLz posted is from that thread and it will work if you remove "$::chan" from the ban reason or set the variable.