Here is a simple demo (a lot less than 8000 lines!):
Rem Project: Dark Basic Pro Project
Rem Created: Thursday, April 01, 2010
Rem ***** Main Source File *****
sync on
sync rate 60
autocam off
set text font "Verdana"
set text size 12
`make texture for the ground
for x=0 to 128
for y=0 to 128
dot x,y,rgb(rnd(10),rnd(10),0)
next
next
get image 1,0,0,128,128
`make moveable cube
make object box 1,1,1,1
position camera 10,10,10
`make ground to see when we are moving
make object box 2,100,2,100
texture object 2,1
position object 2,0,-2,0
`make objects to point at
make object sphere 3,.5
position object 3,10,0,0
make object sphere 4,.5
position object 4,-10,0,0
`make dummy object
make object box 5,1,1,1
hide object 5
do
point camera 0,0,0
`move cube
if upkey() then move object 1,.1
if downkey() then move object 1,-.1
`rotate cube
hide object 3:hide object 4
if rightkey() then EZro_ObjTurnTo 1,10,0,0,1:show object 3
if leftkey() then EZro_ObjTurnTo 1,-10,0,0,1:show object 4
`show cube direction
position object 5,object position x(1),0,object position z(1)
set object to object orientation 5,1
move object 5,1
line object screen x(1),object screen y(1),object screen x(5),object screen y(5)
box object screen x(5)-2,object screen y(5)-2,object screen x(5)+2,object screen y(5)+2
`messages
set cursor 0,0
print "Up/Down moves the cube forward and backward"
print "Left/Right turns the cube towards the sphere using 'EZro_ObjTurnTo'"
print "The line shows the direction the cube is pointing"
print "(This never changes despite the 'EZro_ObjTurnTo')"
sync
loop
