;Anket Addonu. ;Tüm kodlar kullanılabilir. ;Tek ricam bu addonu kalkıp başka bir nick altında "ben yazdım diye yayınlamayın lütfen. ;Güle güle kullanın. ;Iletişim MSN : admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net On *:Join:#: { if ($nick !== $me) { if ($chan == %anketkanal) { .msg $nick Anketimize katılmak ister misiniz? | .msg $nick Anketimize katılmak için lütfen !Anket yazınız. | .msg $nick Anket sonuçlarını görmek içinse !Sonuc yazınız. | AnketleriBirArttir } if ($chan !== %anketkanal) { Halt } } } On *:Text:*:?: { if ($1 == !Sonuc) { Sonuclar } if ($1 == !Anket) { Anket } if ($1 == !Oy) { Set %OyAdresi $address($nick,3) | Set %oyveren $nick | Set %VerdigiOy $2 | .Denetleme } } Alias Sonuclar { if (%sonuc1 !== $null) { .msg $nick 4 %sonuc1 sonucunun aldığı oy sayısı %sonucoy1 } if (%sonuc2 !== $null) { .msg $nick 2 %sonuc2 2sonucunun aldığı oy sayısı %sonucoy2 } if (%sonuc3 !== $null) { .msg $nick 4 %sonuc3 2sonucunun aldığı oy sayısı %sonucoy3 } if (%sonuc4 !== $null) { .msg $nick 2 %sonuc4 2sonucunun aldığı oy sayısı %sonucoy4 } } Alias Anket { .msg $nick Anketimize hoşgeldiniz. .msg $nick Anket sorumuz şöyledir. .msg $nick .msg $nick %anketsoru .msg $nick .SonucOzel } Alias SonucOzel { if (%sonuc1 !== $null) { .msg $nick 1) 4 %sonuc1 } if (%sonuc2 !== $null) { .msg $nick 2) 4 %sonuc2 } if (%sonuc3 !== $null) { .msg $nick 3) 4 %sonuc3 } if (%sonuc4 !== $null) { .msg $nick 4) 4 %sonuc4 } .msg $nick .msg $nick Anketimize katılmak için lütfen !Oy Seçtiğiniz şıkkın numarası. Örn : !Oy 1 } Alias Denetleme { if $read(Liste.txt,w,%OyAdresi) { .msg %Oyveren Üzgünüm, daha önceden oy kullanmışsınız. | halt } if !$read(Liste.txt,w,%OyAdresi) { .Oylamayap } } Alias OylamaYap { if (%VerdigiOy == $NULL) { .msg %Oyveren Lütfen seçtiğiniz anket cevabının numarasını giriniz. | .msg %Oyveren Örnek : !Oy 2 | halt } if (%VerdigiOy == 1) { inc %sonucoy1 } if (%VerdigiOy == 2) { inc %sonucoy2 } if (%VerdigiOy == 3) { inc %sonucoy3 } if (%VerdigiOy == 4) { inc %sonucoy4 } .msg $nick Oyunuz kaydedilmiştir. Oylama yaptığınız anket cevap numarası %VerdigiOy .write Liste.txt %OyAdresi .halt } Alias AnketleriBirArttir { inc %ilkanketgiris if (%ilkanketgiris == 1) { if (%sonuc1 !== $null) { inc %sonucoy1 } if (%sonuc2 !== $null) { inc %sonucoy2 } if (%sonuc3 !== $null) { inc %sonucoy3 } if (%sonuc4 !== $null) { inc %sonucoy4 } } if (%ilkanketgiris !== 1) { return } } Alias f1 { set %anketkanal $$?="Anket kanalını başında # olarak yazınız." | TestKanal } Alias TestKanal { if (%anketkanal == $null) { echo -a Anket sistemi anket kanalı olmadan maalesef çalışmaz. | halt } if (%anketkanal !== $null) { set %anketsoru $$?"Anketin sorusunu açık bir dille yazınız." | AnketSoruTest } } Alias AnketSoruTest { if (%anketsoru == $Null) { echo -a Sorusuz anket olur mu hiç? :) | echo -a Lütfen ankete soru girin. | halt } if (%anketsoru !== $null) { Set %sonuc1 $$?="Anket cevap 1 yazınız" | Cevapbirtest } } Alias CevapbirTest { if (%sonuc1 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt } if (%sonuc1 !== $null) { set %sonuc2 $$?="Anket cevap 2 yazınız" | Cevapikitest } } Alias CevapikiTest { if (%sonuc2 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt } if (%sonuc2 !== $null) { set %sonuc3 $$?="Anket cevap 3 yazınız" | Cevapuctest } } Alias CevapucTest { if (%sonuc3 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt } if (%sonuc3 !== $null) { set %sonuc4 $$?="Anket cevap 4 yazınız" | Cevapdorttest } } Alias CevapdortTest { if (%sonuc4 == $null) { halt } if (%sonuc4 !== $null) { halt } }

