alias digi {
window -poCzdk0 +tnbL @digitalsaat -1 -1 200 100
drawtext @digitalsaat 4 Impact 20 40 10 => ßy CooL <=
drawtext @digitalsaat 1 Impact 20 30 30 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0 1 saatcek
}
alias -l saatcek {
clear @digitalsaat
drawfill @digitalsaat 0 0 1 1
yaz
}
on *:close:@digitalsaat: {
unset %say
.timertime off
window -c @digitalsaat
}
menu @digitalsaat {
Hakkında:.return $input(Digital Saat // CooL Coding // 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
alias yaz {
var %i 1,%x = 0
while %i <= $numtok($time,58) {
inc %say
var %x $calc(%x + 30)
drawpic -fr @digitalsaat %x 0 $+(digi/,$left($gettok($time,%i,58),1),.,gif)
var %x $calc(%x + 20)
drawpic -fr @digitalsaat %x 0 $+(digi/,$right($gettok($time,%i,58),1),.,gif)
drawtext @digitalsaat 1 Impact 20 32 40 $replace($day,Monday,Pzt.,Tuesday,Sal.,Wednesday,Çrş.,Thursday,Per.,Friday,Cum.,Saturday,Cmt.,Sunday,Pzr.) $gettok($date,3,47) ~ $replace($gettok($date,1-2,47),/,-)
if %say == 1 || %say == 2 {
drawtext @digitalsaat 4 Impact 40 $calc(%x + 26) 0 .
}
else {
unset %say
}
inc %i
}
}
on *:load:{
if $finddir($mircdir,digi,0) == 0 {
echo -a HATA! mIRC Ana dizininde digi adlı bir klasör malesef bulunamadı
echo -a Bu Sorunu Gidermek İçin:
echo -a - digi.rar Dosyasını tekrar çıkartıp digitalsaat klasörünün içindeki bütün dosyaları $+(,$mircdir,) Bu uzantıya atınız..
echo -a - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
adresinden online destek alınız
.unload -rs digi.mrc
}

 
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