// call set_light at end of main function in main script

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

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

action 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;
}