Organize files a bit and removed non source pbo's

SQF/dayz_server/compile/fnc_plyrHit.sqf

@@ -0,0 +1,26 @@
+private ["_victim", "_attacker","_weapon","_distance"];
+_victim = _this select 0;
+_attacker = _this select 1;
+
+if (!isPlayer _victim || !isPlayer _attacker) exitWith {};
+if ((name _victim) == (name _attacker)) exitWith {};
+
+_weapon = weaponState _attacker;
+if (_weapon select 0 == "Throw") then 
+{
+	_weapon = _weapon select 3;
+}
+else
+{
+	_weapon = _weapon select 0;
+};
+
+_distance = _victim distance _attacker;
+
+diag_log format["PHIT: %1 was hit by %2 with %3 from %4m", _victim, _attacker, _weapon, _distance];
+
+_victim setVariable["AttackedBy", _attacker, true];
+_victim setVariable["AttackedByName", (name _attacker), true];
+//_victim setVariable["AttackedByWeapon", (currentWeapon _attacker), true];
+_victim setVariable["AttackedByWeapon", _weapon, true];
+_victim setVariable["AttackedFromDistance", _distance, true];

SQF/dayz_server/compile/server_deleteObj.sqf

@@ -0,0 +1,21 @@
+/*
+[_objectID,_objectUID] call server_deleteObj;
+*/
+private["_id","_uid","_key"];
+_id 	= _this select 0;
+_uid 	= _this select 1;
+
+if (isServer) then {
+	//remove from database
+	if (parseNumber _id > 0) then {
+		//Send request
+		_key = format["CHILD:304:%1:",_id];
+		_key call server_hiveWrite;
+		diag_log format["DELETE: Deleted by ID: %1",_id];
+	} else  {
+		//Send request
+		_key = format["CHILD:310:%1:",_uid];
+		_key call server_hiveWrite;
+		diag_log format["DELETE: Deleted by UID: %1",_uid];
+	};
+};

SQF/dayz_server/compile/server_handleZedSpawn.sqf

@@ -0,0 +1,3 @@
+private["_zed"];
+_zed = _this select 0;
+_zed enableSimulation false;

SQF/dayz_server/compile/server_onPlayerDisconnect.sqf

@@ -0,0 +1,46 @@
+/*
+
+*/
+private ["_object","_myGroup","_id","_playerID","_playerName","_characterID","_playerIDtoarray","_timeout"];
+_playerID = _this select 0;
+_playerName = _this select 1;
+_object = call compile format["player%1",_playerID];
+_characterID =	_object getVariable ["characterID","0"];
+_timeout = _object getVariable["combattimeout",0];
+
+_playerIDtoarray = [];
+_playerIDtoarray = toArray _playerID;
+
+if (vehicle _object != _object) then {
+	_object action ["eject", vehicle _object];
+};
+
+if (59 in _playerIDtoarray) exitWith { };
+
+if ((_timeout - time) > 0) then {
+	
+	diag_log format["COMBAT LOGGED: %1 (%2)", _playerName,_timeout];
+    _object setVariable["NORRN_unconscious",true, true];
+    _object setVariable["unconsciousTime",300,true];
+    diag_log format["SET UNCONCIOUSNESS: %1", _playerName];
+
+	//_message = format["PLAYER COMBAT LOGGED: %1 (%2)",_playerName, _killerName, _weapon];
+	//[nil, nil, rspawn, [_object, _message], { (_this select 0) globalChat (_this select 1) }] call RE;
+
+};
+
+diag_log format["DISCONNECT: %1 (%2) Object: %3, _characterID: %4", _playerName,_playerID,_object,_characterID];
+_id = [_playerID,_characterID,2] spawn dayz_recordLogin;
+dayz_disco = dayz_disco - [_playerID];
+if (!isNull _object) then {
+//Update Vehicle
+	{ [_x,"gear"] call server_updateObject } foreach 
+		(nearestObjects [getPosATL _object, dayz_updateObjects, 10]);
+	if (alive _object) then {
+		[_object,(magazines _object),true,true] call server_playerSync;
+		//[_object,[],true,false] call server_playerSync;
+		_myGroup = group _object;
+		deleteVehicle _object;
+		deleteGroup _myGroup;
+	};
+};

SQF/dayz_server/compile/server_playerDeaths.sqf

@@ -0,0 +1,16 @@
+private["_character","_clientID"];
+
+_character = _this select 0;
+_clientID = owner _character;
+
+diag_log ("HIVE: Player Death list Request by ClientID: "+ str(_clientID));
+	
+diag_log(PlayerDeaths);
+
+dayzPlayerDeathsResult = PlayerDeaths;
+
+if(!isNull _character) then {
+	_clientID publicVariableClient "dayzPlayerDeathsResult";
+};
+
+PlayerDeaths

SQF/dayz_server/compile/server_playerDied.sqf

@@ -0,0 +1,95 @@
+private["_characterID","_minutes","_newObject","_playerID","_playerName","_infected","_victim","_victimName","_killer","_killerName","_weapon","_distance","_message","_loc_message","_key","_eh","_body","_method","_name"];
+//[unit, weapon, muzzle, mode, ammo, magazine, projectile]
+_characterID = 	_this select 0;
+_minutes =		_this select 1;
+_newObject = 	_this select 2;
+_playerID = 	_this select 3;
+_playerName = 	_this select 4;
+_infected =		_this select 5;
+
+_victim removeAllEventHandlers "MPHit";
+
+_victim = _this select 2;
+_victimName = _victim getVariable["bodyName", "nil"];
+
+_killer = _victim getVariable["AttackedBy", "nil"];
+_killerName = _victim getVariable["AttackedByName", "nil"];
+
+// when a zombie kills a player _killer, _killerName and _weapon will be "nil"
+// we can use this to determine a zombie kill and send a customized message for that. right now no killmsg means it was a zombie.
+if (_killerName != "nil") then
+{
+	_weapon = _victim getVariable["AttackedByWeapon", "nil"];
+	_distance = _victim getVariable["AttackedFromDistance", "nil"];
+
+	if (_victimName == _killerName) then 
+	{
+		_message = format["%1 killed himself",_victimName];
+		_loc_message = format["PKILL: %1 killed himself", _victimName];
+	}
+	else 
+	{
+		_message = format["%1 was killed by %2 with weapon %3 from %4m",_victimName, _killerName, _weapon, _distance];
+		_loc_message = format["PKILL: %1 was killed by %2 with weapon %3 from %4m", _victimName, _killerName, _weapon, _distance];
+	};
+
+	diag_log _loc_message;
+	if(DZE_DeathMsgGlobal) then {
+		[nil, nil, rspawn, [_killer, _message], { (_this select 0) globalChat (_this select 1) }] call RE;
+	};
+	if(DZE_DeathMsgSide) then {
+		[nil, nil, rspawn, [_killer, _message], { (_this select 0) sideChat (_this select 1) }] call RE;
+	};
+	if(DZE_DeathMsgTitleText) then {
+		[nil,nil,"per",rTITLETEXT,_message,"PLAIN DOWN"] call RE;
+	};
+
+	// build array to store death messages to allow viewing at message board in trader citys.
+	PlayerDeaths set [count PlayerDeaths,_message];
+
+	// Cleanup
+	_victim setVariable["AttackedBy", "nil", true];
+	_victim setVariable["AttackedByName", "nil", true];
+	_victim setVariable["AttackedByWeapon", "nil", true];
+	_victim setVariable["AttackedFromDistance", "nil", true];
+};
+
+dayz_disco = dayz_disco - [_playerID];
+_newObject setVariable["processedDeath",time];
+
+/*
+diag_log ("DW_DEBUG: (isnil _characterID): " + str(isnil "_characterID"));
+if (isnil "_characterID") then {
+diag_log ("DW_DEBUG: _newObject: " + str(_newObject));	
+	};
+*/
+
+if (typeName _minutes == "STRING") then 
+{
+	_minutes = parseNumber _minutes;
+};
+	
+if (_characterID != "0") then 
+{
+	_key = format["CHILD:202:%1:%2:%3:",_characterID,_minutes,_infected];
+	//diag_log ("HIVE: WRITE: "+ str(_key));
+	_key call server_hiveWrite;
+} 
+else 
+{
+	deleteVehicle _newObject;
+};
+
+diag_log ("PDEATH: Player Died " + _playerID);
+/*
+_eh = [_newObject] spawn {
+	_body = _this select 0;
+	_method = _body getVariable["deathType","unknown"];
+	_name = _body getVariable["bodyName","unknown"];
+	waitUntil{!isPlayer _body;sleep 1};
+	_body setVariable["deathType",_method,true];
+	_body setVariable["bodyName",_name,true];
+	diag_log ("PDEATH: Player Left Body " + _name);
+};
+*/
+//dead_bodyCleanup set [count dead_bodyCleanup,_newObject];

