Thief style Luminance

This code has been declared by its author to be Public Domain code.

Thief style Luminance by *

2003

This provides a thief style luminance check and allows players to hide in shadows in game like Hunted. If you use the code could you give me credit :).

SetAmbientLight( R#, G#, B# ) is a replacement AmbientLight function that is needed for the luminance to work 100%.

ShowLuminance#( Luminance# ) will put a block on screen showing your current luminance value.

EntityInSight( FromEntity, ToEntity, R#, G#, B#, Range# ) this will (if the ToEntity is in range) return the luminance of the ToEntity from this light otherwise it returns -1 if the light cant see it or its not in range.

CalculateLuminance#( Target, Source, Range# ) this returns a 0-100% value of how much the target is lit up from the source, again if its not in range -1 is returned.

;
;	Luminance.bb - Copyright Š2002 EdzUp
;	Coded by Ed Upton
;

Global AmbientLightR#, AmbientLightG#, AmbientLightB#
Global LastLightR#, LastLightG#, LastLightB#

Function SetAmbientLight( R#, G#, B# )
	;set ambience to ambient level and store value
	AmbientLight R#, G#, B#
	
	AmbientLightR# = R#
	AmbientLightB# = B#
	AmbientLightG# = G#
End Function

Function ShowLuminance#( Luminance# )
	;this puts a brick on screen with the current luminance value
	Local R# = ( LastLightR# /100 )* (100-Luminance#)
	Local G# = ( LastLightG# /100 )* (100-Luminance#)
	Local B# = ( LastLightB# /100 )* (100-Luminance#)

	If R#<AmbientLightR# Then R# = AmbientLightR#
	If G#<AmbientLightG# Then G# = AmbientLightG#
	If B#<AmbientLightB# Then B# = AmbientLightB#
	Color R#, G#, B#

	Rect GraphicsWidth()-40, 60, 30, 20
End Function

Function EntityInSight( FromEntity, ToEntity, R#, G#, B#, Range# )
	;FromEntity: this is the light source to check from
	;ToEntity: this is the entity to check luminance of
	Local Luminance#=0.0
	Local NewLuminance#=0.0
	Local CheckCube = CreateCube()
	Local SourceCube = CreateCube()
	
	ScaleEntity SourceCube, .1, .1, .1
	ScaleEntity CheckCube, .1, .1, .1
	PositionEntity CheckCube, EntityX#( ToEntity ), EntityY#( ToEntity ), EntityZ#( ToEntity )
	EntityPickMode CheckCube, 2
	
	LastLightR# = 0.0
	LastLightG# = 0.0
	LastLightB# = 0.0
	
	PositionEntity SourceCube, EntityX#( FromEntity ), EntityY#( FromEntity ), EntityZ#( FromEntity )
	PointEntity SourceCube, CheckCube
									
	If EntityPick( SourceCube, 500.0 )=CheckCube	;if in view
		NewLuminance# = CalculateLuminance#( ToEntity, FromEntity, Range#*2 )
		If NewLuminance#>Luminance#
			Luminance# = NewLuminance#
			LastLightR# = R#
			LastLightB# = G#
			LastLightG# = B#
		EndIf
	EndIf
	
	FreeEntity CheckCube
	FreeEntity SourceCube
	
	Return Luminance#
End Function

Function CalculateLuminance#( Target, Source, Range# )
	Local Dist# = EntityDistance#( Target, Source )

	If Dist#<Range#
		Return Dist# / ( Range#/100 )
	Else
		Return -1
	EndIf
	
	Return -1
End Function

Comments

None.

Code Archives Forum