[Release] crashLoot - Scatter loot/gear from destroyed player vehicles on ground (Version 1.1)

[hambeast]

looks great!

[Tricks]

Is the OP updated with all the changes?

[SadBoy1981]

 

 

 

 

 

 

 

Working great! Thanks.

 

 

 

[oSoDirty]

Nice mod.  I will give this a test on my server and see how it goes. 

 

This also sparked an idea for a new mission idea to add to my current mission system.  I had at one point animated heli-crashes, but the code stopped working a while ago and I never had time to debug it.  I'm thinking of somehow combining this with DayZAI vehicles so that if destroyed the loot scatters around the wreck rather than losing it.

 

I'll tinker with it and post back.  I'll be sure to credit your code if I get it working.

Born, there is a newer animated crash spawner file, works like a charm. It be

 

-Dirty

[Tricks]

 

 

Working great! Thanks.

 

 

 

 

Sadboy did you use the original post or make all the changes from the 2 pages?

[BHBorn2Kill]

Born, there is a newer animated crash spawner file, works like a charm. It be

 

-Dirty

 

Thanks Dirty, I didn't see this one.  I think I like this one a better as it removes the marker when the mission is completed.  I may end up combining this with my variable mission loot tables for some extra treats for the players.

[SadBoy1981]

Sadboy did you use the original post or make all the changes from the 2 pages?

first post

[Gr8]

Love it, When a heli crashes and loot piles spawn around the heli on the ground. Looks like a real Heli Crash Event.

[Corper]

it dupes all the gear out on the ground for me even without the car being destroyed, can the instructions be a bit more clear?

[TNT]

this wont work for zupa coins 3.0 right because of the extra ,0] ?

[striker]

this wont work for zupa coins 3.0 right because of the extra ,0] ?

 

It should still work with zupa coins.  :)

 

striker 

[Tricks]

Weird, I followed the steps exactly. Very easy to follow, I have made all the changes that you instructed Striker but it doesnt see to be working. I grabbed a keyless server spawned vehicle and loaded it with gear. Blew it up with a satchel charge and nothing scattered. Same goes for an unlocked HMMWV purchased from trader and left unlocked. Same goes for a server spawned keyless heli, I loaded it with gear and crashed it. Nothing.

 

No errors in the RPT logs to help.

[Gr8]

Weird, I followed the steps exactly. Very easy to follow, I have made all the changes that you instructed Striker but it doesnt see to be working. I grabbed a keyless server spawned vehicle and loaded it with gear. Blew it up with a satchel charge and nothing scattered. Same goes for an unlocked HMMWV purchased from trader and left unlocked.

 

are you using _intentory or _inventory ?

[Tricks]

are you using _intentory or _inventory ?

 

I didn't make any corrections so "_intentory" is what I am using.

[Gr8]

I didn't make any corrections so "_intentory" is what I am using.

 

Do you use Zupa plot management or Door Management?

[Bob_the_K]

Hi, I followed the steps in the first post to the letter - and rechecked them.  I get the following errors:

 

 

21:13:20 Error in expression <object"];

_inventory = [
getWeaponCargo _object,
getMagazineCargo _object,
getBa>
21:13:20 Error position: <_object,
getMagazineCargo _object,
getBa>
21:13:20 Error Undefined variable in expression: _object
21:13:20 File z\addons\dayz_server\compile\server_updateObject.sqf, line 79
21:13:20 Error in expression <object"];
_inventory = [
getWeaponCargo _object,
getMagazineCargo _object,
getBa>
21:13:20 Error position: <_object,
getMagazineCargo _object,
getBa>
21:13:20 Error Undefined variable in expression: _object

21:13:20 File z\addons\dayz_server\compile\server_updateObject.sqf, line 7921:16:59 Error in expression <e","_object","_objectID"];

_hitpoints = _object call vehicle_getHitpoints;
_dama>
21:16:59 Error position: <_object call vehicle_getHitpoints;
_dama>
21:16:59 Error Undefined variable in expression: _object
21:16:59 File z\addons\dayz_server\compile\server_updateObject.sqf, line 100
21:16:59 Error in expression <];

_key call server_hiveWrite;
_object setVariable ["needUpdate",false,true];
}>
21:16:59 Error position: <setVariable ["needUpdate",false,true];
}>
21:16:59 Error Type Nothing, expected Bool
21:16:59 File z\addons\dayz_server\compile\server_updateObject.sqf, line 113
21:17:49 Error in expression <e","_object","_objectID"];
_hitpoints = _object call vehicle_getHitpoints;
_dama>
21:17:49 Error position: <_object call vehicle_getHitpoints;
_dama>
21:17:49 Error Undefined variable in expression: _object
21:17:49 File z\addons\dayz_server\compile\server_updateObject.sqf, line 100
21:17:49 Error in expression <];