SQF/dayz_server/compile/server_playerLogin.sqf

@@ -0,0 +1,144 @@
+private ["_isInfected","_doLoop","_hiveVer","_isHiveOk","_playerID","_playerObj","_primary","_key","_charID","_playerName","_backpack","_isNew","_inventory","_survival","_model","_mags","_wpns","_bcpk","_config","_newPlayer"];
+//Set Variables
+
+diag_log ("STARTING LOGIN: " + str(_this));
+
+_playerID = _this select 0;
+_playerObj = _this select 1;
+_playerName = name _playerObj;
+//_worldspace = [];
+
+if (_playerName == '__SERVER__' || _playerID == '' || local player) exitWith {};
+
+// Cancel any login until server_monitor terminates. 
+// This is mandatory since all vehicles must be spawned before the first players spawn on the map.
+// Otherwise, all vehicle event handlers won't be created on players' client side.
+if (isNil "sm_done") exitWith { diag_log ("Login cancelled, server is not ready. " + str(_playerObj)); };
+
+
+if (count _this > 2) then {
+	dayz_players = dayz_players - [_this select 2];
+};
+
+//Variables
+_inventory =	[];
+_backpack = 	[];
+//_items = 		[];
+//_magazines = 	[];
+//_weapons = 		[];
+//_medicalStats =	[];
+_survival =		[0,0,0];
+//_tent =			[];
+//_state = 		[];
+//_direction =	0;
+_isInfected =   0;
+_model =		"";
+//_newUnit =		objNull;
+//_botActive = false;
+
+if (_playerID == "") then {
+	_playerID = getPlayerUID _playerObj;
+};
+
+if ((_playerID == "") or (isNil "_playerID")) exitWith {
+	diag_log ("LOGIN FAILED: Player [" + _playerName + "] has no login ID");
+};
+
+//??? endLoadingScreen;
+diag_log ("LOGIN ATTEMPT: " + str(_playerID) + " " + _playerName);
+
+//Do Connection Attempt
+_doLoop = 0;
+while {_doLoop < 5} do {
+	_key = format["CHILD:101:%1:%2:%3:",_playerID,dayZ_instance,_playerName];
+	_primary = _key call server_hiveReadWrite;
+	if (count _primary > 0) then {
+		if ((_primary select 0) != "ERROR") then {
+			_doLoop = 9;
+		};
+	};
+	_doLoop = _doLoop + 1;
+};
+
+if (isNull _playerObj or !isPlayer _playerObj) exitWith {
+	diag_log ("LOGIN RESULT: Exiting, player object null: " + str(_playerObj));
+};
+
+if ((_primary select 0) == "ERROR") exitWith {
+    diag_log format ["LOGIN RESULT: Exiting, failed to load _primary: %1 for player: %2 ",_primary,_playerID];
+};
+
+//Process request
+_newPlayer = 	_primary select 1;
+_isNew = 		count _primary < 7; //_result select 1;
+_charID = 		_primary select 2;
+//_randomSpot = false;
+
+//diag_log ("LOGIN RESULT: " + str(_primary));
+
+/* PROCESS */
+_hiveVer = 0;
+
+if (!_isNew) then {
+	//RETURNING CHARACTER		
+	_inventory = 	_primary select 4;
+	_backpack = 	_primary select 5;
+	_survival =		_primary select 6;
+	_model =		_primary select 7;
+	_hiveVer =		_primary select 8;
+	
+	if (!(_model in AllPlayers)) then {
+		_model = "Survivor2_DZ";
+	};
+	
+} else {
+	_isInfected =	_primary select 3;
+	_model =		_primary select 4;
+	_hiveVer =		_primary select 5;
+	
+	if (isNil "_model") then {
+		_model = "Survivor2_DZ";
+	} else {
+		if (_model == "") then {
+			_model = "Survivor2_DZ";
+		};
+	};
+
+	//Record initial inventory only if not player zombie 
+	if(_isInfected != 1) then {
+		_config = (configFile >> "CfgSurvival" >> "Inventory" >> "Default");
+		_mags = getArray (_config >> "magazines");
+		_wpns = getArray (_config >> "weapons");
+		_bcpk = getText (_config >> "backpack");
+
+		if(!isNil "DefaultMagazines") then {
+			_mags = DefaultMagazines;
+		};
+		if(!isNil "DefaultWeapons") then {
+			_wpns = DefaultWeapons;
+		};
+		if(!isNil "DefaultBackpack") then {
+			_bcpk = DefaultBackpack;
+		};
+		//_randomSpot = true;
+	
+		//Wait for HIVE to be free
+		_key = format["CHILD:203:%1:%2:%3:",_charID,[_wpns,_mags],[_bcpk,[],[]]];
+		_key call server_hiveWrite;
+	};
+};
+diag_log ("LOGIN LOADED: " + str(_playerObj) + " Type: " + (typeOf _playerObj));
+
+_isHiveOk = false;	//EDITED
+if (_hiveVer >= dayz_hiveVersionNo) then {
+	_isHiveOk = true;
+};
+//diag_log ("SERVER RESULT: " + str("X") + " " + str(dayz_hiveVersionNo));
+
+//Server publishes variable to clients and WAITS
+//_playerObj setVariable ["publish",[_charID,_inventory,_backpack,_survival,_isNew,dayz_versionNo,_model,_isHiveOk,_newPlayer],true];
+
+dayzPlayerLogin = [_charID,_inventory,_backpack,_survival,_isNew,dayz_versionNo,_model,_isHiveOk,_newPlayer,_isInfected];
+if(!isNull _playerObj) then {
+	(owner _playerObj) publicVariableClient "dayzPlayerLogin";
+};

SQF/dayz_server/compile/server_playerSetup.sqf

