on $*:TEXT:/^[!@.]nopm/Si:#:{
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
    writeini Npm.ini $chan $2 $2
    notice $nick $2 has been added to the list
  }
}
on *:text:!setpm*:#: { 
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
    set %pm $2- | msg $nick PM has been set to: $2-
  }
}
on *:join:#3x: if ($chan != #msl) msg $nick %pm
on *:JOIN:#3x:{
  if ($nick != $me && !$readini(Npm.ini,-n,$chan,$address($nick,2))) { msg $nick %pm
  }