ONEKEY JUMPER by YOSSYREDS

再生

　タイトル通り１ボタンだけで操作する、シンプルなアクションゲーム。
　スタートするとプレイヤーは自動的に右に進んでいく。道には落とし穴が開いているので、タイミングよくＡボタンでジャンプ！
　ジャンプ時、Ａボタンを押し続けているとさらに飛距離の長い２段・３段ジャンプが使えるぞ。先に見える落とし穴との距離を計ってうまく使おう。
　穴に落ちるとゲームオーバー。この画面で十字ボタンを押すとBGMの変更ができる。特に右ボタンは高得点だが難しいハードモードに変更するボタンだ。STARTボタンでゲーム終了を選ぶこともできる。ただし……？

私が作りました

YOSSYREDS

20年前にうまくプログラムを組めなくて挫折したBASICをこの歳で再挑戦できることがとてもうれしく思います。
手始めに単純なワンキーゲームを作りましたので拙作を投稿させていただきます。


 CHECK POiNT 

神崎
反射神経が問われるタイプのゲームだね。ジャンプで飛ぶ距離と落とし穴との位置関係がわかるようになると、ぐっとスリリングになるよ。

博士
コンソール画面を使っていると８ドット単位でしか移動できないのがネックになるかの。これをそのままスプライトやＢＧで１ドット単位のスムーズ移動に書き換えてみるというのも面白そうじゃ。

ワンパク
オイ、シット！　上の説明に書いてあるゲームオーバー画面の操作が反映されねェぞ？　ガッデム、ハイスコアもだぜ！

インテリ
おっと。これは104行以降で決定した変数が、５行目に戻ったことでゼロに戻されてしまったんだね。106行の飛び先を＠ＳＹＯＫＩから＠ＳＴＡＲＴにするだけで回避できるよ。

博士
ホッホッホ、送るときにテキストを書き間違えたかの？　リスタート時に初期設定に戻すことで、大事な変数までリセットしてしまう……プログラムではありがちじゃな。