@@ -0,0 +1,268 @@
+private ["_characterID","_playerObj","_playerID","_dummy","_worldspace","_state","_doLoop","_key","_primary","_medical","_stats","_humanity","_lastinstance","_friendlies","_randomSpot","_position","_debug","_distance","_hit","_fractures","_score","_findSpot","_pos","_isIsland","_w","_clientID","_spawnMC"];
+//Wait for HIVE to be free
+//diag_log ("SETUP: attempted with " + str(_this));
+
+_characterID = _this select 0;
+_playerObj = _this select 1;
+_playerID = getPlayerUID _playerObj;
+
+if (isNull _playerObj) exitWith {
+	diag_log ("SETUP INIT FAILED: Exiting, player object null: " + str(_playerObj));
+};
+
+//Add MPHit event handler
+diag_log("Adding MPHit EH for " + str(_playerObj));
+_playerObj addMPEventHandler ["MPHit", {_this spawn fnc_plyrHit;}];
+
+if (_playerID == "") then {
+	_playerID = getPlayerUID _playerObj;
+};
+
+if (_playerID == "") exitWith {
+	diag_log ("SETUP INIT FAILED: Exiting, no player ID: " + str(_playerObj));
+};
+
+private["_dummy"];
+_dummy = getPlayerUID _playerObj;
+if ( _playerID != _dummy ) then { 
+	diag_log format["DEBUG: _playerID miscompare with UID! _playerID:%1",_playerID]; 
+	_playerID = _dummy;
+};
+
+//Variables
+_worldspace = 	[];
+
+_state = 		[];
+
+//Do Connection Attempt
+_doLoop = 0;
+while {_doLoop < 5} do {
+	_key = format["CHILD:102:%1:",_characterID];
+	_primary = _key call server_hiveReadWrite;
+	if (count _primary > 0) then {
+		if ((_primary select 0) != "ERROR") then {
+			_doLoop = 9;
+		};
+	};
+	_doLoop = _doLoop + 1;
+};
+
+if (isNull _playerObj or !isPlayer _playerObj) exitWith {
+	diag_log ("SETUP RESULT: Exiting, player object null: " + str(_playerObj));
+};
+
+//Wait for HIVE to be free
+//diag_log ("SETUP: RESULT: Successful with " + str(_primary));
+
+_medical =		_primary select 1;
+_stats =		_primary select 2;
+_state =		_primary select 3;
+_worldspace = 	_primary select 4;
+_humanity =		_primary select 5;
+_lastinstance =	_primary select 6;
+_friendlies =	[];
+
+//Set position
+_randomSpot = false;
+
+//diag_log ("WORLDSPACE: " + str(_worldspace));
+
+if (count _worldspace > 0) then {
+
+	_position = 	_worldspace select 1;
+	if (count _position < 3) then {
+		//prevent debug world!
+		_randomSpot = true;
+	};
+	_debug = getMarkerpos "respawn_west";
+	_distance = _debug distance _position;
+	if (_distance < 2000) then {
+		_randomSpot = true;
+	};
+	
+	_distance = [0,0,0] distance _position;
+	if (_distance < 500) then {
+		_randomSpot = true;
+	};
+	
+	// Came from another server force random spawn
+	if (_lastinstance != dayZ_instance) then {
+		_randomSpot = true;
+	};
+
+	//_playerObj setPosATL _position;
+} else {
+	_randomSpot = true;
+};
+
+//diag_log ("LOGIN: Location: " + str(_worldspace) + " doRnd?: " + str(_randomSpot));
+
+//set medical values
+if (count _medical > 0) then {
+	_playerObj setVariable["USEC_isDead",(_medical select 0),true];
+	_playerObj setVariable["NORRN_unconscious", (_medical select 1), true];
+	_playerObj setVariable["USEC_infected",(_medical select 2),true];
+	_playerObj setVariable["USEC_injured",(_medical select 3),true];
+	_playerObj setVariable["USEC_inPain",(_medical select 4),true];
+	_playerObj setVariable["USEC_isCardiac",(_medical select 5),true];
+	_playerObj setVariable["USEC_lowBlood",(_medical select 6),true];
+	_playerObj setVariable["USEC_BloodQty",(_medical select 7),true];
+	
+		_playerObj setVariable["unconsciousTime",(_medical select 10),true];
+	
+//	if (_playerID in dayz_disco) then {
+//		_playerObj setVariable["NORRN_unconscious",true, true];
+//		_playerObj setVariable["unconsciousTime",300,true];
+//	} else {
+//		_playerObj setVariable["unconsciousTime",(_medical select 10),true];
+//	};
+	
+	//Add Wounds
+	{
+		_playerObj setVariable[_x,true,true];
+		//["usecBleed",[_playerObj,_x,_hit]] call broadcastRpcCallAll;
+		usecBleed = [_playerObj,_x,_hit];
+		publicVariable "usecBleed";
+	} forEach (_medical select 8);
+	
+	//Add fractures
+	_fractures = (_medical select 9);
+	_playerObj setVariable ["hit_legs",(_fractures select 0),true];
+	_playerObj setVariable ["hit_hands",(_fractures select 1),true];
+	
+	if (count _medical > 11) then {
+		//Additional medical stats
+		_playerObj setVariable ["messing",(_medical select 11),true];
+	};
+	
+} else {
+	//Reset Fractures
+	_playerObj setVariable ["hit_legs",0,true];
+	_playerObj setVariable ["hit_hands",0,true];
+	_playerObj setVariable ["USEC_injured",false,true];
+	_playerObj setVariable ["USEC_inPain",false,true];
+	_playerObj setVariable ["messing",[0,0],true];
+};
+	
+if (count _stats > 0) then {	
+	//register stats
+	_playerObj setVariable["zombieKills",(_stats select 0),true];
+	_playerObj setVariable["headShots",(_stats select 1),true];
+	_playerObj setVariable["humanKills",(_stats select 2),true];
+	_playerObj setVariable["banditKills",(_stats select 3),true];
+	_playerObj addScore (_stats select 1);
+	
+	//Save Score
+	_score = score _playerObj;
+	_playerObj addScore ((_stats select 0) - _score);
+	
+	//record for Server JIP checks
+	_playerObj setVariable["zombieKills_CHK",(_stats select 0)];
+	_playerObj setVariable["headShots_CHK",(_stats select 1)];
+	_playerObj setVariable["humanKills_CHK",(_stats select 2)];
+	_playerObj setVariable["banditKills_CHK",(_stats select 3)];
+	if (count _stats > 4) then {
+		if (!(_stats select 3)) then {
+			_playerObj setVariable["selectSex",true,true];
+		};
+	} else {
+		_playerObj setVariable["selectSex",true,true];
+	};
+} else {
+	//Save initial loadout
+	//register stats
+	_playerObj setVariable["zombieKills",0,true];
+	_playerObj setVariable["humanKills",0,true];
+	_playerObj setVariable["banditKills",0,true];
+	_playerObj setVariable["headShots",0,true];
+	
+	//record for Server JIP checks
+	_playerObj setVariable["zombieKills_CHK",0];
+	_playerObj setVariable["humanKills_CHK",0,true];
+	_playerObj setVariable["banditKills_CHK",0,true];
+	_playerObj setVariable["headShots_CHK",0];
+};
+
+if (_randomSpot) then {
+	private["_counter","_position","_isNear","_isZero","_mkr"];
+	if (!isDedicated) then {
+		endLoadingScreen;
+	};
+	
+	
+	//Spawn modify via mission init.sqf
+	if(isnil "spawnArea") then {
+		spawnArea = 1500;
+	};
+	if(isnil "spawnShoremode") then {
+		spawnShoremode = 1;
+	};
+	if(isnil "spawnMarkerCount") then {
+		spawnMarkerCount = 4;
+	};
+	
+	// The wiki states floor has a uniform distribution but will not reach the last number so we add +1
+	_spawnMC = spawnMarkerCount + 1;
+
+	//spawn into random
+	_findSpot = true;
+	_mkr = "";
+	while {_findSpot} do {
+		_counter = 0;
+		while {_counter < 20 and _findSpot} do {
+			// switched to floor
+			_mkr = "spawn" + str(floor(random _spawnMC));
+			_position = ([(getMarkerPos _mkr),0,spawnArea,10,0,2000,spawnShoremode] call BIS_fnc_findSafePos);
+			_isNear = count (_position nearEntities ["Man",100]) == 0;
+			_isZero = ((_position select 0) == 0) and ((_position select 1) == 0);
+			//Island Check		//TeeChange
+			_pos 		= _position;
+			_isIsland	= false;		//Can be set to true during the Check
+			for [{_w=0},{_w<=150},{_w=_w+2}] do {
+				_pos = [(_pos select 0),((_pos select 1) + _w),(_pos select 2)];
+				if(surfaceisWater _pos) exitWith {
+					_isIsland = true;
+				};
+			};
+			
+			if ((_isNear and !_isZero) || _isIsland) then {_findSpot = false};
+			_counter = _counter + 1;
+		};
+	};
+	_isZero = ((_position select 0) == 0) and ((_position select 1) == 0);
+	_position = [_position select 0,_position select 1,0];
+	if (!_isZero) then {
+		//_playerObj setPosATL _position;
+		_worldspace = [0,_position];
+	};
+};
+
+
+//Record player for management
+dayz_players set [count dayz_players,_playerObj];
+
+//record player pos locally for server checking
+_playerObj setVariable["characterID",_characterID,true];
+_playerObj setVariable["humanity",_humanity,true];
+_playerObj setVariable["humanity_CHK",_humanity];
+//_playerObj setVariable["worldspace",_worldspace,true];
+//_playerObj setVariable["state",_state,true];
+_playerObj setVariable["lastPos",getPosATL _playerObj];
+_playerObj setVariable["friendlies",_friendlies,true];
+
+dayzPlayerLogin2 = [_worldspace,_state];
+_clientID = owner _playerObj;
+if(!isNull _playerObj) then {
+	_clientID publicVariableClient "dayzPlayerLogin2";
+};
+
+//record time started
+_playerObj setVariable ["lastTime",time];
+//_playerObj setVariable ["model_CHK",typeOf _playerObj];
+
+diag_log ("LOGIN PUBLISHING: " + str(_playerObj) + " Type: " + (typeOf _playerObj));
+
+dayzLogin = null;
+dayzLogin2 = null;
+
+//Save Login

