SHIROのIchigoJam日記

IchigoJamの電子工作とプログラミングをメインに

ジャンプアクションゲーム

シンプルなジャンプアクションゲームです。パソコンクラブの教材用に試作しました。

  • 起動すると、3段の床とハシゴ、自分のキャラ(人間)が表示されます。
  • 自分のキャラの操作は、カーソルキー左右=左右移動、カーソルキー上下=ハシゴを上る/下りる、スペースキー=ジャンプです。
  • 敵キャラ「@」が出てくるので、当たらないようにジャンプやハシゴで避けてください。当たるとゲームオーバーになります。
  • ジャンプしてコイン「$」をゲットすると1点になります。

MixJuiceでダウンロードできます。
?"MJ GET comich.net/ichigojam/jumpaction.txt"
プログラム容量が若干残っているので、いろいろ改造するのも楽しいでしょう。

1 '*Jump Action
2 CLV:LET[90],30,6,-1,0,14,1,30,22,-1
3 CLS:FORJ=7TO23STEP8:LC0,J:FORI=0TO30:?CHR$(1);:NEXT:NEXT
4 FORJ=7TO22:LC7,J:?"H":LC23,J:?"H":NEXT
5 GSB19:X=0:Y=22
6 IFJOR(Y%8=6)U=X-BTN(LEFT)*(X>0)+BTN(RIGHT)*(X<30)
7 V=Y:IFJGOTO10
8 V=Y-BTN(UP)*(H=72)+BTN(DOWN)*(SCR(X,Y+1)=72)
9 IFBTN(SPACE)*(H<>72)J=1:G=-3
10 V=V+G*J:G=G+J:LCX,Y:?CHR$(H);:H=SCR(U,V):IFH=36BEEP:S=S+1:GSB19:H=0
11 LCU,V:?CHR$(250);:X=U:Y=V
12 IFH=64M=1
13 IFY%8=6J=0
14 IFRND(50)=0GSB25
15 FORA=0TO15STEP5:IF[A]GSB22
16 IF(![A])*(!RND(20))GSB20
17 NEXT:IF!MGOTO6
18 BEEP30,30:LC11,11:?"GAME OVER":END
19 LC0,0:?"SCORE ";S:RTN
20 R=RND(3)*3:[A+1]=[90+R]:[A+2]=[91+R]:[A+4]=SCR([A+1],[A+2]):IF[A+4]RTN
21 [A]=1:[A+3]=[92+R]:LC[A+1],[A+2]:?"@";:RTN
22 D=[A+1]+[A+3]:E=[A+2]:LC[A+1],[A+2]:?CHR$([A+4]);:IF(D<0)OR(D>30)[A]=0:RTN
23 [A+4]=SCR(D,E):LCD,E:?"@";:IF[A+4]=250M=1
24 [A+1]=D:[A+2]=E:RTN
25 B=RND(32):C=8*RND(3):IFSCR(B,C)GOTO25
26 LCB,C:?"$":RTN