On *:Join:#: { 
  if ($nick !== $me) { 
    if ($chan == %anketkanal) { .msg $nick Anketimize katılmak ister misiniz? | .msg $nick Anketimize katılmak için lütfen !Anket yazınız. | .msg $nick Anket sonuçlarını görmek içinse !Sonuc yazınız. | AnketleriBirArttir }
    if ($chan !== %anketkanal) { Halt }
  }
}
On *:Text:*:?: { 
  if ($1 == !Sonuc) { Sonuclar }
  if ($1 == !Anket) { Anket }
  if ($1 == !Oy) { Set %OyAdresi $address($nick,3) | Set %oyveren $nick | Set %VerdigiOy $2 | .Denetleme }
}
Alias Sonuclar { 
  if (%sonuc1 !== $null) { .msg $nick 4 %sonuc1 2sonucunun aldığı oy sayısı %sonucoy1 }
  if (%sonuc2 !== $null) { .msg $nick 2 %sonuc2 2sonucunun aldığı oy sayısı %sonucoy2 }
  if (%sonuc3 !== $null) { .msg $nick 4 %sonuc3 2sonucunun aldığı oy sayısı %sonucoy3 } 
  if (%sonuc4 !== $null) { .msg $nick 2 %sonuc4 2sonucunun aldığı oy sayısı %sonucoy4 } 
} 
Alias Anket { 
  .msg $nick Anketimize hoşgeldiniz.
  .msg $nick Anket sorumuz şöyledir. 
  .msg $nick 
  .msg $nick %anketsoru 
  .msg $nick .SonucOzel
}
Alias SonucOzel { 
  if (%sonuc1 !== $null) { .msg $nick 1) 4 %sonuc1 }
  if (%sonuc2 !== $null) { .msg $nick 2) 4 %sonuc2 } 
  if (%sonuc3 !== $null) { .msg $nick 3) 4 %sonuc3 } 
  if (%sonuc4 !== $null) { .msg $nick 4) 4 %sonuc4 }
  .msg $nick .msg $nick Anketimize katılmak için lütfen !Oy Seçtiğiniz şıkkın numarası. Örn : !Oy 1 
}
Alias Denetleme {
  if $read(Liste.txt,w,%OyAdresi) { .msg %Oyveren Üzgünüm, daha önceden oy kullanmışsınız. | halt }
  if !$read(Liste.txt,w,%OyAdresi) { .Oylamayap } 
}
Alias OylamaYap { 
  if (%VerdigiOy == $NULL) { .msg %Oyveren Lütfen seçtiğiniz anket cevabının numarasını giriniz. | .msg %Oyveren Örnek : !Oy 2 | halt }
  if (%VerdigiOy == 1) { inc %sonucoy1 } 
  if (%VerdigiOy == 2) { inc %sonucoy2 } 
  if (%VerdigiOy == 3) { inc %sonucoy3 } 
  if (%VerdigiOy == 4) { inc %sonucoy4 }
  .msg $nick Oyunuz kaydedilmiştir. Oylama yaptığınız anket cevap numarası %VerdigiOy 
  .write Liste.txt %OyAdresi 
  .halt 
}
Alias AnketleriBirArttir {
  inc %ilkanketgiris 
  if (%ilkanketgiris == 1) {
    if (%sonuc1 !== $null) { inc %sonucoy1 } 
    if (%sonuc2 !== $null) { inc %sonucoy2 } 
    if (%sonuc3 !== $null) { inc %sonucoy3 }  
    if (%sonuc4 !== $null) { inc %sonucoy4 }
  }
  if (%ilkanketgiris !== 1) { return }
} 
Alias f1 {
  set %anketkanal $$?="Anket kanalını başında # olarak yazınız." | TestKanal
}
Alias TestKanal {
  if (%anketkanal == $null) { echo -a Anket sistemi anket kanalı olmadan maalesef çalışmaz. | halt } 
  if (%anketkanal !== $null) { set %anketsoru $$?"Anketin sorusunu açık bir dille yazınız." | AnketSoruTest }
} 
Alias AnketSoruTest {
  if (%anketsoru == $Null) { echo -a Sorusuz anket olur mu hiç? :) | echo -a Lütfen ankete soru girin. | halt }
  if (%anketsoru !== $null) { Set %sonuc1 $$?="Anket cevap 1 yazınız" | Cevapbirtest } 
}
Alias CevapbirTest {
  if (%sonuc1 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonuc1 !== $null) { set %sonuc2 $$?="Anket cevap 2 yazınız" | Cevapikitest }
}
Alias CevapikiTest {
  if (%sonuc2 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonuc2 !== $null) { set %sonuc3 $$?="Anket cevap 3 yazınız" | Cevapuctest }
}
Alias CevapucTest {
  if (%sonuc3 == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonuc3 !== $null) { set %sonuc4 $$?="Anket cevap 4 yazınız" | Cevapdorttest } 
}
Alias CevapdortTest {
  if (%sonuc4 == $null) { halt }
  if (%sonuc4 !== $null) { halt }
}

