egghelp/eggheads community

Re: clock

2024-11-23T05:26:39-04:00

script script

#########################      ShareTime       #     # -------------------  ##   Date: 25-01-2018   ##   Version: v0.6      ##   Author(s): wie     #########################set sharetime(format) "%A %B %d %Y -- %H:%M:%S"bind time - "00 * * * *" sharetimebind pubm - *jam* sharetime_pubsetudef flag sharetimeproc sharetime {nick uhost hand chan arg} {global sharetime waktuforeach chan [channels] {if {[channel get $chan sharetime]} {replacetimeputhelp "PRIVMSG $chan :$waktu"}}}proc sharetime_pub {nick uhost hand chan arg} {global sharetime otime waktu set rtime [unixtime]if { $rtime - $otime  > 15} {replacetimeputhelp "PRIVMSG $chan :$waktu"set otime $rtime}}set otime 0proc replacetime { } {global sharetime waktuset arguments [clock format [clock seconds] -timezone :Asia/Makassar -format $sharetime(format)]set day [lindex [split $arguments] 0]if {$day == "Monday"} { set hari "\00312Senin\003" }if {$day == "Tuesday"} { set hari "\00312Selasa\003" }if {$day == "Wednesday"} { set hari "\00312Rabu\003" }if {$day == "Thursday"} { set hari "\00312Kamis\003" }if {$day == "Friday"} { set hari "\00303Jum'at\003" }if {$day == "Saturday"} { set hari "\00304Sabtu\003" }if {$day == "Sunday"} { set hari "\00304Ahad\003" }set tanggal [lindex [split $arguments] 2]set month [lindex [split $arguments] 1]if {$month == "January"} { set bulan "\00312Januari\003" }if {$month == "February"} { set bulan "\00313Februari\003" }if {$month == "March"} { set bulan "\00331Maret\003" }if {$month == "April"} { set bulan "\00303April\003" }if {$month == "May"} { set bulan "\00320Mei\003" }if {$month == "June"} { set bulan "\00325Juni\003" }if {$month == "July"} { set bulan "\00337Juli\003" }if {$month == "August"} { set bulan "\00304Agustus\003" }if {$month == "September"} { set bulan "\00309September\003" }if {$month == "October"} { set bulan "\00310Oktober\003" }if {$month == "November"} { set bulan "\00322November\003" }if {$month == "December"} { set bulan "\00304Desember\003" }set tahun [lindex [split $arguments] 3]set jam [lindex [split $arguments] 5]set waktu "Hari $hari, Tanggal64 $tanggal $bulan55 $tahun, Jam12 $jam WITA"}putlog "\002SHARETIME:\002 ShareTime.tcl 0.6 by wie is loaded."

script Can this script be made into AM or PM time?

if i put word

Code:

set waktu "Hari $hari, Tanggal64 $tanggal $bulan55 $tahun, Jam12 $jam PM WITA"

does it change automatically to AM?

Statistics: Posted by abah — Sat Nov 23, 2024 5:26 am

Re: clock

2024-03-19T19:03:47-04:00

Thank you CrazyCat

Statistics: Posted by pektek — Tue Mar 19, 2024 7:03 pm

Re: clock

2024-03-18T05:34:22-04:00

The last script I gave works like a charm, did you think to do .chanset #channel +sharetime ?

If you want to check: ircs://irc.zeolia.chat/test :

10:32:02 <@Jarvis> Senin Maret 18 2024 -- 05:32:00 PM
10:34:02 <@Jarvis> Senin Maret 18 2024 -- 05:34:00 PM

Statistics: Posted by CrazyCat — Mon Mar 18, 2024 5:34 am

Re: clock

2024-03-18T05:21:07-04:00

2 minutes expire, privmsg does not show on the channel CrazyCat

Thank you for your help

Statistics: Posted by pektek — Mon Mar 18, 2024 5:21 am

Re: clock

2024-03-17T19:01:56-04:00

Try this: script script

