501st-Aux-Mod/addons/RD501_Zeus/functions/fn_beam.sqf

/*
	Author: TheTimidShade

	Description:
		Creates laser beam on the given position. Should be executed on all connected clients and server using remoteExec.

	Parameters:
		0: OBJECT - The object the beam is created above.
		1: ARRAY (OPTIONAL) - Colour of the beam in format [r,g,b].
		2: ARRAY (OPTIONAL) - Colour of dust created on impact in format [r,g,b].
		
	Returns:
		NONE
*/

params [
	["_target", objNull, [objNull]],
	["_beamColour", [1,0.6,0.2], [[]]],
	["_debrisColour", [0.3, 0.27, 0.15], [[]]]
];

// input validation
if (isNull _target) exitWith {systemChat "Invalid position given for beam target! Exited";};
if (count _beamColour < 3) then {_beamColour = [1,0.6,0.2]; systemChat "Invalid colour given for beam, default used instead";};
if (count _debrisColour < 3) then {_debrisColour = [0.3, 0.27, 0.15]; systemChat "Invalid colour given for beam debris, default used instead";};

private _maxKillRange = 200;
private _maxDamageRange = 400;

private _targetPos = getPosATL _target;

// create emitters
private _impactEmitter = "Land_HelipadEmpty_F" createVehicleLocal _targetPos;
private _beamEmitter = "Land_Battery_F" createVehicleLocal _targetPos;
_beamEmitter setPosATL [_targetPos#0, _targetPos#1, 2000];

// accelerate beam emitter towards ground
_beamEmitter setVelocity [0,0,-600];

// create bright flash when beam is initially fired
_flash = "#lightpoint" createVehicleLocal (getpos _beamEmitter);
_flash setLightBrightness 300;
_flash setLightAmbient _beamColour;
_flash setLightColor _beamColour;
_flash lightAttachObject [_beamEmitter, [0,0,200]];
_flash spawn {sleep 0.1; deleteVehicle _this;};

// create beam particles
[_beamEmitter, _beamColour, _targetPos] spawn tts_beam_fnc_rayParticles;

// wait until the beam is almost halfway and play laser sound
waitUntil {sleep 0.01; ((getPosATL _beamEmitter)#2 < 750)};
_impactEmitter say3D ["laser", 20000, 1, false];

// wait until touching ground/near target
waitUntil {sleep 0.01; vectorMagnitude (velocity _beamEmitter) < 20 || _beamEmitter distance _targetPos < 5 || (getPosATL _beamEmitter)#2 < 5};
_impactEmitter say3D ["laser_impact", 20000, 1, false];
_impactEmitter setPosATL (getPosATL _beamEmitter);
deleteVehicle _beamEmitter;

// destroy/damage any nearby units/objects/buildings
if (isServer) then {[_impactEmitter, _maxKillRange, _maxDamageRange] spawn tts_beam_fnc_explosionDamage;};

// explosion particles
[_impactEmitter, _debrisColour] spawn tts_beam_fnc_explosionParticles;

// impact post processing effects
[_target] spawn tts_beam_fnc_postProcessEffects;

sleep 30;

deleteVehicle _impactEmitter;