プログラミングをもっと楽しく!
Kidspod;はこどものプログラマーを
応援するための投稿サイトです。
はじめての人はこちらから
新規メンバー登録
メンバーの人はこちらから

2016/11/12 09:11:04

MixJuice GET URL : kidspod.club/mj/116

イノシシハンター与作mobileB版

与作を操作して左右から迫るイノシシの突進にぶつからないように倒してください
←→で移動
↑ でジャンプ
スペースで斧を出します。
斧はしばらく押していないと出ないので
足の速いイノシシは間に合わないのでジャンプで逃げてください。
何匹しとめられるかな?                

SOURCE CODE

10 'YOSAKU
20 CLS:CLV:FORI=1TO5:LC5,I:?"H    H":NEXT
30 X=8:Y=6:P=16:V=1
40 @CALC
50 K=INKEY()
60 IFK=28ANDXLCX,Y-(B>0):?" ";:X=X-1:V=-1
70 IFK=29ANDX<15LCX,Y-(B>0):?" ";:X=X+1:V=1
80 IFBTN(32)IFA=0D=D+1
90 IFD>15A=6:D=0
100 IFAA=A-1:C=VPEEK(X+V,Y):IFC=112ORC=113:R=16:BEEP:S=S+1:LC0,0:?"SCORE ";S
110 IFA<1LCX+V,Y:?" ";
120 @JP
130 IFBTN(30)ANDB<1E=E+1
140 IFE>8B=15:E=0:LCX,Y:?" ";
150 IFBB=B-1:IFB<1:LCX,Y-1:?" ";
160 @INO
170 IFP>15ORP<0Q=RND(100):IFQ<2P=Q*15:R=1-Q*2:T=RND(7)+3:Q=T
180 IFQQ=Q-1
190 IFQ<1IFP<16ANDP>-1:LCP,Y:?" ";:P=P+R:Q=T
200 IFVPEEK(P,Y)=61:BEEP2,40:LC4,4:?"GAME OVER":END
210 @PR
220 LCX,Y-(B>0):?"=";
230 IFAIFXANDX<15LCX+V,Y:?"-";
240 IFP>-1ANDP<16LCP,Y:?CHR$(112+(R+1)/2);
250 GOTO@CALC

COMMENT

Kidspod運営チーム
Kidspod運営チーム2016/11/17 09:11:26

スピードに合わせてキーを押すタイミングを変えなくてはいけないので、イノシシは強敵! うまく倒せるとうれしいですね。