setudef flag sharetimeset sharetime(format) "%A %B %d %Y -- %I:%M:%S %p"proc sharetime {min hour day month dow} {   set now [clock format [clock seconds] -timezone :Asia/Makassar -format $::sharetime(format)]   foreach chan [channels] {if {[channel get $chan sharetime]} {puthelp "PRIVMSG $chan :[i18ndate $now]"}}}proc sharetime_pub {nick uhost handle chan text} {   puthelp "PRIVMSG $chan :[i18ndate [clock format [clock seconds] -timezone :Asia/Makassar -format $::sharetime(format)]]"}proc i18ndate {date} {   return [string map {\      "Monday" "\00312Senin\003" "Tuesday" "\00312Selasa\003" "Wednesday" "\00312Rabu\003" "Thursday" "\00312Kamis\003" "Friday" "\00303Jum'at\003" "Saturday" "\00304Sabtu\003" "Sunday" "\00304Ahad\003" \      "January" "\00312Januari\003" "February" "\00313Februari\003" "March" "\00331Maret\003" "April" "\00303April\003" "May" "\00320Mei\003" "June" "\00325Juni\003" \      "July" "\00337Juli\003" "August" "\00304Agustus\003" "September" "\00309September\003" "October" "\00310Oktober\003" "November" "\00322November\003" "December" "\00304Desember\003"} $date]}bind cron - "*/2 * * * *" sharetimebind pubm - "*jam*" sharetime_pub

script Not tested, but might be better

Statistics: Posted by CrazyCat — Sun Mar 17, 2024 7:01 pm

Re: clock

2024-03-17T13:45:42-04:00

Just tell the time (in your language) every x minutes on channels where it's activated ?
Yes

When 2 minutes expire, privmsg does not show on the channel.

Statistics: Posted by pektek — Sun Mar 17, 2024 1:45 pm

Re: clock

2024-03-17T13:41:19-04:00

Well, I don't understand what your really expecting.

Can you just describe, in simple words, what the script must do ? Just tell the time (in your language) every x minutes on channels where it's activated ?
And the public command is used to force the script to say the time on the current channel ?

Statistics: Posted by CrazyCat — Sun Mar 17, 2024 1:41 pm

Re: clock

2024-03-17T12:49:37-04:00

Sorry
2 min timer

[19:46:00] triggering bind sharetime
[19:46:00] triggered bind sharetime, user 0.029ms sys 0.008ms

When 2 minutes expire, privmsg does not show on the channel
Everything is fine but the timer did not show the channel

Code:

#########################      ShareTime       #     # -------------------  ##   Date: 25-01-2018   ##   Version: v0.6      ##   Author(s): wie     #########################set sharetime(format) "%A %B %d %Y -- %I:%M:%S %p"bind cron - "*/2 * * * *" sharetimebind pubm - *jam* sharetime_pubsetudef flag sharetimeproc sharetime {min hour day month dow} {global sharetime waktuforeach chan [channels] {if {[channel get $chan sharetime]} {replacetimeputhelp "PRIVMSG $chan :$waktu"}}}proc sharetime_pub {nick uhost hand chan arg} {global sharetime otime waktu set rtime [unixtime]if { $rtime - $otime  > 2} {replacetimeputhelp "PRIVMSG $chan :$waktu"set otime $rtime}}set otime 0proc replacetime { } {global sharetime waktuset arguments [clock format [clock seconds] -timezone :Asia/Makassar -format $sharetime(format)]set day [lindex [split $arguments] 0]if {$day == "Monday"} { set hari "\00312Senin\003" }if {$day == "Tuesday"} { set hari "\00312Selasa\003" }if {$day == "Wednesday"} { set hari "\00312Rabu\003" }if {$day == "Thursday"} { set hari "\00312Kamis\003" }if {$day == "Friday"} { set hari "\00303Jum'at\003" }if {$day == "Saturday"} { set hari "\00304Sabtu\003" }if {$day == "Sunday"} { set hari "\00304Ahad\003" }set tanggal [lindex [split $arguments] 2]set month [lindex [split $arguments] 1]if {$month == "January"} { set bulan "\00312Januari\003" }if {$month == "February"} { set bulan "\00313Februari\003" }if {$month == "March"} { set bulan "\00331Maret\003" }if {$month == "April"} { set bulan "\00303April\003" }if {$month == "May"} { set bulan "\00320Mei\003" }if {$month == "June"} { set bulan "\00325Juni\003" }if {$month == "July"} { set bulan "\00337Juli\003" }if {$month == "August"} { set bulan "\00304Agustus\003" }if {$month == "September"} { set bulan "\00309September\003" }if {$month == "October"} { set bulan "\00310Oktober\003" }if {$month == "November"} { set bulan "\00322November\003" }if {$month == "December"} { set bulan "\00304Desember\003" }set tahun [lindex [split $arguments] 3]set jam [lindex [split $arguments] 5]set waktu "Hari $hari, Tanggal64 $tanggal $bulan55 $tahun, Jam12 $jam WITA"}putlog "\002SHARETIME:\002 ShareTime.tcl 0.6 by wie is loaded."

Statistics: Posted by pektek — Sun Mar 17, 2024 12:49 pm

Re: clock

2024-03-17T12:36:47-04:00

Pastebin your full script, the previous code you post doesn't have any line looking like "set otime $replacetime"

Statistics: Posted by CrazyCat — Sun Mar 17, 2024 12:36 pm

Re: clock

2024-03-17T11:35:02-04:00

I upgraded the version but it gives this error

Tcl error [sharetime_pub]: can't read "replacetime": no such variable
can't read "replacetime": no such variable
while executing
"set otime $replacetime"
(procedure "sharetime_pub" line 7)
invoked from within
"sharetime_pub $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5

Statistics: Posted by pektek — Sun Mar 17, 2024 11:35 am

Re: clock

2024-03-17T11:29:37-04:00

https://www.eggheads.org/download/

Take care that your config file may not be compatible with 1.9.5, you'll probably have to redo it

Statistics: Posted by CrazyCat — Sun Mar 17, 2024 11:29 am

Re: clock

2024-03-17T11:34:27-04:00

I upgraded the version but it gives this error

can't read "replacetime": no such variable
while executing
"set otime $replacetime"
(procedure "sharetime_pub" line 7)
invoked from within
"sharetime_pub $_pubm1 $_pubm2 $_pubm3 $_pubm4 $_pubm5"

Statistics: Posted by pektek — Sun Mar 17, 2024 11:02 am

Re: clock

2024-03-17T10:48:26-04:00

Which version of eggdrop do you use ? Pretty old I guess.
Update your eggdrop to 1.9.5

Or use the 1st solution I gave (4 bind time)

Statistics: Posted by CrazyCat — Sun Mar 17, 2024 10:48 am

Re: clock

2024-03-17T10:24:25-04:00

Using cron gave an error
error message

bad type, should be one of: act, away, bcst, bot, chat, chjn, chof, chon, chpt, ctcp, ctcr, dcc, disc, evnt, filt, flud, join, kick, link, load, mode, msg, msgm, need, nick, nkch, notc, note, part, pub, pubm, raw, rejn, sign, splt, time, topc, unld, wall
while executing
"bind cron - "*/15 * * * *" sharetime"

Statistics: Posted by pektek — Sun Mar 17, 2024 10:24 am

Re: clock

2024-03-17T07:17:17-04:00

Your bind time is used to run when minutes are exactly 0.

script script
bind time   procname     
script Description: allows you to schedule procedure calls at certain times. mask matches 5 space separated integers of the form: “minute hour day month year”. The month var starts at 00 (Jan) and ends at 11 (Dec). Minute, hour, day, month have a zero padding so they are exactly two characters long; year is four characters. Flags are ignored.

https://docs.eggheads.org/using/tcl-commands.html#binds

If you want it runs every 15 minutes, 2 ways:
1. have 4 bind time (00, 15, 30 and 45). Not the best imho
2. use a bind cron: script script

bind cron - "*/15 * * * *" sharetime

script And change your sharetime proc definition, because you actually use definition of a pub proc: script script

proc sharetime {min hour day month dow} {

script

Statistics: Posted by CrazyCat — Sun Mar 17, 2024 7:17 am