ＰＲＧ：２０４８
動いている様子はコチラ
セツメイＥＸＰＬＡＮＡＴＩＯＮ
パズルゲーム 2048 のプチコン移植版。数字のタイルが次々に出てくるので、うまく移動させて大きい数字のタイルを作っていく。This is a port of puzzle game 2048. Control tiles with number and obtain larger number.
十字キーを押すと、画面内の全てのタイルがその方向に移動する。同じ数字のタイルがくっつくと、大きな数字のタイルに変化する。Bボタンでいつでもやり直し。All tiles move by cross-key. When two tiles with the same number touch, they merge into one. You can retry puzzle by B button.
ＱＲコードＱＲ ＣＯＤＥ
プログラムコードＰＲＯＧＲＡＭ ＣＯＤＥ
表示 Show
| Ｂ | ボタンの状態 |
| Ｃ | タイルの種類(タイル画像生成時、移動処理時) |
| Ｃ（） | スプライト番号に対するタイルの種類 |
| Ｅ，Ｆ | タイル移動処理用スプライト番号 |
| Ｆ（，） | フィールドの状態 |
| Ｇ＄ | 数字タイル変化時のサウンド情報 |
| Ｉ，Ｊ，Ｋ | 汎用ループカウンタ |
| Ｌ | タイル画像生成時の数字の桁数 |
| Ｎ | スコア |
| Ｐ，Ｑ | 移動処理を行うタイルの座標 |
| Ｓ | 次に使用するスプライト番号 |
| Ｕ | タイルの最大移動量 |
| Ｖ，Ｗ | タイルの移動方向 |
| Ｘ，Ｙ | 汎用座標変数 |
| Ｚ | 汎用フラグ変数 |
01. ＡＣＬＳ：ＧＢＯＸ ２３，０，２１４，１９１，２３ＧＰＡＧＥ １ＦＯＲ Ｃ＝１ＴＯ １３ＧＦＩＬＬ ０，０，２２，２２，ＣЛ
02. Ｚ＝ＰＯＷ（２，Ｃ）Ｌ＝（Ｃ－１－（Ｃ＞１２））／３ＯＲ ０Ｘ＝８＋Ｌ＊３ＦＯＲ Ｉ＝０ＴＯ ＬЛ
03. ＧＰＵＴＣＨＲ Ｘ，８，”ＢＧＦ”，Ｚ％１０＋４８，０，１Ｘ＝Ｘ－６Ｚ＝Ｚ／１０ＮＥＸＴЛ
04. ＦＯＲ Ｉ＝０ＴＯ ３ＦＯＲ Ｊ＝０ＴＯ ３Ｃ＄＝””ＦＯＲ Ｋ＝０ＴＯ ６３Ｃ＄＝Ｃ＄＋ＨＥＸ＄（ＧＳＰＯＩＴ（Ｊ＊８＋Ｋ％８，Ｉ＊８＋Ｋ／８））ＮＥＸＴЛ
05. ＣＨＲＳＥＴ”ＳＰＵ”，Ｃ＊１６＋Ｉ＊４＋Ｊ，Ｃ＄ＮＥＸＴ：ＮＥＸＴ：ＮＥＸＴЛ
06. ＠ＩЛ
07. ＣＬＥＡＲ：ＳＰＣＬＲ：ＣＬＳ：？” ”＊２７；”ＳＣＯＲＥЛ
08. ＤＩＭ Ｆ（６，６），Ｃ（１８）ＦＯＲ Ｉ＝０ＴＯ ５Ｆ（０，Ｉ）＝１Ｆ（５，Ｉ）＝１Ｆ（Ｉ，０）＝１Ｆ（Ｉ，５）＝１ＮＥＸＴЛ
09. Ｇ＄＝” ／Ф→＜＠％＆ ＋＊）＃”Ｃ（１）＝－１ＢＧＭＰＬＡＹ ２７ＧＯＳＵＢ＠Ａ：ＧＯＳＵＢ＠ＡЛ
10. ＠ＬЛ
11. Ｂ＝ＢＴＲＩＧ（）ＩＦ Ｂ＝＝３２ＴＨＥＮ＠ＩЛ
12. Ｖ＝（Ｂ＝＝８）－（Ｂ＝＝４）Ｗ＝（Ｂ＝＝２）－（Ｂ＝＝１）ＩＦ！Ｖ＊！Ｗ ＴＨＥＮ＠ＬЛ
13. Ｐ＝（Ｖ－Ｗ＞０）＊３＋１Ｑ＝（Ｖ＋Ｗ＞０）＊３＋１Ｕ＝０ＦＯＲ Ｉ＝０ＴＯ １５Ｆ＝Ｆ（Ｐ，Ｑ）Ｃ＝Ｃ（Ｆ）Ｆ（Ｐ，Ｑ）＝０Ｘ＝Ｐ：Ｙ＝ＱЛ
14. ＠ＭЛ
15. Ｘ＝Ｘ＋Ｖ：Ｙ＝Ｙ＋Ｗ：Ｅ＝Ｆ（Ｘ，Ｙ）Ｚ＝Ｃ（Ｅ）ＩＦ！Ｅ ＴＨＥＮ＠Ｍ ＥＬＳＥ ＩＦ Ｃ＝＝Ｚ ＴＨＥＮ Ｃ（Ｆ）＝Ｃ＋．５Ｃ（Ｅ）＝０ＥＬＳＥ Ｘ＝Ｘ－Ｖ：Ｙ＝Ｙ－ＷЛ
16. ＩＦ Ｆ ＴＨＥＮ Ｚ＝ＡＢＳ（Ｐ＋Ｑ－Ｘ－Ｙ）ＳＰＯＦＳ Ｆ，Ｘ＊４８，Ｙ＊４８－２３，Ｚ＊４Ｕ＝Ｕ＋（Ｚ＞Ｕ）＊（Ｚ－Ｕ）Ｆ（Ｘ，Ｙ）＝ＦЛ
17. Ｚ＝Ｉ％４＝＝３Ｐ＝Ｐ－Ｖ＋Ｚ＊（Ｖ＊４＋Ｗ）Ｑ＝Ｑ－Ｗ＋Ｚ＊（Ｗ＊４－Ｖ）ＮＥＸＴ：ＩＦ！Ｕ ＴＨＥＮ＠ＬЛ
18. ＷＡＩＴ Ｕ＊３ＦＯＲ Ｉ＝２ＴＯ １７Ｃ＝Ｃ（Ｉ）ＩＦ！Ｃ ＴＨＥＮ ＳＰＣＬＲ ＩЛ
19. ＩＦ Ｃ％１ＴＨＥＮ Ｃ＝Ｃ＋．５Ｃ（Ｉ）＝Ｃ：Ｎ＝Ｎ＋ＰＯＷ（２，Ｃ）ＳＰＣＨＲ Ｉ，Ｃ＊４ＳＰＳＣＡＬＥ Ｉ，１００ＳＰＳＣＡＬＥ Ｉ，２００，８ＢＥＥＰ ＡＳＣ（ＭＩＤ＄（Ｇ＄，Ｃ，１））Л
20. ＮＥＸＴ：ＧＯＳＵＢ＠ＡЛ
21. Ｚ＝０ＦＯＲ Ｉ＝１ＴＯ ４ＦＯＲ Ｊ＝１ＴＯ ４Ｃ＝Ｃ（Ｆ（Ｊ，Ｉ））Ｚ＝Ｚ＋！Ｃ＋（Ｃ＝＝Ｃ（Ｆ（Ｊ＋１，Ｉ）））＋（Ｃ＝＝Ｃ（Ｆ（Ｊ，Ｉ＋１）））ＮＥＸＴ：ＮＥＸＴЛ
22. ＩＦ！Ｚ ＴＨＥＮ ＢＧＭＳＴＯＰ：ＢＥＥＰ １１Л
23. ＧＯＴＯ＠ＬЛ
24. ＠ＡЛ
25. Ｘ＝ＲＮＤ（４）＋１Ｙ＝ＲＮＤ（４）＋１ＩＦ Ｃ（Ｆ（Ｘ，Ｙ））ＴＨＥＮ＠ＡЛ
26. ＠ＳЛ
27. Ｓ＝Ｓ％１７＋１ＩＦ Ｃ（Ｓ）ＴＨＥＮ＠ＳЛ
28. Ｃ＝！ＲＮＤ（１６）＋１Ｃ（Ｓ）＝Ｃ：Ｆ（Ｘ，Ｙ）＝Ｓ：ＬＯＣＡＴＥ ２７，１？ＮЛ
29. ＳＰＳＥＴ Ｓ，Ｃ＊４，０，０，０，１，３２，３２ＳＰＨＯＭＥ Ｓ，１２，１２ＳＰＯＦＳ Ｓ，Ｘ＊４８，Ｙ＊４８－２３ＳＰＳＣＡＬＥ Ｓ，０ＳＰＳＣＡＬＥ Ｓ，２００，８ＷＡＩＴ ８ＲＥＴＵＲＮЛ
※コードのHTML生成にPTC2HTMLを使用しています。
モドル ＢＡＣＫ