秘宝の谷 by たけぽん

再生

　どこか懐かしいアクションゲーム。落下しながら黄色のダイヤを探そう！
　十字ボタン左右で移動。岩に乗り上げてしまうと、どんどん上に流されて押しつぶされる危機だ。リンゴを取れば位置が下がるので、少しずつでも距離をかせいでおこう。
　ダイヤを取ればステージクリア。どんどん高速になっていく降下についていけるかな？

私が作りました

たけぽん

PC-8001まだ持ってます。


 CHECK POiNT 

神崎
こっちは１画面プログラムを４画面ならべた「４画面プログラム」だね。

ワンパク
横画面にハミ出さないようにプログラムするのもタイヘンなんだぜ、ガッデム！　男だったらハミ出してみろや！

博士
いや、それもどうじゃろう。
このゲームは下方向にスクロールしていくわけじゃが、簡単に言えばどんどん最上段を消しながら最下段を追加し続けているということじゃな。

インテリ
コンソール画面は最下段に１行書き足すと自動的に１行繰り上がるから、こういうスクロールには相性がいいんだね。

博士
かつてのBASICでも基本じゃったのう。逆に上に昇っていく「逆スクロール」は鬼門じゃった……時代を感じるわい。

プログラムリスト

  1. ’ヒホウノタニ
  2. ＣＬＳ：ＣＬＥＡＲ：ＶＩＳＩＢＬＥ　１，１，０，０，０，０
  3. ＠ＨＡＪＩＭＥ
  4. ＳＣ＝０：ＲＯ＝１
  6. ＠ＳＴＡＲＴ
  7. ＣＬＳ：ＣＯＬＯＲ　１５：ＬＯＣＡＴＥ　１２，５
  8. ＰＲＩＮＴ　”ＬＥＶＥＬ”；ＲＯ：ＢＧＭＳＴＯＰ
  9. ＬＯＣＡＴＥ　１２，９：ＰＲＩＮＴ　”ＲＥＡＤＹ！”
  10. ＣＯＬＯＲ　１３：Ｘ＝１５：Ｙ＝１５：ＤＥ＝０
  11. ＷＴ＝８００１－ＲＯ＊１０００
  12. ＩＦ　ＷＴ＜１　ＴＨＥＮ　ＷＴ＝１
  13. ＦＯＲ　Ｋ＝０　ＴＯ　２２
  14. ＬＯＣＡＴＥ　０，Ｋ：ＰＲＩＮＴ　”┷”；
  15. ＬＯＣＡＴＥ　３１，Ｋ：ＰＲＩＮＴ　”┷”；：ＮＥＸＴ
  16. ＦＯＲ　Ｋ＝０　ＴＯ　５００００：ＮＥＸＴ
  17. ＢＧＭＰＬＡＹ　１４
  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. ＧＯＴＯ　＠ＭＡＩＮ
  49. ＠ＤＲＡＷＡＰＰ
  50. ＣＯＬＯＲ　１２：Ｋ＝ＲＮＤ（３０）＋１
  51. ＬＯＣＡＴＥ　Ｋ，２２：ＰＲＩＮＴ　”Ш”；
  52. ＲＥＴＵＲＮ
  54. ＠ＨＩＨＯＵ
  55. ＣＯＬＯＲ　３：ＬＯＣＡＴＥ　ＲＮＤ（３０）＋１，２２
  56. ＰＲＩＮＴ　”б”；：ＤＥ＝ＤＥ－３０：ＲＥＴＵＲＮ
  58. ＠ＴＡＫＡＲＡ
  59. Ｋ＝Ｘ－１：ＩＦ　Ｋ＜１　ＴＨＥＮ　Ｋ＝１
  60. Ｊ＝Ｙ－２：ＩＦ　Ｊ＜０　ＴＨＥＮ　Ｊ＝０
  61. ＣＯＬＯＲ　９：ＬＯＣＡＴＥ　Ｋ，Ｊ
  62. ＰＲＩＮＴ　”ヤッタ－”；：ＬＯＣＡＴＥ　Ｋ，Ｊ＋１
  63. ＰＲＩＮＴ　”＼　／”；：ＳＣ＝ＳＣ＋１０００
  64. ＲＯ＝ＲＯ＋１：ＢＧＭＰＬＡＹ　４
  65. ＦＯＲ　Ｋ＝０　ＴＯ　４００００：ＮＥＸＴ
  66. ＧＯＴＯ　＠ＳＴＡＲＴ
  68. ＠ＡＰＰＬＥ
  69. ＦＯＲ　Ｋ＝０　ＴＯ　１００：ＣＯＬＯＲ　ＲＮＤ（１５）
  70. ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ　”г”；
  71. ＦＯＲ　Ｊ＝０　ＴＯ　１００：ＮＥＸＴ
  72. ＮＥＸＴ：ＢＥＥＰ　１２，２２５０，９０，０
  73. ＳＣ＝ＳＣ＋５０
  74. ＬＯＣＡＴＥ　Ｘ，Ｙ：ＰＲＩＮＴ　”　”；
  75. Ｙ＝Ｙ＋１：ＩＦ　Ｙ＞２０　ＴＨＥＮ　Ｙ＝２０
  76. ＲＥＴＵＲＮ
  78. ＠ＯＶＥＲ
  79. ＢＧＭＰＬＡＹ　３
  80. ＦＯＲ　Ｋ＝０　ＴＯ　１００：ＣＯＬＯＲ　ＲＮＤ（１５）
  81. ＬＯＣＡＴＥ　Ｘ，０：ＰＲＩＮＴ　”м”；
  82. ＦＯＲ　Ｊ＝０　ＴＯ　５００：ＮＥＸＴ
  83. ＮＥＸＴ：ＢＧＭＰＬＡＹ　１５：ＣＯＬＯＲ　１５
  84. ＬＯＣＡＴＥ　１１，６：ＰＲＩＮＴ　”ＧＡＭＥ　ＯＶＥＲ”
  85. ＬＯＣＡＴＥ　１２，８：ＰＲＩＮＴ　”ＬＥＶＥＬ　”；ＲＯ
  86. ＬＯＣＡＴＥ　１１，１１：ＰＲＩＮＴ”ＳＣＯＲＥ　”；ＳＣ
  87. ＬＯＣＡＴＥ　１０，１７
  88. ＰＲＩＮＴ　”ＨＩＴ　Ａ　ＢＵＴＴＯＮ”；
  89. ＠ＡＢＵＴＴＯＮ
  90. Ｋ＝ＢＵＴＴＯＮ（）
  91. ＩＦ　Ｋ　ＡＮＤ　１６　ＴＨＥＮ　＠ＨＡＪＩＭＥ
  92. ＩＦ　Ｋ　ＡＮＤ　１０２４　ＴＨＥＮ　＠ＢＧＳＴＯＰ
  93. ＧＯＴＯ　＠ＡＢＵＴＴＯＮ
  95. ＠ＢＧＳＴＯＰ
  96. ＢＧＭＳＴＯＰ：ＥＮＤ