////////////////////////////// // Dynamic-AI-Creator // // Version 3.1b - 2014 // //--------------------------// // DAC_Move_to_WP // //--------------------------// // Script by Silola // // silola@freenet.de // ////////////////////////////// private [ "_garray","_group","_wparray","_groupid","_maxrad","_zskill","_leader","_target","_ra","_rd","_proGun","_EventDetect","_cw", "_timestep","_nextwp","_bgs","_firstwait","_newveh","_checktime","_call","_startid","_emptyGun","_eventid","_allZones","_split", "_checkpos","_wait","_jArray","_rndnr","_wpstart2","_nextpos","_checkpos1","_checkpos2","_bgs","_waittime","_wpCheck","_wparray", "_emptyVeh","_rndbg","_builg","_nextbg","_maxpos","_maxtime","_postyp","_veh","_queryA","_queryB","_groupveh","_posarray","_numarray", "_knowsabout","_speedselect","_combatselect","_behavselect","_formselect","_unitcombat","_unitbehav","_curV","_curG","_oldskill","_na", "_unitspeed","_unitform","_bldgbehav","_joinbehav","_unitwait","_lastwp","_nextmp","_grouponfire","_proVeh","_EventList","_gunA","_ic", "_marker","_DAC_Arrays","_callg","_callE","_ce","_kw","_ct","_run","_go","_val","_newtarget","_sum","_id","_looktime","_coverval","_gunU","_mz" ]; _garray = _this select 0;_group = _garray select 0;_posarray = _this select 1;_wparray = (_posarray select 0);_numarray = (_posarray select 1);_marker = _garray select 1;_val = 0;_nextmp = [0,0]; _groupid = _this select 2;_maxrad = _this select 3;_leader = leader _group;_target = objNull;_ra = _maxrad / 2;_knowsabout = 0;_rd = 0;_groupveh = [];_ic = 0;_na = ""; _timestep = time + 60;_nextwp = [(position _leader select 0),(position _leader select 1)];_bgs = [];_lastwp = _nextwp;_wpstart2 = [0,0];_gunA = [];_allZones = (_posarray select 2); _firstwait = 0;_newveh = objNull;_newtarget = objNull;_call = [];_id = 0;_startid = _this select 4;_callg = [];_waittime = 0;_EventList = [];_EventDetect = [];_gunU = objNull;_jArray = []; _run = 1;_go = 0;_DAC_Arrays = ["DAC_Help_Groups","DAC_Hit_Groups","DAC_Fire_Groups","DAC_Radio_Groups","DAC_Cover_Groups","DAC_Call_Groups"];_sum = 0;_kw = 0;_split = [];_mz = (_posarray select 3); _curV = objNull;_curG = objNull;_emptyVeh = 0;_emptyGun = 0;_proVeh = 0;_proGun = 0;_looktime = 0;_eventid = _garray select 2;_coverval = 0;_wpCheck = [];_cw = 0; _group setVariable ["dacData",[0,(position _leader)],false]; if(format["%1",driver vehicle _leader] == "<NULL-object>") then { [_garray,_posarray,_groupid,_maxrad,_startid] spawn DAC_fMoveNot;;_run = 0; } else { if(count _wparray == 1) then { [_garray,_posarray,_groupid,_maxrad,_startid] spawn DAC_fMoveNear;_run = 0; }; }; _zskill = [((getMarkerPos (_marker select 2)) select 1)] call DAC_fConfigBehav;_oldskill = ((getMarkerPos (_marker select 2)) select 1); {if((!(vehicle _x == _x)) && (!(vehicle _x in _groupveh))) then {_groupveh = _groupveh + [vehicle _x]}}foreach units _group; while {_run > 0} do { switch (_run) do { case 1: { //----------------------------- //#waitforstart //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case1",time]}; waituntil {(getdir DAC_StartDummy) > 170}; sleep (random 2); if(((getMarkerSize (_marker select 0)) select 0) <= 4) then { _run = 0; } else { if(_eventid > 0) then { _EventList = ((([_eventid] call DAC_fConfigEvents) select 2) select 1); _EventDetect = ((([_eventid] call DAC_fConfigEvents) select 0) select 6); }; if(count _wparray == 0) then { _run = 21; } else { {call compile format["if(_group in %1) then {%1 = %1 - [_group]}",_x]}foreach _DAC_Arrays; waituntil{DAC_NewZone == 0}; sleep (random 1); _wpCheck = [[_wparray,_numarray,_allZones,_mz],_groupid] call DAC_fSumWaypoints; _sum = (_wpCheck select 1);_posarray = (_wpCheck select 0);_allZones = ((_wpCheck select 0) select 2); _wparray = ((_wpCheck select 0) select 0); if(((((_zskill select 7) select 5) select 0) + (((_zskill select 7) select 5) select 1)) == 0) then { _firstwait = 1; } else { _firstwait = ((((_zskill select 7) select 5) select 0) + random (((_zskill select 7) select 5) select 1)); }; sleep _firstwait; if(((getMarkerSize (_marker select 0)) select 0) <= 4) then { _run = 0; } else { if(((_zskill select 11) select 0) == 0) then {if(!(_group in DAC_No_Support)) then {DAC_No_Support set [count DAC_No_Support,_group]}}; _unitcombat = _zskill select 1;_unitbehav = _zskill select 2;_unitspeed = _zskill select 3; _unitform = _zskill select 4;_bldgbehav = _zskill select 8;_joinbehav = _zskill select 12; _emptyVeh = (((_zskill select 13) select 0) select 0);_proVeh = (((_zskill select 13) select 0) select 1); _emptyGun = (((_zskill select 13) select 1) select 0);_proGun = (((_zskill select 13) select 1) select 1);_coverval = ((_zskill select 5) select 1); _unitwait = "((((_zskill select 7) select (_groupid - 1)) select 0) + (random (((_zskill select 7) select (_groupid - 1)) select 1)))"; _run = 2; }; }; }; }; case 2: { //----------------------------- //#RandomStartPos //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case2",time]}; if(_kw == 0) then {_go = 1} else {_run = 3;_go = 0;_kw = 0}; while {_go > 0} do { if(((getMarkerSize (_marker select 0)) select 0) <= 4) then { _run = 0;_go = 0; } else { if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - RandomStartPos",time]}; waituntil{DAC_NewZone == 0}; _wpCheck = [[_wparray,_numarray,_allZones,_mz],_groupid] call DAC_fSumWaypoints; _posarray = (_wpCheck select 0);_allZones = ((_wpCheck select 0) select 2); _wparray = ((_wpCheck select 0) select 0); if(_sum != (_wpCheck select 1)) then { _sum = (_wpCheck select 1);_numarray = _wparray call DAC_fWritePosition; [37,_groupid,_group,"P",player distance _leader] spawn DAC_fShowRadio; }; _lastwp = _nextwp;_nextmp = call compile (_wparray select (random ((count _wparray) - (1 + _mz)))); if(((_lastwp select 0) + (_lastwp select 1)) != ((_nextmp select 0) + (_nextmp select 1))) then { _split = [(position _leader),_nextmp,_leader] call DAC_fSplitWPWay; if(count _split > 0) then { _nextwp = _nextmp;_nextpos = _nextwp;_go = 0;_run = 3;_cw = 0; }; }; sleep 0.01; }; }; }; case 3: { //----------------------------- //#setbehaviour //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case3",time]}; waituntil {(({vehicle _x in DAC_Arti_Veh} count units _group) == 0)}; {_x setunitpos "auto"}foreach units _group; _knowsabout = ((DAC_KnowsAbout + 2) - ((skill _leader * 2) + 0.01)); _speedselect = (random ((count _unitspeed) - 1));_combatselect = (random ((count _unitcombat) - 1)); _behavselect = (random ((count _unitbehav) - 1));_formselect = (random ((count _unitform) - 1)); _group setcombatmode (_unitcombat select _combatselect);_group setbehaviour (_unitbehav select _behavselect); _group setformation (_unitform select _formselect); _group setformdir (random 360);_run = 4;_go = 1; _group setspeedmode (_unitspeed select _speedselect); }; case 4: { //----------------------------- //#move //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case4",time]}; _nextpos = (_split select _cw); _group setVariable ["dacData",[0,_nextpos],false]; if(_go == 1) then {_group move _nextpos}; _checktime = time + (20 + random 20);_checkpos = position (vehicle _leader); [_group] spawn DAC_fForceSpeed;_go = 1; while {_go > 0} do { if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - Move",time]}; sleep (1 + (random 1)); _call = [_group,_leader,_marker,_timestep,_groupid] call DAC_fSomeConditions; if((count _call) > 0) then { _run = (_call select 0);_target = (_call select 1); _go = 0; } else { if((_group in DAC_Cover_Groups) && (_go == 1)) then {_go = 0;_run = 18}; if((({(vehicle _x) == _x} count (units _group)) == count (units _group)) && (_go == 1)) then {_go = 0;_run = 7}; if((time > _checktime) && (_go == 1)) then {_go = 0;_run = 6}; if((unitready (vehicle _leader)) && (_go == 1)) then { if(_cw == ((count _split) - 1)) then { _go = 0;_run = 5; } else { _cw = _cw + 1; _nextpos = (_split select _cw); _group setVariable ["dacData",[0,_nextpos],false]; _group move _nextpos; }; }; }; }; }; case 5: { //----------------------------- //#waiting //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case5",time]}; if((count _EventList) > 0) then {call compile (_EventList select 0)}; waituntil {(({vehicle _x in DAC_Arti_Veh} count units _group) == 0)}; if(({(vehicle _x) == _x} count (units _group)) > 0) then { if(format["%1",(behaviour _leader)] != "CARELESS") then {{_x setunitpos "auto"} foreach units _group}; }; _wait = time + (call compile _unitwait); _go = 1; while {_go > 0} do { if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - waiting",time]}; sleep (1 + (random 1)); waituntil {(({vehicle _x in DAC_Arti_Veh} count units _group) == 0)}; {_rd = random 360;if((_x == (gunner (vehicle _x))) && ((count crew (vehicle _x)) > 1)) then {if(!((vehicle _x) in DAC_Arti_Veh)) then {_x lookat [(position _x Select 0) + (Sin (_rd) * 500),(position _x Select 1) + (Cos (_rd) * 500),50]}}} foreach units _group; _call = [_group,_leader,_marker,_timestep,_groupid] call DAC_fSomeConditions; if((count _call) > 0) then { _run = (_call select 0);_target = (_call select 1); _go = 0; } else { if((_group in DAC_Cover_Groups) && (_go == 1)) then {_go = 0;_run = 18}; if(time > _wait) then { _zskill = [((getMarkerPos (_marker select 2)) select 1)] call DAC_fConfigBehav; _go = 0;_run = 2; }; }; }; }; case 6: { //----------------------------- //#checkwp //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case6",time]}; if(_oldskill != ((getMarkerPos (_marker select 2)) select 1)) then { _zskill = [((getMarkerPos (_marker select 2)) select 1)] call DAC_fConfigBehav;_oldskill = ((getMarkerPos (_marker select 2)) select 1); if(((_zskill select 11) select 0) == 0) then {if(!(_group in DAC_No_Support)) then {DAC_No_Support set [count DAC_No_Support,_group]}}; _unitcombat = _zskill select 1;_unitbehav = _zskill select 2;_unitspeed = _zskill select 3; _unitform = _zskill select 4;_bldgbehav = _zskill select 8;_joinbehav = _zskill select 12; _emptyVeh = (((_zskill select 13) select 0) select 0);_proVeh = (((_zskill select 13) select 0) select 1); _emptyGun = (((_zskill select 13) select 1) select 0);_proGun = (((_zskill select 13) select 1) select 1); _unitwait = "((((_zskill select 7) select (_groupid - 1)) select 0) + (random (((_zskill select 7) select (_groupid - 1)) select 1)))"; _speedselect = (random ((count _unitspeed) - 1));_combatselect = (random ((count _unitcombat) - 1)); _behavselect = (random ((count _unitbehav) - 1));_formselect = (random ((count _unitform) - 1)); _group setcombatmode (_unitcombat select _combatselect);_group setbehaviour (_unitbehav select _behavselect); _group setformation (_unitform select _formselect); [_group] spawn DAC_fForceSpeed; }; waituntil{DAC_NewZone == 0}; _wpCheck = [[_wparray,_numarray,_allZones,_mz],_groupid] call DAC_fSumWaypoints; _posarray = (_wpCheck select 0);_allZones = ((_wpCheck select 0) select 2); _wparray = ((_wpCheck select 0) select 0); if(_sum != (_wpCheck select 1)) then { _sum = (_wpCheck select 1);_numarray = _wparray call DAC_fWritePosition; [37,_groupid,_group,"P",player distance _leader] spawn DAC_fShowRadio; _checkpos = getpos (vehicle _leader);_run = 2; } else { waituntil {(({vehicle _x in DAC_Arti_Veh} count units _group) == 0)}; { if((_x != (vehicle _x)) && (_x == (gunner (vehicle _x)))) then { if(!((vehicle _x) in DAC_Arti_Veh)) then {_rd = random 360;_x lookat [(position _x Select 0) + (Sin (_rd) * 500),(position _x Select 1) + (Cos (_rd) * 500),50]}; }; } foreach units _group; _checkpos1 = (position vehicle _leader select 0) + (position vehicle _leader select 1); _checkpos2 = (_checkpos select 0) + (_checkpos select 1); if(((getMarkerSize (_marker select 0)) select 0) <= 4) then { _run = 0; } else { if((((_checkpos2 - _checkpos1) < 2) && ((_checkpos2 - _checkpos1) > -2)) && ((speed vehicle _leader) < 3)) then { _run = 2; } else { _checktime = time + (20 + random 20);_checkpos = getPosATL (vehicle _leader); if(_run == 6) then {_run = 4;_go = 0}; }; }; }; if(count _wparray == 0) then {player sidechat format["%1 has no waypoints.",_group]}; }; case 7: { //----------------------------- //#joinGroup //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case7",time]}; _jArray = [_group] call DAC_fFindGroup; if(count _jArray > 0) then { [_group,(_jArray select 0),1] spawn DAC_fRemoveGroup; _run = 21; } else { _run = 4;_go = 1; }; }; case 13:{ //----------------------------- //#selectbehaviour //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case13",time]}; if((vehicle _target) iskindof "Man") then {[3,(leader _group)] spawn DAC_fAIRadio} else {if(((vehicle _target) iskindof "Tank") || ((vehicle _target) iskindof "Car"))then {[4,(leader _group)] spawn DAC_fAIRadio}}; [_group,_target] spawn DAC_fSetBehaviour; if(!(_group in DAC_Radio_Groups)) then {[17,_groupid,_group,"T",_target distance _leader] spawn DAC_fShowRadio}; _waittime = time + call compile ((_zskill select 15) select 0); if(({(vehicle _x) == _x} count (units _group)) > 0) then { if((_target distance _leader) < ((call compile DAC_Alert_Dist) / 2)) then { {if((vehicle _x) == _x) then {_x setunitpos "down"}} foreach units _group; } else { if(format["%1",gunner _target] != "<NULL-object>") then { {if((vehicle _x) == _x) then {_x setunitpos "down"}} foreach units _group; } else { {if((vehicle _x) == _x) then {_x setunitpos "auto"}} foreach units _group; }; }; }; }; case 14:{ //----------------------------- //#groupwaitfortarget //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case14",time]}; _go = 1;_id = 1; while {_go > 0} do { if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - GroupWaitingForTarget",time]}; sleep (1 + (random 1)); if(((getMarkerSize (_marker select 0)) select 0) <= 4) then {_go = 0;_run = 0}; if((({alive _x} count units _group) == 0) && (_go == 1)) then {_go = 0;_run = 21}; if((_group in DAC_Hit_Groups) && (_go == 1)) then {_go = 0;_run = 17}; if(_go == 1) then { _newtarget = [_group,_target] call DAC_fCheckNewTarget; if((isNull _newtarget) || (format["%1",typeof _newtarget] == "")) then { _id = 0; } else { if(_newtarget != _target) then {_target = _newtarget}; if(alive _target) then {_id = 1} else {_id = 0}; }; }; if((time > _waittime) || (_id == 0)) then { {_x setunitpos "auto"} foreach units _group; _go = 0;_run = 16; }; }; }; case 16:{ //----------------------------- //#querytarget //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case16",time]}; if(_id > 0) then { if(!([_group,_target] call DAC_fCheckTarget)) then { _run = 17; }; }; if(_run == 16) then { if(_group in DAC_Hit_Groups) then {DAC_Hit_Groups = DAC_Hit_Groups - [_group]}; if(_group in DAC_Call_Groups) then {DAC_Call_Groups = DAC_Call_Groups - [_group]}; {_x setunitpos "auto"} foreach units _group; if(({alive _x} count units (group _target)) == 0) then {[18,_groupid,_group,"P",player distance _leader] spawn DAC_fShowRadio}; _run = 2; }; }; case 17:{ //----------------------------- //#groupmovetoenemy //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case17",time]}; sleep 0.1; if(((getMarkerSize (_marker select 0)) select 0) <= 4) then { _run = 0; } else { if(({alive _x} count units _group) == 0) then { _run = 21; } else { if(_group in DAC_Hit_Groups) then { _group setbehaviour "combat";_callg = []; {if((!(side _x == side leader _group)) && (((leader _group) knowsabout _x) > 0) && (alive _x)) then {_callg set [count _callg,_x]}} foreach DAC_Fire_Pos; if((count _callg) > 0) then { if((count _callg) > 1) then { _target = _callg select (random ((count _callg) - 1)); } else { _target = _callg select 0; }; }; }; _go = 1;_id = 1;_waittime = (time + (60 * (skill (leader _group)))); while {_go > 0} do { if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - GroupWaitingForTarget",time]}; sleep (1 + (random 1)); if(((getMarkerSize (_marker select 0)) select 0) <= 4) then {_go = 0;_run = 0}; if((({alive _x} count units _group) == 0) && (_go == 1)) then {_go = 0;_run = 21}; if(_go == 1) then { _newtarget = [_group,_target] call DAC_fCheckNewTarget; if((isNull _newtarget) || (format["%1",typeof _newtarget] == "")) then { _id = 0; } else { if(_newtarget != _target) then {_target = _newtarget}; if(alive _target) then {_id = 1} else {_id = 0}; }; }; if(time > _waittime) then { if(_id == 1) then { {_x dowatch _target} foreach units _group; if(!(_group in DAC_Help_Groups)) then {DAC_Help_Groups set [count DAC_Help_Groups,_group]}; if(_group in DAC_Hit_Groups) then {[20,_groupid,_group,"T",_target distance (leader _group)] spawn DAC_fShowRadio} else {[15,_groupid,_group,"T",_target distance _leader] spawn DAC_fShowRadio}; [_garray,_target,_posarray,_groupid,_maxrad,_zskill] spawn DAC_fMovetoEnemy; _run = 21;_go = 0; } else { {_x setunitpos "auto"} foreach units _group; if(_group in DAC_Hit_Groups) then {DAC_Hit_Groups = DAC_Hit_Groups - [_group]}; if(_group in DAC_Call_Groups) then {DAC_Call_Groups = DAC_Call_Groups - [_group]}; [18,_groupid,_group,"P",player distance _leader] spawn DAC_fShowRadio;_run = 2;_go = 0; }; }; }; }; }; }; case 18:{ //----------------------------- //#directmove //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case18",time]}; _callg = [];_grouponfire = _group; {if(side (leader _x ) == side leader _group) then {_callg set [count _callg,_x]}} foreach DAC_Call_Groups; if((count _callg) == 0) then { DAC_Cover_Groups = DAC_Cover_Groups - [_group]; {_x setunitpos "auto"} foreach units _group; if(!(isNil "DAC_Support_Logic")) then { _callg = (DAC_Support_Logic getVariable "support_groups"); if(_group in _callg) then { _callg = _callg - [_group]; DAC_Support_Logic setVariable ["support_groups", _callg, true]; }; }; _run = 1; } else { _grouponfire = _callg select (random ((count _callg) - 1)); {_x setunitpos "auto"} foreach units _group; [_garray,_grouponfire,_posarray,_groupid,_maxrad,_zskill] spawn DAC_fMoveToFriendly; _run = 0; }; }; case 20:{ //----------------------------- //#Break //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case20",time]}; _go = 1;_id = 1; while {_go > 0} do { if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - Break",time]}; sleep (0.1 + (random 0.2)); if(((getMarkerSize (_marker select 0)) select 0) <= 4) then { _go = 0;_run = 0; } else { if((({alive _x} count units _group) == 0) && (_go == 1)) then { _go = 0;_run = 21; } else { if(!(leader _group == _leader)) then { _leader = leader _group; if(count _groupveh > 0) then {_groupveh = [_groupveh] call DAC_fCheckCrew}; {_x commandmove (position _leader)}foreach (units _group); if((_group in DAC_Hit_Groups) && (_go == 1)) then {_go = 0;_run = 17}; if(_go == 1) then { if([_group,_target] call DAC_fCheckTarget) then { _newtarget = [(leader _group),_group,_target] call DAC_fEnemyCond; if((_newtarget == _target) || (isNull _newtarget)) then { _id = 0; } else { _target = _newtarget; }; } else { _newtarget = [(leader _group),_group,_target,0] call DAC_fEnemyCond; if((_newtarget != _target) && (!(isNull _newtarget))) then { _target = _newtarget; }; }; if(_id == 0) then { if(_group in DAC_Cover_Groups) then { _run = 18;_go = 0;_id = 0; } else { _run = 2;_go = 0; }; } else { _go = 0;_run = 13; }; }; }; }; }; }; }; case 21:{ //----------------------------- //#groupdown //----------------------------- if(_group in xCam_Debug_Group) then {xCam_Debug_String = format["%1 - Move_to_WP - case21",time]}; sleep 1; if((count _groupveh > 0) && (({alive _x} count units _group) == 0)) then {{DAC_VehicleInUse = DAC_VehicleInUse - [_x]} foreach _groupveh}; if(count _jArray > 0) then {[35,_groupid,_group,"P",(leader (_jArray select 0)) distance player] spawn DAC_fShowRadio}; _run = 0; }; Default{}; }; };