_key call server_hiveWrite;
_object setVariable ["needUpdate",false,true];
}>
21:17:49 Error position: <setVariable ["needUpdate",false,true];
}>
21:17:49 Error Type Nothing, expected Bool
21:17:49 File z\addons\dayz_server\compile\server_updateObject.sqf, line 113
21:18:39 Error in expression <e","_object","_objectID"];
_hitpoints = _object call vehicle_getHitpoints;
_dama>
21:18:39 Error position: <_object call vehicle_getHitpoints;
_dama>
21:18:39 Error Undefined variable in expression: _object
21:18:39 File z\addons\dayz_server\compile\server_updateObject.sqf, line 100
21:18:39 Error in expression <];

_key call server_hiveWrite;
_object setVariable ["needUpdate",false,true];
}>
21:18:39 Error position: <setVariable ["needUpdate",false,true];
}>
21:18:39 Error Type Nothing, expected Bool

21:18:39 File z\addons\dayz_server\compile\server_updateObject.sqf, line 113

 

 

Here's my server_UpdateObject.sqf:

 

/*

[_object,_type] spawn server_updateObject;
*/
/* Additional */
/***********************************/
/* Vehicle Key Changer v1.4 */
/* Written by OtterNas3 */
/* January, 11, 2014 */
/* Last update: 06/15/2014 */
/***********************************/


private ["_object","_type","_objectID","_uid","_lastUpdate","_needUpdate","_object_position","_object_inventory","_object_damage","_isNotOk","_parachuteWest","_firstTime","_object_killed","_object_repair","_isbuildable","_object_vehicleKey","_activatingPlayer","_vehicleClassname","_toKey","_toKeyName","_vehicle_ID","_vehicle_UID"];

_object = _this select 0;

if(isNull(_object)) exitWith {
diag_log format["Skipping Null Object: %1", _object];
};

_type = _this select 1;
_parachuteWest = ((typeOf _object == "ParachuteWest") or (typeOf _object == "ParachuteC"));
_isbuildable = (typeOf _object) in dayz_allowedObjects;
_isNotOk = false;
_firstTime = false;

_objectID = _object getVariable ["ObjectID","0"];
_uid = _object getVariable ["ObjectUID","0"];

if ((typeName _objectID != "string") || (typeName _uid != "string")) then
{
diag_log(format["Non-string Object: ID %1 UID %2", _objectID, _uid]);
//force fail
_objectID = "0";
_uid = "0";
};

// Epoch Admin Tools
if (_object getVariable "MalSar" == 1) exitWith {};

if (!_parachuteWest and !(locked _object)) then {
if (_objectID == "0" && _uid == "0") then
{
_object_position = getPosATL _object;
_isNotOk = true;
};
};

// do not update if buildable and not ok
if (_isNotOk and _isbuildable) exitWith { };

// delete if still not ok
//if (_isNotOk) exitWith { deleteVehicle _object; diag_log(format["Deleting object %1 with invalid ID at pos [%2,%3,%4]",typeOf _object,_object_position select 0,_object_position select 1, _object_position select 2]); };


_lastUpdate = _object getVariable ["lastUpdate",time];
_needUpdate = _object in needUpdate_objects;

// TODO ----------------------
_object_position = {
private ["_position","_worldspace","_fuel","_key","_object","_objectID"];
_position = getPosATL _object;
_worldspace = [
(getDir _object) call KK_fnc_floatToString,
_position call KK_fnc_positionToString
];
_fuel = 0;
if (_object isKindOf "AllVehicles") then {
_fuel = fuel _object;
};
_key = format["CHILD:305:%1:%2:%3:",_objectID,_worldspace,_fuel];
//diag_log ("HIVE: WRITE: "+ str(_key));
_key call server_hiveWrite;
};

