server_updateobject

/*
[_object,_type] spawn server_updateObject;
*/
private ["_parachuteWest","_object","_type","_objectID","_uid","_lastUpdate","_needUpdate","_object_position","_object_inventory","_object_damage","_isNotOk"];

 #include "\z\addons\dayz_server\compile\server_toggle_debug.hpp"

 _object =       _this select 0;
_type =         _this select 1;
_forced = false;
if (count _this > 2) then {
        _forced = _this select 2;
};
_parachuteWest = typeOf _object == "ParachuteWest";
_isNotOk = false;

 _objectID = "0";
_uid = "0";

 if (!((isNil "_object") OR {(isNull _object)})) then {
        _objectID = _object getVariable ["ObjectID","0"];
        _uid = _object getVariable ["ObjectUID","0"];
};

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

 if (!_parachuteWest) then {
        if (_objectID == "0" && _uid == "0") then
        {
                _object_position = getPosATL _object;
                #ifdef OBJECT_DEBUG
                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]);
                #endif
                        _isNotOk = true;
        };
};

if (_isNotOk) exitWith { deleteVehicle _object; };

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

// TODO ----------------------
_object_position = {

        private["_position","_worldspace","_fuel","_key"];
        _position = getPosATL _object;
        _worldspace = [
                round(direction _object),
                _position
        ];
        _fuel = 0;
        if (_object isKindOf "AllVehicles") then {
                _fuel = fuel _object;
        };
        _key = format["CHILD:305:%1:%2:%3:",_objectID,_worldspace,_fuel];
        #ifdef OBJECT_DEBUG
        diag_log ("HIVE: WRITE: "+ str(_key));
        #endif
        _key call server_hiveWrite;
};
// ###COPY START
_object_inventory = {
// ### BASE BUILDING 1.2 ### START
//This forces object to write to database changing the inventory of the object twice
// so it updates the object from operate_gates.sqf
        private["_inventory","_previous","_key"];
        // This writes to database if object is buildable
        if (typeOf(_object) in allbuildables_class) then {
        //First lets make inventory [[[],[]],[[],[]],[[],[]]] so it updates object in DB
                        _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: Buildable: "+ str(_key));
                _key call server_hiveWrite;
        //Since we cant actually read from DB, lets make inventory this [], than write it again, to insure its updated to DB
                        _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: Buildable: "+ str(_key));
                _key call server_hiveWrite;
// DO DEFAULT server_updateObject if not a buildable
        } else {
                        _inventory = [
                        getWeaponCargo _object,
                        getMagazineCargo _object,
                        getBackpackCargo _object
                ];
                _previous = str(_object getVariable["lastInventory",[]]);
                if (str(_inventory) != _previous) 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;
                };
        };
};
// ### BASE BUILDING 1.2 ### END
// ###COPY END
_object_damage = {

        //Allow dmg process
        private["_hitpoints","_array","_hit","_selection","_key","_damage"];
        _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]];
                        //cutText  [format["Section Part: %1, Dmg: %2",_selection,_hit], "PLAIN DOWN"];
                } else {
                        _array set [count _array,[_selection,0]];
                };
        } forEach _hitpoints;
        if (_forced) then {
                if (_object in needUpdate_objects) then {
                        needUpdate_objects = needUpdate_objects - [_object];
                };
                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];
                };
                #ifdef OBJECT_DEBUG
                diag_log ("HIVE: WRITE: "+ str(_key));
                #endif
                _key call server_hiveWrite;
        } else {
                if (_object in needUpdate_objects) then {
                        needUpdate_objects = needUpdate_objects - [_object];
                };
                #ifdef OBJECT_DEBUG
                diag_log format["DEBUG: Monitoring: %1",_object];
                #endif
                needUpdate_objects set [count needUpdate_objects, _object];
        };
};

_object_killed = {
        _object setDamage 1;
        call _object_damage;
};


_object setVariable ["lastUpdate",time,true];
switch (_type) do {
        case "all": {
                call _object_position;
                call _object_inventory;
                call _object_damage;
        };
        case "position": {
                call _object_position;
        };
        case "gear": {
                call _object_inventory;
        };
        case "damage"; case "repair" : {
                call _object_damage;
        };
        case "killed": {
                call _object_killed;
        };
};