init.sqf

[] execVM "initJammerBombList.sqf";
[] execVM "initJammer2.sqf";

FR_fnc_playJammerSiren = {
    params ["_speaker"];

    if (isNull _speaker) exitWith {};

    private _now = time;
    private _alarmEndTime = _speaker getVariable ["FR_alarmEndTime", 0];

    _speaker setVariable ["FR_alarmEndTime", _now + 60, true];

    if (_speaker getVariable ["FR_alarmRunning", false]) exitWith {};

    _speaker setVariable ["FR_alarmRunning", true, true];

    [_speaker] spawn {
        params ["_spk"];

        while { !isNull _spk && time < (_spk getVariable ["FR_alarmEndTime", 0]) } do {
            _spk say3D "Alarm_BLUFOR";
            sleep 5;
        };

        if (!isNull _spk) then {
            _spk setVariable ["FR_alarmRunning", false, true];
        };
    };
};