CMM2: Maze Generating Program
Author
Message
TassyJim
Guru
Joined: 07/08/2011
Location: AustraliaPosts: 6144
Posted: 03:40am 09 Jun 2020
Call this just before printing the maze:
Quote
SUB
setendpoints
LOCAL
INTEGER
s
DO
s =
RND
()*
LENGTH
*
2
+
1
IF
MID$
(m$(s),
2
,
1
)=
" "
THEN
EXIT
DO
LOOP
m$(s)=
" "
+
MID$
(m$(s),
2
)
DO
s =
RND
()*
LENGTH
*
2
+
1
IF
MID$
(m$(s),
LEN
(m$(s))-
1
,
1
)=
" "
THEN
EXIT
DO
LOOP
m$(s)=
LEFT$
(m$(s),
LEN
(m$(s))-
1
)+
" "
END
SUB
Random start and finish on each side.
Jim
Edited 2020-06-09 13:55 by TassyJim