_object_inventory = {
private ["_inventory","_previous","_key","_uid","_objectID","_object"];
_inventory = [
getWeaponCargo _object,
getMagazineCargo _object,
getBackpackCargo _object
];
_previous = str(_object getVariable["lastInventory",[]]);
if (str(_inventory) != _previous) then {
if(alive _object) then{
_object setVariable["lastInventory",_inventory];
};
if (_objectID == "0") then {
_key = format["CHILD:309:%1:%2:",_uid,_inventory];
} else {
_key = format["CHILD:303:%1:%2:",_objectID,_inventory];
};
//diag_log ("HIVE: WRITE: "+ str(_key));
_key call server_hiveWrite;
};
};

_object_damage = {
private ["_hitpoints","_array","_hit","_selection","_key","_damage","_object","_objectID"];
_hitpoints = _object call vehicle_getHitpoints;
_damage = damage _object;
_array = [];
{
_hit = [_object,_x] call object_getHit;
_selection = getText (configFile >> "CfgVehicles" >> (typeOf _object) >> "HitPoints" >> _x >> "name");
if (_hit > 0) then {_array set [count _array,[_selection,_hit]]};
_object setHit ["_selection", _hit]
} forEach _hitpoints;

_key = format["CHILD:306:%1:%2:%3:",_objectID,_array,_damage];
//diag_log ("HIVE: WRITE: "+ str(_key));
_key call server_hiveWrite;
_object setVariable ["needUpdate",false,true];
};

_object_killed = {
private ["_hitpoints","_array","_hit","_selection","_key","_damage","_uid","_object","_objectID"];
if(_object isKindOf "AllVehicles") then{
_object execVM "\z\addons\dayz_server\compile\server_crashLoot.sqf";
};
_hitpoints = _object call vehicle_getHitpoints;
//_damage = damage _object;
_damage = 1;
_array = [];
{
_hit = [_object,_x] call object_getHit;
_selection = getText (configFile >> "CfgVehicles" >> (typeOf _object) >> "HitPoints" >> _x >> "name");
if (_hit > 0) then {_array set [count _array,[_selection,_hit]]};
_hit = 1;
_object setHit ["_selection", _hit]
} forEach _hitpoints;

if (_objectID == "0") then {
_key = format["CHILD:306:%1:%2:%3:",_uid,_array,_damage];
} else {
_key = format["CHILD:306:%1:%2:%3:",_objectID,_array,_damage];
};
//diag_log ("HIVE: WRITE: "+ str(_key));
_key call server_hiveWrite;
_object setVariable ["needUpdate",false,true];
};

_object_repair = {
private ["_hitpoints","_array","_hit","_selection","_key","_damage","_object","_objectID"];
_hitpoints = _object call vehicle_getHitpoints;
_damage = damage _object;
_array = [];
{
_hit = [_object,_x] call object_getHit;
_selection = getText (configFile >> "CfgVehicles" >> (typeOf _object) >> "HitPoints" >> _x >> "name");
if (_hit > 0) then {_array set [count _array,[_selection,_hit]]};
_object setHit ["_selection", _hit]
} forEach _hitpoints;

_key = format["CHILD:306:%1:%2:%3:",_objectID,_array,_damage];
//diag_log ("HIVE: WRITE: "+ str(_key));
_key call server_hiveWrite;
_object setVariable ["needUpdate",false,true];
};

