#include "..\script_component.hpp"
/*
 * Author: Jaynus, NouberNou, Lambda.Tiger,
 * This function check whether a spall event has occured and generates spall.
 *
 * Arguments:
 * 0: The object a projectile hit <OBJECT>
 * 1: The config name of the projectile <STRING>
 * 2: The projectile that should cause spalling <OBJECT>
 * 3: The position (ASL) the projectile hit the object <ARRAY>
 * 4: The old velocity of the projectile <ARRAY>
 * 5: The projectile's shotParents <ARRAY>
 *
 * Return Value:
 * None
 *
 * Example:
 * [[1000, 45, 60], 0.8, getPosASL ace_player] call ace_frag_fnc_doSpall
 *
 * Public: No
 */
#define WEIGHTED_SIZE [QGVAR(spall_small), 4, QGVAR(spall_medium), 3, QGVAR(spall_large), 2, QGVAR(spall_huge), 1]
params ["_objectHit", "_roundType", "_round", "_oldPosASL", "_oldVelocity", "_shotParents"];

TRACE_6("",_objectHit,_roundType,_round,_oldPosASL,_oldVelocity,_shotParents);
if ((isNil "_objectHit") || {isNull _objectHit}) exitWith {
    WARNING_1("Problem with hitPart data - bad object [%1]",_objectHit);
};

private _caliber = getNumber (configFile >> "CfgAmmo" >> _roundType >> "caliber");
private _explosive = getNumber (configFile >> "CfgAmmo" >> _roundType >> "explosive");
private _idh = getNumber (configFile >> "CfgAmmo" >> _roundType >> "indirectHitRange");

_roundType call FUNC(getSpallInfo) params ["_caliber", "_explosive"];

private _exit = false;
private _vm = 1;

private _curVelocity = velocity _round;
private _oldSpeed = vectorMagnitude _oldVelocity;
private _curSpeed = vectorMagnitude _curVelocity;

if (alive _round) then {
    private _diff = _oldVelocity vectorDiff _curVelocity;
    private _polar = _diff call CBA_fnc_vect2polar;

    if (abs (_polar select 1) > 45 || {abs (_polar select 2) > 45}) then {
        if (_caliber < 2.5) then {
            _exit = true;
        } else {
            SUB(_vm,_curSpeed / _oldSpeed);
        };
    };
};
if (_exit) exitWith {
    TRACE_1("exit alive",_caliber);
};

private _unitDir = vectorNormalized _oldVelocity;

private _spallPosAGL = [];
if ((isNil "_oldPosASL") || {!(_oldPosASL isEqualTypeArray [0,0,0])}) exitWith {WARNING_1("Problem with hitPart data - bad pos [%1]",_oldPosASL);};
for "_i" from 0 to 100 do {
    private _pos1 = _oldPosASL vectorAdd (_unitDir vectorMultiply (0.01 * _i));
    private _pos2 = _oldPosASL vectorAdd (_unitDir vectorMultiply (0.01 * (_i + 1)));

    if (!lineIntersects [_pos1, _pos2]) exitWith {
        _spallPosAGL = ASLtoAGL _pos2;
    };
};
if (_spallPosAGL isEqualTo []) exitWith {
    TRACE_1("can't find other side",_oldPosASL);
};
(_shotParents#1) setVariable [QGVAR(nextSpallEvent), CBA_missionTime + ACE_FRAG_SPALL_EVENT_HOLDOFF];
private _spallVelocitySpherical = _oldVelocity call CBA_fnc_vect2polar;

if (_explosive > 0) then {
    _shellType call FUNC(getFragInfo) params ["", "_fragVelocity"];
    _spallVelocitySpherical set [0, _fragVelocity * 0.66];
};

private _spread = 15 + (random 25);
private _spallCount = 5 + (random 10);
TRACE_1("",_spallCount);
for "_i" from 1 to _spallCount do {
    private _elev = ((_spallVelocitySpherical select 2) - _spread) + (random (_spread * 2));
    private _dir = ((_spallVelocitySpherical select 1) - _spread) + (random (_spread * 2));
    if (abs _elev > 90) then {
        ADD(_dir,180);
    };
    _dir = _dir % 360;
    private _vel = (_spallVelocitySpherical select 0) * 0.33 * _vm;
    _vel = (_vel - (_vel * 0.25)) + (random (_vel * 0.5));

    private _spallFragVect = [_vel, _dir, _elev] call CBA_fnc_polar2vect;
    private _fragment = createVehicleLocal [selectRandomWeighted WEIGHTED_SIZE, _spallPosAGL, [], 0, "CAN_COLLIDE"];
    _fragment setVelocity _spallFragVect;
    _fragment setShotParents _shotParents;

    #ifdef DEBUG_MODE_DRAW
    [_fragment, "orange", true] call FUNC(dev_trackObj);
    #endif
};

_spread = 5 + (random 5);
_spallCount = 3 + (random 5);
for "_i" from 1 to _spallCount do {
    private _elev = ((_spallVelocitySpherical select 2) - _spread) + (random (_spread * 2));
    private _dir = ((_spallVelocitySpherical select 1) - _spread) + (random (_spread * 2));
    if (abs _elev > 90) then {
        ADD(_dir,180);
    };
    _dir = _dir % 360;
    private _vel = (_spallVelocitySpherical select 0) * 0.55 * _vm;
    _vel = (_vel - (_vel * 0.25)) + (random (_vel * 0.5));

    private _spallFragVect = [_vel, _dir, _elev] call CBA_fnc_polar2vect;
    private _fragment = createVehicleLocal [selectRandomWeighted WEIGHTED_SIZE, _spallPosAGL, [], 0, "CAN_COLLIDE"];
    _fragment setVelocity _spallFragVect;
    _fragment setShotParents _shotParents;

    #ifdef DEBUG_MODE_DRAW
    [_fragment, "orange", true] call FUNC(dev_trackObj);
    #endif
};