ＰＲＧ：ＬＡＳＥＲＳ
動いている様子はコチラ
セツメイＥＸＰＬＡＮＡＴＩＯＮ
レーザー光線が飛び交う中で、画面のキャラクターを操作しつつ、青と赤を切り替える。同じ色の光線に当たると得点、違う色の光線に当たるとダメージ。Move the character and switch her color in a laser field. You get points while be shot same color ray. She is damaged while be shot different color ray.
キャラクターの下に体力が表示されている。体力がなくなるとゲームオーバー。体力は時間経過で少しずつ回復。The health bar is displayed under her. If it becomes empty, the game is over. It recovers little by little with time.
十字キーで移動、Aボタンでプレイヤーの色を切り替え。ゲームオーバー時はBボタンで再開。You can move her by D-pad and switch her color by A button. You can retry by B button after 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. ＯＮ ＢＴＲＩＧ（）＝＝３２ＧＯＴＯ＠Ｖ，＠ＩЛ
※コードのHTML生成にPTC2HTMLを使用しています。
モドル ＢＡＣＫ