Something

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 yes
  }
  elseif (%reg == no) {
    unset %reg
    return no
  }
  else {
    unset %reg 
    return confirm
  }
}

on *:notice:*e-mail verification*:?:{
  if ((%regcheck == on) && ($nick == NickServ)) {
    unset %regcheck
    set %reg confirm
  }
}

on *:notice:* is *:?:{
  if ($1- iswm *e-mail verification*) { 
    halt
  }
  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 id {
  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) == yes) {
      if ($id($1)) { 
        echo 12 -a $1 is registered and identified.
      }
      else {
        echo 7 -a $1 is registered, but not identified.
      }
    }
    elseif ($isreg($1) == no) {
      echo 4 -a $1 is not registered.
    }
    else {
      echo 7 -a $1 is awaiting e-mail verification.
    }
  }
}

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

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