SQF/dayz_server/compile/server_playerStat.sqf

@@ -0,0 +1,4 @@
+private ["_unit","_variable","_change"];
+_unit = 	_this select 0;
+_variable = _this select 1;
+_change = 	_this select 2;

SQF/dayz_server/compile/server_playerSync.sqf

@@ -0,0 +1,221 @@
+private ["_character","_magazines","_force","_characterID","_charPos","_isInVehicle","_timeSince","_humanity","_debug","_distance","_isNewMed","_isNewPos","_isNewGear","_playerPos","_playerGear","_playerBackp","_medical","_distanceFoot","_lastPos","_backpack","_kills","_killsB","_killsH","_headShots","_lastTime","_timeGross","_timeLeft","_currentWpn","_currentAnim","_config","_onLadder","_isTerminal","_currentModel","_modelChk","_muzzles","_temp","_currentState","_array","_key","_pos","_forceGear"];
+//[player,array]
+//diag_log ("UPDATE: " + str(_this) );
+
+//waituntil {(typeName(_this) == "ARRAY");sleep 0.01;};	//seems to cause often infinite waits (but not for first n players)
+
+//this only happens when we don't follow the correct parameter format...
+//(like supplying just the player object instead of the array in player_eat.sqf)
+//i've fixed this in player_eat so i can comment this part out
+/*if ( typeName(_this) == "OBJECT" ) then {
+	_this = [_this,[],true];
+	//diag_log ("DW_DEBUG: #manual fix _this: " + str(_this));
+};*/
+
+//correct
+//"UPDATE: [B 1-1-B:1 (THE BEAST) REMOTE,[],true]"
+//error
+//"UPDATE: B 1-1-B:1 (THE BEAST) REMOTE"
+
+_character = 	_this select 0;
+_magazines =	_this select 1;
+//_force = 		_this select 2;
+_forceGear =	_this select 3;
+_force =	true;
+
+_characterID =	_character getVariable ["characterID","0"];
+_charPos = 		getPosATL _character;
+_isInVehicle = 	vehicle _character != _character;
+_timeSince = 	0;
+_humanity =		0;
+
+//diag_log ("DW_DEBUG: (isnil _characterID): " + str(isnil "_characterID"));
+/*
+if !(isnil "_characterID") then {
+diag_log ("DW_DEBUG: _characterID: " + str(_characterID));
+};
+*/
+
+if (_character isKindOf "Animal") exitWith {
+	diag_log ("ERROR: Cannot Sync Character " + (name _character) + " is an Animal class");
+};
+
+if (isnil "_characterID") exitWith {
+	diag_log ("ERROR: Cannot Sync Character " + (name _character) + " has nil characterID");	
+};
+
+if (_characterID == "0") exitWith {
+	diag_log ("ERROR: Cannot Sync Character " + (name _character) + " as no characterID");
+};
+
+private["_debug","_distance"];
+_debug = getMarkerpos "respawn_west";
+_distance = _debug distance _charPos;
+if (_distance < 2000) exitWith { 
+	diag_log format["ERROR: server_playerSync: Cannot Sync Player %1 [%2]. Position in debug! %3",name _character,_characterID,_charPos];
+};
+
+//Check for server initiated updates
+_isNewMed =		_character getVariable["medForceUpdate",false];		//Med Update is forced when a player receives some kind of med incident
+_isNewPos =		_character getVariable["posForceUpdate",false];		//Med Update is forced when a player receives some kind of med incident
+_isNewGear =	(count _magazines) > 0;
+
+//diag_log ("Starting Save... MED: " + str(_isNewMed) + " / POS: " + str(_isNewPos)); sleep 0.05;
+
+//Check for player initiated updates
+if (_characterID != "0") then {
+	_playerPos =	[];
+	_playerGear =	[];
+	_playerBackp =	[];
+	_medical =		[];
+	_distanceFoot =	0;
+	
+	//diag_log ("Found Character...");
+	
+	//Check if update is requested
+	if (_isNewPos or _force) then {
+		//diag_log ("position..." + str(_isNewPos) + " / " + str(_force)); sleep 0.05;
+		if (((_charPos select 0) == 0) and ((_charPos select 1) == 0)) then {
+			//Zero Position
+		} else {
+			//diag_log ("getting position..."); sleep 0.05;
+			_playerPos = 	[round(direction _character),_charPos];
+			_lastPos = 		_character getVariable["lastPos",_charPos];
+			if (count _lastPos > 2 and count _charPos > 2) then {
+				if (!_isInVehicle) then {
+					_distanceFoot = round(_charPos distance _lastPos);
+				};
+				_character setVariable["lastPos",_charPos];
+			};
+			if (count _charPos < 3) then {
+				_playerPos =	[];
+			};
+			//diag_log ("position = " + str(_playerPos)); sleep 0.05;
+		};
+		_character setVariable ["posForceUpdate",false,true];
+	};
+	if (_isNewGear or _forceGear) then {
+		//diag_log ("gear..."); sleep 0.05;
+		_playerGear = [weapons _character,_magazines];
+		//diag_log ("playerGear: " +str(_playerGear));
+		_backpack = unitBackpack _character;
+		_playerBackp = [typeOf _backpack,getWeaponCargo _backpack,getMagazineCargo _backpack];
+	};
+	if (_isNewMed or _force) then {
+		//diag_log ("medical..."); sleep 0.05;
+		if (!(_character getVariable["USEC_isDead",false])) then {
+			//diag_log ("medical check..."); sleep 0.05;
+			_medical = _character call player_sumMedical;
+			//diag_log ("medical result..." + str(_medical)); sleep 0.05;
+		};
+		_character setVariable ["medForceUpdate",false,true];
+	};
+	
+	//Process update
+	if (_characterID != "0") then {		
+		//Record stats while we're here		
+		/*
+			Check previous stats against what client had when they logged in
+			this helps prevent JIP issues, where a new player wouldn't have received
+			the old players updates. Only valid for stats where clients could have
+			be recording  results from their local objects (such as agent zombies)
+		*/
+		_kills = 		["zombieKills",_character] call server_getDiff;
+		_killsB = 		["banditKills",_character] call server_getDiff;
+		_killsH = 		["humanKills",_character] call server_getDiff;
+		_headShots = 	["headShots",_character] call server_getDiff;
+		_humanity = 	["humanity",_character] call server_getDiff2;
+		//_humanity = 	_character getVariable ["humanity",0];
+		_character addScore _kills;		
+		/*
+			Assess how much time has passed, for recording total time on server
+		*/
+		_lastTime = 	_character getVariable["lastTime",time];
+		_timeGross = 	(time - _lastTime);
+		_timeSince = 	floor(_timeGross / 60);
+		_timeLeft =		(_timeGross - (_timeSince * 60));
+		/*
+			Get character state details
+		*/
+		_currentWpn = 	currentMuzzle _character;
+		_currentAnim =	animationState _character;
+		_config = 		configFile >> "CfgMovesMaleSdr" >> "States" >> _currentAnim;
+		_onLadder =		(getNumber (_config >> "onLadder")) == 1;
+		_isTerminal = 	(getNumber (_config >> "terminal")) == 1;
+		//_wpnDisabled =	(getNumber (_config >> "disableWeapons")) == 1;
+		_currentModel = typeOf _character;
+		_modelChk = 	_character getVariable ["model_CHK",""];
+		if (_currentModel == _modelChk) then {
+			_currentModel = "";
+		} else {
+			_currentModel = str(_currentModel);
+			_character setVariable ["model_CHK",typeOf _character];
+		};
+		
+		if (_onLadder or _isInVehicle or _isTerminal) then {
+			_currentAnim = "";
+			//If position to be updated, make sure it is at ground level!
+			if ((count _playerPos > 0) and !_isTerminal) then {
+				_charPos set [2,0];
+				_playerPos set[1,_charPos];					
+			};
+		};
+		if (_isInVehicle) then {
+			_currentWpn = "";
+		} else {
+			if ( typeName(_currentWpn) == "STRING" ) then {
+				_muzzles = getArray(configFile >> "cfgWeapons" >> _currentWpn >> "muzzles");
+				if (count _muzzles > 1) then {
+					_currentWpn = currentMuzzle _character;
+				};	
+			} else {
+				//diag_log ("DW_DEBUG: _currentWpn: " + str(_currentWpn));
+				_currentWpn = "";
+			};
+		};
+		_temp = round(_character getVariable ["temperature",100]);
+		_currentState = [_currentWpn,_currentAnim,_temp];
+		/*
+			Everything is ready, now publish to HIVE
+		*/
+		if (count _playerPos > 0) then {
+			_array = [];
+			{
+				if (_x > dayz_minpos and _x < dayz_maxpos) then {
+					_array set [count _array,_x];
+				};
+			} forEach (_playerPos select 1);
+			_playerPos set [1,_array];
+		};
+		if (!isNull _character) then {
+			if (alive _character) then {
+				//Wait for HIVE to be free
+				//Send request
+				_key = format["CHILD:201:%1:%2:%3:%4:%5:%6:%7:%8:%9:%10:%11:%12:%13:%14:%15:%16:",_characterID,_playerPos,_playerGear,_playerBackp,_medical,false,false,_kills,_headShots,_distanceFoot,_timeSince,_currentState,_killsH,_killsB,_currentModel,_humanity];
+				//diag_log ("HIVE: WRITE: "+ str(_key) + " / " + _characterID);
+				_key call server_hiveWrite;
+			};
+		};
+
+		// If player is in a vehicle, keep its position updated
+		if (vehicle _character != _character) then {
+//			[vehicle _character, "position"] call server_updateObject;
+			if (!(vehicle _character in needUpdate_objects)) then {
+				//diag_log format["DEBUG: Added to NeedUpdate=%1",_object];
+				needUpdate_objects set [count needUpdate_objects, vehicle _character];
+			};
+		};
+		
+		// Force gear updates for nearby vehicles/tents
+		_pos = _this select 0;
+		{
+			[_x, "gear"] call server_updateObject;
+		} forEach nearestObjects [_pos, dayz_updateObjects, 10];
+		//[_charPos] call server_updateNearbyObjects;
+
+		//Reset timer
+		if (_timeSince > 0) then {
+			_character setVariable ["lastTime",(time - _timeLeft)];
+		};
+	};
+};

