on *:Join:#KANAL: {
  if ($nick !== $me) {
    if ($chan == %anketkanal) { .msg $nick Merhaba, KANALIMIZ İçin Hazırlanan Anketimize Katılmak İster 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 $nick | Set %oyveren $nick | Set %VerdigiOy $2 | .Denetleme }
}
Alias Sonuclar {
  if (%sonucA !== $null) { .msg $nick 4 %sonucA sonucunun aldığı oy sayısı %sonucoyA }
  if (%sonucB !== $null) { .msg $nick 2 %sonucB 2sonucunun aldığı oy sayısı %sonucoyB }
  if (%sonucC !== $null) { .msg $nick 4 %sonucC 2sonucunun aldığı oy sayısı %sonucoyC }
  if (%sonucD !== $null) { .msg $nick 2 %sonucD 2sonucunun aldığı oy sayısı %sonucoyD }
}
Alias Anket {
  .msg $nick Anketimize hoşgeldiniz.
  .msg $nick Anket sorumuz şöyledir.
  .msg $nick 
  .msg $nick %anketsoru
  .msg $nick 
  .SonucOzel
}
Alias SonucOzel {
  if (%sonucA !== $null) { .msg $nick A) 4 %sonucA }
  if (%sonucB !== $null) { .msg $nick B) 4 %sonucB }
  if (%sonucC !== $null) { .msg $nick C) 4 %sonucC }
  if (%sonucD !== $null) { .msg $nick D) 4 %sonucD }
  .msg $nick 
  .msg $nick Anketimize katılmak için lütfen !Oy Seçtiğiniz şıkkın numarası. Örn : !Oy A
}
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 D | halt }
  if (%VerdigiOy == A) { inc %sonucoyA }
  if (%VerdigiOy == B) { inc %sonucoyB }
  if (%VerdigiOy == C) { inc %sonucoyC }
  if (%VerdigiOy == D) { inc %sonucoyD }
  .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 (%sonucA !== $null) { inc %sonucoyA }
    if (%sonucB !== $null) { inc %sonucoyB }
    if (%sonucC !== $null) { inc %sonucoyC }
    if (%sonucD !== $null) { inc %sonucoyD }
  }
  if (%ilkanketgiris !== 1) { return }
}
Alias f4 { 
  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 %sonucA $$?="Anket cevap 1 yazınız" | Cevapbirtest }
}
Alias CevapbirTest {
  if (%sonucA == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonucA !== $null) { set %sonucB $$?="Anket cevap 2 yazınız" | Cevapikitest }
}
Alias CevapikiTest {
  if (%sonucB == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonucB !== $null) { set %sonucC $$?="Anket cevap 3 yazınız" | Cevapuctest }
}
Alias CevapucTest {
  if (%sonucC == $null) { echo -a Lütfen ankete sonuç giriniz. | halt }
  if (%sonucC !== $null) { set %sonucD $$?="Anket cevap 4 yazınız" | Cevapdorttest }
}
Alias CevapdortTest {
  if (%sonucD == $null) { halt }
  if (%sonucD !== $null) { halt }
}