This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Bin time to secondes

Help for those learning Tcl or writing their own scripts.
Post Reply
n
neoclust
Halfop
Posts: 55
Joined: Fri Aug 14, 2009 11:03 am

Bin time to secondes

Post by neoclust »

It is possible to launch a "bind time" every 15 seconds?

Code: Select all

bind time - * Auto:scan
proc Auto:scan {minute hour day month year} {
     foreach chan [channels] {
     putserv "PRIVMSG $chan :test"
   }
}
then it is that triggers every minute
User avatar
arfer
Master
Posts: 436
Joined: Fri Nov 26, 2004 8:45 pm
Location: Manchester, UK

Post by arfer »

No there isn't. Time binds deal only with minutes, hours, days, months and years.

You would have to use a utimer to call a proc recursively, perhaps first started when the bot joins a network.

Code: Select all

bind EVNT - init-server pTimerStart

proc pTimerStart {type} {
    utimer 15 pTimerOutput
    return 0
}

proc pTimerOutput {} {
    foreach chan [channels] {
        if {[botonchan $chan]} {
            putquick "PRIVMSG $chan :test"
        }
    }
    utimer 15 pTimerOutput
    return 0
}
I must have had nothing to do
n
neoclust
Halfop
Posts: 55
Joined: Fri Aug 14, 2009 11:03 am

Post by neoclust »

Oh thanks arfer very glad :)
Post Reply