Time msg TCL

Rusher2K · Post by **Rusher2K** » Sun May 11, 2003 6:37 am

How can i display a msg in a chan every 10 minutes ?
Thx for Help

Post by **caesar** » Sun May 11, 2003 7:26 am

bind time - "10 * * * *" my:msg
proc my:msg {min hour day month year} {
putserv "PRIVMSG #channel :This is my 10 minutes timed message!"
}

ppslim · Post by **ppslim** » Sun May 11, 2003 7:34 am

This is incorrect. THis makes it every 10 mins past the hour.

You can add more time binds like so.

Code: Select all

bind time - "00 * * * *" my:msg
bind time - "10 * * * *" my:msg
bind time - "20 * * * *" my:msg
bind time - "30 * * * *" my:msg

Post by **caesar** » Sun May 11, 2003 7:37 am

Oups. Yes, forgot about it. Thanks for pointing it out.

Rusher2K · Post by **Rusher2K** » Sun May 11, 2003 7:48 am

must i make

bind time - "00 * * * *" my:msg
bind time - "10 * * * *" my:msg
bind time - "20 * * * *" my:msg
bind time - "30 * * * *" my:msg
bind time - "40 * * * *" my:msg
bind time - "50 * * * *" my:msg
bind time - "60 * * * *" my:msg
bind time - "70 * * * *" my:msg
bind time - "80 * * * *" my:msg
bind time - "90 * * * *" my:msg
bind time - "100 * * * *" my:msg

?

Post by **caesar** » Sun May 11, 2003 7:52 am

Actualy it's

Code: Select all

bind time - "00 * * * *" my:msg
bind time - "10 * * * *" my:msg
bind time - "20 * * * *" my:msg
bind time - "30 * * * *" my:msg
bind time - "40 * * * *" my:msg
bind time - "50 * * * *" my:msg

proc my:msg {min hour day month year} { 
  putserv "PRIVMSG #channel :This is my 10 minutes timed message!" 
}

ppslim · Post by **ppslim** » Sun May 11, 2003 7:54 am

No, you can't have 60, 70, 80, 90 or 100 mins pastt eh hour.

Rusher2K · Post by **Rusher2K** » Sun May 11, 2003 8:20 am

OK thx it works

GodOfSuicide · Post by **GodOfSuicide** » Sun May 11, 2003 12:42 pm

caesar : what about this way ?

Code: Select all

if {[lsearch -glob [timers] "* my:msg *"] == -1} { timer 10 my:msg }

proc my:msg {min hour day month year} { 
if {[lsearch -glob [timers] "* my:msg *"] == -1} { timer 10 my:msg }  
putserv "PRIVMSG #channel :This is my 10 minutes timed message!" 
}

ppslim · Post by **ppslim** » Sun May 11, 2003 12:52 pm

Or , hell, to save using timers, and having them break on you

Code: Select all

bind time - "*" my:msg 
proc my:msg {min hour day month year} { 
  if {[string index $min 0] == "0"]} { set min [string index $min 1] }
  if {[expr $min % 10]} { return }
  putserv "PRIVMSG #channel :This is my 10 minutes timed message!" 
}

Post by **user** » Sun May 11, 2003 7:12 pm

how about: 'bind time - "?0 *" proc'? the last digit of the minutes is 0 every 10 minutes, right?

ppslim · Post by **ppslim** » Sun May 11, 2003 7:56 pm

Post by **caesar** » Mon May 12, 2003 1:47 am

True.. true..

great alternatives.