on *:text:*:#: {
  if $regex($1,/^[!.](oku)$/Si) {
    var %a = 1 
 while %a <= $iif(!$2,10,$2) { msg # $read(dosya.txt,$calc($lines(dosya.txt) - %a)) | inc %a }
  }
}