home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 July / VPR0007A.BIN / OLS / MAIKO / maiko.lzh / data / main03.txt < prev    next >
Text File  |  2000-02-21  |  3KB  |  128 lines
  1. .tmd 1
  2. .mid stop
  3. .pic base 00
  4.  
  5. .mst clk1 clk1 2 408 72 200
  6.  
  7. .pic off1 back
  8. .pic off1 back 0 0 0 128
  9. .pic off1 back 0 0 0 256
  10. .pic off1 back 0 0 0 384
  11. .spr off1 text 0606 0 80 328
  12. .pic screen off1 00
  13.  
  14. .pic base 00 0 0 0 640 320
  15.  
  16. .tsp 3 0
  17.  
  18. .txt font name ＭＳ ゴシック
  19. .txt font edge 0
  20. .txt font style 1
  21. .txt font size 20
  22. .txt font spacing 0
  23. .txt font offset 1
  24. .txt maxline 4
  25. .txt font leading 4
  26. .txt canvas pos 112 340
  27. .txt canvas size 432 112
  28. .txt font color usual white
  29. .txt font color shadow black
  30. .txt font color selected yellow
  31. .txt font color notselected darkgray
  32.  
  33. .tmd 0
  34. .tcl 2
  35. .tsw
  36. 夏休みももう半分を過ぎたある日。
  37. 僕はいつもと変わらず
  38. 部屋でごろごろとしていた．．．。
  39. .tcl
  40. ．．．．．．
  41. .tcl
  42. なーんちゃって。
  43. .tcl
  44. .pic white 00 1 0 0 640 320
  45. .mid holiday.mid
  46. そうっ！
  47. 僕は今、超人気クイズ番組「まいこのなぞなぞ」のスタジオにいるのだっ。しかも、その回答者席に．．．！！
  48. .tcl
  49. おっ、本番が始まるみたいだ。
  50. .tcl
  51. .pic off1 white 0 0 0 0 640 320
  52. .spr off1 maiko7 0 0 128 0 383 320 0 48
  53. .pic off1 00 0 0 0 640 320
  54. まいこ「こんばんは。
  55.   まいこのなぞなぞのお時間です。」
  56. .tcl
  57. まいこ「司会はわたくしまいこが
  58.   つとめさせていただきます．．．」
  59. .tcl
  60. ．．．それにしても司会のまいこちゃん、
  61. かわいいよなあ。
  62. .clk
  63. なんかよくわかんないで出場しちゃったけど
  64. これだけで満足．．．。
  65. .tcl
  66. .pic off1 white 0 0 0 0 640 320
  67. .spr off1 maiko0 00 0 200 0 320 320 0 41
  68. .pic screen off1 00 0 0 0 640 320
  69. まいこ「優勝者はあたしといっしょに
  70.   ハワイに行けちゃいます。
  71.   みなさんがんばってくださいね。」
  72. .tcl
  73. .pic off1 white 0 0 0 0 640 320
  74. .spr off1 kurima1 00 0 100 0 414 320 0 60
  75. .pic screen off1 00 0 0 0 640 320
  76. くりま「な．．．なにっ？！
  77.   これはききずてならねえっ！
  78.   うおおおおっ！やってやるぜ！！」
  79. .tcl
  80. .pic off1 white 0 0 0 0 640 320
  81. .spr off1 maiko7 0 0 128 0 383 320 0 48
  82. .pic off1 00 0 0 0 640 320
  83. まいこ「ではさっそくはじめましょうね。」
  84. .tcl
  85. .mid Introv.mid
  86. .tmd 1
  87.  
  88. ;オフスクリーン２にポイント欄を作成
  89. .pic off2 off1 0 0 0 0 640 320
  90. .spr off2 text.bmp 0707 0 8 8 80 36
  91. .spr off2 text.bmp 0707 0 88 8 80 36 400 0
  92. .spr off2 text.bmp 0707 0 8 44 80 36 0 84
  93. .spr off2 text.bmp 0707 0 88 44 80 36 400 84
  94.  
  95. ;「.tpr」の設定
  96. .tpr font size 36
  97. .tpr font spacing -4
  98. .tpr font align 1
  99. .tpr font offset 2
  100.  
  101. ;変数の設定（n1は今の問題 n2は正解数 n3は問題番号）
  102. .let n1 = 0
  103. .let n2 = 0
  104.  
  105. :question
  106. ;quizにジャンプする前にいったん「.tmd 0」をかけるので、
  107. ;それを戻すため。
  108. .tmd 1
  109. .let n1 = n1 + 1
  110. .rnd n3 = 0 to 92
  111. .pic off1 off2 0 0 0 0 640 320
  112. .tpr off1 88 26 [n2] POINT
  113. .pic off1
  114. .tmd 0
  115. .tcl 2
  116. .cas n1
  117. .> norma
  118.     .jmp quizend
  119. .> 1
  120.     まいこ「続けていきます。」
  121.     .tcl
  122.     .skp
  123. .els
  124.     .skp
  125. .
  126. まいこ「第[n1]問。」
  127. .tcl
  128. .jmp quiz no[n3]