autorejoin protection script?

mp35486 · Post by **mp35486** » Tue Jun 28, 2005 2:24 am

Hi!

I'm trying to find a TCL script which could set a ban for some time on user that was kicked from channel and has autorejoin turned on.

Is there such a script available?

Thanks!

M.

^DooM^ · Post by **^DooM^** » Tue Jun 28, 2005 2:36 am

Search the archive for 'revolving door' or 'flyby'

demond · Post by **demond** » Tue Jun 28, 2005 3:34 am

I'm in scripting mood

Code: Select all

set reason "autorejoining is lame"
bind kick - * gotkick
bind join - * gotjoin
proc gotkick {n u h c t r} {
   set ::kicked($t) [unixtime]
}
proc gotjoin {n u h c} {
   if {![catch {set ts $::kicked($n)}] && [unixtime] - $ts < 2} {
      newchanban $c [maskhost $n!$u] $::nick $::reason 3
      putkick $c $n $::reason
   }
}

r0t3n · Post by **r0t3n** » Tue Jun 28, 2005 1:22 pm

demond, would you need the check if the user is added to the bot, [matchattr $h f|f $chan] ?
Otherwise a user could be kicked...?

Post by **Sir_Fz** » Tue Jun 28, 2005 6:50 pm

add

Code: Select all

&& ![matchattr $h f|f $chan]

in the if statement.