ACE3/addons/dragging/functions/fnc_handleScrollWheel.sqf

#include "script_component.hpp"
/*
 * Author: L-H, commy2
 * Handles raising and lowering the dragged weapon to be able to place it on top of objects.
 *
 * Arguments:
 * 0: Scroll amount <NUMBER>
 *
 * Return Value:
 * Handled or not. <BOOL>
 *
 * Example:
 * [0.1] call ace_dragging_fnc_handleScrollWheel;
 *
 * Public: No
 */

params ["_scrollAmount"];

private _unit = ACE_player;

// EH is always assigned. Exit and don't overwrite input if not carrying
if !(_unit getVariable [QGVAR(isCarrying), false]) exitWith {false};

private _carriedItem = _unit getVariable [QGVAR(carriedObject), objNull];

// Disabled for persons
if (_carriedItem isKindOf "CAManBase") exitWith {false};

if !(CBA_events_control) then {
    // Raise/lower
    // Move carried item 15 cm per scroll interval
    _scrollAmount = _scrollAmount * 0.15;

    private _position = getPosASL _carriedItem;
    private _maxHeight = (_unit modelToWorldVisualWorld [0, 0, 0]) select 2;

    _position set [2, ((_position select 2) + _scrollAmount min (_maxHeight + 1.5)) max _maxHeight];

    // Move up/down object and reattach at current position
    detach _carriedItem;

    // Uses this method of selecting position because setPosATL did not have immediate effect
    private _positionChange = _position vectorDiff (getPosASL _carriedItem);
    private _selectionPosition = _unit worldToModel (ASLtoAGL getPosWorld _carriedItem);
    _selectionPosition = _selectionPosition vectorAdd _positionChange;
    _carriedItem attachTo [_unit, _selectionPosition];

    // Reset the carry direction
    private _direction = _carriedItem getVariable [QGVAR(carryDirection_temp), _carriedItem getVariable [QGVAR(carryDirection), 0]];
    [QEGVAR(common,setDir), [_carriedItem, _direction], _carriedItem] call CBA_fnc_targetEvent;
} else {
    // Rotate
    private _direction = _carriedItem getVariable [QGVAR(carryDirection_temp), _carriedItem getVariable [QGVAR(carryDirection), 0]];
    _scrollAmount = _scrollAmount * 10;
    _direction = _direction + _scrollAmount;

    [QEGVAR(common,setDir), [_carriedItem, _direction], _carriedItem] call CBA_fnc_targetEvent;
    _carriedItem setVariable [QGVAR(carryDirection_temp), _direction];
};

true