here is a rudimentary example.
cylinders in pro dont have the front faces but later on you will use x files instead of primitive mesh building.
rem ---------------------------------------------------------------------
rem DB LIMBED CAR IDEA
rem indi june 13th 2003
rem ---------------------------------------------------------------------
sync on
sync rate 60
make matrix 1,4,4,4,4
position matrix 1,-2,-0,-2
rem the body
make object cube 1,0.5
scale object 1,80,40,120
color object 1,rgb(150,155,150)
position object 1,0,0,0
rem a temp mesh for wheels
make object cylinder 100,0.2
rotate object 100,0,0,90
fix object pivot 100
rem Object Number, Wire, Transparent, Cull, Filter, Light, Fog, Ambient
set object 100,1,1,0,1,1,1,1
make mesh from object 2,100
delete object 100
rem the wheel limbs
for i = 1 to 4
add limb 1,i,2
color limb 1,i,rgb(155,155,150)
next i
rem wheel offsets
offset limb 1,1,0.2,-0.3,0.2
offset limb 1,2,-0.2,-0.3,-0.2
offset limb 1,3,-0.2,-0.3,0.2
offset limb 1,4,0.2,-0.3,-0.2
rem setup the camera
position camera 0,0,1,-2
point camera 0,0,0,0
rotate object 1,0,90,0
rem TEMP MAIN LOOP
disable escapekey
while escapekey()=0
rem mouse view
if mouseclick()=1 then cf#=0.1
if mouseclick()=2 then cf#=-0.1
cx#=wrapvalue(cx#+mousemovey()*0.1)
cy#=wrapvalue(cy#+mousemovex()*0.1)
if cx#<=290 and cx#>180 then cx#=290
if cx#>=70 and cx#<=180 then cx#=70
acx#=curveangle(cx#,acx#,2.1)
acy#=curveangle(cy#,acy#,2.1)
rotate camera acx#,acy#,0
acf#=curvevalue(cf#,acf#,20)
move camera acf#
cf#=0
sync
endwhile
delete object 1
end
