食べ歩きゲーム by ブリスター・ジョン

再生

　スマイルブーム公式ブログでコラム連載中のブリスター・ジョン氏が発売日翌日にスマイルブーム本社まで持ってきたのがこのプログラム。
　いわゆるスネークゲームのバリエーションで、十字ボタンで操作して伸びていく自分のカラダに当たるとゲームオーバーだ。
　画面上のハートマークを全部取ればステージクリア。ステージが進むほどハートの数も増えていくぞ。

私が作りました

ブリスター・ジョン

25年前の私は配列変数の理屈はわかっても、どう使えばいいのかがどうしても理解できないダメな子で、とうとう「あるけあるけゲーム」を自分で作れませんでした。時は流れていま、作り始めてみると不思議なくらい簡単にできてしまったのです。そうか、フラグの概念を知ったからか？　おーい当時の僕、聞こえるかーい！ お前は25年後にやりとげたぞー！


 CHECK POiNT 

博士
マイコン全盛期にとうとう未完成だったプログラムを、いま完成させて投稿とは泣かせるわい。
ここでは二次配列とフラグの考え方を使っておるんじゃな。たとえばＦＯＯＤ（１２，８）の中身が１とすれば、横12縦8の位置にハートマークがある、ということじゃ。

インテリ
プチコンならＣＨＫＣＨＲでその座標にハートマークがあるか直接調べられるから、あえて配列を使う必要はないんだけど……。

博士
ま、まあその通りじゃがそこがロマンなんじゃろうの。

ワンパク
ファック！　ボタンを押したハズなのに動かないコトが時々あるのはどうしてだ？

神崎
スピード調整でＶＳＹＮＣを10使っているせいかな？　VSYNCの待機中にボタンを押しても取得されないんだね。

博士
ふむ。ここはあえてＶＳＹＮＣ　１にして、10回に１回だけ動くようにループを作るのがいいじゃろうな。その間受け付けたボタン入力を反映すれば解決じゃ。

プログラムリスト

  1. ’＝＝＝ＷＡＬＫＩＮＧ＝＝＝
  3. ’－－－ショキセッテイ
  4. ＣＬＥＡＲ
  5. ＣＯＬＯＲ　０
  6. ＳＰＥＥＤ＝１０
  7. ＦＯＯＤＭＡＸ＝５
  8. ＤＩＭ　ＥＮＥＭＹ（３２，２４）
  9. ＤＩＭ　ＦＯＯＤ（３２，２４）
  10. ＳＴＡＧＥ＝１
  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. Ｂ１＝０
  55. ’－－－ニュウリョク
  56. ＠ＩＮＢＴＮ
  57. Ｂ＝ＢＵＴＴＯＮ（）
  58. ＩＦ　Ｂ＝＝０　ＡＮＤ　Ｂ１＝＝０　ＴＨＥＮ　＠ＩＮＢＴＮ
  59. ＢＧＭ＝ＢＧＭＣＨＫ（）
  60. ＩＦ　ＢＧＭ＝＝０　ＴＨＥＮ　ＢＧＭＰＬＡＹ　７
  61. ＩＦ　Ｂ＝＝０　ＴＨＥＮ　Ｂ＝Ｂ１
  63. ’－－－イト゛ウ
  64. ＠ＭＯＶＥ
  65. ＣＯＬＯＲ　ＢＯＤＹＣＯＬ
  66. ＬＯＣＡＴＥ　ＰＸ，ＰＹ：ＰＲＩＮＴ”┿”；
  67. ＣＯＬＯＲ　０
  68. ＥＮＥＭＹ（ＰＸ，ＰＹ）＝１
  69. ＩＦ　Ｂ＝＝１　ＴＨＥＮ　ＰＹ＝ＰＹ－１：Ｂ１＝Ｂ
  70. ＩＦ　Ｂ＝＝２　ＴＨＥＮ　ＰＹ＝ＰＹ＋１：Ｂ１＝Ｂ
  71. ＩＦ　Ｂ＝＝４　ＴＨＥＮ　ＰＸ＝ＰＸ－１：Ｂ１＝Ｂ
  72. ＩＦ　Ｂ＝＝８　ＴＨＥＮ　ＰＸ＝ＰＸ＋１：Ｂ１＝Ｂ
  73. ＬＯＣＡＴＥ　ＰＸ，ＰＹ
  74. ＰＲＩＮＴ”＠”；
  75. ＩＦ　ＥＮＥＭＹ（ＰＸ，ＰＹ）＝＝１　ＴＨＥＮ　＠ＧＡＭＥＯＶＥＲ
  76. ＩＦ　ＦＯＯＤ（ＰＸ，ＰＹ）＝＝１　ＴＨＥＮ　ＧＯＳＵＢ　＠ＧＥＴＦＯＯＤ
  77. ＶＳＹＮＣ　ＳＰＥＥＤ
  78. ＧＯＴＯ　＠ＩＮＢＴＮ
  80. ’－－－エサ　ケ゛ット
  81. ＠ＧＥＴＦＯＯＤ
  82. ＢＥＥＰ　７
  83. ＦＯＯＤＮＯＷ＝ＦＯＯＤＮＯＷ－１
  84. ＩＦ　ＦＯＯＤＮＯＷ＝＝０　ＴＨＥＮ　＠ＳＴＡＧＥＣＬＲ
  85. ＢＯＤＹＣＯＬ＝ＢＯＤＹＣＯＬ＋１
  86. ＩＦ　ＢＯＤＹＣＯＬ＝＝１６　ＴＨＥＮ　ＢＯＤＹＣＯＬ＝２
  87. ＲＥＴＵＲＮ
  89. ’－－－ステ－シ゛クリア
  90. ＠ＳＴＡＧＥＣＬＲ
  91. ＢＧＭＰＬＡＹ　４
  92. ＬＯＣＡＴＥ　１１，１１
  93. ＰＲＩＮＴ”ＳＴＡＧＥ　ＣＬＥＡＲ”；
  94. ＶＳＹＮＣ　１５０
  95. ＳＴＡＧＥ＝ＳＴＡＧＥ＋１
  96. ＧＯＴＯ　＠ＭＡＰ
  98. ’－－－ケ゛－ムオ－ハ゛－
  99. ＠ＧＡＭＥＯＶＥＲ
  100. ＢＥＥＰ　１３
  101. ＶＳＹＮＣ　１２
  102. ＢＧＭＰＬＡＹ　６
  103. ＬＯＣＡＴＥ　１１，１１
  104. ＰＲＩＮＴ”ＧＡＭＥ　ＯＶＥＲ”；
  105. ＥＮＤ