Респавн обьектов с сохранением имени

Главная
Форум
Загрузка
ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3

ArmA ArmA II ArmA OA ArmA 3
Другие новости
- Военные новости
- Игровые новости

Страница 1 из 1 1
Модератор форума: GUNNER161, Panikaha

HappyMan › Суббота › 11.07.2015 › 19:05 › Сообщение # 1

Лейтенант

В увольнительной

Группа:: Пользователи

Сообщений:: 40

Slon › Суббота › 11.07.2015 › 19:09 › Сообщение # 2

Генералиссимус

В увольнительной

Группа:: Модератор

Сообщений:: 3709

Титул:: Спец по скриптам

HappyMan › Суббота › 11.07.2015 › 19:27 › Сообщение # 3

Лейтенант

В увольнительной

Группа:: Пользователи

Сообщений:: 40

в init.sqf

_null = [] execVM "scripts\vehicle\Modulesmarkers.sqf";

в Modulesmarkers.sqf

while { true } do
{
"mkr_mod_repair1" setmarkerpos (getpos mod_repair1);
"mkr_mod_repair2" setmarkerpos (getpos mod_repair2);
"mkr_mod_repair3" setmarkerpos (getpos mod_repair3);
"mkr_mod_repair4" setmarkerpos (getpos mod_repair4);
"mkr_mod_repair5" setmarkerpos (getpos mod_repair5);
"mkr_mod_rearm1" setmarkerpos (getpos mod_rearm1);
"mkr_mod_rearm2" setmarkerpos (getpos mod_rearm2);
"mkr_mod_rearm3" setmarkerpos (getpos mod_rearm3);
"mkr_mod_rearm4" setmarkerpos (getpos mod_rearm4);
"mkr_mod_rearm5" setmarkerpos (getpos mod_rearm5);
"mkr_mod_refuel1" setmarkerpos (getpos mod_refuel1);
"mkr_mod_refuel2" setmarkerpos (getpos mod_refuel2);
"mkr_mod_refuel3" setmarkerpos (getpos mod_refuel3);
"mkr_mod_med1" setmarkerpos (getpos mod_med1);
"mkr_mod_med2" setmarkerpos (getpos mod_med2);
sleep 1;
};

Респавн этим скриптом: но у него есть проблема - в случае если техника не была использоватна игроком
(если топливный модуль то в него вообще никак не сядешь) он не респавнится через определенный
промежуток а лишь в случае уничтожения:

/*

Quiksilver to do: finish vehicle register script and do away with constant (performance costly) monitoring of all vehicles. WIP.

===========================================================================
Simple Vehicle Respawn Script v1.81 for Arma 3
by Tophe of ?stg?ta Ops

[OOPS]Put this in the vehicles init line:
veh = [this]execVM "vehicle.sqf"

Options:
There are some optional settings. The format for these are:
veh = [object, Delay, Deserted timer, Respawns, Effect, Dynamic] execVM "vehicle.sqf"

Default respawn delay is 30 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 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
================================================================== */

_unit = _this select 0;
_type = typeOf _unit;

// First time setup of vehicle

[_unit] execVM "scripts\vehicle\setupUnit.sqf";

// Server only

if (!isServer) exitWith {};

// Initialize vehicle monitoring

private ["_hasname","_delay","_deserted","_respawns","_noend","_dead","_nodelay","_timeout","_position",
"_dir","_effect","_rounds","_run","_unit","_e xplode","_dynamic","_unitinit","_haveinit","_unitname","_type"];

_delay = if (count _this > 1) then {_this select 1} else {30};
_deserted = if (count _this > 2) then {_this select 2} else {120};
_respawns = if (count _this > 3) then {_this select 3} else {0};
_explode = if (count _this > 4) then {_this select 4} else {false};
_dynamic = if (count _this > 5) then {_this select 5} else {false};
_unitinit = if (count _this > 6) then {_this select 6} else {};
_haveinit = if (count _this > 6) 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 = getPosATL _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) < PARAMS_VehicleRespawnDistance) exitWith { _nearPlayers = true; };
} forEach playableUnits;

if ((getPosATL _unit distance _position > 10) and ({alive _x} count crew _unit == 0) 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};
};
};

// Respawn vehicle

if (_dead) then {

if (_nodelay) then {sleep 0.1; _nodelay = false;} else {sleep _delay;};
if (_dynamic) then {_position = getPosATL _unit; _dir = getDir _unit;};
if (_explode) then {_effect = "M_AT" createVehicle getPosATL _unit; _effect setPosATL getPosATL _unit;};

sleep 1;

deleteVehicle _unit;

sleep 3;

_unit = _type createVehicle _position;
_unit setPosATL [_position select 0,_position select 1,(_position select 2) + 0.2];
_unit setDir _dir;

_unit call compile format ["%1 = _this; _this setVehicleVarName %2; publicVariable %2 ", _unitname, str _unitname];

[[[_unit],"scripts\vehicle\setupUnit.sqf"],"BIS_fnc_execVM",nil,true] spawn BIS_fnc_MP;

_dead = false;

// Check respawn amount
if !(_noend) then {_rounds = _rounds + 1};
if ((_rounds == _respawns) and !(_noend)) then {_run = false;};
};
};

Slon › Суббота › 11.07.2015 › 19:48 › Сообщение # 4

Генералиссимус

В увольнительной

Группа:: Модератор

Сообщений:: 3709

Титул:: Спец по скриптам

HappyMan › Воскресенье › 12.07.2015 › 15:41 › Сообщение # 5

Лейтенант

В увольнительной

Группа:: Пользователи

Сообщений:: 40

Респавн обьектов с сохранением имени

Страница 1 из 1
1

Чат сайта