on $*:TEXT:/^[!@]set(pm|msger)/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    writeini -n pm.ini PM $nick 
    msg $chan 03 $+ $nick 14is now verifying for03 $chan $+ .
  }
}

on $*:TEXT:/^[!@](pm|msger)/Si:#:{
  if ($nick == $read(pm.ini,PM,$nick) {
    msg $chan 14Please PM03 $nick 14for voice.
  }
}

on $*:TEXT:/^[!@]del(pm|msger)/Si:#:{
  if ($nick == $read(pm.ini,PM,$nick) {
    remini pm.ini PM $nick
    msg $chan 03 $+ $nick 14has stopped verifying for03 $chan $+ .K
  }
}