Binary clock

By Daveoh on Sep 23, 2006

A binary clock :D
This will teach you how to tell the time on a binary clock aswell as tell the time :)
/bclock - turns it on
/block off - turns it off (also turns off when you close the window)
The colours are customizable, search for ";colours" in the script (they are currently ok for default mIRC colours)
Where to buy a binary clock
In depth how to read a binary clock
Have fun and buy yourself a real life binary clock to impress your friends!

;;Binary clock
;;By Daveoh (#DAVEOH @ QUAKENET)
alias bclock {
  if ($1 == tick) {
    if (!$window(@Binary.Clock)) { timerbclock off | echo -a Binary clock stopped | halt }
    drawrect -f @Binary.Clock %bcol.bk 0 0 200 260 85
    drawtext @Binary.Clock %bcol.t WST_Engl 54 15 203 $left($asctime(HH),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 55 203 $right($asctime(HH),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 97 203 $left($asctime(nn),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 135 203 $right($asctime(nn),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 177 203 $left($asctime(ss),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 215 203 $right($asctime(ss),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 78 198 :
    drawtext @Binary.Clock %bcol.t WST_Engl 54 158 198 :
    if ($left($asctime(HH),1) > 1) { drawfill @Binary.Clock %bcol.on %bcol.bor 20 114 } ;h11 on
    if ($left($asctime(HH),1) <= 1) { drawfill @Binary.Clock %bcol.off %bcol.bor 20 114 } ;h11 off
    if ($left($asctime(HH),1) isin 13) { drawfill @Binary.Clock %bcol.on %bcol.bor 20 160 } ;h12 on
    if ($left($asctime(HH),1) !isin 13) { drawfill @Binary.Clock %bcol.off %bcol.bor 20 160 } ;h12 off
    if ($right($asctime(HH),1) >= 8) { drawfill @Binary.Clock %bcol.on %bcol.bor 60 20 } ;h21 on
    if ($right($asctime(HH),1) <= 7) { drawfill @Binary.Clock %bcol.off %bcol.bor 60 20 } ;h21 off
    if ($right($asctime(HH),1) isin 4567) { drawfill @Binary.Clock %bcol.on %bcol.bor 60 67 } ;h22 on
    if ($right($asctime(HH),1) !isin 4567) { drawfill @Binary.Clock %bcol.off %bcol.bor 60 67 } ;h22 off
    if ($right($asctime(HH),1) isin 2367) { drawfill @Binary.Clock %bcol.on %bcol.bor 60 114 } ;h23 on
    if ($right($asctime(HH),1) !isin 2367) { drawfill @Binary.Clock %bcol.off %bcol.bor 60 114 } ;h23 off
    if ($right($asctime(HH),1) isin 13579) { drawfill @Binary.Clock %bcol.on %bcol.bor 60 160 } ;h24 on
    if ($right($asctime(HH),1) !isin 13579) { drawfill @Binary.Clock %bcol.off %bcol.bor 60 160 } ;h24 off
    if ($left($asctime(nn),1) >= 4) { drawfill @Binary.Clock %bcol.on %bcol.bor 100 67 } ;m11 on
    if ($left($asctime(nn),1) <= 3) { drawfill @Binary.Clock %bcol.off %bcol.bor 100 67 } ;m11 off
    if ($left($asctime(nn),1) isin 23) { drawfill @Binary.Clock %bcol.on %bcol.bor 100 114 } ;m12 on
    if ($left($asctime(nn),1) !isin 23) { drawfill @Binary.Clock %bcol.off %bcol.bor 100 114 } ;m12 off
    if ($left($asctime(nn),1) isin 135) { drawfill @Binary.Clock %bcol.on %bcol.bor 100 160 } ;m13 on
    if ($left($asctime(nn),1) !isin 135) { drawfill @Binary.Clock %bcol.off %bcol.bor 100 160 } ;m13 off
    if ($right($asctime(nn),1) >= 8) { drawfill @Binary.Clock %bcol.on %bcol.bor 140 20 } ;m21 on
    if ($right($asctime(nn),1) <= 7) { drawfill @Binary.Clock %bcol.off %bcol.bor 140 20 } ;m21 off
    if ($right($asctime(nn),1) isin 4567) { drawfill @Binary.Clock %bcol.on %bcol.bor 140 67 } ;m22 on
    if ($right($asctime(nn),1) !isin 4567) { drawfill @Binary.Clock %bcol.off %bcol.bor 140 67 } ;m22 off
    if ($right($asctime(nn),1) isin 2367) { drawfill @Binary.Clock %bcol.on %bcol.bor 140 114 } ;m23 on
    if ($right($asctime(nn),1) !isin 2367) { drawfill @Binary.Clock %bcol.off %bcol.bor 140 114 } ;m23 off
    if ($right($asctime(nn),1) isin 13579) { drawfill @Binary.Clock %bcol.on %bcol.bor 140 160 } ;m24 on
    if ($right($asctime(nn),1) !isin 13579) { drawfill @Binary.Clock %bcol.off %bcol.bor 140 160 } ;m24 off
    if ($left($asctime(ss),1) >= 4) { drawfill @Binary.Clock %bcol.on %bcol.bor 180 67 } ;s11 on
    if ($left($asctime(ss),1) <= 3) { drawfill @Binary.Clock %bcol.off %bcol.bor 180 67 } ;s11 off
    if ($left($asctime(ss),1) isin 23) { drawfill @Binary.Clock %bcol.on %bcol.bor 180 114 } ;s12 on
    if ($left($asctime(ss),1) !isin 23) { drawfill @Binary.Clock %bcol.off %bcol.bor 180 114 } ;s12 off
    if ($left($asctime(ss),1) isin 135) { drawfill @Binary.Clock %bcol.on %bcol.bor 180 160 } ;s13 on
    if ($left($asctime(ss),1) !isin 135) { drawfill @Binary.Clock %bcol.off %bcol.bor 180 160 } ;s13 off
    if ($right($asctime(ss),1) >= 8) { drawfill @Binary.Clock %bcol.on %bcol.bor 220 20 } ;s21 on
    if ($right($asctime(ss),1) <= 7) { drawfill @Binary.Clock %bcol.off %bcol.bor 220 20 } ;s21 off
    if ($right($asctime(ss),1) isin 4567) { drawfill @Binary.Clock %bcol.on %bcol.bor 220 67 } ;s22 on
    if ($right($asctime(ss),1) !isin 4567) { drawfill @Binary.Clock %bcol.off %bcol.bor 220 67 } ;s22 off
    if ($right($asctime(ss),1) isin 2367) { drawfill @Binary.Clock %bcol.on %bcol.bor 220 114 } ;s23 on
    if ($right($asctime(ss),1) !isin 2367) { drawfill @Binary.Clock %bcol.off %bcol.bor 220 114 } ;s23 off
    if ($right($asctime(ss),1) isin 13579) { drawfill @Binary.Clock %bcol.on %bcol.bor 220 160 } ;s24 on
    if ($right($asctime(ss),1) !isin 13579) { drawfill @Binary.Clock %bcol.off %bcol.bor 220 160 } ;s24 off
  }
  elseif ($1 == off) {
    .timerbclock off
    window -c @Binary.Clock
    echo -a Binary clock stopped
    halt
  }
  else {
    ;colours
    set %bcol.bk 14 | ;background of time
    set %bcol.bbk 10 | ;border of binary area
    set %bcol.bt 1 | ;background of binary area
    set %bcol.t 10 | ;colour of time
    set %bcol.off 5 | ;colour of binary time off
    set %bcol.on 4 | ;colour of binary time on
    set %bcol.bor 14 | ;colour of binary time border
    echo -a Binary clock started
    window -aCdk0p @Binary.Clock 0 0 260 285
    drawtext @Binary.Clock 4 Arial 15 5 5 Initializing...
    var %time = $asctime(ss)
    while (%time == $asctime(ss)) {
      ;Waiting
    }
    drawrect -f @Binary.Clock %bcol.bk 0 0 0 260 285
    drawrect -f @Binary.Clock %bcol.bbk 0 0 0 260 200
    drawrect -f @Binary.Clock %bcol.bt 0 5 5 240 190
    drawtext @Binary.Clock %bcol.t WST_Engl 54 15 203 $left($asctime(HH),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 55 203 $right($asctime(HH),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 97 203 $left($asctime(nn),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 135 203 $right($asctime(nn),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 177 203 $left($asctime(ss),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 215 203 $right($asctime(ss),1)
    drawtext @Binary.Clock %bcol.t WST_Engl 54 78 198 :
    drawtext @Binary.Clock %bcol.t WST_Engl 54 158 198 :
    drawrect -f @Binary.Clock %bcol.off 0 10 104 30 40
    drawrect -f @Binary.Clock %bcol.off 0 10 150 30 40
    drawrect @Binary.Clock %bcol.bor 5 10 104 30 40
    drawrect @Binary.Clock %bcol.bor 5 10 150 30 40
    drawrect -f @Binary.Clock %bcol.off 0 50 10 30 40
    drawrect -f @Binary.Clock %bcol.off 0 50 57 30 40
    drawrect -f @Binary.Clock %bcol.off 0 50 104 30 40
    drawrect -f @Binary.Clock %bcol.off 0 50 150 30 40
    drawrect @Binary.Clock %bcol.bor 5 50 10 30 40
    drawrect @Binary.Clock %bcol.bor 5 50 57 30 40
    drawrect @Binary.Clock %bcol.bor 5 50 104 30 40
    drawrect @Binary.Clock %bcol.bor 5 50 150 30 40
    ;drawrect -f @Binary.Clock %bcol.off 0 90 10 30 40
    drawrect -f @Binary.Clock %bcol.off 0 90 57 30 40
    drawrect -f @Binary.Clock %bcol.off 0 90 104 30 40
    drawrect -f @Binary.Clock %bcol.off 0 90 150 30 40
    drawrect @Binary.Clock %bcol.bor 5 90 57 30 40
    drawrect @Binary.Clock %bcol.bor 5 90 104 30 40
    drawrect @Binary.Clock %bcol.bor 5 90 150 30 40
    drawrect -f @Binary.Clock %bcol.off 0 130 10 30 40
    drawrect -f @Binary.Clock %bcol.off 0 130 57 30 40
    drawrect -f @Binary.Clock %bcol.off 0 130 104 30 40
    drawrect -f @Binary.Clock %bcol.off 0 130 150 30 40
    drawrect @Binary.Clock %bcol.bor 5 130 10 30 40
    drawrect @Binary.Clock %bcol.bor 5 130 57 30 40
    drawrect @Binary.Clock %bcol.bor 5 130 104 30 40
    drawrect @Binary.Clock %bcol.bor 5 130 150 30 40
    ;drawrect -f @Binary.Clock %bcol.off 0 170 10 30 40
    drawrect -f @Binary.Clock %bcol.off 0 170 57 30 40
    drawrect -f @Binary.Clock %bcol.off 0 170 104 30 40
    drawrect -f @Binary.Clock %bcol.off 0 170 150 30 40
    drawrect @Binary.Clock %bcol.bor 5 170 57 30 40
    drawrect @Binary.Clock %bcol.bor 5 170 104 30 40
    drawrect @Binary.Clock %bcol.bor 5 170 150 30 40
    drawrect -f @Binary.Clock %bcol.off 0 210 10 30 40
    drawrect -f @Binary.Clock %bcol.off 0 210 57 30 40
    drawrect -f @Binary.Clock %bcol.off 0 210 104 30 40
    drawrect -f @Binary.Clock %bcol.off 0 210 150 30 40
    drawrect @Binary.Clock %bcol.bor 5 210 10 30 40
    drawrect @Binary.Clock %bcol.bor 5 210 57 30 40
    drawrect @Binary.Clock %bcol.bor 5 210 104 30 40
    drawrect @Binary.Clock %bcol.bor 5 210 150 30 40
    if ($left($asctime(HH),1) > 1) { drawfill @Binary.Clock %bcol.on %bcol.bor 20 114 }
    if ($left($asctime(HH),1) isin 13) { drawfill @Binary.Clock %bcol.on %bcol.bor 20 160 }
    if ($right($asctime(HH),1) >= 8) { drawfill @Binary.Clock %bcol.on %bcol.bor 60 20 }
    if ($right($asctime(HH),1) isin 4567) { drawfill @Binary.Clock %bcol.on %bcol.bor 60 67 }
    if ($right($asctime(HH),1) isin 2367) { drawfill @Binary.Clock %bcol.on %bcol.bor 60 114 }
    if ($right($asctime(HH),1) isin 13579) { drawfill @Binary.Clock %bcol.on %bcol.bor 60 160 }
    if ($left($asctime(nn),1) >= 4) { drawfill @Binary.Clock %bcol.on %bcol.bor 100 67 }
    if ($left($asctime(nn),1) isin 23) { drawfill @Binary.Clock %bcol.on %bcol.bor 100 114 }
    if ($left($asctime(nn),1) isin 135) { drawfill @Binary.Clock %bcol.on %bcol.bor 100 160 }
    if ($right($asctime(nn),1) >= 8) { drawfill @Binary.Clock %bcol.on %bcol.bor 140 20 }
    if ($right($asctime(nn),1) isin 4567) { drawfill @Binary.Clock %bcol.on %bcol.bor 140 67 }
    if ($right($asctime(nn),1) isin 2367) { drawfill @Binary.Clock %bcol.on %bcol.bor 140 114 }
    if ($right($asctime(nn),1) isin 13579) { drawfill @Binary.Clock %bcol.on %bcol.bor 140 160 }
    if ($left($asctime(ss),1) >= 4) { drawfill @Binary.Clock %bcol.on %bcol.bor 180 67 }
    if ($left($asctime(ss),1) isin 23) { drawfill @Binary.Clock %bcol.on %bcol.bor 180 114 }
    if ($left($asctime(ss),1) isin 135) { drawfill @Binary.Clock %bcol.on %bcol.bor 180 160 }
    if ($right($asctime(ss),1) >= 8) { drawfill @Binary.Clock %bcol.on %bcol.bor 220 20 }
    if ($right($asctime(ss),1) isin 4567) { drawfill @Binary.Clock %bcol.on %bcol.bor 220 67 }
    if ($right($asctime(ss),1) isin 2367) { drawfill @Binary.Clock %bcol.on %bcol.bor 220 114 }
    if ($right($asctime(ss),1) isin 13579) { drawfill @Binary.Clock %bcol.on %bcol.bor 220 160 }
    .timerbclock -m 0 500 bclock tick
} }

Daveoh

Like Page Follow Author

Comments

Sign in to comment.
Daveoh   -  Nov 18, 2006

Unfortunately I have no idea how to use \'$base(,10,2) to convert an integer to a binary string, then loop through the string with $mid and color the square if a 1 is found\'

 Respond  
sean   -  Sep 26, 2006

Im still not sure as to how exactally to read this clock but, it\'s a very \'neat\' and original idea for script (and I will learn! lol). Unfortunatly, the scripting of this could use some improvement, as pointed out. Keep up the good work though!

 Respond  
StanZ   -  Sep 26, 2006

Yep could be smaller but otherwise well done :) Still nice to see another method.

Not a bad point, just something to say about the picture window.
If you set -1 -1 to a picwin, it doesn\'t center at all with a dual screen system (at least for me ;p), the picwin open in my second monitor to the up/left
There\'s this flag -C (and then you can put 0 0 instead -1 -1

 Respond  
Ace99   -  Sep 24, 2006

Never seen a code like that oh, and use their advice.

                |
                |
                v
 Respond  
QuickStep   -  Sep 23, 2006

Code is a little big... You could just use $base(,10,2) to convert an integer to a binary string, then loop through the string with $mid and color the square if a 1 is found...

 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.