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

投稿プログラム : Minesweeper SEMI-AUTO

パンくずリスト

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

概要

Windowsでおなじみのマインスイーパーを移植してみました。

操作方法

タッチペンだけで遊べること、なるべくうっかりミスで死なないことを目指し
Windows版と一部操作系を変えています

  1. 上下左右斜めに隣り合うマスがすべて灰色(まだ開けられていない)マスをタッチしたならばそのマスを開く
  2. 隣り合うマスにすでに開いてあるマス(数字が書いてあるマス)がある灰色マスをタッチしたならばそのマスに旗を建てる
  3. 旗のたっているマスをタッチしたならば旗を片付ける
  4. 数字マスをタッチし、その数字と隣り合うマスに建っている旗の数が一緒ならば
    周りの旗以外のマスをすべて開く(答え合わせする）
    旗の数と数字が違っている場合は何も起こりません。
    数字の0のマスを開けた場合は続けてその周りのマスを自動で開いていきます。
  5. これを繰り返し、(フィールドのマス数-地雷の数)分だけマスを開くことができればクリアです。
    全ての地雷に旗を建てる必要はありません。

他

個人的にDSとマインスイーパはすごく相性がいいと思います
6行目の数字を変えることでマスの数を変えることができますが16×16(Windowsの中級に相当)ぐらいまでにしておくのが無難です。

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

9x9.jpg
16x16.jpg
24x36.jpg

QR コード

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

PRG:MAINSWP
qr000.pngqr001.png

プログラムリスト

  1. ＣＬＥＡＲ：ＰＮＬＴＹＰＥ”ＯＦＦ”
  2. ＧＰＡＧＥ　０：ＧＣＬＳ　０
  3. ＧＰＡＧＥ　１：ＧＣＬＳ　０
  5. ’マスノヨコ，タテ，シ゛ライノカス゛
  6. ＸＸ＝　９：ＹＹ＝　９：ＢＯＭＢ＝１０
  7. ’ＸＸ＝１６：ＹＹ＝１６：ＢＯＭＢ＝　４０
  8. ’ＸＸ＝３６：ＹＹ＝２４：ＢＯＭＢ＝１３０
  9. Ｚ＝１９２／ＹＹ：ＲＴ＝９９９９
  11. ’マスノモシ゛トイロ
  12. ＤＩＭ　Ｎ＄（１２），Ｃ（１２），Ｖ（ＸＸ＋２，ＹＹ＋２）
  13. ＦＯＲ　Ｉ＝０　ＴＯ　１１：ＲＥＡＤ　Ｎ＄（Ｉ）：ＮＥＸＴ
  14. ＦＯＲ　Ｉ＝０　ＴＯ　１１：ＲＥＡＤ　Ｃ（Ｉ）：ＮＥＸＴ
  15. ＤＡＴＡ　，１７，０２５３６８，０２５４５８６
  16. ＤＡＴＡ　０３５２８，２０３５８６，２０６８５３，０２７
  17. ＤＡＴＡ　０３６８０，０８６２，６０５３，
  18. ＤＡＴＡ　６，８，８，８，８，８，８，８，８，２，１５，１
  20. ’クリアシ゛ノテ゛ータコウシン
  21. ＠ＳＴＧＣＬＲ
  22. ＣＬＳ：？”ＭＩＮＥ　ＳＷＥＥＰＥＲ　ＳＥＭＩ−ＡＵＴＯ”
  23. ＬＯＣＡＴＥ　８，４：？”クリアカイスウ　　ｘ”，ＣＣ
  24. ＣＣ＝ＣＣ＋１：ＩＦ　ＣＣ＝＝１　ＧＯＴＯ　＠ＳＴＡＲＴ
  25. ＩＦ　ＲＴ＞Ｔ　ＴＨＥＮ　ＲＴ＝Ｔ
  26. ？，，”サイタンキロク”，，ＲＴ；”　Ｓ　　　”
  27. ＳＴ＝ＳＴ＋Ｔ：Ｍ＝ＦＬＯＯＲ（ＳＴ／（ＣＣ−１））
  28. ？，，”ヘイキンタイム”，，Ｍ；”　Ｓ　　”
  29. ？，，”クリアタイム”，，Ｔ；”　Ｓ　　　”
  30. ＢＧＭＰＬＡＹ　５：ＶＳＹＮＣ　３００
  32. ’ケ゛ームオーハ゛ーナラ　ココニモト゛ル
  33. ＠ＳＴＡＲＴ
  34. ＦＯＲ　ＤＸ＝０　ＴＯ　ＸＸ＋１
  35. 　ＦＯＲ　ＤＹ＝０　ＴＯ　ＹＹ＋１
  36. 　　Ｖ（ＤＸ，ＤＹ）＝１０
  37. 　　Ｄ＝１１：ＧＯＳＵＢ　＠ＤＲＷ
  38. 　ＮＥＸＴ
  39. ＮＥＸＴ
  41. ’シ゛ライセッチ
  42. ＦＯＲ　Ｉ＝１　ＴＯ　ＢＯＭＢ
  43. 　＠Ｓ１
  44. 　Ｘ＝ＲＮＤ（ＸＸ）＋１：Ｙ＝ＲＮＤ（ＹＹ）＋１
  45. 　ＩＦ　Ｖ（Ｘ，Ｙ）＞１８　ＧＯＴＯ　＠Ｓ１
  46. 　Ｖ（Ｘ，Ｙ）＝１９
  47. 　ＦＯＲ　Ｊ＝Ｘ−１　ＴＯ　Ｘ＋１
  48. 　　ＦＯＲ　Ｋ＝Ｙ−１　ＴＯ　Ｙ＋１
  49. 　　　Ｖ（Ｊ，Ｋ）＝Ｖ（Ｊ，Ｋ）＋（Ｖ（Ｊ，Ｋ）＜１８）
  50. 　　ＮＥＸＴ
  51. 　ＮＥＸＴ
  52. ＮＥＸＴ
  53. ＦＲＭ＝ＭＡＩＮＣＮＴＬ：ＥＮＤＦＬＧ＝０
  54. ＢＧＭＰＬＡＹ　２５：ＧＯＴＯ　＠Ｔ２
  56. ’タッチニュウリョク　マチ
  57. ＠ＴＣＨ
  58. Ｔ＝ＦＬＯＯＲ（（ＭＡＩＮＣＮＴＬ−ＦＲＭ）／６０）
  59. ＬＯＣＡＴＥ　８，９：？”ケイカシ゛カン”，，Ｔ；”　Ｓ”，
  60. ＩＦ　Ｑ＝＝０　　　　　　ＧＯＴＯ　＠ＳＴＧＣＬＲ
  61. ＩＦ　ＥＮＤＦＬＧ＝＝１　ＧＯＴＯ　＠ＧＭＯＶＲ
  62. ＩＦ　ＴＣＨＳＴ　＝＝０　ＧＯＴＯ　＠ＴＣＨ
  63. Ｘ＝ＦＬＯＯＲ（ＴＣＨＸ／Ｚ）＋１
  64. Ｙ＝ＦＬＯＯＲ（ＴＣＨＹ／Ｚ）＋１
  65. ＩＦ　Ｘ＞ＸＸ　ＯＲ　Ｙ＞ＹＹ　ＧＯＴＯ　＠ＴＣＨ
  66. ＠Ｔ１
  67. ＩＦ　ＴＣＨＳＴ＝＝１　ＧＯＴＯ　＠Ｔ１
  69. ’タッチシタトキノフ゛ンキ
  70. Ｖ＝ＦＬＯＯＲ（Ｖ（Ｘ，Ｙ）／１０）
  71. ＯＮ　Ｖ　ＧＯＳＵＢ　＠ＡＵＴＯ，＠ＭＡＮ，＠ＦＬＧ
  72. ＠Ｔ２
  73. Ｑ＝ＸＸ＊ＹＹ−ＢＯＭＢ
  74. ＦＯＲ　Ｙ＝１　ＴＯ　ＹＹ
  75. 　ＦＯＲ　Ｘ＝１　ＴＯ　ＸＸ
  76. 　　ＩＦ　Ｖ（Ｘ，Ｙ）＜９　ＴＨＥＮ　Ｑ＝Ｑ−１
  77. 　ＮＥＸＴ
  78. ＮＥＸＴ
  79. ＬＯＣＡＴＥ　８，１０：？”ノコリ”，，，Ｑ；”マス　”
  80. ＧＯＴＯ　＠ＴＣＨ
  82. ’アイテルマスヲタッチシテ　オーフ゜ン
  83. ＠ＡＵＴＯ
  84. Ｆ＝０
  85. ＦＯＲ　Ｉ＝Ｘ−１　ＴＯ　Ｘ＋１
  86. 　ＦＯＲ　Ｊ＝Ｙ−１　ＴＯ　Ｙ＋１
  87. 　　ＩＦ　Ｖ（Ｉ，Ｊ）＞＝２０　ＴＨＥＮ　Ｆ＝Ｆ＋１
  88. 　ＮＥＸＴ
  89. ＮＥＸＴ
  90. ＩＦ　Ｆ！＝Ｖ（Ｘ，Ｙ）　ＴＨＥＮ　ＲＥＴＵＲＮ
  92. ’ハタノナイ　アイテナイマス　ヲアケル
  93. ＢＥＥＰ　２
  94. ＦＯＲ　ＤＸ＝Ｘ−１　ＴＯ　Ｘ＋１
  95. 　ＦＯＲ　ＤＹ＝Ｙ−１　ＴＯ　Ｙ＋１
  96. 　　Ｍ＝Ｖ（ＤＸ，ＤＹ）：Ｎ＝ＦＬＯＯＲ（Ｍ／１０）
  97. 　　ＩＦ　Ｎ！＝１　ＧＯＴＯ　＠Ａ１
  98. 　　Ｖ（ＤＸ，ＤＹ）＝Ｍ−１０：Ｄ＝Ｍ−１０
  99. 　　ＧＯＳＵＢ　＠ＤＲＷ
  100. 　　＠Ａ１
  101. 　ＮＥＸＴ
  102. ＮＥＸＴ
  103. ＧＯＳＵＢ　＠ＯＰＮ
  104. ＲＥＴＵＲＮ
  106. ’アイテナイマスヲタッチ
  107. ＠ＭＡＮ
  108. Ｆ＝０
  109. ＦＯＲ　Ｉ＝Ｘ−１　ＴＯ　Ｘ＋１
  110. 　ＦＯＲ　Ｊ＝Ｙ−１　ＴＯ　Ｙ＋１
  111. 　　ＩＦ　Ｖ（Ｉ，Ｊ）＜９　ＴＨＥＮ　Ｆ＝１
  112. 　ＮＥＸＴ
  113. ＮＥＸＴ
  114. ＩＦ　Ｆ＝＝０　ＧＯＴＯ　＠ＭＡＮ１
  116. ’コリツシテイナイナラ　ハタヲタテル
  117. ＢＥＥＰ　３
  118. Ｖ（Ｘ，Ｙ）＝Ｖ（Ｘ，Ｙ）＋１０
  119. ＤＸ＝Ｘ：ＤＹ＝Ｙ：Ｄ＝１０：ＧＯＳＵＢ　＠ＤＲＷ
  120. ＲＥＴＵＲＮ
  122. ’コリツシタマスヲクリックシテ　オーフ゜ン
  123. ＠ＭＡＮ１
  124. Ｄ＝Ｖ（Ｘ，Ｙ）−１０：Ｖ（Ｘ，Ｙ）＝Ｄ
  125. ＤＸ＝Ｘ：ＤＹ＝Ｙ：ＧＯＳＵＢ　＠ＤＲＷ
  126. ＩＦ　Ｄ！＝０　ＧＯＴＯ　＠ＴＣＨ
  127. ＢＥＥＰ　３２：ＧＯＳＵＢ　＠ＯＰＮ
  128. ＲＥＴＵＲＮ
  130. ’ハタヲ　ヒッコメル
  131. ＠ＦＬＧ
  132. 　ＤＸ＝Ｘ：ＤＹ＝Ｙ：Ｄ＝１１：ＧＯＳＵＢ　＠ＤＲＷ
  133. 　Ｖ（Ｘ，Ｙ）＝Ｖ（Ｘ，Ｙ）−１０
  134. ＧＯＴＯ　＠ＴＣＨ
  136. ’ケ゛ームオーハ゛ー
  137. ＠ＧＭＯＶＲ
  138. 　ＢＧＭＰＬＡＹ　６：ＢＥＥＰ　１３：ＶＳＹＮＣ　３００
  139. ＧＯＴＯ　＠ＳＴＡＲＴ
  141. ’マスノヒ゛ョウシャ
  142. ＠ＤＲＷ
  143. 　ＤＤ＝（ＤＸ＞ＸＸ）　ＯＲ　（ＤＹ＞ＹＹ）
  144. 　ＩＦ　ＤＤ　ＴＨＥＮ　ＲＥＴＵＲＮ
  145. 　ＤＺ＝Ｚ／４
  146. 　ＤＬ＝（ＤＸ−１）＊Ｚ：ＤＴ＝（ＤＹ−１）＊Ｚ
  147. 　ＧＦＩＬＬ　ＤＬ，ＤＴ，ＤＬ＋Ｚ，ＤＴ＋Ｚ，Ｃ（Ｄ）
  148. 　ＧＢＯＸ　　ＤＬ，ＤＴ，ＤＬ＋Ｚ，ＤＴ＋Ｚ，０
  149. 　ＩＦ　Ｄ＝＝９　ＴＨＥＮ　ＥＮＤＦＬＧ＝１
  150. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｎ＄（Ｄ））−１
  151. 　　Ｄ０＝ＶＡＬ（ＭＩＤ＄（Ｎ＄（Ｄ），Ｉ，１））
  152. 　　Ｄ１＝ＤＬ＋（Ｄ０％３）＊ＤＺ＋ＤＺ
  153. 　　Ｄ２＝ＤＴ＋ＦＬＯＯＲ（Ｄ０／３）＊ＤＺ＋ＤＺ
  154. 　　ＩＦ　Ｉ＝＝０　ＴＨＥＮ　Ｄ３＝Ｄ１：Ｄ４＝Ｄ２
  155. 　　ＧＬＩＮＥ　Ｄ１，Ｄ２，Ｄ３，Ｄ４，１
  156. 　　Ｄ３＝Ｄ１：Ｄ４＝Ｄ２
  157. 　ＮＥＸＴ
  158. ＲＥＴＵＲＮ
  160. ’０ノマスナラ　レンソ゛クシテアケル
  161. ＠ＯＰＮ
  162. 　Ｆ＝０
  163. 　ＦＯＲ　Ｘ＝１　ＴＯ　ＸＸ
  164. 　　ＦＯＲ　Ｙ＝１　ＴＯ　ＹＹ
  165. 　　　ＩＦ　Ｖ（Ｘ，Ｙ）！＝０　ＧＯＴＯ　＠ＯＰ１
  166. 　　　ＦＯＲ　ＤＸ＝Ｘ−１　ＴＯ　Ｘ＋１
  167. 　　　　ＦＯＲ　ＤＹ＝Ｙ−１　ＴＯ　Ｙ＋１
  168. 　　　　　ＩＦ　Ｖ（ＤＸ，ＤＹ）＜９　ＧＯＴＯ　＠ＯＰ２
  169. 　　　　　Ｄ＝Ｖ（ＤＸ，ＤＹ）％１０：ＧＯＳＵＢ　＠ＤＲＷ
  170. 　　　　　Ｖ（ＤＸ，ＤＹ）＝Ｄ：Ｆ＝１
  171. 　　　　　＠ＯＰ２
  172. 　　　　ＮＥＸＴ
  173. 　　　ＮＥＸＴ
  174. 　　　＠ＯＰ１
  175. 　　ＮＥＸＴ
  176. 　ＮＥＸＴ
  177. 　ＩＦ　Ｆ＝＝１　ＧＯＴＯ　＠ＯＰＮ
  178. ＲＥＴＵＲＮ

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

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

  • 名無しさん : こちらでは、以下の修正をしないと動きませんでした。23行目"CC,"→"CC",49行目"V(J,K)-(V(J,K)>19)"→"V(J,K)+(V(J,K)<19)",53行目"FNDFLG"→"ENDFLG",58行目"FLM"→"FRM",61行目"@GMOVR"→"@GMOVER",148行目"C(D)"→"0" (2011/04/03 (日) 08:51:50)
  • 投稿者 : 指摘ありがとうございます。ソース修正しました。テキストでupしたら打ったら自分で打ち直して動くか確認しとかないとだめですね。 (2011/04/03 (日) 10:21:11)
  • 名無しさん : 確かにタッチペンと相性いいですね。 (2011/04/06 (水) 08:58:14)
  • 名無し君 : どうしても　Out of DATA (14, READ) (2011/05/08 (日) 17:59:50)
  • 名無し君 : になってしまいます。どうすればいいでしょうか?? (2011/05/08 (日) 18:01:05)
  • 名無しさん : 13〜18行目のどこかを打ち間違っているので確認すべし。おそらく、15行目の最初のコンマか、17行目の最後のコンマが抜けている。 (2011/05/08 (日) 19:32:47)
  • 名無し君 : 17行目の最後のコンマがありませんでした。ありがとうございます。 (2011/05/09 (月) 18:25:25)
  • 名無しさん : out of data out of data (2011/05/24 (火) 14:12:18)
  • 名無しさん : Ver1.1では、157行目のNEXTの前のスペースを消さないと動かないので注意。 (2011/08/21 (日) 21:14:44)
  • 名無しさん : おー、すごい！ はまりました！ 明日の学校、休みます。『嘘』 (2013/09/01 (日) 17:06:22)

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