TDialog.dll: http://www.mircscripts.org/download.php?id=2205&type=5

Screenshot: http://i9.fastpic.ru/big/2010/0907/18/f59cd568aff78371f2ac6be8ba474418.png

Main script:
Code:
alias conky {
  var %rgb = $conky::rgb
  window -Cdpw0 +dL @conky -1 -1 $window(-1).w $window(-1).h
  drawfill -r @conky %rgb %rgb 0 0
  dll TDialog.dll TDColor $window(@conky).hwnd > 0 > %rgb
}
alias conky::rgb {
  var %R = $base(FB,16,10)
  var %G = $base(11,16,10)
  var %B = $base(D2,16,10)
  return $rgb(%R,%G,%B)
}
on *:START: {
  conky
}


and.. drawing anything!
/example_time
Code:
alias example_time {
  var %rgb = $conky::rgb
  drawrect -rf @conky %rgb 0 30 20 $width($time,Verdana,30) $height($time,Verdana,30)
  drawtext -r @conky $rgb(255,255,255) Verdana 30 30 20 $time
  if (!$timer(example_time)) .timerexample_time 0 1 example_time
}