Tekil Mesaj gösterimi
Alt 04 Ekim 2009, 00:55   #4
Çevrimdışı
serci
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Dijital saat addonu




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias Saat2 { echo -a 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
için Teşekkür ) window -paozCdk0 +ndL @Saat -1 -1 350 350 | window -paohCzdk0 +ndL @Saat.buf -1 -1 800 800 | unset %Saat2.c | Saat2.frame } menu channel,status { Saat Kaç?: Saat2 } alias Saat2.frame { if (%Saat2.c != y) { clear @Saat.buf | drawfill -r @Saat.buf $rgb(1,1,1) $rgb(1,1,1) 1 1 | drawdot @Saat.buf 1 300 400 450 drawdot -r @Saat.buf $rgb(150,100,0) 290 400 450 | drawline @Saat.buf 1 7 0 100 1000 100 drawfill -r @Saat.buf $rgb(120,70,0) $rgb(0,0,0) 1 1 | drawline -r @Saat.buf 1 7 670 100 670 -100 drawrect -rf @Saat.buf $rgb(130,80,10) 1 670 0 300 100 | drawtext @Saat.buf 1 Tahoma 100 697 -18 × %Saat2.xy = 12 while (%Saat2.xy) { if (. isin $calc(%Saat2.xy /3)) { drawdot -r @Saat.buf $rgb(100,50,0) 8 $calc(400 + (270 * $cos($calc(30 * %Saat2.xy)).deg)) $calc(450 + (270 * $sin($calc(30 * %Saat2.xy)).deg)) } else { drawtext -r @Saat.buf $rgb(100,50,0) Tahoma 80 $calc((400 + (240 * $cos($calc((%Saat2.xy * 30) -90)).deg)) - ($width(%Saat2.xy ,Tahoma,80) /2)) $calc((450 + (240 * $sin($calc((30* %Saat2.xy)-90)).deg)) - ($height(%Saat2.xy ,Arial,80) /2)) %Saat2.xy } dec %Saat2.xy } drawline -r @Saat.buf $rgb(100,50,0) 8 400 450 $calc(400 +(200 * $cos($calc((6 * $asctime(s)) - 90)).deg)) $calc(450 +(200 * $sin($calc((6 * $asctime(s)) - 90)).deg)) drawline -r @Saat.buf $rgb(100,50,0) 12 400 450 $calc(400 +(200 * $cos($calc((6 * $asctime(n)) - 90)).deg)) $calc(450 +(200 * $sin($calc((6 * $asctime(n)) - 90)).deg)) drawline -r @Saat.buf $rgb(100,50,0) 16 400 450 $calc(400 +(150 * $cos($calc((30 * $asctime(h)) - 90)).deg)) $calc(450 +(150 * $sin($calc((30 * $asctime(h)) - 90)).deg)) drawtext -r @Saat.buf $rgb(80,30,0) Arial 80 30 0 $asctime(h:nn:ss TT) drawcopy -m @Saat.buf 0 0 800 800 @Saat 0 0 350 350 | .timer 1 1 Saat2.frame } else unset %Saat2.c } on *:close:@Saat: Saat2.close menu @Saat { sclick: { if ($calc($mouse.y * 5.3333) < 100) { if ($calc($mouse.x * 5.3333) > 670) Saat2.close else { set %Saat2.dx $calc($window(@Saat).dx - $mouse.dx) set %Saat2.dy $calc($window(@Saat).dy - $mouse.dy) | .timermove -h 0 0 Saat2.move } } } uclick: { .timermove off } leave: { .timermove off } } alias -l Saat2.move window @Saat $calc($mouse.dx + %Saat2.dx) $calc($mouse.dy + %Saat2.dy) alias -l Saat2.close unset %Saat2.* | set %Saat2.c y | if ($window(@Saat)) window -c @Saat | window -c @Saat.buf

Sen İste Büyitim EmportaL
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet