ＰＲＧ：ＴＨＲＥＥＳ
セツメイＥＸＰＬＡＮＡＴＩＯＮ
パズルゲーム Threes! のプチコン移植版。数字のタイルが次々に出てくるので、うまく移動させて大きい数字のタイルを作っていく。This is a port of puzzle game Threes!. Control tiles with number and obtain larger number.
1と2が重なると3のタイルになり、3以上は同じ数字が重なると大きな数字のタイルになる。"1" and "2" merge to become a "3", two "3"s merge into "6", two "6"s merge into "12"...
十字キーを押すと、画面内の全てのタイルがその方向に移動し、画面右上に表示されているタイルが追加される。Bボタンでいつでもやり直し。All tiles move by D-pad, and a new tile displayed at top-right of screen is added. You can retry 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. ＩＦ Ｅ ＴＨＥＮ ＩＦ Ｃ＝＝Ｚ ＴＨＥＮ Ｃ（Ｆ）＝Ｃ＋（Ｃ＜２）＋．５Ｃ（Ｅ）＝０ＥＬＳＥ Ｆ＝０Л
30. ＩＦ Ｆ ＴＨＥＮ Ｆ（Ｘ，Ｙ）＝０Ｆ（Ｐ，Ｑ）＝Ｆ：ＳＰＯＦＳ Ｆ，Ｐ＊４８，Ｑ＊４８－２３，４Ｕ＝１Л
31. Ｚ＝Ｉ％４＝＝３Ｘ＝Ｘ－Ｖ＋Ｚ＊（Ｖ＊４＋Ｗ）Ｙ＝Ｙ－Ｗ＋Ｚ＊（Ｗ＊４－Ｖ）ＮＥＸＴЛ
32. ＷＡＩＴ Ｕ＊４ＯＮ Ｕ ＧＯＴＯ ＠Ｌ，＠ＡЛ
※コードのHTML生成にPTC2HTMLを使用しています。
モドル ＢＡＣＫ