Enjoy programming more!
Kidspod is a post site which supports young programmers.
First step to join us.
Register as a member
For members

2021/10/06 15:58:50

MixJuice GET URL : kidspod.club/mj/2098

シューティングゲームPanCake ver. バイナリ不使用

バイナリコマンドを使用しないシューティングゲーム(プログラムの番号2089)です。
IchigoJam webなどで使用できます。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

10 'シューティングゲーム PanCake ver.
20 ?"PC RESET":CLV:P=#80:X=#23:Y=#26:T=#14:H=1
30 ?"PC SPRITE START 06"
40 ?"PC SPRITE CREATE 00 1D"
50 ?"PC SPRITE CREATE 01 1C"
60 K=INKEY()
70 IF K=28&&X>0 X=X-1
80 IF K=29&&X<#49 X=X+1
90 IF K=32&&F=0 F=1:?"PC SPRITE CREATE 02 57":C=X:B=Y-8
100 IF F=0 GOTO140
110 ?"PC SPRITE MOVE 02 ";HEX$(C,2);" ";HEX$(B,2)
120 B=B-1
130 IF B<0 ?"PC SPRITE CREATE 02 FF":F=0
140 ?"PC SPRITE MOVE 00 ";HEX$(T,2);" 02"
150 ?"PC SPRITE MOVE 01 ";HEX$(X,2);" ";HEX$(Y,2)
160 ?"PC SPRITE MOVE 03 ";HEX$(T,2);" 02"
170 IF F=1&&B<6&&ABS(T-C)<4 ?"PC SPRITE CREATE 02 FF":?"PC SPRITE CREATE 03 59":WAIT8:GOTO210
180 T=T+H
190 IF T<0||T>#48 H=-H
200 GOTO60
210 ?"PC SPRITE START FF"
220 [0]=184:[1]=216:[2]=177:[3]=33
230 FOR I=0 TO4
240 ?"PC STAMP1 ";HEX$(I*8+#18,2);" 14 01 ";
250 FOR V=0 TO7
260 ?HEX$(PEEK([I]*8+V),2);
270 NEXT:?:NEXT

COMMENT

Kidspod運営チーム
Kidspod運営チーム2021/10/28 10:22:35

こちらもしっかり動きます。いいですね。同じプログラムでも書き方を変えて作りなおすというのは勉強として良い手段だと思います!