VAR Light_on;
ON_E set_light;
var MyPos[3];

FUNCTION set_light ()
{
IF (Light_on == 0)
{
Light_on = 1;
CREATE <trigger.mdl>,PLAYER.POS,light_akt;
} ELSE { Light_on = 0;}
} 

FUNCTION light_akt ()
{
	MY.INVISIBLE = ON;
	MY.PASSABLE = ON;

	
	WHILE (Light_on == 1)
	{
		MyPos.X = 5000;
		MyPos.Y = 0;
		MyPos.Z = 0;
		VECROTATE MyPos,CAMERA.PAN;
		VEC_ADD (MyPos,CAMERA.POS);
		LOOK NULL,CAMERA.POS,MyPos;
		IF (RESULT > 0)
		{
			VEC_SET (MyPos,TARGET);
			temp.X = NORMAL.X * 20;
			temp.Y = NORMAL.Y * 20;
			temp.Z = NORMAL.Z * 20;
			VEC_ADD (MyPos,temp);
			VEC_SET (MY.POS,MyPos);
		}
		MY.LIGHTRANGE = vec_dist(camera.pos,my.pos) * 0.5;
		MY.LIGHTRED = 200 - ( vec_dist(camera.pos,my.pos) * 0.1 );
		MY.LIGHTGREEN = 200 - ( vec_dist(camera.pos,my.pos) * 0.1 );
		MY.LIGHTBLUE = 200 - ( vec_dist(camera.pos,my.pos) * 0.1 );
		WAIT (1);
	}
	REMOVE ME;
}