time tcl?

gatus · Post by **gatus** » Sat Jun 01, 2002 8:04 pm

Hello,

I was seeking for a tcl, which makes your bot say the time every X minutes, or randomly, searched the tcl library a lot but couldn't find any.. anyone have an idea of where can i get one?

Shocky · Post by **Shocky** » Sun Jun 02, 2002 12:25 am

here's quick code: not debugged:

bind time - "?0 * * * *" quick:time

proc quick:time {min hour day month year} {
putserv "PRIVMSG #channel :The time and date is now [clock format [clock seconds]]"
}

Relatively simple really..

Adjust however you want.

gatus · Post by **gatus** » Sun Jun 02, 2002 11:33 pm

Um, i'm a little bit new in tcl scripting, i don't understand too much, and don't have too much free time now to read about it. Anyway, can you tell me what can/should i change in this script? specifically i don't understand this part:bind time - "?0 * * * *" quick:time
what do i replace teh stars with?

I'll appresiate your help

gatus · Post by **gatus** » Mon Jun 03, 2002 6:36 pm

pleeaasee?

Papillon · Post by **Papillon** » Mon Jun 03, 2002 6:46 pm

bind time - "?0 * * * *" quick:time

proc quick:time {min hour day month year} {

"*(min) *(hour) *(day) *(month) *(year)"

see the connection

that script executes every 10th min

gatus · Post by **gatus** » Mon Jun 03, 2002 8:47 pm

Thanks a lot!