SQF/dayz_server/compile/server_publishObject.sqf

@@ -0,0 +1,31 @@
+private ["_class","_uid","_charID","_object","_worldspace","_key","_allowed"];
+//[dayz_characterID,_tent,[_dir,_location],"TentStorage"]
+_charID =		_this select 0;
+_object = 		_this select 1;
+_worldspace = 	_this select 2;
+_class = 		_this select 3;
+
+_allowed = [_object, "Server"] call check_publishobject;
+if (!_allowed) exitWith { deleteVehicle _object; };
+
+//diag_log ("PUBLISH: Attempt " + str(_object));
+
+//get UID
+_uid = _worldspace call dayz_objectUID2;
+
+//Send request
+_key = format["CHILD:308:%1:%2:%3:%4:%5:%6:%7:%8:%9:",dayZ_instance, _class, 0 , _charID, _worldspace, [], [], 0,_uid];
+//diag_log ("HIVE: WRITE: "+ str(_key));
+_key call server_hiveWrite;
+
+_object setVariable ["lastUpdate",time];
+_object setVariable ["ObjectUID", _uid,true];
+// _object setVariable ["characterID",_charID,true];
+
+_object addMPEventHandler ["MPKilled",{_this call object_handleServerKilled;}];
+// Test disabling simulation server side on buildables only.
+_object enableSimulation false;
+
+dayz_serverObjectMonitor set [count dayz_serverObjectMonitor,_object];
+
+//diag_log ("PUBLISH: Created " + (_class) + " with ID " + _uid);

SQF/dayz_server/compile/server_publishVehicle.sqf

