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

投稿プログラム : 5ubtraction

パンくずリスト

2012年03月04日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ゲーム パズルゲーム

概要

学生時代にポケコンで作ったのをプチコン用に拡張、移植しました。

遊び方

タッチしたパネルと上下左右のパネルがタッチされたパネルの数だけ引かれます。

引かれた結果が0の時はそのまま消え、マイナスになった時は5が加算されます。

タッチしたパネルが3で隣に4と3と2があった場合、
4のパネルは4-3=1で1に、
3のパネルは3-3=0で0になり消滅、
2のパネルは2-3=-1、マイナスなので5を加算して-1+5=4で4になります。

なるべく少ない手数で全てのパネルを消してください。

Xボタンで同じパネル配置でやり直し、Rボタンで新たなパネル配置になります。

あ、タイトル画面は用意していません。

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

動作しているところを撮影した写真や動画があれば貼り付けてください。

プログラムリスト

  1. ＣＬＳ：ＣＬＥＡＲ：ＳＰＰＡＧＥ　１：ＧＰＡＧＥ　１
  2. ＳＰＣＬＲ
  3. ＰＮＬＴＹＰＥ”ＯＦＦ”
  4. ＧＣＬＳ　＆Ｈ９Ｄ
  5. ＤＩＭ　Ｐ（１１，１１），Ｓ（１１，１１）
  6. ＦＯＲ　Ｉ＝０　ＴＯ　５
  7. ＲＥＡＤ　Ｃ（Ｉ）
  8. ＮＥＸＴ
  9. ＤＡＴＡ　０，１３，７，３，４，９
  11. ＦＯＲ　Ｊ＝１　ＴＯ　９
  12. ＦＯＲ　Ｉ＝１　ＴＯ　９
  13. ＳＰＳＥＴ　Ｊ＊１０＋Ｉ，７１，０，０，０，２
  14. ＳＰＯＦＳ　Ｊ＊１０＋Ｉ，６１＋Ｉ＊１２，２９＋Ｊ＊１２
  15. ＮＥＸＴ
  16. ＮＥＸＴ
  18. ＠ＩＮＩＴ
  19. ＩＦ　ＲＥ　ＴＨＥＮ　＠ＲＥＴＲＹ
  20. ＦＯＲ　Ｊ＝１　ＴＯ　９
  21. ＦＯＲ　Ｉ＝１　ＴＯ　９
  22. Ｓ（Ｉ，Ｊ）＝ＲＮＤ（６）
  23. ＮＥＸＴ
  24. ＮＥＸＴ
  26. ＠ＲＥＴＲＹ
  27. ＲＥ＝０：ＴＥ＝０
  28. ＰＮＬＳＴＲ　１２，２，”ＮＯＷ　”＋ＳＴＲ＄（ＴＥ）＋”　テ　”
  29. ＰＮＬＳＴＲ　７，２１，”Ｘ＝ＲＥＴＲＹ　　Ｒ＝ＳＨＵＦＦＬＥ”
  30. ＦＯＲ　Ｊ＝１　ＴＯ　９
  31. ＦＯＲ　Ｉ＝１　ＴＯ　９
  32. Ｐ（Ｉ，Ｊ）＝Ｓ（Ｉ，Ｊ）
  33. ＩＦ　Ｐ（Ｉ，Ｊ）＝＝０　ＴＨＥＮ　ＳＰＣＨＲ　Ｊ＊１０＋Ｉ，７１，０，０，０，２
  34. ＩＦ　Ｐ（Ｉ，Ｊ）　ＴＨＥＮ　ＳＰＣＨＲ　Ｊ＊１０＋Ｉ，４８＋Ｐ（Ｉ，Ｊ），Ｃ（Ｐ（Ｉ，Ｊ）），０，０，２
  35. ＮＥＸＴ
  36. ＮＥＸＴ
  38. ＠ＬＯＯＰ
  39. ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　６４　ＴＨＥＮ　ＲＥ＝１：ＧＯＴＯ　＠ＩＮＩＴ
  40. ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　５１２　ＴＨＥＮ　＠ＩＮＩＴ
  41. ＯＴＳ＝ＴＳ：ＴＳ＝ＴＣＨＳＴ
  42. ＴＴ＝ＴＳ　ＡＮＤ　ＮＯＴ　ＯＴＳ
  43. ＴＸ＝（ＴＣＨＸ−６２）／１２　ＯＲ　０
  44. ＴＹ＝（ＴＣＨＹ−３０）／１２　ＯＲ　０
  45. ＩＦ　ＴＸ＜０　ＯＲ　９＜ＴＸ　ＴＨＥＮ　ＴＸ＝０
  46. ＩＦ　ＴＹ＜０　ＯＲ　９＜ＴＹ　ＴＨＥＮ　ＴＹ＝０
  47. ＩＦ　ＴＴ！＝０　ＡＮＤ　ＴＸ！＝０　ＡＮＤ　ＴＹ！＝０　ＴＨＥＮ　ＧＯＳＵＢ　＠ＴＣＨ
  48. ＲＥＳＴ＝０
  49. ＦＯＲ　Ｊ＝１　ＴＯ　９
  50. ＦＯＲ　Ｉ＝１　ＴＯ　９
  51. ＩＦ　Ｐ（Ｉ，Ｊ）　ＴＨＥＮ　ＲＥＳＴ＝１
  52. ＮＥＸＴ
  53. ＮＥＸＴ
  54. ＩＦ　ＲＥＳＴ＝＝０　ＴＨＥＮ　＠ＣＬＲ
  55. ＶＳＹＮＣ　１
  56. ＧＯＴＯ　＠ＬＯＯＰ
  58. ＠ＴＣＨ
  59. ＩＦ　Ｐ（ＴＸ，ＴＹ）＝＝０　ＴＨＥＮ　ＲＥＴＵＲＮ
  60. ＤＸ＝０：ＤＹ＝−１
  61. ＦＯＲ　Ｉ＝０　ＴＯ　３
  62. ＷＸ＝ＴＸ＋ＤＸ：ＷＹ＝ＴＹ＋ＤＹ
  63. ＩＦ　Ｐ（ＷＸ，ＷＹ）＝＝０　ＴＨＥＮ　＠ＳＫＰ
  64. Ｐ（ＷＸ，ＷＹ）＝Ｐ（ＷＸ，ＷＹ）−Ｐ（ＴＸ，ＴＹ）
  65. ＩＦ　Ｐ（ＷＸ，ＷＹ）＜０　ＴＨＥＮ　Ｐ（ＷＸ，ＷＹ）＝Ｐ（ＷＸ，ＷＹ）＋５
  66. ＩＦ　Ｐ（ＷＸ，ＷＹ）＝＝０　ＴＨＥＮ　ＳＰＣＨＲ　ＷＹ＊１０＋ＷＸ，７１，０，０，０，２
  67. ＩＦ　Ｐ（ＷＸ，ＷＹ）　ＴＨＥＮ　ＳＰＣＨＲ　ＷＹ＊１０＋ＷＸ，４８＋Ｐ（ＷＸ，ＷＹ），Ｃ（Ｐ（ＷＸ，ＷＹ）），０，０，２
  68. ＠ＳＫＰ
  69. ＷＫ＝ＤＸ：ＤＸ＝−ＤＹ：ＤＹ＝ＷＫ
  70. ＮＥＸＴ
  71. Ｐ（ＴＸ，ＴＹ）＝０
  72. ＳＰＣＨＲ　ＴＹ＊１０＋ＴＸ，７１，０，０，０，２
  73. ＢＥＥＰ　９
  74. ＴＥ＝ＴＥ＋１
  75. ＰＮＬＳＴＲ　１２，２，”ＮＯＷ　”＋ＳＴＲ＄（ＴＥ）＋”　テ　”
  76. ＲＥＴＵＲＮ
  78. ＠ＣＬＲ
  79. ＢＧＭＰＬＡＹ　５
  80. ＠ＣＬ
  81. ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　６４　ＴＨＥＮ　ＲＥ＝１：ＧＯＴＯ　＠ＩＮＩＴ
  82. ＩＦ　ＢＵＴＴＯＮ（）　ＡＮＤ　５１２　ＴＨＥＮ　＠ＩＮＩＴ
  83. ＧＯＴＯ　＠ＣＬ

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

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

  • わぁぃ@ : 100行以下だ。入れてみよう。 (2012/03/04 (日) 22:42:11)
  • 名無しさん : うぽつ( ^_^)／ (2012/03/04 (日) 22:46:40)
  • orirakkusu : うぽつ〜 (2012/03/05 (月) 12:42:10)
  • 名無しさん : いいね (2012/03/16 (金) 08:08:32)
  • マリオ師匠 : QRくれぃ (2012/05/18 (金) 17:21:47)
  • 名無しさん : PCなら プログラムをコピー→リンク集→Petit editor →貼りつけ→QRコード変換で出来るぞ (2012/05/18 (金) 23:57:33)
  • 爆弾 : ↑　　でも　８３．　ＧＯＴＯ ＠ＣＬ とかでるよ　消すのがめんどい・・・・・・・・・・・・・・・・・・・・・・・・・・・・ (2012/06/19 (火) 17:30:31)
  • 名無しさん : ↑Macだからか、行番号は表示されませんでしたよ。 (2012/06/19 (火) 17:49:11)
  • 進 : Macでも表示されるし、編集のとっからやれば番号は出ない。だがやらない方が良いかも (2013/02/21 (木) 16:30:19)

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