privmsg nickname on a timer

[digitalbleh]

Hi,

Just want a simple script to send a msg to a person every 80 minutes.

[SpiKe^^]

Seems kind of rude to spam the same message to aPerson every 80 minutes, but here it is:)

Code: Select all

proc timedMsgProc {} {
  puthelp "PRIVMSG aPerson :send this msg to aPerson every 80 minutes"
  timer 80 [list timedMsgProc]
}

if {![info exists timedMsgRunning]} {
  set timedMsgRunning 1
  timer 10 [list timedMsgProc]
}

[caesar]

If anyone is willing to test a cron job like 20 */1 * * * (meaning at 20 minutes past the hour) let me know if works.

Code: Select all

bind cron - {20 */1 * * *} send:message

proc send:message {min hour day month week} {
	puthelp "PRIVMSG user :This is the once every 80 minutes message"
}

[SpiKe^^]

Caesar: That seems a lot more like a 60 minute timer, at 20 after every hour.

[CrazyCat]

*/1 or * are the same.
When using */x, it means it will run when * % x (modulo) equals 0.

Examples:
*/5 * * * * will act every time the minutes are 0, 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55
13 */7 * * * will act at 7h13, 14h13 and 21h13

[digitalbleh]

Thanks SpiKe^^

Thank you caesar

I will test both scripts, im worried tho if i need to change the time to + or - 80mins i wont know how to change 20 */1. Id assume if its 90mins it would be 30 */1 ?

[CrazyCat]

I will test both scripts, im worried tho if i need to change the time to + or - 80mins i wont know how to change 20 */1. Id assume if its 90mins it would be 30 */1 ?

No.
20 */1 will send the message every hour, when minutes are 0, 20 and 40.

The code from SpiKe^^ seems more relevant

[caesar]

Ah, right, i had a feeling a single cron job wouldn't do the job and it actually makes sense.

[heartbroken]

tcllib also has >> https://core.tcl-lang.org/tcllib/doc/tr ... on/cron.md


if .tcl commands enabled @ partyline .

Code: Select all

.tcl package require cron; cron::every Msg2User [expr {60*80}] {putserv "privmsg Nickname :Hey!"}

[CrazyCat]

Thanks, I didn't know this package exists.
Might solve a lot of problematics

[simo]

anyway to have this as pub command ?

also anyway to display all running crons ? with the method heartbroken used

[willyw]

...
also anyway to display all running crons ?
...

From within the partyline, this is what I do:

.tcl binds cron

[simo]

i tried that as well willyw but the method heartbroken is using doesnt show in the list on PL when using: .tcl binds cron

[caesar]

That's because it doesn't come from eggdrop's commands, but from tcllib, meaning it doesn't have an implementation to see them.

[CrazyCat]

tcllib also has >> https://core.tcl-lang.org/tcllib/doc/tr ... on/cron.md


if .tcl commands enabled @ partyline .

Code: Select all

.tcl package require cron; cron::every Msg2User [expr {60*80}] {putserv "privmsg Nickname :Hey!"}

A friend of mine remembers me that the (u)timer can have a count parameter (https://github.com/eggheads/eggdrop/blo ... mand-count)
if count equals 0, it will never end

Code: Select all

.tcl timer 80 {putserv "PRIVMSG nick :hey!"} 0

Btw, I think I prefer using the cron package which allows to name the process and adds more flexibility.