Digital Clock

By xdesoto on Dec 22, 2011

Must download these images: http://www.mediafire.com/?cnqid61mfad92vd
OTHERWISE, it will not work.

Heres an image
Image

The top picture of course is the Digital clock
the bottom is Windows default clock to show you the correct time.

Just when you load it, type /dclock

alias dclock { dialog -m clock clock }

on *:load:{
  if ($?!="Digital Clock Loaded. Would you like to run it now?" == $true) { /dialog -m Clock Clock }
}
Dialog Clock {
  title "Clock"
  size -1 -1 143 21
  icon 2, 1 0 16 21, Clock\blank.jpg, noborder
  icon 3, 17 0 16 21, Clock\blank.jpg, noborder
  icon 4, 33 0 7 21, Clock\col.jpg, noborder
  icon 5, 40 0 16 21, Clock\blank.jpg, noborder
  icon 6, 56 0 16 21, Clock\blank.jpg, noborder
  icon 7, 72 0 7 21, Clock\col.jpg, noborder
  icon 8, 79 0 16 21, Clock\blank.jpg, noborder
  icon 9, 95 0 16 21, Clock\blank.jpg, noborder
  icon 10, 111 0 16 21, Clock\blank.jpg, noborder
  icon 11, 127 0 16 21, Clock\blank.jpg, noborder
  button "k" 1, -20 -20 1 1, ok
}
on *:dialog:Clock:init:0:{ /.timerclock.short 9000 1 /.run.clock.short | /.run.clock.long | /run.clock.short }
alias Run.Clock.long {
  if ($dialog(Clock) != $null) {
    if ($time(tt) == am) { /did -g Clock 10 1 Clock\a.jpg | /did -g Clock 11 1 Clock\m.jpg }
    if ($time(tt) == pm) { /did -g Clock 10 1 Clock\p.jpg | /did -g Clock 11 1 Clock\m.jpg }
    if ($time(hh) == 00) { /did -g Clock 2 1 Clock\0.jpg | /did -g Clock 3 1 Clock\0.jpg }  
    if ($time(hh) == 01) { /did -g Clock 2 1 Clock\0.jpg | /did -g Clock 3 1 Clock\1.jpg }
    if ($time(hh) == 02) { /did -g Clock 2 1 Clock\0.jpg | /did -g Clock 3 1 Clock\2.jpg }
    if ($time(hh) == 03) { /did -g Clock 2 1 Clock\0.jpg | /did -g Clock 3 1 Clock\3.jpg }
    if ($time(hh) == 04) { /did -g Clock 2 1 Clock\0.jpg | /did -g Clock 3 1 Clock\4.jpg }
    if ($time(hh) == 05) { /did -g Clock 2 1 Clock\0.jpg | /did -g Clock 3 1 Clock\5.jpg }
    if ($time(hh) == 06) { /did -g Clock 2 1 Clock\0.jpg | /did -g Clock 3 1 Clock\6.jpg }
    if ($time(hh) == 07) { /did -g Clock 2 1 Clock\0.jpg | /did -g Clock 3 1 Clock\7.jpg }
    if ($time(hh) == 08) { /did -g Clock 2 1 Clock\0.jpg | /did -g Clock 3 1 Clock\8.jpg }
    if ($time(hh) == 09) { /did -g Clock 2 1 Clock\0.jpg | /did -g Clock 3 1 Clock\9.jpg }
    if ($time(hh) == 10) { /did -g Clock 2 1 Clock\1.jpg | /did -g Clock 3 1 Clock\0.jpg }
    if ($time(hh) == 11) { /did -g Clock 2 1 Clock\1.jpg | /did -g Clock 3 1 Clock\1.jpg }
    if ($time(hh) == 12) { /did -g Clock 2 1 Clock\1.jpg | /did -g Clock 3 1 Clock\2.jpg }
    if ($time(nn) == 00) { /did -g Clock 5 1 Clock\0.jpg | /did -g Clock 6 1 Clock\0.jpg }
    if ($time(nn) == 01) { /did -g Clock 5 1 Clock\0.jpg | /did -g Clock 6 1 Clock\1.jpg }
    if ($time(nn) == 02) { /did -g Clock 5 1 Clock\0.jpg | /did -g Clock 6 1 Clock\2.jpg }
    if ($time(nn) == 03) { /did -g Clock 5 1 Clock\0.jpg | /did -g Clock 6 1 Clock\3.jpg }
    if ($time(nn) == 04) { /did -g Clock 5 1 Clock\0.jpg | /did -g Clock 6 1 Clock\4.jpg }
    if ($time(nn) == 05) { /did -g Clock 5 1 Clock\0.jpg | /did -g Clock 6 1 Clock\5.jpg }
    if ($time(nn) == 06) { /did -g Clock 5 1 Clock\0.jpg | /did -g Clock 6 1 Clock\6.jpg }
    if ($time(nn) == 07) { /did -g Clock 5 1 Clock\0.jpg | /did -g Clock 6 1 Clock\7.jpg }
    if ($time(nn) == 08) { /did -g Clock 5 1 Clock\0.jpg | /did -g Clock 6 1 Clock\8.jpg }
    if ($time(nn) == 09) { /did -g Clock 5 1 Clock\0.jpg | /did -g Clock 6 1 Clock\9.jpg }
    if ($time(nn) == 10) { /did -g Clock 5 1 Clock\1.jpg | /did -g Clock 6 1 Clock\0.jpg }
    if ($time(nn) == 11) { /did -g Clock 5 1 Clock\1.jpg | /did -g Clock 6 1 Clock\1.jpg }
    if ($time(nn) == 12) { /did -g Clock 5 1 Clock\1.jpg | /did -g Clock 6 1 Clock\2.jpg }
    if ($time(nn) == 13) { /did -g Clock 5 1 Clock\1.jpg | /did -g Clock 6 1 Clock\3.jpg }
    if ($time(nn) == 14) { /did -g Clock 5 1 Clock\1.jpg | /did -g Clock 6 1 Clock\4.jpg }
    if ($time(nn) == 15) { /did -g Clock 5 1 Clock\1.jpg | /did -g Clock 6 1 Clock\5.jpg }
    if ($time(nn) == 16) { /did -g Clock 5 1 Clock\1.jpg | /did -g Clock 6 1 Clock\6.jpg }
    if ($time(nn) == 17) { /did -g Clock 5 1 Clock\1.jpg | /did -g Clock 6 1 Clock\7.jpg }
    if ($time(nn) == 18) { /did -g Clock 5 1 Clock\1.jpg | /did -g Clock 6 1 Clock\8.jpg }
    if ($time(nn) == 19) { /did -g Clock 5 1 Clock\1.jpg | /did -g Clock 6 1 Clock\9.jpg }
    if ($time(nn) == 20) { /did -g Clock 5 1 Clock\2.jpg | /did -g Clock 6 1 Clock\0.jpg }
    if ($time(nn) == 21) { /did -g Clock 5 1 Clock\2.jpg | /did -g Clock 6 1 Clock\1.jpg }
    if ($time(nn) == 22) { /did -g Clock 5 1 Clock\2.jpg | /did -g Clock 6 1 Clock\2.jpg }
    if ($time(nn) == 23) { /did -g Clock 5 1 Clock\2.jpg | /did -g Clock 6 1 Clock\3.jpg }
    if ($time(nn) == 24) { /did -g Clock 5 1 Clock\2.jpg | /did -g Clock 6 1 Clock\4.jpg }
    if ($time(nn) == 25) { /did -g Clock 5 1 Clock\2.jpg | /did -g Clock 6 1 Clock\5.jpg }
    if ($time(nn) == 26) { /did -g Clock 5 1 Clock\2.jpg | /did -g Clock 6 1 Clock\6.jpg }
    if ($time(nn) == 27) { /did -g Clock 5 1 Clock\2.jpg | /did -g Clock 6 1 Clock\7.jpg }
    if ($time(nn) == 28) { /did -g Clock 5 1 Clock\2.jpg | /did -g Clock 6 1 Clock\8.jpg }
    if ($time(nn) == 29) { /did -g Clock 5 1 Clock\2.jpg | /did -g Clock 6 1 Clock\9.jpg }
    if ($time(nn) == 30) { /did -g Clock 5 1 Clock\3.jpg | /did -g Clock 6 1 Clock\0.jpg }
    if ($time(nn) == 31) { /did -g Clock 5 1 Clock\3.jpg | /did -g Clock 6 1 Clock\1.jpg }
    if ($time(nn) == 32) { /did -g Clock 5 1 Clock\3.jpg | /did -g Clock 6 1 Clock\2.jpg }
    if ($time(nn) == 33) { /did -g Clock 5 1 Clock\3.jpg | /did -g Clock 6 1 Clock\3.jpg }
    if ($time(nn) == 34) { /did -g Clock 5 1 Clock\3.jpg | /did -g Clock 6 1 Clock\4.jpg }
    if ($time(nn) == 35) { /did -g Clock 5 1 Clock\3.jpg | /did -g Clock 6 1 Clock\5.jpg }
    if ($time(nn) == 36) { /did -g Clock 5 1 Clock\3.jpg | /did -g Clock 6 1 Clock\6.jpg }
    if ($time(nn) == 37) { /did -g Clock 5 1 Clock\3.jpg | /did -g Clock 6 1 Clock\7.jpg }
    if ($time(nn) == 38) { /did -g Clock 5 1 Clock\3.jpg | /did -g Clock 6 1 Clock\8.jpg }
    if ($time(nn) == 39) { /did -g Clock 5 1 Clock\3.jpg | /did -g Clock 6 1 Clock\9.jpg }
    if ($time(nn) == 40) { /did -g Clock 5 1 Clock\4.jpg | /did -g Clock 6 1 Clock\0.jpg }
    if ($time(nn) == 41) { /did -g Clock 5 1 Clock\4.jpg | /did -g Clock 6 1 Clock\1.jpg }
    if ($time(nn) == 42) { /did -g Clock 5 1 Clock\4.jpg | /did -g Clock 6 1 Clock\2.jpg }
    if ($time(nn) == 43) { /did -g Clock 5 1 Clock\4.jpg | /did -g Clock 6 1 Clock\3.jpg }
    if ($time(nn) == 44) { /did -g Clock 5 1 Clock\4.jpg | /did -g Clock 6 1 Clock\4.jpg }
    if ($time(nn) == 45) { /did -g Clock 5 1 Clock\4.jpg | /did -g Clock 6 1 Clock\5.jpg }
    if ($time(nn) == 46) { /did -g Clock 5 1 Clock\4.jpg | /did -g Clock 6 1 Clock\6.jpg }
    if ($time(nn) == 47) { /did -g Clock 5 1 Clock\4.jpg | /did -g Clock 6 1 Clock\7.jpg }
    if ($time(nn) == 48) { /did -g Clock 5 1 Clock\4.jpg | /did -g Clock 6 1 Clock\8.jpg }
    if ($time(nn) == 49) { /did -g Clock 5 1 Clock\4.jpg | /did -g Clock 6 1 Clock\9.jpg }
    if ($time(nn) == 50) { /did -g Clock 5 1 Clock\5.jpg | /did -g Clock 6 1 Clock\0.jpg }
    if ($time(nn) == 51) { /did -g Clock 5 1 Clock\5.jpg | /did -g Clock 6 1 Clock\1.jpg }
    if ($time(nn) == 52) { /did -g Clock 5 1 Clock\5.jpg | /did -g Clock 6 1 Clock\2.jpg }
    if ($time(nn) == 53) { /did -g Clock 5 1 Clock\5.jpg | /did -g Clock 6 1 Clock\3.jpg }
    if ($time(nn) == 54) { /did -g Clock 5 1 Clock\5.jpg | /did -g Clock 6 1 Clock\4.jpg }
    if ($time(nn) == 55) { /did -g Clock 5 1 Clock\5.jpg | /did -g Clock 6 1 Clock\5.jpg }
    if ($time(nn) == 56) { /did -g Clock 5 1 Clock\5.jpg | /did -g Clock 6 1 Clock\6.jpg }
    if ($time(nn) == 57) { /did -g Clock 5 1 Clock\5.jpg | /did -g Clock 6 1 Clock\7.jpg }
    if ($time(nn) == 58) { /did -g Clock 5 1 Clock\5.jpg | /did -g Clock 6 1 Clock\8.jpg }
    if ($time(nn) == 59) { /did -g Clock 5 1 Clock\5.jpg | /did -g Clock 6 1 Clock\9.jpg }
  }
}
alias Run.Clock.Short {
  if ($dialog(Clock) == $null) { /.timerClock.short off }
  if ($dialog(Clock) != $null) {
    if ($time(ss) == 00) { /did -g Clock 8 1 Clock\0.jpg | /did -g Clock 9 1 Clock\0.jpg }
    if ($time(ss) == 01) { /did -g Clock 8 1 Clock\0.jpg | /did -g Clock 9 1 Clock\1.jpg }
    if ($time(ss) == 02) { /did -g Clock 8 1 Clock\0.jpg | /did -g Clock 9 1 Clock\2.jpg }
    if ($time(ss) == 03) { /did -g Clock 8 1 Clock\0.jpg | /did -g Clock 9 1 Clock\3.jpg }
    if ($time(ss) == 04) { /did -g Clock 8 1 Clock\0.jpg | /did -g Clock 9 1 Clock\4.jpg }
    if ($time(ss) == 05) { /did -g Clock 8 1 Clock\0.jpg | /did -g Clock 9 1 Clock\5.jpg }
    if ($time(ss) == 06) { /did -g Clock 8 1 Clock\0.jpg | /did -g Clock 9 1 Clock\6.jpg }
    if ($time(ss) == 07) { /did -g Clock 8 1 Clock\0.jpg | /did -g Clock 9 1 Clock\7.jpg }
    if ($time(ss) == 08) { /did -g Clock 8 1 Clock\0.jpg | /did -g Clock 9 1 Clock\8.jpg }
    if ($time(ss) == 09) { /did -g Clock 8 1 Clock\0.jpg | /did -g Clock 9 1 Clock\9.jpg }
    if ($time(ss) == 10) { /did -g Clock 8 1 Clock\1.jpg | /did -g Clock 9 1 Clock\0.jpg }
    if ($time(ss) == 11) { /did -g Clock 8 1 Clock\1.jpg | /did -g Clock 9 1 Clock\1.jpg }
    if ($time(ss) == 12) { /did -g Clock 8 1 Clock\1.jpg | /did -g Clock 9 1 Clock\2.jpg }
    if ($time(ss) == 13) { /did -g Clock 8 1 Clock\1.jpg | /did -g Clock 9 1 Clock\3.jpg }
    if ($time(ss) == 14) { /did -g Clock 8 1 Clock\1.jpg | /did -g Clock 9 1 Clock\4.jpg }
    if ($time(ss) == 15) { /did -g Clock 8 1 Clock\1.jpg | /did -g Clock 9 1 Clock\5.jpg }
    if ($time(ss) == 16) { /did -g Clock 8 1 Clock\1.jpg | /did -g Clock 9 1 Clock\6.jpg }
    if ($time(ss) == 17) { /did -g Clock 8 1 Clock\1.jpg | /did -g Clock 9 1 Clock\7.jpg }
    if ($time(ss) == 18) { /did -g Clock 8 1 Clock\1.jpg | /did -g Clock 9 1 Clock\8.jpg }
    if ($time(ss) == 19) { /did -g Clock 8 1 Clock\1.jpg | /did -g Clock 9 1 Clock\9.jpg }
    if ($time(ss) == 20) { /did -g Clock 8 1 Clock\2.jpg | /did -g Clock 9 1 Clock\0.jpg }
    if ($time(ss) == 21) { /did -g Clock 8 1 Clock\2.jpg | /did -g Clock 9 1 Clock\1.jpg }
    if ($time(ss) == 22) { /did -g Clock 8 1 Clock\2.jpg | /did -g Clock 9 1 Clock\2.jpg }
    if ($time(ss) == 23) { /did -g Clock 8 1 Clock\2.jpg | /did -g Clock 9 1 Clock\3.jpg }
    if ($time(ss) == 24) { /did -g Clock 8 1 Clock\2.jpg | /did -g Clock 9 1 Clock\4.jpg }
    if ($time(ss) == 25) { /did -g Clock 8 1 Clock\2.jpg | /did -g Clock 9 1 Clock\5.jpg }
    if ($time(ss) == 26) { /did -g Clock 8 1 Clock\2.jpg | /did -g Clock 9 1 Clock\6.jpg }
    if ($time(ss) == 27) { /did -g Clock 8 1 Clock\2.jpg | /did -g Clock 9 1 Clock\7.jpg }
    if ($time(ss) == 28) { /did -g Clock 8 1 Clock\2.jpg | /did -g Clock 9 1 Clock\8.jpg }
    if ($time(ss) == 29) { /did -g Clock 8 1 Clock\2.jpg | /did -g Clock 9 1 Clock\9.jpg }
    if ($time(ss) == 30) { /did -g Clock 8 1 Clock\3.jpg | /did -g Clock 9 1 Clock\0.jpg }
    if ($time(ss) == 31) { /did -g Clock 8 1 Clock\3.jpg | /did -g Clock 9 1 Clock\1.jpg }
    if ($time(ss) == 32) { /did -g Clock 8 1 Clock\3.jpg | /did -g Clock 9 1 Clock\2.jpg }
    if ($time(ss) == 33) { /did -g Clock 8 1 Clock\3.jpg | /did -g Clock 9 1 Clock\3.jpg }
    if ($time(ss) == 34) { /did -g Clock 8 1 Clock\3.jpg | /did -g Clock 9 1 Clock\4.jpg }
    if ($time(ss) == 35) { /did -g Clock 8 1 Clock\3.jpg | /did -g Clock 9 1 Clock\5.jpg }
    if ($time(ss) == 36) { /did -g Clock 8 1 Clock\3.jpg | /did -g Clock 9 1 Clock\6.jpg }
    if ($time(ss) == 37) { /did -g Clock 8 1 Clock\3.jpg | /did -g Clock 9 1 Clock\7.jpg }
    if ($time(ss) == 38) { /did -g Clock 8 1 Clock\3.jpg | /did -g Clock 9 1 Clock\8.jpg }
    if ($time(ss) == 39) { /did -g Clock 8 1 Clock\3.jpg | /did -g Clock 9 1 Clock\9.jpg }
    if ($time(ss) == 40) { /did -g Clock 8 1 Clock\4.jpg | /did -g Clock 9 1 Clock\0.jpg }
    if ($time(ss) == 41) { /did -g Clock 8 1 Clock\4.jpg | /did -g Clock 9 1 Clock\1.jpg }
    if ($time(ss) == 42) { /did -g Clock 8 1 Clock\4.jpg | /did -g Clock 9 1 Clock\2.jpg }
    if ($time(ss) == 43) { /did -g Clock 8 1 Clock\4.jpg | /did -g Clock 9 1 Clock\3.jpg }
    if ($time(ss) == 44) { /did -g Clock 8 1 Clock\4.jpg | /did -g Clock 9 1 Clock\4.jpg }
    if ($time(ss) == 45) { /did -g Clock 8 1 Clock\4.jpg | /did -g Clock 9 1 Clock\5.jpg }
    if ($time(ss) == 46) { /did -g Clock 8 1 Clock\4.jpg | /did -g Clock 9 1 Clock\6.jpg }
    if ($time(ss) == 47) { /did -g Clock 8 1 Clock\4.jpg | /did -g Clock 9 1 Clock\7.jpg }
    if ($time(ss) == 48) { /did -g Clock 8 1 Clock\4.jpg | /did -g Clock 9 1 Clock\8.jpg }
    if ($time(ss) == 49) { /did -g Clock 8 1 Clock\4.jpg | /did -g Clock 9 1 Clock\9.jpg }
    if ($time(ss) == 50) { /did -g Clock 8 1 Clock\5.jpg | /did -g Clock 9 1 Clock\0.jpg }
    if ($time(ss) == 51) { /did -g Clock 8 1 Clock\5.jpg | /did -g Clock 9 1 Clock\1.jpg }
    if ($time(ss) == 52) { /did -g Clock 8 1 Clock\5.jpg | /did -g Clock 9 1 Clock\2.jpg }
    if ($time(ss) == 53) { /did -g Clock 8 1 Clock\5.jpg | /did -g Clock 9 1 Clock\3.jpg }
    if ($time(ss) == 54) { /did -g Clock 8 1 Clock\5.jpg | /did -g Clock 9 1 Clock\4.jpg }
    if ($time(ss) == 55) { /did -g Clock 8 1 Clock\5.jpg | /did -g Clock 9 1 Clock\5.jpg }
    if ($time(ss) == 56) { /did -g Clock 8 1 Clock\5.jpg | /did -g Clock 9 1 Clock\6.jpg }
    if ($time(ss) == 57) { /did -g Clock 8 1 Clock\5.jpg | /did -g Clock 9 1 Clock\7.jpg }
    if ($time(ss) == 58) { /did -g Clock 8 1 Clock\5.jpg | /did -g Clock 9 1 Clock\8.jpg }
    if ($time(ss) == 59) { /did -g Clock 8 1 Clock\5.jpg | /did -g Clock 9 1 Clock\9.jpg | /.timer 1 1 /run.clock.long }
  }
}

