.tmd 1
.mid stop
.pic base 00

.mst clk1 clk1 2 408 72 200

.pic off1 back
.pic off1 back 0 0 0 128
.pic off1 back 0 0 0 256
.pic off1 back 0 0 0 384
.spr off1 text 0606 0 80 328
.pic screen off1 00

.pic base 00 0 0 0 640 320

.tsp 3 0

.txt font name ＭＳ ゴシック
.txt font edge 0
.txt font style 1
.txt font size 20
.txt font spacing 0
.txt font offset 1
.txt maxline 4
.txt font leading 4
.txt canvas pos 112 340
.txt canvas size 432 112
.txt font color usual white
.txt font color shadow black
.txt font color selected yellow
.txt font color notselected darkgray

.tmd 0
.tcl 2
.tsw
夏休みももう半分を過ぎたある日。
僕はいつもと変わらず
部屋でごろごろとしていた．．．。
.tcl
．．．．．．
.tcl
なーんちゃって。
.tcl
.pic white 00 1 0 0 640 320
.mid holiday.mid
そうっ！
僕は今、超人気クイズ番組「まいこのなぞなぞ」のスタジオにいるのだっ。しかも、その回答者席に．．．！！
.tcl
おっ、本番が始まるみたいだ。
.tcl
.pic off1 white 0 0 0 0 640 320
.spr off1 maiko7 0 0 128 0 383 320 0 48
.pic off1 00 0 0 0 640 320
まいこ「こんばんは。
  まいこのなぞなぞのお時間です。」
.tcl
まいこ「司会はわたくしまいこが
  つとめさせていただきます．．．」
.tcl
．．．それにしても司会のまいこちゃん、
かわいいよなあ。
.clk
なんかよくわかんないで出場しちゃったけど
これだけで満足．．．。
.tcl
.pic off1 white 0 0 0 0 640 320
.spr off1 maiko0 00 0 200 0 320 320 0 41
.pic screen off1 00 0 0 0 640 320
まいこ「優勝者はあたしといっしょに
  ハワイに行けちゃいます。
  みなさんがんばってくださいね。」
.tcl
.pic off1 white 0 0 0 0 640 320
.spr off1 kurima1 00 0 100 0 414 320 0 60
.pic screen off1 00 0 0 0 640 320
くりま「な．．．なにっ？！
  これはききずてならねえっ！
  うおおおおっ！やってやるぜ！！」
.tcl
.pic off1 white 0 0 0 0 640 320
.spr off1 maiko7 0 0 128 0 383 320 0 48
.pic off1 00 0 0 0 640 320
まいこ「ではさっそくはじめましょうね。」
.tcl
.mid Introv.mid
.tmd 1

;オフスクリーン２にポイント欄を作成
.pic off2 off1 0 0 0 0 640 320
.spr off2 text.bmp 0707 0 8 8 80 36
.spr off2 text.bmp 0707 0 88 8 80 36 400 0
.spr off2 text.bmp 0707 0 8 44 80 36 0 84
.spr off2 text.bmp 0707 0 88 44 80 36 400 84

;「.tpr」の設定
.tpr font size 36
.tpr font spacing -4
.tpr font align 1
.tpr font offset 2

;変数の設定（n1は今の問題 n2は正解数 n3は問題番号）
.let n1 = 0
.let n2 = 0

:question
;quizにジャンプする前にいったん「.tmd 0」をかけるので、
;それを戻すため。
.tmd 1
.let n1 = n1 + 1
.rnd n3 = 0 to 92
.pic off1 off2 0 0 0 0 640 320
.tpr off1 88 26 [n2] POINT
.pic off1
.tmd 0
.tcl 2
.cas n1
.> norma
	.jmp quizend
.> 1
	まいこ「続けていきます。」
	.tcl
	.skp
.els
	.skp
.
まいこ「第[n1]問。」
.tcl
.jmp quiz no[n3]