クイズ部分の４択プログラム

お勉強モード（４択クイズ）部分のソースを書いています。

クイズデータの中から，ランダムに10問出題して，正解数によって得点を表示できるようにしてみました。

サンプルでは問題と答えのみですが，一行解説がつくようにしていきたいと思っています。また，正解／不正解で，表情が変化する仕様も検討中です。

以下にサンプルソースを載せておきます。つたないプログラムですが，何かの参考に…（参考にならないですね，すみません…）
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
AddItem("歴史の勉強をする")
 {
 
 int Quiz_Counter =1;
 int Tokuten =0;
 
 while( Quiz_Counter < 11 )
 {
 Talk("\e【第"+ itoa (Quiz_Counter)+"問！】\s\n"); 
 int Quiz = Random(6);  
 
 if( Quiz == 0)
 {
 Talk("江戸幕府を開いたのは誰？");
 AddItem("徳川家康")
 {Talk("正解だよ");
 Tokuten = Tokuten +10;}
 AddItem("織田信長")
 {Talk("ぶー");}
 AddItem("豊臣秀吉")
 {Talk("ぶー");}
 AddItem("藤原道真")
 {Talk("ぶー");}
 Choice;
 Quiz_Counter = Quiz_Counter +1;
 }

 else if( Quiz == 1 )
 {
 Talk("本能寺の変で暗殺されたのは？");
 AddItem("徳川家康")
 {Talk("ぶー");}
 AddItem("織田信長")
 {Talk("ピンポーン");
 Tokuten = Tokuten +10;}
 AddItem("豊臣秀吉")
 {Talk("ぶー");}
 AddItem("藤原道真")
 {Talk("ぶー");}
 Choice;
 Quiz_Counter = Quiz_Counter +1;
 }

 else if( Quiz == 2 )
 {
 Talk("710年に奈良に作られたのは？");
 AddItem("平安京")
 {Talk("ぶー");}
 AddItem("平城京")
 {Talk("ピンポーン");
 Tokuten = Tokuten +10;}
 AddItem("北京")
 {Talk("ぶー");}
 AddItem("南京")
 {Talk("ぶー");}
 Choice;
 Quiz_Counter = Quiz_Counter +1;
 }

 else if( Quiz == 3 )
 {
 Talk("1914年に起こったのは？");
 AddItem("日露戦争")
 {Talk("ぶー");}
 AddItem("第一次世界大戦")
 {Talk("ピンポーン");
 Tokuten = Tokuten +10;}
 AddItem("第二次世界大戦")
 {Talk("ぶー");}
 AddItem("ベトナム戦争")
 {Talk("ぶー");}
 Choice;
 Quiz_Counter = Quiz_Counter +1;
 }

 else if( Quiz == 4 )
 {
 Talk("原爆fatmanが投下された場所は？");
 AddItem("広島")
 {Talk("ぶー");}
 AddItem("長崎")
 {Talk("ピンポーン");
 Tokuten = Tokuten +10;}
 AddItem("東京")
 {Talk("ぶー");}
 AddItem("大阪")
 {Talk("ぶー");}
 Choice;
 Quiz_Counter = Quiz_Counter +1;
 }

 else
 {
 Talk("刀狩を行ったのは誰？");
 AddItem("徳川家康")
 {Talk("ぶー");}
 AddItem("織田信長")
 {Talk("ぶー");}
 AddItem("豊臣秀吉")
 {Talk("ピンポーン");
 Tokuten = Tokuten +10;}
 AddItem("藤原道真")
 {Talk("ぶー");}
 Choice;
 Quiz_Counter = Quiz_Counter +1;
 } 
 
 }

 Talk("\eクイズ終了\s\n");
 Talk("あなたの得点は"+ itoa (Tokuten) + "点でした。\n\s次回も頑張ってね");
  
 }