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

2018/11/02 23:41:55

MixJuice GET URL : kidspod.club/mj/660

スペースアタック

■スペースアタック
8方向スクロールゲームです。

■操作
進行方向左に向きを変える:←
進行方向右に向きを変える:→

■ゲームレベルについて
レベルは3段階あり1~3です。
初めにゲームレベルを入力します。
数字が大きいほど難しくなります。(イチゴが出にくくなる)

■エネルギーについて
エネルギーが無くなるとゲームオーバーです。
以下によりエネルギーが増減します。
1歩動く:-1
*を取る:-10
イチゴを取る:+100

■得点について
1歩動くと+1点です。
他に点数が入る要素はありません。

■ハイスコア(各レベル毎に5位まで)について
ハイスコアが保存されます。
プログラム内でSAVEしていますので、後述の注意事項を確認してから実行してください。
ハイスコアをクリアするにはレベル入力時に99と入力して、一度ゲームを行いGAMEOVERになると保存データまでクリアされます。

■注意事項
このプログラムは自分自身をSAVEします。
そうすることでハイスコアの記録を保存しています。
20行目にあるA=0の値を変更することでSAVEするところを変更できます。
デフォルトではA=0なのでSAVE0と同じになります。
例えば3にSAVEしたいなら20行目のA=0をA=3に変更してください。

  • 1
  • 1

SOURCE CODE

10 CLP:POKE#788,2,15,242,114,~3,124,60,20,32,176,~3,243,243,~3,176,32,20,60,124,~3,114,242,15,2,126,60,~0,126,36,36,24,24,40,60,62,63,78,79,240,64,4,13,63,207,207,63,13,4,64,240,79,78,63,62,60,40
20 @S:CLS:CLV:A=0:E=100:LC5,1:?"S P A C E  A T T A C K"
30 COPY#800,#FE2,30:FORI=0TO14:LCI/5*9+3,3:?"LEVEL";I/5+1:LCI/5*9+3,I%5*2+5:?I%5+1;" ";[I]:NEXT:LC7,15:INPUT"レベル(1-3)?",D:CLS:IFD=99POKE#FE2,0:COPY#FE3,#FE2,30
40 IFD<1||D>3GOTO@S
50 @M:POKE#900,0:COPY#901,#900,30:LC16,12:?CHR$(240+K):X=RND(31):Y=RND(24):LC16,12:?" ":SCROLL(K/2+2)%4:IFK%2SCROLL((K+5)/2)%4
60 LCX,((K<2)+(K=7))*2+(K>2&&K<6)*22-1:?CHR$(42+!RND(D*5)*213):LC(K&&K<4)*30,(K&&(K!=4))*Y-1:?CHR$(42+!RND(D*5)*213):K=(K+BTN(29)-BTN(28)+8)%8:C=SCR(16,12):E=E+(C=255)*100-(C=42)*10
70 S=S+1:E=E-1:LC0,0:?" SCORE:";S;" ENERGY:";E:CLK:IFE>0GOTO@M
80 LC12,10:?"GAME OVER":FORI=D*5-5TOD*5:IF[I]<SW=[I]:[I]=S:S=W
90 NEXT:WAIT180:COPY#FE2,#800,30:SAVEA:CLK:GOTO@S

COMMENT