//●●● 変数宣言 ●●●
var n=0;        //問題番号
var ten=0;      //点数
var f_start=0   //スタートフラグ
var f_ok=0      //有効フラグ
var n_max=0;    //最終問題番号

//●●● クイズを開始 ●●●
function RTN_START(){
    if(f_start==1)
        {if(confirm('クイズを中断して、やり直しますか?')==true)
   	    {f_start=1;n=0;ten=0;
             document.forms[0].txtKAZ.value=n;
             document.forms[0].txtTEN.value=ten;
             RTN_1(n);}
         else
            {}
        }
    else
        {f_start=1;n=0;ten=0;document.forms[0].txtKAZ.value=n;
         document.forms[0].txtTEN.value=ten;
         RTN_1(n)};
};

//●●● 問題文を表示 ●●●
function RTN_1(s){
   if(s>=n_max)
       {RTN_END();}
   else
       {//document.forms[0].txtKAZ.value=n;
        document.forms[0].txtMON.value=mon[n];
        document.forms[0].txtKI1.value=ki1[n];
        document.forms[0].txtKI2.value=ki2[n];
        document.forms[0].txtKI3.value=ki3[n];
        f_ok=1;};
};

//●●● 解答の正誤を表示 ●●●
function RTN_2(s){
   if(f_ok==0)
        {}   
   else
        {f_ok=0;
         if(s==sei[n])
   	     {document.forms[0].txtMON.value="\r\n  Yeeeees!";
              document.forms[0].txtTEN.value=++ten*4;}
         else
             {document.forms[0].txtMON.value="\r\n  Ooooops...";};
         document.forms[0].txtKAZ.value=n+1;
         n++;window.setTimeout('RTN_1(n)',1000)};
};

//●●● クイズを終了 ●●●
function RTN_END(){
   var str="";var rit=0;
   document.forms[0].txtKAZ.value=n;
   document.forms[0].txtKI1.value="";
   document.forms[0].txtKI2.value="";
   document.forms[0].txtKI3.value="";
   rit=Math.round(ten*100/n_max);

  str="結果"
   str="正解率："+rit+"%"
   document.forms[0].txtMON.value=str;
   if (rit <= 30) {
           document.forms[0].txtMON.value=str+" Ｅランク"+"     初心者の方ですね？普通はこんなものですｗ";
   }else if (rit <= 50) {
           document.forms[0].txtMON.value=str+" Ｄランク"+"     少しはかじってますね？その調子でハマってください。";
   }else if (rit <= 70){
           document.forms[0].txtMON.value=str+" Ｃランク"+"     なかなか。今のところ、プリンス病予備軍です。";
   }else if (rit < 100){
           document.forms[0].txtMON.value=str+" Ｂランク"+"     完全なプリンス病に冒されてます！";
   }else if (rit >= 100){
           document.forms[0].txtMON.value=str+" Ａランク"+"     素晴らしい。ペイズリーパークに就職することをお勧めします！";
   };
   f_start=0;
};

//●●● 問題文 ●●●
mon=new Array();  // 問題文
ki1=new Array();  // 選択肢１
ki2=new Array();  // 選択肢２
ki3=new Array();  // 選択肢３
sei=new Array();  // 正解番号

mon[n]="プリンスの誕生日は？";

ki1[n]="6月7日";
ki2[n]="8月7日";
ki3[n]="3月12日";
sei[n++]="1";

mon[n]="では、誕生年は？";

ki1[n]="1949";
ki2[n]="1958";
ki3[n]="1961";
sei[n++]="2";

mon[n]="プリンスの出身地は？";

ki1[n]="米国アリゾナ州";
ki2[n]="米国モンタナ州";
ki3[n]="米国ミネソタ州";
sei[n++]="3";

mon[n]="プリンスが所有するスタジオの名前は？";

ki1[n]="ファンキー・スタジオ";
ki2[n]="ペイズリー・パーク";
ki3[n]="シナプレンティ";
sei[n++]="2";

mon[n]="プリンスの身長は？";

ki1[n]="160cm未満";
ki2[n]="170c〜179cm";
ki3[n]="180cm以上";
sei[n++]="1";

mon[n]="1987年米国で発売されたシングルSign O' The TimesのB面は？";

ki1[n]="IF I WAS YOUR GIRLFRIEND";
ki2[n]="EROTIC CITY";
ki3[n]="LA LA LA HE HE HEE";
sei[n++]="3";

mon[n]="THE FAMILYのボーカリスト、セント・ポールが以前に所属していたバンドは？";

ki1[n]="MAZARATI";
ki2[n]="THE REVOLUTION";
ki3[n]="THE TIME";
sei[n++]="3";

mon[n]="次のうち、プリンスの偽名でないものは？";

ki1[n]="ジェイミー・スター";
ki2[n]="トラトラトラ";
ki3[n]="カミール";
sei[n++]="2";

mon[n]="2002年の大阪公演で、プリンスがアフター・パーティを行ったクラブの名前は？";

ki1[n]="Triangle";
ki2[n]="Under Ground";
ki3[n]="Marvin";
sei[n++]="1";

mon[n]="プリンスが結婚した最初の女性の名前は？";

ki1[n]="マイテ";
ki2[n]="テイマー";
ki3[n]="マニュエラ";
sei[n++]="1";

mon[n]="Emancipationの頃、プリンスが乗っていた車の名前は？";

ki1[n]="BMW Z3";
ki2[n]="BMW Z4";
ki3[n]="BMW Z5";
sei[n++]="1";


mon[n]="映画「PURPLE RAIN」の監督は誰？";

ki1[n]="アルバート・マグノーリ";
ki2[n]="スティーブン・ファグノーリ";
ki3[n]="プリンス自身";
sei[n++]="1";

mon[n]="次のうち、プリンスの偽名でないものは？";

ki1[n]="ジョーイ・ココ";
ki2[n]="キッド";
ki3[n]="クリストファー";
sei[n++]="2";

mon[n]="映画「GRAFFITI BRIDGE」で舞台となるクラブの名前は？";

ki1[n]="ファースト・アベニュー";
ki2[n]="グラム・スラム";
ki3[n]="ペイズリー・パーク";
sei[n++]="2";

mon[n]="「NPG FUNKY WEAPON REMIX」に収録されている「LOVELEFT, LOVERIGHT」は、次のどの曲の中で演奏されている？";

ki1[n]="THE WORK Pt1";
ki2[n]="NEW POWER GENERATION(pt.U)";
ki3[n]="RAVE UN2 THE JOY FANTASTIC";
sei[n++]="2";

mon[n]="「UNDISPUTED」で競演しているのは次のうち誰？";

ki1[n]="トニー・M";
ki2[n]="アニ・ディフランコ";
ki3[n]="チャック・D";
sei[n++]="3";

mon[n]="「OBJECTS IN THE MIRROR」が収録されているのは？";

ki1[n]="CHAOS AND DISORDER";
ki2[n]="THE SLAUGHTER HOUSE";
ki3[n]="ONE NITE ALONE...";
sei[n++]="3";

mon[n]="次のうち、ザ・タイムのモーリス・デイから譲り受けたと言われている曲はどれ？";

ki1[n]="PARTY UP";
ki2[n]="UPTOWN";
ki3[n]="SOFT AND WET";
sei[n++]="1";

mon[n]="SIGN OF THE TIMES〜LOVESEXY時代のダンサー、キャット。本名は？";

ki1[n]="ケイト・グローサー";
ki2[n]="キャロル・グリーヴァー";
ki3[n]="キャット・グローヴァー";
sei[n++]="3";

mon[n]="SIGN OF THE TIMESツアーの頃、バンドにいなかったのは次のうち誰？";

ki1[n]="ミコ・ウィーバー";
ki2[n]="マット・ブリスタン";
ki3[n]="ブラウン・マーク";
sei[n++]="3";

mon[n]="ザ・レボリューション最後のコンサートとなった「PARADE」ツアーin横浜。いつ開催された？";

ki1[n]="1986年9月";
ki2[n]="1987年10月";
ki3[n]="1985年3月";
sei[n++]="1";

mon[n]="映画「PURPLE RAIN」のシナリオ、第一稿の段階では何という名前だった？";

ki1[n]="CRYSTAL BALL";
ki2[n]="ELECTRIC INTERCOURSE";
ki3[n]="DREAMS";
sei[n++]="3";

mon[n]="アンディ・ウォーホールが、自身の経験で最高のライブだったと評したのはどれ？";

ki1[n]="PURPLE RAIN TOUR";
ki2[n]="PARADE TOUR";
ki3[n]="LOVESEXY TOUR";
sei[n++]="3";

mon[n]="クインシー・ジョーンズにマイク代わりに差し出したことで有名になった、一時期のプリンスのトレード・マークは？";

ki1[n]="風船ガム";
ki2[n]="チュッパチャップス";
ki3[n]="シガレット・チョコ";
sei[n++]="2";

mon[n]="映画「PURPLE RAIN」は大成功を収めたが、集客数はどれくらい？";

ki1[n]="約1200万人";
ki2[n]="約1700万人";
ki3[n]="約2000万人";
sei[n++]="2";

n_max=n
//