Simple Reinforcements

[iceman77 18]

Here's a reinforcement script I made for a SP mission. It ended up being a project in itself. Initially I made the script to reinforce the enemy. However, it can also be used for friendly reinforcements just as easy.

How It Works:

-Spawns in a flying helicopter

-loads it with an infantry group

-heads to the AO and drops the group off in the general vicinity of the LZ Marker. Either by landing or by paradrop.

-The infantry group will seek & destroy the nearest enemy(ies) or go into patrol mode.

-The helicopter then flys off to [0,0,0] to be deleted.

-The helo may choose to turn around and engage known enemies instead, if he sees it necessary.

Notes:

Intended for SP use, but should work on dedicated server aswell. No testing was done in a dedicated environment, though certain precaution(s) were taken while writing the script so that it may work on dedicated aswell. Hopefully :p

Example Mission v1.1

------------

CHANGE LOG

------------

v1.0 - initial release

v1.1 -

* Added paradrop parameter

* The group will no longer see animals as enemies

* Adjusted how the group detects enemies

* Countless other revisions

init.sqf

/* ----------------------------------------------------------
  See reinforcements.sqf comments for usage instructions
----------------------------------------------------------*/
call compile PreProcessFile "reinforcements.sqf";
[EAST, "spawnMrk", "LZMrk", 2, true, true, true, true, true] spawn TAG_fnc_reinforcements;

reinforcements.sqf