@@ -0,0 +1,122 @@
+private ["_object","_worldspace","_location","_dir","_class","_uid","_dam","_hitpoints","_selection","_array","_damage","_fuel","_key","_totaldam","_spawnDMG","_characterID"];
+//[_veh,[_dir,_location],"V3S_Civ",true]
+_object = 		_this select 0;
+_worldspace = 	_this select 1;
+_class = 		_this select 2;
+_spawnDMG =		_this select 3;
+_characterID =  _this select 4;
+
+_fuel = 1;
+_damage = 0;
+_array = [];
+
+diag_log ("PUBLISH: Attempt " + str(_object));
+_dir = 		_worldspace select 0;
+_location = _worldspace select 1;
+
+//Generate UID test using time
+// _uid = str( round (dateToNumber date)) + str(round time);
+_uid = _worldspace call dayz_objectUID2;
+//_uid = format["%1%2",(round time),_uid];
+
+if (_spawnDMG) then { 
+	_fuel = 0;
+	if (getNumber(configFile >> "CfgVehicles" >> _class >> "isBicycle") != 1) then {
+
+		// Create randomly damaged parts
+	
+		_totaldam = 0;
+		_hitpoints = _object call vehicle_getHitpoints;
+		{
+			// generate damage on all parts
+			_dam = call generate_new_damage;
+
+			_selection = getText(configFile >> "cfgVehicles" >> _class >> "HitPoints" >> _x >> "name");
+			
+			if (_dam > 0) then {
+				_array set [count _array,[_selection,_dam]];
+				_totaldam = _totaldam + _dam;
+			};
+		} forEach _hitpoints;	
+
+
+		// just set low base dmg - may change later
+		_damage = 0;
+
+		// New fuel min max 
+		_fuel = (random(DynamicVehicleFuelHigh-DynamicVehicleFuelLow)+DynamicVehicleFuelLow) / 100;
+
+	};
+};
+
+// TODO: check if uid already exists and if so increment by 1 and check again as soon as we find nothing continue.
+
+//Send request
+_key = format["CHILD:308:%1:%2:%3:%4:%5:%6:%7:%8:%9:",dayZ_instance, _class, _damage , _characterID, _worldspace, [], _array, _fuel,_uid];
+diag_log ("HIVE: WRITE: "+ str(_key)); 
+_key call server_hiveWrite;
+
+dayz_serverObjectMonitor set [count dayz_serverObjectMonitor,_object];
+
+// Switched to spawn so we can wait a bit for the ID
+[_object,_uid,_fuel,_damage,_array,_characterID,_class] spawn {
+   private["_object","_uid","_fuel","_damage","_array","_characterID","_done","_retry","_key","_result","_outcome","_oid","_selection","_dam","_class"];
+
+   _object = _this select 0;
+   _uid = _this select 1;
+   _fuel = _this select 2;
+   _damage = _this select 3;
+   _array = _this select 4;
+   _characterID = _this select 5;
+   _class = _this select 6;
+
+   _done = false;
+	_retry = 0;
+	// TODO: Needs major overhaul
+	while {_retry < 10} do {
+		
+		sleep 1;
+		// GET DB ID
+		_key = format["CHILD:388:%1:",_uid];
+		diag_log ("HIVE: WRITE: "+ str(_key));
+		_result = _key call server_hiveReadWrite;
+		_outcome = _result select 0;
+		if (_outcome == "PASS") then {
+			_oid = _result select 1;
+			_object setVariable ["ObjectID", _oid, true];
+			diag_log("CUSTOM: Selected " + str(_oid));
+			_done = true;
+			_retry = 100;
+
+		} else {
+			diag_log("CUSTOM: trying again to get id for: " + str(_uid));
+			_done = false;
+			_retry = _retry + 1;
+		};
+	};
+	if(!_done) exitWith { deleteVehicle _object; diag_log("CUSTOM: failed to get id for : " + str(_uid)); };
+
+	_object setVariable ["lastUpdate",time];
+	_object setVariable ["CharacterID", _characterID, true];
+	_object setDamage _damage;
+
+	// Set Hits after ObjectID is set
+	{
+		_selection = _x select 0;
+		_dam = _x select 1;
+		if (_selection in dayZ_explosiveParts and _dam > 0.8) then {_dam = 0.8};
+		[_object,_selection,_dam] call object_setFixServer;
+	} forEach _array;
+	
+	_object setFuel _fuel;
+	
+	_object setvelocity [0,0,1];
+
+	_object call fnc_vehicleEventHandler;
+
+	// testing - should make sure everyone has eventhandlers for vehicles was unused...
+	dayzVehicleInit = _object;
+	publicVariable "dayzVehicleInit";
+
+	diag_log ("PUBLISH: Created " + (_class) + " with ID " + str(_uid));
+};

SQF/dayz_server/compile/server_publishVehicle2.sqf

@@ -0,0 +1,112 @@
+private ["_isOK","_object","_worldspace","_location","_dir","_class","_uid","_key","_keySelected","_characterID"];
+
+_object = 		_this select 0;
+_worldspace = 	_this select 1;
+_class = 		_this select 2;
+// _spawnDMG =		_this select 3;
+_keySelected =  _this select 4;
+
+_isOK = 	isClass(configFile >> "CfgWeapons" >> _keySelected);
+if(!_isOK) exitWith { diag_log ("HIVE: CARKEY DOES NOT EXIST: "+ str(_keySelected));  };
+
+_characterID = str(getNumber(configFile >> "CfgWeapons" >> _keySelected >> "keyid"));
+
+diag_log ("PUBLISH: Attempt " + str(_object));
+_dir = 		_worldspace select 0;
+_location = _worldspace select 1;
+
+//Generate UID test using time
+_uid = _worldspace call dayz_objectUID3;
+
+// TODO: check if uid already exists and if so increment by 1 and check again as soon as we find nothing continue.
+
+//Send request
+_key = format["CHILD:308:%1:%2:%3:%4:%5:%6:%7:%8:%9:",dayZ_instance, _class, 0 , _characterID, _worldspace, [], [], 1,_uid];
+diag_log ("HIVE: WRITE: "+ str(_key)); 
+_key call server_hiveWrite;
+
+// Switched to spawn so we can wait a bit for the ID
+[_object,_uid,_characterID,_class,_dir,_location] spawn {
+   private ["_object","_uid","_characterID","_done","_retry","_key","_result","_outcome","_oid","_class","_location","_object_para"];
+
+   _object = _this select 0;
+   _uid = _this select 1;
+   _characterID = _this select 2;
+   _class = _this select 3;
+   //_dir = _this select 4;
+   _location = _this select 5;
+
+   _done = false;
+	_retry = 0;
+	// TODO: Needs major overhaul for 1.1
+	while {_retry < 10} do {
+		
+		sleep 1;
+		// GET DB ID
+		_key = format["CHILD:388:%1:",_uid];
+		diag_log ("HIVE: WRITE: "+ str(_key));
+		_result = _key call server_hiveReadWrite;
+		_outcome = _result select 0;
+		if (_outcome == "PASS") then {
+			_oid = _result select 1;
+			//_object setVariable ["ObjectID", _oid, true];
+			diag_log("CUSTOM: Selected " + str(_oid));
+			_done = true;
+			_retry = 100;
+
+		} else {
+			diag_log("CUSTOM: trying again to get id for: " + str(_uid));
+			_done = false;
+			_retry = _retry + 1;
+		};
+	};
+
+	// Remove marker
+	deleteVehicle _object;
+
+	if(!_done) exitWith { diag_log("CUSTOM: failed to get id for : " + str(_uid)); };
+
+	if(DZE_TRADER_SPAWNMODE) then {
+		_object_para = "ParachuteMediumWest" createVehicle [0,0,0];
+		_object_para setpos [_location select 0, _location select 1,(_location select 2) + 65];
+		_object = createVehicle [_class, [0,0,0], [], 0, "CAN_COLLIDE"];
+	} else {
+		_object = createVehicle [_class, _location, [], 0, "CAN_COLLIDE"];
+	};
+
+	// Lock vehicle
+	_object setvehiclelock "locked";
+
+	clearWeaponCargoGlobal  _object;
+	clearMagazineCargoGlobal  _object;
+
+	_object allowDamage false;
+
+	_object setVariable ["ObjectID", _oid, true];
+	
+	_object setVariable ["lastUpdate",time];
+	
+	_object setVariable ["CharacterID", _characterID, true];
+
+	if(DZE_TRADER_SPAWNMODE) then {
+		_object attachTo [_object_para, [0,0,-1.6]];
+		sleep 1.0;
+		WaitUntil{(getpos _object select 2) < 0.1};
+		detach _object;
+		deleteVehicle _object_para;
+	};
+
+	dayz_serverObjectMonitor set [count dayz_serverObjectMonitor,_object];
+
+	_object call fnc_vehicleEventHandler;
+	
+	// for non JIP users this should make sure everyone has eventhandlers for vehicles.
+	dayzVehicleInit = _object;
+	publicVariable "dayzVehicleInit";
+	
+	diag_log ("PUBLISH: Created " + (_class) + " with ID " + str(_uid));
+
+	sleep 1.0;
+
+	_object allowDamage true;
+};

SQF/dayz_server/compile/server_routinePlayerCheck.sqf

@@ -0,0 +1,14 @@
+private["_unitArray","_handle"];
+_unitArray = [];
+if (isSinglePlayer) then {
+	_unitArray = [player];
+} else {
+	_unitArray = dayz_players;
+};
+{
+	if (!isNull _x) then {
+		//diag_log ("SERVER: Routine Player Check: " + str(_x));
+		_handle = _x spawn server_updatePlayer;
+		waitUntil{scriptDone _handle};
+	};
+} forEach _unitArray;

SQF/dayz_server/compile/server_spawnCrashSite.sqf

