alias mesajyolla {
  var %x 1
  while $read(nick.txt,%x) {
    hadd -m kontrol $v1 $1-
    who +I $v1
    inc %x
  }
}

raw 352:*: {
  if !$regex($7,r) && $hget(kontrol,$6) {
    .msg $6 $v1
    echo -s $6 nick'i kayitsiz oldugundan mesaj iletilmistir.
    hdel -m kontrol $6  
    haltdef
  }
}