flashing light doesnt work

[drunken officer 18]

Hello.

I want to create a lightbar with a blue flashlight. In my lightbar (memory lod) is a point called "bluelight".

if (isDedicated) exitWith {};
private ["_ts","_disco"];
while {true} do
{

_ts = _this select 0;
_disco = _ts animationPhase 'disco';

waitUntil {_ts animationPhase 'disco' > 0};
hint "test";
_light = "#lightpoint" createVehicle (getPos _ts);
_light setLightBrightness 0.1;
_light setLightAmbient[0.0, 1.0, 0.0];
_light setLightColor[0.0, 1.0, 0.0];
_light lightAttachObject [_ts, [0,0.2,0]];
Sleep 0.1;
_light setLightBrightness 0.0;
_light setLightAmbient[0.0, 1.0, 0.0];
_light setLightColor[0.0, 1.0, 0.0];
_light lightAttachObject [_ts, [0,0.2,0]];
Sleep 0.01;
_light setLightBrightness 0.1;
_light setLightAmbient[0.0, 1.0, 0.0];
_light setLightColor[0.0, 1.0, 0.0];
_light lightAttachObject [_ts, [0,0.2,0]];
Sleep 0.1;
_light setLightBrightness 0.0;
_light setLightAmbient[0.0, 1.0, 0.0];
_light setLightColor[0.0, 1.0, 0.0];
_light lightAttachObject [_ts, [0,0.2,0]];
sleep 0.6;
};

But nothing happends, when i start it. :(

SOLVED!

Edited February 14, 2012 by Drunken Officer