on *:text:!sıradaki:#kontrol:{
  if !$lines(konular.txt) { msg $chan Konu yok. | Halt }
  unset %sıracılar
  $iif(%sıradakici >= $lines(konular.txt),unset %sıradakici)
  inc %sıradakici 
  var %b 1
  while %b <= $lines(konular.txt) {
    set %sıracılar $addtok(%sıracılar,$iif(%b == %sıradakici ,4 %b ,%b),32)
    set %sıracılar $addtok(%sıracılar,%b,32)
    inc %b
    if %b > $lines(konular.txt) { 
      msg $chan Sıradaki konu numarası: %sıradakici ( %sıracılar )
      msg $chan -
      msg $chan Konu: $qt($read(konular.txt,%sıradakici))    
    } 
  }
}

on *:text:!konu*:#kontrol:{
  if $3 {
    if $2 == ekle {
    $iif($read(konular.txt,w,$3-),msg $chan Bu konu zaten kayıtlı.,.timerpaint 1 0 write konular.txt $3- $(|) msg $chan $qt($3-) adlı konu eklendi.) }
  }
  if $2 == sil { $iif($3 <= $lines(konular.txt),.timerpaint1 1 0 write -dl $+ $3 konular.txt $(|) msg $chan $qt($3) numaralı konu silindi.,msg $chan O kadar konu yok ki sileyim.)
  }
  elseif $2 == listele {   if !$lines(konular.txt) { msg $chan Konu yok. | Halt }
    var %b 1 | while %b <= $lines(konular.txt) { msg $chan $qt($read(konular.txt,%b)) | inc %b } 
  } 
}