RACE GAME by Akueri
レースゲームタイプのアクションゲーム。５本のレーンを十字ボタン左右で行き来して、敵マシンを避けて進もう。
トップいる赤いマシンを追い抜けば晴れてレベルアップだが、たちまち新しいグループ相手の戦いになるぞ。
レベルにそってどんどんスピードアップするレースに挑戦だ！
私が作りました
Akueri
BASICはポケコン以来全く触った事が無く、C言語を少しやった位の知識でこのプログラムを懐かしいと思いながら作ってみました。ポケコンで初めてBASICを作っていた時よりも上達したプログラムが出来て良かったと思い、違う形式のプログラムにも挑戦してみたいです。
CHECK POiNT 
スクロールしてくる障害物を避けるタイプのゲームも数が増えてきたのう。やはり最初に作ってみたいゲームというのは皆おなじということかの？
それぞれ作り方にバリエーションがあって面白いね。
一番ポイントになるのはスクロール方向かな。コンソール画面を使っていると障害物が上に向かってくる「正スクロール」が一番向いているけど、このプログラムだと上から障害物がくる「逆スクロール」形式だね。
敵を消してはその下に表示してるから、下に向かって動いて見えるってわけだな！ ……オイ待てよ、この方法だと複雑な画面になった時ツラいんじゃねえか？
意外にもいいところに気がついたのう。そういう場合、プチコンならBG面やスプライトを使うのがよかろう。コンソール画面に干渉せんし、BGを下に向けて動かすだけでわりとごまかせ……もとい、上に向かっているように見えるものじゃよ。
プログラムリスト
- ＠ＳＴＡＲＴ
- ＣＬＳ：ＣＬＥＡＲ
- ＢＧＭＳＴＯＰ
- ＤＥＢＵＧ＝０
- ＰＸ＝１１：ＰＹ＝１３
- ＥＮＥ＿ＭＡＸ＝５
- ＥＮＥ＿ＮＵＭ ＝ ＥＮＥ＿ＭＡＸ＊６＋１
- ＤＩＭ ＥＮＥ＿ＲＮＧ（ＥＮＥ＿ＭＡＸ）
- ＤＩＭ ＥＸ（ＥＮＥ＿ＭＡＸ），ＥＹ（ＥＮＥ＿ＭＡＸ）
- ＥＮＥ＿ＹＭＡＸ＝２２
- ＬＩＭＩＴ＿Ｌ＝７：ＬＩＭＩＴ＿Ｒ＝１５
- ＳＴ＿ＰＯＳ＝２：ＳＴ＿ＦＰＳ＝１１
- ＰＪＵＮＩ ＝ ＥＮＥ＿ＮＵＭ：ＪＵＮＩ ＝ ＥＮＥ＿ＮＵＭ：ＬＶ＝１：ＴＥＮ＝０
- ＬＯＣＡＴＥ ６，０：ＰＲＩＮＴ”ＲＡＣＥ ＧＡＭＥ！！”
- ＦＯＲ Ｉ ＝ ＳＴ＿ＰＯＳ ＴＯ ２２ ＳＴＥＰ １
- ＬＯＣＡＴＥ ６，Ｉ：ＰＲＩＮＴ”│ │ │ │ │ │”
- ＮＥＸＴ
- ＧＯＳＵＢ ＠ＥＮＥ＿ＩＮＩＴ
- ＧＯＳＵＢ ＠ＰＡＲＭ
- ＠ＭＡＩＮ
- ＩＦ ＤＥＢＵＧ ＝＝ １ ＴＨＥＮ ＧＯＳＵＢ ＠ＤＥＢＵＧ
- ＢＯＴＡＮ ＝ ＢＵＴＴＯＮ（）
- ＩＦ ＢＯＴＡＮ ＡＮＤ ４ ＴＨＥＮ ＧＯＳＵＢ ＠ＭＯＶ＿Ｌ
- ＩＦ ＢＯＴＡＮ ＡＮＤ ８ ＴＨＥＮ ＧＯＳＵＢ ＠ＭＯＶ＿Ｒ
- ＧＯＳＵＢ ＠ＣＨＲ＿ＰＲＩ
- ＦＰＳ ＝ ＳＴ＿ＦＰＳ － ＬＶ
- ＩＦ ＦＰＳ ＜ １ ＴＨＥＮ ＦＰＳ ＝ １
- ＶＳＹＮＣ ＦＰＳ
- ＧＯＳＵＢ ＠ＯＶＥＲ＿ＣＨＫ
- ＧＯＳＵＢ ＠ＰＡＲＭ
- ＧＯＳＵＢ ＠ＭＯＶ＿ＥＮＥ
- ＧＯＴＯ ＠ＭＡＩＮ
- ＥＮＤ
- ＠ＰＡＲＭ
- ＣＯＬＯＲ ０
- ＬＯＣＡＴＥ ２０，１：ＰＲＩＮＴ”ＬＥＶＥＬ ”；ＬＶ；
- ＬＯＣＡＴＥ ２１，１０：ＰＲＩＮＴ” ”
- ＬＯＣＡＴＥ ２１，１０：ＰＲＩＮＴ ；ＰＪＵＮＩ；”／”；ＪＵＮＩ；
- ＬＯＣＡＴＥ ２７，１０：ＰＲＩＮＴ”イ”
- ＬＯＣＡＴＥ ２１，２０：ＰＲＩＮＴ ；ＴＥＮ；
- ＬＯＣＡＴＥ ２５，２０：ＰＲＩＮＴ” テン”
- ＲＥＴＵＲＮ
- ＠ＭＯＶ＿Ｌ
- ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ” ”
- ＰＸ＝ＰＸ－２
- ＩＦ ＰＸ ＜ ＬＩＭＩＴ＿Ｌ ＴＨＥＮ ＰＸ ＝ ＬＩＭＩＴ＿Ｌ
- ＢＥＥＰ ８
- ＲＥＴＵＲＮ
- ＠ＭＯＶ＿Ｒ
- ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ” ”
- ＰＸ＝ＰＸ＋２
- ＩＦ ＰＸ ＞ ＬＩＭＩＴ＿Ｒ ＴＨＥＮ ＰＸ ＝ ＬＩＭＩＴ＿Ｒ
- ＢＥＥＰ ８
- ＲＥＴＵＲＮ
- ＠ＭＯＶ＿ＥＮＥ
- ＬＯＣＡＴＥ ＥＸ（０），ＥＹ（０）：ＰＲＩＮＴ” ”
- ＦＯＲ Ｉ ＝ ０ ＴＯ ＥＮＥ＿ＭＡＸ－２
- ＩＦ ＥＹ（Ｉ） ＞ ＥＮＥ＿ＲＮＧ（Ｉ） ＴＨＥＮ ＬＯＣＡＴＥ ＥＸ（Ｉ＋１），ＥＹ（Ｉ＋１）：ＰＲＩＮＴ” ”
- ＮＥＸＴ
- ＢＥＥＰ １１
- ＩＦ ＥＹ（０） ＜ ＥＮＥ＿ＹＭＡＸ ＴＨＥＮ ＥＹ（０）＝ＥＹ（０）＋１
- ＦＯＲ Ｉ ＝ ０ ＴＯ ＥＮＥ＿ＭＡＸ－２
- ＩＦ ＥＹ（Ｉ） ＞ ＥＮＥ＿ＲＮＧ（Ｉ） ＡＮＤ ＥＹ（Ｉ＋１） ＜ ＥＮＥ＿ＹＭＡＸ ＴＨＥＮ ＥＹ（Ｉ＋１）＝ＥＹ（Ｉ＋１）＋１
- ＮＥＸＴ
- ＩＦ ＥＹ（ＥＮＥ＿ＭＡＸ－１） ＝＝ ＥＮＥ＿ＹＭＡＸ ＴＨＥＮ ＧＯＳＵＢ ＠ＥＮＥ＿ＩＮＩＴ
- ＲＥＴＵＲＮ
- ＠ＣＨＲ＿ＰＲＩ
- ＲＥＤ＿ＦＬＧ＝０
- ＣＯＬＯＲ ０
- ＬＯＣＡＴＥ ＰＸ，ＰＹ：ＰＲＩＮＴ”Ы”
- ＩＦ ＥＹ（０） ＜ ＥＮＥ＿ＹＭＡＸ ＴＨＥＮ ＬＯＣＡＴＥ ＥＸ（０），ＥＹ（０）：ＰＲＩＮＴ”Ы”
- ＦＯＲ Ｉ ＝ ０ ＴＯ ＥＮＥ＿ＭＡＸ－２
- ＩＦ ＥＹ（Ｉ） ＞ ＥＮＥ＿ＲＮＧ（Ｉ） ＡＮＤ ＥＹ（Ｉ＋１） ＜ ＥＮＥ＿ＹＭＡＸ ＴＨＥＮ ＬＯＣＡＴＥ ＥＸ（Ｉ＋１），ＥＹ（Ｉ＋１）：ＰＲＩＮＴ”Ы”
- ＮＥＸＴ
- ＩＦ ＰＪＵＮＩ ＜＝ ＥＮＥ＿ＭＡＸ ＡＮＤ ＥＹ（ＥＮＥ＿ＭＡＸ－２） ＞ ＥＮＥ＿ＲＮＧ（ＥＮＥ＿ＭＡＸ－２） ＴＨＥＮ ＲＥＤ＿ＦＬＧ＝１
- ＩＦ ＲＥＤ＿ＦＬＧ ＝＝ １ ＴＨＥＮ ＣＯＬＯＲ １３：ＬＯＣＡＴＥ ＥＸ（ＥＮＥ＿ＭＡＸ－１），ＥＹ（ＥＮＥ＿ＭＡＸ－１）：ＰＲＩＮＴ”Ы”
- ＲＥＴＵＲＮ
- ＠ＥＮＥ＿ＩＮＩＴ
- ＥＱ＿ＦＬＧ＝０
- ＦＯＲ Ｉ ＝ ０ ＴＯ ＥＮＥ＿ＭＡＸ－１
- ＥＸ（Ｉ） ＝ ＲＮＤ（ＰＸ） ＋ ＬＩＭＩＴ＿Ｌ
- ＥＹ（Ｉ） ＝ ＳＴ＿ＰＯＳ
- ＩＦ ＥＸ（Ｉ） ％ ２ ＝＝ ０ ＴＨＥＮ ＥＸ（Ｉ）＝ＥＸ（Ｉ）＋１
- ＩＦ ＥＸ（Ｉ） ＞ ＬＩＭＩＴ＿Ｒ ＴＨＥＮ ＥＸ（Ｉ） ＝ ＬＩＭＩＴ＿Ｒ
- ＥＮＥ＿ＲＮＧ（Ｉ） ＝ ＲＮＤ（４）＋５
- ＮＥＸＴ
- ＦＯＲ Ｉ ＝ ０ ＴＯ ＥＮＥ＿ＭＡＸ－２
- ＩＦ ＥＸ（Ｉ） ＝＝ ＥＸ（Ｉ＋１） ＴＨＥＮ ＥＱ＿ＦＬＧ＝１
- ＮＥＸＴ
- ＩＦ ＥＸ（０） ＝＝ ＥＸ（ＥＮＥ＿ＭＡＸ－１） ＴＨＥＮ ＥＱ＿ＦＬＧ＝１
- ＩＦ ＥＱ＿ＦＬＧ ＝＝ １ ＴＨＥＮ ＧＯＴＯ ＠ＥＮＥ＿ＩＮＩＴ
- ＲＥＴＵＲＮ
- ＠ＯＶＥＲ＿ＣＨＫ
- ＦＯＲ Ｉ ＝ ０ ＴＯ ＥＮＥ＿ＭＡＸ－１
- ＩＦ ＰＸ ＝＝ ＥＸ（Ｉ） ＡＮＤ ＰＹ ＝＝ ＥＹ（Ｉ） ＴＨＥＮ ＧＯＴＯ ＠ＧＥ＿ＯＶＥＲ
- ＩＦ ＰＹ ＝＝ ＥＹ（Ｉ） ＡＮＤ ＥＹ（Ｉ） ＜ ＥＮＥ＿ＹＭＡＸ ＴＨＥＮ ＰＪＵＮＩ＝ＰＪＵＮＩ－１：ＴＥＮ＝ＴＥＮ＋１０
- ＮＥＸＴ
- ＩＦ ＰＪＵＮＩ ＝＝ １ ＡＮＤ ＦＰＳ ！＝ １ ＡＮＤ ＥＹ（ＥＮＥ＿ＭＡＸ－１） ＝＝ ＥＮＥ＿ＹＭＡＸ－１ ＴＨＥＮ ＬＶ＝ＬＶ＋１：ＰＪＵＮＩ ＝ ＥＮＥ＿ＮＵＭ
- ＲＥＴＵＲＮ
- ＠ＧＥ＿ＯＶＥＲ
- ＣＬＳ：ＣＯＬＯＲ ０
- ＬＯＣＡＴＥ ７，９：ＰＲＩＮＴ”－－－ ＧＡＭＥ ＯＶＥＲ －－－”
- ＬＯＣＡＴＥ ８，１５：ＰＲＩＮＴ”ＹＯＵＲ ＳＣＯＲＥ： ”；ＴＥＮ；” テン”
- ＬＯＣＡＴＥ １０，２０：ＰＲＩＮＴ”ＰＵＳＨ Ａ ＢＯＴＡＮ”
- ＢＧＭＰＬＡＹ ６
- ＠ＧＥ＿ＬＯＯＰ
- ＢＯＴＡＮ ＝ ＢＵＴＴＯＮ（）
- ＩＦ ＢＯＴＡＮ ＡＮＤ １６ ＧＯＴＯ ＠ＳＴＡＲＴ
- ＧＯＴＯ ＠ＧＥ＿ＬＯＯＰ
- ＠ＤＥＢＵＧ
- ＬＯＣＡＴＥ ２０，ＳＴ＿ＰＯＳ＋１０：ＰＲＩＮＴ”ＳＴＡ： ”；ＥＸ（ＥＮＥ＿ＭＡＸ－１）；
- ＲＥＴＵＲＮ
