<!--
//........................................................
// YahWoe! MarkSheetMaker ver.2.40
//                 Dr.STRANGELOVE <drstrangelove@dr.com>
//                                http://www.yahwoe.com/
//........................................................
var rangeOfResults = new Array(-12, -9, -6, -3, 0, 3, 6, 9, 12, 13);
var diagnosis = new Array(10);
diagnosis[0] = new Array(2);
diagnosis[1] = new Array(2);
diagnosis[2] = new Array(2);
diagnosis[3] = new Array(2);
diagnosis[4] = new Array(2);
diagnosis[5] = new Array(2);
diagnosis[6] = new Array(2);
diagnosis[7] = new Array(2);
diagnosis[8] = new Array(2);
diagnosis[9] = new Array(2);
function makeADiagnosis(){
  var taku = 3;
  var sumOfValues = 0, minValue = -13, maxValue = 13, rate = 0;
  var i, isCheck = false;

  with(document.check)
    for(i = 0; i < elements.length - 1; i++){
      if(i % taku == 0) isCheck = false;
      if(elements[i].checked){
        isCheck = true;
        sumOfValues += eval(elements[i].value);
      }
      if(i % taku == taku - 1 && !isCheck){
        alert(eval((i - i % taku) / taku + 1) + "番目が未回答です。選択してください。");
        break;
      }
    }

  rate = Math.floor((sumOfValues - minValue) * 100 / (maxValue - minValue));
  diagnosis[0] = Array("あなたは貴族などではありません。<BR>爵位をもらおうなど百年早いです。", "あなたが貴族を名乗るのとは笑止千万です。<BR>下賎の者はとっとと下がってください。");
  diagnosis[1] = Array("あなたは没落貴族です。<BR>出直してください。", "あなたはすでに落ち目です。<BR>爵位が欲しかったらもう一度はいあがって来てください。");
  diagnosis[2] = Array("あなたは下級貴族です。<BR>爵位の代わりに騎士の称号を授与します。", "貴族としては不充分な人物のようです。<BR>爵位が欲しかったら武勲でも立ててください。");
  diagnosis[3] = Array("あなたは普通の貴族です。<BR>男爵位を授けます。", "あなたは血筋だけは立派な人物のようです。<BR>これからはとりあえず〜男爵、〜卿と呼びます。");
  diagnosis[4] = Array("あなたはなかなかの貴族です。<BR>子爵位を授けます。", "あなたは血筋だけの人物ではないようです。<BR>これからは〜子爵、〜卿と呼びます。");
  diagnosis[5] = Array("あなたは立派な貴族です。<BR>伯爵位を授けます。", "あなたは貴族としてなかなか立派な人物です。<BR>これからは〜伯（爵）、〜卿と呼びます。");
  diagnosis[6] = Array("あなたはかなりの貴族です。<BR>侯爵位を授けます。", "あなたは貴族として申し分無い人物です。<BR>これからは〜候、〜卿とお呼びします。");
  diagnosis[7] = Array("あなたはすばらしい貴族です。<BR>公爵位を授けます。", "あなたは貴族として血筋、能力ともに優れた人物のようです。<BR>これからは〜公、〜卿とお呼びします。");
  diagnosis[8] = Array("あなたは完璧な貴族です。<BR>大公の爵位を授けます。", "あなたは貴族のかがみのような人物のようです。<BR>これからは大公閣下とお呼び致します。<BR>");
  diagnosis[9] = Array("あなたは貴族の中の貴族です！<BR>皇帝の就任を認めます。", "あなたこそ皇帝の器にふさわしい人物です。<BR>これからは皇帝陛下とお呼び致します。<BR>");

  if(isCheck)
    for(i in rangeOfResults)
      if(sumOfValues <= rangeOfResults[i]){
        windowOpener(i);
        break;
      }
}
function windowOpener(indexOfMessages){
  var html = "";
  html += "<" + "HTML><" + "HEAD>";
  html += "<TITLE>結果</TITLE></HEAD>";
  html += "<" + "BODY TEXT=#000000 BGCOLOR=#333399>";
  html += "<FORM><DIV ALIGN=CENTER><TABLE HEIGHT='95%' BGCOLOR=#00ccff><TR><TD WIDTH=350>";
  html += "<DIV ALIGN=CENTER><FONT COLOR=#660033>";
  html += diagnosis[indexOfMessages][0].big().big().bold();
  html += "</FONT><BR><BR></DIV>";
  html += diagnosis[indexOfMessages][1];
  html += "</TD></TR><TR><TD ALIGN=CENTER VALIGN=BOTTOM>";
  html += "<INPUT TYPE='BUTTON' VALUE='戻る' onClick='history.back();'>";
  html += "</TD></TR></TABLE></DIV></FORM></" + "BODY></" + "HTML>";
  document.write(html);
  document.close();
}
//-->

