Sorry your browser is not supported!

rem visual settings
sync on
autocam off
hide mouse
make camera 1
set current camera 1
position camera 1,0,0,0
point camera 1,0,0,10
color backdrop rgb (100,0,0)

rem make base
make object box 1000,10,10,2
position object 1000,0,0,49
color object 1000,rgb(100,0,100)
rem make ground
make object box 10,1000,1000,2
position object 10,0,0,50
color object 10,rgb(0,100,0)
rem make walls
make object box 101,10,1000,40
position object 101,495,0,48
color object 101,rgb(0,0,200)
make object box 102,10,1000,40
position object 102,-495,0,48
color object 102,rgb(0,0,200)
make object box 103,980,10,40
position object 103,0,495,48
color object 103,rgb(0,0,200)
make object box 104,980,10,40
position object 104,0,-495,48
color object 104,rgb(0,0,200)
rem make maze
make object box 1,50,10,30
position object 1,50,100,48
color object 1,rgb(0,0,100)
make object box 2,50,10,30
position object 2,-10,100,48
color object 2,rgb(0,0,100)


rem make you
make object sphere 20,8
position object 20,0,0,45

rem main loop
do
dim varib(2,7)
for t=1 to 1
rem input
 a=rightkey()
 b=leftkey()
 c=upkey()
 d=downkey()

if (object position x(t)-(object size x(t)/2))-4<x<(object position x(t)+(object size x(t)/2))+4
(varib(t,1))=1
endif
if (object position x(t)-(object size x(t)/2))-4>x
(varib(t,1))=0
endif
if (object position x(t)+(object size x(t)/2))+4<x
(varib(t,1))=0
endif
if y=(object position y(t)-(object size y(t)/2))-4
(varib(t,2))=1
else
(varib(t,2))=0
endif
if y=(object position y(t)+(object size y(t)/2))+4
(varib(t,3))=1
else
(varib(t,3))=0
endif

if (object position y(t)-(object size y(t)/2))-4<y<(object position y(t)+(object size y(t)/2))+4
(varib(t,4))=1
endif
if y<(object position y(t)-(object size y(t)/2))-4
(varib(t,4))=0
endif
if y>(object position y(t)+(object size y(t)/2))+4
(varib(t,4))=0
endif
if x=(object position x(t)+(object size x(t)/2))+4
(varib(t,5))=1
else
(varib(t,5))=0
endif
if x=((object position x(t)-(object size x(t)/2))-4.0000019073)
(varib(t,6))=1
else
(varib(t,6))=0
endif
rem movement
if (a-(((varib(t,6))+(varib(t,4)))/2))>0
x=x+1
endif
if (b-(((varib(t,5))+(varib(t,4)))/2))>0
x=x-1
endif
if (c-(((varib(t,2))+(varib(t,1)))/2))>0
y=y+1
endif
if (d-(((varib(t,3))+(varib(t,1)))/2))>0
y=y-1
endif
rem walls
if x>486
x=486
endif
if x<-486
x=-486
endif
if y>486
y=486
endif
if y<-486
y=-486
endif

next t
print varib(1,1)
print varib(2,1)

rem position
position object 20,x,y,49

rem keeping camera on you
position camera 1,x-2,y-2,0
point camera 1,x,y,49

rem co-ords
print x,",",y
sync
loop