Comments

Sign in to comment.
Ahmed Zaggoudi   -  Dec 25, 2011

very nice like it :D +1

 Respond  
IllogicTC   -  Dec 25, 2011

I'm one of the people who voted a score on it. :) I voted 7. Maybe if you included the whole alarm clock and stuff, it would go up ;)

 Respond  
xdesoto   -  Dec 24, 2011

loL all these comments on here, and only one like and 2 scores. PSHHH ;P

 Respond  
SReject   -  Dec 24, 2011

Yea. I just shortened the dialog code even more :S

Edit: x2

 Respond  
IllogicTC   -  Dec 24, 2011

Couldn't you just specify w and h in the drawpic command, or use the -s switch, to adjust the picture to the size you need? Of course, looks sloppy when making the pictures bigger, and probably is more costly on resources than just doing a manual resize of the source images yourself before using....

Also... why didn't any of us think to use -c in the drawpic? Probably wouldn't make too much of a difference with the way it runs anyway, but you may as well cache them since you'll be reusing them again and again until the clock is closed.

Also, @pball: Analog clock has already been done by BlueThen, years ago lol. It was the script that I used for reference to learn how to draw lines in any specific angle ^_^

Also, maybe someone could include elements of my Higher-Resolution Timestamp snippet to give the time which includes hundredths of a second, for those who really need to know the EXACT TIME lol. Wonder how laggy it would be?

 Respond  
