damageCalc

span class="re5"> APA_fnc_calcDamage = {
    switch (true) do {
        case (_hitbodypart in APA_head): {
            affectedPart = "APA_headArmor";
        };
        case (_hitbodypart in APA_body): {
            affectedPart = "APA_bodyArmor";
        };
        case (_hitbodypart in APA_rightArm): {
            affectedPart = "APA_armArmor_r";
        };
        case (_hitbodypart in APA_leftArm): {
            affectedPart = "APA_armArmor_l";
        };
        case (_hitbodypart in APA_rightLeg): {
            affectedPart = "APA_legArmor_r";
        };
        case (_hitbodypart in APA_leftLeg): {
            affectedPart = "APA_legArmor_l";
        };
    };
    _hitpartArmorLevel = _target getVariable affectedPart;
    if (_hitpartArmorLevel > 0) then {
        if (_damage > _hitpartArmorLevel) then {
            _target setVariable [affectedPart, 0];
            _breaksound = selectRandom[
                "A3\Sounds_F\vehicles\crashes\armors\tank_coll_armor_1.ogg",
                "A3\Sounds_F\vehicles\crashes\armors\tank_coll_armor_2.ogg",
                "A3\Sounds_F\vehicles\crashes\armors\tank_coll_armor_3.ogg",
                "A3\Sounds_F\vehicles\crashes\armors\tank_coll_armor_4.ogg"
            ];
            playsound3d [_breaksound, _target];
            playsound "ALARM";
            _restDamage = (_damage - _hitpartArmorLevel);
            [_target,_hitbodypart,_selection,_restdamage] call APA_fnc_restDamage;
        } else {
            _target setVariable [affectedPart, _hitpartArmorLevel - _damage];
        };

        _hitsound = selectRandom[
        "A3\Sounds_F\weapons\hits\metal_1.wss",
        "A3\Sounds_F\weapons\hits\metal_2.wss",
        "A3\Sounds_F\weapons\hits\metal_3.wss",
        "A3\Sounds_F\weapons\hits\metal_4.wss",
        "A3\Sounds_F\weapons\hits\metal_5.wss",
        "A3\Sounds_F\weapons\hits\metal_6.wss"
        ];

        playsound3d [_hitsound, _target];
    } else {
        _restDamage = (_damage - _hitpartArmorLevel);
        [_target,_hitbodypart,_selection,_restDamage] call APA_fnc_restDamage;
    };
};

APA_fnc_restDamage = {

    if (isClass(configFile >> "CfgPatches" >> "ace_medical")) then {
        if (count _selection == 0) then {
            newSelection = selectRandom ["Head","Body","LeftArm","RightArm","LeftArm","RightArm"];
        };
        if (_hitbodypart in APA_head) then {
            newSelection = "Head";
        };
        if (_hitbodypart in APA_body) then {
            newSelection = "Body";
        };
        if (_hitbodypart in APA_leftArm) then {
            newSelection = "LeftArm";
        };
        if (_hitbodypart in APA_rightArm) then {
            newSelection = "RightArm";
        };
        if (_hitbodypart in APA_leftLeg) then {
            newSelection = "LeftLeg";
        };
        if (_hitbodypart in APA_rightLeg) then {
            newSelection = "RightLeg";
        };

        if (_restDamage > 50) then {

            [_target, (_restDamage/50), newSelection, "explosion"] call ace_medical_fnc_addDamageToUnit;

            _randomSelection = ["Head","Body","LeftArm","RightArm","LeftArm","RightArm"];
            for "_i" from 0 to 5 do {
                if (selectRandom [true, false]) then {
                    [_target, (_restDamage/50), selectRandom _randomSelection, "explosion"] call ace_medical_fnc_addDamageToUnit;
                };
            };
        } else {
            [_target, (_restDamage/25), newSelection, "bullet"] call ace_medical_fnc_addDamageToUnit;
        };
        //[format ["%1 %2 %3", _target, (_restDamage/25), newSelection]] remoteexec ['systemchat'];
    } else {

        if (count _selection == 0) then {
            newSelection = selectRandom ["hithead","hitbody","hitleftarm","hitrightarm","hitleftleg","hitrightleg"];
        };

        if (_hitbodypart in APA_head) then {
            newSelection = "hithead";
        };
        if (_hitbodypart in APA_body) then {
            newSelection = "hitbody";
        };
        if (_hitbodypart in APA_leftArm) then {
            newSelection = "hitleftarm";
        };
        if (_hitbodypart in APA_rightArm) then {
            newSelection = "hitrightarm";
        };
        if (_hitbodypart in APA_leftLeg) then {
            newSelection = "hitleftleg";
        };
        if (_hitbodypart in APA_rightLeg) then {
            newSelection = "hitrightleg";
        };

        if (_restDamage > 50) then {
            [_target,_restDamage] spawn {
                [_this] call {
                    (_this select 0) params ["_target","_restDamage"];
                    sleep 0.05;

                    //[_target, (_restDamage/50), newSelection, "explosion"] call ace_medical_fnc_addDamageToUnit;
                    _hitPointDamage = _target getHitPointDamage newSelection;
                    _target setHitPointDamage [newSelection, _hitPointDamage + _restDamage/500];
                    //[format ["%1 %2 %3", newSelection, _hitPointDamage, _restDamage/500]] remoteexec ['systemchat'];
                    _randomSelection = selectRandom ["hithead","hitbody","hitleftarm","hitrightarm","hitleftleg","hitrightleg"];
                    for "_i" from 0 to 5 do {
                        if (selectRandom [true, false]) then {
                            _hitPointDamage = _target getHitPointDamage _randomSelection;
                            _target setHitPointDamage [_randomSelection, _hitPointDamage + _restDamage/500];
                        };
                    };
                    //[format ["%1", getAllHitPointsDamage _target]] remoteexec ['systemchat'];
                };
            };
        } else {
            //_hitPointDamage = _target getHitPointDamage newSelection;
            //_target setHitPointDamage [newSelection, _hitPointDamage + _restDamage/25];
            //[format ["%1 %2 %3", newSelection, _hitPointDamage, _restDamage/25]] remoteexec ['systemchat'];

            [_target,_restDamage] spawn {
                [_this] call {
                    (_this select 0) params ["_target","_restDamage"];
                    sleep 0.05;
                    _hitPointDamage = _target getHitPointDamage newSelection;
                    _target setHitPointDamage [newSelection, _hitPointDamage + _restDamage/25];
                    //[format ["%1 %2 %3", newSelection, _hitPointDamage, _restDamage/25]] remoteexec ['systemchat'];
                    //[format ["%1", getAllHitPointsDamage _target]] remoteexec ['systemchat'];
                };
            };
        };
    };
};