プログラムリスト

  1. ’бб　ＯＮＥＫＥＹ　ＪＵＭＰＥＲ　бб　ＶＥＲ．１．１
  2. ’ＰＲＯＧＲＡＭＥＤ　ＢＹ　ＹＯＳＳＹＲＥＤＳ
  3. ’ＬＡＳＴ　ＵＰＤＡＴＥ　　２０１１．３．２２
  5. ＠ＳＹＯＫＩ
  6. ＣＬＳ：ＣＬＥＡＲ：ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  7. ＭＳ＝０：ＨＳ＝０：ＨＤ＝０
  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. ＢＧＭＰＬＡＹ　ＭＳ
  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. ＧＯＴＯ　＠ＭＡＩＮ
  70. ＠ＰＡＵＳＥ
  71. ＢＥＥＰ　３
  72. ＣＯＬＯＲ　０：ＬＯＣＡＴＥ　１３，１１
  73. ＰＲＩＮＴ”ＰＡＵＳＥ”
  74. ＦＯＲ　Ｉ＝０　ＴＯ　３００００：ＮＥＸＴ
  75. ＠ＰＬＯＯＰ
  76. Ｋ＝ＢＵＴＴＯＮ（）
  77. ＩＦ　ＫＹ　ＡＮＤ　１０２４　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＥＮＤ：ＲＥＴＵＲＮ
  78. ＧＯＴＯ　＠ＰＬＯＯＰ
  80. ＠ＰＥＮＤ
  81. ＢＥＥＰ　３
  82. ＦＯＲ　Ｉ＝０　ＴＯ　２００００：ＮＥＸＴ
  83. ＬＯＣＡＴＥ　１３，１１：ＰＲＩＮＴ”　　　　　”
  84. ＲＥＴＵＲＮ
  86. ＠ＪＭＰ
  87. ＩＦ　Ｙ＝＝２１　ＴＨＥＮ　Ｙ１＝－１：ＢＥＥＰ　８
  88. ＩＦ　Ｙ＝＝１８　ＡＮＤ　Ｙ１＝＝－１　ＴＨＥＮ　ＢＥＥＰ　８
  89. ＩＦ　Ｙ＝＝１５　ＡＮＤ　Ｙ１＝＝－１　ＴＨＥＮ　ＢＥＥＰ　８
  90. ＲＥＴＵＲＮ
  92. ＠ＯＶＥＲ
  93. ＬＯＣＡＴＥ　２，２１
  94. ＰＲＩＮＴ”　”；
  95. ＣＯＬＯＲ　１３：ＬＯＣＡＴＥ　２，２３
  96. ＰＲＩＮＴ”г”；
  97. ＣＯＬＯＲ　０：ＬＯＣＡＴＥ　１１，１０
  98. ＰＲＩＮＴ”ＧＡＭＥ　ＯＶＥＲ”
  99. ＬＯＣＡＴＥ　９，１２
  100. ＰＲＩＮＴ”ＰＲＥＳＳ　Ａ　ＢＵＴＴＯＮ”
  101. ＢＧＭＰＬＡＹ　６
  102. ＩＦ　ＳＣ＞ＨＳ　ＴＨＥＮ　ＨＳ＝ＳＣ
  103. ＦＯＲ　Ｉ＝０　ＴＯ　３００００：ＮＥＸＴ
  104. ＠ＢＴＮ
  105. ＫＹ＝ＢＵＴＴＯＮ（）
  106. ＩＦ　ＫＹ　ＡＮＤ　１６　ＴＨＥＮ　＠ＳＹＯＫＩ
  107. ＩＦ　ＫＹ　ＡＮＤ　１０２４　ＴＨＥＮ　＠ＧＥＮＤ
  108. ＩＦ　ＫＹ　ＡＮＤ　１　ＴＨＥＮ　ＭＳ＝　０：ＨＤ＝０：ＧＯＳＵＢ　＠ＢＧＭＣＨＧ
  109. ＩＦ　ＫＹ　ＡＮＤ　２　ＴＨＥＮ　ＭＳ＝１４：ＨＤ＝０：ＧＯＳＵＢ　＠ＢＧＭＣＨＧ
  110. ＩＦ　ＫＹ　ＡＮＤ　４　ＴＨＥＮ　ＭＳ＝２３：ＨＤ＝０：ＧＯＳＵＢ　＠ＢＧＭＣＨＧ
  111. ＩＦ　ＫＹ　ＡＮＤ　８　ＴＨＥＮ　ＭＳ＝１３：ＨＤ＝１：ＧＯＳＵＢ　＠ＢＧＭＣＨＧ
  112. ＧＯＴＯ　＠ＢＴＮ
  114. ＠ＢＧＭＣＨＧ
  115. ＣＯＬＯＲ　３：ＬＯＣＡＴＥ　１０，１４
  116. ＰＲＩＮＴ”ＢＧＭ　ＣＨＡＮＧＥ！”
  117. ＣＯＬＯＲ　１３：ＬＯＣＡＴＥ　１８，１
  118. ＩＦ　ＨＤ＝＝１　ＴＨＥＮ　ＰＲＩＮＴ”ＨＡＲＤ　ＭＯＤＥ”
  119. ＩＦ　ＨＤ！＝１　ＴＨＥＮ　ＰＲＩＮＴ”　　　　　　　　　”
  120. ＢＧＭＰＬＡＹ　ＭＳ
  121. ＦＯＲ　Ｉ＝０　ＴＯ　５００００：ＮＥＸＴ
  122. ＬＯＣＡＴＥ　１０，１４：ＰＲＩＮＴ”　　　　　　　　　　　”
  123. ＲＥＴＵＲＮ
  125. ＠ＧＥＮＤ
  126. ＢＧＭＳＴＯＰ：ＥＮＤ