egghelp/eggheads community

Prevent auto rejoin.

2003-04-30T02:16:08-04:00

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

Statistics: Posted by stdragon — Wed Apr 30, 2003 2:16 am

Prevent auto rejoin.

2003-04-30T00:32:25-04:00

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

Really?

Haha, not very nice.

Statistics: Posted by kebabdjuret — Wed Apr 30, 2003 12:32 am

Prevent auto rejoin.

2003-04-29T18:24:22-04:00

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

Statistics: Posted by user — Tue Apr 29, 2003 6:24 pm

Prevent auto rejoin.

2003-04-29T13:33:52-04:00

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.

Statistics: Posted by kebabdjuret — Tue Apr 29, 2003 1:33 pm

Prevent auto rejoin.

2003-04-29T12:49:11-04:00

Code:

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

Statistics: Posted by ppslim — Tue Apr 29, 2003 12:49 pm

Prevent auto rejoin.

2003-04-30T00:33:51-04:00

Code:

set rejoinTime "5"set banTime "10"global kick rejoinTime banTime        bind kick - * storeKickbind 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.)

Statistics: Posted by kebabdjuret — Tue Apr 29, 2003 11:50 am

Prevent auto rejoin.

2003-04-28T14:35:27-04:00

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

Been there, done that.

Can't find anyting.

Statistics: Posted by kebabdjuret — Mon Apr 28, 2003 2:35 pm

Prevent auto rejoin.

2003-04-28T14:29:21-04:00

heh..
just ban them for 10 mins

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

Statistics: Posted by Papillon — Mon Apr 28, 2003 2:29 pm

Prevent auto rejoin.

2003-04-28T14:25:15-04:00

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

Statistics: Posted by kebabdjuret — Mon Apr 28, 2003 2:25 pm