/* ---------------------------------------------------------------------------------------------------------

File: reinforcements.sqf
Author: Iceman77

Description:
A function that will create a fully manned helo which inserts infantry units into an AO. 

Parameter(s):
_this select 0 <side> - EAST, WEST, RESISTANCE
_this select 1 <string> - Marker: (spawn position of the helo)
_this select 2 <string> - Marker: (Landing Zone for the helo)
_this select 3 <number> - Skill Setting: (1,2,3,4 >> 1 = Noob AI -- 4 = Deadly Ai)
_this select 4 <bool> - SAD Mode: (True = Seek & destroy mode enabled. False = Patrol Mode Enabled)
_this select 5 <bool> - Body Deletion: (True = delete dead Bodies of the reinforcements, False = let the dead bodies stay on the battlefield)
_this select 6 <bool> - Cycle Mode: (True = ON, False = OFF) 
_this select 7 <bool> - Paradrop: (True = Enabled, False = Disabled)
_this select 8 <bool> - Debug Mode: (True = Enabled, False = Disabled)

Usage:
_nul = [sIDE, "string", "string", number, bool, bool, bool, bool, bool] spawn TAG_fnc_reinforcements; >> 
_nul = [EAST, "spawnMrk", "LZMrk", 2, true, true, true, true, false] spawn TAG_fnc_reinforcements; <<

---------------------------------------------------------------------------------------------------------*/
TAG_fnc_reinforcements = {

if (!isServer) exitWith {};

//arguments definitions 
_side = _this select 0;
_spawnMrk = _this select 1;
_LZMrk = _this select 2;
_skill = _this select 3;
_sadMode = _this select 4;
_bodyDelete = _this select 5;
_cycleMode = _this select 6;
_paraDrop = _this select 7;
_debugMode = _this select 8;
_heloCrew = createGroup _side;  

//set the scope of local variables that are defined in other scope(s), so they can be used over the entire script
private ["_ranGrp","_helo","_infgrp"];

//Debug output of the passed arguments
if (_debugMode) then {
   sleep 1;
   hint format ["Debug mode is enabled %1 (SP ONLY!!). Mapclick teleport, invincibility and marker tracking are enabled.", name player];
   player globalChat format ["Side: %1", _side];
player globalChat format ["Spawn Position: %1 ", _spawnMrk];
player globalChat format ["Landing Zone: %1", _LZMrk];
player globalChat format ["AI Skill: %1", _skill];
player globalChat format ["SAD Mode: %1", _sadMode];
player globalChat format ["Body Deletion: %1", _bodyDelete];
player globalChat format ["Cycle Mode: %1", _cycleMode];
player globalChat format ["Debug Mode: %1", _debugMode];
};

//Side Check to spawn appropriate helicopter & cargo
switch (_side) do {
   case WEST : {
    _ranGrp = ["BUS_InfSquad","BUS_InfSquad_Weapons"] call BIS_fnc_selectRandom;
       _helo = [getMarkerPos _spawnMrk, markerDir _spawnMrk, "B_Heli_Transport_01_F", WEST] call BIS_FNC_spawnVehicle;
	_infgrp = [getMarkerPos _spawnMrk, WEST, (configFile >> "CfgGroups" >> "West" >> "BLU_F" >> "Infantry" >> _ranGrp)] call BIS_fnc_spawnGroup;
};
case EAST : {
    _ranGrp = ["OIA_InfSquad","OIA_InfSquad_Weapons"] call BIS_fnc_selectRandom;
       _helo = [getMarkerPos _spawnMrk, markerDir _spawnMrk, "O_Heli_Light_02_F", EAST] call BIS_FNC_spawnVehicle;
	_infgrp = [getMarkerPos _spawnMrk, EAST, (configFile >> "CfgGroups" >> "East" >> "OPF_F" >> "Infantry" >> _ranGrp)] call BIS_fnc_spawnGroup;
};
case RESISTANCE : {
    _ranGrp = ["HAF_InfSquad","HAF_InfSquad_Weapons"] call BIS_fnc_selectRandom;
       _helo = [getMarkerPos _spawnMrk, markerDir _spawnMrk, "I_Heli_Transport_02_F", RESISTANCE] call BIS_FNC_spawnVehicle;
	_infgrp = [getMarkerPos _spawnMrk, RESISTANCE, (configFile >> "CfgGroups" >> "Indep" >> "IND_F" >> "Infantry" >> _ranGrp)] call BIS_fnc_spawnGroup;
};
};

//Debug output of the helo + cargo
if (_debugMode) then {
   player globalChat format ["Group Selection: %1", _ranGrp];
   player globalChat format ["Helo Array: %1", _Helo];
   player globalChat format ["Cargo Group: %1", _infGrp];
};

//Set the infantry groups skill levels
switch (_skill) do 
{   case 1 : 
{
    {
	    _x setSkill ["general",1];
           _x setSkill ["aimingAccuracy",0.2];
           _x setSkill ["aimingShake",0.2];
           _x setSkill ["aimingSpeed",0.7];
           _x setSkill ["endurance",0.1];
           _x setSkill ["spotDistance",0.1];
           _x setSkill ["spotTime",0.1];
           _x setSkill ["courage",1];
           _x setSkill ["reloadspeed",0.1];
           _x setSkill ["commanding",0.5];
    } forEach units _infGrp;

};

case 2 : 
{
    {
	    _x setSkill ["general",1];
           _x setSkill ["aimingAccuracy",0.3];
           _x setSkill ["aimingShake",0.3];
           _x setSkill ["aimingSpeed",0.7];
           _x setSkill ["endurance",0.2];
           _x setSkill ["spotDistance",0.2];
           _x setSkill ["spotTime",0.2];
           _x setSkill ["courage",1];
           _x setSkill ["reloadspeed",0.2];
           _x setSkill ["commanding",0.75];
    } forEach units _infGrp;

};

case 3 : 
{
    {
	    _x setSkill ["general",1];
           _x setSkill ["aimingAccuracy",0.3];
           _x setSkill ["aimingShake",0.4];
           _x setSkill ["aimingSpeed",1];
           _x setSkill ["endurance",0.5];
           _x setSkill ["spotDistance",0.3];
           _x setSkill ["spotTime",0.3];
           _x setSkill ["courage",1];
           _x setSkill ["reloadspeed",0.75];
           _x setSkill ["commanding",1];
    } forEach units _infGrp;

};

case 4 : 
{
    {
	    _x setSkill ["general",1];
           _x setSkill ["aimingAccuracy",0.4];
           _x setSkill ["aimingShake",0.5];
           _x setSkill ["aimingSpeed",1];
           _x setSkill ["endurance",0.5];
           _x setSkill ["spotDistance",0.5];
           _x setSkill ["spotTime",0.5];
           _x setSkill ["courage",1];
           _x setSkill ["reloadspeed",1];
           _x setSkill ["commanding",1];
    } forEach units _infGrp;
};
};


//Assign the crew to a group & assign cargo to the helo
{[_x] joinSilent _heloCrew;} forEach crew (_helo select 0);	
{_x assignAsCargo (_helo select 0); _x moveInCargo (_helo select 0);} forEach units _infgrp; 

//Debug output of the total crew count (cargo counts as crew too)
if (_debugMode) then {player globalChat format ["Helicopter Total Crew Count: %1", count crew (_helo select 0)];};

//Enable body deletion if the _bodyDelete parameter is passed as true
if (_bodyDelete) then {
   {_x addMPEventhandler ["MPKilled",{[(_this select 0)] spawn TAG_fnc_deleteTrash}]} forEach crew (_helo select 0) + [(_helo select 0)];
       if (isNil "bodyDeleteInit") then {
	        bodyDeleteInit = 1;

               TAG_fnc_deleteTrash = {
			    sleep 60;
                hideBody (_this select 0);
				sleep 5;
				deleteVehicle (_this select 0);
            };
    };
};

if (isNil "debugInit") then {
   debugInit = 1;
   if (_debugMode) then {
      ["Teleport_ID", "onMapSingleClick", "TAG_fnc_teleport"] call BIS_fnc_addStackedEventHandler; 

    TAG_fnc_teleport = {
           player setPos _pos;
		{
		    _grpPos = [player, 10 + (random 15), random 360] call BIS_fnc_relPos;
			_x setPosATL _grpPos;
		} forEach units (group player);
        hintSilent format ["Moved to grid %1", mapGridPosition player]; 
	};

   };

};

//Find a flat position around the LZ marker & create an HPad there.
_flatPos = [getMarkerPos _LZMrk , 0, 400, 10, 0, 0.3, 0] call BIS_fnc_findSafePos;
_hPad = createVehicle ["Land_HelipadEmpty_F", _flatPos, [], 0, "NONE"];

//Debug output map markers
private ["_mrkPos","_mrkLZ","_mrkHelo","_mrkinf","_mrkTarget"];
if (_debugMode) then {
   _color = [(((side leader _infGrp) call bis_fnc_sideID) call bis_fnc_sideType),true] call bis_fnc_sidecolor;

_mrkPos = createMarker [format ["%1", random 10000], _flatPos]; 
   _mrkPos setMarkerShape "ICON";
   _mrkPos setMarkerType "mil_objective";
   _mrkPos setMarkerSize [1,1];
   _mrkPos setMarkerColor _color;
_mrkPos setMarkerText "Actual LZ";

_mrkLZ = createMarker [format ["%1", random 10000], getMarkerPos _LZMrk];
   _mrkLZ  setMarkerShape "ICON";
   _mrkLZ  setMarkerType "mil_dot";
   _mrkLZ  setMarkerSize [1,1];
   _mrkLZ  setMarkerColor _color;
_mrkLZ  setMarkerText "LZ Area";

_mrkHelo = createMarker [format ["%1", random 10000], getPosATL (_helo select 0)];
   _mrkHelo setMarkerShape "ICON";
   _mrkHelo setMarkerType "o_air";
   _mrkHelo setMarkerSize [1,1];
   _mrkHelo setMarkerColor _color;
_mrkHelo setMarkerText format ["%1", (_helo select 0)];

   _mrkInf = createMarker [format ["%1", random 10000], getPosATL leader _infGrp];
   _mrkInf setMarkerShape "ICON";
   _mrkInf setMarkerType "mil_dot";
   _mrkInf setMarkerSize [1,1];
   _mrkInf setMarkerColor _color;

   [(_helo select 0), _infGrp, _mrkHelo, _mrkInf] spawn {		
    while {{alive _x} count units (_this select 1) > 0 || canMove (_this select 0)} do {
	    (_this select 2) setMarkerPos getPosATL (_this select 0);
	    (_this select 3) setMarkerPos getPosATL leader (_this select 1);
	    sleep 1;
    };
   };
};

//Give the helicopter an unload waypoint onto the hpad

if (!_paraDrop) then { 	
   _heloWp = _heloCrew addWaypoint [_hPad, 0];
   _heloWp setWaypointType "TR UNLOAD";
   _heloWp setWaypointBehaviour "CARELESS";
   _heloWp setWaypointCombatMode "BLUE";
   _heloWp setWaypointSpeed "FULL";
   _heloWp setWaypointStatements ["true", "(vehicle this) LAND 'LAND';"];

//wait until the helicopter is touching the ground before ejecting the cargo	
   waitUntil {isTouchingGround (_helo select 0) || {!canMove (_helo select 0)}};
   {unAssignVehicle _x; _x action ["eject", vehicle _x]; sleep 0.5;} forEach units _infgrp; //Eject the cargo

   //wait Until the infantry group is no longer in the helicopter before assigning a new WP to the helicopter
   waitUntil {{!alive _x || !(_x in (_helo select 0))} count (units _infGrp) == count (units _infGrp)};
       if (_debugMode) then {player globalChat format ["Helo Cargo Count: %1", {alive _x && (_x in (_helo select 0))} count (units _infGrp)];};
           _heloWp = _heloCrew addWaypoint [[0,0,0], 0];
           _heloWp setWaypointType "MOVE";
           _heloWp setWaypointBehaviour "AWARE";
           _heloWp setWaypointCombatMode "RED";
           _heloWp setWaypointSpeed "FULL";
           _heloWp setWaypointStatements ["true", "{deleteVehicle _x;} forEach crew (vehicle this) + [vehicle this];"];

} else {

//disable collision to avoid deaths and setup the paradrop
   {_x disableCollisionWith (_helo Select 0)} forEach units _infGrp; 
   (_helo select 0) flyInHeight 200;
   if (isNil "TAG_fnc_para") then {
        TAG_fnc_para = {
               {
		        unAssignVehicle _x; 
			    _x action ["eject", vehicle _x]; 
			    sleep 1.5;
				_chute = createVehicle ["Steerable_Parachute_F", getPosATL _x, [], 0, "CAN_COLLIDE"];
				_chute attachTo [_x,[0,0,0]];
				detach _chute;
                   _x moveIndriver _chute;					
		    } forEach assignedCargo (_this select 0);
           };

};

   _heloWp = _heloCrew addWaypoint [_hPad, 0];
   _heloWp setWaypointType "MOVE";
   _heloWp setWaypointBehaviour "CARELESS";
   _heloWp setWaypointCombatMode "BLUE";
   _heloWp setWaypointSpeed "FULL";
   _heloWp setWaypointStatements ["true", "nul = [(vehicle this)] spawn TAG_fnc_para;"];

_heloWp = _heloCrew addWaypoint [[0,0,0], 0];
   _heloWp setWaypointType "MOVE";
   _heloWp setWaypointBehaviour "AWARE";
   _heloWp setWaypointCombatMode "RED";
   _heloWp setWaypointSpeed "FULL";
   _heloWp setWaypointStatements ["true", "{deleteVehicle _x;} forEach crew (vehicle this) + [vehicle this];"];
};

//wait until cargo is empty & if _sadMode is passed as true, then add a SAD WP on the nearest enemy.. else, go into patrol mode
waitUntil {{!alive _x || !(_x in (_helo select 0))} count (units _infGrp) == count (units _infGrp)};
   if (_debugMode) then {
    {deleteMarker _x;} forEach [_mrkLZ, _mrkPos];
   };

if (_sadMode) then {
   if (_debugMode) then {player globalChat "Scanning for targets to enable SAD Mode";};
   private "_nearestEnemies";
_nearestEnemies = [];
   _nearestMen = nearestObjects [getPosATL leader _infGrp, ["Man"], 1000];
    {
	    if ( (side _x getFriend (side leader (_infGrp))) < 0.6 && {side _x != CIVILIAN} ) then {
		    _nearestEnemies = _nearestEnemies + [_x];
		};
	} forEach _nearestMen;

	if (count _nearestEnemies > 0) then {
           _enemy = _nearestEnemies call bis_fnc_selectRandom;
	    _attkPos = [_enemy, random 100, random 360] call BIS_fnc_relPos;
           _infWp = _infGrp addWaypoint [_attkPos, 0];
           _infWp setWaypointType "SAD";
           _infWp setWaypointBehaviour "AWARE";
           _infWp setWaypointCombatMode "RED";
           _infWp setWaypointSpeed "FULL";

		 if (_debugMode) then {
		    player globalChat "Target Found. Setting SAD waypoint";
		    _colorTarget = [(((side _enemy) call bis_fnc_sideID) call bis_fnc_sideType),true] call bis_fnc_sidecolor;
	        _mrkTarget = createMarker [format ["%1", random 10000], _attkPos];
               _mrkTarget setMarkerShape "ICON";
               _mrkTarget setMarkerType "mil_dot";
               _mrkTarget setMarkerSize [1,1];
               _mrkTarget setMarkerColor _colorTarget;
               _mrkTarget setMarkerText "SAD Target Area";
		};

	} else {
	    [_infGrp, getPosATL (leader _infGrp), 200] call BIS_fnc_taskPatrol;
		if (_debugMode) then {player globalChat "No targets found. Patrol mode enabled";};

	};

} else {
  [_infGrp, getPosATL (leader _infGrp), 200] call BIS_fnc_taskPatrol;
  if (_debugMode) then {player globalChat "Patrol Mode";};

};
   // IF _cycleMode is passed as true, then re-run the function (this function!), else do nothing.
   if (_cycleMode) then {
       waitUntil {{alive _x} count units _infgrp + [(_helo select 0)] == 0};
       if (_debugMode) then {
	    player globalChat "Patrol and helicopter dead";
	    {deleteMarker _x;} forEach [_mrkHelo, _mrkinf, _mrkTarget];
	};
	sleep 10;
	 if (_debugMode) then {player globalChat "New Reinforcements created";};
	 [_side, _spawnMrk, _LZMrk, _skill, _sadMode, _bodyDelete, _cycleMode, _debugMode] spawn TAG_fnc_reinforcements;
   };

// Function End
};

