コマンドゲーム by edke

再生

　指示されたボタンを素早く押し続ける、指先に挑戦するアクションゲームだ。
　ゲームスタートすると、十字ボタン・ABXYボタンの表示が黄色く光るので、すかさず同じボタンを押せ！
　ポイントはボタンを「同時押し」しないと正解にならないということ。正解すると次の課題に移るので、次々クリアーしていこう。制限時間内に何回正解できるかな？

私が作りました

edke

BASICを知ったのはつい最近で、まだプチコンが発売前の時にBASICについて調べていたときに、このプチコンを知りました。
このゲームは、指定されたボタンを同時押しするだけの簡単なゲームです。
このゲームで楽しく遊んでくれると嬉しいです。


 CHECK POiNT 

ワンパク
なんと中学生からの投稿だぜ！　こんなファッキンオヤジ向けのソフトをよく……む、ムガガ、放せチキショー！

インテリ
良い子はワンパク君の言葉づかいだけは決して参考にしないようにね。
さておき、きちんと形になっているのはえらい！　ボタン入力の判定なんかは初心者ばなれしているよ。

博士
うむ、ＢＵＴＴＯＮ（）関数の戻り値が１，２，４，８，１６……とべき乗になっていることがポイントじゃな。すなわちボタンが「同時押し」されたとき、どのボタンとボタンの組み合わせでも、何個ボタンを押そうとも、決して他の組み合わせと重なったりしないということじゃ。

神崎
だから、42行のＣ＝Ｐ＋Ａ＋Ｂ＋Ｘ＋Ｙ・45行のＩＦ　ＢＵＴＴＯＮ（）＝＝Ｃ　ＴＨＥＮ……のように答合わせを足し算でまとめられるんだね。

ワンパク
ゼ、ゼエゼエ……、格ゲー好きとしては出題が２連続、３連続で出るってのも見てみたい気がするぜ。

博士
まさに「コマンド」ゲームじゃな。そうなるとサイモンゲームの亜種になるかのう。改造は意外とカンタンかもしれんぞ。

プログラムリスト

  1. ＢＧＭＰＬＡＹ　１６
  2. ＣＬＥＡＲ
  3. ＴＭＲ＝３０
  4. Ｄ＝６０
  5. ＣＬＳ
  6. ＣＯＬＯＲ　０
  7. ＬＯＣＡＴＥ　１０，６
  8. ＰＲＩＮＴ　”┌───────────┐
  9. ＬＯＣＡＴＥ　１０，７
  10. ＰＲＩＮＴ　”│　コマント゛ケ゛－ム　│
  11. ＬＯＣＡＴＥ　１０，８
  12. ＰＲＩＮＴ　”└───────────┘
  13. ＬＯＣＡＴＥ　１０，９
  14. ＰＲＩＮＴ　”ヒカッタホ゛タンヲオシテネ”
  15. ＶＳＹＮＣ　１２０
  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. ＥＮＤ