スマイルブーム自家製プログラム特集 PART1 →PART2

BLOCK by スマイルブーム

再生

　スタンダードなブロックくずしタイプのゲームを作ってみたぞ。
　Ａボタンでボール発射。ブロックやカベに反射するボールを、十字ボタン左右で動かすパドルで受け止めよう。ボールを落としてしまうとミスになるぞ。
　キミはボール10個をなくす前に、全部のブロックを壊すことができるかな？


 CHECK POiNT 

インテリ
今回の更新ではスマイルブームのスタッフ製プログラムを特集するよ。

ワンパク
ユーザーからの投稿プログラムもケッコーたまってんだろ？　そっちが先じゃねェか？

博士
うむ。まさにこうしている間にもぞくぞく投稿が届いておるわけじゃが、それがスマイルブーム製プログラムより進んでおるときては、もう化けの皮がはがれる前に公開した方が……。

ワンパク
テメェエー！　そっちの都合じゃねえか！　この資本主義のブタどもがァー！

博士
冗談じゃ冗談じゃ。だいたい８割くらいは冗談じゃ。もともと参考にしてもらうために作ったプログラムじゃから、投稿作より先になるべく早く公開すべきと判断されたのじゃよ。

神崎
（８割……？）

博士
このプログラムではパドルとボールがスプライトなのに、ブロックにはコンソール画面を使っているというのが面白いのう。
56行以降ブロックの当たり判定にＣＨＫＣＨＲを使って、ブロックのどこに当たったのかが文字情報でわかり、それ次第でボールの反射を制御するしくみなのじゃな。

ワンパク
なんだかゴマカされた気もするが、たしかに応用の効きそうなアイデアだぜ。しかし……このゲーム、難しくねーか？　反射角も90度固定だしよォ……。

博士
そこはホレ、プログラマー諸君の今後の工夫しだいじゃよ。

ワンパク
テメェエー！　面倒くさそうなとこブン投げてんじゃねエぞ！　この拝金主義者どもがァー！

神崎
落ち着いてワンパク君！　もともとそういう趣旨の特集だから！　きみの言葉もさっきから何か間違ってるから！

インテリ
この「当たった場所によって挙動を変える」考え方をパドルにもあてはめることから始めるといいかもね。ブロックもコンソールの味気ないフォントだけど、フォントリソースを書き換えたり、スプライトやBGに切り替えるといいと思うよ。

プログラムリスト

  1. ’┌─────────┐
  2. ’│フ゛ロッククス゛シ│
  3. ’└─────────┘
  4. ＣＬＥＡＲ
  5. ＶＩＳＩＢＬＥ　１，１，０，０，１，０
  6. ＳＰＰＡＧＥ　０：ＳＰＣＬＲ
  7. ’
  8. ＤＩＭ　Ｂ＄（２，２）
  9. ’
  10. ＤＡＴＡ　”　　　”
  11. ＤＡＴＡ　”　　　”
  12. ’
  13. ＤＡＴＡ　”┌─┐”
  14. ＤＡＴＡ　”└─┘”
  15. ’
  16. ＦＯＲ　Ｉ＝０　ＴＯ　１
  17. 　ＦＯＲ　Ｊ＝０　ＴＯ　１
  18. 　　ＲＥＡＤ　Ｂ＄（Ｉ，Ｊ）
  19. 　ＮＥＸＴ
  20. ＮＥＸＴ
  21. ’－－－
  22. ＤＩＭ　ＣＬ（８）
  23. ＤＡＴＡ　３，４，９，１３，１２
  24. ＦＯＲ　Ｉ＝０　ＴＯ　４
  25. 　ＲＥＡＤ　ＣＬ（Ｉ）
  26. ＮＥＸＴ
  27. ’－－－
  28. ＦＬＷ＝－１：ＲＥＱ＝１
  29. ’－－－
  30. ＠ＬＯＯＰ
  31. 　ＯＬＤＢ＝Ｂ：Ｂ＝ＢＵＴＴＯＮ（）
  32. 　ＩＦ　ＦＬＷ＝＝ＲＥＱ　ＴＨＥＮ　＠ＳＫＩＰ
  33. 　ＦＬＷ＝ＲＥＱ
  34. 　ＯＮ　ＦＬＷ　ＧＯＳＵＢ　＠ＧＩ，＠ＴＩ，＠ＣＩ，＠ＥＩ
  35. ＠ＳＫＩＰ
  36. 　ＯＮ　ＦＬＷ　ＧＯＳＵＢ　＠ＧＭ，＠ＴＭ，＠ＣＭ，＠ＥＭ
  37. 　ＶＳＹＮＣ　１
  38. ＧＯＴＯ　＠ＬＯＯＰ
  39. ’－－－
  40. ＠ＧＭ
  41. ＶＸ＝０
  42. ＩＦ　Ｂ＝＝１６　ＴＨＥＮ　ＢＳ＝１
  43. ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＶＸ＝－１
  44. ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＶＸ＝１
  45. ＩＦ　ＶＸ＝＝０　ＴＨＥＮ　＠ＢＭＯＶＥ
  46. ＰＸ＝ＰＸ＋ＶＸ＊６
  47. ＩＦ　ＰＸ＜１６　　ＴＨＥＮ　ＰＸ＝１６
  48. ＩＦ　ＰＸ＞２３９　ＴＨＥＮ　ＰＸ＝２３９
  49. ’－－－
  50. ＠ＢＭＯＶＥ
  51. ＩＦ　ＢＳ＝＝０　ＴＨＥＮ　＠ＰＵＴＡＬＬ
  52. ’－－－タマイト゛ウ
  53. ＯＬＤＢＹ＝ＢＹ
  54. ＢＸ＝ＢＸ＋（ＢＶＸ＊ＳＰＤ）
  55. ＢＹ＝ＢＹ＋（ＢＶＹ＊ＳＰＤ）
  56. ’－－－タマトフ゛ロック
  57. Ｘ＝ＦＬＯＯＲ（ＢＸ／８）
  58. Ｙ＝ＦＬＯＯＲ（ＢＹ／８）
  59. Ｃ＝ＣＨＫＣＨＲ（Ｘ，Ｙ）
  60. ＩＦ　Ｃ＝＝－１　ＴＨＥＮ　＠ＣＨＫＷＡＬＬ
  61. Ｃ＄＝ＣＨＲ＄（Ｃ）
  62. ＩＦ　Ｃ＄＝＝”└”　ＴＨＥＮ　＠ＨＩＴＬ
  63. ＩＦ　Ｃ＄＝＝”┘”　ＴＨＥＮ　＠ＨＩＴＬ
  64. ＩＦ　Ｃ＄＝＝”┌”　ＴＨＥＮ　＠ＨＩＴＨ
  65. ＩＦ　Ｃ＄＝＝”┐”　ＴＨＥＮ　＠ＨＩＴＨ
  66. ＩＦ　Ｃ＄＝＝”─”　ＴＨＥＮ　＠ＨＩＴ
  67. ＧＯＴＯ　＠ＣＨＫＷＡＬＬ
  68. ’－－－フ゛ロックテ゛ハンシャ
  69. ＠ＨＩＴＬ
  70. ＩＦ　ＢＶＹ＜０　ＴＨＥＮ　＠ＨＩＴ
  71. ＧＯＴＯ　＠ＨＩＴＸ
  72. ＠ＨＩＴＨ
  73. ＩＦ　ＢＶＹ＞０　ＴＨＥＮ　＠ＨＩＴ
  74. ＠ＨＩＴＸ
  75. ＢＶＸ＝－ＢＶＸ
  76. ＧＯＴＯ　＠ＨＩＴ２
  77. ’－－－フ゛ロックハカイ
  78. ＠ＨＩＴ
  79. ＢＶＹ＝－ＢＶＹ
  80. ’－－－
  81. ＠ＨＩＴ２
  82. ＢＥＥＰ　８
  83. Ｉ＝ＦＬＯＯＲ（（Ｙ－４）／２）
  84. ＳＣ＝ＳＣ＋（（４－Ｉ）＊１０）
  85. Ｉ＝（Ｉ＊１０）＋ＦＬＯＯＲ（（Ｘ－１）／３）
  86. Ｔ＝０：ＧＯＳＵＢ　＠ＰＵＴＢＬＫ
  87. ’－－－クリア
  88. ＢＬＫ＝ＢＬＫ－１
  89. ＩＦ　ＢＬＫ＝＝０　ＴＨＥＮ　ＲＥＱ＝２
  90. ’－－－タマトカヘ゛
  91. ＠ＣＨＫＷＡＬＬ
  92. ＩＦ　ＢＸ＜１６　　ＴＨＥＮ　ＢＸ＝１６：ＧＯＳＵＢ　＠ＲＥＶＸ
  93. ＩＦ　ＢＸ＞２３９　ＴＨＥＮ　ＢＸ＝２３９：ＧＯＳＵＢ　＠ＲＥＶＸ
  94. ＩＦ　ＢＹ＜１６　　ＴＨＥＮ　ＢＹ＝１６：ＧＯＳＵＢ　＠ＲＥＶＹ
  95. ＩＦ　ＢＹ＞２２４　ＴＨＥＮ　＠ＤＥＡＤ
  96. ＩＦ　ＯＬＤＢＹ＞ＰＹ　　ＴＨＥＮ　＠ＰＵＴＡＬＬ
  97. ＩＦ　ＢＹ＜ＰＹ　　ＴＨＥＮ　＠ＰＵＴＡＬＬ
  98. ’－－－フ゜レイヤ－トノハンテイ
  99. Ｘ＝ＡＢＳ（ＢＸ－ＰＸ）
  100. ＩＦ　Ｘ＞２０　ＴＨＥＮ　＠ＰＵＴＡＬＬ
  101. ’－－－ハンシャ
  102. ＧＯＳＵＢ　＠ＲＥＶＹ２
  103. ＢＹ＝ＰＹ－１
  104. ＧＯＴＯ　＠ＰＵＴＡＬＬ
  105. ’－－－タマショキカ
  106. ＠ＤＥＡＤ
  107. ＢＳ＝０：ＢＶＹ＝－２：ＢＹ＝ＰＹ－１
  108. ＬＦ＝ＬＦ－１：ＳＰＤ＝１．０
  109. ＢＥＥＰ　５
  110. ’－－－ケ゛－ムオ－ハ゛－
  111. ＩＦ　ＬＦ＜０　ＴＨＥＮ　ＲＥＱ＝３：ＬＦ＝０
  112. ’－－－
  113. ＠ＰＵＴＡＬＬ
  114. ＧＯＳＵＢ　＠ＰＵＴＢＡＲ
  115. ＧＯＳＵＢ　＠ＰＵＴＢＡＬＬ
  116. ＧＯＳＵＢ　＠ＰＵＴＳＴＡＴ
  117. ＲＥＴＵＲＮ
  119. ’－－－
  120. ＠ＲＥＶＸ
  121. ＢＶＸ＝－ＢＶＸ：ＢＥＥＰ　８
  122. ＳＰＤ＝ＳＰＤ＋０．０５
  123. ＲＥＴＵＲＮ
  125. ’－－－
  126. ＠ＲＥＶＹ
  127. ＳＰＤ＝ＳＰＤ＋０．１
  128. ＠ＲＥＶＹ２
  129. ＢＶＹ＝－ＢＶＹ：ＢＥＥＰ　８
  130. ＲＥＴＵＲＮ
  132. ’－－－
  133. ＠ＰＵＴＢＬＫ
  134. Ｘ＝ＦＬＯＯＲ（Ｉ％１０）＊３＋１
  135. Ｙ＝ＦＬＯＯＲ（Ｉ／１０）
  136. ＣＯＬＯＲ　ＣＬ（Ｙ）
  137. Ｙ＝Ｙ＊２＋４
  138. ＦＯＲ　Ｊ＝０　ＴＯ　１
  139. 　ＬＯＣＡＴＥ　Ｘ，Ｙ＋Ｊ
  140. 　ＰＲＩＮＴ　Ｂ＄（Ｔ，Ｊ）
  141. ＮＥＸＴ
  142. ＣＯＬＯＲ　０
  143. ＲＥＴＵＲＮ
  144. ’－－－
  145. ＠ＰＵＴＢＡＲ
  146. ＳＰＯＦＳ　１，ＰＸ－１６，ＰＹ
  147. ＳＰＯＦＳ　２，ＰＸ，ＰＹ
  148. ＲＥＴＵＲＮ
  149. ’－－－
  150. ＠ＰＵＴＢＡＬＬ
  151. ＩＦ　ＢＳ＝＝０　ＴＨＥＮ　ＢＸ＝ＰＸ：ＢＹ＝ＰＹ－１
  152. ＳＰＯＦＳ　０，ＢＸ－８，ＢＹ－８
  153. ＲＥＴＵＲＮ
  154. ’－－－
  155. ＠ＧＩ
  156. ＶＩＳＩＢＬＥ　０，１，０，０，０，０
  157. ＣＬＳ
  158. ＢＧＭＰＬＡＹ　０
  159. ’
  160. ＢＸ＝１２８：ＢＹ＝２２＊８：ＢＳ＝０
  161. ＢＶＸ＝２：ＢＶＹ＝－２
  162. ＳＰＳＥＴ　０，２５２，２，０，０，０
  163. ＳＰＡＮＩＭ　０，２，４，０
  164. ’－－－
  165. ＰＸ＝１２８：ＰＹ＝２２＊８
  166. ＳＣ＝０：ＬＦ＝９：ＳＰＤ＝１．０
  167. ＳＰＳＥＴ　１，２７２，１２，０，０，１
  168. ＳＰＳＥＴ　２，２７２，１２，１，０，１
  169. ’
  170. ＣＯＬＯＲ　８
  171. ＦＯＲ　Ｉ＝０　ＴＯ　３１：ＰＲＩＮＴ”В”；：ＮＥＸＴ
  172. ＦＯＲ　Ｉ＝１　ＴＯ　２２
  173. 　ＬＯＣＡＴＥ　０，Ｉ：ＰＲＩＮＴ”В”
  174. 　ＬＯＣＡＴＥ　３１，Ｉ：ＰＲＩＮＴ”В”；
  175. ＮＥＸＴ
  176. ＣＯＬＯＲ　０
  177. ’－－－
  178. Ｔ＝１：ＢＬＫ＝０
  179. ＦＯＲ　Ｉ＝０　ＴＯ　１０＊４－１
  180. 　ＧＯＳＵＢ　＠ＰＵＴＢＬＫ
  181. 　ＢＬＫ＝ＢＬＫ＋１
  182. ＮＥＸＴ
  183. ’－－－
  184. ＧＯＳＵＢ　＠ＰＵＴＡＬＬ
  185. ’－－－
  186. ＶＩＳＩＢＬＥ　１，１，０，０，１，０
  187. ＲＥＴＵＲＮ
  189. ’－－－
  190. ＠ＰＵＴＳＴＡＴ
  191. ＬＯＣＡＴＥ　０，２３
  192. ＰＲＩＮＴ”ＳＣＯＲＥ：”；ＳＣ；
  193. ＬＯＣＡＴＥ　２４，２３
  194. ＰＲＩＮＴ”ＬＥＦＴ：”；ＬＦ；
  195. ＲＥＴＵＲＮ
  197. ’┌────┐
  198. ’│タイトル│
  199. ’└────┘
  200. ＠ＴＩ
  201. ＣＬＳ：ＳＰＣＬＲ
  202. ＢＧＭＰＬＡＹ　１５
  203. ＬＯＣＡＴＥ　０，６
  204. ＰＲＩＮＴ”　　　　ВВВл　Вл　　　ВВВВлВВВВлВ　　Вл”
  205. ＰＲＩＮＴ”　　　　ВлВ　　В　　　　Вл　В　Вл　　лВ　ВВ　”
  206. ＰＲＩＮＴ”　　　　ВВВВлВ　　　　В　　В　В　　　　ВВВлл”
  207. ＰＲＩＮＴ”　　　　Вл　В　В　　　　В　　В　В　　　　ВлВВл”
  208. ＰＲＩＮＴ”　　　　ВВВВ　ВВВВлВВВВ　ВВВВлВ　лВ　”
  209. ＰＲＩＮＴ”　　　　л　　　лл　　　лл　　　лл　　　ллл　лл”
  210. ＬＯＣＡＴＥ　８，１４
  211. ＰＲＩＮＴ”ＰＵＳＨ　ＡＮＹ　ＢＵＴＴＯＮ”
  212. ＬＯＣＡＴＥ　４，２２
  213. ＰＲＩＮＴ”（Ｃ）２０１１　ＳｍｉｌｅＢｏｏｍ　Ｃｏ．Ｌｔｄ．”
  214. ＲＥＴＵＲＮ
  215. ’－－－
  216. ＠ＴＭ
  217. ＩＦ　ＯＬＤＢ！＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  218. ＩＦ　Ｂ＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  219. ’－－－
  220. ＲＥＱ＝０
  221. ＲＥＴＵＲＮ
  223. ’┌───┐
  224. ’│クリア│
  225. ’└───┘
  226. ＠ＣＩ
  227. ＢＧＭＰＬＡＹ　４
  228. ＲＥＴＵＲＮ
  229. ’－－－
  230. ＠ＣＭ
  231. ＩＦ　ＢＧＭＣＨＫ（）　ＴＨＥＮ　ＲＥＴＵＲＮ
  232. ＩＦ　Ｂ！＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  233. ＲＥＱ＝１
  234. ＲＥＴＵＲＮ
  236. ’┌─────────┐
  237. ’│ケ゛－ムオ－ハ゛－│
  238. ’└─────────┘
  239. ＠ＥＩ
  240. ＢＧＭＰＬＡＹ　６
  241. ＳＰＣＬＲ
  242. ＬＯＣＡＴＥ　１１，１２
  243. ＰＲＩＮＴ”ＧＡＭＥ　ＯＶＥＲ”
  244. ＲＥＴＵＲＮ
  245. ’－－－
  246. ＠ＥＭ
  247. ＩＦ　ＢＧＭＣＨＫ（）　ＴＨＥＮ　ＲＥＴＵＲＮ
  248. ＩＦ　Ｂ！＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  249. ＲＥＱ＝１
  250. ＲＥＴＵＲＮ