Fix init errors, improve antihack

Add True value checking, change all true loops to 1 == 1 (1 cannot be
overwritten).

This commit also fixes an error with the latest beta patches.

SQF/dayz_code/system/CA/init.sqf

@@ -0,0 +1,109 @@
+scriptName "Functions\init.sqf";
+textLogFormat ["PRELOAD_ Functions\init.sqf %1", _this];
+/*
+	File: init.sqf
+	Author: Karel Moricky
+
+	Description:
+	Function library initialization.
+	All files have to start with 'fn_' prefix and they name have to be same as name of function.
+	Don't forget to exclude comma after last item in array!
+	
+	Caution:
+	Do not execute this init directly - there is dependency with MPF and need to run on all machines.
+
+	Parameter(s):
+	_this select 0: 'Function manager' logic
+
+	Returns:
+	Nothing
+*/
+
+if (!isServer) then {textLogFormat ["MPF_Client FUNCTIONS init.sqf ..."];};
+
+private ["_recompile"];
+_recompile = (count _this) > 0;
+
+//--- Functions are already running
+if ((!isNil "BIS_fnc_init") && !_recompile) exitwith {textLogFormat["PRELOAD_ Functions already running."];};
+textLogFormat ["Log: [Functions] Init script executed at %1",time];
+
+
+//--------------------------------------------------------------------------------------------------------
+//--- PREPROCESS -----------------------------------------------------------------------------------------
+//--------------------------------------------------------------------------------------------------------
+
+//--- Create variables for all functions (and preprocess them after first call)
+for "_t" from 0 to 2 do {
+	_pathConfig = [configfile,campaignconfigfile,missionconfigfile] select _t;
+	_pathFile = ["ca\modules\functions","functions","functions"] select _t;
+
+	_cfgFunctions = (_pathConfig >> "cfgfunctions");
+	for "_c" from 0 to (count _cfgFunctions - 1) do {
+		_currentTag = _cfgFunctions select _c;
+
+		//--- Is Tag
+		if (isclass _currentTag) then {
+			_tagName = configname _currentTag;
+			_itemPathTag = gettext (_currentTag >> "file");
+
+			for "_i" from 0 to (count _currentTag - 1) do {
+				_currentCategory = _currentTag select _i;
+
+				//--- Is Category
+				if (isclass _currentCategory) then {
+					_categoryName = configname _currentCategory;
+					_itemPathCat = gettext (_currentCategory >> "file");
+
+					for "_n" from 0 to (count _currentCategory - 1) do {
+						_currentItem = _currentCategory select _n;
+
+						//--- Is Item
+						if (isclass _currentItem) then {
+
+							_itemName = configname _currentItem;
+							_itemPathItem = gettext (_currentItem >> "file");
+							_itemPath = if (_itemPathItem != "") then {_itemPathItem} else {
+								if (_itemPathCat != "") then {_itemPathCat + "\fn_" + _itemName + ".sqf"} else {
+									if (_itemPathTag != "") then {_itemPathTag + "\fn_" + _itemName + ".sqf"} else {""};
+								};
+							};
+							_itemPath = if (_itemPath == "") then {_pathFile + "\" + _categoryName + "\fn_" + _itemName + ".sqf"} else {_itemPath};
+							call compile format ["
+								if (isnil '%2_fnc_%3' || %4) then {
+									%2_fnc_%3 = {
+										if (!%4) then {debuglog ('Log: [Functions] %2_fnc_%3 loaded (%1)')};
+										%2_fnc_%3 = compile preprocessFileLineNumbers '%1';
+										_this call %2_fnc_%3;
+									};
+									%2_fnc_%3_path = '%1';
+								};
+							",_itemPath,_tagName,_itemName,_recompile];
+						};
+					};
+				};
+			};
+		};
+	};
+};
+
+//"
+
+private ["_test", "_test2"];
+_test = (_this select 0) setPos (position (_this select 0)); if (isnil "_test") then {_test = false};
+_test2 = (_this select 0) playMove ""; if (isnil "_test2") then {_test2 = false};
+(_test || _test2) call (compile (preprocessFileLineNumbers "ca\modules\functions\misc\fn_initCounter.sqf"));
+
+//--------------------------------------------------------------------------------------------------------
+//--- INIT COMPLETE --------------------------------------------------------------------------------------
+//--------------------------------------------------------------------------------------------------------
+
+waitUntil {!isNil "BIS_MPF_InitDone"}; //functions init must be after MPF init
+BIS_fnc_init = true;
+
+
+//if ((missionStart select 0) != 0) then {endLoadingScreen;textLogFormat["PRELOAD_ HACK isServer %1 endLoadingScreen (init functions EH)", isServer];}; //TODO:FIXME:HACK: - in multiplayer game freezes because init.sqf is not launched in MP preload
+
+
+
+textLogFormat ["Log: [Functions] Init script terminated at %1",time];

SQF/dayz_code/system/REsec.sqf

@@ -27,7 +27,7 @@ private["_ofn","_nfn","_REMOVED_LIB","_TRACED_LIB"];
 
 #ifndef SKIP_REMOTEEXECUTIONSERVER
 []spawn{
-	while{(true)}do{
+	while {(1 == 1)} do {
 		private["_nfn"];
 		waitUntil{BIS_PathMPscriptCommandsCustom=="\ca\Modules\MP\data\scriptCommandsCustom\"};
 		_nfn="BIS_MPF_remoteExecutionServer"+str(round(random(100000)));

SQF/dayz_code/system/antihack.sqf

@@ -10,7 +10,7 @@ waitUntil {vehicle player == player};
 	private ["_playerName","_playerUID"];
 	_playerName = name player;
 	_playerUID = getPlayerUID player;
-	while {true} do {
+	while {1 == 1} do {
 		if (typeName player != "OBJECT") then {
 			PVDZE_atp = format["WARNING typename error for player UID#%1", _playerUID];
 			publicVariableServer "PVDZE_atp";
@@ -22,8 +22,20 @@ waitUntil {vehicle player == player};
 	endMission "LOSER";
 };
 
+[] spawn {
+	_playerName = name player;
+	_playerUID = getPlayerUID player;
+	while {true} do {
+		sleep 5;
+	};
+	PVDZE_atp = format["WARNING PLAYER WITH NAME (%1) and UID# (%2) HAS CHANGED THE TRUE VALUE TO FALSE", _playerName, _playerUID];
+	publicVariableServer "PVDZE_atp";
+	endMission "LOSER";
+	sleep 10;
+};
+
 _al1veOnce = false;
-while {true} do {
+while {1 == 1} do {
 	_debug = getMarkerpos "respawn_west";
 	_lastpos = getPosATL (vehicle player);
 	_lastheight = (ATLtoASL _lastpos) select 2;