Alias regcheck {
  set %nick. $+ $1 $1
  .ns info $1
}
ON *:NOTICE:*:?:{
  if ($nick == NickServ) {
    if (isn't isin $1-) {
      if ($strip($2,b) == %nick. [ $+ [ $strip($2,b) ] ]) {
        echo -at $strip($2,b) is not registered.
      }
    }
    if (* is * iswm $1-) {
      if ($1 == %nick. [ $+ [ $1 ] ]) {
        echo -at $1 is registered
unset %nick. [ $+ [ $2 ] ]
      }
    }
  }
}