むりやりガッチ！ by 三毛乱ジェロ

再生

　手数制限付きのハラハラドキドキのパズルゲーム。
　ゲームスタートして右側に表示される、でこぼこの赤いブロック。これと凸凹がピッタリ合わさるように左側の青いブロックを削っていこう。
　十字ボタンでカーソル移動、Ａボタンで「カーソルより右にあるブロックを全部」削る。うまく削り終わったらＲボタンで判定開始！　そうそう、画面下にある緑色の「手数」を使い切ってしまうと強制的に判定が始まってしまうぞ。

私が作りました

三毛乱ジェロ

MSXでBASICを覚え、windowsでその複雑さに心が折れた者です。
歳は取ってもアイデアは枯れないよ。


 CHECK POiNT 

ワンパク
ウォオー！　分かっているハズなのに、つい、つい余計にケズっちまったァー！

博士
攻略法はわかっても、つい見た目に惑わされて失敗してしまうようじゃの。単純なようでアイデアの勝利じゃ。

インテリ
ステージが進むとブロックの区切り目が見えなくなってますます難しくなるね。リストでは一見同じに見えるけど、「■■■」と「┿┿┿」のように大きい四角記号・小さい四角記号の切り替えで作っているんだ。

神崎
65行目の左側はSHIFTキーを押して入力するスキマつきの■、右側はSHIFTキーを使わないスキマなしの┿。66行目はスキマなし、95行目はスキマつきだから入力するときは気を付けて！

博士
判定は最上段の１行を常に「合致している」基準にして、その下の行の赤青ブロック合計数も１行目と同じか、という順序で判定しておるのじゃな。
感覚的には行単位で判定するよりも、青ブロックをまとめて近づけたときに最初に合致しなかった部分がエラーになる、という見せ方の方がしっくりくるじゃろうか。その分プログラムは複雑になってしまうじゃろうが……

ワンパク
……ハッ!?　オ、オレが１行目だけは常にカンペキだと思っていたのにはそういう秘密が……！

博士
……こういうやつもおるしのう。

プログラムリスト

  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. ＳＰＯＦＳ　０，Ｘ＊８，Ｙ＊８
  118. ＧＯＴＯ　＠ＭＡＩＮ
  119. ’
  120. ＠ＤＩＧ
  121. ＩＦ　Ａ（Ｙ）＜Ｘ　ＴＨＥＮ　ＲＥＴＵＲＮ
  122. ＦＯＲ　Ｉ＝Ｘ　ＴＯ　Ａ（Ｙ）
  123. 　ＬＯＣＡＴＥ　Ｉ，Ｙ：ＰＲＩＮＴ　”　”
  124. ＮＥＸＴ
  125. ＢＥＥＰ　３
  126. Ａ（Ｙ）＝Ｘ－１
  127. ＴＥ＝ＴＥ－１
  128. ＬＯＣＡＴＥ　ＴＥ＋１，２１：ＰＲＩＮＴ　”　”
  129. ＲＥＴＵＲＮ
  130. ’
  131. ＠ＪＵＤＧＥ
  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. ’
  188. ’　？オワリ
  189. ’
  190. ＠ＳＨＵＲＹＯＵ
  191. ＢＧＭＳＴＯＰ
  192. ＥＮＤ