$read for shadowwolf

on *:text:*:?: {
  var %i 1
  while (%i <= $lines(c:\mIRC\allowed.txt)) {
    if (($nick == $read(c:\mIRC\allowed.txt,%i)) && (%pms == OFF)) {
      .msg $nick Hey $nick $+ ! I have received your PM please wait a minute.
      halt
    }
    inc %i
  }
}