TREASURE TRAIL by jojo3

再生

　なかなか気の抜けないスリリングなアクションレースゲームだ。
　基本は十字ボタン左右で移動、レンガブロックをかわしながら、黄色に輝くお宝を取ってスコアを上げること。
　しかしこのマシンの燃費の悪さがクセモノ。だんだん減っていく画面上部の燃料メーターが「Ｅ」になってしまうとゲームオーバーだ。緑色のＦマークを取って、燃料をコマメに補給しておこう。
　もちろんレンガブロックに当たってもゲームオーバー。厳しい条件下で、何点まで得点できるか挑戦だ！

作ったのはこの人

jojo3

なんとはるばる日本を縦断して札幌でプログラムを通信してくれたのがこの人。

もちろん本題は夫婦のご旅行ながら、その行動力には脱帽！　BASICがなんだか分からない奥様は濃い会話にあきれながら、楽しそうに見守ってくださいました。


 CHECK POiNT 

神崎
はるばる遠方からスマイルブームまで届けに来てくれたプログラムだよ。

ワンパク
いよいよ何でもアリになってきたな、オイ！　これだけ長いキョリを移動して短い通信範囲まで来るとか、なんだかよくわからねえがロックじゃねえか！

博士
ロックの定義はともかく、プログラムもなかなか凝っておるぞ。夜間運転の設定で、プレイヤーのライトの範囲外は暗くなるように描いているんじゃな。初期ウルテ●マを思わせる工夫じゃわい。

インテリ
160行以降で色を調整しているけど、難しいようでＡＢＳ関数を使って意外とシンプル。自分のプログラムにも応用しやすいんじゃないかな。

プログラムリスト

  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. ＠ＣＤＡＴＡ　’キャラクタ－
  193. 　ＤＡＴＡ　＆ＨＥＣ，＆Ｈ０３，＆Ｈ４６，＆ＨＦ２，＆Ｈ１Ｄ，＆Ｈ１Ｃ，＆Ｈ２Ｅ
  194. ’
  195. ＠ＥＤＡＴＡ　’マワル・クルマ
  196. 　ＤＡＴＡ　＆ＨＥＣ，＆ＨＥＤ，＆ＨＥＥ，＆ＨＥＦ
  197. ＥＮＤ