pball   -  Dec 24, 2011

just updated my post above to add a feature so you can click it to switch 12/24 hour mode and a little bug where am/pm wouldn't be shown.

xdesoto you started quite the craze here with clocks, lol. how long until someone makes an analog clock?

update:
there was a competition 11 or so years ago about making an analog clock in mirc

 Respond  
SReject   -  Dec 24, 2011

Here's a shortened form of the orginal dialog. though I re-arranged dialog IDs, changed \clock\ to \dclock and used c.jpg instead of col.jpg:

alias dclock { 
  if ($dialog(dclock)) dclock2 $*
  else dialog -m dclock dclock
}
alias -l dclock2 if ($mid($time(hhnnsst),$1,1) $+ .jpg != $nopath($did(dclock,$1))) did -g dclock $1 1 dclock\ $+ $v1
Dialog dClock {
  title "Clock"
  size -1 -1 143 21
  icon 1, 1 0 16 21, dClock\0.jpg, noborder
  icon 2, 17 0 16 21, dClock\0.jpg, noborder
  icon 3, 40 0 16 21, dClock\0.jpg, noborder
  icon 4, 56 0 16 21, dClock\0.jpg, noborder
  icon 5, 79 0 16 21, dClock\0.jpg, noborder
  icon 6, 95 0 16 21, dClock\0.jpg, noborder
  icon 7, 111 0 16 21, dClock\a.jpg, noborder
  icon 8, 72 0 7 21, dClock\c.jpg, noborder
  icon 9, 33 0 7 21, dClock\c.jpg, noborder
  icon 10, 127 0 16 21, dClock\m.jpg, noborder
}
on *:dialog:dClock:init:0:.timerdclock 0 1 dclock 1 2 3 4 5 6 7 | .timerdclock -e
on *:dialog:dClock:close:0:.timerdclock off