@@ -0,0 +1,124 @@
+private ["_position","_num","_config","_itemType","_weights","_index","_crashModel","_lootTable","_guaranteedLoot","_randomizedLoot","_frequency","_variance","_spawnChance","_spawnMarker","_spawnRadius","_spawnFire","_crashName","_nearby","_itemTypes","_cntWeights","_fadeFire"];
+
+//_crashModel	= _this select 0;
+//_lootTable	= _this select 1;
+_guaranteedLoot = _this select 0;
+_randomizedLoot = _this select 1;
+_frequency	= _this select 2;
+_variance	= _this select 3;
+_spawnChance	= _this select 4;
+_spawnMarker	= _this select 5;
+_spawnRadius	= _this select 6;
+_spawnFire	= _this select 7;
+_fadeFire	= _this select 8;
+
+
+diag_log("CRASHSPAWNER: Starting spawn logic for Crash Spawner");
+
+while {true} do {
+	private["_timeAdjust","_timeToSpawn","_spawnRoll","_crash","_hasAdjustment","_newHeight","_adjustedPos"];
+	// Allows the variance to act as +/- from the spawn frequency timer
+	_timeAdjust = round(random(_variance * 2) - _variance);
+	_timeToSpawn = time + _frequency + _timeAdjust;
+	
+	//Adding some Random systems
+	_crashModel = ["UH60Wreck_DZ","UH1Wreck_DZ","Mass_grave_DZ"] call BIS_fnc_selectRandom;
+	
+	
+	if(_crashModel == "Mass_grave_DZ") then {
+		_lootTable = "MassGrave";
+	} else {
+		//Crash loot just uncomment the one you wish to use by default with 50cals is enabled.
+		//Table including 50 cals
+		_lootTable = ["Military","HeliCrash","MilitarySpecial"] call BIS_fnc_selectRandom;
+		//Table without 50 cals
+		//_lootTable = ["Military","HeliCrash_No50s","MilitarySpecial"] call BIS_fnc_selectRandom;
+	};
+	
+	_crashName	= getText (configFile >> "CfgVehicles" >> _crashModel >> "displayName");
+
+	diag_log(format["CRASHSPAWNER: %1%2 chance to spawn '%3' with loot table '%4' at %5", round(_spawnChance * 100), '%', _crashName, _lootTable, _timeToSpawn]);
+
+	// Apprehensive about using one giant long sleep here given server time variances over the life of the server daemon
+	while {time < _timeToSpawn} do {
+		sleep 5;
+	};
+
+	_spawnRoll = random 1;
+
+	// Percentage roll
+	if (_spawnRoll <= _spawnChance) then {
+
+		_position = [getMarkerPos _spawnMarker,0,_spawnRadius,10,0,2000,0] call BIS_fnc_findSafePos;
+
+		diag_log(format["CRASHSPAWNER: Spawning '%1' with loot table '%2' NOW! (%3) at: %4", _crashName, _lootTable, time, str(_position)]);
+
+		_crash = createVehicle [_crashModel,_position, [], 0, "CAN_COLLIDE"];
+		// Randomize the direction the wreck is facing
+		_crash setDir round(random 360);
+
+		// Using "custom" wrecks (using the destruction model of a vehicle vs. a prepared wreck model) will result
+		// in the model spawning halfway in the ground.  To combat this, an OPTIONAL configuration can be tied to
+		// the CfgVehicles class you've created for the custom wreck to define how high above the ground it should
+		// spawn.  This is optional.
+		_config = configFile >> "CfgVehicles" >> _crashModel >> "heightAdjustment";
+		_hasAdjustment =  isNumber(_config);
+		_newHeight = 0;
+		if (_hasAdjustment) then {
+			_newHeight = getNumber(_config);
+			//diag_log(format["DIAG: ADJUSTMENT FOUND FOR %1, IT IS: %2", _crashName, _newHeight]);
+		};
+
+		// Must setPos after a setDir otherwise the wreck won't level itself with the terrain
+		_adjustedPos = [(_position select 0), (_position select 1), _newHeight];
+		//diag_log(format["DIAG: Designated Position: %1", str(_adjustedPos)]);
+		_crash setPos _adjustedPos;
+
+		// I don't think this is needed (you can't get "in" a crash), but it was in the original DayZ Crash logic
+		dayz_serverObjectMonitor set [count dayz_serverObjectMonitor,_crash];
+
+		_crash setVariable ["ObjectID","1",true];
+
+		// Disable simulation server side
+		_crash enableSimulation false;
+
+		_num = round(random _randomizedLoot) + _guaranteedLoot;
+
+		if(_crashModel == "Mass_grave_DZ") then {
+			_spawnFire = false;
+			_num = _num * 2;
+		};
+
+		if (_spawnFire) then {
+			//["dayzFire",[_crash,2,time,false,_fadeFire]] call broadcastRpcCallAll;
+			dayzFire = [_crash,2,time,false,_fadeFire];
+			publicVariable "dayzFire";
+			_crash setvariable ["fadeFire",_fadeFire,true];
+		};
+
+		
+		
+		_config = 		configFile >> "CfgBuildingLoot" >> _lootTable;
+		_itemTypes =	[] + getArray (_config >> "itemType");
+		_index =        dayz_CBLBase find toLower(_lootTable);
+		_weights =		dayz_CBLChances select _index;
+		_cntWeights = count _weights;
+
+		for "_x" from 1 to _num do {
+			//create loot
+			_index = floor(random _cntWeights);
+			_index = _weights select _index;
+			_itemType = _itemTypes select _index;
+			[_itemType select 0, _itemType select 1, _position, 5] call spawn_loot;
+
+			diag_log(format["CRASHSPAWNER: Loot spawn at '%1' with loot table '%2'", _crashName, _lootTable]); 
+
+			// ReammoBox is preferred parent class here, as WeaponHolder wouldn't match MedBox0 and other such items.
+			_nearby = _position nearObjects ["ReammoBox", sizeOf(_crashModel)];
+			{
+				_x setVariable ["permaLoot",true];
+			} forEach _nearBy;
+		};
+
+	};
+};

SQF/dayz_server/compile/server_spawnEvent.sqf

@@ -0,0 +1,53 @@
+/*
+	DayZ Epoch Event Scheduler 
+	Usage: spawn server_spawnEvents;
+	Made for DayZ Epoch please ask permission to use/edit/distrubute email vbawol@veteranbastards.com.
+*/
+
+private ["_xaction","_date","_key","_result","_outcome","_proceed","_handle"];
+
+diag_log("EPOCH EVENTS INIT");
+EventSchedulerLastTime = "";
+
+epoch_eventIsAny = {
+	private ["_boolReturn","_event","_real"];
+    _event = _this select 0;
+	_real = _this select 1;
+	_boolReturn = false;
+	if (typeName _event == "STRING") then {
+		_boolReturn = (_event == "any");
+	} else {
+		_boolReturn = (_real == _event);
+	};
+	_boolReturn
+};
+
+while {true} do {
+	// Find current time from server
+	_key = "CHILD:307:";
+	_result = _key call server_hiveReadWrite;
+	_outcome = _result select 0;
+	if(_outcome == "PASS") then {
+		_date = _result select 1; 
+		if (EventSchedulerLastTime != str(_date)) then {
+			EventSchedulerLastTime = str(_date);
+			// diag_log ("EVENTS: Local Time is: " + str(_date));
+			{
+				
+				_proceed = false;
+				for "_i" from 0 to 4 do {
+					_proceed = [(_x select _i),(date select _i)] call epoch_eventIsAny;
+				};
+				if(_proceed) then {
+					_xaction = _x select 5;
+					// EXECUTE SCRIPT
+					diag_log ("RUNNING EVENT: " + _xaction + " on " + EventSchedulerLastTime);
+					_handle = [] execVM "\z\addons\dayz_server\modules\" + _xaction + ".sqf";
+				};
+				sleep 0.03;
+
+			} forEach EpochEvents;
+		};
+	};
+	sleep 5;
+};