All feedback is welcome. Let me know if the problem is in SP or (MP) dedicated server and explain any problems you are having.

Edited December 7, 2013 by Iceman77

[fusion13 11]

Sweet thanks man, This can help me a little bit! :cool:

[iceman77 18]

Cool. Stay tuned for another update within the next day or so.

[iceman77 18]

Major Update:

v1.1 -

* Added paradrop parameter

* The group will no longer see animals as enemies

* Adjusted how the group detects enemies

* Countless other revisions

Edited December 7, 2013 by Iceman77

[Guest]

Thanks for informing us of the updated version :cool:

Release frontpaged on the Armaholic homepage.

Simple Reinforcements v1.1

================================================

We have also "connected" these pages to your account on Armaholic.

This means in the future you will be able to maintain these pages yourself if you wish to do so. Once this new feature is ready we will contact you about it and explain how things work and what options you have.

When you have any questions already feel free to PM or email me!

[3lockad3 11]

For the life of me I can't seem to get this one working, and that's odd as it looks straight forward.

That is in my init.sqf,, 2 markers markers placed on map as defined in the init.sqf

What could I be missing ?

And how would I add this to trigger ?

/// reinforcements script start ///

call compile PreProcessFile "reinforcements.sqf";

[EAST, "er1", "erlz", 2, true, true, true, true, true] spawn TAG_fnc_reinforcements;

