Timed Message

NewzUK · Post by **NewzUK** » Tue Jan 21, 2003 3:06 am

Hi

Just wondering if anyone has come across a script that sends a message to a channel at a certain actual time (eg 12:00) as opposed to a timed msg every x minutes...

Have had a look around but can't see one...

Thanks in advance!

Post by **caesar** » Tue Jan 21, 2003 3:23 am

Basicaly this sounds like an antiidle script. Go to TCL Archive and search there for one. And/or you can make yourself one using 'bind time'. For this look in the tcl-commands.doc file located in the doc/ dir.

NewzUK · Post by **NewzUK** » Tue Jan 21, 2003 3:36 am

thanks will take a look! of course also if anyone else has already seen one out there, I'd like to hear about that too

Post by **caesar** » Tue Jan 21, 2003 3:54 am

Oh, also look for a channel advert thing.. It's more apropiate to what you need.

NewzUK · Post by **NewzUK** » Tue Jan 21, 2003 4:14 am

thanks - hopefully there's one that will do clock/time-based rather than every x minutes etc

Papillon · Post by **Papillon** » Tue Jan 21, 2003 4:15 am

this is so easily made by yourself that it will probably be more work searching through the tcl-archive..... hint.... bind time <---

Post by **caesar** » Tue Jan 21, 2003 4:20 am

I already gave him that hint but seems that he didn't catch the hint

NewzUK · Post by **NewzUK** » Tue Jan 21, 2003 4:38 am

yes I got the hint thanks - was just asking the question.

ppslim · Post by **ppslim** » Tue Jan 21, 2003 5:25 am

Code: Select all

# Set this in the format "MIN:HOUR:DAY:MONTH:YEAR"
# Not all fields are needed. THe more included, the more precices the timer
# Feilds can be omited, by leaving them blank. All feilds are 2 digits (though year may be 4)
# EG
# Miday = 00:12
# Every hour = 00
# Every hour, only on the 2nd of the month = 00::02
set timemask "00:12"

set timemsg "PRIVMSG #channel :Our message goes here, in IRCD command format"

bind time - "*" message:timed
proc message:times {args} {
  global timemask timemsg
  set idx 0
  set temp [split $timemask :]
  foreach a $args {
    if {([lindex $temp $idx] == [lindex $args $idx]) || ([lindex $temp $idx] == "")} {
      incr idx
      continue
    } else {
      return
    }
  }
  puthelp $timemsg
}

Weirdo · Post by **Weirdo** » Tue Jan 21, 2003 5:34 am

ppslim helped me make a timed notice for my channel. Went off every 15 minutes and send a general notice to the channel. Wouldnt be too hard to modify for this purpose

NewzUK · Post by **NewzUK** » Tue Jan 21, 2003 6:20 am

thank you very much ppslim and others

acm · Post by **acm** » Wed Jan 22, 2003 2:58 pm

Code: Select all

...
bind time - "*" message:timed 
proc message:times {args} { 
...

shouldn't that be:

Code: Select all

...
bind time - "*" message:timed 
proc message:timed {args} { 
...

acm

ppslim · Post by **ppslim** » Wed Jan 22, 2003 3:16 pm

yup yup

NewzUK · Post by **NewzUK** » Wed Jan 22, 2003 9:35 pm

thanks acm for that - it's now working - and thanks to all for your help on this...

=)

NewzUK · Post by **NewzUK** » Wed Jan 22, 2003 10:06 pm

one more thing on this, if I want to make multiple msgs that show at different specific times, do I just make more of these:

set timeask
set timesg

and if so, do they have to be called different things?

basically I'm setting up 24 different msgs that run at the top of the hour that display the time and a msg to the channel.

thanks.