プチコンまとめWiki (初代/mkII)

投稿プログラム : 迷路ゲーム

パンくずリスト

2013年2月20日投稿 / 投稿者 : shiro / タグ : 投稿プログラム ゲーム 迷路 QRコード mkII専用

概要

簡単な2次元迷路ゲームです。

遊び方

実行すると、下画面に迷路が表示されます。
左上にある青い点を、ペンでドラッグして右下のゴールまで運んでください。
途中で道を外れたり、ペンが画面から離れると、スタートまで戻されます。
ゴールに辿りついた後、画面をタップすると次の迷路が表示されます。

一言

穴掘り法の迷路作成を試したくて、1日で簡単に作りました。
ゲームはおまけです(^^)

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

photo1.jpg
photo2.jpg

QR コード

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

PRG:MAZE
1/22/2
maze-qr0.pngmaze-qr1.png

プログラムリスト

  1. ’＊＊＊　メイロ　＊＊＊
  3. ＠ＳＴＡＲＴ
  5. ’＝＝＝　ショキ　セッテイ　＝＝＝
  7. ＣＬＥＡＲ
  8. ＡＣＬＳ
  9. ＰＮＬＴＹＰＥ　”ＯＦＦ”
  10. ＤＩＭ　Ｍ（３２，２４），ＳＸ（５００），ＳＹ（５００）
  11. ＤＩＭ　ＤＸ（５），ＤＹ（５）
  13. ＤＸ（１）＝０　：ＤＹ（１）＝−１
  14. ＤＸ（２）＝０　：ＤＹ（２）＝１
  15. ＤＸ（３）＝−１：ＤＹ（３）＝０
  16. ＤＸ（４）＝１　：ＤＹ（４）＝０
  18. ’＝＝＝　メイロ　サクセイ（アナホリ　ホウ）　＝＝＝
  20. ＦＯＲ　Ｙ＝０　ＴＯ　２２
  21. ＰＮＬＳＴＲ　０，Ｙ，”■”＊３１
  22. ＮＥＸＴ　Ｙ
  24. ’−−−　スタ−ト　−−−
  26. Ｘ＝２９：Ｙ＝２１
  27. ＰＮＬＳＴＲ　Ｘ，Ｙ，”　”
  28. Ｍ（Ｘ，Ｙ）＝１
  29. ＳＰ＝０
  31. ’−−−　アナホリ　ル−フ゜　−−−
  32. ＠ＨＯＲＩＬＯＯＰ
  34. ’ホウコウ　チェック
  36. ＣＨ＝０
  37. ＦＯＲ　Ｄ＝１　ＴＯ　４
  38. ＣＸ＝Ｘ＋ＤＸ（Ｄ）＊２
  39. ＣＹ＝Ｙ＋ＤＹ（Ｄ）＊２
  40. ＩＦ　ＣＸ＜０　ＯＲ　ＣＸ＞３０　ＴＨＥＮ　＠ＣＮＥＸＴ
  41. ＩＦ　ＣＹ＜０　ＯＲ　ＣＹ＞２２　ＴＨＥＮ　＠ＣＮＥＸＴ
  42. ＩＦ　Ｍ（ＣＸ，ＣＹ）＝＝０　ＴＨＥＮ　ＣＨ＝ＣＨ＋ＰＯＷ（２，Ｄ−１）
  43. ＠ＣＮＥＸＴ
  44. ＮＥＸＴ　Ｄ
  46. ’イキト゛マリ　ナラ　スタック　シュトク
  48. ＩＦ　ＣＨ＞０　ＴＨＥＮ　＠ＤＬＯＯＰ
  50. ＩＦ　ＳＰ＝＝０　ＴＨＥＮ　＠ＨＥＮＤ
  51. ＳＴ＝ＲＮＤ（ＳＰ）＋１
  52. Ｘ＝ＳＸ（ＳＴ）：Ｙ＝ＳＹ（ＳＴ）
  53. ＦＯＲ　Ｓ＝ＳＴ＋１　ＴＯ　ＳＰ
  54. ＳＸ（Ｓ−１）＝ＳＸ（Ｓ）
  55. ＳＹ（Ｓ−１）＝ＳＹ（Ｓ）
  56. ＮＥＸＴ　Ｓ
  57. ＳＰ＝ＳＰ−１
  58. ＧＯＴＯ　＠ＨＯＲＩＬＯＯＰ
  60. ’アナホリ　ホウコウ　ケッテイ
  62. ＠ＤＬＯＯＰ
  63. Ｄ＝ＲＮＤ（４）＋１
  64. ＩＦ　（ＣＨ　ＡＮＤ　ＰＯＷ（２，Ｄ−１））＝＝０　ＴＨＥＮ　＠ＤＬＯＯＰ
  66. ’アナホリ
  68. ＨＸ＝Ｘ＋ＤＸ（Ｄ）
  69. ＨＹ＝Ｙ＋ＤＹ（Ｄ）
  70. Ｍ（ＨＸ，ＨＹ）＝１
  71. ＰＮＬＳＴＲ　ＨＸ，ＨＹ，”　”
  72. ＨＸ＝ＨＸ＋ＤＸ（Ｄ）
  73. ＨＹ＝ＨＹ＋ＤＹ（Ｄ）
  74. Ｍ（ＨＸ，ＨＹ）＝１
  75. ＰＮＬＳＴＲ　ＨＸ，ＨＹ，”　”
  77. ’ワカレミチ　スタック
  79. ＣＨ＝ＣＨ−ＰＯＷ（２，Ｄ−１）
  80. ＩＦ　ＣＨ＞０　ＴＨＥＮ　ＳＰ＝ＳＰ＋１：ＳＸ（ＳＰ）＝Ｘ：ＳＹ（ＳＰ）＝Ｙ
  82. Ｘ＝ＨＸ：Ｙ＝ＨＹ
  84. ＧＯＴＯ　＠ＨＯＲＩＬＯＯＰ
  86. ’−−−　アナホリ　シュウリョウ　−−−
  87. ＠ＨＥＮＤ
  89. ＰＮＬＳＴＲ　１，０，”　”
  90. Ｍ（１，０）＝１
  91. ＰＮＬＳＴＲ　２９，２２，”　”
  92. Ｍ（２９，２２）＝１
  94. ’＝＝＝　ケ゛−ム　スタ−ト　＝＝＝
  96. ＢＧＭＰＬＡＹ　４
  98. ＠ＧＳＴＡＲＴ
  100. ＧＰＡＧＥ　１
  101. ＧＣＬＳ
  102. ＳＸ＝１２：ＳＹ＝４
  103. ＧＸ＝ＳＸ：ＧＹ＝ＳＹ
  104. ＧＣＩＲＣＬＥ　ＧＸ，ＧＹ，１，６
  106. ＬＯＣＡＴＥ　０，０
  107. ＰＲＩＮＴ　”ヒタ゛リウエノ　アオイ　ホ゜イントヲ”
  108. ＰＲＩＮＴ　”ヘ゜ンテ゛　ト゛ラック゛シテ”
  109. ＰＲＩＮＴ　”ミキ゛シタノ　コ゛−ルマテ゛　ハコンテ゛　クタ゛サイ。”
  110. ＰＲＩＮＴ
  111. ＰＲＩＮＴ　”ミチヲ　ハス゛レタリ”
  112. ＰＲＩＮＴ　”ヘ゜ンカ゛　ハナレルト”
  113. ＰＲＩＮＴ　”スタ−トニ　モト゛サレマス。”
  115. ＠ＳＬＯＯＰ
  116. ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ
  117. ＩＦ　ＡＢＳ（ＴＸ−ＳＸ）＞４　ＯＲ　ＡＢＳ（ＴＹ−ＳＹ）＞４　ＴＨＥＮ　＠ＳＬＯＯＰ
  119. ＬＯＣＡＴＥ　０，０
  120. ＦＯＲ　Ｉ＝１　ＴＯ　７
  121. ＰＲＩＮＴ　”　”＊３１
  122. ＮＥＸＴ　Ｉ
  123. ＢＧＭＰＬＡＹ　１４
  125. ’−−−　タッチ　ル−フ゜　−−−
  126. ＠ＴＣＨＬＯＯＰ
  128. ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＢＥＥＰ　１３：ＧＯＴＯ　＠ＧＳＴＡＲＴ
  129. ＴＸ＝ＴＣＨＸ：ＴＹ＝ＴＣＨＹ
  130. ＣＸ＝ＦＬＯＯＲ（ＴＸ／８）
  131. ＣＹ＝ＦＬＯＯＲ（ＴＹ／８）
  132. ＩＦ　Ｍ（ＣＸ，ＣＹ）＝＝０　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＢＥＥＰ　１３：ＧＯＴＯ　＠ＧＳＴＡＲＴ
  134. ＧＸ＝ＴＸ：ＧＹ＝ＴＹ
  135. ＧＣＩＲＣＬＥ　ＧＸ，ＧＹ，１，６
  136. ＩＦ　ＣＸ＝＝２９　ＡＮＤ　ＣＹ＝＝２２　ＴＨＥＮ　＠ＧＯＡＬ　ＥＬＳＥ　＠ＴＣＨＬＯＯＰ
  138. ’＝＝＝　コ゛−ル　＝＝＝
  139. ＠ＧＯＡＬ
  141. ＢＧＭＰＬＡＹ　５
  142. ＬＯＣＡＴＥ　９，１１
  143. ＰＲＩＮＴ　”★★★　ＧＯＡＬ　★★★”
  144. ＷＡＩＴ　２００
  146. ＠ＴＬＯＯＰ
  147. ＩＦ　ＴＣＨＳＴ＝＝０　ＴＨＥＮ　＠ＴＬＯＯＰ
  149. ＧＯＴＯ　＠ＳＴＡＲＴ

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

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

  • shiro : 分かれ道スタックの処理にバグがあったので修正しました。できあがる迷路は実質変わらないようですが。 (2013/02/20 (水) 19:18:03)
  • Ittan : 穴堀式は公式投稿プログラム集にも似たものがありましたね。こっちは2マスずつ開けているのでカクカクが少ない感じがしますね。 (2013/02/20 (水) 21:51:11)
  • shiro : x座標・y座標が偶数の所に通路が来るようにしているので、確かに公式のプログラムより曲がりは少なくなります。あとは掘りながら分かれ道が作れるポイントをスタックしておいて、行き詰まったらそのスタックのポイントから分岐する所が相違点でしょうか。 (2013/02/21 (木) 00:41:39)
  • shiro : 実は中学生時代に雑誌で見て打ち込んだ、PC-8001用の迷路プログラムを思い出しながら作りました。PC-8001はグラフィック画面を印刷する機能が無く、プリンタのPC-PRコマンドを組み合わせて何とか迷路の印刷ルーチンを作ったものでした。 (2013/02/21 (木) 00:47:39)
  • shiro : ↑間違えました。通路は奇数座標ですね。 (2013/02/21 (木) 00:53:13)
  • 名無しさん : おおーすごい！ (2013/02/21 (木) 18:40:44)
  • なーゆ : イライラ棒w (2013/02/23 (土) 15:12:23)
  • E.T : なんびょうでいけたかのひょうじきのうは簡単につけられる (2013/04/03 (水) 13:02:54)
  • 猫姫 : 事後で申し訳ありませんが、迷路作成ルーチンをゲーム製作に利用させていただきました。 (2013/04/24 (水) 05:06:53)
  • .EXE : 迷路作成システムを利用してもよろしいですか? (2013/04/30 (火) 11:53:42)
  • shiro : どうぞ (2013/04/30 (火) 18:39:32)
  • プチコンのキャラ : これは電撃イライラ棒?? (2013/05/30 (木) 16:47:22)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.109 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:08 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30