プチコンまとめArchive

パンくずリスト

• プチコン初代/mkIIトップ
• Toukou
• PYQ

2014年3月10日投稿 / 投稿者 : OBONO / タグ : 投稿プログラム mkII専用 パズル QRコード

概要

パズ○ラの大人気を余所目に、それなりに人気がある(らしい)某ゲームのパズルの部分だけを実装しました。
プログラムでQRコード1枚、画像と合わせてQRコード2枚に収めるべく、いろいろと端折っています。
いくらドロップを消しても何も起きず、延々とパズルが続きます。ゲームクリアもゲームオーバーもありません。

遊び方

• まずはタッチ操作により、下画面のぷよを最大５個まで消します。
• その後、上にあるぷよが空いたスペースに落ちてきて、同じ色のぷよが縦横4つ以上繋がると消えます。
• そしてまたぷよが落ちて繋がれば連鎖になります。

動画

QR コード

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

プログラムリスト

+

ＬＯＡＤ”ＰＹＱ”

ＡＣＬＳ：ＣＬＥＡＲ：ＳＰＰＡＧＥ　１ＤＩＭ　Ｆ（８，６），Ｄ（８，６），Ｘ（４８），Ｙ（４８），Ｃ（５０）Л ＠ＩЛ ＧＯＳＵＢ＠Ｎ：ＩＦ　Ｗ　ＴＨＥＮ　ＧＯＳＵＢ＠Ｄ：ＧＯＳＵＢ＠Ｆ：ＧＯＴＯ＠ＩЛ Ａ＝１ＰＮＬＴＹＰＥ”ＯＦＦЛ ＠ＷЛ Ｘ＝ＴＣＨＸ／３２Ｙ＝ＴＣＨＹ／３２Ｆ＝Ｆ（Ｘ，Ｙ）Ｚ＝（ＡＢＳ（Ｐ＋．５－Ｘ）＜．７）＊（ＡＢＳ（Ｑ＋．５－Ｙ）＜．７）Ｔ＝ＴＣＨＳＴЛ ＩＦ！Ｚ＊Ｔ＊Ｃ（Ｆ）＊（Ｄ＜５）ＴＨＥＮ　ＢＥＥＰ　９ＳＰＡＮＩＭ　Ｆ，２，１Ｃ（Ｆ）＝０Ｄ＝Ｄ＋１Ｐ＝Ｘ　ＯＲ　０Ｑ＝Ｙ　ＯＲ　０Л ＶＳＹＮＣ　１ＩＦ！Ｄ＋Ｔ　ＴＨＥＮ＠ＷЛ ＣＬＳ：Ｅ＝０ＧＯＳＵＢ＠ＦЛ ＠ＥЛ ＧＯＳＵＢ＠Ｄ：ＩＦ　Ｄ　ＴＨＥＮ　Ｅ＝Ｅ＋１ＢＥＥＰ　３７，Ｅ＊２５６？Ｅ；”レンサ　”；Ｄ；”フ゜ヨ”：ＷＡＩＴ　３０ＧＯＳＵＢ＠Ｆ：ＧＯＴＯ＠ＥЛ ＧＯＳＵＢ＠Ｎ：ＯＮ！Ｗ　ＧＯＴＯ＠Ｅ，＠ＷЛ ＠ＤЛ Ｄ＝０ＦＯＲ　Ｉ＝０ＴＯ　５ＦＯＲ　Ｊ＝０ＴＯ　７Ｄ（Ｊ，Ｉ）＝０ＮＥＸＴ：ＮＥＸＴЛ ＦＯＲ　Ｉ＝０ＴＯ　５ＦＯＲ　Ｊ＝０ＴＯ　７Ｆ＝Ｆ（Ｊ，Ｉ）Ｌ＝０ＩＦ　Ｆ　ＴＨＥＮ　Ｃ＝Ｃ（Ｆ）Ｘ＝Ｊ：Ｙ＝Ｉ：ＧＯＳＵＢ＠ＬЛ ＩＦ　Ｌ＞３ＴＨＥＮ　Ｄ＝Ｄ＋Ｌ：ＦＯＲ　Ｋ＝０ＴＯ　Ｌ－１Ｘ＝Ｘ（Ｋ）Ｙ＝Ｙ（Ｋ）Ｆ＝Ｆ（Ｘ，Ｙ）Ｃ（Ｆ）＝０ＳＰＡＮＩＭ　Ｆ，２，１ＮＥＸＴЛ ＮＥＸＴ：ＮＥＸＴ：ＲＥＴＵＲＮЛ ＠ＬЛ ＩＦ　Ｘ＜０ＯＲ　Ｘ＞７ＯＲ　Ｙ＜０ＯＲ　Ｙ＞５ＴＨＥＮ　ＲＥＴＵＲＮЛ ＩＦ！Ｆ（Ｘ，Ｙ）ＴＨＥＮ　ＲＥＴＵＲＮЛ ＩＦ　Ｄ（Ｘ，Ｙ）ＯＲ　Ｃ！＝Ｃ（Ｆ（Ｘ，Ｙ））ＴＨＥＮ　ＲＥＴＵＲＮЛ Ｄ（Ｘ，Ｙ）＝１Ｘ（Ｌ）＝Ｘ：Ｙ（Ｌ）＝Ｙ：Ｌ＝Ｌ＋１Л Ｘ＝Ｘ＋１ＧＯＳＵＢ＠ＬЛ Ｘ＝Ｘ－２ＧＯＳＵＢ＠ＬЛ Ｘ＝Ｘ＋１Ｙ＝Ｙ＋１ＧＯＳＵＢ＠ＬЛ Ｙ＝Ｙ－２ＧＯＳＵＢ＠ＬЛ Ｙ＝Ｙ＋１ＲＥＴＵＲＮЛ ＠ＦЛ Ｗ＝－１ＦＯＲ　Ｊ＝０ＴＯ　７Ｈ＝６ＦＯＲ　Ｉ＝５ＴＯ　０ＳＴＥＰ　－１Л Ｆ＝Ｆ（Ｊ，Ｉ）ＩＦ！Ｃ（Ｆ）ＴＨＥＮ　ＳＰＣＬＲ　Ｆ：Ｆ（Ｊ，Ｉ）＝０Ｆ＝０Л ＩＦ　Ｆ　ＴＨＥＮ　Ｈ＝Ｈ－１ＳＷＡＰ　Ｆ（Ｊ，Ｉ），Ｆ（Ｊ，Ｈ）Ｚ＝Ｈ－Ｉ：ＳＰＯＦＳ　Ｆ，Ｊ＊３２，Ｈ＊３２，Ａ＊Ｚ＊４ＩＦ　Ｗ＜Ｚ　ＴＨＥＮ　Ｗ＝ＺЛ ＮＥＸＴ：ＮＥＸＴ：ＷＡＩＴ　Ａ＊Ｗ＊４ＲＥＴＵＲＮЛ ＠ＮЛ Ｐ＝９Ｗ＝０ＦＯＲ　Ｊ＝０ＴＯ　７Ｘ＝Ｊ＊３２Ｈ＝０ＦＯＲ　Ｉ＝５ＴＯ　０ＳＴＥＰ　－１Л ＯＮ　Ｆ（Ｊ，Ｉ）ＧＯＳＵＢ＠Ｓ：ＮＥＸＴ：ＩＦ　Ｗ＜Ｈ　ＴＨＥＮ　Ｗ＝ＨЛ ＮＥＸＴ：ＷＡＩＴ　Ａ＊Ｗ＊４ＲＥＴＵＲＮЛ ＠ＳЛ Ｓ＝Ｓ％４８＋１ＩＦ　Ｃ（Ｓ）ＴＨＥＮ＠ＳЛ Ｆ（Ｊ，Ｉ）＝Ｓ：Ｈ＝Ｈ＋１Ｃ＝ＲＮＤ（５）＋３Ｃ（Ｓ）＝ＣЛ ＳＰＳＥＴ　Ｓ，Ｃ＊８，Ｃ，０，０，３，３２，３２ＳＰＯＦＳ　Ｓ，Ｘ，－Ｈ＊３２ＳＰＯＦＳ　Ｓ，Ｘ，Ｉ＊３２，Ａ＊（Ｈ＋Ｉ）＊４ＲＥＴＵＲＮЛ 下画面SPS画像

