Çevrimdışı

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
window -paozCdk0 +ndL @Saat -1 -1 150 150 | 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 150 150 | .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


Bunu Kullanabilirsin Remotene Attıktan Sonra Menu,Channel Ve Statuste Sağ Tıklı***** Görebilirsin