| 出題ルーチン: Talk システム $(Wide(Args(1)))問目は$(IIf((クイズ大魔王のクイズ詳細情報(Args(1),題材) = その他),"計算一般常識","$(IIf((クイズ大魔王のクイズ詳細情報(Args(1),題材) = その他),"タイムショック","$(クイズ大魔王のクイズ詳細情報(Args(1),題材))に関する$(IIf((バケラッタ問題データ詳細情報(Args(1),制限時間) = 有),制限時間付き,""))$(クイズ大魔王のクイズ詳細情報(Args(1),問題形式))"))"))問題です。 ○×問題の解答は○は「OK」、×は「キャンセル」で示してください。;$(IIf((クイズ大魔王のクイズ詳細情報(Args(1),題材) = ボーナス),次の問題は得点が2倍になります。,"")) End Set 出題中 Do Ask どうしますか? 連続表示 問題に解答する バケラッタヒントを確認する End Switch 選択 Case 1 Switch クイズ大魔王のクイズ詳細情報(Args(1),題材) Case タイムショック Input 解答 "今、何問目?" If Args(1) = 解答 Then Talk システム 正解です。 End Else Talk システム 不正解です。 End EndIf Case その他 Ask 終了 計算式1 = Random(50) 計算式2 = Random(50) Input 解答 "$(計算式1)+$(計算式2)=" If (計算式1 + 計算式2) = 解答 Then Talk システム 正解です。 End Else Talk システム 不正解です。 End EndIf Case Else Switch クイズ大魔王のクイズ詳細情報(Args(1),問題形式) Case ○× Ask 終了 Switch Random(6) Case 1 Confirm "$(クイズ大魔王のクイズ詳細情報(Args(1),題材))の詳細は$(クイズ大魔王のクイズ詳細情報(Args(1),正解答))だ。" Case 2 Confirm "$(クイズ大魔王のクイズ詳細情報(Args(1),題材))の詳細は$(クイズ大魔王のクイズ詳細情報(Args(1),誤解答1))だ。" Case 3 Confirm "$(クイズ大魔王のクイズ詳細情報(Args(1),題材))の詳細は$(クイズ大魔王のクイズ詳細情報(Args(1),誤解答2))だ。" Case 4 Confirm "$(クイズ大魔王のクイズ詳細情報(Args(1),題材))の詳細は$(クイズ大魔王のクイズ詳細情報(Args(1),誤解答3))だ。" Case 5 Confirm "$(クイズ大魔王のクイズ詳細情報(Args(1),題材))の詳細は$(クイズ大魔王のクイズ詳細情報(Args(1),誤解答4))だ。" Case 6 Confirm "$(クイズ大魔王のクイズ詳細情報(Args(1),題材))の詳細は$(クイズ大魔王のクイズ詳細情報(Args(1),誤解答5))だ。" EndSw Case "" Ask 終了 Input 解答 "$(クイズ大魔王のクイズ詳細情報(Args(1),問題文前部))$(クイズ大魔王のクイズ詳細情報(Args(1),問題文後部))" クイズ大魔王のクイズ詳細情報(Args(1),正解答) Case Else クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),正解答配置場所)] = クイズ大魔王のクイズ詳細情報(Args(1),正解答) クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所1)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答1) Switch クイズ大魔王のクイズ詳細情報(Args(1),問題形式) Case 二択 クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所2)] = "" クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所3)] = "" クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所4)] = "" クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所5)] = "" Case 三択 クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所2)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答2) クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所3)] = "" クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所4)] = "" クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所5)] = "" Case 四択 クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所2)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答2) クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所3)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答3) クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所4)] = "" クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所5)] = "" Case 五択 クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所2)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答2) クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所3)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答3) クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所4)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答4) クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所5)] = "" Case 六択 クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所2)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答2) クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所3)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答3) クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所4)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答4) クイズ選択肢[クイズ大魔王のクイズ詳細情報(Args(1),誤解答配置場所5)] = クイズ大魔王のクイズ詳細情報(Args(1),誤解答5) EndSw If バケラッタ問題データ詳細情報(Args(1),制限時間) = 有 Then Question Args(2) 本日終了? $(クイズ選択肢[1]) $(クイズ選択肢[2]) $(クイズ選択肢[3]) $(クイズ選択肢[4]) $(クイズ選択肢[5]) $(クイズ選択肢[6]) End Talk システム $(選択) End Else Ask 本日終了? $(クイズ選択肢[1]) $(クイズ選択肢[2]) $(クイズ選択肢[3]) $(クイズ選択肢[4]) $(クイズ選択肢[5]) $(クイズ選択肢[6]) End If 選択 = クイズ大魔王のクイズ詳細情報(Args(1),正解答配置場所) Then Talk システム 正解です。 End Else Talk システム 不正解です。 End EndIf EndIf EndSw EndSw UnSet 出題中 Case 2 Ask 終了 Talk システム $(バケラッタ問題データ詳細情報(Args(1),バケラッタヒント)) End EndSw Loop While 出題中 UnSet クイズ選択肢 Return
|