Airfield Support Package

[vengeance1]

Sorry I am confused on the Grid Coord? I use the GPS and it interprets the number as another location? If GPS is 054117 what do you put in for x and y?

[ozzyt109]

x would be 0540 y would be 1170, ( ive used 8 figure grid references as they are more accurate)

[vengeance1]

ah that would explain it! I will give that a try, does this work in MP on a Dedi Server?

[Foxhound]

Thanks for sending us the newest version

Release frontpaged on the Armaholic homepage.

Airfield Support v2.0

[ozzyt109]

unfortunately it doesnt work mp as it refers to player alot, future updates will fix this

[iahawk]

im having problems with this addon. After popping green smoke the helo wont land for medevac???

any ideas?? Running OA 1.60

[ozzyt109]

are you selecting a landing mode(auto,smoke or strobe) last update added in these options.
will check later to see if issues with code.
as a update im working on a rejig of the dialogs to make them more user friendly and adding lots of new options for cas. i have a working gunrun/strafe script that seems to be pretty accurate that i want to implement. also with the new LOS commands ive just got a better sytem for detecting if ai cansee something so the recce side will be better by only reporting visible rather than whole groups.
also working on a better medevac system than just medic out to you. want to do something like wounded soldiers have to go back to base to heal but havnt had time to implement yet.

[metalcraze]

The helo does not land for me either.

I call the helo to my grid, it comes, I throw a smoke and it just hovers there.

[ozzyt109]

not sure what the issue was. find attached latest version of the LZ.sqf and medevac.sqf just replace teh contents with the new script
file located in Airfield_Support_Scripts\CHIN
lz.sqf
Spoiler:

show spoiler

private ["_grp1","_lzloc","_direc","_lz","_gridPos","_grid","_1","_2","_3","_4","_5","_6","_smokeg","_qtyg","_smoker","_qtyr"];
player kbTell [BIS_SSM_HQWEST,"Transport","TransportRequest",["callsign1",{},format["%1-%2-%3",(player getVariable "callsign2") select 0,(player getVariable "callsign2") select 1,(player getVariable "callsign2") select 2],[(player getVariable "callsign") select 0]],["callsign2",{},"",[(player getVariable "callsign") select 1]],["callsign3",{},"",[(player getVariable "callsign") select 2]],true];
BIS_SSM_HQWEST kbTell [player,"Transport","TransportRequest1a",["callsign1",{},format["%1-%2-%3",(player getVariable "callsign2") select 0,(player getVariable "callsign2") select 1,(player getVariable "callsign2") select 2],[(player getVariable "callsign") select 0]],["callsign2",{},"",[(player getVariable "callsign") select 1]],["callsign3",{},"",[(player getVariable "callsign") select 2]],true];
_x=_this select 0;
_y=_this select 1;

_grp1 = group heli_P;
while {count waypoints _grp1 > 0} do {deletewaypoint (waypoints _grp1 select 0)};
heli_P assignAsDriver heli;
heli_G_1 moveInTurret [heli, [0]];
heli_G_2 moveInTurret [heli, [1]];
heli_G_3 moveInTurret [heli, [2]];
g1w0 = _grp1 addWaypoint [heli,0];
g1w0 setWaypointBehaviour "AWARE";
g1w0 setWaypointType "GETIN";
[units _grp1] orderGetIn true;

_lzloc = createMarker ["lzloc", [0,0,0]];
_lzloc setMarkerShape "ICON";
_lzloc setMarkerColor "ColorGreen";
"lzloc" setMarkerType "Empty";

"lzloc" setMarkerPos [_x,_y,0];


_lzloc = getMarkerPos "lzloc";


_gridPos = mapGridPosition _lzloc;

_grid = toarray _gridPos;

g1wp2=_grp1 addWaypoint [_lzloc, 5];
g1wp2 setWaypointType "MOVE";
g1wp2 setWaypointBehaviour "COMBAT";
{_x disableAI "AUTOTARGET"; _x disableAI "TARGET"} foreach units _grp1;

_is8 = count _grid;


