ＰＲＧ：ＰＺＤＲ
動いている様子はコチラ
セツメイＥＸＰＬＡＮＡＴＩＯＮ
1つのドロップをタッチ操作で移動させます。移動させる事でドロップの位置を入れ替える事ができます。タッチし続ける間は、ドロップを好きなように移動できます。You can move a drop by the touch-pen. Neighbor drops are replaced by moving drop continuously while keeping touch.
タッチペンを離した時、同じ種類のドロップが縦か横に3つ以上揃っていると、それらは消滅します。その際、上にあるドロップが落下してきます。If same type drops are aligned 3 or more when you release the touch-pen, they are disappeared and other drops fall from above.
いくらドロップを消しても何も起きず、延々とパズルが続きます。ゲームクリアもゲームオーバーもありません。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. Ｔ＝２０Ｙ＝Ｙ＋Ｑ＋１ＧＯＳＵＢ＠ＯЛ
41. ＳＰＳＣＡＬＥ Ｓ，１００ＮＥＸＴЛ
42. ＲＥＴＵＲＮЛ
43. ＠ＯЛ
44. ＳＰＯＦＳ Ｆ，Ｘ＊３２＋４８，Ｙ＊３２＋３２，ＴЛ
45. ＲＥＴＵＲＮЛ
46. ＠ＺЛ
47. Ｋ＝ＴＣＨＸ：Ｋ＝Ｋ－（Ｋ＜３２）＊（Ｋ－３２）－（Ｋ＞２２３）＊（Ｋ－２２３）Л
48. Ｌ＝ＴＣＨＹ：Ｌ＝Ｌ－（Ｌ＜１６）＊（Ｌ－１６）－（Ｌ＞１７５）＊（Ｌ－１７５）Л
49. Ｐ＝Ｋ／３２－１ＯＲ ０Ｑ＝Ｌ／３２－．５ＯＲ ０ＲＥＴＵＲＮЛ
50. ＠ＳЛ
51. Ｓ＝Ｓ＋１－（Ｓ＞２９）＊３０ＩＦ Ｃ（Ｓ）ＴＨＥＮ＠ＳЛ
52. Ｃ（Ｓ）＝ＣЛ
53. ＲＥＴＵＲＮЛ
※コードのHTML生成にPTC2HTMLを使用しています。
| ＳＰＳ |  |
モドル ＢＡＣＫ