IchigoJam,PanCakeを使ったプログラムです。
上からどんどん落ちてくるパンケーキをキャッチするゲームです。



カウンターは99ポイントを越えるとバグります。
ご了承下さい。

バージョン:IchigoJam1.0.0b14

プログラム

10 CLV:?"PANCAKE SPRITE START 05":A=RND(70):D=RND(35)*-1:X=34:N=0:P=166:Q=166
20 ?"PANCAKE SPRITE CREATE 0";N;" 7E":N=N+1:IFN!=1GOTO20
35 ?"PANCAKE SPRITE CREATE 03 08"
40 ?"PANCAKE SPRITE MOVE 00 ";:M=A:GOSUB1000:?" ";:M=D:GOSUB1000:?
60 ?"PANCAKE SPRITE CREATE 02 ";:M=Q:GOSUB1000:?
65 ?"PANCAKE SPRITE CREATE 04 ";:M=P:GOSUB1000:?
66 ?"PANCAKE SPRITE MOVE 04 08 00"
67 ?"PANCAKE SPRITE MOVE 02 00 00"
70 ?"PANCAKE SPRITE MOVE 03 ";:M=X:GOSUB1000:?" 23"
80 D=D+1:E=E+1
90 IFD=45D=RND(35)*-1:A=RND(70)
120 IF(D=26)*((A>X-7)*(A<X+7))?"PANCAKE SPRITE MOVE ";:M=D:N=A:GOSUB1100:D=M:A=N:M=D:GOSUB1000:?" ";:M=A:GOSUB1000:?:?"PANCAKE MUSIC SCORE 00 01 30 G>C":P=P+1:IF P=176 P=166:Q=Q+1
150 K=INKEY()
160 X=X-((K=28)*3)+((K=29)*(3))
970 GOTO 40
980 IFN<10?N;:RETURN
990 ?CHR$(N+55);:RETURN
1000 N=M>>4:GOSUB980:N=M&15:GOSUB980:RETURN
1100 M=RND(35)*-1:N=RND(70):RETURN
関連する記事
コメント
コメントする