改良ポイント

• グラフィックを変更する
• タッチ操作で隣接していないぷよも消せてしまうので、その対策をする
• オリジナルにある機能の実装
  • 予告ぷよ
  • ハート
  • チャンスぷよ
• 各種画面効果が全然ぷよっとしていないのを工夫する
  • 消去アニメーション
  • 落下アニメーション
• 上画面を使って、敵キャラと戦っていくゲームに発展させる

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

※要望は一切受け付けません。頑張って自分で改良してみましょう。

• OBONO : 作者はケチで貧乏なので、どうしても要望があるのであれば、このWikiの住人の優しい人にでも頼みこんでくださいな。 (2014/03/11 (火) 00:03:03)
• .EXE : すごい。リアル。 (2014/03/11 (火) 07:13:51)
• 名無しさん : ↑↑　はい。 (2014/03/11 (火) 13:49:14)
• 名無しさん : プログラムが意外と短くて素直に驚いた　すごい (2014/03/17 (月) 19:42:06)
• bfwjnjkm : ETicvQkFrvKdgARRg (2014/11/16 (日) 16:20:51)
• リレイン : ぷよが４つ以上くっついた時の判定　参考にさせてもらいます (2014/12/05 (金) 22:16:04)
• 名無しさん : 「改良ポイント」の最後で例のあれになると。 (2015/01/10 (土) 22:47:33)
• spvcxkmiml : mzHljKGRfK (2016/03/12 (土) 15:12:12)