Girilen Kanalda Arkaplanda Kanal adı/Tarih/Saat
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
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) } |