_object_vehicleKey = {
private ["_hit","_selection","_fuel","_gotcha","_retry","_vehicleID","_key","_result","_outcome","_player","_class","_newKey","_newKeyName","_oldVehicleID","_oldVehicleUID","_hitpoints","_damage","_array","_inventory","_vehicleUID","_position","_dir","_worldspace","_object"];

/* Setting up variables */
_player = _this select 0;
_class = _this select 1;
_newKey = _this select 2;
_newKeyName = _this select 3;
_oldVehicleID = _this select 4;
_oldVehicleUID = _this select 5;

/* Get Damage of the Vehicle */
_hitpoints = _object call vehicle_getHitpoints;
_damage = damage _object;
_array = [];
{
_hit = [_object,_x] call object_getHit;
_selection = getText (configFile >> "CfgVehicles" >> (typeOf _object) >> "HitPoints" >> _x >> "name");
if (_hit > 0) then {_array set [count _array,[_selection,_hit]]};
_object setHit ["_selection", _hit];
} forEach _hitpoints;

/* Get the Fuel of the Vehicle */
_fuel = 0;
if (_object isKindOf "AllVehicles") then {
_fuel = fuel _object;
};

/* Get the Inventory of the Vehicle */
_inventory = [
getWeaponCargo _object,
getMagazineCargo _object,
getBackpackCargo _object
];

/* Get the position of the Vehicle */
_position = getPosASL _object;
if !(surfaceIsWater _position) then {
_position = ASLToATL _position;
};
_dir = getDir _object;
_worldspace = [_dir,_position];

/* Delete the current Database entry */
[_oldVehicleID,_oldVehicleUID,_player] call server_deleteObj;
sleep 1;

/* Generate a new UID */
_vehicleUID = _worldspace call dayz_objectUID3;

/* Write the new Database entry and LOG the action*/
_key = format["CHILD:308:%1:%2:%3:%4:%5:%6:%7:%8:%9:",dayZ_instance, _class, _damage , _newKey, _worldspace, _inventory, _array, _fuel,_vehicleUID];
_key call server_hiveWrite;
diag_log ("HIVE: WRITE: VEHICLE KEY CHANGER: "+ str(_key));
diag_log format["HIVE: WRITE: VEHICLE KEY CHANGER: Vehicle:%1 NewKey:%2 BY %3(%4)", _object, _newKeyName, (name _player), (getPlayerUID _player)];

/* Get the ObjectID of the entry in the Database */
_retry = 0;
_gotcha = false;
while {!_gotcha && _retry < 10} do {
sleep 1;

/* Send the request */
_key = format["CHILD:388:%1:",_vehicleUID];
diag_log ("HIVE: READ: VEHICLE KEY CHANGER: "+ str(_key));
_result = _key call server_hiveReadWrite;
_outcome = _result select 0;

/* We got a answer */
if (_outcome == "PASS") then {
_vehicleID = _result select 1;

/* Compare with old ObjectID to check if it not was deleted yet */
if (_oldVehicleID == _vehicleID) then {
/* Not good lets give it another try */
_gotcha = false;
_retry = _retry + 1;
} else {
/* GOTCHA! */
diag_log("CUSTOM: VEHICLE KEY CHANGER: Selected " + str(_vehicleID));
_gotcha = true;
_retry = 11;

_object setVariable ["VKC_disabled", 1,true];
_object setVariable ["VKC_claiming_disabled", 1,true];

[_object] spawn {
private ["_veh"];
_veh = _this select 0;

sleep 30;
_veh setVariable ["VKC_disabled", 0,true];
_veh setVariable ["VKC_claiming_disabled", 0,true];
};

PVDZE_vkc_Success = true;
(owner _player) publicVariableClient "PVDZE_vkc_Success";

/* Lock the Vehicle */
_object setVehicleLock "locked";

/* Save the ObjectID and ObjectUID to the vehicles variable and make it public */
_object setVariable ["ObjectID", _vehicleID, true];
_object setVariable ["ObjectUID", _vehicleUID, true];

/* Set the lastUpdate time to current */
_object setVariable ["lastUpdate",time,true];

/* Set the CharacterID to the new Key so we can access it! */
_object setVariable ["CharacterID", _newKey, true];

/* Some other variables you might need for disallow lift/tow/cargo locked Vehicles and such */
/* Uncomment if you use this */

/* R3F Arty and LOG block lift/tow/cargo locked vehicles*/
_object setVariable ["R3F_LOG_disabled",true,true];

/* =BTC= Logistic block lift locked vehicles*/
_object setVariable ["BTC_Cannot_Lift",true,true];
};
} else {
/* Something went wrong on the request give it another try */
diag_log("CUSTOM: VEHICLE KEY CHANGER: trying again to get id for: " + str(_vehicleUID));
_gotcha = false;
_retry = _retry + 1;
};
};
};
// TODO ----------------------

