Files
DayZ-Epoch/SQF/dayz_code/system/CA/init.sqf
icomrade 38cfc7a715 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.
2014-02-06 14:42:40 -05:00

109 lines
4.1 KiB
Plaintext

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];