ＰＲＧ：ＰＹＱ
動いている様子はコチラ
セツメイＥＸＰＬＡＮＡＴＩＯＮ
画面内に「ぷよ」がならんでいます。まずはタッチ操作によりぷよを最大５個まで消します。There are PUYOs in the screen. You can remove them by touching, within 5 at once.
その後、上にあるぷよが空いたスペースに落ちてきて、同じ色のぷよが縦横4つ以上繋がると消えます。そしてまたぷよが落ちて繋がれば連鎖になります。The PUYOs above those that are removed fall onto others. When four or more PUYOs of the same color form together to create a group, they disappear.
いくらぷよを消しても何も起きず、延々とパズルが続きます。ゲームクリアもゲームオーバーもありません。This game continues eternally. So, no game clear and no game over.
ＱＲコードＱＲ ＣＯＤＥ
プログラムコードＰＲＯＧＲＡＭ ＣＯＤＥ
表示 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. ＮＥＸＴ：ＮＥＸＴ：ＷＡＩＴ Ａ＊Ｗ＊４ＲＥＴＵＲＮЛ
33. ＠ＮЛ
34. Ｐ＝９Ｗ＝０ＦＯＲ Ｊ＝０ＴＯ ７Ｘ＝Ｊ＊３２Ｈ＝０ＦＯＲ Ｉ＝５ＴＯ ０ＳＴＥＰ －１Л
35. ＯＮ Ｆ（Ｊ，Ｉ）ＧＯＳＵＢ＠Ｓ：ＮＥＸＴ：ＩＦ Ｗ＜Ｈ ＴＨＥＮ Ｗ＝ＨЛ
36. ＮＥＸＴ：ＷＡＩＴ Ａ＊Ｗ＊４ＲＥＴＵＲＮЛ
37. ＠ＳЛ
38. Ｓ＝Ｓ％４８＋１ＩＦ Ｃ（Ｓ）ＴＨＥＮ＠ＳЛ
39. Ｆ（Ｊ，Ｉ）＝Ｓ：Ｈ＝Ｈ＋１Ｃ＝ＲＮＤ（５）＋３Ｃ（Ｓ）＝ＣЛ
40. ＳＰＳＥＴ Ｓ，Ｃ＊８，Ｃ，０，０，３，３２，３２ＳＰＯＦＳ Ｓ，Ｘ，－Ｈ＊３２ＳＰＯＦＳ Ｓ，Ｘ，Ｉ＊３２，Ａ＊（Ｈ＋Ｉ）＊４ＲＥＴＵＲＮЛ
※コードのHTML生成にPTC2HTMLを使用しています。
| ＳＰＳ |  |
モドル ＢＡＣＫ