egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2003-09-05T08:30:22-04:00 https://forum.eggheads.org/app.php/feed/topic/5499 2003-09-05T08:30:22-04:00 2003-09-05T08:30:22-04:00 https://forum.eggheads.org/viewtopic.php?p=26549#p26549 <![CDATA[Displaying the time...]]> Statistics: Posted by GodOfSuicide — Fri Sep 05, 2003 8:30 am

]]> 2003-09-05T07:02:21-04:00 2003-09-05T07:02:21-04:00 https://forum.eggheads.org/viewtopic.php?p=26539#p26539 <![CDATA[Displaying the time...]]> Statistics: Posted by NewzUK — Fri Sep 05, 2003 7:02 am

]]> 2003-09-05T06:17:56-04:00 2003-09-05T06:17:56-04:00 https://forum.eggheads.org/viewtopic.php?p=26537#p26537 <![CDATA[Displaying the time...]]> :)

Statistics: Posted by NewzUK — Fri Sep 05, 2003 6:17 am

]]> 2003-09-05T06:19:22-04:00 2003-09-05T06:14:28-04:00 https://forum.eggheads.org/viewtopic.php?p=26536#p26536 <![CDATA[Displaying the time...]]>

Code: 

bind time - "00 * * * *" put:hour proc put:hour { min hour day month year } { putserv "PRIVMSG #NewsRoom :\0030,4» LIVE ([gettime -16] US Eastern and [gettime -13] GMT) \0030,12> Breaking News & Market Action 24/7 \0031,15> http://www.247newsroom.com \00312,12 \003"}


you can strip the seconds by removing ":%S" from the gettime proc
and dont forget to load the gettime proc,best is if you add it to the same .tcl as your current script

btw : they way user thought about it :

Code: 

proc gettime { offset } {return [clock format [expr [clock seconds] + [expr $offset] * 60 * 60] -format "%H:%M:%S"]}
then the date is correct too

Statistics: Posted by GodOfSuicide — Fri Sep 05, 2003 6:14 am

]]> 2003-09-05T06:05:29-04:00 2003-09-05T06:05:29-04:00 https://forum.eggheads.org/viewtopic.php?p=26535#p26535 <![CDATA[Displaying the time...]]> Statistics: Posted by NewzUK — Fri Sep 05, 2003 6:05 am

]]> 2003-09-05T06:01:30-04:00 2003-09-05T06:01:30-04:00 https://forum.eggheads.org/viewtopic.php?p=26534#p26534 <![CDATA[Displaying the time...]]>

Statistics: Posted by user — Fri Sep 05, 2003 6:01 am

]]> 2003-09-05T05:59:17-04:00 2003-09-05T05:59:17-04:00 https://forum.eggheads.org/viewtopic.php?p=26533#p26533 <![CDATA[Displaying the time...]]>

Code: 

proc gettime { offset } {set hour [clock format [clock seconds] -format "%H"]set therest [clock format [clock seconds] -format "%M:%S"]set time_ret [expr $hour + $offset]if {[expr $time_ret > 23]} { set time_ret [expr $time_ret - 24] }if {[expr $time_ret < 0]} { set time_ret [expr $time_ret + 24] }return $time_ret:$therest}
you can use this with [gettime -16] for US Estern and with [gettime -12] for gmt

i know this can be done in a lower number of lines, but this way its easy to understand for everybody

Statistics: Posted by GodOfSuicide — Fri Sep 05, 2003 5:59 am

]]> 2003-09-05T05:20:29-04:00 2003-09-05T05:20:29-04:00 https://forum.eggheads.org/viewtopic.php?p=26531#p26531 <![CDATA[Displaying the time...]]>
bind time - "00 * * * *" put:hour
proc put:hour { min hour day month year } {
putserv "PRIVMSG #NewsRoom :\0030,4» LIVE \0030,12> Breaking News & Market Action 24/7 \0031,15> http://www.247newsroom.com \00312,12 \003"}

I'd like to add to the message (after the 'LIVE') the current US Eastern time (16 hours behind my local time) and GMT time (12 hours behind my local time).

If anyone could help me with the asctime and calc commands that would be great! Thanks =)

Statistics: Posted by NewzUK — Fri Sep 05, 2003 5:20 am

]]>