alias isreg {
  set %regcheck on
  ns info $1
  while (!%reg) {
    .comopen f wscript.shell 
    if (!$comerr) {
      .comclose f $com(f,run,1,bstr,% $+ comspec% /c,i2,,bool,) 
    }
  }
  if (%reg == yes) { 
    unset %reg 
    return $true 
  }
  else { 
    unset %reg
    return $false
  }
}

on *:notice:* is *:?:{
  if ((%regcheck == on) && ($nick == NickServ)) {
    unset %regcheck
    set %reg yes
  }
}

on *:notice:Nick * isn't registered.:?:{
  if ((%regcheck == on) && ($nick == NickServ)) {
    unset %regcheck
    set %reg no
  }
}

alias isid {
  set %idcheck on
  .whois $1
  while (!%id) {
    .comopen f wscript.shell 
    if (!$comerr) {
      .comclose f $com(f,run,1,bstr,% $+ comspec% /c,i2,,bool,) 
    }
  }
  if (%id == yes) {
    unset %id
    return $true
  }
  else {
    unset %id
    return $false
  }
}

menu nicklist {
  Check: {
    if ($isreg($1)) {
      if ($isid($1)) { 
        echo 3 -a $1 is registered and identified.
      }
      else {
        echo 7 -a $1 is registered, but not identified.
      }
    }
    else {
      echo 4 -a $1 is not registered.
    }
  }
}

raw 307:*:{
  if (%idcheck == on) {
    set %id yes
    unset %idcheck
  }
}

raw 318:*:{
  if (%idcheck == on) { 
    set %id no
    unset %idcheck
  }
}