bir
iki
üç
dört 
beş
altı
yedi
sekiz
dokuz
on

alias oku {
  var %vbir = 1,%viki = $lines(dosya.txt),%bir = $1,%iki = $2 
  while %vbir <= %viki { 
    if %bir == $read(dosya.txt,%vbir) { var %bl1 $calc(%vbir + 1) }
    elseif %iki == $read(dosya.txt,%vbir) { var %bl2 $calc(%vbir - 1) }
    inc %vbir
  }
  while %bl1 <= %bl2 { 
    /msg $chan $read(dosya.txt,%bl1)
    inc %bl1
  }
}

on *:text:!konular:*:{
  msg $nick Konu1 :
  msg $nick Konu2 :
  msg $nick Konu....
}

on 1:text:!konu1:*:{ /play $nick konu1.txt }
on 1:text:!konu2:*:{ /play $nick konu2.txt }
on 1:text:!konu3:*:{ /play $nick konu3.txt }