_1 = switch (_grid select 0) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
_2 = switch (_grid select 1) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
_3 = switch (_grid select 2) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
_4 = switch (_grid select 3) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
_5 = switch (_grid select 4) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
_6 = switch (_grid select 5) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};

if (_is8 == 8) then
	{
	_7 = switch (_grid select 6) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
	_8 = switch (_grid select 7) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
	player kbTell [BIS_SSM_HQWEST,"Transport","grid",["location",{},_gridPos,[_1,_2,_3,_4,_5,_6,_7,_8]],true];
	BIS_SSM_HQWEST kbTell [player,"Transport","inbound",["location",{},_gridPos,[_1,_2,_3,_4,_5,_6,_7,_8]],true];
	} else
	{
	player kbTell [BIS_SSM_HQWEST,"Transport","grid",["location",{},_gridPos,[_1,_2,_3,_4,_5,_6]],true];

	BIS_SSM_HQWEST kbTell [player,"Transport","inbound",["location",{},_gridPos,[_1,_2,_3,_4,_5,_6]],true];
	};

waituntil {(Vehicle heli_P) distance _lzloc <= 300};
_type = TGT getVariable "land";

heli_P kbAddtopic["Transport","BIKB.bikb"];
switch (_type) do
{
    case "auto":
    {

	(Vehicle heli_P) land "GET IN";
    };
    case "smoke":
    {
	_wait = true;
	hint "Throw a GREEN smoke grenade to signal LZ, or a RED to Abort";
	heli_P kbTell [player,"Transport","insight"];
	while {_wait} do
		{
		_smokeg = (markerpos "lzloc") nearObjects ["SmokeShellGreen",100];
		_qtyg = count _smokeg;
		_smoker = (markerpos "lzloc") nearObjects ["SmokeShellRed",100];
		_qtyr = count _smoker;
		if (_qtyg > 0) then {player execVM "Airfield_Support_Scripts\CHIN\clear.sqf"; _wait = false};
		if (_qtyr > 0) then {heli_P exec "Airfield_Support_Scripts\CHIN\abort.sqs"; _wait = false};
		};

    };
    case "strobe":
    {

	hint "IRStrobe";
	_wait = true;
	hint "Throw a IR STROBE to signal LZ";
	heli_P kbTell [player,"Transport","insight"];
	_i=0;
	while {_wait AND (_i < 60)} do
		{
		_strobe = (markerpos "lzloc") nearObjects ["IRStrobe",100];
		_qtyg = count _strobe;
		if (_qtyg > 0) then {player execVM "Airfield_Support_Scripts\CHIN\clearstrobe.sqf"; _wait = false};
		_i = _i + 1;
		sleep 1;
		};
    };
};

medevac.sqf
Spoiler:

show spoiler

private ["_grp1","_mlzloc","_mdirec","_mlz","_gridPos","_grid","_1","_2","_3","_4","_5","_6","_smokeg","_qtyg","_smoker","_qtyr"];
player kbTell [BIS_SSM_HQWEST,"medevac","medevacRequest",["callsign1",{},format["%1-%2-%3",(player getVariable "callsign2") select 0,(player getVariable "callsign2") select 1,(player getVariable "callsign2") select 2],[(player getVariable "callsign") select 0]],["callsign2",{},"",[(player getVariable "callsign") select 1]],["callsign3",{},"",[(player getVariable "callsign") select 2]],true];
BIS_SSM_HQWEST kbTell [player,"medevac","medevacRequest1a",["callsign1",{},format["%1-%2-%3",(player getVariable "callsign2") select 0,(player getVariable "callsign2") select 1,(player getVariable "callsign2") select 2],[(player getVariable "callsign") select 0]],["callsign2",{},"",[(player getVariable "callsign") select 1]],["callsign3",{},"",[(player getVariable "callsign") select 2]],true];

_grp1 = group medevac_P;
while {count waypoints _grp1 > 0} do {deletewaypoint (waypoints _grp1 select 0)};

medevac_P assignAsDriver medevac;
medevac_G_1 moveInTurret [medevac, [0]];
medevac_G_2 moveInTurret [medevac, [1]];
medevac_G_3 moveInTurret [medevac, [2]];
medic assignAsCargo medevac;
g1w0 = _grp1 addWaypoint [medevac,0];
g1w0 setWaypointBehaviour "CARELESS";
g1w0 setWaypointType "GETIN";

