Kind of Countdown

[traxx]

Hi there,

could anyone please help me doing the following:
The bot should post a message every 3 hours. The content should be this:

"A new feature will be available by March 16 2006. Until then there are still X months, X days and X minutes."

It would be really great if somebody could help me.

Thanks in advance!

[Sir_Fz]

Code: Select all

set reachdate mm/dd/yy

bind time - * postmsg

proc postmsg {m h args} {
 global reachdate
 if {!([scan $h %d]%3)} {
  set date [clock scan $reachdate]
  set fulldate [clock format $date -format "%B %d %Y"]
  set dur [duration [expr {$date-[clock seconds]}]]
  puthelp "privmsg #channel :A new feature will be available by $fulldate. Until then there are still $dur."
 }
}

[traxx]

thanks for your answer, but for some strange reason the bot doesn't do anything

[Sir_Fz]

Did you change #channel to your #channelname?

[traxx]

yap, i did

[Sir_Fz]

Code: Select all

set reachdate mm/dd/yy

bind time - "00 *" postmsg

proc postmsg {m h args} {
 global reachdate
 if {[scan $h %d]%3 == 0} {
  set date [clock scan $reachdate]
  set fulldate [clock format $date -format "%B %d %Y"]
  set dur [germanize [duration [expr {$date-[clock seconds]}]]]
  puthelp "privmsg #channel :A new feature will be available by $fulldate. Until then there are still $dur."
 }
}

proc germanize str {
 regsub -nocase {week(s?)} $str "wochen" str
 regsub -nocase {hour(s?)} $str "stunden" str
 regsub -nocase {day(s?)} $str "tage" str
 set str
}

Edit: added translating weeks, hours, and days to german.

[traxx]

Thanks, working perfectly, but...

I wonder if it's possible to replace "weeks", "hours" and "days" in the time expression by it's german equivalents "wochen", "stunden" and "tage".

It would be great if anyone was so kind to explain that to me.

Thanks a lot!

[Sir_Fz]

I edited the code above to do so.