JBOY Fly In Formation [Released]

[johnnyboy 2749]

Here's another script from my Property of Mabunga mission.  If you've tried that mission, please rate and comment on Steam.

 

With this script, you can make any object fly in V formation.  If you use the bird object ("seagull"), the script will play some duck quacking sounds also.  If the object is an air vehicle, it turns engine on.  This script is intended for ambience and cutscenes, as the flying objects have no AI.  Any object can fly, so if flying goats are your thing...have at it.

 

Warning:  This script is currently coded to fly at a single altitude, so if you pass in 50 meters as height, and point the formation at a 100 meter hill, it will fly into the hill.  It works fine if you know that limitation and use it accordingly.  It could be changed to modify Z velocity based on terrain ahead, but I don't plan on doing that any time soon.

How to use:
1. In the editor create an arrow marker to be the starting point of formation.
2. In a trigger or your init file, place a call to my script.  The video demo mission shown above had 5 calls to my script in the init.sqf (2 bird formations and 3 jet formations):
 

dmy = ["seagull", getMarkerPos "mrkDuckStart", markerDir "mrkDuckStart", 300, 10, 25, 20] execvm "Scripts\JBOY_BirdFormation.sqf";
sleep 6;
dmy = ["seagull", getMarkerPos "mrkDuckStart_1", markerDir "mrkDuckStart_1", 1000, 25, 20, 20] execvm "Scripts\JBOY_BirdFormation.sqf";
sleep 15;
dmy = ["B_Plane_CAS_01_F", getMarkerPos "mrkDuckStart_2", markerDir "mrkDuckStart_2", 7000, 15, 150, 400] execvm "Scripts\JBOY_BirdFormation.sqf";
sleep .2;
dmy = ["B_Plane_CAS_01_F", getMarkerPos "mrkDuckStart_2", markerDir "mrkDuckStart_2", 7000, 15, 150, 400] execvm "Scripts\JBOY_BirdFormation.sqf";
sleep .2;
dmy = ["B_Plane_CAS_01_F", getMarkerPos "mrkDuckStart_2", markerDir "mrkDuckStart_2", 7000, 15, 150, 400] execvm "Scripts\JBOY_BirdFormation.sqf";

3. Create a file in your mission directory called "JBOY_BirdFormation.sqf" and put this code in it:

//////////////////////////////////////////////////////////
// JBOY_BirdFormation.sqf 
// By: johnnyboy
// dmy = ["seagull", getMarkerPos "mrkDuckStart", 180,       1000,        10,        50         , 20] execvm "Scripts\JBOY_BirdFormation.sqf";
// dmy = [objType,   startPosition,               Direction, Iterations,  BirdCount, FlockHeight, speed] execvm "Scripts\JBOY_BirdFormation.sqf";
//
// Creates V formation of flying objects
//////////////////////////////////////////////////////////
// ducks fly at 30-50 kph
_objType     = _this select 0;
_startPos    = _this select 1;
_dir         = _this select 2;
_iterations  = _this select 3;
_birdCount   = _this select 4;
_flockHeight = _this select 5;
_speed       = _this select 6;

//_speed =  20;
_xx = 0;
_sleepTime = .1;
// **************************************************************************
// create leader physics object that we can use setvelocity on
// **************************************************************************
_obj = "Land_CanOpener_F" createVehicle [10,10000,0];
_obj setdir _dir;
_obj allowdamage false;

// **************************************************************************
// create bird leader object
// **************************************************************************
_birdLeader = _objType createVehicle [5,5,5];
_obj disableCollisionWith _birdLeader;
_birdLeader setDir getDir _obj;
_birdLeader attachTo [_obj, [0,0,0]];

// **************************************************************************
// Add all objects created to an array so we can delete them later
// **************************************************************************
_objArray = [];
_objArray pushBack _obj;
_objArray pushBack _birdLeader;
 sleep 5;
 
 // Get dimensions of object
 _bbr = boundingBoxReal _birdLeader;
_p1 = _bbr select 0;
_p2 = _bbr select 1;
_maxWidth = abs ((_p2 select 0) - (_p1 select 0));
//_maxLength = abs ((_p2 select 1) - (_p1 select 1));
//_maxHeight = abs ((_p2 select 2) - (_p1 select 2));

// turn engine on for air vehicles
if (_objType isKindOf "Air") then {
    player action["EngineOn", _birdLeader];
};
// **************************************************************************
// Create and attach all follower birds, calculating relative positions for V formation.
// Relative positions based on width of object.  Follower positions randomly tweaked
// a little so bird formation is not "too perfect".
// **************************************************************************
_offset = _maxWidth + (_maxWidth/10);  // space between birds 
for "_i" from 1 to _birdCount -1 do
{
    _bird = _objType createVehicle [5,5,5];
    if (_objType isKindOf "Air") then {
       player action["EngineOn", _bird];
    };
    _objArray pushBack _bird;
    _bird setDir getDir _obj;
    if ((_i mod 2) == 1) then 
    {  // Odd followers to the left
        _bird attachTo [_obj, [_offset*-1 + (random 10/10),_offset*-1, 0]];
     } else
    {  // Even followers to the right
       _bird attachTo [_obj, [_offset + (random 10/10),    _offset*-1, 0]];
       _offset = _offset + _maxWidth + (_maxWidth/10);
    };
};

// **************************************************************************
// Move the birds
// **************************************************************************
_obj setpos [_startPos select 0, _startPos select 1, _flockHeight];

while {_xx < _iterations} do
{
   _xx = _xx + 1;
   //_obj setVectorDirAndUP [[0.728425,0.68065,-0.078186], [0.00150812,0.112526,0.993648]];
   _obj setVelocity [_speed * sin(_dir), _speed * cos(_dir), 0];  
   sleep _sleepTime;
   if (_objType == "seagull") then {
        // Ducks quack periodically    
        _rand = floor(random 100);
        switch ( true )  do 
        {
           case (_rand < 3): { _birdLeader say3d "quack1"  };
           case (_rand < 6): { _birdLeader say3d "quack2"  };
           case (_rand < 9): { _birdLeader say3d "quack3"  };
      
          };
    };
};
// **************************************************************************
// Delete the birds
// **************************************************************************
{deleteVehicle _x;} forEach _objArray;

I just grabbed the duck noises off the web.  You can comment that code out it you want.  If you want the duck sounds, let me know, and I will upload this demo mission so you can pull all the files down.