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

2019/08/05 09:19:09

MixJuice GET URL : kidspod.club/mj/884

3Dダンジョン脱出

■3Dダンジョン脱出

■操作
移動:↑←→
地図との画面切り替え:M

■クリア条件
左上Sからスタート、右下Gがゴールです。
ゴールするとクリア時間が秒単位で表示されます。

■注意点
保存枠0と1を使います。

■FAQ
Q.迷路の右側だけ壁が厚いです
A.気にしてはいけません

Q.迷路が画面の半分しか作られていません
A.気にしてはいけません

  • 1
  • 2
  • 1
  • 2

SOURCE CODE

10 VIDEO1:CLV:CLP:CLS:L=#E4:M=#770:?CHR$(6):COPY#901,#900,351:X=RND(15):Y=RND(5):LCX*2+1,Y*2+1:?" "
20 @A:A=RND(4):GSB@E:IFBCONT
30 LCR,S:?" ":LCR-V,S-W:?" ":Z=Z+1:LC0,0:?74-Z;" ":IFZ=74GOTO@Z
40 @B:X=T:Y=U:C=4:FORA=0TO3:GSB@E:C=C-B:NEXT:IFCGOTO@A
50 T=RND(15):U=RND(5):IFSCR(T*2+1,U*2+1)=6CONT
60 GOTO@B
70 @E:V=(A<2)*(A*2-1):W=(A>1)*(A*2-5):T=X+V:U=Y+W:R=T*2+1:S=U*2+1:B=(T<0)+(T>14)+(U<0)+(U>4)+(SCR(R,S)=32):RTN
80 @Z:LC0,0:?CHR$(6,6,6):COPYM,#900,352:X=1:Y=1:V=0:W=1:POKE#720,0:COPY#721,#720,79:CLT:LRUN1
SAVE0

10 VIDEO3:LC3,1:?CHR$(L+8):LC12,1:?CHR$(L+4):LC3,2:?CHR$(L+8,L+8):LC11,2:?CHR$(L+4,L+4):LC3,3:?CHR$(L+7,L+7,L+6,L+9,L+9,L+9,L+9,L+2,L+3,L+3):LC3,4:?CHR$(L+7,L+7,L+6,L+6,L+9,L+9,L+2,L+2,L+3,L+3)
20 LC3,5:?CHR$(L+7,L+7,L+5,L+5,L,L,L+1,L+1,L+3,L+3):FORI=1TO5:COPY#903+(11-I)*16,#903+I*16,10:NEXT
30 @Y:LC0,0:?"X=";X;" Y=";Y;" [M]=MAP":IFX=29&&Y=9LC0,15:?"TIME=";TICK()/60;"s":END
40 E=X+V:F=Y+W:H=0:GSB@X:GSB@X:GSB@X:H=5:GSB@X:GSB@X:H=9:GSB@X:E=E+V:F=F+W:H=0:GSB@X
50 E=X-W:F=Y+V:H=3:GSB@X:GSB@X:E=E+V:F=F+W:H=1:GSB@X:GSB@X:GSB@X:E=E+V:F=F+W:H=1:GSB@X
60 E=X+W:F=Y-V:H=7:GSB@X:GSB@X:E=E+V:F=F+W:H=5:GSB@X:GSB@X:GSB@X:E=E+V:F=F+W:H=5:GSB@X
70 K=INKEY():IF!KCONT
80 Z=V:IFK=28V=W:W=-ZELSEIFK=29V=-W:W=ZELSEIFK=30&&PEEK(M+X+V+(Y+W)*32)=32X=X+V:Y=Y+WELSEIFK=77||K=109GSB@W:RUN
90 POKE#720,0:COPY#721,#720,79:GOTO@Y
100 @X:IFE>-1&&F>-1&&PEEK(M+E+F*32)=6COPY#720+H*8,48,8
110 H=H+1:RTN
120 @W:VIDEO1:COPY#900,M,352:LC1,1:?"S":LC29,9:?"G":LCX,Y:?CHR$(#E1+V-(V=1)-W+(W=1)*3)
130 K=INKEY():IFKRTNELSECONT
SAVE1
LRUN0

COMMENT