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 {
  ID Check:{
    if ($isid($1)) { 
      echo 3 -a $1 is identified.
    }
    else {
      echo 4 -a $1 is not identified.
    }
  }
}

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

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