Vehicle Respawn script, check it on perfomance

  1. 8 years ago

    Hellow! I find some vehicle respawn script and edit it for ALiVE intergration. All discription in comment. Please, check it on perfomance. Each vehicle has instance of this script:

    [_value, _key, _x createVehicle (_key findEmptyPosition [5, 50, _x])] execVM "respawn_vehicle.sqf";

    Each instance has loop on observe OPCOM_instances. I think, for do this (for respawn vehicle) need one vehicle manager and callback function (notify resiver), not loop through OPCOM_instances, or not? or it's script is normal?

    /*  
    ==================================================================================================================
    Simple Vehicle Respawn Script v1.81 for Arma 3
    by Tophe of [OOPS] Origin
    by fLaf [ARMATOP] ALiVE integration
    
    Options:
    	There are some optional settings. The format for these are:
    	veh = [faction, ALiVE_opcom_objective_center, object, Delay, Deserted timer, Respawns, Effect, Dynamic] execVM "vehicle.sqf"
    
    	Vehicle respawn is working only into ALiVE opcom objective (town, military base, custum placement). If <"faction" option> has "reserve" tacom state in objective with center in <"ALiVE_opcom_objective_center" option>, then respawn is on - else respawn is off and instance of this script is ending.
    
    	You can use global variable "override_factions" for debug. For example: enter in debuger
    	override_factions = ["OPF_F"]; // factions array for support multifaction opcom
    	and all respawn point while emulute recapturing by this faction.
    
    	Default respawn delay is 60 seconds, to set a custom respawn delay time, put that in the init as well. 
    	Like this:
    	veh = [this, 15] execVM "vehicle.sqf"
    
    	Default respawn time when vehicle is deserted, but not destroyed is 120 seconds. To set a custom timer for this 
    	first set respawn delay, then the deserted vehicle timer. (0 = disabled) 
    	Like this:  
    	veh = [this, 15, 10] execVM "vehicle.sqf"
    
    	By default the number of respawns is infinite. To set a limit first set preceding values then the number of respawns you want (0 = infinite).
    	Like this:
    	veh = [this, 15, 10, 5] execVM "vehicle.sqf"
    
    	Set this value to TRUE to add a special explosion effect to the wreck when respawning.
    	Default value is FALSE, which will simply have the wreck disappear.
    	Like this:
    	veh = [this, 15, 10, 5, TRUE] execVM "vehicle.sqf"
    
    	By default the vehicle will respawn to the point where it first was when the mission started (static). 
    	This can be changed to dynamic. Then the vehicle will respawn to the position where it was destroyed. 
    	First set all preceding values then set TRUE for dynamic or FALSE for static.
    	Like this:
    	veh = [this, 15, 10, 5, TRUE, TRUE] execVM "vehicle.sqf"
    
    	If you you want to set the INIT field of the respawned vehicle, first set all other values, then set init commands. 
    	Those must be inside quotations.
    	Like this:
    	veh = [this, 15, 10, 5, TRUE, FALSE, "this setDammage 0.5"] execVM "vehicle.sqf"
    
    	Default values of all settings are:
    	veh = [this, 30, 120, 0, FALSE, FALSE] execVM "vehicle.sqf"
    
    Contact & Bugreport: cwadensten@gmail.com
    ALiVE integration: f1ufx0000@gmail.com
    ================================================================================================================== */
      
    
    private ["_hasname","_delay","_deserted","_respawns","_noend","_dead","_nodelay","_timeout","_position","_dir","_effect","_rounds","_run","_unit","_explode","_dynamic","_unitinit","_haveinit","_unitname","_type", "_factions", "_objective_center"];
    
    if (!isServer) exitWith {};
    
    // Define variables
    _factions = _this select 0;
    _objective_center = _this select 1;
    _unit = _this select 2;
    _delay = if (count _this > 3) then {_this select 3} else {60};
    _deserted = if (count _this > 4) then {_this select 4} else {120};
    _respawns = if (count _this > 5) then {_this select 5} else {0};
    _explode = if (count _this > 6) then {_this select 6} else {false};
    _dynamic = if (count _this > 7) then {_this select 7} else {false};
    _unitinit = if (count _this > 8) then {_this select 8} else {};
    _haveinit = if (count _this > 8) then {true} else {false};
    
    _hasname = false;
    _unitname = vehicleVarName _unit;
    if (isNil _unitname) then {_hasname = false;} else {_hasname = true;};
    _noend = true;
    _run = true;
    _rounds = 0;
    
    if (_delay < 0) then {_delay = 0};
    if (_deserted < 0) then {_deserted = 0};
    if (_respawns <= 0) then {_respawns= 0; _noend = true;};
    if (_respawns > 0) then {_noend = false};
    
    _dir = getDir _unit;
    _position = getPosASL _unit;
    _type = typeOf _unit;
    _dead = false;
    _nodelay = false;
    
    // Start monitoring the vehicle
    while {_run} do 
    {	
    	sleep (20 + (random 20));
    	if ((getDammage _unit > 0.8) and ({alive _x} count crew _unit == 0)) then {_dead = true};
    
    	// Check if the vehicle is deserted.
    	if (_deserted > 0) then
    	{
    		_nearPlayers = false;
    		{
    			if ((_x distance _unit) < 500) exitWith { _nearPlayers = true; };
    		} forEach playableUnits;
    
    		if ((getPosASL _unit distance _position > 10) and ({alive _x} count crew _unit == 0) and (getDammage _unit < 0.8) and !_nearPlayers) then 
    		{
    			_timeout = time + _deserted;
    			sleep 0.1;
    			waitUntil {_timeout < time or !alive _unit or {alive _x} count crew _unit > 0};
    			if ({alive _x} count crew _unit > 0) then {_dead = false}; 
    			if ({alive _x} count crew _unit == 0) then {_dead = true; _nodelay =true}; 
    			if !(alive _unit) then {_dead = true; _nodelay = false}; 
    		};
    	};
    
    	// Check ALiVE objective
    	_run = false;
    
    	{
    		private ["_opcom_factions", "_opcom_objectives", "_opcom_objective_center", "_tacom_state"];
    
    		_opcom_factions  = [_x, "factions"] call ALiVE_fnc_hashGet;
    		if (!isNil "override_factions") then {_opcom_factions = override_factions;};
    
    		if ( _factions in [_opcom_factions] ) then
    		{
    		    _opcom_objectives = [_x, "objectives"] call ALiVE_fnc_hashGet;
    
    		    {
    		    	_opcom_objective_center = [_x, "center"] call ALiVE_fnc_hashGet;
    
    		    	if ( vectorMagnitude (_objective_center vectorDiff _opcom_objective_center) < 1 ) then
    		    	{
    			    	_tacom_state = [_x, "tacom_state"] call ALiVE_fnc_hashGet;
    
    					if (!isNil "_tacom_state" && {_tacom_state == "reserve"}) then
    					{
    						_run = true;
    					};
    				};
    		    } foreach _opcom_objectives;
    		};
    	} foreach OPCOM_instances;
    
    	if (!_run) then
    	{
    	  	if ( vectorMagnitude (_position vectorDiff (getPosASL _unit)) < 1 ) then
    		{
    			_unit setDamage 1;
    		};
    	};
    
    	// Respawn vehicle
    	if (_dead and _run) then
    	{	
    		if (_nodelay) then {sleep 0.1; _nodelay = false;} else {sleep _delay;};
    		if (_dynamic) then {_position = getPosASL _unit; _dir = getDir _unit;};
    		if (_explode) then {_effect = "M_AT" createVehicle getPosASL _unit; _effect setPosASL getPosASL _unit;};
    
    		sleep 0.1;
    		deleteVehicle _unit;
    		sleep 2;
    
    		_unit = _type createVehicle _position;
    		_unit setPosASL [_position select 0,_position select 1,(_position select 2) + 0.2];
    		_unit setDir _dir;
    
    		if (["B_UAV", _type] call BIS_fnc_inString) then { createVehicleCrew _unit; };
    		if (["B_UGV", _type] call BIS_fnc_inString) then { createVehicleCrew _unit; };
    		if (["O_UAV", _type] call BIS_fnc_inString) then { createVehicleCrew _unit; };
    		if (["O_UGV", _type] call BIS_fnc_inString) then { createVehicleCrew _unit; };
    
    		if(_unitname != "") then 
    		{
    			_unit  setVehicleVarName (format ["%1",_unitname]);
    			PublicVariable (format ["%1",_unitname]);
    		};
    
    		_dead = false;
    
    		// Check respawn amount
    		if !(_noend) then {_rounds = _rounds + 1};
    		if ((_rounds == _respawns) and !(_noend)) then {_run = false;};
    	};
    };
  2. highhead

    16 Apr 2016 Administrator

    iterates every 30 secs. at avg. so should be fine

  3. while {_run} do 
    {	
    	sleep (20 + (random 20));

    So, I do it. Ok, thx!

  4. Change getDammage _unit to damage _unit

 

or Sign Up to reply!