Thanks.
This is the code to load the objects.
'load maps and set ambient values
For x = 1 to 5
for z = 1 to 5
Load Object "C:\Users\UserName\Documents\dbo maps\boat map(" + str$(x) + "," + str$(z) + ")b.dbo",mapNum
position object mapNum, ((x-1)*500), 0, ((z-1)*500) ' Set Object Transparency mapNum,0
Set Object Light mapNum,1
mapNum = mapNum + 1
Load Object "C:\Users\UserName \Documents\dbo maps\boat map(" + str$(x) + "," + str$(z) + ")a.dbo",mapNum
position object mapNum, ((x-1)*500), 0, ((z-1)*500)
Set Object Transparency mapNum,1
Set Object Light mapNum,0
mapNum = mapNum + 1
next z
next x
mapNum=mapNum+1
And this is my collision testing where spherenumber is the object number of a sphere that is following the camera.
'Check for Collisions
if Object Hit (sphereNum,0) > 0 Rem or (Camera Position X(1)<00 or Camera Position X(1)>700 and Camera Position Z(1)<00 or Camera Position Z(1)>700 and cy<15)
Do
Set Cursor 0,10
Print "You have crashed. Press button 3 on the joystick to exit or button 2 on"
Set Cursor 0,20
Print " the joystick to return to the main menu."
Set Cursor 0,40
Print Object Position x(sphereNum)
Set Cursor 0,55
Rem y position
Print Object Position y(sphereNum)
Set cursor 0,70
Print Object Position z(sphereNum)
Set cursor 0,85
Print Object Collision (sphereNum,0)
If Sound Playing (2)=1
Stop Sound 2
Sound2=1
ENDIF
If joystick fire c()=1
End
Else
If joystick fire b()=1
ClearGameData()
ExitFunction
Endif
Endif
LOOP
ENDIF