mirror of
https://github.com/Teh-Dango/Sarge-AI.git
synced 2024-08-30 16:32:11 +00:00
517 lines
14 KiB
Plaintext
517 lines
14 KiB
Plaintext
/*
|
|
# Original #
|
|
Sarge AI System 1.5
|
|
Created for Arma 2: DayZ Mod
|
|
Author: Sarge
|
|
https://github.com/Swiss-Sarge
|
|
|
|
# Fork #
|
|
Sarge AI System 2.0pushBack
|
|
Modded for Arma 3: Exile Mod
|
|
Changes: Dango
|
|
http://www.hod-servers.com
|
|
|
|
*/
|
|
SAR_get_road_pos = {
|
|
/*
|
|
Parameters:
|
|
_areaname = the markername where the position should be choosen
|
|
*/
|
|
private ["_targetPosTemp","_newpos","_loop2","_tries2","_roads","_area_name","_centerpos","_centerX","_centerY","_areasize","_rangeX","_rangeY","_areadir","_cosdir","_sindir"];
|
|
|
|
_area_name = _this select 0;
|
|
|
|
// remember center position of area marker
|
|
_centerpos = getMarkerPos _area_name;
|
|
_centerX = abs(_centerpos select 0);
|
|
_centerY = abs(_centerpos select 1);
|
|
|
|
// X/Y range of target area
|
|
_areasize = getMarkerSize _area_name;
|
|
_rangeX = _areasize select 0;
|
|
_rangeY = _areasize select 1;
|
|
|
|
// marker orientation (needed as negative value!)
|
|
_areadir = (markerDir _area_name) * -1;
|
|
|
|
// store some trig calculations
|
|
_cosdir=cos(_areadir);
|
|
_sindir=sin(_areadir);
|
|
|
|
_tries2=0;
|
|
_loop2 = false;
|
|
|
|
while {(!_loop2) && (_tries2 <100)} do {
|
|
_tries2=_tries2pushBack1;
|
|
_targetPosTemp = [_centerX,_centerY,_rangeX,_rangeY,_cosdir,_sindir,_areadir] call KRON_randomPos;
|
|
_roads = (_targetPosTemp nearRoads 50);
|
|
if ((count _roads) > 0) then {
|
|
_targetPosTemp = getpos (_roads select 0);
|
|
_newpos = _targetPosTemp;
|
|
_loop2 = TRUE;
|
|
};
|
|
sleep 0.05;
|
|
};
|
|
_newpos;
|
|
};
|
|
|
|
SAR_break_circle = {
|
|
/*
|
|
Parameters:
|
|
_group = the group
|
|
*/
|
|
private ["_group"];
|
|
|
|
_group = _this select 0;
|
|
_group setBehaviour "AWARE";
|
|
{
|
|
_x enableAI "TARGET";
|
|
_x forceSpeed 1;
|
|
} foreach units _group;
|
|
};
|
|
|
|
SAR_move_to_circle_pos = {
|
|
//Parameters:
|
|
//_unit = the unit to move
|
|
//_newpos = the position the unit should move to
|
|
private ["_unit","_centerpos","_newpos","_viewangle","_defend"];
|
|
|
|
_unit = _this select 0;
|
|
_centerpos = _this select 1;
|
|
_newpos = _this select 2;
|
|
_viewangle = _this select 3;
|
|
_defend = _this select 4;
|
|
|
|
_unit forceSpeed 1;
|
|
|
|
_unit moveTo _newpos;
|
|
_unit doMove _newpos;
|
|
|
|
waituntil {moveToCompleted _unit};
|
|
_unit forceSpeed 0;
|
|
|
|
//_unit doWatch (_veh modelToWorld [(sin (_foreachindex * _angle))*SAR_sit_radius, (cos (_foreachindex * _angle))*SAR_sit_radius, 0]);
|
|
//_unit doWatch _veh;
|
|
|
|
//diag_log format["Unit: %1 Angle to look at: %2",_unit,_viewangle];
|
|
|
|
_unit setDir _viewangle;
|
|
_unit setpos getPos _unit;
|
|
|
|
if(!_defend) then {
|
|
_unit playActionNow "SitDown";
|
|
sleep 1;
|
|
} else{
|
|
_unit setUnitPos "Middle";
|
|
sleep 1;
|
|
};
|
|
|
|
_unit disableAI "TARGET";
|
|
//_unit disableAI "FSM";
|
|
};
|
|
|
|
SAR_circle_static = {
|
|
//Parameters:
|
|
//_leader = the leader of the group
|
|
//_action = the action to execute while forming a circle
|
|
//_radius = the radius of the circle
|
|
private ["_center","_defend","_veh","_angle","_dir","_newpos","_forEachIndex","_leader","_action","_grp","_pos","_units","_count","_viewangle","_radius"];
|
|
|
|
_count = 0;
|
|
|
|
//diag_log "SAR_AI: Group should form a circle";
|
|
|
|
_leader = _this select 0;
|
|
_action = _this select 1;
|
|
_radius = _this select 2;
|
|
|
|
_grp = group _leader;
|
|
_defend = false;
|
|
_units = units _grp;
|
|
_count = count _units;
|
|
|
|
if(_count > 1) then { // only do this for groups > 1 unit
|
|
|
|
_pos = getposASL _leader;
|
|
_pos = (_leader) modelToWorld[0,0,0];
|
|
|
|
doStop _leader;
|
|
sleep .5;
|
|
|
|
//play leader stop animation
|
|
_leader playAction "gestureFreeze";
|
|
sleep 2;
|
|
|
|
if(_action == "defend") then {
|
|
_center = _leader;
|
|
_leader forceSpeed 0;
|
|
_defend = true;
|
|
};
|
|
|
|
if(_action == "campfire") then {
|
|
_veh = createvehicle["Land_Campfire_burning",_pos,[],0,"NONE"];
|
|
_center = _veh;
|
|
};
|
|
|
|
if(_defend) then {
|
|
_angle = 360/(_count-1);
|
|
}else{
|
|
_angle = 360/(_count);
|
|
};
|
|
|
|
_grp enableGunLights "AUTO";
|
|
_grp setBehaviour "CARELESS";
|
|
|
|
{
|
|
if(_x != _leader || {_x == _leader && !_defend}) then {
|
|
|
|
_newpos = (_center modelToWorld [(sin (_forEachIndex * _angle))*_radius, (cos (_forEachIndex *_angle))*_radius, 0]);
|
|
|
|
//diag_log format["Newpos %1: %2",_foreachindex,_newpos];
|
|
|
|
if(_defend) then {
|
|
_dir = 0;
|
|
}else{
|
|
_dir = 180;
|
|
};
|
|
|
|
_viewangle = (_foreachIndex * _angle) pushBack _dir;
|
|
|
|
[_x,_pos,_newpos,_viewangle,_defend]spawn SAR_move_to_circle_pos;
|
|
};
|
|
} foreach _units;
|
|
//_leader disableAI "MOVE";
|
|
};
|
|
};
|
|
|
|
SAR_isKindOf_weapon = {
|
|
// own function because the BiS one does only search vehicle config
|
|
// parameters:
|
|
//_weapon = the weapon for which we search the parent class
|
|
//_class = class to search for
|
|
//return value: true if found, otherwise false
|
|
|
|
private ["_class","_weapon","_cfg_entry","_found","_search_class"];
|
|
|
|
_weapon = _this select 0;
|
|
_class = _this select 1;
|
|
|
|
_cfg_entry = configFile >> "CfgWeapons" >> _weapon;
|
|
_search_class = configFile >> "CfgWeapons" >> _class;
|
|
|
|
_found = false;
|
|
while {isClass _cfg_entry} do
|
|
{
|
|
if (_cfg_entry == _search_class) exitWith { _found = true; };
|
|
|
|
_cfg_entry = inheritsFrom _cfg_entry;
|
|
};
|
|
|
|
_found;
|
|
};
|
|
|
|
SAR_AI_is_unfriendly_group = {
|
|
// parameters
|
|
// _trig_player_list = list of players in the trigger array
|
|
|
|
private ["_trig_player_list","_bandits_in_trigger","_player_respect"];
|
|
|
|
_trig_player_list = _this select 0;
|
|
|
|
_bandits_in_trigger = false;
|
|
{
|
|
_player_respect = _x getVariable ["ExileScore",0];
|
|
|
|
if(_player_respect < SAR_RESPECT_HOSTILE_LIMIT) then {
|
|
_bandits_in_trigger = true;
|
|
};
|
|
} foreach _trig_player_list;
|
|
|
|
_bandits_in_trigger;
|
|
};
|
|
|
|
SAR_unit_loadout_tools = {
|
|
// Parameters:
|
|
// _unittype (leader, soldier, sniper)
|
|
// _side (mili, surv, band
|
|
// return value: tools array
|
|
|
|
private ["_unittype","_side","_unit_tools_list","_unit_tools","_tool","_probability","_chance"];
|
|
|
|
_unittype = _this select 0;
|
|
_side = _this select 1;
|
|
|
|
_unit_tools_list = call compile format["SAR_%2_%1_tools",_unittype,_side];
|
|
|
|
_unit_tools = [];
|
|
{
|
|
_tool = _x select 0;
|
|
_probability = _x select 1;
|
|
_chance = (random 100);
|
|
if(_chance < _probability) then {
|
|
_unit_tools set [count _unit_tools, _tool];
|
|
};
|
|
} foreach _unit_tools_list;
|
|
|
|
_unit_tools;
|
|
};
|
|
|
|
SAR_unit_loadout_items = {
|
|
// Parameters:
|
|
// _unittype (leader, soldier, sniper)
|
|
// _side (mili, surv, band)
|
|
// return value: items array
|
|
|
|
private ["_unittype","_unit_items_list","_unit_items","_item","_probability","_chance","_side"];
|
|
|
|
_unittype = _this select 0;
|
|
_side = _this select 1;
|
|
|
|
_unit_items_list = call compile format["SAR_%2_%1_items",_unittype,_side];
|
|
|
|
_unit_items = [];
|
|
{
|
|
_item = _x select 0;
|
|
_probability = _x select 1;
|
|
_chance = (random 100);
|
|
if(_chance < _probability) then {
|
|
_unit_items set [count _unit_items, _item];
|
|
};
|
|
} foreach _unit_items_list;
|
|
|
|
_unit_items;
|
|
};
|
|
|
|
SAR_unit_loadout_weapons = {
|
|
// Parameters:
|
|
// _unittype (leader, rifleman, sniper)
|
|
// _side (sold,surv,band)
|
|
// return value: weapons array
|
|
|
|
private ["_unittype","_side","_unit_weapon_list","_unit_pistol_list","_unit_pistol_name","_unit_weapon_name","_unit_weapon_names"];
|
|
|
|
_unittype = _this select 0;
|
|
_side = _this select 1;
|
|
|
|
_unit_weapon_list = call compile format["SAR_%2_%1_weapon_list",_unittype,_side];
|
|
_unit_pistol_list = call compile format["SAR_%2_%1_pistol_list",_unittype,_side];
|
|
|
|
_unit_weapon_names = [];
|
|
_unit_weapon_name = "";
|
|
_unit_pistol_name = "";
|
|
|
|
if(count _unit_weapon_list > 0) then {
|
|
_unit_weapon_name = _unit_weapon_list select (floor(random (count _unit_weapon_list)));
|
|
};
|
|
if(count _unit_pistol_list > 0) then {
|
|
_unit_pistol_name = _unit_pistol_list select (floor(random (count _unit_pistol_list)));
|
|
};
|
|
_unit_weapon_names set [0, _unit_weapon_name];
|
|
_unit_weapon_names set [1, _unit_pistol_name];
|
|
|
|
_unit_weapon_names;
|
|
};
|
|
|
|
SAR_unit_loadout = {
|
|
// Parameters:
|
|
// _unit (Unit to apply the loadout to)
|
|
// _weapons (array with weapons for the loadout)
|
|
// _items (array with items for the loadout)
|
|
// _tools (array with tools for the loadout)
|
|
|
|
private ["_unit","_weapons","_weapon","_items","_unit_magazine_name","_item","_tool","_tools","_forEachIndex"];
|
|
|
|
_unit = _this select 0;
|
|
_weapons = _this select 1;
|
|
_items = _this select 2;
|
|
_tools = _this select 3;
|
|
|
|
removeAllWeapons _unit;
|
|
removeAllAssignedItems _unit;
|
|
removeAllItems _unit;
|
|
removeBackpack _unit;
|
|
removeGoggles _unit;
|
|
removeVest _unit;
|
|
if (_unit isKindOf "O_G_Soldier_lite_F") then {removeHeadgear _unit; sleep 1; _unit addHeadGear "H_Shemag_olive";};
|
|
|
|
_unit enableFatigue false;
|
|
_unit allowDamage true;
|
|
|
|
{
|
|
_weapon = _weapons select _forEachIndex;
|
|
|
|
if (_weapon !="") then
|
|
{
|
|
_unit_magazine_name = getArray (configFile >> "CfgWeapons" >> _weapon >> "magazines") select 0;
|
|
_unit addMagazine _unit_magazine_name;
|
|
_unit addWeapon _weapon;
|
|
};
|
|
} foreach _weapons;
|
|
|
|
{
|
|
_item = _items select _forEachIndex;
|
|
_unit addMagazine _item;
|
|
} foreach _items;
|
|
|
|
{
|
|
_tool = _tools select _forEachIndex;
|
|
_unit addWeapon _tool;
|
|
} foreach _tools;
|
|
};
|
|
|
|
SAR_AI_mon_upd = {
|
|
// Parameters:
|
|
// _typearray (possible values = "max_grps", "rnd_grps", "max_p_grp", "grps_band","grps_sold","grps_surv")
|
|
// _valuearray (must be an array)
|
|
// _gridname (is the areaname of the grid for this change)
|
|
|
|
private ["_typearray","_valuearray","_gridname","_path","_success","_forEachIndex"];
|
|
|
|
_typearray = _this select 0;
|
|
_valuearray =_this select 1;
|
|
_gridname = _this select 2;
|
|
|
|
_path = [SAR_AI_monitor, _gridname] call BIS_fnc_findNestedElement;
|
|
|
|
{
|
|
switch (_x) do
|
|
{
|
|
case "max_grps":
|
|
{
|
|
_path set [1,1];
|
|
};
|
|
case "rnd_grps":
|
|
{
|
|
_path set [1,2];
|
|
};
|
|
case "max_p_grp":
|
|
{
|
|
_path set [1,3];
|
|
};
|
|
case "grps_band":
|
|
{
|
|
_path set [1,4];
|
|
};
|
|
case "grps_sold":
|
|
{
|
|
_path set [1,5];
|
|
};
|
|
case "grps_surv":
|
|
{
|
|
_path set [1,6];
|
|
};
|
|
};
|
|
|
|
_success = [SAR_AI_monitor, _path, _valuearray select _forEachIndex] call BIS_fnc_setNestedElement;
|
|
|
|
} foreach _typearray;
|
|
|
|
_success;
|
|
};
|
|
|
|
SAR_AI_mon_read = {
|
|
// Parameters:
|
|
// _typearray (possible values = "max_grps", "rnd_grps", "max_p_grp", "grps_band","grps_sold","grps_surv")
|
|
// _gridname (is the areaname of the grid for this change)
|
|
|
|
private ["_typearray","_gridname","_path","_resultarray"];
|
|
|
|
_typearray = _this select 0;
|
|
_gridname = _this select 1;
|
|
_resultarray = [];
|
|
|
|
_path = [SAR_AI_monitor, _gridname] call BIS_fnc_findNestedElement;
|
|
|
|
{
|
|
switch (_x) do
|
|
{
|
|
case "max_grps":
|
|
{
|
|
_path set [1,1];
|
|
};
|
|
case "rnd_grps":
|
|
{
|
|
_path set [1,2];
|
|
};
|
|
case "max_p_grp":
|
|
{
|
|
_path set [1,3];
|
|
};
|
|
case "grps_band":
|
|
{
|
|
_path set [1,4];
|
|
};
|
|
case "grps_sold":
|
|
{
|
|
_path set [1,5];
|
|
};
|
|
case "grps_surv":
|
|
{
|
|
_path set [1,6];
|
|
};
|
|
};
|
|
_resultarray set [count _resultarray,[SAR_AI_monitor, _path] call BIS_fnc_returnNestedElement];
|
|
} foreach _typearray;
|
|
|
|
_resultarray;
|
|
};
|
|
|
|
SAR_DEBUG_mon = {
|
|
diag_log "--------------------Start of AI monitor values -------------------------";
|
|
{
|
|
diag_log format["SAR EXTREME DEBUG: %1",_x];
|
|
}foreach SAR_AI_monitor;
|
|
|
|
diag_log "--------------------End of AI monitor values -------------------------";
|
|
};
|
|
|
|
|
|
SAR_fnc_returnConfigEntry = {
|
|
private ["_config", "_entryName","_entry", "_value"];
|
|
|
|
_config = _this select 0;
|
|
_entryName = _this select 1;
|
|
_entry = _config >> _entryName;
|
|
|
|
//If the entry is not found and we are not yet at the config root, explore the class' parent.
|
|
if (((configName (_config >> _entryName)) == "") && {!((configName _config) in ["CfgVehicles", "CfgWeapons", ""])}) then {
|
|
[inheritsFrom _config, _entryName] call SAR_fnc_returnConfigEntry;
|
|
}
|
|
else { if (isNumber _entry) then { _value = getNumber _entry; } else { if (isText _entry) then { _value = getText _entry; }; }; };
|
|
//Make sure returning 'nil' works.
|
|
if (isNil "_value") exitWith {nil};
|
|
|
|
_value;
|
|
};
|
|
|
|
// *WARNING* BIS FUNCTION RIPOFF - Taken from fn_fnc_returnVehicleTurrets and shortened a bit
|
|
SAR_fnc_returnVehicleTurrets = {
|
|
private ["_entry","_turrets","_turretIndex"];
|
|
|
|
_entry = _this select 0;
|
|
_turrets = [];
|
|
_turretIndex = 0;
|
|
|
|
//Explore all turrets and sub-turrets recursively.
|
|
for "_i" from 0 to ((count _entry) - 1) do {
|
|
private ["_subEntry"];
|
|
_subEntry = _entry select _i;
|
|
if (isClass _subEntry) then {
|
|
private ["_hasGunner"];
|
|
_hasGunner = [_subEntry, "hasGunner"] call SAR_fnc_returnConfigEntry;
|
|
//Make sure the entry was found.
|
|
if (!(isNil "_hasGunner")) then {
|
|
if (_hasGunner == 1) then {
|
|
_turrets = _turrets pushBack [_turretIndex];
|
|
//Include sub-turrets, if present.
|
|
if (isClass (_subEntry >> "Turrets")) then { _turrets = _turrets pushBack [[_subEntry >> "Turrets"] call SAR_fnc_returnVehicleTurrets]; }
|
|
else { _turrets = _turrets pushBack [[]]; };
|
|
};
|
|
};
|
|
_turretIndex = _turretIndex + 1;
|
|
};
|
|
sleep 0.01;
|
|
};
|
|
_turrets;
|
|
};
|