[units _grp1] orderGetIn true;
_mlzloc = createMarker ["mlzloc", [0,0,0]];
_mlzloc setMarkerShape "ICON";
_mlzloc setMarkerColor "ColorGreen";
"mlzloc" setMarkerType "hd_join";
(vehicle medevac_P) flyInHeight 100;
_x=_this select 0;
_y=_this select 1;

"mlzloc" setMarkerPos [_x,_y,0];

_mlzloc = getMarkerPos "mlzloc";

_gridPos = mapGridPosition _mlzloc;

_grid = toarray _gridPos;

g1wp2=_grp1 addWaypoint [_mlzloc, 75];
g1wp2 setWaypointType "MOVE";
g1wp2 setWaypointBehaviour "COMBAT";
{_x disableAI "AUTOTARGET"; _x disableAI "TARGET"} foreach units _grp1;

_is8 = count _grid;


_1 = switch (_grid select 0) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
_2 = switch (_grid select 1) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
_3 = switch (_grid select 2) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
_4 = switch (_grid select 3) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
_5 = switch (_grid select 4) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
_6 = switch (_grid select 5) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};

if (_is8 == 8) then
	{
	_7 = switch (_grid select 6) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
	_8 = switch (_grid select 7) do {case 48: {"Zero"};case 49: {"One"};case 50: {"Two"};case 51: {"Three"};case 52: {"Four"};case 53: {"Five"};case 54: {"Six"};case 55: {"Seven"};case 56: {"Eight"};case 57: {"Nine"};};
	player kbTell [BIS_SSM_HQWEST,"medevac","grid",["location",{},_gridPos,[_1,_2,_3,_4,_5,_6,_7,_8]],true];
	BIS_SSM_HQWEST kbTell [player,"medevac","inboundmed",["location",{},_gridPos,[_1,_2,_3,_4,_5,_6,_7,_8]],true];
	} else
	{
	player kbTell [BIS_SSM_HQWEST,"medevac","grid",["location",{},_gridPos,[_1,_2,_3,_4,_5,_6]],true];

	BIS_SSM_HQWEST kbTell [player,"medevac","inboundmed",["location",{},_gridPos,[_1,_2,_3,_4,_5,_6]],true];
	};
waituntil {(vehicle medevac_P) distance _mlzloc <= 300};
_type = TGT getVariable "land";

medic kbAddtopic["Transport","BIKB.bikb"];
switch (_type) do
{
    case "auto":
    {

	(vehicle medevac_P) land "GET IN";
	[medic] join (group player);
    };
    case "smoke":
    {
	_wait = true;
	hint "Throw a GREEN smoke grenade to signal LZ, or a RED to Abort";
	medic kbTell [player,"Transport","insight"];
	while {_wait} do
		{
		_smokeg = (markerpos "mlzloc") nearObjects ["SmokeShellGreen",100];
		_qtyg = count _smokeg;
		_smoker = (markerpos "mlzloc") nearObjects ["SmokeShellRed",100];
		_qtyr = count _smoker;
		if (_qtyg > 0) then {player execVM "Airfield_Support_Scripts\CHIN\mclear.sqf"; _wait = false};
		if (_qtyr > 0) then {medevac_P exec "Airfield_Support_Scripts\CHIN\abort.sqs"; _wait = false};
		};

    };
    case "strobe":
    {

	hint "IRStrobe";
	_wait = true;
	hint "Throw a IR STROBE to signal LZ";
	medic kbTell [player,"Transport","insight"];
	_i=0;
	while {_wait AND (_i < 60)} do
		{
		_strobe = (markerpos "lzloc") nearObjects ["IRStrobe",100];
		_qtyg = count _strobe;
		if (_qtyg > 0) then {player execVM "Airfield_Support_Scripts\CHIN\clearstrobe.sqf"; _wait = false};
		_i = _i + 1;
		sleep 1;
		};
    };
};

[metalcraze]

Works now, although after returning to base pilots go into the danger mode (if not earlier). Even if the mission never had enemies.