Edited to shorten code EVEN more x3 or x4, at this point I can't even remember

 Respond  
Abcdefmonkey   -  Dec 24, 2011

Eh, I didn't notice much of a difference. At any rate, both ways work. Kudos to you.

 Respond  
pball   -  Dec 24, 2011

Yeah I shrunk them because the original size forces the toolbar to get larger, which was annoying as it threw off window positions and such.

 Respond  
Abcdefmonkey   -  Dec 24, 2011

See, I missed that part. However, using xdesoto's pictures along with the bits of code I've posted above, his will in fact work with your code as well. :) So either way is good. Using xdesoto's pictures will allow you to have a bigger digital clock for those who like that. :P

 Respond  
pball   -  Dec 24, 2011

Well just so you don't feel so bad I didn't have the images linked until now, though i did explicitly say they needed to re-sized to 16px tall

 Respond  
Abcdefmonkey   -  Dec 24, 2011

Edit: Nevermind. I was using the initial pictures that were posted. I failed to see your link in your post. My apologies. Anyways, your images work nicely with it. I seem to have wasted my time making the initial pictures work with your code. Haha. :P -facepalm-

xD

 Respond  
pball   -  Dec 24, 2011

Abcdefmonkey you aren't understanding what I say. You have to resize the pictures manually inside a photo editing program. or I'll just post an archive of them if that's too hard to understand.

