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.
mp35486
Voice
Posts: 8 Joined: Thu Jun 09, 2005 9:54 am
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^
Owner
Posts: 772 Joined: Tue Aug 26, 2003 5:40 pm
Location: IronForge
Contact:
Post
by ^DooM^ » Tue Jun 28, 2005 2:36 am
Search the archive for 'revolving door' or 'flyby'
The lifecycle of a noob is complex. Fledgling noobs gestate inside biometric pods. Once a budding noob has matured thru gestation they climb out of their pod, sit down at a PC, ask a bunch of questions that are clearly in the FAQ, The Noob is born
demond
Revered One
Posts: 3073 Joined: Sat Jun 12, 2004 9:58 am
Location: San Francisco, CA
Contact:
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
Owner
Posts: 507 Joined: Tue May 31, 2005 6:56 pm
Location: UK
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...?
r0t3n @ #r0t3n @ Quakenet
Sir_Fz
Revered One
Posts: 3794 Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:
Post
by Sir_Fz » Tue Jun 28, 2005 6:50 pm