ahh i remember this one.
you LIGHT command works only on textured models.
wich means you have to create pure color texture for your object.
try this one i made quick for you:
backdrop on
color backdrop 0,0
sync on
sync rate 60
autocam off
move camera -50
make object sphere 1,10
make object sphere 2,10
set object light 2,0
move object left 1,-10
//Pure color:
CreateTextureImg(1,rgb(255,0,0))
texture object 1,1
CreateTextureImg(2,rgb(255,0,0))
texture object 2,2
do
center text object screen x(1),object screen y(1)-100,"Light ON"
center text object screen x(2),object screen y(2)-100,"Light OFF"
yrotate object 1,object angle y(1)+1
yrotate object 2,object angle y(2)-1
sync
loop
function CreateTextureImg(ImgNum as Integer,Color as Integer)
create bitmap 1,5,5
box 0,0,5,5,Color
get image ImgNum,0,0,5,5
delete bitmap 1
endfunction
