COSMIC COSINE by たけぽん
幾何学的な敵の動きが美しいシューティングゲーム。
操作は十字ボタン左右で回転、上下でスピード変化。何も押さないでいても自機はゆっくり前方に動くので要注意！
Ａボタンで弾を発射。敵を全滅させて次のステージに進もう。ステージ開始時には一定時間の猶予があるので、有利なポジショニングを忘れずに。
次第にトリッキーになっていく敵を逃さず倒すことはできるかな!?
私が作りました
たけぽん
次はもう少し発展したシューティングゲーム作りに挑戦します！
CHECK POiNT 
あれ？ この人の名前はさっきも見たような……？
ほとんど間をあけずの投稿じゃったから連続掲載じゃ。ひと月前にも１本掲載されておるし、早くも常連じゃな。
こっちはがらっと違うスタイルのシューティングゲームだね。
デキがいいのは認めるがよォ、ちょっとカンタンすぎねェか？ コツをつかめば敵の先頭で連射しまくって一発だぜ！ ガッデム！
まあまあ。このプログラムの場合は、タイトル通り三角関数をうまく使ったバラエティ豊かでスムーズな敵の軌道を楽しむのがツボだよ。
いかにも。リストを見てみると、意外に短い内容でうまく動きを制御しているのがわかるじゃろう。
ワンパク君ごのみのゲーム性となると、敵から弾を発射させると「待ち伏せ」ができなくなって良いかもしれんな。ボーナスステージ的な爽快感はなくなってしまうじゃろうが。
ワンパク君ごのみのゲーム性となると、敵から弾を発射させると「待ち伏せ」ができなくなって良いかもしれんな。ボーナスステージ的な爽快感はなくなってしまうじゃろうが。
プログラムリスト
- ’ＣＯＳＭＩＣ ＣＯＳＩＮＥ И ｂｙ タケホ゜ン И
- ＣＬＳ：ＣＬＥＡＲ：ＶＩＳＩＢＬＥ １，１，０，０，１，１
- ＳＰＰＡＧＥ ０：ＧＰＡＧＥ ０：ＧＣＬＳ
- ＤＩＭ ＳＸ（１６），ＳＹ（１６），ＳＣ（１６）
- ＤＩＭ ＦＸ（１１），ＦＹ（１１），ＦＤ（１１）
- ＤＩＭ ＦＳ（１１），ＦＣ（１１），ＵＤ（１９）
- ＤＩＭ ＵＸ（１９），ＵＹ（１９），ＵＣ（１９）
- ＤＩＭ ＵＳ（１９），ＵＰ（１９），ＵＴ（１９）
- ＤＩＭ ＵＫ（１９），ＳＰ（１１）
- ＦＯＲ Ｋ＝１ ＴＯ ８
- ＲＥＡＤ ＵＰ（Ｋ），ＵＴ（Ｋ），ＵＳ（Ｋ）：ＮＥＸＴ
- ＤＡＴＡ １，０，１，１，１，１，１，１．５，１
- ＤＡＴＡ ２，０，２，２，１，２，２，１．５，２
- ＤＡＴＡ ２，２，１，３，０，３
- ＦＯＲ Ｋ＝１ ＴＯ ４
- ＳＰＳＥＴ Ｋ，１９０，２，０，０，２
- ＳＰＯＦＳ Ｋ，０，－３２：ＮＥＸＴ
- ＦＯＲ Ｋ＝１１ ＴＯ １８
- ＳＰＳＥＴ Ｋ，１７８，７，０，０，１
- ＳＰＡＮＩＭ Ｋ，３，１０，０：ＳＰＯＦＳ Ｋ，０，－３２
- ＮＥＸＴ
- ＠ＳＴＡＲＴ１
- ＲＯ＝１：ＳＣ＝０：ＳＫ＝２：ＲＣ＝３：ＲＳ＝３
- ＲＰ＝０：ＧＣＬＳ：ＣＬＳ：ＧＯＳＵＢ ＠ＤＳＴＡＲ
- ＳＰＳＥＴ ０，１７６，２，０，０，１
- ＧＯＳＵＢ ＠ＵＳＴＡＲＴ
- ＠ＳＴＡＲＴ２
- Ｘ＝１２８：Ｙ＝１４４：ＫＤ＝９０：ＫＳ＝０．９：ＦＳ＝０
- ＦＰ＝０：ＤＩＥ＝０：ＢＧＭＰＬＡＹ ２３
- ＳＰＡＮＩＭ ０，２，３０，０
- ＠ＳＴＡＲＴ３
- ＣＯＬＯＲ １５：ＬＯＣＡＴＥ ０，０：？”ＳＣＯＲＥ”
- ＬＯＣＡＴＥ ２３，０：？”ＳＣＥＮＥ ”；ＲＯ
- ＬＯＣＡＴＥ ２４，２３：？”ＬＡＳＴ ”；ＳＫ；
- ＠ＭＡＩＮ
- ＺＤ＝ＫＤ：ＺＸ＝Ｘ：ＺＹ＝Ｙ
- ＧＯＳＵＢ ＠ＤＲＺＡＨＹＯ：ＳＰＯＦＳ ０，ＺＸ，ＺＹ
- ＳＰＡＮＧＬＥ ０，ＫＤ：ＧＯＳＵＢ ＠ＫＥＹＩＮ
- ＫＤＸ＝ＫＳ＊ＣＯＳ（ＲＡＤ（ＫＤ））：Ｘ＝Ｘ－ＫＤＸ
- ＫＤＹ＝ＫＳ＊ＳＩＮ（ＲＡＤ（ＫＤ））：Ｙ＝Ｙ－ＫＤＹ
- ＩＦ Ｘ＜０ ＴＨＥＮ Ｘ＝Ｘ＋２５６
- ＩＦ Ｘ＞２５５ ＴＨＥＮ Ｘ＝Ｘ－２５６
- ＩＦ Ｙ＜０ ＴＨＥＮ Ｙ＝Ｙ＋１９２
- ＩＦ Ｙ＞１９２ ＴＨＥＮ Ｙ＝Ｙ－１９２
- ＧＯＳＵＢ ＠ＭＳＴＡＲ
- ＧＯＳＵＢ ＠ＦＳＴＡＲＴ
- ＧＯＳＵＢ ＠ＦＭＯＶＥ
- ＧＯＳＵＢ ＠ＵＭＯＶＥ
- ＩＦ ＵＷ＝＝０ ＴＨＥＮ ＠ＰＣＬ
- ＩＦ ＤＩＥ＝＝１ ＴＨＥＮ ＠ＤＩＥ
- ＧＯＴＯ ＠ＭＡＩＮ
- ＠ＰＣＬ
- ＲＯ＝ＲＯ＋１：ＩＦ ＲＯ＜９ ＴＨＥＮ ＠ＰＣ１
- ＩＦ ＲＯ＝＝９ ＴＨＥＮ ＲＱ＝１
- ＲＱ＝ＲＱ＋０．５：ＲＰ＝ＲＰ＋１
- ＩＦ ＲＰ＜ＲＣ ＴＨＥＮ ＠ＰＣ１
- ＲＣ＝ＲＣ＋１：ＲＰ＝０：ＲＱ＝１
- ＠ＰＣ１
- ＧＯＳＵＢ ＠ＵＳＴＡＲＴ
- ＧＯＴＯ ＠ＳＴＡＲＴ３
- ＠ＤＲＺＡＨＹＯ
- ＺＤ＝ＺＤ＋４５
- ＩＦ ＺＤ＞３６０ ＴＨＥＮ ＺＤ＝ＺＤ－３６０
- ＺＸ＝ＺＸ－１１．３＊ＣＯＳ（ＲＡＤ（ＺＤ））
- ＺＹ＝ＺＹ－１１．３＊ＳＩＮ（ＲＡＤ（ＺＤ））
- ＲＥＴＵＲＮ
- ＠ＫＥＹＩＮ
- Ｂ＝ＢＵＴＴＯＮ（）：ＦＳ＝０
- ＩＦ Ｂ ＡＮＤ １６ ＴＨＥＮ ＦＳ＝１
- ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＫＤ＝ＫＤ＋５
- ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＫＤ＝ＫＤ－５
- ＩＦ ＫＤ＞＝３６０ ＴＨＥＮ ＫＤ＝ＫＤ－３６０
- ＩＦ ＫＤ＜０ ＴＨＥＮ ＫＤ＝ＫＤ＋３６０
- ＩＦ Ｂ ＡＮＤ １ ＴＨＥＮ ＫＳ＝ＫＳ＋０．４
- ＩＦ ＫＳ＞５ ＴＨＥＮ ＫＳ＝５
- ＩＦ Ｂ ＡＮＤ ２ ＴＨＥＮ ＫＳ＝ＫＳ－０．４
- ＩＦ ＫＳ＜－０．８ ＴＨＥＮ ＫＳ＝－０．８
- ＩＦ ＫＳ＞０．９ ＴＨＥＮ ＫＳ＝ＫＳ－０．１
- ＩＦ ＫＳ＜０．９ ＴＨＥＮ ＫＳ＝ＫＳ＋０．１
- ＲＥＴＵＲＮ
- ＠ＤＳＴＡＲ
- ＦＯＲ Ｋ＝０ ＴＯ １５
- ＳＸ（Ｋ）＝ＲＮＤ（２５６）：ＳＹ（Ｋ）＝ＲＮＤ（１９２）
- ＳＣ（Ｋ）＝ＲＮＤ（１２８）＋１２８
- ＧＰＳＥＴ ＳＸ（Ｋ），ＳＹ（Ｋ），ＳＣ（Ｋ）
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＭＳＴＡＲ
- ＦＯＲ Ｋ＝０ ＴＯ １５：ＳＣ（Ｋ）＝ＳＣ（Ｋ）＋１
- ＩＦ ＳＣ（Ｋ）＞２５５ ＴＨＥＮ ＳＣ（Ｋ）＝１２８
- Ｂ＝３：ＩＦ Ｋ＞７ ＴＨＥＮ Ｂ＝６
- ＧＰＳＥＴ ＳＸ（Ｋ），ＳＹ（Ｋ），０
- ＳＸ（Ｋ）＝ＳＸ（Ｋ）－ＫＤＸ／Ｂ：Ｖ＝ＳＸ（Ｋ）
- ＩＦ Ｖ＜０ ＴＨＥＮ ＳＸ（Ｋ）＝ＳＸ（Ｋ）＋２５６
- ＩＦ Ｖ＞２５５ ＴＨＥＮ ＳＸ（Ｋ）＝ＳＸ（Ｋ）－２５６
- ＳＹ（Ｋ）＝ＳＹ（Ｋ）－ＫＤＹ／Ｂ：Ｖ＝ＳＹ（Ｋ）
- ＩＦ Ｖ＜０ ＴＨＥＮ ＳＹ（Ｋ）＝ＳＹ（Ｋ）＋１９２
- ＩＦ Ｖ＞１９１ ＴＨＥＮ ＳＹ（Ｋ）＝ＳＹ（Ｋ）－１９２
- ＧＰＳＥＴ ＳＸ（Ｋ），ＳＹ（Ｋ），ＳＣ（Ｋ）
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＦＳＴＡＲＴ
- ＦＰ＝ＦＰ－１：ＩＦ ＦＰ＞０ ＴＨＥＮ ＲＥＴＵＲＮ
- ＩＦ ＦＳ＝＝０ ＴＨＥＮ ＲＥＴＵＲＮ
- Ｋ＝１
- ＠ＦＳ１
- ＩＦ ＦＣ（Ｋ）＜１ ＴＨＥＮ ＠ＦＳ２
- Ｋ＝Ｋ＋１：ＩＦ Ｋ＜５ ＴＨＥＮ ＠ＦＳ１
- ＲＥＴＵＲＮ
- ＠ＦＳ２
- ＦＰ＝１１：ＦＣ（Ｋ）＝１：ＦＸ（Ｋ）＝Ｘ：ＦＹ（Ｋ）＝Ｙ
- ＦＤ（Ｋ）＝ＫＤ：ＦＳ（Ｋ）＝ＫＳ＋４
- ＳＰＯＦＳ Ｋ，Ｘ，Ｙ：ＲＥＴＵＲＮ
- ＠ＦＭＯＶＥ
- ＦＯＲ Ｋ＝１ ＴＯ ４
- ＩＦ ＦＣ（Ｋ）＜１ ＴＨＥＮ ＠ＦＭ１
- ＦＤＸ＝ＦＳ（Ｋ）＊ＣＯＳ（ＲＡＤ（ＦＤ（Ｋ）））
- ＦＤＹ＝ＦＳ（Ｋ）＊ＳＩＮ（ＲＡＤ（ＦＤ（Ｋ）））
- ＦＸ（Ｋ）＝ＦＸ（Ｋ）－ＦＤＸ
- ＦＹ（Ｋ）＝ＦＹ（Ｋ）－ＦＤＹ
- ＩＦ ＦＸ（Ｋ）＜０ ＴＨＥＮ ＠ＦＭ２
- ＩＦ ＦＸ（Ｋ）＞２５５ ＴＨＥＮ ＠ＦＭ２
- ＩＦ ＦＹ（Ｋ）＜０ ＴＨＥＮ ＠ＦＭ２
- ＩＦ ＦＹ（Ｋ）＞１９１ ＴＨＥＮ ＠ＦＭ２
- ＳＰＯＦＳ Ｋ，ＦＸ（Ｋ）－８，ＦＹ（Ｋ）－８
- ＦＯＲ Ｊ＝１１ ＴＯ １８
- ＩＦ ＵＣ（Ｊ）！＝１ ＴＨＥＮ ＠ＦＭ３
- ＩＦ ＵＸ（Ｊ）＞ＦＸ（Ｋ）＋８ ＴＨＥＮ ＠ＦＭ３
- ＩＦ ＵＸ（Ｊ）＜ＦＸ（Ｋ）－８ ＴＨＥＮ ＠ＦＭ３
- ＩＦ ＵＹ（Ｊ）＞ＦＹ（Ｋ）＋８ ＴＨＥＮ ＠ＦＭ３
- ＩＦ ＵＹ（Ｊ）＜ＦＹ（Ｋ）－８ ＴＨＥＮ ＠ＦＭ３
- ＵＣ（Ｊ）＝２：ＦＣ（Ｋ）＝０：ＳＰＯＦＳ Ｋ，０，－３２
- ＠ＦＭ３
- ＮＥＸＴ
- ＠ＦＭ１
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＦＭ２
- ＳＰＯＦＳ Ｋ，Ｏ，－３２：ＦＣ（Ｋ）＝０
- ＧＯＴＯ ＠ＦＭ１
- ＠ＵＩＣＨＩ
- Ｖ＝ＣＯＳ（ＲＡＤ（ＵＤ（Ｋ）））
- ＵＸ（Ｋ）＝１２８＋１２０＊Ｖ＊ＵＫ（Ｋ）
- Ｖ＝ＳＩＮ（ＲＡＤ（ＵＤ（Ｋ）））
- ＵＹ（Ｋ）＝９６＋８８＊Ｖ＊ＵＫ（Ｋ）
- ＳＰＯＦＳ Ｋ，ＵＸ（Ｋ）－８，ＵＹ（Ｋ）－８
- ＲＥＴＵＲＮ
- ＠ＵＳＴＡＲＴ
- Ｊ＝０：ＵＷ＝８：ＢＥＥＰ ５
- ＩＦ ＲＯ＜９ ＴＨＥＮ ＠ＵＳ１
- ＵＰ＝ＲＳ：ＵＴ＝２：ＵＳ＝ＲＣ－２：ＧＯＴＯ ＠ＵＳ２
- ＠ＵＳ１
- ＵＰ＝ＵＰ（ＲＯ）：ＵＴ＝２：ＵＳ＝ＵＳ（ＲＯ）
- ＲＱ＝ＵＴ（ＲＯ）：ＩＦ ＲＱ＝＝０ ＴＨＥＮ ＵＴ＝１
- ＠ＵＳ２
- ：ＦＯＲ Ｋ＝１１ ＴＯ １８：ＵＤ（Ｋ）＝Ｊ
- ＵＣ（Ｋ）＝－７５
- ＳＰＣＨＲ Ｋ，１７８，１５，０，０，１
- ＳＰＡＮＩＭ Ｋ，３，５，０：Ｊ＝Ｊ＋ＵＰ＊１１
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＵＭＯＶＥ
- ＦＯＲ Ｋ＝１１ ＴＯ １８
- ＩＦ ＵＣ（Ｋ）＝＝１ ＴＨＥＮ ＠ＵＭ０
- ＩＦ ＵＣ（Ｋ）＝＝０ ＴＨＥＮ ＠ＵＭＥ
- ＩＦ ＵＣ（Ｋ）＞１ ＴＨＥＮ ＠ＵＭＢ
- ＩＦ ＵＣ（Ｋ）＞－７５ ＴＨＥＮ ＠ＵＭＦ
- ＠ＵＭ０
- ＵＤ（Ｋ）＝ＵＤ（Ｋ）＋ＵＳ：Ｖ＝ＵＤ（Ｋ）
- ＩＦ Ｖ＞３６０ ＴＨＥＮ ＵＤ（Ｋ）＝ＵＤ（Ｋ）－３６０
- ＵＫ（Ｋ）＝１：ＩＦ ＵＴ！＝２ ＴＨＥＮ ＠ＵＭＬ
- Ｊ＝ＲＱ＊ＵＤ（Ｋ）
- ＠ＵＭ４
- ＩＦ Ｊ＜＝３６０ ＴＨＥＮ ＠ＵＭ５
- Ｊ＝Ｊ－３６０：ＧＯＴＯ ＠ＵＭ４
- ＠ＵＭ５
- ＵＫ（Ｋ）＝ＣＯＳ（ＲＡＤ（Ｊ））
- ＠ＵＭＬ
- ＧＯＳＵＢ ＠ＵＩＣＨＩ
- ＩＦ ＵＣ（Ｋ）＜０ ＴＨＥＮ ＠ＵＭＦ
- ＦＯＲ Ｉ＝１ ＴＯ ４
- ＩＦ ＦＣ（Ｉ）！＝１ ＴＨＥＮ ＠ＵＭＤ
- ＩＦ ＦＸ（Ｉ）＞ＵＸ（Ｋ）＋８ ＴＨＥＮ ＠ＵＭＤ
- ＩＦ ＦＸ（Ｉ）＜ＵＸ（Ｋ）－８ ＴＨＥＮ ＠ＵＭＤ
- ＩＦ ＦＹ（Ｉ）＞ＵＹ（Ｋ）＋８ ＴＨＥＮ ＠ＵＭＤ
- ＩＦ ＦＹ（Ｉ）＜ＵＹ（Ｋ）－８ ＴＨＥＮ ＠ＵＭＤ
- ＦＣ（Ｉ）＝０：ＵＣ（Ｋ）＝２：ＳＰＯＦＳ Ｉ，０，－３２
- ＠ＵＭＤ
- ＮＥＸＴ
- ＩＦ Ｘ＞ＵＸ（Ｋ）＋８ ＴＨＥＮ ＠ＵＭＥ
- ＩＦ Ｘ＜ＵＸ（Ｋ）－８ ＴＨＥＮ ＠ＵＭＥ
- ＩＦ Ｙ＞ＵＹ（Ｋ）＋８ ＴＨＥＮ ＠ＵＭＥ
- ＩＦ Ｙ＜ＵＹ（Ｋ）－８ ＴＨＥＮ ＠ＵＭＥ
- ＤＩＥ＝１
- ＠ＵＭＥ
- ＮＥＸＴ：ＲＥＴＵＲＮ
- ＠ＵＭＢ
- ＩＦ ＵＣ（Ｋ）＞２ ＴＨＥＮ ＠ＵＭＢ１
- ＢＥＥＰ １２：ＳＣ＝ＳＣ＋１０：ＧＯＳＵＢ ＠ＳＣＯＲＥ
- ＳＰＣＨＲ Ｋ，２４８：ＳＰＡＮＩＭ Ｋ，８，４，１
- ＠ＵＭＢ１
- ＵＣ（Ｋ）＝ＵＣ（Ｋ）＋１
- ＩＦ ＵＣ（Ｋ）＜２３ ＴＨＥＮ ＠ＵＭＥ
- ＵＣ（Ｋ）＝０：ＳＰＯＦＳ Ｋ，０，－３２：ＵＷ＝ＵＷ－１
- ＧＯＴＯ ＠ＵＭＥ
- ＠ＵＭＦ
- ＵＣ（Ｋ）＝ＵＣ（Ｋ）＋１
- ＩＦ ＵＣ（Ｋ）＜－１ ＴＨＥＮ ＠ＵＭＥ
- ＵＣ（Ｋ）＝１：ＳＰＣＨＲ Ｋ，１７８，７，０，０，１
- ＳＰＡＮＩＭ Ｋ，３，５，０
- ＧＯＴＯ ＠ＵＭＥ
- ＠ＳＣＯＲＥ
- ＬＯＣＡＴＥ ６，０：？ ＳＣ；：ＲＥＴＵＲＮ
- ＠ＤＩＥ
- ＳＰＣＨＲ ０，２４８：ＳＰＡＮＩＭ ０，８，１０，０
- ＢＧＭＳＴＯＰ：ＢＥＥＰ １３：ＶＳＹＮＣ ９０
- ＳＫ＝ＳＫ－１：ＩＦ ＳＫ＜０ ＴＨＥＮ ＠ＯＶＥＲ
- ＳＰＣＨＲ ０，１７６：ＧＯＴＯ ＠ＳＴＡＲＴ２
- ＠ＯＶＥＲ
- ＢＥＥＰ ３４
- ＬＯＣＡＴＥ １１，８：？”ＧＡＭＥ ＯＶＥＲ”
- ＠ＯＶ１
- Ｂ＝ＢＵＴＴＯＮ（）：ＩＦ Ｂ！＝０ ＴＨＥＮ ＠ＯＶ１
- ＬＯＣＡＴＥ １０，１？：？”ＨＩＴ Ａ ＢＵＴＴＯＮ”
- ＠ＯＶ２
- Ｂ＝ＢＵＴＴＯＮ（）
- ＩＦ Ｂ ＡＮＤ １０２４ ＴＨＥＮ ＥＮＤ
- ＩＦ Ｂ ＡＮＤ １６ ＴＨＥＮ ＠ＳＴＡＲＴ１
- ＧＯＳＵＢ ＠ＭＳＴＡＲ
- ＧＯＴＯ ＠ＯＶ２
