Обновленный скрипт частот для новой рации:
// Pregenerated frequencies by [STELS]Zealot// Use from init.sqf:// [] execVM "zlt_gen_freqs.sqf";// or ['a3ru'] execVM "zlt_gen_freqs.sqf"; for arma3.ru frequencies/*Changelog:1R- Added support for Desert_E map*/#define SCRIPT_VERSION "1R"#define STR_HELP "Генерация частот рации по-умолчанию (Автор: Zealot) <br/>Скрипт во время брифинга пишет на карте предлагаемые случайные частоты в верхнем левом углу карты.<br/> Версия: "+SCRIPT_VERSION#define STR_SCRIPTS_NAME "Скрипты"#define STR_SCRIPT_NAME "Генерация частот рации "#define STR_LR_STRING "ДВ %1 MHz (Сдвиг: %2)"#define STR_MAP_HDR "Предлагаемые частоты:"//private ["_radio_t"];zlt_genfreq_radio_t = [_this, 0, "TF"] call bis_fnc_param;zlt_genfreq_radio_t = toUpper (zlt_genfreq_radio_t);_radio = [-2,2,32,64,100,400];if ( zlt_genfreq_radio_t == "A3RU" ) then { _radio = [-2,2,5,18,100,400];};if ( zlt_genfreq_radio_t == "TF" ) then { if (not isClass (configFile >> "CfgPatches" >> "task_force_radio_items")) exitwith { zlt_genfreq_radio_t = ""; }; tf_same_sw_frequencies_for_side = false; tf_same_lr_frequencies_for_side = true; };zlt_prc_freq_updmarkers = { _zlt_genfreq_xmap = 0; _zlt_genfreq_ymap = 8000; _zlt_genfreq_deltamap = 250; switch (worldName) do { case ("Altis") : { _zlt_genfreq_xmap = 1000; _zlt_genfreq_ymap = 30000; _zlt_genfreq_deltamap = 500; }; case ("Stratis") : { _zlt_genfreq_xmap = 0; _zlt_genfreq_ymap = 8000; _zlt_genfreq_deltamap = 250; }; case ("Chernarus") : { _zlt_genfreq_xmap = 0; _zlt_genfreq_ymap = 15000; _zlt_genfreq_deltamap = 250; }; case ("Takistan") : { _zlt_genfreq_xmap = 0; _zlt_genfreq_ymap = 14000; _zlt_genfreq_deltamap = 250; }; case ("Zargabad") : { _zlt_genfreq_xmap = 0; _zlt_genfreq_ymap = 8000; _zlt_genfreq_deltamap = 100; }; case("plr_mana"):{ _zlt_genfreq_xmap = 0; _zlt_genfreq_ymap = 5000; _zlt_genfreq_deltamap = 100; }; case("Desert_E"):{ _zlt_genfreq_xmap = 0; _zlt_genfreq_ymap = 2000; _zlt_genfreq_deltamap = 25; }; }; _zlt_spawnSetLrChannel = { if (leader group player == player) then { _this spawn { waituntil {sleep 0.1;player call TFAR_fnc_haveLRRadio;}; sleep 0.5; _val = str (_this); [(call TFAR_fnc_activeLrRadio) select 0, (call TFAR_fnc_activeLrRadio) select 1, _val] call TFAR_fnc_setLrFrequency; if (dialog) then { call TFAR_fnc_updateLRDialogToChannel; }; }; }; }; _zlt_fnc_printfrq = { _str = _this; _txt = ""; _mcolor = ""; switch ( typename (_str select 0)) do { case ( typename east) : { _txt = format[STR_LR_STRING,_str select 1, _str select 2]; _mcolor = ([ (_str select 0) , true] call bis_fnc_sidecolor); }; case ( typename grpnull) : { _txt = format["%1: %2 MHz", groupid(_str select 0)+"("+ name leader (_str select 0) +")", _str select 1]; _mcolor = [ side (_str select 0) , true] call bis_fnc_sidecolor; }; default { _txt = STR_MAP_HDR; _mcolor = [ playerside , true] call bis_fnc_sidecolor; }; }; _mname = format ["mrk_freq_%1", _zlt_genfreq_ymap]; createMarkerLocal[_mname, [_zlt_genfreq_xmap, _zlt_genfreq_ymap]]; _mname setMarkerTypeLocal "mil_dot"; _mname setMarkerTextLocal _txt; _mname setMarkerColorLocal _mcolor; _mname setmarkerposlocal [_zlt_genfreq_xmap, _zlt_genfreq_ymap]; _zlt_genfreq_ymap = _zlt_genfreq_ymap - _zlt_genfreq_deltamap; }; _friends = ([side player] call BIS_fnc_friendlySides) - [civilian]; _friendsids = []; _playersideid = [playerside] call BIS_fnc_sideID; [""] call _zlt_fnc_printfrq; (zlt_pub_gen_frequencies select _playersideid) call _zlt_fnc_printfrq; { //if ( typename (_x select 0) == typename grpNull and {side (_x select 0) in _friends} and { leader (_x select 0) in playableunits} ) then { if ( typename (_x select 0) == typename grpNull and {side (_x select 0) in _friends} and { leader (_x select 0) in allUnits} ) then { _x call _zlt_fnc_printfrq; }; } foreach zlt_pub_gen_frequencies; if (zlt_genfreq_radio_t == "TF" ) then { ((zlt_pub_gen_frequencies select _playersideid) select 1) call _zlt_spawnSetLrChannel; };};if (hasInterface) then { [] spawn { waitUntil {player == player}; player createDiarySubject [STR_SCRIPTS_NAME,STR_SCRIPTS_NAME]; player createDiaryRecord [STR_SCRIPTS_NAME,[STR_SCRIPT_NAME, STR_HELP]]; waitUntil {!isNil "zlt_pub_gen_frequencies"}; if (playerside == civilian) exitwith {}; [] call zlt_prc_freq_updmarkers; };};if (isServer or isDedicated) then { _fnc_genfreq = { private ["_state","_num","_isinbl","_l1","_l2"]; _state = _this select 0; if (isNil "zlt_freqblacklist") then { zlt_freqblacklist = [0]; }; _num = 0; _l1 = _radio select 0; _l2 = _radio select 1; _isinbl = true; if (_state == 0) then { _l1 = _radio select 2; _l2 = _radio select 3; }; if (_state == 1) then { _l1 = _radio select 4; _l2 = _radio select 5; }; while {_isinbl} do { _num = round (([_l1,_l2] call bis_fnc_randomnum) * 10) / 10 ; if not (_num in zlt_freqblacklist) then { zlt_freqblacklist set [count zlt_freqblacklist, _num ]; _isinbl = false; }; }; _num; }; _zlt_pub_gen_frequencies = []; { _num = 0; _sdv = 0; switch true do { case (_x == resistance and ([west, resistance] call BIS_fnc_areFriendly) ) : { _num = (_zlt_pub_gen_frequencies select 1) select 1; _sdv = (_zlt_pub_gen_frequencies select 1) select 2; }; case (_x == resistance and ([east, resistance] call BIS_fnc_areFriendly) ) : { _num = (_zlt_pub_gen_frequencies select 0) select 1; _sdv = (_zlt_pub_gen_frequencies select 0) select 2; }; default { _num = [0] call _fnc_genfreq ; _sdv = [2] call _fnc_genfreq ; }; }; _data = [_x, _num, _sdv]; _zlt_pub_gen_frequencies set [count _zlt_pub_gen_frequencies, _data]; } foreach [east, west, resistance]; call TFAR_fnc_processGroupFrequencySettings; { _num = [1] call _fnc_genfreq ; _zlt_pub_gen_frequencies set [count _zlt_pub_gen_frequencies, [_x, _num] ]; if (zlt_genfreq_radio_t == "TF") then { _vl3 = _x getVariable "tf_sw_frequency"; (_vl3 select 2) set [0, str (_num)]; _x setVariable["tf_sw_frequency", _vl3, true]; }; } foreach allgroups; zlt_pub_gen_frequencies = _zlt_pub_gen_frequencies; publicVariable "zlt_pub_gen_frequencies"; };
