I don't understand the problem. This works for me:
sync on : sync rate 60 :
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 12 : set text transparent
color as dword
color=rgb(255,255,0):rem color is yellow
type star
Radius as float
Color as dword
endtype
OType as star
OType.Radius=100
OType.Color=color
MSType=0
rem your code
SetupDrawStar:
SO=2
make light 1
if MSType=0
make object sphere SO,OType.Radius
color object SO,OType.Color
set light to object position 1,SO
set light range 1,20000
`set object light SO,0
`hide light 0
`color object SO,OType.Color
position object SO,0,0,0
Endif
rem end of your code
do
sync
loop
Whatever...