egghelp/eggheads community

Autosecret.tcl

2004-07-06T12:02:51-04:00

Sir User: Welp!! Finally have been able to get back to this script after an absence...

(Short of being a complete idiot) I have real no idea why this was not working the first time I tried it but, it is working flawlessly now!! MANY THANKS!!!

Now, if I can further pick your brain; can we make it do this for other channels the bot(s) (may) reside in with (perhaps) not the same 's_threshold #" setting?

Many thanks again - KUDOS!!!!

mab

Statistics: Posted by Mikey — Tue Jul 06, 2004 12:02 pm

Autosecret.tcl

2004-05-07T02:52:59-04:00

Thanks User. Initial test show the same thing happening -- no response(s). I will strip all my other tcl's and make a skeleton bot and start from there. (Currently running Stormbot and Bar & Grill).

Let me also, really look at your earlier comment about "there might be a key containing "s"".

There MUST be a reason for this not working for me. To bad I just cant put a finger on it (YET!! )

Again, thanks for your time in helping me find a script that will work for myself, our network and hopefully others that may find it useful.

Respectfully,

Mikey

Statistics: Posted by Mikey — Fri May 07, 2004 2:52 am

Autosecret.tcl

2004-05-06T19:39:00-04:00

I guess I should have tested it This version is...

Code:

set s_threshold 1bind join - * {do_the_s_check 0}bind part - * {do_the_s_check 1}bind sign - * {do_the_s_check 1}proc do_the_s_check {off nick uhost hand chan args} {if {![validchan $chan]||[string match *s* [channel get $chan chanmode]]} returnif {[isbotnick $nick]} {utimer 5 [list do_the_s_check 0 . . . $chan]} elseif {[botisop $chan]} {if {([llength [chanlist $chan]]-$off)>$::s_threshold} {if {[string match *s* [lindex [getchanmode $chan] 0]]} {pushmode $chan -s}} elseif {![string match *s* [lindex [getchanmode $chan] 0]]} {pushmode $chan +s}}}

Statistics: Posted by user — Thu May 06, 2004 7:39 pm

Autosecret.tcl

2004-04-29T11:21:59-04:00

Oups! Yes user, you are right about the "[lindex [split [getchanmode $a]] 0]" thing, haven't thinked about the key.

Statistics: Posted by caesar — Thu Apr 29, 2004 11:21 am

Autosecret.tcl

2004-04-29T10:25:42-04:00

Ok lets try this from ground zero...

Bot dies; set s_threshold 5 (since with 4 other bots); channel is set +s before the bot joins; bot joins its HOME channel ONLY (previous tests it was in 3 channels)

Channel #Mikey, 5 members, mode +strn:
.binds join
Command bindings:
TYPE FLGS COMMAND HITS BINDING (TCL)
join -|- * 1 do_joinstat
join -|- * 1 check_onjoin
join P|- * 0 do_join_cancel_logout
join -|- * 1 do_the_s_check

Channel #Mikey, 6 members, mode +strn:
.binds join
Command bindings:
TYPE FLGS COMMAND HITS BINDING (TCL)
join -|- * 2 do_joinstat
join -|- * 2 check_onjoin
join P|- * 0 do_join_cancel_logout
join -|- * 2 do_the_s_check
(+s stays)

<@Mikey> b mode -s
* Bones sets mode: -s

Channel #Mikey, 5 members, mode +trn:
.binds part
Command bindings:
TYPE FLGS COMMAND HITS BINDING (TCL)
part L|- * 1 do_part_timer_logout
part -|- * 1 do_the_s_check
(-s stays)

And that is the play by play...

Respectfully,

Mikey

Statistics: Posted by Mikey — Thu Apr 29, 2004 10:25 am

Autosecret.tcl

2004-04-29T08:46:22-04:00

set s_threshold 1

Mikey

Statistics: Posted by Mikey — Thu Apr 29, 2004 8:46 am

Autosecret.tcl

2004-04-29T06:38:08-04:00

what did you set s_threshold to?

Statistics: Posted by user — Thu Apr 29, 2004 6:38 am

Autosecret.tcl

2004-04-28T23:37:30-04:00

The code tried is by User; restarted just now with the same resuts.

.binds join
Command bindings:
TYPE FLGS COMMAND HITS BINDING (TCL)
join -|- * 3 do_joinstat
join -|- * 3 check_onjoin
join P|- * 0 do_join_cancel_logout
join -|- * 3 do_the_s_check

Respectfully,

Mikey

Statistics: Posted by Mikey — Wed Apr 28, 2004 11:37 pm

Autosecret.tcl

2004-04-28T15:24:54-04:00

Same result, sets but not removing.

What did you try? Did you .restart recently? Check '.binds ' to see if the bind is triggered.

Statistics: Posted by user — Wed Apr 28, 2004 3:24 pm

Autosecret.tcl

2004-04-28T15:19:00-04:00

Same result, sets but not removing.

Mikey

Statistics: Posted by Mikey — Wed Apr 28, 2004 3:19 pm

Autosecret.tcl

2004-04-28T14:22:49-04:00

there is no need for "[lindex [split [getchanmode $a]] 0]", just [getchanmode $a]

Wrong. There could be a key containing the letter "s".

Statistics: Posted by user — Wed Apr 28, 2004 2:22 pm

Autosecret.tcl

2004-04-28T14:21:34-04:00

if {[llength [chanlist $a]] >= $::togglechatters && [string match "*s*" [getchanmode $a]]} {

Is not working...

Not sure but, we arent reading something the script is needing to know....

Mikey

Statistics: Posted by Mikey — Wed Apr 28, 2004 2:21 pm

Autosecret.tcl

2004-04-28T14:20:35-04:00

Try this (not tested):

Code:

set s_threshold 1bind join - * do_the_s_checkbind part - * do_the_s_checkbind sign - * do_the_s_checkbind splt - * do_the_s_checkproc do_the_s_check {nick uhost hand chan args} {if {[isbotnick $nick]} {utimer 5 [list do_the_s_check . . . $chan]} elseif {[validchan $chan]&&[botisop $chan]} {if {[llength [chanlist $chan]]>$::s_threshold} {if {[string match *s* [lindex [getchanmode $chan] 0]]]} {pushmode $chan -s}} elseif {![string match *s* [lindex [getchanmode $chan] 0]]]} {pushmode $chan +s}}}

Statistics: Posted by user — Wed Apr 28, 2004 2:20 pm

Autosecret.tcl

2004-04-28T12:57:45-04:00

Ok, we are showing signs of life here. Not completely off life support but, getting there.

1: It is setting +s as needed
2: It seems to be having some trumblems in removing it tho. (This was tested with '...string match "s" ...' and, and with Caeser's '...string match "*s*" ...')

Respectfully,

Mikey

Statistics: Posted by Mikey — Wed Apr 28, 2004 12:57 pm

Autosecret.tcl

2004-04-28T11:51:31-04:00

/me hands Papillon a cup of coffee

Again, you have forgot the * in "s" It should be "*s*" to match it and there is no need for "[lindex [split [getchanmode $a]] 0]", just [getchanmode $a]

Statistics: Posted by caesar — Wed Apr 28, 2004 11:51 am