Requesting a FINGER script

[sys]

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!

[user]

Try the code suggested in this post: http://forum.egghelp.org/viewtopic.php?t=4673
Just change VERSION to FINGER and add your desired match string.

[sys]

Thats not what I want

[ReaLz]

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 
} 
} 
}

[user]

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.