on *:text:*:#anket,#Admin,#mt-desk: {
  if ($1 == !anketduyur && ($chan == #Opers || $chan == #mt-desk)) {
    if ($me !ison #anket) { join -n #anket }
    privmsg $ $+ *Guzyeli.com Bu haftaki Anket Sorunuz: $chr(91) %setanket $chr(93) : Oyunuzu kullanmak icin #Anket kanalina girin.
    msg $chan >> Anket Duyurusu yapildi. 
  }
  if ($1 == !anket && $2 == $null) {
    if (%setanket) {
      msg # Bir onceki Anket Sorunuzu: $chr(91) %setanket $chr(93) : !anketduyur komutu ile duyurabilirsiniz.
    }   
    msg # 2Anket Olusturma Sihirbazi4, 2size anket olusturmanizda yardimci olacak.
    msg # 2ilgili anketin sorusunu olusturmak için 4!Anketekle Anketinizin Sorusu 2Seklinde giriniz.
  }
  if ($1 == !anketekle && ($chan == #Anket || $chan == #mt-desk)) {
    if ($2 == $null) { msg # 4* 12Error : 4"2!anketekle Anketinizin Sorusu" Seklinde giris yapmalisiniz. | return  }  
    if ($len($2-) < 15) { msg # 4**Error : Anket sorusu en az 15 karakterden olusmalidir.Tekrar deneyiniz. | return  }
    unset %ank* %setanket %tamam %topcevap %cevap* %beklet %haziranket
    write -c cevap.txt    
    set %tamam YES
    set %setanket $2-
    var %i 1
    msg # 4Anket sorusunu " $2- " olarak yaptiniz.
    msg # 2Simdi de sirasiyla, ilgili anket cevaplarini !A cevap , !B cevap , !C cevap , !D cevap , !E cevap  vs.." Seklinde girip,
    msg # 4Tüm cevaplar girildikten sonra, anketi bitirmek için 2!Anketbitir yaziniz.
  }
  if ($regex($1,/^![A-Z]$/i) && ($chan == #Anket || $chan == #mt-desk)) {
    if ($2 == $null) { msg # ** Error : ilgili anket cevaplarini !A  cevap , !B cevap , !C cevap , !D cevap , !E cevap vs.." Seklinde girmelisiniz. | return }  
    if (%tamam == $null) { msg # ** Error : Anket cevaplarindan önce, anketinizin sorusunu girmelisiniz. Kullanim: !Anketekle Anketinizin Sorusu | return }
    var %xm $remove($1,!)
    set $+(%,ank,%xm) $upper(%xm) $+ ) $strip($2-) 
    set $+(%,cevap,%xm) 0
    msg # $+(3,$upper(%xm),) SIKKININ cevabi " $strip($2-) "  olarak girildi.   
  }
  if ($1 == !anketbitir && ($chan == #Anket || $chan == #mt-desk)) { 
    if (%setanket == $null) { msg # ** Error : Anket Sorusu girisi yapilmamis. 4!anketekle 1Anketinizin Sorusu Seklinde giris yapmalisiniz . | return  }
    if ($var(ank*,0) < 3) { msg # ** Error : Anket olusturulamadi.En az 3 cevap girmelisiniz ! | return }
    if (%bekletz) { notice $nick Bekleyin.. | return }
    msg # 4Tek soruluk anket basariyla olusturuldu.
    msg # 4Anket Sorusu : %setanket
    msg # 4Anket Cevaplar 
    var %i 1 
    while (%i <= $var(ank*,0)) {
      msg # $eval($var(ank*,%i),2)
      inc %i
    }
    msg # 2Anket'i isleme koymak için 4"!Ankethazir", 2Anket'i iptal etmek için ise 4"!Anketreset" 2Seklinde giris yapin.
    set $+(-eu,$calc(%i + 1)) %bekletz YES
  }
  if (!ankethaz?r iswm $1 && ($chan == #Anket || $chan == #mt-desk)) {
    if (%setanket == $null) { msg # ** Error : Anket Sorusu girisi yapilmamis. 4!anketekle 1Anketinizin Sorusu Seklinde giris yapmalisiniz . | return  }
    if ($var(ank*,0) < 3) { msg # ** Error : Anket olusturulamadi.Girinler cevaplar yetersiz bulundu ! | return }
    if ($me !ison #anket) { join -n #anket }    
    topic #anket 4[Sunucu Anket] [ %setanket ] Cevaplari görmek için !cevaplar, cevap vermek için, !cevap , anket sonuçlarina bakmak için ise !sonuçlar yazabilirsiniz.   
    msg # Anket islem'e koyuldu.
    privmsg $ $+ *Guzyeli.com Bu haftaki Anket Sorunuz: $chr(91) %setanket $chr(93) : Oyunuzu kullanmak icin #Anket kanalina girin.
    set %haz?ranket OK
  }
  if ($1 == !anketreset && ($chan == #Anket || $chan == #mt-desk)) { 
    unset %ank* %setanket %tamam %topcevap %cevap* %beklet %haz?ranket
    write -c cevap.txt
    msg # Girilen anket bilgileri sifirlandi.YENi bir anket olusturmak için !Anket yazabilirsiniz.   
    topic #anket YENi anket sorusu düzenlemesi yapiliyor..  
  }
  if (!sonu?lar iswm $1 && $chan == #anket) {  
    if $var(cevap*,0) == 0 { msg # ** Error : Anket hazir degil ! | return  }
    if (%beklet) { notice $nick Bekleyin.. | return }
    var %i 1
    while %i <= $var(cevap*,0) { 
      var %ml = %ml $+($var(cevap*,%i).value,.,$remove($var(cevap*,%i),%,cevap))  
      inc %i
    }
    var %c 1
    msg #  2__3__4__14[Anket Sonuçlari]9__6__10__
    while %c <= $gettok($sorttok(%ml,32,nr),0,32) {
      var %p = $gettok($sorttok(%ml,32,nr),%c,32)
      var %z = $round($calc(($gettok(%p,1,46) / %topcevap) * 100),1) 
      ;msg # $+(,$+(%c,$chr(44),%c)) $str(|,$int($calc(%z / 2))) 0 $eval($chr(37),0) $eval($+,0) $calc(($gettok(%p,1,46) / %topcevap) * 100) 14 $gettok($($+(%,ank,$gettok(%p,2,46)),2),2-,32)
      msg # $+(,$+(%c,$chr(44),%c)) $str(|,$int($calc(%z / 2))) 0 $chr(37) $+ $round($calc(($gettok(%p,1,46) / %topcevap) * 100),2) 14 $gettok($($+(%,ank,$gettok(%p,2,46)),2),2-,32)
      inc %c
    }
    msg # 2__3__4__9__6__10__
    set $+(-eu,$calc(%c + 1)) %beklet YES
  }
  if ($1 == !cevaplar && $chan == #anket) {
    if ($var(ank*,0) == 0) { msg # ** Error : Anket hazir degil ! | return  }
    if (%bekletc) { notice $nick Bekleyin.. | return }
    msg # [Anket Cevaplari]
    var %i 1 
    while (%i <= $var(ank*,0)) {
      msg # $eval($var(ank*,%i),2)
      inc %i
    }
    msg # 2Seçmek istediginiz SIKKI, !Cevap SIK" seklinde seçebilirsiniz. [Örnek: !Cevap A]  
    set $+(-eu,$calc(%i + 1)) %bekletc YES
  }
  if ($1 == !cevap && $chan == #anket) { 
    if (!%haz?ranket) { msg # ** Error : Anket hazir degil. | return  }
    if ($2 == $null) { msg # ** Error : Cevap vermek için, bir SIK seçmelisiniz. | return  } 
    if (!$regex($2,/^[A-Z]$/i)) { msg # ** Error : Cevap vermek için, bir SIK seçin.(Örnek: !cevap A) | return  }
    if ($($+(%,ank,$2),2) == $null) { 
      var %i 1 
      while (%i <= $var(ank*,0)) {
        var %p = %p $upper($remove($var(ank*,%i),%,ank))
        inc %i
      }
      msg # ** Error : Geçersiz SIK. Lütfen " $replace(%p,$chr(32),$+(14,$chr(44),)) " SIKLARINDAN birini seçiniz.
      return  
    }
    if ($read(cevap.txt,w,$nick)) { msg #anket ** Error : Cevap hakkinizi kullanmissiniz . | return  }
    if (%nickwh) { notice $nick 2Bekleyin .. | return } 
    set %cevapne $2
    who $nick
    set -u2 %nickwh ok
  }
}
raw *:*: {
  if (%nickwh)  {
    if ($numeric == 352) { 
      if (*r* !iswmcs $7) { msg #anket ** Error : Cevap hakkini sadece kayitli nickler kullanabilir. | return }
      if (!$read(cevap.txt,w,$6)) { 
        write cevap.txt $6 
        inc $+(%,cevap,%cevapne)
        inc %topcevap
        msg #anket Tesekkürler, cevap hakkinizi " $($+(%,ank,%cevapne),2) " olarak kullandiniz.Anket sonuçlarina !Sonuçlar yazarak bakabilirsiniz.  
      }
    }
    if ($numeric == 315) { unset %cevapne }
  }
}