egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-04-25T21:03:07-04:00 https://forum.eggheads.org/app.php/feed/topic/4228 2003-04-25T21:03:07-04:00 2003-04-25T21:03:07-04:00 https://forum.eggheads.org/viewtopic.php?p=19432#p19432 <![CDATA[[xx.xx] joined #testchan but didn't want to!]]> i got the solution from some one at #egghelp :)

Statistics: Posted by nso — Fri Apr 25, 2003 9:03 pm

]]> 2003-04-25T19:12:08-04:00 2003-04-25T19:12:08-04:00 https://forum.eggheads.org/viewtopic.php?p=19429#p19429 <![CDATA[[xx.xx] joined #testchan but didn't want to!]]>

Code: 

##this will execute at oncetimer sometimername 1 [channelpart $channel2fix]##while this will execute once the timer returnstimer sometimername 1 [list channelpart $channel2fix]

Statistics: Posted by Papillon — Fri Apr 25, 2003 7:12 pm

]]> 2003-04-25T16:54:48-04:00 2003-04-25T16:54:48-04:00 https://forum.eggheads.org/viewtopic.php?p=19424#p19424 <![CDATA[[xx.xx] joined #testchan but didn't want to!]]>
Im currently making what's going to be a part of a chanfix-system, and have run into a small problem with some of the TCL.

I'm trying to join a channel, execute commands/checks and then part channel.
At first I thought this problem had something to do with the code beeing parsed too quickly, but changed my belifes when I put the sequences into different timers, and the same error occured.

It seems to me that the eggdrop ignores the tiemr and executes the part/channel remove at once..

Do any of you know how I could resolve this issue?

- nso


here is a stripped down exampleversion of what i'm trying to do, the only thing I have removed is the actions which are to be executed.. non-important stuff

Code: 

bind pub * !fix chanfixset channeltest "#testhore"proc chanfix { nick uhost hand chan text } {global channel2fix        set scantext [regexp {[\s]} $text match]        if { $text == "" || $scantext == 1 } {                return 0        }        set channel2fix $text        channel add $channel2fix        chanfix2 $channel2fix            }proc chanfix2 { channel2fix } {global chantimer2        set chanuserlist [chanlist $channel2fix]        set chanusers [llength $chanuserlist]        putquick "PRIVMSG #testchan2 :$chanusers counted"        channelpart $channel2fix            }proc channelpart {channel2fix} {channel remove $channel2fix}

Statistics: Posted by nso — Fri Apr 25, 2003 4:54 pm

]]>