Sorry your browser is not supported!

sync on

` Create Variable for keeping our steps
`point(x,y)
dim pointx(100) 
dim pointz(100)
` Make You
make object cube 1,5
`Make the bad guy
make object sphere 2,10
position camera -100,50,-100

`make a timer to tell when to record the spot
time = 0
`Remember the last point we made on pointx(track)
track = 1
do
	if upkey()=1 then move object 1,1
	if downkey()=1 then move object 1,-1
	if leftkey()=1 then yrotate object 1,wrapvalue(object angle y(1)-1)
	if rightkey()=1 then yrotate object 1,wrapvalue(object angle y(1)+1)

inc time

if time = 100
	pointx(track) = object position x(1)
	pointz(track) = object position z(1)
	track = track + 1
	time = 0
endif

point object 2,pointx(track - 1),0,pointz(track - 1)
move object 2,1.5

point camera object position x(1),0,object position z(1)

	sync
loop

sync rate 0
make object plain 1,50,50
position object 1,50,0,150
time = 0
sync on
do
set object to camera orientation 1
if upkey()=1 
move camera .88
endif
if downkey()=1 
move camera -.88
endif


rem cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
cz#=wrapvalue(cz#+mousemovez())
rotate camera cx#,cy#,cz#
pointx = camera position x()
pointz = camera position z()
pointy = camera position y()

point object 1,pointx,pointy,pointz
move object 1,1

point camera object position x(1),object position y(1),object position z(1)

	sync
loop

Do
set object to camera orientation ladder

if upkey()=1 
move camera 2.5
endif
if downkey()=1 
move camera -2.5
endif


rem cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
cz#=wrapvalue(cz#+mousemovez())
rotate camera cx#,cy#,cz#

if time > 0 then time = time - 1

rem moves minotour
if time=0
	if minotaur=0
		make object plain 2000,50,50
		position object 2000,50,0,-180
		minotaur=1
	ENDIF
set object to camera orientation 2000
pointx = camera position x()
pointz = camera position z()
pointy = camera position y()
point object 2000,pointx,pointy,pointz
move object 2000,2.62
remstart
if object position x(2000)>camera position x()-10 
	if object position x(2000)<camera position x()+10 
		if object position z(2000)>camera position z()-10 
			if object position z(2000)<camera position z()+10
				end
			ENDIF
		ENDIF
	ENDIF
ENDIF

sync on
sync rate 40
make object plain 1,25,25
position object 1,0,0,-50
make object plain 2,50,50
position object 2,0,0,25
posx#=object position x(2)
posy#=object position y(2)
posz#=object position z(2)
make static collision box posx#,posy#,posz#,posx#,posy#,posz#
make object plain 3,50,50
position object 3,25,0,0
yrotate object 3,270
posx#=object position x(3)
posy#=object position y(3)
posz#=object position z(3)
make static collision box posx#,posy#,posz#,posx#,posy#,posz#

Do
posx#=object position x(1)
posy#=object position y(1)
posz#=object position z(1)
move object 1,1
if upkey()=1 
move camera 2.5
endif
if downkey()=1 
move camera -2.5
endif
cx#=wrapvalue(cx#+mousemovey())
cy#=wrapvalue(cy#+mousemovex())
cz#=wrapvalue(cz#+mousemovez())
rotate camera cx#,cy#,cz#
if static line of sight(posx#,posy#,posz#,posx#,posy#,posz#+25,5,1)=1
	yrotate object 1,90
		if static line of sight(posx#,posy#,posz#,posx#+25,posy#,posz#,5,1)=1
			yrotate object 1,270
				if static line of sight(posx#,posy#,posz#,posx#-25,posy#,posz#,5,1)=1
					yrotate object 1,180
				ENDIF
		ENDIF
ENDIF
sync
Loop