on *:START: {
  .timer 0 1 timeback
}
alias timeback {
  window -dHhBp +da @saat 0 0 200 80
  drawtext -rof @saat $rgb(0,51,102) Arial 20 50 30 $time
  drawtext -rof @saat $rgb(0,51,102) Arial 15 15 52 $+($chr(40),$asctime($ctime,dd) $trans(month,$asctime($ctime,mmmm)) $trans(day,$day) $asctime($ctime,yyyy),$chr(41))
  drawsave -b32 @saat $scriptdirsaat.bmp | window -c @saat | background -s $scriptdirsaat.bmp
}
alias trans {
  if ($regex($1,^(day)$)) return $replacecs($day,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi,Sunday,Pazar)
  if ($regex($1,^(month)$)) return $replacecs($asctime($ctime,mmmm),January,Ocak,February,Şubat,March,Mart,April,Nisan,May,Mayıs,June,Haziran,July,Temmuz,August,Ağustos,September,Eylül,October,Ekim,November,Kasım,December,Aralık)
}
on *:join:#: {
  window -phB +d @bg 0 0 600 375
  ;drawrect -ro @bg $rgb(241,111,198) 1 0 0 500 75
  drawtext -ro @bg $rgb(0,51,102) Verdana 20 450 10 #
  drawtext -ro @bg $rgb(0,51,102) Verdana 20 450 30 $time
  drawtext -ro @bg $rgb(0,51,102) Arial 15 410 52 $+($chr(40),$asctime($ctime,dd) $trans(month,$asctime($ctime,mmmm)) $trans(day,$day) $asctime($ctime,yyyy),$chr(41))
  drawsave -b32q100 @bg $qt($scriptdirss.bmp)
  background -c # $shortfn($scriptdirss.bmp)
  window -c @bg
  .remove $shortfn($scriptdirss.bmp)
}