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

2017/06/04 09:05:24

MixJuice GET URL : kidspod.club/mj/217

迷路脱出2

迷路脱出を敵ありバージョンに改造してみました。
迷路脱出:http://kidspod.club/program/default.html?id=200


ゴール(G)を目指して下さい

操作
矢印キーで動きます

・迷路は毎回自動的に作成されます
・敵は倒せません
・敵に当たると左上の数字が減っていきます
 0になるとゲームオーバーです
・クリアすると次の面が作成されます
・クリアすると次は敵の数が増えます


攻略ヒント
敵の移動の仕方にはルールがあります

  • 1
  • 1

SOURCE CODE

10 CLV:E=6:G=237:H=249:Q=9
20 @S:CLS:Z=0:FORI=0TO712:LCI%31,I/31:?CHR$(E):NEXT:X=RND(15):Y=RND(11)
30 @A:A=RND(4):GSB@E:IFBGOTO@A
40 LCT*2+1,U*2+1:?" ":LCT*2+1-V,U*2+1-W:?" ":Z=Z+1:IFZ=165GOTO@Z
50 @B:X=T:Y=U:C=4:FORA=0TO3:GSB@E:C=C-B:NEXT:IFCGOTO@A
60 @D:T=RND(15):U=RND(11):IFSCR(T*2+1,U*2+1)=EGOTO@D
70 GOTO@B
80 @E:V=(A<2)*(A*2-1):W=(A>1)*(A*2-5):T=X+V:U=Y+W:B=(T<0)+(T>14)+(U<0)+(U>10)+(SCR(T*2+1,U*2+1)=32):RTN
90 @Z:CLK:FORI=0TODSTEP4
100 @Y:[I]=RND(19)+11:[I+1]=RND(13)+9:IFSCR([I],[I+1])<>32GOTO@Y
110 LET[I+2],0,1:NEXT:X=1:Y=1
120 @F:LC29,21:?"G":LC0,0:?Q:LCX,Y:H=499-H:?CHR$(H):IFX=29&&Y=21D=D+4:GOTO@S
130 @G:K=INKEY():J=J+1:IFJ=5GSB@K:J=0
140 R=(K=29)-(K=28):S=(K=31)-(K=30):IFSCR(X+R,Y+S)=EGOTO@G
150 LCX,Y:?" ":X=X+R:Y=Y+S:Q=Q-(SCR(X,Y)=G):GOTO@F
160 @K:FORI=0TODSTEP4:L=[I]:M=[I+1]:N=[I+2]:O=[I+3]:P=N:IFSCR(L+O,M-N)!=EN=O:O=-PELSEIFSCR(L+N,M+O)!=EELSEIFSCR(L-O,M+N)!=EN=-O:O=PELSEN=-N:O=-O
170 Q=Q-(SCR(L+N,M+O)=H):IFQ>0LET[I],L+N,M+O,N,O:LCL,M:?" ":LCL+N,M+O:?CHR$(G):NEXT:RTN
180 ?"GAME OVER トウタツメン=";D/4

COMMENT

Kidspod運営チーム
Kidspod運営チーム2017/06/09 15:12:06

敵の動きを読めるようになると、よりいっそう面白いですね。自分のところに来るのが分かったときのハラハラ感! 迷路が作られていくところを見ているのも楽しいです。すごいゲームだと思います。あなたは天才ではないでしょうか。