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
    }
    else (($nick != $read(c:\mIRC\allowed.txt,%i)) && (%pms == OFF)) {
      .msg $nick Sorry, $nick $+ , but you are not on my approved user list. }
      halt
    }

    inc %i
  }
}