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

2021/09/14 17:58:53

MixJuice GET URL : kidspod.club/mj/2089

シューティングゲームPanCake ver.

左右キーでロケットを動かし、スペースでUFOを撃ちます。

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

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

COMMENT

Kidspod運営チーム
Kidspod運営チーム2021/09/24 16:24:32

相手の弾をよけるゲームが世の中に多い中、まさしく"シュート"をメインにしたシューティングゲームですね。弾の遅さを考慮して、じっくり狙わなければ……。弾数の制限があっても面白そうです。