A fucked-up clock requested by cheiron
goes backward and twice as fast

;The end of the world is near clock.
;Made by CAsercan3 on February 14, 2009.
;To install, paste this snippet into your remotes (alt + R).
;Then type /clock or right click the channel and click "The end of the world is near clock"
alias drawaline drawline $1 $2 $3 $4 $5 $calc($4 + $sin($calc(360- $6)).deg * $7) $calc($5 - $cos($calc(360- $6)).deg * $7)
alias -l getpoint return $calc($1 + $sin($calc(360- $3)).deg * $4) $calc($2 - $cos($calc(360- $3)).deg * $4)
menu channel {
  The end of the world is near clock: /clock2
}
alias clock2 {
  window -pk0a @RainbowClock
  window -xphw0 @clock
  set %r 255
  set %g 15
  set %b 15
  .timerclock -m 0 50 clockman2 
}
alias -l clockman2 {
  clear @clock
  if ( %r == 255 ) set %rfull 1
  if ( %g == 255 ) set %gfull 1
  if ( %b == 255 ) set %bfull 1
  if ( %r == 15 ) set %rfull 0
  if ( %g == 15 ) set %gfull 0
  if ( %b == 15 ) set %bfull 0
  if ( %rfull == 1 ) && (%gfull == 0 ) && (%bfull == 0) inc %g 20
  if ( %rfull == 1 ) && (%gfull == 1 ) && ( %bfull == 0) dec %r 20
  if ( %gfull == 1 ) && (%bfull == 0 ) && (%rfull == 0) inc %b 20
  if ( %gfull == 1 ) && (%bfull == 1) && ( %rfull == 0) dec %g 20
  if ( %bfull == 1 ) && (%rfull == 0 ) && (%gfull == 0) inc %r 20
  if ( %bfull == 1 ) && (%rfull == 1 ) && ( %gfull == 0) dec %b 20
  drawdot -r @clock $rgb( %r , %g , %b ) 190 $calc($window(@clock).w /2) $calc($window(@clock).h /2)
  drawdot @clock 0 170 $calc($window(@clock).w /2) $calc($window(@clock).h /2)
  set %clock 7
  while %clock != 1 {
    dec %clock
    drawtext @clock 1 Tahoma 18 $getpoint($calc($window(@clock).w /2 -5) , $calc($window(@clock).h /2 -5) , $calc( 360 - %clock *60) ,140) %clock
  }
  unset %clock
  drawaline @clock 1 2 $calc($window(@clock).w /2 +5) $calc($window(@clock).h /2 +5) $calc($asctime(ss) *12) 120 
  drawdot @clock 1 10 $getpoint($calc($window(@clock).w /2 +5) , $calc($window(@clock).h /2 +5) , $calc($asctime(ss) *12) , 120)
  drawaline @clock 1 2 $calc($window(@clock).w /2 +5) $calc($window(@clock).h /2 +5) $calc($asctime(nn) *12) 100 
  drawrect @clock 1 10 $getpoint($calc($window(@clock).w /2 -4 +5) , $calc($window(@clock).h /2 -4 +5) , $calc($asctime(nn) *12) , 100) 10 10
  drawaline @clock 5 2 $calc($window(@clock).w /2 +5) $calc($window(@clock).h /2 +5) $calc($asctime(hh) *60) 60
  drawtext @clock 1 Tahoma 14 $calc($window(@clock).w /2 -25) $calc($window(@clock).h /2 - 90) $time
  drawtext @clock 1 Tahoma 14 $calc($window(@clock).w /2 -50) $calc($window(@clock).h /2 + 100) $asctime(dd ddd mmm yyyy)
  drawcopy @clock 0 0 $window(@clock).w $window(@clock).h @RainbowClock 0 0
}
on *:close:@rainbowclock: {
  .timerclock off
  window -c @clock
  unset %r %g %b %rfull %gfull %bfull
}