SQF/dayz_server/compile/server_townDeZombify.sqf

@@ -0,0 +1,24 @@
+private ["_position","_size","_loot","_zeds","_groups","_group","_type","_town"];
+_position = _this select 0;
+_size =		_this select 1;
+_type = 	_this select 2;
+_town =		nearestLocation [_position, _type];
+
+//Clean Loot
+_loot = nearestObjects [_position, ["WeaponHolder"], _size];
+{
+	deleteVehicle _x;
+} forEach _loot;
+
+//Clean Zeds
+_zeds = _position nearEntities ["zZombie_Base",_size];
+_groups = [];
+{
+	if (!(isNull _group)) then {
+		_group = group _x;
+		if (!(_group in _groups)) then {_groups set [count _groups,_group];};
+		_x setDamage 1;
+	};
+} forEach _zeds;
+diag_log "Dezombify Town";
+dayz_zombifiedTowns = dayz_zombifiedTowns - [_town];

SQF/dayz_server/compile/server_townZombify.sqf

@@ -0,0 +1,68 @@
+private ["_town","_spot","_buildings","_list","_size","_numZeds","_impt","_position","_totalBuildings","_numGroups","_building","_type","_nearMen","_i","_trigger","_code","_val"];
+//has town
+_town = _this;
+_type = type _town;
+_spot = objNull;
+_buildings = [];
+_list = [];
+_numZeds = 2;
+
+_impt = (importance _town);
+_size = 50;
+switch (_type) do {
+	default {
+		_numZeds = 3;
+		_size = 40 * _impt;
+	};
+	case "NameCity": {
+		_numZeds = 6;
+		_size = 80 * _impt;
+	};
+	case "NameCityCapital": {
+		_numZeds = 10;
+		_size = 120 * _impt;
+	};
+};
+
+_position = position _town;
+_buildings = nearestObjects [_position, ["Building"], _size];
+_totalBuildings = count _buildings;
+_numGroups = 0;
+_i = 0;	
+/*
+_markerstr = createMarker["markername_" + (text _town),_position];
+_markerstr setMarkerShape "ELLIPSE";
+_markerstr setMarkerSize [_size, _size];
+*/
+_trigger = createTrigger["EmptyDetector",_position];
+_trigger setTriggerArea[dayz_zSpawnDistance,dayz_zSpawnDistance,0,false];
+_trigger setTriggerActivation["WEST","NOT PRESENT",false];
+_code = format["_id = [%1,%2,'%3'] spawn server_townDeZombify;",_position,_size,_type];
+_trigger setTriggerStatements["this", _code, ""];
+_val = 60 * 10;
+_trigger setTriggerTimeout [_val, _val, _val, true];
+
+
+while {_numGroups < _numZeds and _i < _totalBuildings} do {
+	_building = _buildings call BIS_fnc_selectRandom;
+	if (!isNull _building) then {
+		_list = _building nearRoads 20;
+		if (count _list > 0) then {
+			_spot = _list call BIS_fnc_selectRandom;
+			_nearMen = (position _spot) nearEntities [["Man"],50];
+			if (!isNull _spot and (count _nearMen == 0)) then {
+				/*
+				_marker = createMarker [(text _town) + "Marker2" + str(_i), position _spot];
+				_marker setMarkerShape "ICON";
+				_marker setMarkerType "DOT";
+				_marker setMarkerColor "ColorBlue";
+				_marker setMarkerText str(_i);
+				*/
+				_numGroups = _numGroups + 1;
+				(position _spot) spawn dayz_spawnZombies;
+			};
+		};
+	};
+	_i = _i + 1;
+	sleep 0.1;
+};

SQF/dayz_server/compile/server_tradeObject.sqf

@@ -0,0 +1,21 @@
+private ["_character","_traderid","_buyorsell","_data","_result","_key","_outcome","_clientID"];
+
+_character =	_this select 0;
+_traderid = 	_this select 1;
+_buyorsell = 	_this select 2;
+_clientID = owner _character;
+
+diag_log format["TRADE: Trade Request by ClientID: %1 Character: %2 TraderID: %3 BuyOrSell: %4", _clientID, _character,_traderid,_buyorsell];
+
+//Send request
+_key = format["CHILD:398:%1:%2:",_traderid,_buyorsell];
+
+_data = "HiveEXT" callExtension _key;
+_result = call compile format ["%1",_data];
+// diag_log ("TRADE: RES: "+ str(_result));
+_outcome = _result select 0;
+
+dayzTradeResult = _outcome;
+if(!isNull _character) then {
+	_clientID publicVariableClient "dayzTradeResult";
+};

SQF/dayz_server/compile/server_traders.sqf

@@ -0,0 +1,41 @@
+private ["_clientID","_character","_traderid","_retrader","_data","_result","_status","_val","_key"];
+//[dayz_characterID,_tent,[_dir,_location],"TentStorage"]
+_character = _this select 0;
+_traderid = _this select 1;
+
+_retrader = [];
+
+_clientID = owner _character;
+diag_log ("HIVE: Menu Request by ClientID: "+ str(_clientID));
+
+_key = format["CHILD:399:%1:",_traderid];
+_data = "HiveEXT" callExtension _key;
+
+diag_log "HIVE: Request sent";
+		
+//Process result
+_result = call compile format ["%1",_data];
+_status = _result select 0;
+		
+if (_status == "ObjectStreamStart") then {
+	_val = _result select 1;
+	//Stream Objects
+	diag_log ("HIVE: Commence Menu Streaming...");
+	for "_i" from 1 to _val do {
+		_data = "HiveEXT" callExtension _key;
+		_result = call compile format ["%1",_data];
+		_status = _result select 0;
+		_retrader set [count _retrader,_result];
+				
+		//diag_log ("HIVE: Loop ");
+	};
+	//diag_log ("HIVE: Streamed " + str(_val) + " objects");
+};
+
+
+diag_log(_retrader);
+dayzTraderMenuResult = _retrader;
+if(!isNull _character) then {
+	_clientID publicVariableClient "dayzTraderMenuResult";
+};
+_retrader;

SQF/dayz_server/compile/server_updateNearbyObjects.sqf

@@ -0,0 +1,6 @@
+private["_pos"];
+_pos = _this select 0;
+
+{
+	[_x, "gear"] call server_updateObject;
+} forEach nearestObjects [_pos, dayz_updateObjects, 10];

SQF/dayz_server/compile/server_updateObject.sqf

@@ -0,0 +1,171 @@
+/*
+[_object,_type] spawn server_updateObject;
+*/
+private ["_object","_type","_objectID","_uid","_lastUpdate","_needUpdate","_object_position","_object_inventory","_object_damage","_isNotOk","_parachuteWest","_firstTime","_object_killed","_object_repair","_isbuildable"];
+
+_object = 	_this select 0;
+_type = 	_this select 1;
+_parachuteWest = typeOf _object == "ParachuteWest";
+_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";
+};
+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"];
+		_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];
+		diag_log ("HIVE: WRITE: "+ str(_key));
+		_key call server_hiveWrite;
+};
+
+_object_inventory = {
+	private["_inventory","_previous","_key"];
+		_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;
+		};
+};
+
+_object_damage = {
+	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]]};
+			_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"];
+	_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]]};
+		_hit = 1;
+		_object setHit ["_selection", _hit]
+	} forEach _hitpoints;
+	_damage = 1;
+	
+	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"];
+	_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];
+};
+// 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;
+	};
+};

SQF/dayz_server/compile/zombie_findOwner.sqf

@@ -0,0 +1,5 @@
+private["_unit"];
+_unit = _this select 0;
+
+diag_log ("CLEANUP: DELETE UNCONTROLLED ZOMBIE: " + (typeOf _unit) + " OF: " + str(_unit) );
+deleteVehicle _unit;