;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias -l cekiliskanal return #mirchelp
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias -l cekdos return cekilis.txt
alias -l cekkazan return cekiliskazanan.txt
alias -l cek {
  var %m 
  while (j) {
    var %n = $r(1,80) 
    if !$istok(%m,%n,32)  { var %m = %m %n } 
    if ($numtok(%m,32) == 22) { break } 
  } 
  $c Cekilis Sayilari:  $sorttok(%m,32,n)
  set %cekilisayilar $sorttok(%m,32,n)
}
alias -l sayikontrol {
  var %m_ = 1, %d_
  if ($numtok($$2-,32) != 10) { $c Girilen rakam sayisi 10 adet olmalidir | return } 
  while ($gettok($$2-,%m_,32)) {
    var %j_ = $v1 
    if (%j_ !isnum 1-80) { $c Girilen rakamlar 1 ile 80 arasinda olmalidir. | return }
    if !$istok(%d_,%j_,32) { var %d_ = %d_ %j_ }  
    else {  $c Girilen rakamlarin hepsi birbirinden farkli olmalidir | return }
    inc %m_
  }
  if $read($cekdos,w,[Nick] $$1 *) {  $c Maalef daha once sayi girmissiniz. $v1  |  return  }
  $c Girilen rakamlar kabul edildi. [Nick] $$1 [Sayilar] $sorttok(%d_,32,n)
  write cekilis.txt  [Nick] $$1 [Sayilar] $sorttok(%d_,32,n)
  filter -ctff 2 32 $cekdos $cekdos
}
alias -l cekiliskazanan {
  write -c $cekkazan
  var %k_ =  1, %t_, %l_
  while $read($cekdos,%k_) {
    tokenize 32 $v1
    var  %t_ = $4- , %n_ 1, %_nick__ $2
    while $gettok(%t_,%n_,32) {
      var %l_ = $v1
      if $istok(%cekilisayilar,%l_,32) { write $+(-s,%_nick__ ) $cekkazan %_nick__  $read($cekkazan,s,%_nick__) %l_    }
      if (%n_ == 10 && !$read($cekkazan,s,%_nick__)) { write $cekkazan  $+  %_nick__  0  bildi [KAZANDI]  }
      if (%n_ == 10 && $numtok($read($cekkazan,s,%_nick__),32) >= 6 && *(0)* !iswm $read($cekkazan,s,%_nick__) )  { 
        write $+(-s,%_nick__ ) $cekkazan  %_nick__  $read($cekkazan,s,%_nick__)   $+  $numtok($read($cekkazan,s,%_nick__),32)  $+    bildi [KAZANDI]  
      }  
      inc %n_
    }
    inc %k_
  }
}
alias -l c return msg $cekiliskanal
alias -l cekilisdatasil { unset %cekilisayilar | remove -b $cekdos | remove -b $cekkazan | $c Tum veriler sifirlandi, bir sonraki cekilise hazir olun. }
on *:text:*:$($cekiliskanal):{
  if (?say?gir iswm $1) {  sayikontrol $nick $$2-  }
  if (?say?list* iswm $1) { 
    if !$isfile($cekdos) || $lines($cekdos) == 0  { msg # Henuz herhangi bir nick listeye sayi girmemis | return } 
    play # $cekdos 1000 | msg #  Listede $lines($cekdos) adet nick sayi girmistir.  
  }
  if ($regex($1,/^[.!][c]ekili[s]$/i)  && $nick isop # ) {
    ;Burada .cekilis komutunu uygulayacak nick istege gore ayarlanmak isterse bana forum altinda yazabilirsiniz.
    if !$isfile($cekdos)  || $lines($cekdos) == 0  { msg # Henuz herhangi bir nick listeye sayi girmemis | return } 
    cek | cekiliskazanan | $c - |  .play $cekiliskanal  $cekkazan 1000 | .timercekilis 1 600 cekilisdatasil
  }
}

var %katilanlar

on *:TEXT:!katil:#A:{

  if ($istok(%katilanlar, $nick, 32)) {
    msg #A $nick, zaten çekilişe katıldınız.
  }
  else {
    %katilanlar = %katilanlar $nick $+ " "
    msg #A Çekilişe katıldın: $nick
  }

}

on *:TEXT:!sonuç:#A:{

  var %katilanlarArray = $remove(%katilanlar, )

  var %katilanSayisi = $numtok(%katilanlarArray, 32)

  if (%katilanSayisi == 0) {

    msg #A Çekilişe kimse katılmamış. 

  }

  else {

    var %secilenIndex = $rand(1, %katilanSayisi)

    var %secilenNick = $gettok(%katilanlarArray, %secilenIndex, 32)

    msg #A Çekiliş Sonucu: %secilenNick $+ " çekilişe katılanlar arasından seçildi!"

    ; Çekilişe katılan listeyi sıfırla
    %katilanlar = 
  }

}