Maze generation: Difference between revisions
Content added Content deleted
Line 1,820: | Line 1,820: | ||
400 U=U+1:PC(U)=C:PR(U)=R:REM PUSH |
400 U=U+1:PC(U)=C:PR(U)=R:REM PUSH |
||
410 V(C,R)=1 |
410 V(C,R)=1 |
||
420 IF V(C,R+1)=1 AND V(C+1,R)=1 AND V(C,R-1)=1 AND V(C-1,R)=1 THEN GOTO |
420 IF V(C,R+1)=1 AND V(C+1,R)=1 AND V(C,R-1)=1 AND V(C-1,R)=1 THEN GOTO 500 |
||
00 |
|||
430 Z=INT(RND(1)*4) |
430 Z=INT(RND(1)*4) |
||
440 IF Z=0 AND V(C,R+1)=0 THEN S(C,R)=0:R=R+1:GOTO 400 |
440 IF Z=0 AND V(C,R+1)=0 THEN S(C,R)=0:R=R+1:GOTO 400 |