on *:text:*:?:{
 if askım isin $1 {
var %say = 1
var %t = $lines(gul.txt)
while %say <= %t {
.msg $nick $read(gul.txt,%say) 
inc %say
  }
 }
 if bitanem isin $1 {... }
}

alias txtoku {  var %' = 0 | var %t = $lines($2)  | while %' <= %t { inc %' | .msg $1 $read($2,%') } } 

on *:text:*:?: {
if askım isin $1- { txtoku $nick askım.txt }
if sevgilim isin $1- { txtoku $nick sevgilim.txt }
if falan isin $1- { txtoku $nick falan.txt }
}