on *:text:*:#Anket: {
  if $nick isop $chan {
    if $1 == !konuekle {
      write konu.txt $2- 
      msg $chan $nick konunuz eklenmiştir. Eklenen; $qt($2-)
    }
    if $1 == !reset {
      remove konu.txt
      remove oy.txt 
      msg $chan konu ve tüm oylar silinmiştir.
    }
  }
  else {
    if $1 == !konuekle || $1 == !reset {
      msg $chan Bu komutu kullanabilmek için $chan kanalında op olmalısınız.
    }
  }
}

on *:text:*:#Anket: {
  if $1 == !konu {
    if $isfile(konu.txt) == $true {
      .timer 1 0 msg $chan Konu:
      .timer 1 1 play $chan konu.txt
    }
    else {
      msg $chan Henuz bir konu eklenmemiş.
    }
  }
  if $1 == !oy {
    if $2 == ekle {
      if !$read(oy.txt,w,$3) {
        write oy.txt $3
        msg $chan $qt($3) nickinin oyu eklenmiştir.
      }
      else {
        msg $chan $qt($3) Nicki oy kullanmış.
      }
    }
    if $2 == sil {
      if $read(oy.txt,w,$3) {
        write $+(-,dw,$3) oy.txt
        msg $chan $qt($3) nickinin oyu silinmiştir.
        halt
      }
      if !$read(oy.txt,w,$3) {
        msg $chan $qt($3) Nicki oy zaten oy kullanmamış.
        halt
      }
    }
    if $2 == liste {
      msg $chan Oylar:
      msg $chan Toplam $lines(oy.txt) kişi oy kullanmış..
      .timer 1 1 play $chan oy.txt
    }
  }
}