.Once I get it all working I'll have it all updated but thats the code I have at the moment for it. The repeats in the array for weapons are more for drop percentage, if you repeat a weapon it'll have a higher chance to drop.20:46:00 ":: Carepackage :: Spawn chance Successful..."
20:46:00 ":: Carepackage :: Starting SpawnHeli..."
20:46:14 ":: Carepackage :: Spawn chance Successful..."
20:46:14 ":: Carepackage :: Starting SpawnHeli..."
20:46:26 ":: Carepackage :: Spawn chance Successful..."
20:46:26 ":: Carepackage :: Starting SpawnHeli..."
20:47:06 ":: Carepackage :: Spawn chance Successful..."
20:47:06 ":: Carepackage :: Starting SpawnHeli..."
20:47:32 ":: Carepackage :: Spawn chance Successful..."
20:47:32 ":: Carepackage :: Starting SpawnHeli..."I finally got my test server up and working except for cpbo randomly corrupting the server pbo half the time so I can start polishing it all up (getting it working/no errors). At the moment all the code is more of a work flow of how it is going to work, never done anything with AI so Its probably just my code that is not working, but no errors is a good thing and bad thing at the same time since its not doing anything lol. I'll add some more daig_logs to see where it seems to be stopping but it seems to be near the beginning of the CP_Heli.sqf; I suspect the AI part. I work from home so I may just install a sever on my work OS to work on it while "at work" to try and get it done quicker.
/*
AN-2 Bandit Supply Drop by Vampire
Example Code by Halv
*/
private ["_missName","_coords","_plane","_aiGrp","_pilot","_wp","_wp_pos","_loop","_half","_newPos","_plane2","_chute","_box","_dropDir","_wp2","_fallCount","_boxFin","_smoke"];
//Name of the Mission
//_missName = "Air Drop1";
//DZMSFindPos loops BIS_fnc_findSafePos until it gets a valid result
_coords = call DZMSFindPos;
//[nil,nil,rTitleText,"An AN-2 with Bandit Supplies is Flying In!\nGet to the Location and Capture the Package!", "PLAIN",10] call RE;
//DZMSAddMajMarker is a simple script that adds a marker to the location
//[_coords,_missname] ExecVM DZMSAddMajMarker;
//Lets get the AN2 Flying
_plane = createVehicle ["MV22", [0,0,500], [], 0, "FLY"];
[_plane] call DZMSProtectObj;
_plane engineOn true;
_plane flyInHeight 250;
_plane forceSpeed 400;
//Empty the plane
clearMagazineCargoGlobal _plane;
clearWeaponCargoGlobal _plane;
//Lets make AI for the plane and get them in it
_aiGrp = creategroup east;
_pilot = _aiGrp createUnit ["SurvivorW2_DZ",getPos _plane,[],0,"FORM"];
_pilot moveindriver _plane;
_pilot assignAsDriver _plane;
_wp = _aiGrp addWaypoint [[(_coords select 0), (_coords select 1),150], 0];
_wp setWaypointType "MOVE";
_wp setWaypointBehaviour "CARELESS";
_wp_pos = waypointPosition [_aiGrp,1];
_pilot addWeapon 'NVGoggles';
_pilot addWeapon 'ItemCompass';
_pilot addWeapon 'ItemRadio';
_pilot addWeapon 'ItemMap';
_pilot addWeapon 'ItemGPS';
sleep 5;
/*
//DZMSAISpawn spawns AI to the mission.
//Usage: [_coords, count, skillLevel, unitArray]
[_coords,2,1,"DZMSUnitsMajor"] call DZMSAISpawn;
sleep 5;
[_coords,2,1,"DZMSUnitsMajor"] call DZMSAISpawn;
sleep 5;
[_coords,1,1,"DZMSUnitsMajor"] call DZMSAISpawn;
sleep 5;
*/
_loop = true;
_half = false;
while {_loop} do {
if (!Alive _plane OR !Alive _pilot) then {
sleep 5;
// We are going to pretend the plane was shot down nearby
deleteVehicle _plane;
deleteVehicle _pilot;
_newPos = [(_coords select 0) + (random(2000)),(_coords select 1) - (random(2000)),0];
if (surfaceIsWater _newPos) then {
//newPos is water, so lets just drop it on mark
//This is a temporary fix for needed logic
_newPos = _coords;
};
//Create the plane and kill it
_plane2 = createVehicle ["MV22", [(_newPos select 0),(_newPos select 1),200], [], 0, "FLY"];
[_plane2] call DZMSProtectObj;
_plane2 engineOn true;
_plane2 flyInHeight 200;
_plane2 forceSpeed 400;
sleep 2;
_plane2 setDamage 1;
//Update the location
[_coords,"Air Drop"] ExecVM DZMSAddMajMarker;
//[nil,nil,rTitleText,"The AN2 was shot down by UN Peacekeepers!\nGo Find the Supplies!", "PLAIN",10] call RE;
_chute = createVehicle ["ParachuteMediumEast", [(_newPos select 0),(_newPos select 1),200], [], 0, "FLY"];
[_chute] call DZMSProtectObj;
_box = createVehicle ["USVehicleBox", [(_newPos select 0),(_newPos select 1),200],[], 0, "CAN_COLLIDE"];
[_box] call DZMSProtectObj;
_box attachTo [_chute, [0, 0, 1]];
_smoke = "SmokeShellred" createVehicle (getPos _box);
_smoke attachTo [_box, [0,0,0]];
_loop = false;
};
if ((Alive _plane) AND (Alive _pilot) AND ((_plane distance _wp_pos) <= 1200) AND (!(_half))) then {
//[nil,nil,rTitleText,"The AN2 is only 1200m out from the drop point!", "PLAIN",10] call RE;
//Keep on truckin'
_plane forceSpeed 375;
_plane flyInHeight 200;
_plane setspeedmode "LIMITED";
_half = true;
};
if ((Alive _plane) AND (Alive _pilot) AND ((_plane distance _wp_pos) <= 200)) then {
//Drop the package
_dropDir = getDir _plane;
_newPos = [(getPosATL _plane select 0) - 15*sin(_dropDir), (getPosATL _plane select 1) - 15*cos(_dropDir), (getPosATL _plane select 2) - 10];
//[nil,nil,rTitleText,"The AN2 has reached the location and dropped the cargo!", "PLAIN",10] call RE;
_chute = createVehicle ["ParachuteMediumEast", _newPos, [], 0, "FLY"];
[_chute] call DZMSProtectObj;
_box = createVehicle ["USVehicleBox", _newPos,[], 0, "CAN_COLLIDE"];
[_box] call DZMSProtectObj;
_box attachTo [_chute, [0, 0, 1]];
_smoke = "SmokeShellred" createVehicle (getPos _box);
_smoke attachTo [_box, [0,0,0]];
deleteWaypoint [_aiGrp, 1];
_wp2 = _aiGrp addWaypoint [[0,0,150], 0];
_wp2 setWaypointType "MOVE";
_wp2 setWaypointBehaviour "CARELESS";
_plane forceSpeed 350;
_plane setSpeedmode "FULL";
_loop = false;
};
};
//The box was dropped, lets get it on the ground.
_fallCount = 0;
while {_fallCount < 45} do {
if (((getPos _box) select 2) < 1) then {_fallCount = 46};
sleep 0.1;
_fallCount = _fallCount + 0.1;
};
detach _box;
_box setpos [(getpos _box select 0), (getpos _box select 1), 0];
_boxFin = createVehicle ["USVehicleBox",[(getpos _box select 0),(getpos _box select 1), 0],[],0,"CAN_COLLIDE"];
deletevehicle _box;
deletevehicle _chute;
[[(getpos _boxFin select 0), (getpos _boxFin select 1), 0],"Air Drop"] ExecVM DZMSAddMajMarker;
clearWeaponCargoGlobal _boxFin;
clearMagazineCargoGlobal _boxFin;
clearBackpackCargoGlobal _boxFin;
[_boxFin,"weapons"] ExecVM DZMSBoxSetup;
[_boxFin] call DZMSProtectObj;
//Wait until the player is within 30 meters and also meets the kill req
[position _boxFin,"DZMSUnitsMajor"] call DZMSWaitMissionComp;
//Let everyone know the mission is over
[nil,nil,rTitleText,"A Player is Looting the Air Drop!", "PLAIN",6] call RE;
diag_log text format["[DZMS]: Major SM2 AN2 Drop Mission has Ended."];
deleteMarker "DZMSMajMarker";
deleteMarker "DZMSMajDot";
//Let the timer know the mission is over
DZMSMajDone = true;
