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