Travel through 5 Levels of Mazes. No Media!

Hey, All!!! When I was younger my dad use to draw me mazes to do with my finger on a piece of paper. I thought it would be cool and easy to put a little character inside a few mazes. I think it turned out really well. There are five mazes. They start very small and get very big. If you just can't find the entrance you might be able to cheat using the control key. You don't need any files to run it. Have Fun!

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem Preview
hide mouse
set text size 40 : set text to bold : center text 320,160,"3D MAZE"
wait 3000
sync on : sync rate 60

rem controled object
make object cylinder 1,1
position object 1,2,1.51,5
yrotate object 1,90
color object 1,rgb(2000,10050,0)

rem walls and ground
make object box 2,1000,1,1000
color object 2,rgb(100,100,100)

make object box 3,1,20,40
position object 3,0,2,30

make object box 4,40,20,1
position object 4,20,2,0

make object box 5,1,20,40
position object 5,40,2,30

make object box 6,40,20,1
position object 6,20,2,50

make object box 7,20,20,1
position object 7,10,2,40

make object box 8,1,20,20
position object 8,20,2,30

make object box 9,1,20,20
position object 9,10,2,20

make object box 10,1,20,20
position object 10,20,2,30

make object box 11,20,20,1
position object 11,20,2,10

make object box 12,1,20,40
position object 12,30,2,20

make object box 1000,1,5,10
position object 1000,0,0,5
hide object 1000

make object box 1001,1,5,10
position object 1001,40,0,5
hide object 1001

rem sky
color backdrop 1000

rem collision
set object collision to boxes 2

rem main loop
do

rem level 1 print
center text 320,15,"Level 1" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#
rem if spacekey()=1 then position object 1,40,0,5

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
goto L2
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1) 
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,64,Z# : Point camera X1#,48,Z1#

rem end loop
sync
loop

rem Level 2 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
L2:
hide mouse
sync on : sync rate 60

rem controled object
position object 1,2,1.51,5
point object 1,2000,1.51,5

rem walls
make object box 3,60,20,1
position object 3,30,2,0
color object 3,rgb(10,10,500)

make object box 4,1,20,30
position object 4,0,2,25
color object 4,rgb(10,10,500)

make object box 5,1,20,40
position object 5,60,2,20
color object 5,rgb(10,10,500)

make object box 6,50,20,1
position object 6,25,2,40
color object 6,rgb(10,10,500)

make object box 7,20,20,1
position object 7,10,2,30
color object 7,rgb(10,10,500)

make object box 8,1,20,20
position object 8,20,2,20
color object 8,rgb(10,10,500)

make object box 9,1,20,10
position object 9,10,2,15
color object 9,rgb(10,10,500)

make object box 10,20,20,1
position object 10,20,2,10
color object 10,rgb(10,10,500)

make object box 11,1,20,20
position object 11,40,2,10
color object 11,rgb(10,10,500)

make object box 12,10,20,1
position object 12,35,2,20
color object 12,rgb(10,10,500)

make object box 13,20,20,1
position object 13,40,2,30
color object 13,rgb(10,10,500)

make object box 14,1,20,30
position object 14,50,2,25
color object 14,rgb(10,10,500)

position object 1001,55,0,40
yrotate object 1001,90

rem collision
set object collision to boxes 2

rem main loop
do

rem level 2 print
center text 320,15,"Level 2" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#
rem if spacekey()=1 then position object 1,55,0,40

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
delete object 13
delete object 14
goto L3
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1) 
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,76,Z# : Point camera X1#,60,Z1#

rem end loop
sync
loop

rem Level 3 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
L3:
hide mouse
sync on : sync rate 60

rem controled object
position object 1,2,1.51,5
point object 1,2000,1.51,5

rem walls
make object box 3,80,20,1
position object 3,40,2,0
color object 3,rgb(500,500,0)

make object box 4,1,20,70
position object 4,0,2,45
color object 4,rgb(500,500,0)

make object box 5,1,20,20
position object 5,10,2,10
color object 5,rgb(500,500,0)

make object box 6,1,20,30
position object 6,20,2,15
color object 6,rgb(500,500,0)

make object box 7,10,20,1
position object 7,15,2,30
color object 7,rgb(500,500,0)

