alias dairebol {
  if (!$1 || !$5) { _hatamesaj }
  if (@* !iswm $1) { _hatamesaj } 
  _daireciz $1 $2 $3 $4 $5 
  _esitbol
}
alias -l _hatamesaj {
  echo $color(info) * /dairebol @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]reismi xkordinati ykordinati dairecapi boluneceksayı 
  echo $color(info) * Ornek: /dairebol @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 300 300 200 6
  return
}
alias -l _esitbol {
  var %i = 1
  var %tum_daire_capi_kac_derece = 360
  var %kac_esit_parca $round($calc(%tum_daire_capi_kac_derece / %daire_esit_parcalara_bolundu_derece),0)
  set -eu2 %degisken_daire_dilimi %daire_esit_parcalara_bolundu_derece
  while (%i <= %kac_esit_parca  ) { 
    var %cos_x_ekseni_hesaplanmis = $calc(%yerlesik_daire_kordinat_x  + (%daire_yari_cap * $cos(%degisken_daire_dilimi).deg))
    var %sin_y_ekseni_hesaplanmis =  $calc(%yerlesik_daire_kordinat_y - (%daire_yari_cap * $sin(%degisken_daire_dilimi).deg))
    drawline %_daire_pen 1 1 %yerlesik_daire_kordinat_x %yerlesik_daire_kordinat_y  %cos_x_ekseni_hesaplanmis %sin_y_ekseni_hesaplanmis
    set -eu2 %degisken_daire_dilimi $calc(%degisken_daire_dilimi + %daire_esit_parcalara_bolundu_derece)
    inc %i 
  }
}
alias -l _daireciz {
  set %_daire_pen $$1
  ;if $window(%_daire_pen) { window -c %_daire_pen }
  window -pe %_daire_pen
  set -eu2 %daire_cap $$4
  set -eu2 %daire_yari_cap $calc($$4 / 2)
  set -eu2 %ilk_daire_kordinat_x $$2
  set -eu2 %ilk_daire_kordinat_y $$3
  if ($5 == 1) { 
    echo $color(info) * Dairenin esit parca degeri en az 2 olmalıdır 
    set %daire_kac_esit_parcaya_boluncek  2
    goto esitdeger
  }
  if ($5 >= 360) {
    echo $color(info) * Dairenin esit parca degeri en fazla 360 olmalıdır 
    set %daire_kac_esit_parcaya_boluncek  360
    goto esitdeger
  }
  set -eu2 %daire_kac_esit_parcaya_boluncek $round($$5,0)
  :esitdeger
  set -eu2 %daire_esit_parcalara_bolundu_derece $round($calc(360 / %daire_kac_esit_parcaya_boluncek),0)
  drawrect -e %_daire_pen 1 1 %ilk_daire_kordinat_x %ilk_daire_kordinat_y %daire_cap %daire_cap
  set -eu2 %yerlesik_daire_kordinat_x $calc(%ilk_daire_kordinat_x + %daire_yari_cap)
  set -eu2 %yerlesik_daire_kordinat_y $calc(%ilk_daire_kordinat_y + %daire_yari_cap)
}