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

2018/05/14 16:56:12

MixJuice GET URL : kidspod.club/mj/485

高密度迷路

穴掘り法での迷路自動作成プログラムです。
作成完了後、5秒間停止し、再度迷路作成されます。

  • 1
  • 1

SOURCE CODE

10 CLV:E=143:CLS:FORI=0TO29:?CHR$(E);:NEXT:?CHR$(133):FORI=1TO21:COPY#900+I*32,#900,32:NEXT:LC0,22:FORI=0TO29:?CHR$(131);:NEXT:?CHR$(129):X=RND(30):Y=RND(22):LCX,Y:?CHR$(135)
20 @A:A=RND(4):GSB@E:IFBCONT
30 LCT,U:IFV=1?CHR$(131)
40 IFV=-1?CHR$(135):LCX,Y:?CHR$(SCR(X,Y)-4)
50 LCT,U:IFW=1?CHR$(133)
60 IFW=-1?CHR$(135):LCX,Y:?CHR$(SCR(X,Y)-2)
70 Z=Z+1:IFZ=659WAIT300:RUN
80 @B:X=T:Y=U:C=4:FORA=0TO3:GSB@E:C=C-(B>0):NEXT:IFCGOTO@A
90 T=RND(30):U=RND(22):IFSCR(T,U)=ECONT
100 GOTO@B
110 @E:V=(A<2)*(A*2-1):W=(A>1)*(A*2-5):T=X+V:U=Y+W:B=(T<0)+(T>29)+(U<0)+(U>21)+(SCR(T,U)<>E):RTN

COMMENT

Kidspod運営チーム
Kidspod運営チーム2018/05/22 09:40:29

もりもり迷路が作られていくのを見るのは、それだけでも面白いものですね。最後に残った袋小路に向かって、右から道を作るか、それとも左から……なんて予想を立てる遊びもできそうです。