egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-06-04T10:59:25-04:00 https://forum.eggheads.org/app.php/feed/topic/4574 2003-06-04T10:59:25-04:00 2003-06-04T10:59:25-04:00 https://forum.eggheads.org/viewtopic.php?p=21232#p21232 <![CDATA[ChanServ guard procedure]]> for the help

Statistics: Posted by stammer — Wed Jun 04, 2003 10:59 am

]]> 2003-06-04T09:57:25-04:00 2003-06-04T09:57:25-04:00 https://forum.eggheads.org/viewtopic.php?p=21230#p21230 <![CDATA[ChanServ guard procedure]]>
utimer <seconds> <tcl-command>
Description: executes the given Tcl command after a certain number of
seconds have passed
this is non-blocking, meaning.. no it will not freeze the procedure

to fix this in your proc, just put the forach in a proc and call that proc with the utimer

Statistics: Posted by Papillon — Wed Jun 04, 2003 9:57 am

]]> 2003-06-04T08:36:49-04:00 2003-06-04T08:36:49-04:00 https://forum.eggheads.org/viewtopic.php?p=21227#p21227 <![CDATA[ChanServ guard procedure]]> my question is:
when i use utimer commnad in procedure for example

utimer 20 [putlog "test"]

only execution of putlog is delayed with 20 seconds or procedure stops for that time and continues after that?
is utimer works for commands like 'foreach' and 'if'?

i'm asking this because i write a procedure for calling ChanServ after netsplit. I want to delay 'foreach' with couple of seconds because somethimes ChanServ returns sometimes not. Here is code:

Code: 

bind raw  - NOTICE pub:sidentproc pub:sident {from keyword arg} {global nsnick csnick passwd nsserv csservset wrd [lindex $arg 1] if {((($from==$nsserv)&&($wrd==":This"))||(($from==$csserv)&&($wrd==":Password")))} { putserv "PRIVMSG $nsnick :IDENTIFY $passwd"putlog  "$nsnick IDENTIFY..."foreach ch [channels] {if {([botisop $ch])&&((![onchan $csnick $ch])||([onchansplit $csnick $ch]))} {putserv "PRIVMSG $csnick :SET $ch GUARD ON"putlog "$csnick $ch GUARD ON..."}}}}

Statistics: Posted by stammer — Wed Jun 04, 2003 8:36 am

]]>