An extremely wicked, evil, and color changing CLOCK.
It gives the time and date. Have fun :P

NOTE: nothing in this is from any other scriptor. I wrote everything from scratch including $GetPoint.

;Fiend's Rainbow Clock
;Made by CAsercan3 on February 13, 2009.
;To install, paste this snippet into your remotes (alt + R).
;Then type /clock or right click the channel and click "Fiend's Rainbow Clock"
alias drawaline drawline $1 $2 $3 $4 $5 $calc($4 + $sin($6).deg * $7) $calc($5 - $cos($6).deg * $7)
alias -l getpoint return $calc($1 + $sin($3).deg * $4) $calc($2 - $cos($3).deg * $4)
menu channel {
  Fiend's Rainbow Clock: /clock
}
alias clock {
  window -pk0a @RainbowClock
  window -xphw0 @clock
  set %r 255
  set %g 15
  set %b 15
  .timerclock -m 0 50 clockman 
}
alias -l clockman {
  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 4
  if ( %rfull == 1 ) && (%gfull == 1 ) && ( %bfull == 0) dec %r 4
  if ( %gfull == 1 ) && (%bfull == 0 ) && (%rfull == 0) inc %b 4
  if ( %gfull == 1 ) && (%bfull == 1) && ( %rfull == 0) dec %g 4
  if ( %bfull == 1 ) && (%rfull == 0 ) && (%gfull == 0) inc %r 4
  if ( %bfull == 1 ) && (%rfull == 1 ) && ( %gfull == 0) dec %b 4
  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)
  while %clock != 12 {
    inc %clock
    drawtext @clock 1 Tahoma 18 $getpoint($calc($window(@clock).w /2 -5) , $calc($window(@clock).h /2 -5) , $calc(%clock *30) ,140) %clock
  }
  unset %clock
  drawaline @clock 1 2 $calc($window(@clock).w /2 +5) $calc($window(@clock).h /2 +5) $calc($asctime(ss) *6) 120 
  drawdot @clock 1 10 $getpoint($calc($window(@clock).w /2 +5) , $calc($window(@clock).h /2 +5) , $calc($asctime(ss) *6) , 120)
  drawaline @clock 1 2 $calc($window(@clock).w /2 +5) $calc($window(@clock).h /2 +5) $calc($asctime(nn) *6) 100 
  drawrect @clock 1 10 $getpoint($calc($window(@clock).w /2 -4 +5) , $calc($window(@clock).h /2 -4 +5) , $calc($asctime(nn) *6) , 100) 10 10
  drawaline @clock 5 2 $calc($window(@clock).w /2 +5) $calc($window(@clock).h /2 +5) $calc($asctime(hh) *30) 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
}