lights

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Ben(t)

actually i think its the way i utilize the code, here

Function lights(entity)
LightMesh entity,-255,-255,-255
LightMesh entity,64,64,64
For l.light=Each light
If EntityVisible(l\entity,entity)=True Then ;l\visible#=1

l\r#=l\r#+10
l\b#=l\b#+10
l\g#=l\g#+10

Else
l\r#=l\r#-10
l\b#=l\b#-10
l\g#=l\g#-10
EndIf

If l\r#<0 Then l\r#=0
If l\g#<0 Then l\g#=0
If l\b#<0 Then l\b#=0

If l\r#>l\fr# Then l\r#=l\fr#
If l\g#>l\fg# Then l\g#=l\fg#
If l\b#>l\fb# Then l\b#=l\fb#

If l\r#>0 Or l\b#>0 Or l\g#>0 Then
TFormPoint 0,0,0,l\entity,entity
x#=TFormedX()
y#=TFormedY()
z#=TFormedZ()
LightMesh entity,l\r#,l\g#,l\b#,l\range#/10,x#,y#,z#
EndIf

Next
End Function