プチコンまとめArchive

投稿プログラム : ブロックキャッチ

パンくずリスト

このページの最終更新 : 2022/09/20 (火) 12:44:15
公式アーカイブのリンク:http://wiki.hosiken.jp/petc/html/Toukou/A5-D6-A5-ED-A5-C3-A5-AF-A5-AD-A5-E3-A5-C3-A5-C1-.html

2011年05月04日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム シューティングゲーム QRコード 初代対応

概要

二人で遊ぶゲームです

子見出し1

上から落ちて来るブロックをキャッチするゲームです LまたはRを短く押すと方向転換 長く押すと瞬間移動

一人でいろいろルールを作っても面白いと思います 例えば二つともブロックを取らないようにするとか

子見出し2

初めて作ったプログラムです 携帯からの投稿です 何か面白いルールなどを思いついたら教えてください

スクリーンショット・動画

BLOCK12.SS.png

QR コード

プチコンmkII 向けの QR コードです。

おことわり

このＱＲコードは作者本人がアップロードしたものではありません。 また、２点ほど変更点があります。

  • 初期画面辺りを変更しました。
  • mkII専用命令（ＡＣＬＳ、新ＶＳＹＮＣ）を取り入れました。

    以上のことをふまえてご利用をお願いします。
    BLOCK11.PRGSSC.png

プログラムリスト

※ 天郷思音（わぁぃ＠）さんにより、スペースの抜けや打ち間違いが多数修正されました。ご協力ありがとうございます。(2011/9/18) ※ 地味に無駄があったので勝手に修正。（このリストは初代にも対応しています。）(2013/06/09 10:38:53)

  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. ＧＯＴＯ　＠ＯＷＡＲＩＤＡ

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • こうた : なぜか入力するとエラるけど。 (2011/09/02 (金) 17:49:35)
  • こうた : 15行め。 (2011/09/02 (金) 18:20:39)
  • こうた : ↑間違えた。64行め (2011/09/03 (土) 09:42:50)
  • わぁぃ＠ : ↑「AND」の前と後にスペースを入れてみてください。 (2011/09/10 (土) 18:07:29)
  • わぁぃ＠ : 操作方法が分からない。なので
    ・十字キー操作
    ・1人用モード
    ・VS COMモード
    などのアレンジを施したバージョンを作成した。 (2011/09/13 (火) 22:48:37)
  • こうた : わぁい@へ　やっぱできない (2011/09/16 (金) 18:39:23)
  • わぁぃ＠ : 私が修正したリストの間違いは1.スペースの入れ忘れ、2.「"」が「’」になっている。の2つ。他に間違いが無いか確認中。・・・それにしても間違い多いな。 (2011/09/16 (金) 19:54:23)
  • 名無しさん : 64行目と65行目の'<=9'の後ろに')'が抜けてる。 (2011/09/17 (土) 20:31:02)
  • わぁぃ@ : ↑気づかなかった。 (2011/09/17 (土) 22:42:55)
  • 名無しさん : カッコ打ち込むときは()のセットを先に打ち込んでから中身を書くといいよ (2011/09/18 (日) 02:20:51)
  • こうた : できたぁぁぁぁぁぁぁぁぁぁぁぁぁ! (2011/11/28 (月) 17:23:01)
  • わぁぃ@ : ブロックキャッチの画像公開してますのでなんだったらここに載せてもいいですよ。(URLはOFコーナーにあります。) (2011/11/28 (月) 17:31:02)
  • 名無しさん : ＱＲプリーズ (2012/06/04 (月) 19:37:11)
  • 名無しさん : プログラムの始めに「PNLTYPE゛OFF゛」と命令すれば下画面のキーボードが気にならない。 (2013/06/09 (日) 02:44:54)
  • 天郷思音（わぁぃ＠） : このプログラムを極限まで圧縮したらファイルサイズが20%以上減ったww (2013/06/09 (日) 10:09:37)