make object box 8,1,20,10
position object 8,20,2,65
color object 8,rgb(500,500,0)

make object box 9,10,20,1
position object 9,15,2,60
color object 9,rgb(500,500,0)

make object box 10,80,20,1
position object 10,40,2,70
color object 10,rgb(500,500,0)

make object box 11,1,20,20
position object 11,80,2,10
color object 11,rgb(500,500,0)

make object box 12,1,20,40
position object 12,80,2,50
color object 12,rgb(500,500,0)

make object box 13,1,20,10
position object 13,10,2,55
color object 13,rgb(500,500,0)

make object box 14,10,20,1
position object 14,25,2,50
color object 14,rgb(500,500,0)

make object box 15,1,20,40
position object 15,30,2,30
color object 15,rgb(500,500,0)

make object box 16,30,20,1
position object 16,25,2,40
color object 16,rgb(500,500,0)

make object box 17,1,20,40
position object 17,40,2,20
color object 17,rgb(500,500,0)

make object box 18,1,20,20
position object 18,40,2,60
color object 18,rgb(500,500,0)

make object box 19,1,20,50
position object 19,50,2,35
color object 19,rgb(500,500,0)

make object box 20,20,20,1
position object 20,60,2,60
color object 20,rgb(500,500,0)

make object box 21,20,20,1
position object 21,60,2,40
color object 21,rgb(500,500,0)

make object box 22,20,20,1
position object 22,70,2,50
color object 22,rgb(500,500,0)

make object box 23,1,20,40
position object 23,60,2,20
color object 23,rgb(500,500,0)

make object box 24,1,20,20
position object 24,70,2,20
color object 24,rgb(500,500,0)

make object box 25,10,20,1
position object 25,75,2,30
color object 25,rgb(500,500,0)

yrotate object 1001,180
position object 1001,80,0,25

rem collision
set object collision to boxes 2

rem main loop
do

rem level 3 print
center text 320,15,"Level 3" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#
rem if spacekey()=1 then position object 1,80,0,25

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
delete object 13
delete object 14
delete object 15
delete object 16
delete object 17
delete object 18
delete object 19
delete object 20
delete object 21
delete object 22
delete object 23
delete object 24
delete object 25
goto L4
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1) 
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,108,Z# : Point camera X1#,81,Z1#

rem end loop
sync
loop

rem Level 4 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
L4:
hide mouse
sync on : sync rate 60

rem controled object
position object 1,2,1.51,55
point object 1,2000,1.51,55

rem walls
make object box 3,80,20,1
position object 3,40,2,0
color object 3,rgb(10,500,10)

make object box 4,1,20,50
position object 4,0,2,25
color object 4,rgb(10,500,10)

make object box 5,1,20,40
position object 5,0,2,80
color object 5,rgb(10,500,10)

make object box 6,1,20,100
position object 6,90,2,50
color object 6,rgb(10,500,10)

make object box 7,90,20,1
position object 7,45,2,100
color object 7,rgb(10,500,10)

make object box 8,1,20,10
position object 8,10,2,45
color object 8,rgb(10,500,10)

make object box 9,10,20,1
position object 9,15,2,40
color object 9,rgb(10,500,10)

make object box 10,1,20,40
position object 10,20,2,60
color object 10,rgb(10,500,10)

make object box 11,40,20,1
position object 11,30,2,70
color object 11,rgb(10,500,10)

make object box 12,60,20,1
position object 12,30,2,80
color object 12,rgb(10,500,10)

make object box 13,50,20,1
position object 13,25,2,30
color object 13,rgb(10,500,10)

make object box 14,1,20,10
position object 14,30,2,35
color object 14,rgb(10,500,10)

make object box 15,1,20,10
position object 15,50,2,35
color object 15,rgb(10,500,10)

make object box 16,10,20,1
position object 16,45,2,40
color object 16,rgb(10,500,10)

make object box 17,20,20,1
position object 17,40,2,50
color object 17,rgb(10,500,10)

make object box 18,1,20,20
position object 18,40,2,50
color object 18,rgb(10,500,10)

make object box 19,1,20,60
position object 19,60,2,50
color object 19,rgb(10,500,10)

make object box 20,10,20,1
position object 20,55,2,60
color object 20,rgb(10,500,10)

