Yeah, if you can guess... I was pretty bored when I made this. Took me about a hour to make this.

Check out the video on its creation, http://bluethen.the-brotherhood.org/Camera2/Camera2.htm

;Bored 1.01
;Made by BlueThen on May 15, 2008.
;To install, paste this snippet into your remotes (alt + r)
;then type /bored or right click the channel or status and click "Bored".
;bluethen.com
menu channel,status {
  Bored: { bored }
}
alias bored {
  window -paoCzdk0 +tnbL @Bored -1 -1 400 400 | window -poCzdhk0 +tnbL @Bor.buf -1 -1 800 800
  window -poCzdhk0 +tnbL @bor.buf2 -1 -1 800 800 | bored.init
}
alias -l bored.init {
  drawfill @bor.buf 1 1 1 1 | drawfill -r @bor.buf2 65280 65280 1 1 | set %bor.a1 0 | set %bor.a2 0
  set %bor.l 250 | set %bor.ld inc | drawcopy -t @bor.buf2 65280 0 0 800 800 @bor.buf 0 0 800 800
  drawcopy -m @bor.buf 0 0 800 800 @bored 0 0 400 400 | set %bor.c n | bored.frame
}
alias -l bored.frame {
  if (%bor.c != y) {
    clear @bor.buf | clear @bor.buf2
    drawfill @bor.buf 1 1 1 1 | drawfill -r @bor.buf2 65280 65280 1 1
    drawdot @bor.buf 14 400 400 800 | drawdot @bor.buf 1 370 400 800 | %bor.y = 100
    while (%bor.y) {
      drawdot @bor.buf 12 5 $calc(400 + (%bor.l * $cos($calc(%bor.y * 3.6)).deg)) $calc(800 + (%bor.l * $sin($calc(%bor.y * 3.6)).deg))
      dec %bor.y
    }
    %bor.ld %bor.l 7
    if (%bor.l > 350) { set %bor.ld dec } | if (%bor.l < 250) { set %bor.ld inc } | set %bor.x 60
    while (%bor.x) {
      if ($calc(%bor.x / 10) == $int($calc(%bor.x / 10))) {
        drawtext @bor.buf2 0 Tahoma 40 $calc(400 + (400 * $cos($calc( %bor.a2 + ( %bor.x * 6)) ).deg)) $calc(800 + (400 * $sin($calc(%bor.a2 + ( %bor.x * 6))).deg)) $mid(bored $+ $chr(160) , $calc(%bor.x / 10) ,1)
      }
      drawline @bor.buf 4 3 400 800 $calc(400 + (1000 * $cos($calc(( %bor.x * 6) + %bor.a1)).deg)) $calc(800 + (1000 * $sin($calc(( %bor.x * 6)+ %bor.a1)).deg))
      dec %bor.x
    }
    %bor.x = 60
    while (%bor.x) {
      if ($calc(%bor.x / 2) == $int($calc(%bor.x / 2))) {
        drawfill @bor.buf 4 4 $calc(400 + (200 * $cos($calc((( %bor.x * 6) + %bor.a1)+10)).deg)) $calc(800 + (200 * $sin($calc((( %bor.x * 6)+ %bor.a1)+10)).deg))
      }
      dec %bor.x
    }
    inc %bor.a1 2 | dec %bor.a2 4 | drawcopy -t @bor.buf2 65280 0 0 800 800 @bor.buf 0 0 800 800
    drawtext @bor.buf 0 Tahoma 40 25 25 Made by BlueThen | drawtext @bor.buf 0 Tahoma 40 25 75 BlueThen.com
    drawcopy -m @bor.buf 0 0 800 800 @bored 0 0 400 400 | .timer 1 0 bored.frame
  }
  else unset %bor.c
}
on *:close:@bored: window -c @bor.buf | window -c @bor.buf2 | set %bor.c y | unset %bor.ld %bor.a1 %bor.a2 %bor.x %bor.y %bor.l