params ["_vcl"];

while {alive _vcl} do
{
    while {_vcl getVariable ['ger_pol',0] == 1 && !isNull driver _vcl} do
    {
		if(!isNull driver _vcl) then {
			_vcl say3D ["ger_pol",500,1];
			sleep 4.496;
		};
    };
    sleep 1;
};