カワクダリ NEO/Kidspod;

2023/03/02 17:14:52

GOOD!0
PLAY!0
VIEW500

: ほっちゃん

カワクダリ NEO

初投稿です。
IchigoJam購入記念に川下りを作ったのですが、色々と改造していたら、結構面白くなったので投稿します。
基本はオリジナルと同じですが、時間経過でスピードが速くなっていき、流れてくるキャラクターとBGMも変わります。
矢印キー左右で移動、矢印キー下で加速します。
早ければ早いほどスコアもどんどん増えるので、加速を駆使していきましょう。
しかしこれだとスコア2000以降がきついです。
そんな時は！オートプレイがおすすめです！
本体ボタンを押しながらスタートすると、絶対当たらないオートプレイモードになります。
観賞用におすすめです。
オートプレイ中でも加速はできるので、加速させてみましょう。最後のロケットのところで加速すればウェイト0になるので、IchigoJamRで見ると圧巻です。

変数表
A 加速しているか
B オートプレイしているか
S スコア
X X座標

プログラム
1〜4 タイトル
10 初期化
2x BGM
30 キャラ表示
4x 避けるもの表示
5x キャラ操作
60〜70 ミス判定
8x オートプレイサブルーチン

ちなみに運営さんに質問なんですが、コメント欄に一般の人って投稿できますか？よかったら教えてください。

1 'カワクタ゛リNEO ver 1.0 byHOTTYAN
2 CLS:CLK:VIDEO3:LC5,2:?"カワクタ゛リ":LC6,4:?"NEO":LC4,6:?"Sテ゛ スタート
3 IFINKEY()=83IFBTN()B=1:GOTO10ELSEB=0:GOTO10
4 WAIT1:GOTO3
10 CLS:VIDEO1:X=15:S=0:A=4
20 IFS=0PLAY"T400$CCDCCDCD
21 IFS=500PLAY"T400$DDEDDEDE
22 IFS=1500PLAY"T400$CDCDCDCDCDCDCCCR
23 IFS=3000PLAY"T800$CDCDCDCDCECECECECFCFCFCFCGCGCGCG
30 LCX,5:?"(#EC)
40 IFS<500WAITA:LCRND(32),23:?"*
41 IF499<S&&S<1500WAITA-1:LCRND(32),23:?"I
42 IFS>1499&&S<3000WAITA-2:LCRND(32),23:?"(#ED)
43 IFS>2999WAITA-3:LCRND(32),23:?"(#F0)
50 IFBTN(31)A=3ELSEA=4
51 IFB=0X=X-BTN(28)+BTN(29)ELSEGOSUB80
52 X=X&31
60 IFSCR(X,5)?"スコア ";S:BEEP:?"SPACEテ゛タイトルニモト゛ル" ELSE S=S+1:LC0,0:?"スコア ";S:GOTO20
70 IFBTN(32)GOTO1ELSEWAIT1:GOTO70
80 IFSCR(X,5)GOTO81ELSEGOTO82
81 IFRND(2)X=X+1ELSEX=X-1
82 RTN