make object box 21,50,20,1
position object 21,35,2,20
color object 21,rgb(10,500,10)

make object box 22,60,20,1
position object 22,40,2,10
color object 22,rgb(10,500,10)

make object box 23,10,20,1
position object 23,65,2,30
color object 23,rgb(10,500,10)

make object box 24,1,20,70
position object 24,70,2,45
color object 24,rgb(10,500,10)

make object box 25,1,20,90
position object 25,80,2,45
color object 25,rgb(10,500,10)

make object box 26,30,20,1
position object 26,65,2,90
color object 26,rgb(10,500,10)

make object box 27,30,20,1
position object 27,25,2,90
color object 27,rgb(10,500,10)

make object box 28,1,20,10
position object 28,40,2,95
color object 28,rgb(10,500,10)

position object 1000,0,0,55

yrotate object 1001,90
position object 1001,85,0,0

rem collision
set object collision to boxes 2

rem main loop
do

rem level 4 print
center text 320,15,"Level 4" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#
rem if spacekey()=1 then position object 1,85,0,0

rem collision stats
if object collision(1,1001)
wait 1500
delete object 3
delete object 4
delete object 5
delete object 6
delete object 7
delete object 8
delete object 9
delete object 10
delete object 11
delete object 12
delete object 13
delete object 14
delete object 15
delete object 16
delete object 17
delete object 18
delete object 19
delete object 20
delete object 21
delete object 22
delete object 23
delete object 24
delete object 25
delete object 26
delete object 27
delete object 28
goto L5
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#


rem camera
X1# = Object position x(1) 
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,140,Z# : Point camera X1#,105,Z1#

rem end loop
sync
loop

rem Level 5 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
L5:
hide mouse
sync on : sync rate 60

rem controled object
position object 1,2,1.51,115
point object 1,2000,1.51,115

rem walls
make object box 3,100,20,1
position object 3,50,2,0
color object 3,rgb(500,10,10)

make object box 4,1,20,110
position object 4,0,2,55
color object 4,rgb(500,10,10)

make object box 5,1,20,120
position object 5,110,2,60
color object 5,rgb(500,10,10)

make object box 6,110,20,1
position object 6,55,2,120
color object 6,rgb(500,10,10)

make object box 7,10,20,1
position object 7,5,2,110
color object 7,rgb(500,10,10)

make object box 8,40,20,1
position object 8,40,2,110
color object 8,rgb(500,10,10)

make object box 9,1,20,20
position object 9,10,2,90
color object 9,rgb(500,10,10)

make object box 10,20,20,1
position object 10,20,2,100
color object 10,rgb(500,10,10)

make object box 11,1,20,10
position object 11,30,2,95
color object 11,rgb(500,10,10)

make object box 12,10,20,1
position object 12,25,2,90
color object 12,rgb(500,10,10)

make object box 13,1,20,20
position object 13,20,2,80
color object 13,rgb(500,10,10)

make object box 14,20,20,1
position object 14,10,2,70
color object 14,rgb(500,10,10)

make object box 15,1,20,20
position object 15,40,2,80
color object 15,rgb(500,10,10)

make object box 16,1,20,30
position object 16,50,2,85
color object 16,rgb(500,10,10)

make object box 17,30,20,1
position object 17,35,2,70
color object 17,rgb(500,10,10)

make object box 18,1,20,10
position object 18,40,2,105
color object 18,rgb(500,10,10)

make object box 19,1,20,10
position object 19,30,2,85
color object 19,rgb(500,10,10)

make object box 20,1,20,40
position object 20,60,2,90
color object 20,rgb(500,10,10)

make object box 21,1,20,10
position object 21,70,2,115
color object 21,rgb(500,10,10)

make object box 22,10,20,1
position object 22,65,2,100
color object 22,rgb(500,10,10)

make object box 23,20,20,1
position object 23,70,2,80
color object 23,rgb(500,10,10)

make object box 24,10,20,1
position object 24,75,2,90
color object 24,rgb(500,10,10)

make object box 25,1,20,30
position object 25,80,2,105
color object 25,rgb(500,10,10)

make object box 26,30,20,1
position object 26,75,2,70
color object 26,rgb(500,10,10)

make object box 27,1,20,50
position object 27,90,2,95
color object 27,rgb(500,10,10)