on *:text:*:#anket,#Admin,#mt-desk: {
  if ($1 == !anketduyur && ($chan == #Opers || $chan == #mt-desk)) {
    if ($me !ison #anket) { join -n #anket }
    privmsg $ $+ *.Sunucu.com 0,2Bu haftaki Anket Sorunuz:0,3 $chr(91) %setanket $chr(93) 0,7: Oyunuzu kullanmak icin #anket kanalina girin.
    msg $chan >> Anket Duyurusu yapildi. 
  }
  if ($1 == !anket && $2 == $null) {
    if (%setanket) {
      msg # Bir onceki Anket Sorunuzu:0,3 $chr(91) %setanket $chr(93) 0,7: !anketduyur komutu ile duyurabilirsiniz.
    }   
    msg # Anket Oluşturma Sihirbazı, size anket oluşturmanızda yardımcı olacak.
    msg # İlgili anketin sorusunu oluşturmak için, 4"2!Anketekle Anketinizin Sorusu4" şeklinde giriniz.
  }

  if ($1 == !anketekle && ($chan == #Opers || $chan == #mt-desk)) {
    if ($2 == $null) { msg # 4* 12Error : 4"2!anketekle Anketinizin Sorusu4" şeklinde giriş yapmalısınız. | return  }  
    if ($len($2-) < 15) { msg # 4* 12Error : Anket sorusu en az 15 karakterden oluşmalıdır.Tekrar deneyiniz. | return  }
    unset %ank* %setanket %tamam %topcevap %cevap* %beklet %hazıranket
    write -c cevap.txt    
    set %tamam YES
    set %setanket $2-
    var %i 1
    msg # Anket sorunuzun girişini 4" $2- 4" olarak yaptınız.
    msg # Şimdi de sirasiyla, ilgili anket cevaplarını 4"2!A cevap 4, 2!B cevap 4, 2!C cevap 4, 2!D cevap 4, 2!E cevap 2vs..4" şeklinde girip,
    msg # Tüm cevaplar girildikten sonra, anketi bitirmek için 4"2!Anketbitir" yazınız.
  }
  if ($regex($1,/^![A-Z]$/i) && ($chan == #Opers || $chan == #mt-desk)) {
    if ($2 == $null) { msg # 4* 12Error : İlgili anket cevaplarını 4"2!A cevap 4, 2!B cevap 4, 2!C cevap 4, 2!D cevap 4, 2!E cevap 2vs..4" şeklinde girmelisiniz. | return }  
    if (%tamam == $null) { msg # 4* 12Error : Anket cevaplarından önce, anketinizin sorusunu girmelisiniz. Kullanım: 2!anketekle Anketinizin Sorusu | return }
    var %xm $remove($1,!)
    set $+(%,ank,%xm) $upper(%xm) $+ ) $strip($2-) 
    set $+(%,cevap,%xm) 0
    msg # $+(2,$upper(%xm),) Şıkının cevabı 4" $strip($2-) 4"  olarak girildi.   
  }

  if ($1 == !anketbitir && ($chan == #Opers || $chan == #mt-desk)) { 
    if (%setanket == $null) { msg # 4* 12Error : Anket Sorusu girişi yapılmamış. 4"2!anketekle Anketinizin Sorusu4" şeklinde giriş yapmalısınız . | return  }
    if ($var(ank*,0) < 3) { msg # 4* 12Error : Anket oluşturulamadı.En az 3 cevap girmelisiniz ! | return }
    if (%bekletz) { notice $nick Bekleyin.. | return }
    msg # Tek soruluk anket başarıyla oluşturuldu.
    msg # 2Anket Sorusu : %setanket
    msg # 2[Anket Cevapları] 
    var %i 1 
    while (%i <= $var(ank*,0)) {
      msg # $eval($var(ank*,%i),2)
      inc %i
    }
    msg # Anket'i işleme koymak için 4"2!Ankethazır4", Anket'i iptal etmek için ise 4"2!Anketreset4" şeklinde giriş yapın.
    set $+(-eu,$calc(%i + 1)) %bekletz YES
  }
  if (!ankethaz?r iswm $1 && ($chan == #Opers || $chan == #mt-desk)) {
    if (%setanket == $null) { msg # 4* 12Error : Anket Sorusu girişi yapılmamış. 4"2!anketekle Anketinizin Sorusu4" şeklinde giriş yapmalısınız . | return  }
    if ($var(ank*,0) < 3) { msg # 4* 12Error : Anket oluşturulamadı.Girinler cevaplar yetersiz bulundu ! | return }
    if ($me !ison #anket) { join -n #anket }    
    topic #anket 14[2Sunucu Anket14]14[ %setanket 14]1 Cevapları görmek için !cevaplar, cevap vermek için, !cevap şık, anket sonuçlarına bakmak için ise !sonuçlar yazabilirsiniz.   
    msg # 2>4> 1Anket işlem'e koyuldu.
    privmsg $ $+ *.Sunucu.com 0,2Bu haftaki Anket Sorunuz:0,3 $chr(91) %setanket $chr(93) 0,7: Oyunuzu kullanmak icin #anket kanalina girin.
    set %hazıranket OK
  }
  if ($1 == !anketreset && ($chan == #Opers || $chan == #mt-desk)) { 
    unset %ank* %setanket %tamam %topcevap %cevap* %beklet %hazıranket
    write -c cevap.txt
    msg # Girilen anket bilgileri sıfırlandı.4YENİ 1bir anket oluşturmak için 2!Anket1 yazabilirsiniz.   
    topic #anket 4YENİ 1anket sorusu düzenlemesi yapılıyor..  
  }
  if (!sonu?lar iswm $1 && $chan == #anket) {  
    if $var(cevap*,0) == 0 { msg # 4* 12Error : Anket hazır değil ! | 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çları]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 # 4* 12Error : Anket hazır değil ! | return  }
    if (%bekletc) { notice $nick Bekleyin.. | return }
    msg # 14[Anket Cevaplari]
    var %i 1 
    while (%i <= $var(ank*,0)) {
      msg # $eval($var(ank*,%i),2)
      inc %i
    }
    msg # 6* Seçmek istediğiniz şıkı, 4"2!Cevap Şık4" şeklinde seçebilirsiniz.14[Örnek: 2!Cevap A14]  
    set $+(-eu,$calc(%i + 1)) %bekletc YES
  }

  if ($1 == !cevap && $chan == #anket) { 
    if (!%hazıranket) { msg # 4* 12Error : Anket hazır değil. | return  }
    if ($2 == $null) { msg # 4* 12Error : Cevap vermek için, bir şık seçmelisiniz. | return  } 
    if (!$regex($2,/^[A-Z]$/i)) { msg # 4* 12Error : Cevap vermek için, bir şık seçin.(4Örnek: 2!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 # 4* 12Error : Geçersiz şık. Lütfen 4" $replace(%p,$chr(32),$+(14,$chr(44),)) 4" şıklarından birini seçiniz.
      return  
    }
    if ($read(cevap.txt,w,$nick)) { msg #anket 4* 12Error : Cevap hakkınızı kullanmissiniz . | return  }
    if (%nickwh) { notice $nick 2Bekleyin 1.. | return } 
    set %cevapne $2
    who $nick
    set -u2 %nickwh ok
  }
}

raw *:*: {
  if (%nickwh)  {
    if ($numeric == 352) { 
      if (*r* !iswmcs $7) { msg #anket 4* 12Error : Cevap hakkini sadece kayitli nickler kullanabilir. | return }
      if (!$read(cevap.txt,w,$6)) { 
        write cevap.txt $6 
        inc $+(%,cevap,%cevapne)
        inc %topcevap
        msg #anket Teşekkürler, cevap hakkınızı 4"2 $($+(%,ank,%cevapne),2) 4" olarak kullandınız.Anket sonuçlarına 2!Sonuçlar yazarak bakabilirsiniz.  
      }

    }
    if ($numeric == 315) { unset %cevapne }
  }
}

 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 }
  }
}