I have tried everything to make my model light up but it just won't.
here is my code:
Rem Project: Experiment
Rem Created: 7/26/2004 1:34:44 PM
Rem ***** Main Source File *****
rem lights
MAKE LIGHT 3
SHOW LIGHT 3
POSITION LIGHT 3,0,100,0
SET LIGHT RANGE 3,9000
COLOR LIGHT 3,5000,5000,5000
rem levels stuff--------------------------
LOAD OBJECT "Media/test.x",1
rem sky stuff-------------------------------------
make object sphere 2,-5000
load image "Media/blue.jpg",2
texture object 2,2
position object 2,1,1,1
SET OBJECT COLLISION OFF 2
rem camera stuff---------------------------
POSITION CAMERA 0,0,300,500
SET AMBIENT LIGHT 0
SET CAMERA RANGE 1,9000
AUTOMATIC CAMERA COLLISION 0,10,1
SET OBJECT COLLISION TO POLYGONS 1
SET OBJECT LIGHT 1, 1
SET NORMALIZATION ON
do
TEXT 20,100,str$(screen fps())
text 20,50, "Ground test BETA"
position camera camera position x(),camera position y()-4,camera position z()
control camera using arrowkeys 0,8,6
cx#=camera position x()
cy#=camera position y()
cz#=camera position z()
`Get dist to floor
dist#=intersect object(1,cx#,cy#,cz#,cx#,cy#-100,cz#)
text 20,20,"IO Distance: " + str$(dist#)
if dist# > 0
position camera cx#,cy#-dist#+100,cz#
endif
sync
sync rate 80
loop
I use DBP
Just a programmer
