mazescreen@mazemod %@: end,moves,my,mx,a,x,y,d,emx,nx,u,cx,cy,yourx,youry,xx,yy,pa ': w,c,wr,s,wf,wl,fw,dp,dwr,dwl,er,el ( : c(),u() 2:i$5 d: n7:0:0: c(1500,3) end =0 a=1200  *7 a Q*65535 :7:0:0:0:0:0:0: :" 3D Maze" !:" Modified by Johan Steyn" :" 2010" C''';" Try 30x20 - Wall breaking: 1":';" Hall length: 2"  9110# 4"MAZE SIZE ; X (3-30) ";mx;12 ;"Y (3-20)";my ,mx=mx:mx<3mx>301030 ,my=my:my<3my>201030 $moves=0 .#"Wall Breaking Factor (0-20)";brk 8+brk > 20brk<0brk =10 L "Hall Legth Factor (0-10)";hlf V'hlf>10 hlf<0hlf=6 `hlf=(10 -hlf)/10 j fls=0  Make maze  Ka=1mx+1:8*a-1,167:0,-8*my:a Ja=1my+1:7,175-8*a:8*mx,0:a &x=(1+*mx):y=(1+*my)  dx=1:dy=0  d=0 4D>.1}Ldy=0dy=(2*)*2-1:dx=0 >9>.8Ly+dy>myy+dy<1dx=1:dy=0 C 2140\ H 9000(# Rxmx21004 \emx=mx ny=y+dy:nx=x+dx G>hlfnymyny1nxmxnx1(ny,nx)=72290 u=0:u(4,2) Ax1(y,x-1)=7u=u+1:u(u,1)=-1 Ay1(y-1,x)=7u=u+1:u(u,2)=-1 u=02300 4u=(1+u*):dx=u(u,1):dy=u(u,2) 9000(#:2200 y,x;2;1;" " .cx=8*x+3:cy=171-8*y L(cx+4,cy)=0(y,x+1)=15x=x+1:2220 L(cx-4,cy)=0(y,x-1)=15x=x-1:2220 $L(cx,cy-4)=0(y+1,x)=15y=y+1:2220 .L(cx,cy+4)=0(y-1,x)=15y=y-1:2220 ez=1mx*my*brk/100d j:x=2+((mx-2)*):y=2+((my-2)*) t-dx=2*(2*)-1:dy=0 ~9>.5dy=2*(2*)-1:dx=0 9000(# z y,emx;">" ;xx=1:yy=(2+*(my-2)):yy,0;">" yy,xx;1;1;" " yourx=xx:youry=yy:d=0  "Press ENTER to begin ";i$ m$(22,32 ) <236066\,23675{\:236077\,23676|\-1 ,y=0my+1:x=0mx+1 *m$(y+1,x+1)=(y,x):y,x;" " x:y +236066\,0:236077\,60< move through maze 0:7 -:pa=87W:p=80P:x=yourx:y=youry moves14994020  c(moves+1,1)=yourx  c(moves+1,2)=youry c(moves+1,3)=d X4,29;"N";6,27;"W ";(149+d);" E";8,29;"S" moves1498fls=1 Wmoves=moves+1:12 ,27;"MOVE":13 ,27;fls;moves-1 e4,1;"Q ";(152)'" A ";(150)'" O ";(151)'" P ";(149)'"SPACE" z=120 V127-p,87W-p:0,2*p:127+p,87W-p:0,2*p Lc=m$(y+1,x+1):w=m$(y+1,x):s=m$(y+2,x+1) "ed=0wr=(s=33!)+(s=35#):wl=(c=33!)+(c=35#):wf=(c=33!)+(c=34") ,ed=1wr=(w=33!)+(w=34"):wl=(c=33!)+(c=34"):wf=(s=33!)+(s=35#) 6ed=2wr=(c=33!)+(c=35#):wl=(s=33!)+(s=35#):wf=(w=33!)+(w=34") @ed=3wr=(c=33!)+(c=34"):wl=(w=33!)+(w=34"):wf=(c=33!)+(c=35#) Jz=1fw=wf hdp=pa-p:dwr=dpwr:dwl=dpwl r1er=wr((d=3x=mx)(d=1x=1)) |1el=wl((d=3x=1)(d=1x=mx)) Fer127+p,87W-p:dp,-dwr:127+p,87W+p:dp,dwr Hel127-p,87W-p:-dp,-dwl:127-p,87W+p:-dp,dwl Yer127+p,87W+p:dp,-(2*p+dp):127+p,87W-p:dp,2*p+dp [el127-p,87W+p:-dp,-(2*p+dp):127-p,87W-p:-dp,2*p+dp fwf127-p,87W-p:2*p,0:127-p,87W+p:2*p,0:5000 ̦(d=0x=mx)(d=2x=1)pd=.9fffg*p:127-pd,87W-pd:2*pd,2*pd:127-pd,87W+pd:2*pd,-2*pd:5000 Qx=x+(d=0)-(d=2):y=y+(d=1)-(d=3):pa=p:p=(.8L*p)  ""5000 z  "k$=:k$>"Z"k$=(k$-32 ) 0k$" "k$"O"k$"P"k$"A"k$"Q"5000 .007ye`A,20 k$=" "6000p k$="Q"5100 +k$="O"d=d-1:d<0d=3 k$="P"d=d+1 k$="A"d=d+2 d>3d=d-4  4000 fw5000 gyourx=1d=210 ,11 ;1;"ENTRANCE";1,1;"CLOSED":5000  yourx=mxd=07000X  Jyourx=yourx+(d=0)-(d=2):youry=youry+(d=1)-(d=3)  4000 p!show maze with current position z>:236066\,23675{\:236077\,23676|\-1 :xp=((30-mx)/2):yp=((20-my)/2) 1y=1my+2:yp+y-1,xp;m$(y):y +236066\,0:236077\,60< $moves>1500moves=1500 *#0;"'E' to end - any key for Fast" z=1moves w$= -w$ ="".01z# =,z/moves*502-30 Eyp+c(z,2),xp+c(z,1);1;(149+c(z,3)) Eyp+c(z,2),xp+c(z,1);1;(149+c(z,3)) O(xp+c(z,1))*8+4,175-(yp+c(z,2))*8-4 w$ ="e"w$ ="E"z=moves z:.5,30 ,yp+youry,xp+yourx;1;(149+d) end=1 &"Press ENTER to return to maze ";i$  4000 X b5:1: lS8,11 ;"OUT AFTER";10 ,14;moves;12 ,13 ;"MOVES" vU0,5,9 ,5,9 ,12 ,9 ,12 ,15,15 t=13:7030v 'a=110 :b:.05|L,b:a  t:0  end=1 " Press ENTER continue";a$ 6:1:6000p  0 " Try again? (y/n) ";a$ a$="y"a$="Y"1005  #( #2dy=08;8;8*(x+(dx=1))-1,167-8*y:8;8;1;0,7 #<dx=08;8;8*x-1,175-8*(y+(dy=1)):8;8;1;7,0 #Fx=x+dx:y=y+dy #Py,x;1;1;" " #d # #A0,0,0,0,0,0,0,0 #C255,1,1,1,1,1,1,1 #A1,1,1,1,1,1,1,1 #C255,0,0,0,0,0,0,0 #A1,0,0,0,0,0,0,0 #C0,0,0,8,124|,8,0,0 #F0,0,16,16,16,568,16,0 #E0,0,0,32 ,124|,32 ,0,0 #F0,0,16,568,16,16,16,0 # 9110# #$a=071G:b:"a"+a,b:a $ %45757 %N %"mazemod"9700% %"maze"45757,8954" % % 45756 %"mazescreen" %"maze"45757 % 9500% maze ""͛!"l\!hͭ!nͭ!}͗"k ͛!T'#>͠!"!"!"4!ͧ!Bͯ}͗"*#"[4R/|ͧ!BͯDMR!hͭ!nͭ!tͭ!zͭ!͆ͭ!̀ͭ!}͗"k ͛> : 3D Maze> > : Modified by Johan Steyn> > : 2010> > > > : Try 30x20 - Wall breaking: 1> > : Hall length: 2> $\͘:MAZE SIZE ; X (3-30) ͥ"! ͔:Y (3-20)ͥ"͂*"*}*͏z(!|=*"*}*͏z(!|=!"\͘:Wall Breaking Factor (0-20)ͫ.͂!ʹ3!B `!ʹ3!B `z(!|B! B.\͘:Hall Legth Factor (0-10)ͫ.͂!ʹ3! B `!ʹ3!B `z(!|ʮ!B.! B!ʹ3! Bͺ.!B.k ͛!"*#"4!![+!E"!B![Jͷ$*#"[4R/|!"*#"4}!!![RE"![J!Bͷ$*#"[4R⋶|D!Bͧ*Jͯͯ6"!Bͧ*Jͯͯ6"!B.!B.!"ͧ=}L `!ʹ3!B`|(|D!Bͧͯͯ6>!B.!B.ͧ=ӀL `*J!ʹ3*J `z(!*J!ʹ3!B `z(!|ʹ!B.!B.η*[͢|*"*J!ʹ3 .*J!ʹ3"ͧ!ʹ3 `! ʹ3*J `|(! ʹ3!B `|(*[͢|(*͆|(|! ʹ3*E|,!"!|>͠*[Ͳ|ݸ**#E|ݸ*#"*+!|+)!s#r*͏|)**+E|)*#"*+!|+)!s#r*[Ͳ|v*#*E|v*#"*+!|+)!s#r*͏|¹*+*E|¹*#"*+!|+)!s#r*͙|2!B*Jͧͯͯ6"*+!|.J.*+!|.J.Է**͌!n!͆> > M ![###"!![R"**E|ʵ**#E|ʵ*#"*R*E|**+E|*+"**RE|3*#*E|3*#"**E|p*+*E|p*+"!Bl*[J!ʹ3ͯ!dBͺJl!BOxz!B*++Jͧͯͯ6"!B*++Jͧͯͯ6"!B!Bͧͯͯ6ͯ!B.!B.ͧ=Ӏ `|k!B!Bͧͯͯ6ͯ!B.!B.!J̓ʰ**͌>>> !"!Bͧ*++Jͯͯ6"*!͌>>> **͌!n!͆> > M *"*"!"\͘:Press ENTER to begin ͳ!H͂! "!> ͠!6\!{\n&s!7\!|\n&+s!"*#"F̽!"*#"Bô*#6*#-+**E8%+Ϳ**͌> > *#"[BR½|p*#"[FRڽ|^!6\6!7\6N!!͌:W ![}5!: E!!͌>S> Ϳ*͆|!B.*#"! !͌:MOVE> ! !͌!ʹ3t*+'> M !!͌:Q !}5!> : A !}5!> : O !}5!> : P !}5!> :SPACE> Ϳ!Bl!BJl!BOx-!B!ʹ3!WB!ʹ3E"!B!B!ʹ3ͯͷ$!B!ʹ3!WB!ʹ3E"!B!B!ʹ3ͯͷ$*#6*#-"*#6*-"*##6*#-"*͙|*!͙*#͙"*!͙*#͙"*!͙*"͙"*͙|A*!͙*"͙"*!͙*"͙"*!͙*#͙"*͙|ʗ*!͙*#͙"*!͙*#͙"*!͙*"͙"*͙|*!͙*"͙"*!͙*"͙"*!͙*#͙"!ʹ3!B`| *"*J!ʹ3"**|("**|("**͙*[|(*͙*͙|(z(!|("**͙*͙|(*͙*[|(z(!|("*|[!B!ʹ3!WB!ʹ3E"*J*կogJͷ$!B!ʹ3!WB!ʹ3E"*J*Jͷ$*|!B!ʹ3!WB!ʹ3E"*կogJ*կogJͷ$!B!ʹ3!WB!ʹ3E"*կogJ*Jͷ$*|ʋ!B!ʹ3!WB!ʹ3E"*J!B!ʹ3ͯ*Jͷ$!B!ʹ3!WB!ʹ3E"*J!B!ʹ3ͯ*Jͷ$*|8!B!ʹ3!WB!ʹ3E"*կogJ!B!ʹ3ͯ*Jͷ$!B!ʹ3!WB!ʹ3E"*կogJ!B!ʹ3ͯ*Jͷ$*|!B!ʹ3!WB!ʹ3E"!B!ʹ3ͯ!Bͷ$!B!ʹ3!WB!ʹ3E"!B!ʹ3ͯ!Bͷ$-*͙*[|(*͙*͙|(z(!|ʹ=Ӏfffg!ʹ3ͯ.!B!ʹ3!WB!ʹ3E"!B!ʹ3ͯ!B!ʹ3ͯͷ$!B!ʹ3!WB!ʹ3E"!B!ʹ3ͯ!J!ʹ3ͯͷ$-**͙*͙R"**͙*͙R"!ʹ3"=ӀL!ʹ3ͯͯ6.!J̓ƿ!HͿ!XFZ|i!X R}5!HͿ!XF !XFO|(!XFP|(!XFA|(!XFQ|(|-=ye`A!B!XF |X!XFQ|‘!XFO|=*+"*}|=!"!XFP|X*#"!XFA|t*##"*͏|ʎ*R"*|-*͙*͙|(|! ! ͌!t:ENTRANCE!!͌:CLOSED> M -*[*͙|(|W**͙*͙R"**͙*͙R"k ͛!6\!{\n&s!7\!|\n&+s![էR,J .![էR,J%.!"*##"F!%ʹ3*J!B! ʹ3͌*6Ͷ*!> *#"[FR |!6\6!7\6<*͏|+!"!}:'E' to end - any key for Fast> ͛!Bl*JJl!BOx¸!WHͿ!WXF|=z# =!ʹ3*Jͺ!2Bͯ!B!%ʹ3!ʹ3+!T.J! ʹ3!ʹ3+!T.J͌!͆!!ʹ3+!T.}5!> M Ϳ!%ʹ3!ʹ3+!T.J! ʹ3!ʹ3+!T.J͌!͆!!ʹ3+!T.}5!> M Ϳ! ʹ3!ʹ3+!T.J>!B!B!%ʹ3!ʹ3+!T.J>!BE"!WXFe!WXFEz(!|ʬ*J.!J̓ʁ=!B!%ʹ3*J! ʹ3*J͌!͆![}5!> M Ϳ*͙|\͘:Press ENTER to return to maze ͳ!H͂!nͭ!hͭk ͛!! ͌: OUT AFTER! !͌*'! ! ͌:MOVES> !B*l!B8l!B=x-!"l\!"! "4R/.=|L!/ʹ3*#"[4R|*!8̓!nͭ!"\͘: Press ENTER continueͳ!H͂!hͭ!zͭX!zͭ\͘: Try again? (y/n) ͳ!H͂!XFy!XFYz(!|!X'!ʹ3!B`|]!n!h!*!ʹ3!B`+!![RE"!n!h!̀!B!Bw$!ʹ3!B`|!h!n![+!!*!ʹ3!B`RE"!h!n!̀!B!Bw$*J!ʹ3"*J!ʹ3"**͌!n!͆> > M !O"l\!"!G"4fR/.Fa#[!/ʹ3s*#"[4Rt|;!X'|!|!|ʲ!|!R|!,ɧR|!,ɯRgo,ɯRgo,ɯRgo,>>>++|x (?( 8 #+!0,}o+< J-+ö*N#F#T] < N#F#T] ö**l\ʹ3"l\"n\[]\[=\ss=\!s6Ϳ*n\͠ ͿS=\S]\Û>n 6ͫͳ5*a\T]~ ʶ*#!q\˾Ϳ6 "[\,6"! K\ !q\ˮͿ5~(=#~2~5"e\##^#Vͼ4"e\-+)^#VN#F#`i+q#py#N#F#ö* 8"e\##n&*e\B.Wßʹ3ʹ3ʹ3#~W"e\#~]0Se\]ͯ1Se\Ϳ5͗2~Ȁw(x ?xʭ1 5]0Se\]0Se\}!,Ϳ5n4> 8 z ClMD!>#0 )= *e\B"e\ʹ3_ULGö*_|(ULGö*]<4*e\ T] >U">U">U">U">U">U">{}>}>T]wKv\+-474A218͢-Cv\~(w͎ 0_3ö*ͪ"G~&oyOoyXgn&+x(o&  |8 | 8imazemod % 9500% @: end,moves,my,mx,a,x,y,d,emx,nx,u,cx,cy,yourx,youry,xx,yy,pa ': w,c,wr,s,wf,wl,fw,dp,dwr,dwl,er,el ( : c(),u() 2:i$5 d: n7:0:0: c(1500,3) end =0 a=1200  *7 a Q*65535 :7:0:0:0:0:0:0: :" 3D Maze" !:" Modified by Johan Steyn" :" 2010" C''';" Try 30x20 - Wall breaking: 1":';" Hall length: 2"  9110# 4"MAZE SIZE ; X (3-30) ";mx;12 ;"Y (3-20)";my ,mx=mx:mx<3mx>301030 ,my=my:my<3my>201030 $moves=0 .#"Wall Breaking Factor (0-20)";brk 8+brk > 20brk<0brk =10 L "Hall Legth Factor (0-10)";hlf V'hlf>10 hlf<0hlf=6 `hlf=(10 -hlf)/10 j fls=0  Make maze  Ka=1mx+1:8*a-1,167:0,-8*my:a Ja=1my+1:7,175-8*a:8*mx,0:a &x=(1+*mx):y=(1+*my)  dx=1:dy=0  d=0 4D>.1}Ldy=0dy=(2*)*2-1:dx=0 >9>.8Ly+dy>myy+dy<1dx=1:dy=0 C 2140\ H 9000(# Rxmx21004 \emx=mx ny=y+dy:nx=x+dx G>hlfnymyny1nxmxnx1(ny,nx)=72290 u=0:u(4,2) Ax1(y,x-1)=7u=u+1:u(u,1)=-1 Ay1(y-1,x)=7u=u+1:u(u,2)=-1 u=02300 4u=(1+u*):dx=u(u,1):dy=u(u,2) 9000(#:2200 y,x;2;1;" " .cx=8*x+3:cy=171-8*y L(cx+4,cy)=0(y,x+1)=15x=x+1:2220 L(cx-4,cy)=0(y,x-1)=15x=x-1:2220 $L(cx,cy-4)=0(y+1,x)=15y=y+1:2220 .L(cx,cy+4)=0(y-1,x)=15y=y-1:2220 ez=1mx*my*brk/100d j:x=2+((mx-2)*):y=2+((my-2)*) t-dx=2*(2*)-1:dy=0 ~9>.5dy=2*(2*)-1:dx=0 9000(# z y,emx;">" ;xx=1:yy=(2+*(my-2)):yy,0;">" yy,xx;1;1;" " yourx=xx:youry=yy:d=0  "Press ENTER to begin ";i$ m$(22,32 ) <236066\,23675{\:236077\,23676|\-1 ,y=0my+1:x=0mx+1 *m$(y+1,x+1)=(y,x):y,x;" " x:y +236066\,0:236077\,60< move through maze 0:7 -:pa=87W:p=80P:x=yourx:y=youry moves14994020  c(moves+1,1)=yourx  c(moves+1,2)=youry c(moves+1,3)=d X4,29;"N";6,27;"W ";(149+d);" E";8,29;"S" moves1498fls=1 Wmoves=moves+1:12 ,27;"MOVE":13 ,27;fls;moves-1 e4,1;"Q ";(152)'" A ";(150)'" O ";(151)'" P ";(149)'"SPACE" z=120 V127-p,87W-p:0,2*p:127+p,87W-p:0,2*p Lc=m$(y+1,x+1):w=m$(y+1,x):s=m$(y+2,x+1) "ed=0wr=(s=33!)+(s=35#):wl=(c=33!)+(c=35#):wf=(c=33!)+(c=34") ,ed=1wr=(w=33!)+(w=34"):wl=(c=33!)+(c=34"):wf=(s=33!)+(s=35#) 6ed=2wr=(c=33!)+(c=35#):wl=(s=33!)+(s=35#):wf=(w=33!)+(w=34") @ed=3wr=(c=33!)+(c=34"):wl=(w=33!)+(w=34"):wf=(c=33!)+(c=35#) Jz=1fw=wf hdp=pa-p:dwr=dpwr:dwl=dpwl r1er=wr((d=3x=mx)(d=1x=1)) |1el=wl((d=3x=1)(d=1x=mx)) Fer127+p,87W-p:dp,-dwr:127+p,87W+p:dp,dwr Hel127-p,87W-p:-dp,-dwl:127-p,87W+p:-dp,dwl Yer127+p,87W+p:dp,-(2*p+dp):127+p,87W-p:dp,2*p+dp [el127-p,87W+p:-dp,-(2*p+dp):127-p,87W-p:-dp,2*p+dp fwf127-p,87W-p:2*p,0:127-p,87W+p:2*p,0:5000 ̦(d=0x=mx)(d=2x=1)pd=.9fffg*p:127-pd,87W-pd:2*pd,2*pd:127-pd,87W+pd:2*pd,-2*pd:5000 Qx=x+(d=0)-(d=2):y=y+(d=1)-(d=3):pa=p:p=(.8L*p)  ""5000 z  "k$=:k$>"Z"k$=(k$-32 ) 0k$" "k$"O"k$"P"k$"A"k$"Q"5000 .007ye`A,20 k$=" "6000p k$="Q"5100 +k$="O"d=d-1:d<0d=3 k$="P"d=d+1 k$="A"d=d+2 d>3d=d-4  4000 fw5000 gyourx=1d=210 ,11 ;1;"ENTRANCE";1,1;"CLOSED":5000  yourx=mxd=07000X  Jyourx=yourx+(d=0)-(d=2):youry=youry+(d=1)-(d=3)  4000 p!show maze with current position z>:236066\,23675{\:236077\,23676|\-1 :xp=((30-mx)/2):yp=((20-my)/2) 1y=1my+2:yp+y-1,xp;m$(y):y +236066\,0:236077\,60< $moves>1500moves=1500 *#0;"'E' to end - any key for Fast" z=1moves w$= -w$ ="".01z# =,z/moves*502-30 Eyp+c(z,2),xp+c(z,1);1;(149+c(z,3)) Eyp+c(z,2),xp+c(z,1);1;(149+c(z,3)) O(xp+c(z,1))*8+4,175-(yp+c(z,2))*8-4 w$ ="e"w$ ="E"z=moves z:.5,30 ,yp+youry,xp+yourx;1;(149+d) end=1 &"Press ENTER to return to maze ";i$  4000 X b5:1: lS8,11 ;"OUT AFTER";10 ,14;moves;12 ,13 ;"MOVES" vU0,5,9 ,5,9 ,12 ,9 ,12 ,15,15 t=13:7030v 'a=110 :b:.05|L,b:a  t:0  end=1 " Press ENTER continue";a$ 6:1:6000p  0 " Try again? (y/n) ";a$ a$="y"a$="Y"1005  #( #2dy=08;8;8*(x+(dx=1))-1,167-8*y:8;8;1;0,7 #<dx=08;8;8*x-1,175-8*(y+(dy=1)):8;8;1;7,0 #Fx=x+dx:y=y+dy #Py,x;1;1;" " #d # #A0,0,0,0,0,0,0,0 #C255,1,1,1,1,1,1,1 #A1,1,1,1,1,1,1,1 #C255,0,0,0,0,0,0,0 #A1,0,0,0,0,0,0,0 #C0,0,0,8,124|,8,0,0 #F0,0,16,16,16,568,16,0 #E0,0,0,32 ,124|,32 ,0,0 #F0,0,16,568,16,16,16,0 # 9110# #$a=071G:b:"a"+a,b:a $ %45757 %N %"mazemod"9700% %"maze"45757,8954" % % 45756 %"mazescreen" %"maze"45757 % 9500%