Advertisement
Guest User

Untitled

a guest
Jul 10th, 2013
56
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.24 KB | None | 0 0
  1. /*
  2. [_object,_type] spawn server_updateObject;
  3. */
  4. private ["_object","_type","_objectID","_uid","_lastUpdate","_needUpdate","_object_position","_object_inventory","_object_damage","_isNotOk"];
  5.  
  6. _object = _this select 0;
  7. _type = _this select 1;
  8. _parachuteWest = typeOf _object == "ParachuteWest";
  9. _isNotOk = false;
  10.  
  11. _objectID = _object getVariable ["ObjectID","0"];
  12. _uid = _object getVariable ["ObjectUID","0"];
  13.  
  14. if ((typeName _objectID != "string") || (typeName _uid != "string")) then
  15. {
  16. diag_log(format["Non-string Object: ID %1 UID %2", _objectID, _uid]);
  17. //force fail
  18. _objectID = "0";
  19. _uid = "0";
  20. };
  21.  
  22. if (!_parachuteWest) then {
  23. if (_objectID == "0" && _uid == "0" && (vehicle _object getVariable ["Sarge",0] != 1)) then
  24. {
  25. _object_position = getPosATL
  26. _object; diag_log format ["DEBUG: Deleting object %1 with invalid ID at [%2,%3,%4]",
  27. typeOf _object,
  28. _object_position select 0,
  29. _object_position select 1,
  30. _object_position select 2];
  31. _isNotOk = true;
  32. };
  33. };
  34.  
  35. if (_isNotOk) exitWith { deleteVehicle _object; };
  36.  
  37. _lastUpdate = _object getVariable ["lastUpdate",time];
  38. _needUpdate = _object in needUpdate_objects;
  39.  
  40. // TODO ----------------------
  41. _object_position = {
  42. private["_position","_worldspace","_fuel","_key"];
  43. _position = getPosATL _object;
  44. _worldspace = [
  45. round(direction _object),
  46. _position
  47. ];
  48. _fuel = 0;
  49. if (_object isKindOf "AllVehicles") then {
  50. _fuel = fuel _object;
  51. };
  52. _key = format["CHILD:305:%1:%2:%3:",_objectID,_worldspace,_fuel];
  53. diag_log ("HIVE: WRITE: "+ str(_key));
  54.  
  55. _key call server_hiveWrite;
  56. };
  57.  
  58. // ###COPY START
  59. _object_inventory = {
  60. // ### BASE BUILDING 1.2 ### START
  61. //This forces object to write to database changing the inventory of the object twice
  62. // so it updates the object from operate_gates.sqf
  63.  
  64. private["_inventory","_previous","_key"];
  65. // This writes to database if object is buildable
  66. if (typeOf(_object) in allbuildables_class) then {
  67. //First lets make inventory [[[],[]],[[],[]],[[],[]]] so it updates object in DB
  68. _inventory = [[[],[]],[[],[]],[[],[]]];
  69. if (_objectID == "0") then {
  70. _key = format["CHILD:309:%1:%2:",_uid,_inventory];
  71. } else {
  72. _key = format["CHILD:303:%1:%2:",_objectID,_inventory];
  73. };
  74. diag_log ("HIVE: Buildable: "+ str(_key));
  75. _key call server_hiveWrite;
  76. //Since we cant actually read from DB, lets make inventory this [], than write it again, to insure its updated to DB
  77. _inventory = [];
  78. if (_objectID == "0") then {
  79. _key = format["CHILD:309:%1:%2:",_uid,_inventory];
  80. } else {
  81. _key = format["CHILD:303:%1:%2:",_objectID,_inventory];
  82. };
  83. diag_log ("HIVE: Buildable: "+ str(_key));
  84. _key call server_hiveWrite;
  85. // DO DEFAULT server_updateObject if not a buildable
  86. } else {
  87. _inventory = [
  88. getWeaponCargo _object,
  89. getMagazineCargo _object,
  90. getBackpackCargo _object
  91. ];
  92.  
  93.  
  94. _previous = str(_object getVariable["lastInventory",[]]);
  95. if (str(_inventory) != _previous) then {
  96. _object setVariable["lastInventory",_inventory];
  97. if (_objectID == "0") then {
  98. _key = format["CHILD:309:%1:%2:",_uid,_inventory];
  99. } else {
  100. _key = format["CHILD:303:%1:%2:",_objectID,_inventory];
  101. };
  102. diag_log ("HIVE: WRITE: "+ str(_key));
  103. _key call server_hiveWrite;
  104. };
  105. };
  106. };
  107. // ### BASE BUILDING 1.2 ### END
  108. // ###COPY END
  109.  
  110. _object_damage = {
  111. private["_hitpoints","_array","_hit","_selection","_key","_damage"];
  112. _hitpoints = _object call vehicle_getHitpoints;
  113. _damage = damage _object;
  114. _array = [];
  115. {
  116. _hit = [_object,_x] call object_getHit;
  117. _selection = getText (configFile >> "CfgVehicles" >> (typeOf _object) >> "HitPoints" >> _x >> "name");
  118. if (_hit > 0) then {_array set [count _array,[_selection,_hit]]};
  119. _object setHit ["_selection", _hit]
  120. } forEach _hitpoints;
  121. _key = format["CHILD:306:%1:%2:%3:",_objectID,_array,_damage];
  122. diag_log ("HIVE: WRITE: "+ str(_key));
  123. _key call server_hiveWrite;
  124. _object setVariable ["needUpdate",false,true];
  125. };
  126.  
  127. _object_killed = {
  128. private["_hitpoints","_array","_hit","_selection","_key","_damage"];
  129. _hitpoints = _object call vehicle_getHitpoints;
  130. _damage = damage _object;
  131. _array = [];
  132. {
  133. _hit = [_object,_x] call object_getHit;
  134. _selection = getText (configFile >> "CfgVehicles" >> (typeOf _object) >> "HitPoints" >> _x >> "name");
  135. if (_hit > 0) then {_array set [count _array,[_selection,_hit]]};
  136. _hit = 1;
  137. _object setHit ["_selection", _hit]
  138. } forEach _hitpoints;
  139. _damage = 1;
  140.  
  141. if (_objectID == "0") then {
  142. _key = format["CHILD:306:%1:%2:%3:",_uid,_array,_damage];
  143. } else {
  144. _key = format["CHILD:306:%1:%2:%3:",_objectID,_array,_damage];
  145. };
  146. diag_log ("HIVE: WRITE: "+ str(_key));
  147. _key call server_hiveWrite;
  148. _object setVariable ["needUpdate",false,true];
  149. };
  150.  
  151. _object_repair = {
  152. private["_hitpoints","_array","_hit","_selection","_key","_damage"];
  153. _hitpoints = _object call vehicle_getHitpoints;
  154. _damage = damage _object;
  155. _array = [];
  156. {
  157. _hit = [_object,_x] call object_getHit;
  158. _selection = getText (configFile >> "CfgVehicles" >> (typeOf _object) >> "HitPoints" >> _x >> "name");
  159. if (_hit > 0) then {_array set [count _array,[_selection,_hit]]};
  160. _object setHit ["_selection", _hit]
  161. } forEach _hitpoints;
  162.  
  163. _key = format["CHILD:306:%1:%2:%3:",_objectID,_array,_damage];
  164. diag_log ("HIVE: WRITE: "+ str(_key));
  165. _key call server_hiveWrite;
  166. _object setVariable ["needUpdate",false,true];
  167. };
  168. // TODO ----------------------
  169.  
  170. _object setVariable ["lastUpdate",time,true];
  171. switch (_type) do {
  172. case "all": {
  173. call _object_position;
  174. call _object_inventory;
  175. call _object_damage;
  176. };
  177. case "position": {
  178. if (!(_object in needUpdate_objects)) then {
  179. diag_log format["DEBUG Position: Added to NeedUpdate=%1",_object];
  180. needUpdate_objects set [count needUpdate_objects, _object];
  181. };
  182. };
  183. case "gear": {
  184. call _object_inventory;
  185. };
  186. case "damage": {
  187. if ( (time - _lastUpdate) > 5) then {
  188. call _object_damage;
  189. } else {
  190. if (!(_object in needUpdate_objects)) then {
  191. diag_log format["DEBUG Damage: Added to NeedUpdate=%1",_object];
  192. needUpdate_objects set [count needUpdate_objects, _object];
  193. };
  194. };
  195. };
  196. case "killed": {
  197. call _object_killed;
  198. };
  199. case "repair": {
  200. call _object_damage;
  201. };
  202. };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement