シンプルなジャンプアクションゲームです。パソコンクラブの教材用に試作しました。
- 起動すると、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
