Actually, that didn't help at all. It just overlapped my other data and only let me see if I was hitting object 30. I cleaned it up a bit, but I still get 0 and FALSE for everything - it won't register that it's colliding with anything.
sync on : sync rate 30
autocam off
hide mouse
randomize timer()
REM DECLARE VARIABLES
REM SCREEN DISPLAY
cls 0
backdrop on
color backdrop 0
REM OBJECT CREATION
make object cube 1, 100 : Rem Cube
color object 1,rgb(255,0,0)
position object 1, 0,50,0
make object plain 2, 2000,2000 : Rem Ground
color object 2,rgb(255,255,255)
rotate object 2, 90,0,0
make object cylinder 3, 100 : Rem X axis
color object 3,rgb(255,0,0)
position object 3, 0,0,0
scale object 3, 5,5000,5
rotate object 3, 0,0,90
make object cylinder 4, 100 : Rem Y axis
color object 4,rgb(0,255,0)
position object 4, 0,0,0
scale object 4, 5,5000,5
rotate object 4, 0,0,0
make object cylinder 5, 100 : Rem Z axis
color object 5,rgb(0,0,255)
position object 5, 0,0,0
scale object 5, 5,5000,5
rotate object 5, 90,0,0
for x=10 to 30 : Rem Cones
make object cone x, rnd(100)+50
color object x,rgb(rnd(105)+150,rnd(105)+150,rnd(105)+150)
position object x, rnd(2000)-1000,(object size Y(x))/2,rnd(2000)-1000
next x
REM LOAD MODELS
REM SET COLLISIONS
set object collision on 1
make object collision box 1, 50,50,50, -50,-50,-50, 0
set object collision on 2
set object collision on 3
set object collision on 4
make object collision box 4, 3,2500,3, -3,-2500,-3, 0
set object collision on 5
for x=10 to 30
set object collision on x
next x
REM SET CAMERA
cpZ# = Newzvalue(object position Z(1),object angle Y(1)-180,250)
cpX# = Newxvalue(object position X(1),object angle Y(1)-180,250)
Position camera cpX#,150,cpZ#
Point camera object position X(1),object position Y(1)+50,object position Z(1)
REM REFRESH SCREEN
sync
REM *** MAIN SECTION LOOP
do
REM SPECIAL EFFECTS
REM OBJECT ORIENTATIONS
1pX# = object position X(1)
1pZ# = object position Z(1)
1aY# = object angle Y(1)
REM CAMERA ORIENTATIONS
cpX# = camera position X()
cpY# = camera position Y()
cpZ# = camera position Z()
caX# = camera angle X()
caY# = camera angle Y()
caZ# = camera angle Z()
REM LIVE SCREEN DISPLAY
ink 0,rgb(255,255,255) : set text font "times" : set text size 16 : set text to bold : set text opaque
center text 320,440,"USE ARROW KEYS TO MOVE"
set cursor 0,0
ink rgb(255,255,255),0 : print "OBJECT 1"
ink rgb(255,0,0),0 : print "X position: ";1pX#
ink rgb(0,0,255),0 : print "Z position: ";1pZ#
ink rgb(0,255,0),0 : print " Y angle: ";1aY#
print
ink rgb(150,150,150),0 : print "HITTING OBJECT: ";object collision(1,0)
REM CONTROL INPUT
if Upkey()=1 then move object 1,20
if Downkey()=1 then move object 1,-20
if Leftkey()=1 then Yrotate object 1,wrapvalue(1aY#-3.5)
if Rightkey()=1 then Yrotate object 1,wrapvalue(1aY#+3.5)
REM TRANSFORM OBJECTS
REM MOVE OBJECTS
REM NEW OBJECT ORIENTATIONS
1pX# = object position X(1) : Rem Now that we've moved, reset my variables
1pZ# = object position Z(1)
1aY# = object angle Y(1)
REM CHECK FOR COLLISION
print "HITTING OBJECT: ";object collision(1,0) : print
for x = 1 to 30
if x=6 then x=10
if object collision(1,x) = 1 then result$="TRUE" else result$="FALSE"
print "HITTING OBJECT ";x;" ?: ";result$
next x
REM MOVE CAMERA
cpZ# = Newzvalue(1pZ#,1aY#-180,250)
cpX# = Newxvalue(1pX#,1aY#-180,250)
Position camera cpX#,150,cpZ#
Point camera 1pX#,1pY#+50,1pZ#
REM REFRESH SCREEN
sync
loop
