PMC Tactical forums

Code: Select all

/*
JTD_fnc_randGroup.sqf
by Trexian

Purpose: spawn a random group from specified config types at specified location.

Implementation: from a call.

ooooooooooooooooooooooooooooooooooooooooooooooooooo
Credit:
Spooner's config posts -  http://www.ofpec.com/forum/index.php?topic=31961.0
DM for math
OFPEC

ooooooooooooooooooooooooooooooooooooooooooooooooooo
Information

Elements received:
0 = position (pos array)
1 = faction (Str faction) - default is CIV
2 = type (String or Array of strings)?  Maybe just array

Return:
spawned group

ooooooooooooooooooooooooooooooooooooooooooooooooooo
Version history
01a -
proof of concept


ooooooooooooooooooooooooooooooooooooooooooooooooooo
TTD


*/

private ["_pos", "_faction", "_types", "_cfgGroups", "_side", "_cfgPath", "_grpPath", "_i", "_class", "_groupR", "_ret"];

// get initial stuff
_pos = _this select 0;
_faction = _this select 1;
_types = _this select 2;

_cfgGroups = [];
// error checking -- need to make sure types are valid?
if !(_faction in ["USMC", "CDF", "RU", "INS", "GUE", "CIV"]) then
{
	_faction = "CIV";  // spawns civ if faction is invalid
};


if (count _types == 0) then
{
	_types = ["Infantry"];	// defaults to infantry if nothing specified
};


// set up config path

switch (_faction) do 
{
	case "USMC":
	{
  _side = west;
  _cfgPath = configFile >> "cfgGroups" >> "West";
	};
	case "CDF":
	{
  _side = west;
  _cfgPath = configFile >> "cfgGroups" >> "West";
	};
	case "RU":
	{
  _side = east;
  _cfgPath = configFile >> "cfgGroups" >> "East";
	};
	case "INS":
	{
  _side = east;
  _cfgPath = configFile >> "cfgGroups" >> "East";
	};
	case "GUE":
	{
  _side = resistance;
  _cfgPath = configFile >> "cfgGroups" >> "Guerilla";
	};
	case "CIV":
	{
  _side = civilian;
  _cfgPath = configFile >> "cfgGroups" >> "Civilian";
	};
	default
	{
  _side = civilian;
  _cfgPath = configFile >> "cfgGroups" >> "Civilian";
	};
};

// Compile pool of the types
{
	//Find all groups defined for various subtypes.
	_grpPath = _cfgPath >> _faction >> _x;
//diag_log text format ["path = %1", _grpPath];
	for "_i" from 0 to ((count _grpPath) - 1) do 
	{
  _class = _grpPath select _i;
  
  //Only take actual classes.
  if (isClass (_class)) then 
  {
  	_cfgGroups = _cfgGroups + [_class];
  };
	};
} forEach _types;

//diag_log text format ["count types = %1", count _cfgGroups];

_groupR = _cfgGroups call BIS_fnc_selectRandom;
_ret = [_pos, _side, _groupR, [], [], [], []] call BIS_fnc_spawnGroup;
// return the groupInfo, which should represent the names of the various groups
_ret

Code: Select all

// @@ dev addactions
_JTD_teleport = player addAction ["teleport", "JTD_teleport.sqf","",10,false,false,""];
_JTD_intCam = player addAction ["Sel int cam", "JTD_intCamInit.sqf","",10,false,false,""];
_JTD_remCam = player addAction ["Remote cam", "JTD_remCamInit.sqf","",10,false,false,""];
_JTD_heloCall = player addAction ["Helo call", "JTD_heloCallInit.sqf","",10,false,false,""];

onTeamSwitch "selectPlayer (leader _from); {_x doFollow leader _from} foreach units _from; selectPlayer _to;";
// end dev addactions
 

Code: Select all

/*
Ver. history
01
proof of concept

02
use mapclick for center, but use findEmptyPosition to actually place

03
automagically open map
*/

titleText["Select location for helo", "PLAIN"];

//open map
openMap true;

onMapSingleClick "[_pos] execVM 'JTD_heloCall.sqf'; onMapSingleClick ''; true;";
 

Code: Select all

/*
Ver. history
01
proof of concept

02
use mapclick for center, but use findEmptyPosition to actually place

03
close map?
*/

_pos = _this select 0;

_loc = _pos findEmptyPosition [20, 100, "UH1Y"];
hint format ["loc %1", _loc];
sleep 1;
    _helo = 'UH1Y' createVehicle _loc;
    _helo setDir (random 360);
// added to close the map
 

Code: Select all

titleText["Select Position for Remote Camera", "PLAIN"];
//open map
openMap true;
onMapSingleClick "[_pos] execVM 'JTD_remCam.sqf'; onMapSingleClick ''; true;";
 

Code: Select all

private ["_pos", "_unitPL", "_list", "_cam"];

_pos = _this select 0;

_unitPL = player;
_list = nearestObjects [[_pos select 0, _pos select 1, 0], [], 50];
_cam = _list select 0;
//hint format ["CAMERA %1 %2", _cam, count _list];
_cam exec 'camera.sqs';
 

Code: Select all

titleText["Select Internal Cam Position", "PLAIN"];
// try to close the map?

// _JTD_intCam = player addAction ["Sel int cam", "JTD_internalCam.sqf","",10,false,false,""];

// can return "_unit"?  That's the units selected by the player from his group
// _manlist = (player) nearEntities [["Man"], 1000];
//tweak nearEntities radius
/*
new idea:
From the onMapSingleClick, trigger a new sqf.
In that one, waituntil (inputaction "v") then transfer back to the player internal.
*/
//open map
openMap true;
onMapSingleClick "[_pos] execVM 'JTD_intCam.sqf'; onMapSingleClick ''; true;";
 

Code: Select all

private ["_pos", "_list", "_cam"];

_pos = _this select 0;

_list = nearestObjects [_pos, ["MAN"], 100];
if (count _list > 0) then
    {
    //hint format ["list = %1", _list];
    _cam = _list select 0;
    _cam switchCamera "INTERNAL";
    // hit 0 or buldozer camera reset to exit
    waitUntil {inputAction "buldResetCamera" > 0};
    player switchCamera "INTERNAL";
    };