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 }
}