/// reinforcements script end ///

Thank you in advance

[iceman77 18]

I see. Does the example mission function okay?

init.sqf

call compile PreProcessFile "reinforcements.sqf";

trigger onact (with any condition you like):

_nul = [EAST, "spawnMrk", "LZMrk", 2, true, true, true, true, true] spawn TAG_fnc_reinforcements;

Please shoot me your mission file if you have anymore problems. Where / when did you download this by chance?

[itsdonjon 25]

Hey there! I really want to use your script, but i got a problem..I want the helo to land exactly where I put the marker and not in a huge radius around it..how can i change that in the .sqf?

But, a really nice script! ;)

Greetz, Don

[iceman77 18]

You would need to get rid off or alter BIS_fnc_findSafePos (_flatPos). Also, some other stuff relies on the _flatPos variable. Basically, it finds the "best" spot to land, near the general vicinity of the LZ marker. And also to create some variation / randomness.

Edited December 11, 2013 by Iceman77

[ArmaMan360 94]

Sweet script. But just one query. I have a perpetualy running SP mission with several random tasks files. and I want to call reinforcements like so:

_rein = [WEST, "spawnMrk", "LZMrk", 2, true, true, true, true, true] spawn TAG_fnc_reinforcements;

What I want is that the entire groups data and units get deleted once a task is completed to minimize memory usage. So, towards the end of the sidemission.sqf, do I need to put an extra code? or will the "Body Deletion" parameter automatically delete everything as it exits sidemission.sqf and enters sidemissionfinder.sqf to allot the next task?

Thank you :)