USE THESE PICTURES FOR THE SCRIPT I PASTED
http://www.mediafire.com/?amb99ah60gqt0ns

 Respond  
Abcdefmonkey   -  Dec 24, 2011

[EDIT: This is to configure xdesoto's images to work with pball's coding (for a slightly bigger digital clock)]

*To those who experience numbers not fitting completely or being cut off

After some tinkering with repositioning where it placed the numbers and changing the width a bit here's the outcome: http://puu.sh/brn5

The numbers fit perfectly and nothing is cut off. Here's what was changed (again, lol):

  if (!$window(@clock)) window -nBj2kpw0 +f @clock 0 0 $iif($1 == 12,117,88) 22
  if (!$toolbar(clock)) toolbar -aux clock "" @clock 0 0 $iif($1 == 12,111,82) 16

Changed to:

  if (!$window(@clock)) window -nBj2kpw0 +f @clock 0 0 $iif($1 == 12,125,88) 25
  if (!$toolbar(clock)) toolbar -aux clock "" @clock 0 0 $iif($1 == 12,111,82) 30

And

if ($mid(%time,1,1) != 0) || (%num != 1) || ($1 != 12) drawpic @clock $gettok(0 12 24 29 41 53 58 70 $iif($1 == 12,87 99),%num,32) 0 $scriptdir $+ $mid(%time,%num,1) $+ .jpg