make object box 28,1,20,10
position object 28,80,2,65
color object 28,rgb(500,10,10)

make object box 29,40,20,1
position object 29,80,2,60
color object 29,rgb(500,10,10)

make object box 30,1,20,50
position object 30,100,2,85
color object 30,rgb(500,10,10)

make object box 31,30,20,1
position object 31,75,2,50
color object 31,rgb(500,10,10)

make object box 32,1,20,10
position object 32,100,2,45
color object 32,rgb(500,10,10)

make object box 33,1,20,10
position object 33,90,2,45
color object 33,rgb(500,10,10)

make object box 34,30,20,1
position object 34,95,2,30
color object 34,rgb(500,10,10)

make object box 35,1,20,10
position object 35,80,2,35
color object 35,rgb(500,10,10)

make object box 36,30,20,1
position object 36,65,2,40
color object 36,rgb(500,10,10)

make object box 37,1,20,20
position object 37,50,2,60
color object 37,rgb(500,10,10)

make object box 38,10,20,1
position object 38,35,2,60
color object 38,rgb(500,10,10)

make object box 39,1,20,10
position object 39,30,2,55
color object 39,rgb(500,10,10)

make object box 40,1,20,20
position object 40,40,2,50
color object 40,rgb(500,10,10)

make object box 41,10,20,1
position object 41,45,2,40
color object 41,rgb(500,10,10)

make object box 57,10,20,1
position object 57,25,2,40
color object 57,rgb(500,10,10)

make object box 42,1,20,20
position object 42,20,2,50
color object 42,rgb(500,10,10)

make object box 43,1,20,20
position object 43,10,2,50
color object 43,rgb(500,10,10)

make object box 44,10,20,1
position object 44,15,2,60
color object 44,rgb(500,10,10)

make object box 45,10,20,1
position object 45,5,2,40
color object 45,rgb(500,10,10)

make object box 46,30,20,1
position object 46,15,2,30
color object 46,rgb(500,10,10)

make object box 47,20,20,1
position object 47,20,2,20
color object 47,rgb(500,10,10)

make object box 48,30,20,1
position object 48,25,2,10
color object 48,rgb(500,10,10)

make object box 49,1,20,10
position object 49,10,2,15
color object 49,rgb(500,10,10)

make object box 50,1,20,20
position object 50,40,2,20
color object 50,rgb(500,10,10)

make object box 51,20,20,1
position object 51,50,2,30
color object 51,rgb(500,10,10)

make object box 52,1,20,20
position object 52,60,2,20
color object 52,rgb(500,10,10)

make object box 53,50,20,1
position object 53,85,2,20
color object 53,rgb(500,10,10)

make object box 54,1,20,20
position object 54,50,2,10
color object 54,rgb(500,10,10)

make object box 55,1,20,10
position object 55,100,2,5
color object 55,rgb(500,10,10)

make object box 56,30,20,1
position object 56,85,2,10
color object 56,rgb(500,10,10)

position object 1000,0,0,115

position object 1001,105,0,0

rem collision
set object collision to boxes 2

rem main loop
do

rem level 5 print
center text 320,15,"Level 5" : set text to bold : set text size 30

rem controls
aY# = object angle Y(1)
if upkey()=1 then move object 1,0.4
if downkey()=1 then move object 1,-0.4
if rightkey()=1 then aY# = wrapvalue(aY#+3)
if leftkey()=1 then aY# = wrapvalue(aY#-3)
yrotate object 1,aY#
rem if spacekey()=1 then position object 1,105,0,0

rem collision stats
if object collision(1,1001)
wait 1500
goto W
endif
if object collision(1,0) then position object 1,X1#,1.51,Z1#

rem camera
X1# = Object position x(1) 
Z1# = Object position z(1)
X# = Newxvalue(X1#,aY#-180,5)
Z# = Newzvalue(Z1#,aY#-180,5)
Position Camera X#,4,Z#
Point camera X1#,3,Z1#
if controlkey()=1 then Position Camera X#,160,Z# : Point camera X1#,120,Z1#

rem end loop
sync
loop

W:
do
set text to bold : set text size 60 : center text 320,15,"Congratulations"
set text to italic : set text size 25 : center text 320,440,"Press Escape to End"
loop