mirror of
https://github.com/Teh-Dango/Sarge-AI.git
synced 2024-08-30 16:32:11 +00:00
Delete SAR_functions.sqf
This commit is contained in:
Teh Dango
parent
9144fe62d7
commit
5143f6aaba
@ -1,516 +0,0 @@
|
||||
/*
|
||||
# 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;
|
||||
};
|
||||
Loading…
Reference in New Issue
Block a user