alias saatciz {
  if (!$5) { goto _saathatamesaj }
  if (@* !iswm $1) { goto _saathatamesaj }
  if (!$regex($2,[0-2][0-9]:[0-5][0-9])) { goto _saathatamesaj }
  if ($3 !isnum || $4 !isnum  || $5 !isnum) { goto _saathatamesaj }
  if $window($1) { clear $1 }
  if !$window($1) { window -p $1  }
  drawrect -e $1 1 2 $4 $5 $3 $3
  var %saat = $token($2,2,58)
  var %akrep = $token($2,1,58)
  var %yelkovan = $token($2,2,58)
  var %tum_daire_aci = 360
  var %x_merkez = $round($calc($4 + $calc($3 / 2)),0)
  var %y_merkez = $round($calc($5 + $calc($3 / 2)),0)
  var %daire_yari_cap = $round($calc($3 / 2) ,0) 
  var %kac_tane_centik_buyuk = 12
  var %kac_tane_centik_kucuk = 60
  var %aci 0
  var %kucuk_centik_aci = $round($calc(%tum_daire_aci / %kac_tane_centik_kucuk),0)
  var %buyuk_centik_aci = $round($calc(%tum_daire_aci / %kac_tane_centik_buyuk),0)
  var %centik_geri_cek = $calc(%daire_yari_cap * 0.9)
  var %z = 1
  drawdot $1 1 3 %x_merkez %y_merkez
  while (%aci <= %tum_daire_aci) { 
    var %cos_x_calc = $round($calc(%x_merkez  + (%daire_yari_cap * $cos(%aci).deg)),0)
    var %sin_y_calc =  $round($calc(%y_merkez - (%daire_yari_cap * $sin(%aci).deg)),0)
    var %x_centik =  $round($calc(%x_merkez + $calc((%daire_yaricap + %centik_geri_cek) * $cos(%aci).deg)),0)  
    var %y_centik = $round($calc(%y_merkez - $calc((%daire_yaricap + %centik_geri_cek) * $sin(%aci).deg)),0) 
    drawline $1 1 3 %x_centik %y_centik %cos_x_calc %sin_y_calc
    ;drawtext $1 1 %x_centik %y_centik %z (numaralandirmada dengesizlik mevcut)
    inc %z
    inc %aci %buyuk_centik_aci 
  }
  var %aci = 0
  while (%aci <= %tum_daire_aci) { 
    var %cos_x_calc = $round($calc(%x_merkez  + (%daire_yari_cap * $cos(%aci).deg)),0)
    var %sin_y_calc =  $round($calc(%y_merkez - (%daire_yari_cap * $sin(%aci).deg)),0)
    var %x_centik =  $round($calc(%x_merkez + $calc((%daire_yaricap + %centik_geri_cek) * $cos(%aci).deg)),0)  
    var %y_centik = $round($calc(%y_merkez - $calc((%daire_yaricap + %centik_geri_cek) * $sin(%aci).deg)),0) 
    drawline $1 1 1 %x_centik %y_centik %cos_x_calc %sin_y_calc
    inc %aci %kucuk_centik_aci 
  }
  ;yelkovan aci cizimi
  if $regex(%yelkovan,^01$) { var %yelkovan_aci 84 }
  if $regex(%yelkovan,^02$) { var %yelkovan_aci 76 }
  if $regex(%yelkovan,^03$) { var %yelkovan_aci 70 }
  if $regex(%yelkovan,^04$) { var %yelkovan_aci 64 }
  if $regex(%yelkovan,^05$) { var %yelkovan_aci 58 }
  if $regex(%yelkovan,^06$) { var %yelkovan_aci 52 }
  if $regex(%yelkovan,^07$) { var %yelkovan_aci 46 }
  if $regex(%yelkovan,^08$) { var %yelkovan_aci 40 }
  if $regex(%yelkovan,^09$) { var %yelkovan_aci 34 }
  if $regex(%yelkovan,^10$) { var %yelkovan_aci 28 }
  if $regex(%yelkovan,^11$) { var %yelkovan_aci 22 }
  if $regex(%yelkovan,^12$) { var %yelkovan_aci 16 }
  if $regex(%yelkovan,^13$) { var %yelkovan_aci 10 }
  if $regex(%yelkovan,^14$) { var %yelkovan_aci 6 }
  if $regex(%yelkovan,^15$) { var %yelkovan_aci 0 }
  if $regex(%yelkovan,^16$) { var %yelkovan_aci 354 }
  if $regex(%yelkovan,^17$) { var %yelkovan_aci 348 }
  if $regex(%yelkovan,^18$) { var %yelkovan_aci 342 }
  if $regex(%yelkovan,^19$) { var %yelkovan_aci 336 }
  if $regex(%yelkovan,^20$) { var %yelkovan_aci 330 }
  if $regex(%yelkovan,^21$) { var %yelkovan_aci 324 }
  if $regex(%yelkovan,^22$) { var %yelkovan_aci 318 }
  if $regex(%yelkovan,^23$) { var %yelkovan_aci 312 }
  if $regex(%yelkovan,^24$) { var %yelkovan_aci 306 }
  if $regex(%yelkovan,^25$) { var %yelkovan_aci 300 }
  if $regex(%yelkovan,^26$) { var %yelkovan_aci 294 }
  if $regex(%yelkovan,^27$) { var %yelkovan_aci 288 }
  if $regex(%yelkovan,^28$) { var %yelkovan_aci 282 }
  if $regex(%yelkovan,^29$) { var %yelkovan_aci 276 }
  if $regex(%yelkovan,^30$) { var %yelkovan_aci 270 }
  if $regex(%yelkovan,^31$) { var %yelkovan_aci 264 }
  if $regex(%yelkovan,^32$) { var %yelkovan_aci 258 }
  if $regex(%yelkovan,^33$) { var %yelkovan_aci 252 }
  if $regex(%yelkovan,^34$) { var %yelkovan_aci 246 }
  if $regex(%yelkovan,^35$) { var %yelkovan_aci 240 }
  if $regex(%yelkovan,^36$) { var %yelkovan_aci 234 }
  if $regex(%yelkovan,^37$) { var %yelkovan_aci 228 }
  if $regex(%yelkovan,^38$) { var %yelkovan_aci 222 }
  if $regex(%yelkovan,^39$) { var %yelkovan_aci 216 }
  if $regex(%yelkovan,^40$) { var %yelkovan_aci 210 }
  if $regex(%yelkovan,^41$) { var %yelkovan_aci 204 }
  if $regex(%yelkovan,^42$) { var %yelkovan_aci 198 }
  if $regex(%yelkovan,^43$) { var %yelkovan_aci 192 }
  if $regex(%yelkovan,^44$) { var %yelkovan_aci 186 }
  if $regex(%yelkovan,^45$) { var %yelkovan_aci 180 }
  if $regex(%yelkovan,^46$) { var %yelkovan_aci 174 }
  if $regex(%yelkovan,^47$) { var %yelkovan_aci 168 }
  if $regex(%yelkovan,^48$) { var %yelkovan_aci 162 }
  if $regex(%yelkovan,^49$) { var %yelkovan_aci 156 }
  if $regex(%yelkovan,^50$) { var %yelkovan_aci 150 }
  if $regex(%yelkovan,^51$) { var %yelkovan_aci 144 }
  if $regex(%yelkovan,^52$) { var %yelkovan_aci 138 }
  if $regex(%yelkovan,^53$) { var %yelkovan_aci 132 }
  if $regex(%yelkovan,^54$) { var %yelkovan_aci 126 }
  if $regex(%yelkovan,^55$) { var %yelkovan_aci 120 }
  if $regex(%yelkovan,^56$) { var %yelkovan_aci 114 }
  if $regex(%yelkovan,^57$) { var %yelkovan_aci 108 }
  if $regex(%yelkovan,^58$) { var %yelkovan_aci 102 }
  if $regex(%yelkovan,^59$) { var %yelkovan_aci 96 }
  if $regex(%yelkovan,^00$) { var %yelkovan_aci 90 }
  ;line ne kadar geri cekilecek kacta kac yelkovan
  var %daire_kacta_kac_yelkovan =  $calc($3 / 10)
  var %cos_x_calc = $round($calc(%x_merkez  + ($calc(%daire_yari_cap - %daire_kacta_kac_yelkovan) * $cos(%yelkovan_aci).deg)),0)
  var %sin_y_calc =  $round($calc(%y_merkez - ($calc(%daire_yari_cap - %daire_kacta_kac_yelkovan)  * $sin(%yelkovan_aci).deg)),0)
  drawline $1 1 2 %x_merkez %y_merkez  %cos_x_calc %sin_y_calc
  ;akrep cizimi
  if $regex(%akrep,^(00|12)$) { var %akrep_aci $calc(90 - $calc(%yelkovan / 60) * 25)  }
  if $regex(%akrep,^(1|01|13)$) { var %akrep_aci $calc(60 - $calc(%yelkovan / 60) * 25) }
  if $regex(%akrep,^(2|02|14)$) { var %akrep_aci $calc(30 - $calc(%yelkovan / 60) * 25) }
  if $regex(%akrep,^(3|03|15)$) { var %akrep_aci $calc(0 - $calc(%yelkovan / 60) * 25) }
  if $regex(%akrep,^(4|04|16)$) { var %akrep_aci $calc(330 - $calc(%yelkovan / 60) * 25) }
  if $regex(%akrep,^(5|05|17)$) { var %akrep_aci $calc(300 - $calc(%yelkovan / 60) * 25) }
  if $regex(%akrep,^(6|06|18)$) { var %akrep_aci $calc(270 - $calc(%yelkovan / 60) * 25) }
  if $regex(%akrep,^(7|07|19)$) { var %akrep_aci $calc(240 - $calc(%yelkovan / 60) * 25) }
  if $regex(%akrep,^(8|08|20)$) { var %akrep_aci $calc(210 - $calc(%yelkovan / 60) * 25) }
  if $regex(%akrep,^(9|09|21)$) { var %akrep_aci $calc(180 - $calc(%yelkovan / 60) * 25) }
  if $regex(%akrep,^(10|22)$) { var %akrep_aci $calc(150 - $calc(%yelkovan / 60) * 25) }
  if $regex(%akrep,^(11|23)$) { var %akrep_aci $calc(120 - $calc(%yelkovan / 60) * 25) }
  ;line ne kadar geri cekilecek kacta kac akrep
  var %daire_kacta_kac_akrep = $calc($3 / 5)
  var %cos_x_calc = $round($calc(%x_merkez  + ($calc(%daire_yari_cap - %daire_kacta_kac_akrep) * $cos(%akrep_aci).deg)),0)
  var %sin_y_calc =  $round($calc(%y_merkez - ($calc(%daire_yari_cap - %daire_kacta_kac_akrep) * $sin(%akrep_aci).deg)),0)
  drawline $1 1 2 %x_merkez %y_merkez  %cos_x_calc %sin_y_calc
  return
  :_saathatamesaj 
  echo $color(info) /saatciz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]reismi saat saatbuyuklugu xkordinati ykordinati
  echo $color(info) Örnek1: /saatciz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 14:30 200 200 200
  echo $color(info) Örnek2: /saatciz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 06:30 150 200 200
  echo -
}