/*
This script is based on Xeno Taru mod from NorX Aengell.
http://www.armaholic.com/page.php?id=27532
Original author: NorX Aengell
Rewrite and Epoch adaptation: Slayer
*/
IL_Taru_DevMod = false;
//above this altitude dropping with parachute
IL_Taru_Parachute_Altitude = 45;
//open parachute when altitude is less or equal this parameter
IL_Taru_Parachute_Open_Altitude = 30;
//IL_Taru_Parachute_Altitude must be greater then IL_Taru_Parachute_Open_Altitude
IL_Taru_Disable_Deattaching_Altitude = 3;
//Not posible to deattach when altitude is extrely low, because new position of pod will be under terrain level.
//Recomended values are between 3 and 10.
if (hasInterface && !isDedicated) then {
if (IL_Taru_DevMod) then {
diag_log "Igi Load Taru started";
};
IL_Taru_Init =
{
waituntil
{
sleep 2;
{
if (isnil {_x getVariable "IL_Taru_Action_Attach"}) then
{
_x setVariable ["IL_Taru_Action_Attach",true,false];
IL_Taru_Action_Attach = _x addAction ["<img image='IgiLoad\images\load.paa' /><t color=""#007f0e""> Attach Pod</t>", "[""attach"",_this] call IL_Taru_Do_Action;", nil, 2, false, true, "",
"[_this] call IL_Verify_Heli and {[vehicle _this] call IL_Verify_Pod} and {!([vehicle _this] call IL_Verify_Attached_Object)}"];
};
if (isnil {_x getVariable "IL_Taru_Action_Deattach"}) then
{
_x setVariable ["IL_Taru_Action_Deattach",true,false];
IL_Taru_Action_Deattach = _x addAction ["<img image='IgiLoad\images\unload.paa' /><t color=""#ff0000""> Detach Pod</t>", "[""deattach"",_this] call IL_Taru_Do_Action;", nil, 2, false, true, "",
"[_this] call IL_Verify_Heli and [_this] call IL_Verify_Altitude and {[vehicle _this] call IL_Verify_Attached_Object}"];
};
if (isnil {_x getVariable "IL_Taru_Action_Drop"}) then
{
_x setVariable ["IL_Taru_Action_Drop",true,false];
IL_Taru_Action_Drop = _x addAction ["<img image='IgiLoad\images\unload_para.paa' /><t color=""#b200ff""> Drop Pod</t>", "[""drop"",_this] call IL_Taru_Do_Action;", nil, 2, false, true, "",
"[_this] call IL_Verify_Heli and {[vehicle _this] call IL_Verify_Attached_Object}"];
};
} foreach units group player;
};
};
IL_Verify_Attached_Object =
{
if (IL_Taru_DevMod) then {
diag_log "IL_Verify_Attached_Object called";
};
_helico = (_this select 0);
_object_Verifier = false;
if (count (attachedObjects _helico) isEqualTo 0) exitwith {_object_Verifier};
{
if (_x isKindOf "Pod_Heli_Transport_04_base_F") exitwith {_object_Verifier = true;};
} foreach attachedObjects _helico;
if (IL_Taru_DevMod) then {
diag_log format["IL_Verify_Attached_Object returns %1",_object_Verifier];
};
_object_Verifier
};
IL_Verify_Pod =
{
if (IL_Taru_DevMod) then {
diag_log "IL_Verify_Pod called";
};
_pod = getSlingLoad (_this select 0);
_pod_Verifier = false;
if (isnull (getSlingLoad vehicle player)) exitwith {_pod_Verifier};
if (_pod isKindOf "Pod_Heli_Transport_04_base_F") then {_pod_Verifier = true;};
if (IL_Taru_DevMod) then {
diag_log format["IL_Verify_Pod returns %1",_pod_Verifier];
};
_pod_Verifier
};
IL_Verify_Heli =
{
if (IL_Taru_DevMod) then {
diag_log "IL_Verify_Heli called";
};
_helico = vehicle (_this select 0);
_helico_Verifier = false;
if (_helico isKindOf "Heli_Transport_04_base_F") then {_helico_Verifier = true;};
if (IL_Taru_DevMod) then {
diag_log format["IL_Verify_Heli returns %1",_helico_Verifier];
};
_helico_Verifier
};
IL_Verify_Altitude = {
if (IL_Taru_DevMod) then {
diag_log "IL_Verify_Altitude called";
};
_helico = vehicle (_this select 0);
_allow_deattach = false;
if ((getPosATL _helico) select 2 > IL_Taru_Disable_Deattaching_Altitude) then {_allow_deattach = true;};
if (IL_Taru_DevMod) then {
diag_log format["IL_Verify_Altitude returns %1",_allow_deattach];
};
_allow_deattach
};
IL_Taru_Do_Action =
{
_action = _this select 0;
_helico = "";
if (typename (_this select 1) isEqualTo "OBJECT") then {_helico = vehicle (_this select 1);};
if (typename (_this select 1) isEqualTo "ARRAY") then {_helico = vehicle ((_this select 1) select 0);};
_cables = ropes _helico;
if (ropeUnwound (_cables select 0)) then
{
[_action, _helico] call IL_Pod_Manager;
};
};
IL_Taru_Transmission =
{
private ["_soundToPlay", "_helico", "_soundToPlay","_args","_pod"];
_args = _this select 1;
_helico = vehicle (_args select 1);
_soundPath = [(str missionConfigFile), 0, -15] call BIS_fnc_trimString;
switch (_args select 0) do {
case 'rope_unwind': {
_pod = _args select 2;
_helico disableCollisionWith _pod;
{ropeUnwind [_x, _args select 3, _args select 4];} foreach ropes _helico;
sleep 4;
_helico enableCollisionWith _pod;
};
case 'rope_unwind_and_wait': {
_pod = _args select 2;
_helico disableCollisionWith _pod;
{ropeUnwind [_x, _args select 3, _args select 4];} foreach ropes _helico;
waituntil {ropeLength ((ropes _helico) select 0) isEqualTo 1};
sleep 4;
_helico enableCollisionWith _pod;
};
case 'chat_attach': {
if (!(player in crew _helico)) exitWith{};
["Success",["Pod successfully attached!"]] call ExileClient_gui_notification_event_addNotification;
};
case 'chat_deattach': {
if (!(player in crew _helico)) exitWith{};
["Success",["Pod successfully dettached!"]] call ExileClient_gui_notification_event_addNotification;
};
case 'chat_drop_with_parachute': {
if (!(player in crew _helico)) exitWith{};
["Success",["Pod Paradropt!"]] call ExileClient_gui_notification_event_addNotification;
};
case 'chat_drop_without_parachute': {
if (!(player in crew _helico)) exitWith{};
["Success",["Pod drop without Parachut!"]] call ExileClient_gui_notification_event_addNotification;
};
case 'sound_attach': {
if (!(player in crew _helico)) exitWith{};
_soundToPlay = _soundPath + "IgiLoad\sounds\attach.wss";
playSound3D [_soundToPlay, _helico, false, getPosATL _helico, 10, 1, 0];
};
case 'sound_deattach': {
if (!(player in crew _helico)) exitWith{};
_soundToPlay = _soundPath + "IgiLoad\sounds\deattach.wss";
playSound3D [_soundToPlay, _helico, false, getPosATL _helico, 10, 1, 0];
};
case 'sound_drop': {
if (!(player in crew _helico)) exitWith{};
_soundToPlay = _soundPath + "IgiLoad\sounds\drop.wss";
playSound3D [_soundToPlay, _helico, false, getPosATL _helico, 10, 1, 0];
};
};
};
waitUntil {!isNull player};
[] spawn IL_Taru_Init;
IL_Taru_EH_Respawn = player addEventHandler ["Respawn", "[] spawn IL_Taru_Init;"];
};
IL_Pod_Manager = {
IL_CLient_Pod_Manager = _this;
if (isDedicated || isServer) then
{
IL_CLient_Pod_Manager spawn IL_Server_Pod_Manager;
}
else
{
publicVariableServer "IL_CLient_Pod_Manager";
};
};
"IL_Client_Pod_Manager" addPublicVariableEventHandler IL_Pod_Manager;
IL_Client_Control = {
private ["_nearBy","_heli","_heli_pos"];
IL_Server_Client_Control = _this;
if (hasInterface && !isDedicated) then
{
IL_Server_Client_Control spawn IL_Taru_Transmission; Exile_
}
else
{
_heli = IL_Server_Client_Control select 1;
_nearBy = (getPosATL _heli) nearEntities [["Exile_Unit_Player","LandVehicle","Ship","Air"], 300];
{
if (isPlayer _x) then {
(owner _x) publicVariableClient "IL_Server_Client_Control";
};
} forEach _nearBy;
};
};
"IL_Server_Client_Control" addPublicVariableEventHandler IL_Client_Control;
if (isDedicated || isServer) then {
if (IL_Taru_DevMod) then {
diag_log "Igi Load Taru started";
};
IL_Server_Pod_Manager = {
private ["_args"];
_args = _this select 1;
switch (_args select 0) do {
case "attach": {
[_args select 1] spawn IL_Taru_Attach_Pod;
};
case "deattach": {
[_args select 1] spawn IL_Taru_Deattach_Pod;
};
case "drop": {
[_args select 1] spawn IL_Taru_Drop_Pod;
};
};
};
IL_Taru_Attach_Pod =
{
_helico = _this select 0;
_pod = getSlingLoad _helico;
_mass_of_pod = getmass getSlingLoad _helico;
_mass_of_heli = getmass _helico;
if (!isTouchingGround _helico) then
{
["sound_attach", _helico] call IL_Client_Control;
["rope_unwind_and_wait", _helico, _pod, 1.9, 1, 1] call IL_Client_Control;
sleep 1;
{ropeUnwind [_x, 1.9, 1];} foreach ropes _helico;
waituntil {ropeLength (ropes _helico select 0) isEqualTo 1};
};
_helico disableCollisionWith _pod;
[] call {
_pod_type = typeOf _pod;
if (_pod_type isEqualTo "Land_Pod_Heli_Transport_04_bench_F") exitwith
{
_pod attachTo [_helico,[0,0.1,-1.13]];
_helico setCustomWeightRTD 680;
_helico setmass _mass_of_pod + _mass_of_heli;
};
if (_pod_type isEqualTo "Land_Pod_Heli_Transport_04_covered_F") exitwith
{
_pod attachTo [_helico,[-0.1,-1.05,-0.82]];
_helico setCustomWeightRTD 1413;
_helico setmass _mass_of_pod + _mass_of_heli;
};
if (_pod_type isEqualTo "Land_Pod_Heli_Transport_04_fuel_F") exitwith
{
_pod attachTo [_helico,[0,-0.282,-1.25]];
_helico setCustomWeightRTD 13311;
_helico setmass _mass_of_pod + _mass_of_heli;
};
if (_pod_type isEqualTo "Land_Pod_Heli_Transport_04_medevac_F") exitwith
{
_pod attachTo [_helico,[-0.14,-1.05,-0.92]];
_helico setCustomWeightRTD 1321;
_helico setmass _mass_of_pod + _mass_of_heli;
};
if (_pod_type in ["Land_Pod_Heli_Transport_04_repair_F","Land_Pod_Heli_Transport_04_box_F","Land_Pod_Heli_Transport_04_ammo_F"]) exitwith
{
_pod attachTo [_helico,[-0.09,-1.05,-1.1]];
_helico setCustomWeightRTD 1270;
_helico setmass _mass_of_pod + _mass_of_heli;
};
};
["rope_unwind", _helico, _pod, 250, 1] call IL_Client_Control;
sleep 1;
{ropeUnwind [_x, 250, 1];} foreach ropes _helico;
_helico enableCollisionWith _pod;
["sound_attach", _helico] call IL_Client_Control;
["chat_attach", _helico] call IL_Client_Control;
if (isnil {_helico getVariable "EH_GetOut_Taru"}) then
{
_helico addEventHandler ["Getin", "[_this] spawn IL_Taru_GetIn;"];
_helico setVariable ["EH_GetIn_Taru", true, false];
};
};
IL_Taru_Deattach_Pod =
{
_helico = _this select 0;
_attached_object = [];
_mass_of_heli = getmass _helico;
{
if (_x isKindOf "Pod_Heli_Transport_04_base_F") exitwith {_attached_object = _x;};
} foreach attachedObjects _helico;
_mass_of_pod = getmass _attached_object;
_helico disableCollisionWith _attached_object;
[] call {
_pod_type = typeOf _attached_object;
if (_pod_type isEqualTo "Land_Pod_Heli_Transport_04_bench_F") exitwith
{
_attached_object attachTo [_helico,[0,0.1,-2.83]];
};
if (_pod_type isEqualTo "Land_Pod_Heli_Transport_04_covered_F") exitwith
{
_attached_object attachTo [_helico,[-0.1,-1.05,-2.52]];
};
if (_pod_type isEqualTo "Land_Pod_Heli_Transport_04_fuel_F") exitwith
{
_attached_object attachTo [_helico,[0,-0.282,-3.05]];
};
if (_pod_type isEqualTo "Land_Pod_Heli_Transport_04_medevac_F") exitwith
{
_attached_object attachTo [_helico,[-0.14,-1.05,-2.62]];
};
if (_pod_type in ["Land_Pod_Heli_Transport_04_repair_F","Land_Pod_Heli_Transport_04_box_F","Land_Pod_Heli_Transport_04_ammo_F"]) exitwith
{
_attached_object attachTo [_helico,[-0.09,-1.05,-2.8]];
};
};
["rope_unwind", _helico, _attached_object, 1,9, 10] call IL_Client_Control;
sleep 1;
{
ropeUnwind [_x, 1.9, 10];
} foreach ropes _helico;
["sound_deattach", _helico] call IL_Client_Control;
_helico setCustomWeightRTD 0;
_helico setmass _mass_of_heli - _mass_of_pod;
["sound_deattach", _helico] call IL_Client_Control;
["chat_deattach", _helico] call IL_Client_Control;
detach _attached_object;
sleep 4;
_helico enableCollisionWith _attached_object;
//if (!isTouchingGround _helico) then {waituntil {ropeLength (ropes _helico select 0) isEqualTo 10};};
};
IL_Taru_Drop_Pod =
{
_helico = _this select 0;
_attached_object = [];
{
if (_x isKindOf "Pod_Heli_Transport_04_base_F") exitwith {_attached_object = _x;};
} foreach attachedObjects _helico;
_helico disableCollisionWith _attached_object;
{ropeCut [_x, 0];} foreach ropes _helico;
_helico setCustomWeightRTD 0;
["sound_drop", _helico] call IL_Client_Control;
detach _attached_object;
sleep 4;
_helico enableCollisionWith _attached_object;
sleep 0.5;
if ((getPosATL _attached_object) select 2 >= IL_Taru_Parachute_Altitude) exitwith
{
["chat_drop_with_parachute", _helico] call IL_Client_Control;
waituntil {(getPosATL _attached_object) select 2 <= IL_Taru_Parachute_Open_Altitude};
_parachute = createVehicle ["B_Parachute_02_F",getposatl _attached_object, [], 0, "CAN COLLIDE"];
_parachute attachTo [_attached_object,[0,0,-1]];
[_attached_object,_parachute,_helico] spawn
{
_attached_object = _this select 0;
_parachute = _this select 1;
_helico = _this select 2;
waituntil
{
if ((getPosATL _attached_object) select 2 <= 5) exitwith
{
detach _attached_object;
_vitesse_nacelle = velocity _attached_object;
_parachute setVelocity [_vitesse_nacelle select 0 + 1, _vitesse_nacelle select 1 + 1, 0];
true
};
false
};
};
waituntil
{
if (getposasl _helico distance getposasl _attached_object >= 50) exitwith
{
detach _parachute;
_attached_object attachTo [_parachute,[0,0,-1]];
true
};
false
};
};
["chat_drop_without_parachute", _helico] call IL_Client_Control;
};
IL_Taru_GetIn =
{
_vehicle = _this select 0 select 0;
if ([_vehicle] call IL_Verify_Heli) then
{
if (count attachedObjects _vehicle > 0) then
{
_time = time + 2;
waituntil
{
_vehicle setvelocity [0, 0, 0];
if (time > _time or {time > _time + 15}) exitwith {true};
};
};
};
};
IL_Save_Pod_Position =
{
while{true}do {
sleep 20;
{
sleep 2;
//when you dropping with parachute or deattaching pod without player, new position of the pod is not saved to db.
//with following ugly hack we are saving pod position every 20 seconds
if (_x isKindOf "Pod_Heli_Transport_04_base_F") then {
_x call ExileServer_object_vehicle_database_update;
};
} forEach vehicles;
};
};
[] spawn IL_Save_Pod_Position;
};
Comments