Changed to:

    if ($mid(%time,1,1) != 0) || (%num != 1) || ($1 != 12) drawpic @clock $gettok(-2 12 26 31 44 58 63 77 $iif($1 == 12,91 105),%num,32) 0 $scriptdir $+ $mid(%time,%num,1) $+ .jpg

Lastly, just a minor tweak to the toolbar itself:

toolbar -tpu clock "" @clock 0 0 $iif($1 == 12,111,82) 16

Changed to:

  toolbar -tpu clock "" @clock 0 0 $iif($1 == 12,120,95) 20
 Respond  
Abcdefmonkey   -  Dec 24, 2011

I'm not sure which way you mean, the pictures themselves (the picture files), I did not. In the coding, I resized it to 20 in height. You have 16 initially, and the bottom of the numbers are cut off as you can see in the first screenshot link. I just added a bit to the height and it all fit.

 Respond  
pball   -  Dec 24, 2011

Abcdefmonkey did you resize the pictures to 16px high? because that's what I did to make everything fit

 Respond  
Abcdefmonkey   -  Dec 24, 2011

Well, I was just being helpful to those who likes it the way it is. Personally, there's nothing wrong with the way it is, just a minor tweak to get it looking as it should is all. Nothing major.

 Respond  
Firstmate   -  Dec 24, 2011

