How can you say that's pretty pathetic??
He's trying to create a program & you haven't the right to judge whatever.
Seems to me a good beginning... & a nice work in the contruction of the world.
Maybe needs some modifications/improvments, but it's still nicely done.
Collisions would be not a real problem.
Here is a code that controls the collision. (I didn't spent much on this, but should help to understand...)
autocam off
backdrop on
fog on
fog color rgb(0,191,191)
fog distance 1000
color backdrop rgb(0,255,255)
objectnumber=1
for x=1 to 13
for y=1 to 45
make object box objectnumber,20,0.5,10
color object objectnumber,rgb(191,191,191)
position object objectnumber,x*30,0,y*20
make object box objectnumber+1,18,8,8
color object objectnumber+1,rgb(191,0,0)
position object objectnumber+1,x*30,4.25,y*20
objectnumber=objectnumber+2
next y
next x
for x=1 to 4
for y=1 to 51
make object box objectnumber,20,0.5,10
color object objectnumber,rgb(191,191,191)
position object objectnumber,x*30,0,900+y*20
make object box objectnumber+1,18,8,8
color object objectnumber+1,rgb(191,0,0)
position object objectnumber+1,x*30,4.25,900+y*20
objectnumber=objectnumber+2
next y
next x
for x=1 to 6
for y=1 to 51
make object box objectnumber,20,0.5,10
color object objectnumber,rgb(191,191,191)
position object objectnumber,210+x*30,0,900+y*20
make object box objectnumber+1,18,8,8
color object objectnumber+1,rgb(191,0,0)
position object objectnumber+1,210+x*30,4.25,900+y*20
objectnumber=objectnumber+2
next y
next x
for x=1 to 13
for y=1 to 15
make object box objectnumber,20,0.5,10
color object objectnumber,rgb(191,191,191)
position object objectnumber,x*30,0,1920+y*20
make object box objectnumber+1,18,8,8
color object objectnumber+1,rgb(191,0,0)
position object objectnumber+1,x*30,4.25,1920+y*20
objectnumber=objectnumber+2
next y
next x
make object box objectnumber+1,400,0.5,2230
color object objectnumber+1,rgb(31,31,31)
position object objectnumber+1,210,-0.5,1120
make object box objectnumber+2,80,0.5,1010
color object objectnumber+2,rgb(191,191,191)
position object objectnumber+2,180,0,1420
make object box objectnumber+3,75,0.55,1005
color object objectnumber+3,rgb(0,127,0)
position object objectnumber+3,180,0,1420
make object box objectnumber+4,600,0.5,2232
color object objectnumber+4,rgb(0,127,127)
position object objectnumber+4,210,-1,1120
make object box objectnumber+5,1,1,2232
color object objectnumber+5,rgb(191,191,191)
position object objectnumber+5,9.5,-0.25,1120
make object box objectnumber+6,1,1,2232
color object objectnumber+6,rgb(191,191,191)
position object objectnumber+6,409.5,-0.25,1120
make object box objectnumber+7,400,1,1
color object objectnumber+7,rgb(191,191,191)
position object objectnumber+7,210,-0.25,4.5
make object box objectnumber+8,400,1,1
color object objectnumber+8,rgb(191,191,191)
position object objectnumber+8,210,-0.25,2235.5
objectnumber=objectnumber+10
make object box objectnumber,1,1,2
color object objectnumber,rgb(0,0,191)
position object objectnumber,135,0.55,10
position camera 135,5,2.5
point camera 135,0.55,10
Rem this activates the collision detection of the car
set OBJECT COLLISION on ObjectNumber
do
rem check for collision
for a=1 to objectnumber-1
if object exist (a) then Coll=OBJECT COLLISION(objectnumber, a)
if coll=1 then exit
next a
text 100,100,"COLLISION with: "+str$(a)
rem if collision is detected, car will move back. Here you can do everithing you want when the car collides with something
if coll=1 then move object objectnumber,-1.5
ay# = Object angle Y(objectnumber)
if upkey() then move object objectnumber,0.5
if leftkey() then yrotate object objectnumber,Wrapvalue(ay#-0.5)
if rightkey() then yrotate object objectnumber,Wrapvalue(ay#+0.5)
if downkey() then move object objectnumber,-0.5
x#=object position x(objectnumber)
y#=object position y(objectnumber)
z#=object position z(objectnumber)
cz# = Newzvalue(z#,ay#-180,10)
cx# = Newxvalue(x#,ay#-180,10)
position camera cx#,5,cz#
point camera x#,y#,z#
loop
wait key
Hope this will help
Guido
http://www.vues3d.com