_object setVariable ["lastUpdate",time,true];
switch (_type) do {
case "all": {
call _object_position;
call _object_inventory;
call _object_damage;
};
case "position": {
if (!(_object in needUpdate_objects)) then {
//diag_log format["DEBUG Position: Added to NeedUpdate=%1",_object];
needUpdate_objects set [count needUpdate_objects, _object];
};
};
case "gear": {
call _object_inventory;
};
case "damage": {
if ( (time - _lastUpdate) > 5) then {
call _object_damage;
} else {
if (!(_object in needUpdate_objects)) then {
//diag_log format["DEBUG Damage: Added to NeedUpdate=%1",_object];
needUpdate_objects set [count needUpdate_objects, _object];
};
};
};
case "killed": {
call _object_killed;
};
case "repair": {
call _object_damage;
};
case "vehiclekey": {
_activatingPlayer = _this select 2;
_vehicleClassname = _this select 3;
_toKey = _this select 4;
_toKeyName = _this select 5;
_vehicle_ID = _this select 6;
_vehicle_UID = _this select 7;
[_activatingPlayer, _vehicleClassname, _toKey, _toKeyName, _vehicle_ID, _vehicle_UID] call _object_vehicleKey;;
};
};

 

I've even gone back and verified that I didn't miss anything.

 

One thing I'm hoping that this will work for is the latest WAI for the missions that spawn crashed vehicles so loot is strewn about instead of in neatly stacked crates.  

 

Any ideas why I'n getting the errors?   I didn't spot anything.

 

Thanks,

Bob

[Tricks]

Do you use Zupa plot management or Door Management?

 

I use both of those mods.

[Gr8]

I use both of those mods.

 

Send me your Server_Moniter.sqf

[MrEnzO]

So when it's says:

 

Find the following line in the server_monitor.sqf:

 

if (_object isKindOf "AllVehicles") then {

 

And place the following after it:

_object setVariable ["lastInventory", _intentory];

*This sets the "lastInventory" to the gear that was saved to the database (prevents the crashLoot script from dropping nothing when there really is something).

 

 

Is it on the same line or after the the whole text.

 

if (_object isKindOf "AllVehicles") then {

{

_selection = _x select 0;

_dam = _x select 1;

if (_selection in dayZ_explosiveParts && _dam > 0.8) then {_dam = 0.8};

[_object,_selection,_dam] call object_setFixServer;

} count _hitpoints;

 

_object setFuel _fuel;

 

if (!((typeOf _object) in dayz_allowedObjects)) then {

 

//_object setvelocity [0,0,1];

_object call fnc_veh_ResetEH;

 

if(_ownerID != "0" && !(_object isKindOf "Bicycle")) then {

_object setvehiclelock "locked";

};

 

_totalvehicles = _totalvehicles + 1; 

 

 

Thanks in advance

[calamity]

 

So when it's says:

 

Find the following line in the server_monitor.sqf:

 

if (_object isKindOf "AllVehicles") then {

 

And place the following after it:

_object setVariable ["lastInventory", _intentory];

*This sets the "lastInventory" to the gear that was saved to the database (prevents the crashLoot script from dropping nothing when there really is something).

 

 

Is it on the same line or after the the whole text.

 

if (_object isKindOf "AllVehicles") then {

{

_selection = _x select 0;

_dam = _x select 1;

if (_selection in dayZ_explosiveParts && _dam > 0.8) then {_dam = 0.8};

[_object,_selection,_dam] call object_setFixServer;

} count _hitpoints;

 

_object setFuel _fuel;

 

if (!((typeOf _object) in dayz_allowedObjects)) then {

 

//_object setvelocity [0,0,1];

_object call fnc_veh_ResetEH;

 

if(_ownerID != "0" && !(_object isKindOf "Bicycle")) then {

_object setvehiclelock "locked";

};

 

_totalvehicles = _totalvehicles + 1; 

 

 

Thanks in advance

 

place it directly after the {

 

if (_object isKindOf "AllVehicles") then {
_object setVariable ["lastInventory", _intentory];
{
_selection = _x select 0;
_dam = _x select 1;
if (_selection in dayZ_explosiveParts && _dam > 0.8) then {_dam = 0.8};
[_object,_selection,_dam] call object_setFixServer;
} count _hitpoints;

[MrEnzO]

Thanks man.

[WEREWOLF]

IS the first post been updated or do we add all the corrections

[WEREWOLF]

hmmm no answer

[3steN8igall]

i have an idea, maybe for the next version?!?

 

2 different loot spawn chance, one for locked and one for unlocked vehicles.

for example:

locked vehicles drops 25% of gear and unlocked vehicles drops 50%

[physbo]

I am having players either driving or flying around, and items are just spawning randomly