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

パンくずリスト

• トップ
• Toukou
• SLIDER 64

2013年2月17日投稿 / 投稿者 : らいむ / タグ : 投稿プログラム ゲーム QRコード mkII専用

　　　　　

重要情報

2月20日　アサツキさんの意見を反映し、バージョンアップ

概要

よくスライドパズルなどと呼ばれるパズルです。

アドベンチャーゲームの仕掛けや、デスクトップのガジェットなんかに使われています。

正方形のボードの上に、番号の振られた複数のパネルが、シャッフルされた状態で配置されているので、

下画面の正答を見ながら、空いている１つのマスを利用して、番号順に並び替えます。

オーソドックスな4x4以外のサイズもでき、2x2〜8x8のサイズがプレイ可能です。

操作方法

十字　→　カーソル移動

　A　→　カーソル位置から空きマスに向かって1マスずつパネルをスライドします。

　X　→　ポーズメニュー(再開かシャッフルを選択)

　　　　　　　

クリア or ポーズメニューのシャッフル選択　をすると、サイズは？と聞かれます。

そのとき入力した数字をNとすると、次のパズルの大きさは、NxNマスの正方形となります。

　　　　　　

８行目の変数　SFLP　でシャッフル回数を変更できます。(シャッフル1回でパネルを1回スライドさせる)

数が少ない程、解くのが簡単になります。

更新で追加・変更された点

2月20日

クリアタイムを測定、サイズ毎のレコードを記録する機能追加(記録ファイル名　MEM:RM_SLDDT　)

プログラムリストの見直し(一部を短縮)

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

次回更新時にUPします。

QR コード

プチコンmkII 向けの QR コードです。PRG３枚、CHR３枚です。

PRG

ファイル名「RM_SLD64」

CHR

ファイル名「RM_64CHR」

プログラムリスト

+

273行