Well, you can always download a font that matches it. Get the bg color of the text (essentially drawing 88:88:88 88) and draw over that.

 Respond  
Abcdefmonkey   -  Dec 24, 2011

[EDIT: This is to configure xdesoto's images to work with pball's coding (for a slightly bigger digital clock)]

I like pball's version a lot better if I must say so. However, I had to tweak it just a bit. When I ran the code it cut off the bottom of the numbers when displayed. So i changed it to make the height stretch just enough to show all the numbers fully.

If anyone has the same issue just change this line

  toolbar -tpu clock "" @clock 0 0 $iif($1 == 12,111,82) 16

to this

  toolbar -tpu clock "" @clock 0 0 $iif($1 == 12,111,82) 20

And


if (!$window(@clock)) window -nBj2kpw0 +f @clock 0 0 $iif($1 == 12,117,88) 22
  if (!$toolbar(clock)) toolbar -aux clock "" @clock 0 0 $iif($1 == 12,111,82) 16

to

if (!$window(@clock)) window -nBj2kpw0 +f @clock 0 0 $iif($1 == 12,117,88) 25
  if (!$toolbar(clock)) toolbar -aux clock "" @clock 0 0 $iif($1 == 12,111,82) 30

Again, this is using pball's code.

Edit: I'm going to tinker with the widths on the toolbar, because quite often the whole number doesn't show for numbers like 1 and 4. :P But overall, it works like it should. +1

Here's what it looked like before I changed it a bit:

Image

After:

Image

 Respond  
pball   -  Dec 24, 2011

Firstmate that may be true but mine uses pictures and not text. One because I couldn't find a fixed width font I liked and two I was just going for the digital clock look like xdesoto was.

 Respond  
Firstmate   -  Dec 24, 2011

I like your implementation as well, but in mine you can configure the format how you want. That's why the window width is not set statically.

 Respond  
xdesoto   -  Dec 24, 2011

very nice man.

 Respond  
pball   -  Dec 23, 2011

Well I went with what Firstmate did at first but I wanted a fixed width font which i didn't find in a digital clock style. So I went and jacked the pictures used in the original script and made a toolbar clock.

(Update) I added 12/24 hour time. type /clock to start in 24 hour mode and /clock 12 to use 12 hour mode. You can switch back and forth while it's running and /clockoff stops and removes the clock. Also it'll set itself to start on start if you exit with it open.
(update 2) removed leading 0 when in 12 hour time.
(update 3 or so) clicking the clock switches it between 12/24 hour time and I fixed a little bug where the am/pm wouldn't show up if you started with 24 hour then switched to 12 while it was running

DOWNLOAD THESE PICTURES FOR MY SCRIPT
http://www.mediafire.com/?amb99ah60gqt0ns

alias clock {
  if (!$toolbar(clocksep)) toolbar -is clocksep
  if (!$window(@clock)) window -nBj2kpw0 +f @clock 0 0 117 22
  if (!$toolbar(clock)) toolbar -aux clock "" @clock 0 0 $iif($1 == 12,111,82) 16
  clear @clock
  set -l %time $asctime($iif($1 == 12,hhcnncsstt,HHcnncss))
  set -l %num 1
  while ($mid(%time,%num,1) != $null) {
    if ($mid(%time,1,1) != 0) || (%num != 1) || ($1 != 12) drawpic @clock $gettok(0 12 24 29 41 53 58 70 $iif($1 == 12,87 99),%num,32) 0 $scriptdir $+ $mid(%time,%num,1) $+ .jpg
    inc %num
  }
  toolbar -pu clock @clock 0 0 $iif($1 == 12,111,82) 16
  toolbar -l clock "/clockchange"
  .timerclock 0 1 clock $iif($1 == 12,$v1)
}
alias clockchange { clock $iif($timer(clock).com == clock 12,,12) }
alias clockoff {
  .timerclock off
  toolbar -d clocksep
  toolbar -d clock
  window -c @clock
}

on *:exit: if ($timer(clock)) set %startclock $timer(clock).com
on *:start: if (%startclock) { .timer 0 1 %startclock | unset %startclock }
 Respond  
Firstmate   -  Dec 23, 2011

Here was my take on this:

alias digTimeFormat return ddd/HH:nn:ss TT
alias digTimeFontSize return 10
alias timebar {
  if (!$isdir(digTime)) mkdir digTime
  if ($toolbar(digTime)) { echo -s Toolbar already loaded | halt }
  window -hp +d @_digTimeWin -1 -1 $calc($width($asctime($ctime,$digTimeFormat), Tahoma, $digTimeFontSize) + 10) $calc($height($asctime($ctime,$digTimeFormat), Tahoma, digTimeFontSize))
  .timerDigTime 0 1 updateDigTimeWin Digital Time
}
alias -l updateDigTimeWin {
  clear @_digTimeWin
  drawText -r @_digTimeWin $rgb(0,204,0) Tahoma $digTimeFontSize 3 3 $asctime($ctime, $digTimeFormat)
  updateDigTimeToolbar
}
alias -l updateDigTimeToolBar {
  drawSave @_digTimeWin digTime\digTime.jpg
  if ($toolbar(digTime)) toolbar -p digTime "digTime\digTime.jpg"
  else toolbar -a digTime $qt($1-) "digTime\digTime.jpg"
}
alias timeBarOff {
  toolbar -d digTime
  window -c @_digTimeWin
  .timerDigTime off
}
 Respond  
blackvenomm666   -  Dec 23, 2011

my full out code is actually an alarm clock haha i was just showing another way to do a clock

 Respond  
IllogicTC   -  Dec 22, 2011

@blacvenomm666: If you would like to replace your original submission with the one I posted in the comments above, go ahead. It's still pretty much your code, just with a lot of redactions that I made. The modifications I made in some areas wouldn't account for much, so it's still within guidelines.

 Respond  
blackvenomm666   -  Dec 22, 2011

this is pulled out of my alarm clock but i had a working digital clock in it this is what i used for it

alias currenttime {
  did -ra alarmclock.System 8 $time(h:nn::ss:tt)
}

this is the part that activated it

on *:dialog:alarmclock.System:init:*: {
  alarmsound
  .timercurrenttime 0 1 currenttime
 Respond  
blackvenomm666   -  Dec 22, 2011

i made a digital lag bar in venomirc along with a clock

 Respond  
Neo--   -  Dec 22, 2011

hmm, thats true! ;)

 Respond  
IllogicTC   -  Dec 22, 2011

Neo--: Yes, but there's a little more to it than that. The window would have to be resized, or the 12-hour window closed and a 24-hour window opened. If one is using the 24-hour time format, we don't need the AM/PM appended to the end so we could lose the space it takes up.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.