0.42a STATIC

/////     /////     /////     /////     /////     /////     /////     /////     /////
/////////////////////////////////////////////////////////////////////////////////////
///////////////mmmyum's random animated air raid dayz////////////////////////////////
/////////////////////////////////////////////////////////////////////////////////////
//    README
// change setup to suit your needs
// read further comments if you'd like to customize further
//
//special thanks to arma scripters maxjoiner and darkxess from armaholic, and the opendayz community!//
//
//mmmyum
//
///////////////////////////////////////////////////INITIALIZE

private ["_preWaypointPos","_spawnMarker","_spawnRadius","_x","_wp","_espl","_sound","_duration","_aispawncoords","_aispawn","_rndSel","_loc","_city","_z","_xx","_y","_coords","_target","_posdebug","_heliModel","_heliStart","_safetyPoint","_bomberName","_positionLand","_startTime","_bomber","_landingzone2","_aigroup2","_helipilot2","_wp2","_pos","_siren","_pos1","_bombardStart","_bombardDone","_wp3","_posBomb","_repeat","_break","_choice","_rmodyn","_preWaypoints","_sounddist","_ray","_xypossir","_pos2","_targetpos","_pos2cnt","_seconds","_dblsecs","_playNum","_poswhistl","_sirenB"];
_loc = ["BalottaAirstrip",1.5,4829.9868,2450.1104];
_city = "BalottaAirstrip";
_xx = 4829.9868;
_y = 2450.1104;
_z = 1.5;
_coords = [_xx,_y,_z];
diag_log format ["RANDOM WORLDSPACE: Initializing defaults... %1 | %2 %3 %4|",_city,_xx,_y,_z];
sleep 1;
////////////////////////////////////////////////////SETUP SETUP SETUP//SETUP SETUP SETUP//SETUP SETUP SETUP//SETUP SETUP SETUP//SETUP SETUP SETUP
_repeat = 30;                             //times to repeat
_break = 300;                             //time to break between attacks, in seconds
_choice = 1;                              //type of bombing 1 light, 2 medium, 3 heavy
_duration = 60;                           //how long the bombing should last - really how many bombs are dropped assuming 1 per cycle
_rmodyn = false;                              //1 if you have rmod, 0 if you don't (mv22 mi24 vs uh1h and mi17)
_preWaypoints = 0;                        //untested, add waypoints before arriving at location.
_sounddist = 1500;                        //distance sounds are audible at
_ray = 120;                               //ray of bombing
_seconds = _duration; // time bombing dont change me
_dblsecs = _seconds * 2;
////////////////////////////////////////////////////END SETUP//END SETUP//END SETUP//END SETUP//END SETUP//END SETUP//END SETUP//END SETUP
//selector
While {_repeat > 1} do {
_duration = 60;                           //how long the bombing should last - really how many bombs are dropped assuming 1 per cycle
_rndSel=floor(random 49); //select random number 0-49, then set loc based on the case number//change locations if you'd like, format ["name",z,x,y]
_loc=
switch (_rndSel) do {
case 0: {["Electro",1.5,10480.69,2217.8027]};
case 1: {["Electro",1.5,10480.69,2217.8027]};
case 2: {["Electro",1.5,10480.69,2217.8027]};
case 3: {["Electro",1.5,10480.69,2217.8027]};
case 4: {["Electro",1.5,10480.69,2217.8027]};
case 5: {["Electro",1.5,10480.69,2217.8027]};
case 6: {["Electro",1.5,10480.69,2217.8027]};
case 7: {["Electro",1.5,10480.69,2217.8027]};
case 8: {["Electro",1.5,10480.69,2217.8027]};
case 9: {["Electro",1.5,10480.69,2217.8027]};
case 10: {["Electro",1.5,10480.69,2217.8027]};
case 11: {["Electro",1.5,10480.69,2217.8027]};
case 12: {["Electro",1.5,10480.69,2217.8027]};
case 13: {["Electro",1.5,10480.69,2217.8027]};
case 14: {["Electro",1.5,10480.69,2217.8027]};
case 15: {["Electro",1.5,10480.69,2217.8027]};
case 16: {["Electro",1.5,10480.69,2217.8027]};
case 17: {["Electro",1.5,10480.69,2217.8027]};
case 18: {["Electro",1.5,10480.69,2217.8027]};
case 19: {["Electro",1.5,10480.69,2217.8027]};
case 20: {["Electro",1.5,10480.69,2217.8027]};
case 21: {["Electro",1.5,10480.69,2217.8027]};
case 22: {["Electro",1.5,10480.69,2217.8027]};
case 23: {["Electro",1.5,10480.69,2217.8027]};
case 24: {["Electro",1.5,10480.69,2217.8027]};
case 25: {["Electro",1.5,10480.69,2217.8027]};
case 26: {["Electro",1.5,10480.69,2217.8027]};
case 27: {["Electro",1.5,10480.69,2217.8027]};
case 28: {["Electro",1.5,10480.69,2217.8027]};
case 29: {["Electro",1.5,10480.69,2217.8027]};
case 30: {["Electro",1.5,10480.69,2217.8027]};
case 31: {["Electro",1.5,10480.69,2217.8027]};
case 32: {["Electro",1.5,10480.69,2217.8027]};
case 33: {["Electro",1.5,10480.69,2217.8027]};
case 34: {["Electro",1.5,10480.69,2217.8027]};
case 35: {["Electro",1.5,10480.69,2217.8027]};
case 36: {["Electro",1.5,10480.69,2217.8027]};
case 37: {["Electro",1.5,10480.69,2217.8027]};
case 38: {["Electro",1.5,10480.69,2217.8027]};
case 39: {["Electro",1.5,10480.69,2217.8027]};
case 40: {["Electro",1.5,10480.69,2217.8027]};
case 41: {["Electro",1.5,10480.69,2217.8027]};
case 42: {["Electro",1.5,10480.69,2217.8027]};
case 43: {["Electro",1.5,10480.69,2217.8027]};
case 44: {["Electro",1.5,10480.69,2217.8027]};
case 45: {["Electro",1.5,10480.69,2217.8027]};
case 46: {["Electro",1.5,10480.69,2217.8027]};
case 47: {["Electro",1.5,10480.69,2217.8027]};
case 48: {["Electro",1.5,10480.69,2217.8027]};
case 49: {["Electro",1.5,10480.69,2217.8027]};
};
_city = _loc select 0;
_z = _loc select 1;
_xx = _loc select 2;
_y = _loc select 3;
_coords = [_xx,_y,_z]; ////////////////////////////////////////////////does this need spaces?
diag_log format ["RANDOM WORLDSPACE: %1 | %2",_city,_coords];
sleep 1;
diag_log format ["RANDOM WORLDSPACE SELECTED: %1 | City: %2 | Coords: %3  %4 |||Try %5",_rndSel,_city,_xx,_y,_repeat];
//_repeat = _repeat - 1;/////////////////////////////////////////not sure why this was here
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//above  ---- the worldpace is selected, coordinates stored in _coords = [_xx,_y,_z]/////////////////////////////////////////////////////////
//below  ---- chopper is created, flies to waypoint _coords while sirens play, hangs around till bombs are done flies off and is deleted/////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//CREATE TARGET///////////////
_loc = createVehicle ["HeliHEmpty", _coords,[], 0, "NONE"];
_target = createVehicle ["HeliHEmpty",position _loc,[], 0, "NONE"];
_posdebug = position _target;
diag_log format ["AIRRAID: SEL: %1 | TARGET: %2 | SHOULD MATCH APPROX",_posdebug,_coords];
/////above is the target to bomb
sleep 2;
    //Random Heli-Type
    //if (_rmodyn) then {
    //  _heliModel = ["Mi24_D","MV22"] call BIS_fnc_selectRandom;
    //} else {
    //  _heliModel = ["UH1H_DZ","Mi17_DZ"] call BIS_fnc_selectRandom;
    //};
    _heliModel = "UH1H_DZ";
    //Random-Startpositions, Adjust this for other Maps then Chernarus //////////////////////////////mmmyum - change me to where you want heli to start, ie over carrier?
    _heliStart = [[6993.7007,173.05298,300],[1623.715,218.18848,300]] call BIS_fnc_selectRandom;

    //A Backup Waypoint, if not Chernarus, set some Coordinates far up in the north (behind all possible Crashsites)////again, change to whereever you would like
    _safetyPoint = [7492.6675, 15263.042];

    _bomberName = getText (configFile >> "CfgVehicles" >> _heliModel >> "displayName");

    diag_log(format["AIRRAID: BOMBER: %1 | Lift Off at %2 | with Backup WP %3",_bomberName,str(_heliStart),str(_safetyPoint)]);
    diag_log(format["AIRRAID: BOMBER: %1 | TYPE: %2 |",_bomberName,_heliModel]);

    _positionLand = [position _target,0,200,5,0,2000,0] call BIS_fnc_findSafePos; //set chopper destination

    diag_log(format["AIRRAID: BOMBER: %1 started flying from %2 to %3 NOW!(TIME:%4|)", _bomberName,  str(_heliStart), str(_positionLand), round(time)]);

        //Spawn the AI-Heli flying in the air
        _startTime = time;
        _bomber = createVehicle [_heliModel,_heliStart, [], 0, "FLY"];

        //Make sure its not destroyed by the Hacker-Killing-Cleanup (Thanks to Sarge for the hint)
        _bomber setVariable["Sarge",1,true];                //I'm unsure what do to here, so I'm leaving it

        _bomber engineOn true;
        _bomber flyInHeight 350;
        _bomber forceSpeed 250;
        //_bomber setspeedmode "LIMITED";

        //Create an Invisibile Landingpad at the Crashside-Coordinates
        _landingzone2 = createVehicle ["HeliHEmpty", [_positionLand select 0, _positionLand select 1,0], [], 0, "CAN_COLLIDE"]; //_targets x,y
        _landingzone2 setVariable["Sarge",1];
        diag_log(format["AIRRAID: BOMBER: LANDINGZONE: %1 | BOMBER POS: %2 | POS LAND: %3",str(getPosATL _landingzone2),str(getPosATL _bomber),str(_positionLand)]);

        //Only a Woman could crash a Heli this way...
        _aigroup2 = creategroup civilian;
        _helipilot2 = _aigroup2 createUnit ["SurvivorW2_DZ",getPos _bomber,[],0,"FORM"];
        _helipilot2 moveindriver _bomber;
        _helipilot2 assignAsDriver _bomber;


        sleep 0.5;

        if(_preWaypoints > 0) then {
            for "_x" from 1 to _preWaypoints do {
                    _preWaypointPos = [getMarkerPos _spawnMarker,0,_spawnRadius,10,0,2000,0] call BIS_fnc_findSafePos;
                };
                diag_log(format["AIRRAID: BOMBER: Adding Pre-POC-Waypoint #%1 on %2", _x,str(_preWaypointPos)]);
                _wp = _aigroup2 addWaypoint [_preWaypointPos, 0];
                _wp setWaypointType "MOVE";
                //_wp setWaypointBehaviour "CARELESS";
            };

        _wp2 = _aigroup2 addWaypoint [position _target, 0];
        _wp2 setWaypointType "MOVE";
        //_wp2 setWaypointBehaviour "CARELESS";

        //Get some more Speed when close to the Crashpoint and go on even if Heli died or hit the ground
        waituntil {(_bomber distance _positionLand) <= 2500};
            _bomber flyInHeight 300;
            _bomber forceSpeed 260;
            _bomber setspeedmode "NORMAL";
///////////////////////////////////////////////////////////////////START SIRENS/////////////////////////////////////////////////////
                _xypossir = position _target;
                diag_log format ["AIRRAID: INCOMING ATTACK: Sounding Siren at: %1 %2 | Repeat: %3| Type: %4 | Duration: %5",_xypossir,_wp2,_repeat,_choice,_duration];
                _pos = position _target;
                diag_log format ["AIRRAID: POS: %1 | TARGET: %2 | SHOULD MATCH",_pos,_coords];

                _siren = createVehicle ["HeliHEmpty",position _target,[], 0, "NONE"];                      //create siren
                _sirenB = createVehicle ["HeliHEmpty",position _target,[], 0, "NONE"];

                //diag_log(format["AIRRAID SIREN play attempt siren created, objNull puk 2500||  %1",time]);
                //[objNull, _siren, rSAY, ["puk", 2500]] call RE;
                //sleep 20;
                //if (isPlayer _x AND (_x distance _siren) < 1500) then {
                //} foreach playableUnits;
                //diag_log(format["AIRRAID SIREN play attempt siren1s %1",time]);
                //10 fadeSound 1; // Fades sound in over time

                _pos1 = position _siren;
                diag_log format ["AIRRAID: SIREN: %1 | TARGET: %2 | SHOULD MATCH APPROX",_pos1,_coords];
                diag_log(format["AIRRAID: BOMBER: %1 is at %2!, ", _bomberName, str(getPosATL _bomber)]);
                [nil,_sirenB,rSAY,['puk', 3500]] call RE;

                ////////////////////////////////////////////////////////Sound the alarm
                    _playNum = 15;
                    while {_playNum > 0} do {

                            //_siren say ["nam",_sounddist];
                            //_siren1S = [objNull, _siren, rSAY, ["nam", 2500]] call RE;
                            //[objNull, _siren, rSAY, ["nam", 2500]] call RE;
                            [nil,_siren,rSAY,['nam', 3500]] call RE;
                            //_nul = [nil, _siren, rSAY, ["nam", 2500]] call RE; // This is a RPC sound call for the sound

                    sleep 10;
                    diag_log(format["AIRRAID: Playing Siren TRY 1 NO FOREACH at %1 | Siren Nam 2500",str(getPosATL _siren)]);
                    _playNum = _playNum - 1;
                    };

                    sleep 10;
                    /////////////Sound alarm try 2 with foreach
                    _playNum = 15;
                    while {_playNum > 0} do {
                        {
                            //_siren say ["nam",_sounddist];
                            //_siren1S = [objNull, _siren, rSAY, ["nam", 2500]] call RE;
                            //[objNull, _siren, rSAY, ["nam", 2500]] call RE;
                            [nil,_siren,rSAY,['nam', 3500]] call RE;
                            //_nul = [nil, _siren, rSAY, ["nam", 2500]] call RE; // This is a RPC sound call for the sound
                        } foreach playableUnits;

                    sleep 11;
                    diag_log(format["AIRRAID: Playing Siren TRY 2 FOREACH at %1 | Siren Nam 2500",str(getPosATL _siren)]);
                    _playNum = _playNum - 1;
                    };
//////////////////////////////////////////////////////////end siren loops - TODO - add short siren below for each step

        //waituntil {(_bomber distance _positionLand) <= 1500};
            _bomber flyInHeight 300;
            _bomber forceSpeed 180;
            _bomber setspeedmode "NORMAL";
            diag_log(format["AIRRAID: BOMBER: %1 is at %2!, ", _bomberName, str(getPosATL _bomber)]);
            [nil,_siren,rSAY,['eve', 3500]] call RE;
            sleep 20;
            [nil,_sirenB,rSAY,['puk', 3500]] call RE;

        //waituntil {(_bomber distance _positionLand) <= 700};
            _bomber flyInHeight 300;
            _bomber forceSpeed 120;
            _bomber setspeedmode "NORMAL";
            _bombardStart = true; //set var so we know to start bombing (heli is in position)
            diag_log(format["AIRRAID: BOMBER: %1 Bombing Initialize: arrived at %2!, ", _bomberName, str(getPosATL _bomber)]);

///////////////////////////////////////////////////START BOMBING////////////////////////////////////////////////////////////////////
diag_log format ["AIRRAID: Bombing Area: %1",_xypossir];

//bomb while _duration > 1
_pos2 = [getPosATL _siren];
[nil,_sirenB,rSAY,['eve', 3500]] call RE;
[nil,_siren,rSAY,['puk', 3500]] call RE;
While {_duration > 1} do {
_sound = createVehicle ["HeliHEmpty",position _target,[], _ray, "NONE"];
[nil,_sound,rSAY,['mortar1', 3500]] call RE;
//_sound say ["mortar1",3500];
_pos2 set [_seconds, getPosATL _sound];
sleep 2;
If (_choice == 1) then {
_espl = createVehicle ["SH_105_HE",position _sound,[], 0, "NONE"];
};
If (_choice == 2) then {
_espl = createVehicle ["SH_125_HE",position _sound,[], 0, "NONE"];
};
If (_choice == 3) then {
_espl = createVehicle ["BO_GBU12_LGB",position _sound,[], 0, "NONE"];
};
_pos2 = [_dblsecs,getPosATL _espl];
_poswhistl = getPosATL _sound;
_targetpos = getPosATL _target;
_pos2cnt = count _pos2;
diag_log format ["AIRRAID: BOMB: %1 | TARGET: %2 | SHOULD MATCH APPROX ||| debug arraycount %3 | number %4 | sound %5",str(_pos2),_targetpos,_pos2cnt,_duration,_poswhistl];
_duration = _duration - 1;
deletevehicle _sound;
}; // Close while loop. loop while _duration >1
_bombardDone = true; //set done bombing
///////////////////////////////////////////////////END SIRENS AND BOMBING, HELI LOWER TO GROUND, (SPAWN AIs), FLY AWAY//////////////////////////////////////////////////////////////

        waituntil {_bombardDone}; ///////////////////hover over town until town is bombed to shit
            _bomber flyInHeight 15;
            _bomber forceSpeed 140;
            _bomber setspeedmode "NORMAL";
            diag_log(format["AIRRAID: BOMBER: %1 has Completed Bombing at %2!, ", _bomberName, str(getPosATL _bomber)]);
            if (_repeat > 25) then {
            _aispawncoords = position _bomber;
            diag_log(format["AIRRAID: BOMBER: AISPAWN: %1 ",_aispawncoords]);
            _aispawn = [[_aispawncoords select 0,_aispawncoords select 1,0],5000,20,6] execVM "units\add_unit_server.sqf"; //whole map waypoints//mmmyum//spawn ais (probably shouldn't run this every time)////
            };
        //Giving the crashed Heli some time to leave
        sleep 15;

        //Adding a last Waypoint up in the North, to send bomber away after completion. Chane this location (_safetypoint) to where you want the AI to seem to originate from
        _wp3 = _aigroup2 addWaypoint [_safetyPoint, 0];
        _wp3 setWaypointType "MOVE";
        _wp3 setWaypointBehaviour "CARELESS";

        //Get position of the helis
        _posBomb = [getpos _bomber select 0, getpos _bomber select 1,0];
        sleep 2;
        _bomber forceSpeed 200;
        _bomber flyInHeight 300;
        _bomber setspeedmode "NORMAL";
        diag_log(format["AIRRAID: BOMBER: %1 Leaving Area %2!, ", _bomberName, str(getPosATL _bomber)]);

//////////////////////////////////////////////////////////CLEAN UP//CLEAN UP//CLEAN UP//
        sleep 15;
        waituntil {(_bomber distance _safetyPoint) <= 2000};
            //_bomber set damage 1;
            //_bomber set fuel 0;
            _bomber setspeedmode "NORMAL";
            sleep 3;
            deletevehicle _bomber;
            deletevehicle _landingzone2;
            deletevehicle _helipilot2;
            _repeat = _repeat - 1;
            deletevehicle _siren;
            deletevehicle _loc;
            deletevehicle _target;
            diag_log format ["AIRRAID: Going down for sleep: Repeat:%1 | Sleep:%2",_repeat,_break];
            sleep _break;
}; //close while loop. loop -  while _repeat > 1
exit