Prevent auto rejoin.

kebabdjuret · Post by **kebabdjuret** » Mon Apr 28, 2003 2:25 pm

Hi!

I'm looking for a script that bans people with auto rejoin for some time. (10 minutes maybe?)

If i kick them I want them to stay out for a while

Thanks.

Fredrik

Papillon · Post by **Papillon** » Mon Apr 28, 2003 2:29 pm

heh..
just ban them for 10 mins

or you could try searching in the tcl-archive at www.egghelp.org

kebabdjuret · Post by **kebabdjuret** » Mon Apr 28, 2003 2:35 pm

Papillon wrote:or you could try searching in the tcl-archive at www.egghelp.org

Been there, done that.

Can't find anyting.

kebabdjuret · Post by **kebabdjuret** » Tue Apr 29, 2003 11:50 am

Code: Select all

set rejoinTime "5"
set banTime "10"

global kick rejoinTime banTime
        
bind kick - * storeKick
bind join - * checkJoin
 
proc storeKick {nick host hand chan target reason} {
        global kick rejoinTime banTime
        set kick($target)($chan) 1
        putlog "$target kicked from $chan"
        utimer $rejoinTime "removeKick $target $chan"
}

proc checkJoin {nick host hand chan} {
        global kick rejoinTime banTime
        if {[info exists kick($nick)($chan)]} {
                unset kick($nick)($chan)
                putlog "kick($nick)($chan) removed"
                putserv "MODE $chan +b $nick!$host"
                putserv "KICK $chan $nick :Auto rejoin is bad. $banTime min temp ban"
                timer $banTime "removeBan $chan $nick $host"
        }
}

proc removeKick {t c} {
        global kick rejoinTime banTime
        if {[info exists kick($t)($c)]} {
                unset kick($t)($c)
                putlog "kick($t)($c) removed"
        }
}

proc removeBan {c n h} {
        global kick rejoinTime banTime
        putserv "MODE $c -b $n!$h"
        putlog "Ban on $n!$h removed."
}

My putserv "MODE $chan +b $nick!$host" and putserv "KICK $chan $nick :Auto rejoin is bad. $banTime min temp ban" doesn't work. Any idea?

(This is my first script.)

ppslim · Post by **ppslim** » Tue Apr 29, 2003 12:49 pm

Code: Select all

putlog "kick($nick)($chan) removed"

Are you seeing the output from this on the partyline?

WHile I havn't tested it, I don't think you can use arrays in this way

kebabdjuret · Post by **kebabdjuret** » Tue Apr 29, 2003 1:33 pm

ppslim wrote:Are you seeing the output from this on the partyline?

WHile I havn't tested it, I don't think you can use arrays in this way

The array is fine. The problem was.. uhm, the bot wasn't op.

Post by **user** » Tue Apr 29, 2003 6:24 pm

"set a(b)(c) value" creates a element in "a" called "b)(c"
- it looks bad, but it works

kebabdjuret · Post by **kebabdjuret** » Wed Apr 30, 2003 12:32 am

user wrote:"set a(b)(c) value" creates a element in "a" called "b)(c"
- it looks bad, but it works

Really?

Haha, not very nice.

stdragon · Post by **stdragon** » Wed Apr 30, 2003 2:16 am

Especially when you want to use the value... ${a(b)(c)}