’　　ＳＬＩＤＥＲ−６４ ’（Ｃ）２０１３　ＲＡＩＭＵ ＡＣＬＳ：ＣＬＥＡＲ：ＭＥＭ＄＝”” ＳＦＬＰ＝５００　：’シャッフルカイスウ ＰＮＬＴＹＰＥ　”ＯＦＦ ＧＰＲＩＯ　２ ＳＹＳＢＥＥＰ＝０ ＬＯＡＤ”ＳＰＵ０：ＲＭ＿６４ＣＨＲ”，ＦＡＬＳＥ ＬＯＡＤ”ＭＥＭ：ＲＭ＿ＳＬＤＤＴ”，ＦＡＬＳＥ ＳＹＳＢＥＥＰ＝１ ＤＩＭ　Ｐ（８，８），ＨＳＣ＄（７） ＩＦ　ＭＥＭ＄＝＝””　ＴＨＥＮ　ＧＯＳＵＢ　＠ＮＥＷ ＦＯＲ　Ｘ＝０　ＴＯ　６ 　ＨＳＣ＄（Ｘ）＝ＭＩＤ＄（ＭＥＭ＄，Ｘ＊５，５） ＮＥＸＴ ＧＯＳＵＢ　＠ＳＦ ＠ＳＴＡＲＴ ＳＦＰ＝ＳＦＬＰ＋ＲＮＤ（４） ＳＰＣＬＲ ＧＯＳＵＢ　＠ＴＩＴＬＥ ＩＦ　ＳＺ＜２　ＯＲ　ＳＺ＞８　ＴＨＥＮ　＠ＳＦ ＢＩＧ＝（ＳＺ＜６）＋１ ＢＩＧＰ＝ＳＺ＊１３＊ＢＩＧ＋４＊ＢＩＧ−１ ＦＯＲ　Ｘ＝０　ＴＯ　１ 　ＧＰＡＧＥ　Ｘ：ＧＣＬＳ 　ＧＢＯＸ　０，０，ＢＩＧＰ，ＢＩＧＰ，１３ 　ＧＢＯＸ　１，１，ＢＩＧＰ−１，ＢＩＧＰ−１，ＢＩＧ＊１２−１１ 　ＧＢＯＸ　２，２，ＢＩＧＰ−２，ＢＩＧＰ−２，ＢＩＧ−１ 　ＧＢＯＸ　３，３，ＢＩＧＰ−３，ＢＩＧＰ−３，ＢＩＧ−１ ＮＥＸＴ Ｓ＝０ ＦＯＲ　Ｙ＝０　ＴＯ　ＳＺ−１ 　ＦＯＲ　Ｘ＝０　ＴＯ　ＳＺ−１ 　　Ｐ（Ｘ，Ｙ）＝Ｓ：Ｓ＝Ｓ＋１ 　　ＧＰＵＴＣＨＲ　Ｘ＊１３＊ＢＩＧ＋ＢＩＧ，Ｙ＊１３＊ＢＩＧ＋ＢＩＧ，”ＳＰＵ０”，（Ｘ＋Ｙ＊ＳＺ）＊４，１，ＢＩＧ 　　ＧＰＵＴＣＨＲ　Ｘ＊１３＊ＢＩＧ＋９＊ＢＩＧ，Ｙ＊１３＊ＢＩＧ＋ＢＩＧ，”ＳＰＵ０”，（Ｘ＋Ｙ＊ＳＺ）＊４＋１，１，ＢＩＧ 　　ＧＰＵＴＣＨＲ　Ｘ＊１３＊ＢＩＧ＋ＢＩＧ，Ｙ＊１３＊ＢＩＧ＋９＊ＢＩＧ，”ＳＰＵ０”，（Ｘ＋Ｙ＊ＳＺ）＊４＋２，１，ＢＩＧ 　　ＧＰＵＴＣＨＲ　Ｘ＊１３＊ＢＩＧ＋９＊ＢＩＧ，Ｙ＊１３＊ＢＩＧ＋９＊ＢＩＧ，”ＳＰＵ０”，（Ｘ＋Ｙ＊ＳＺ）＊４＋３，１，ＢＩＧ 　ＮＥＸＴ ＮＥＸＴ ＧＰＡＧＥ　０ ＡＸ＝ＳＺ−１：ＡＹ＝ＡＸ ＳＦＬ＝１：ＴＰ＝０ ＠ＳＦＬ Ｆ＝Ｆ＝＝０ ＩＦ　Ｆ＝＝０　ＴＨＥＮ　ＭＸ＝ＡＸ：ＭＹ＝ＲＮＤ（ＳＺ） ＩＦ　Ｆ＝＝１　ＴＨＥＮ　ＭＹ＝ＡＹ：ＭＸ＝ＲＮＤ（ＳＺ） ＩＦ　ＭＸ＝＝ＡＸ　ＡＮＤ　ＭＹ＝＝ＡＹ　ＴＨＥＮ　Ｆ＝Ｆ＝＝０：ＧＯＴＯ　＠ＳＦＬ ＧＯＳＵＢ　＠ＭＯＶＥ ＩＦ　ＴＰ＜ＳＦＰ　ＴＨＥＮ　ＧＯＴＯ　＠ＳＦＬ ＳＦＬ＝０ ＧＯＳＵＢ　＠ＰＳＥＴ ＳＣＰ＝０：ＳＣ＝０：Ｍ＝０ ＭＸＰ＝ＭＸ＊１３＊ＢＩＧ＋ＢＩＧ＋２ ＭＹＰ＝ＭＹ＊１３＊ＢＩＧ＋ＢＩＧ＋２ ＢＧＭＰＬＡＹ　０，１，９０ ＠Ｌ 　ＶＳＹＮＣ　１ 　ＧＢＯＸ　ＭＸＰ−２＋ＢＩＧ，ＭＹＰ−２＋ＢＩＧ，ＭＸＰ＋１４＊ＢＩＧ−３，ＭＹＰ＋１４＊ＢＩＧ−３ 　ＧＢＯＸ　ＭＸＰ＋１，ＭＹＰ＋１，ＭＸＰ＋１３＊ＢＩＧ−２，ＭＹＰ＋１３＊ＢＩＧ−２ 　Ｂ＝ＢＴＲＩＧ（） 　ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＭＹ＝ＭＹ＋ＳＺ＊（ＭＹ＜１）−１ 　ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＭＹ＝（ＭＹ＋１）％ＳＺ 　ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＭＸ＝ＭＸ＋ＳＺ＊（ＭＸ＜１）−１ 　ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＭＸ＝（ＭＸ＋１）％ＳＺ 　ＩＦ　Ｂ　ＡＮＤ　１６　ＴＨＥＮ　ＧＯＳＵＢ　＠ＭＯＶＥ 　ＩＦ　Ｂ　ＡＮＤ　６４　ＴＨＥＮ　ＢＧＭＳＴＯＰ：ＢＥＥＰ　３：ＧＯＴＯ　＠ＰＺ 　ＧＯＳＵＢ　＠ＴＩＭＥ 　ＩＦ　ＣＬＲ＝＝１　ＴＨＥＮ　＠ＣＬＲ 　ＣＲ＝（ＣＲ＋１）％１６＋９６ 　ＭＸＰ＝ＭＸ＊１３＊ＢＩＧ＋２＋ＢＩＧ 　ＭＹＰ＝ＭＹ＊１３＊ＢＩＧ＋２＋ＢＩＧ 　ＧＢＯＸ　ＭＸＰ＋１，ＭＹＰ＋１，ＭＸＰ＋１３＊ＢＩＧ−２，ＭＹＰ＋１３＊ＢＩＧ−２，ＣＲ＊（ＳＺ＜６） 　ＧＢＯＸ　ＭＸＰ−２＋ＢＩＧ，ＭＹＰ−２＋ＢＩＧ，ＭＸＰ＋１４＊ＢＩＧ−３，ＭＹＰ＋１４＊ＢＩＧ−３，ＣＲ ＧＯＴＯ　＠Ｌ ＠ＭＯＶＥ 　ＩＦ　ＡＸ＝＝ＭＸ　ＡＮＤ　ＡＹ＜ＭＹ　ＴＨＥＮ　＠ＵＥＯＳ 　ＩＦ　ＡＸ＝＝ＭＸ　ＡＮＤ　ＡＹ＞ＭＹ　ＴＨＥＮ　＠ＳＴＯＳ 　ＩＦ　ＡＹ＝＝ＭＹ　ＡＮＤ　ＡＸ＜ＭＸ　ＴＨＥＮ　＠ＨＤＯＳ 　ＩＦ　ＡＹ＝＝ＭＹ　ＡＮＤ　ＡＸ＞ＭＸ　ＴＨＥＮ　＠ＭＧＯＳ 　ＢＥＥＰ　２，，１２７＊（ＳＦＬ＝＝０） ＲＥＴＵＲＮ ＠ＵＥＯＳ 　ＦＯＲ　Ｐ＝０　ＴＯ　ＭＹ−ＡＹ−１ 　　Ｐ（ＡＸ，ＡＹ＋Ｐ）＝Ｐ（ＡＸ，ＡＹ＋Ｐ＋１） 　ＮＥＸＴ 　ＡＹ＝ＭＹ 　ＧＯＴＯ　＠ＥＯＳ ＠ＳＴＯＳ 　ＦＯＲ　Ｐ＝０　ＴＯ　ＡＹ−ＭＹ−１ 　　Ｐ（ＡＸ，ＡＹ−Ｐ）＝Ｐ（ＡＸ，ＡＹ−Ｐ−１） 　ＮＥＸＴ 　ＡＹ＝ＭＹ 　ＧＯＴＯ　＠ＥＯＳ ＠ＨＤＯＳ 　ＦＯＲ　Ｐ＝０　ＴＯ　ＭＸ−ＡＸ−１ 　　Ｐ（ＡＸ＋Ｐ，ＡＹ）＝Ｐ（ＡＸ＋Ｐ＋１，ＡＹ） 　ＮＥＸＴ 　ＡＸ＝ＭＸ 　ＧＯＴＯ　＠ＥＯＳ ＠ＭＧＯＳ 　ＦＯＲ　Ｐ＝０　ＴＯ　ＡＸ−ＭＸ−１ 　　Ｐ（ＡＸ−Ｐ，ＡＹ）＝Ｐ（ＡＸ−Ｐ−１，ＡＹ） 　ＮＥＸＴ 　ＡＸ＝ＭＸ 　ＧＯＴＯ　＠ＥＯＳ ＠ＥＯＳ 　ＴＰ＝ＴＰ＋（ＳＦＬ＝＝１） 　ＩＦ　ＳＦＬ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ 　ＧＯＳＵＢ　＠ＰＳＥＴ 　ＢＥＥＰ　９，，１２７＊（ＳＦＬ＝＝０） ＲＥＴＵＲＮ ＠ＰＳＥＴ 　Ｓ＝０ 　ＦＯＲ　Ｙ＝０　ＴＯ　ＳＺ−１ 　　ＦＯＲ　Ｘ＝０　ＴＯ　ＳＺ−１ 　　　ＩＦ　Ｘ＝＝ＡＸ　ＡＮＤ　Ｙ＝＝ＡＹ　ＴＨＥＮ　ＳＰＣＬＲ　Ｓ：ＧＯＴＯ　＠Ｎ 　　　ＳＰＳＥＴ　Ｓ，０＋Ｐ（Ｘ，Ｙ），０，０，０，３ 　　　ＳＰＯＦＳ　Ｓ，Ｘ＊１３＊ＢＩＧ＋ＢＩＧ，Ｙ＊１３＊ＢＩＧ＋ＢＩＧ 　　　ＩＦ　ＳＺ＜６　ＴＨＥＮ　ＳＰＳＣＡＬＥ　Ｓ，２００ 　　　Ｓ＝Ｓ＋１ 　　　＠Ｎ 　　ＮＥＸＴ 　ＮＥＸＴ 　 ＳＰＳＥＴ　Ｓ，（ＳＺ）＊（ＳＺ）−１，０，０，０，０ ＳＰＯＦＳ　Ｓ，Ｘ＊１３＊ＢＩＧ＋６＊ＢＩＧ，Ｙ＊１３＊ＢＩＧ−１２＊ＢＩＧ ＩＦ　ＳＺ＜６　ＴＨＥＮ　ＳＰＳＣＡＬＥ　Ｓ，２００ ＩＦ　ＳＦＬ＝＝１　ＴＨＥＮ　ＲＥＴＵＲＮ 　ＣＬＲ＝１：Ｓ＝０ 　ＦＯＲ　Ｙ＝０　ＴＯ　ＳＺ−１ 　　ＦＯＲ　Ｘ＝０　ＴＯ　ＳＺ−１ 　　　ＩＦ　ＡＸ＝＝Ｘ　ＡＮＤ　ＡＹ＝＝Ｙ　ＴＨＥＮ　＠Ｎ２ 　　　ＩＦ　Ｐ（Ｘ，Ｙ）！＝Ｓ　ＴＨＥＮ　ＣＬＲ＝０ 　　　Ｓ＝Ｓ＋１ 　　　＠Ｎ２ 　　ＮＥＸＴ 　ＮＥＸＴ 　ＩＦ　ＡＸ！＝ＳＺ−１　ＯＲ　ＡＹ！＝ＳＺ−１　ＴＨＥＮ　ＣＬＲ＝０ ＲＥＴＵＲＮ ＠ＣＬＲ Ｘ＝Ｘ−１：Ｙ＝Ｙ−１ ＢＧＭＳＴＯＰ ＳＣＰ＝０ ＧＯＳＵＢ　＠ＴＩＭＥ ＷＡＩＴ　６０ ＢＧＭＰＬＡＹ　５ ＦＯＲ　Ｐ＝０　ＴＯ　１８＊ＢＩＧ 　ＳＰＯＦＳ　Ｓ，Ｘ＊１３＊ＢＩＧ＋１９＊ＢＩＧ−Ｐ，Ｙ＊１３＊ＢＩＧ＋ＢＩＧ 　ＷＡＩＴ　２／ＢＩＧ ＮＥＸＴ ＹＭ＝ＶＡＬ（ＬＥＦＴ＄（ＨＳＣ＄（ＳＺ−２），２）） ＹＳ＝ＶＡＬ（ＲＩＧＨＴ＄（ＨＳＣ＄（ＳＺ−２），２）） ＢＥＳＴ＝（ＹＭ＞Ｍ）＋（ＹＭ＝＝Ｍ）＊（ＹＳ＞ＳＣ） ＣＲ＝０ ＦＯＲ　Ｘ＝０　ＴＯ　１２０ 　ＧＢＯＸ　０，０，ＢＩＧＰ，ＢＩＧＰ，ＣＲ 　ＧＢＯＸ　１，１，ＢＩＧＰ−１，ＢＩＧＰ−１，１＋（ＢＩＧ−１）＊ＣＲ 　ＧＢＯＸ　２，２，ＢＩＧＰ−２，ＢＩＧＰ−２，ＢＩＧ−１ 　ＧＢＯＸ　３，３，ＢＩＧＰ−３，ＢＩＧＰ−３，ＢＩＧ−１ 　ＣＲ＝（ＣＲ＋１）％１６＋９６ 　ＣＯＬＯＲ　ＣＲ−９６ 　ＩＦ　ＢＥＳＴ＞０　ＴＨＥＮ　ＬＯＣＡＴＥ　２４，１：？”ＲＥＣＯＲＤ 　ＷＡＩＴ　１ ＮＥＸＴ ＣＯＬＯＲ　７ ＩＦ　ＢＥＳＴ＞０　ＴＨＥＮ　ＬＯＣＡＴＥ　２４，１：？”ＲＥＣＯＲＤ”：ＧＯＳＵＢ　＠ＤＴＳＶ ＣＯＬＯＲ　０ ＠ＳＦ 　ＬＯＣＡＴＥ　２，２１：ＩＮＰＵＴ　”サイス゛ハ（２？８）”；ＳＺ 　ＬＯＣＡＴＥ　０，２２：？”　”＊３１ 　ＩＦ　ＳＺ＜２　ＯＲ　ＳＺ＞８　ＴＨＥＮ　ＢＥＥＰ　２：ＧＯＴＯ　＠ＳＦ 　ＣＬＳ ＧＯＴＯ　＠ＳＴＡＲＴ ＠ＰＺ ＬＯＣＡＴＥ　２，１９：？”サイカイ ＬＯＣＡＴＥ　２，２０：？”シャッフル ＬＯＣＡＴＥ　２６，３：？”： ＫＹ＝０ ＠ＰＺＬ 　ＶＳＹＮＣ　１ 　ＬＯＣＡＴＥ　１，１９＋ＫＹ：？” 　ＬＯＣＡＴＥ　１，１９＋（ＫＹ＝＝０）：？”　” 　ＩＦ　ＢＴＲＩＧ（）＜３　ＡＮＤ　ＢＴＲＩＧ（）＞０　ＴＨＥＮ　ＫＹ＝ＫＹ＝＝０：ＢＥＥＰ　２ 　ＩＦ　ＢＴＲＩＧ（）＝＝１６　ＴＨＥＮ　ＯＮ　ＫＹ　ＧＯＴＯ　＠ＲＳ，＠ＳＦ ＧＯＴＯ　＠ＰＺＬ ＠ＲＳ 　ＢＧＭＰＬＡＹ　０，１，９０ 　ＣＬＳ 　ＧＯＳＵＢ　＠ＴＩＴＬＥ ＧＯＴＯ　＠Ｌ ＠ＴＩＴＬＥ 　Ｔ＄＝”ＳＬＩＤＥＲ−６４” 　ＦＯＲ　Ｘ＝０　ＴＯ　８ 　　ＰＮＬＳＴＲ　２０＋Ｘ，２０，ＭＩＤ＄（Ｔ＄，Ｘ，１），１３−Ｘ 　ＮＥＸＴ 　ＰＮＬＳＴＲ　１８，２２，”（Ｃ）２０１３　ＲＡＩＭＵ”，２ 　ＰＮＬＳＴＲ　２２，１，”ＲＥＣＯＲＤ”，９ 　ＦＯＲ　Ｘ＝０　ＴＯ　６ 　　Ｘ＄＝ＳＴＲ＄（Ｘ＋２） 　　ＰＮＬＳＴＲ　２０，３＋Ｘ＊２，Ｘ＄＋”ｘ”＋Ｘ＄，１４ 　　ＰＮＬＳＴＲ　２４，３＋Ｘ＊２，ＨＳＣ＄（Ｘ） 　ＮＥＸＴ ＲＥＴＵＲＮ ＠ＴＩＭＥ 　ＳＣＰ＝ＳＣＰ＋１−（Ｍ＋ＳＣ＝＝１５８） 　ＩＦ　ＳＣＰ＝＝６０　ＴＨＥＮ　ＳＣ＝ＳＣ＋１−（ＳＣ＝＝６０）：ＳＣＰ＝０ 　ＩＦ　ＳＣ＝＝６０　ＡＮＤ　Ｍ＜９９　ＴＨＥＮ　Ｍ＝Ｍ＋１：ＳＣ＝０ 　ＩＦ　Ｍ＜１０　ＴＨＥＮ　ＴＭ＄＝”０”　ＥＬＳＥ　ＴＭ＄＝”” 　ＴＭ＄＝ＴＭ＄＋ＳＴＲ＄（Ｍ） 　ＩＦ　ＳＣＰ＜３０　ＴＨＥＮ　ＴＭ＄＝ＴＭ＄＋”：”　ＥＬＳＥ　ＴＭ＄＝ＴＭ＄＋”　” 　ＩＦ　ＳＣ＜１０　ＴＨＥＮ　ＴＭ＄＝ＴＭ＄＋”０” 　ＴＭ＄＝ＴＭ＄＋ＳＴＲ＄（ＳＣ） 　ＬＯＣＡＴＥ　２３，２：？”・・・・・・・ 　ＬＯＣＡＴＥ　２３，３：？”・”；ＴＭ＄；”・ 　ＬＯＣＡＴＥ　２３，４：？”・・・・・・・ ＲＥＴＵＲＮ ＠ＮＥＷ 　ＢＥＥＰ　２ 　？”ＮＥＷ　ＧＡＭＥ”：？ 　？”テ゛−タ　ヲ　サクセイ　シマス。 　ＭＥＭ＄＝”９９：５９”＊７ 　ＳＡＶＥ”ＭＥＭ：ＲＭ＿ＳＬＤＤＴ” ＲＥＴＵＲＮ ＠ＤＴＳＶ 　ＢＥＥＰ　２ 　ＬＯＣＡＴＥ　２，１９：？”ＲＥＣＯＲＤ　ヲ　セ−フ゛　シマス 　ＨＳＣ＄（ＳＺ−２）＝ＴＭ＄ 　ＭＥＭ＄＝”” 　ＦＯＲ　Ｘ＝０　ＴＯ　６ 　　ＭＥＭ＄＝ＭＥＭ＄＋ＨＳＣ＄（Ｘ） 　ＮＥＸＴ 　ＳＡＶＥ”ＭＥＭ：ＲＭ＿ＳＬＤＤＴ” 　ＬＯＣＡＴＥ　２，１９：？”　”＊２０ ＲＥＴＵＲＮ

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

バグ報告・意見・要望などがあればどうぞ。

• アサツキ : クリアタイムとハイスコア(サイズ毎)なんかもあるといいと思います。 (2013/02/17 (日) 21:51:52)
• らいむ : そうですね。その機能は簡単に付けられると思います。ただ、もうすぐ高校受験なんで更新は遅くなります。 (2013/02/18 (月) 01:58:46)
• ハンバーガー : おつー。楽しめたよ (2013/02/19 (火) 21:05:23)
• らいむ : ハイスコア記録機能が付いたものを公開しました。同時にプログラムを見直し、一部短縮しました。 (2013/02/20 (水) 21:28:48)
• 名無しさん : ラウンド８新記録！１分２４秒！これ…越したら教えて (2013/02/24 (日) 18:50:05)
• らいむ : 8x8で１分台って…　早っ!! (2013/02/25 (月) 18:05:41)
• KEEGOFOE : is it 3d because of '64' in its title? (2013/09/26 (木) 06:58:39)

お名前: