Part 2!

if you missed it - part ONE was here

So we're going to have clusterbombs spawn after the aircraft passes, and rain down from a right angle, 100 units along the aircraft's flight path, and "saturate" the target area, where our smoke has popped up to mark. For this tutorial, we'll be using the stock particleFX/exposion data of the rocket launcher.

//bombs
function dropBomblets(%start, %vector)
{
	%bombMask = 
  $TypeMasks::VehicleObjectType |      
  $TypeMasks::TerrainObjectType |     
  $TypeMasks::StaticTSObjectType |   
  $TypeMasks::StaticShapeObjectType |
  $TypeMasks::WaterObjectType |
   $TypeMasks::ForestObjectType;//forest replaces obsolete interior


	echo("dropBomblets");
	echo("start = " @ %start);
	%bombarray = new arrayobject();
	MissionCleanup.add(%bombarray);

	//bomblet accuracy
	%spread = 8/800;
	%spread = %spread $= "" ? 0.001 : %spread;
	%spread = %spread <= 0 ? 0.001 : %spread;

	//how many bomblets?
	%Bombloop = 10;
	%Bombcount = 0;	

	// Create each projectile and send it on its way 
	for(%bomb=0; %bomb<%bombloop; %bomb++)
	{
		%velocity = VectorScale(%vector, 500);//500 is the length of checking for an impact - alter to taste

		%x = (getRandom() - 0.5) * 4 * 3.1415926 * %spread * 2.00;
		%y = (getRandom() - 0.5) * 4 * 3.1415926 * %spread * 2.00;
		%z = (getRandom() - 0.5) * 4 * 3.1415926 * %spread * 2.00;
		%mat = MatrixCreateFromEuler(%x @ " " @ %y @ " " @ %z);

		%velocity = MatrixMulVector(%mat, %velocity);
		%aimpoint = VectorAdd(%start, %velocity);
	
		%targetSearch = containerRayCast(%start, %aimpoint, %bombMask);

		%hit = firstword(%targetSearch);

		if(%hit != 0)
		{
			%impactpoint = getWords(%targetSearch, 1, 3);
			
			echo("hit classname = " @ %hit.getClassname());
			if(%hit.getType() == $TypeMasks::waterObjectType)
			{
				echo("WET!");
				%impactPoint = %impactPoint @ " 1";
			}
		
			%dist = vectorDist(%start, %impactpoint);
		
			%bombarray.add(%impactPoint, %dist);
		
		//	debugdraw.togglefreeze();
		//	debugdraw.drawline(%start, %velocity, "0 0 1");

			%Bombcount++;
		}

	}
	
	%bombarray.sortd();
	%bombarray.moveFirst();
	%bombarray.echo();
	
	//bombletStrike(%bombarray, 10);
	
	//%array = %bombarray.getID();
	//echo("array ID = " @ %array);
	schedule(4000, 0, "BombletStrike", %bombarray, %bombcount);
}

function BombletStrike(%array, %bombs)
{
	echo("Bomblet strikes!");
	%total = %array.count();
	echo("array count = " @ %total);
	
	%i = %array.getcurrent();
	%origin = %array.getKey(%i);
	
	%wet = getWordCount(%origin);
	if(%wet == 4)
	{
		echo("wet wordcount = " @ %wet);
		echo("wet1 = " @ %origin);
	
		%origin = getWords(%origin, 0, 2);
		
		echo("wet2 = " @ %origin);
		
		%blast = new explosion()
		{
			dataBlock = RocketLauncherWaterExplosion;
			position = %origin;
		};
		MissionCleanup.add(%blast);
	
	}
	else
	{
		%blast = new explosion()
		{
			dataBlock = RocketLauncherExplosion;
			position = %origin;
		};
		MissionCleanup.add(%blast);
	}
	
	%bombs--;
	
//let's not use standard radiusDamage - let's make a custom!	
	//radiusDamage(%sourceObject, %position, %radius, %damage, %damageType, %impulse)
			airStrikeDamage(0, %origin, 15, 100, "radius", 100 * 10);
		
	if(%bombs < 1)
	{
		%array.empty();
		%array.delete();
	}
	else
	{
		%array.moveNext();
		schedule(200, 0, "bombletStrike", %array, %bombs);
	}
}

Note that bombs will explode on the surface of water, giving the waterExplosion.
When the airstrike hits, it will explode the clusterbombs one at a time, starting with the nearest strike to the point of launch.
Rather than use a standard "radiusDamage" - to show that bombs have much more penetrative power than normal projectiles and can thus punch through walls and obstacles, we're going to use a custom damage function that will ignore all cover.

Finally add:

function AirStrikeDamage(%sourceObject, %position, %radius, %damage, %damageType, %impulse)
{
   InitContainerRadiusSearch(%position, %radius, $TypeMasks::ShapeBaseObjectType);

   	%outerRadius = %radius /1.3;//yorks
     %halfRadius = %radius / 2;
   %quarterRadius = %radius /4;//yorks

   while ((%targetObject = containerSearchNext()) != 0)
   {
	  %range=vectorDist(%targetObject.getposition(), %position);
	  
	if(%range <= %quarterradius)
	{
		%mydamage = %damage * 2;//* 0
		%rangedam ="high - " @ %mydamage/2;
	}
	else
	{
		if(%range <= %halfradius && %range > %quarterradius)
		{
			%mydamage = %damage;// /2
			%rangedam ="medium - " @ %mydamage/2;
		}
		else
		{
			if(%range <= %outerradius && %range > %halfradius)
			{
				%mydamage = %damage /2;// /4
				%rangedam ="low - " @ %mydamage/2;
			}
			else
			{
					%mydamage = %damage /3;// /6
					%rangedam ="lowest - " @ %mydamage/2;
			}
		}
	}
      // Apply the damage
 //     %targetObject.damage(%sourceObject, %position, %damage * %coverage * %distScale, %damageType);
	%targetObject.damage(%sourceObject, %position, %mydamage, %damageType);//damage has to be x2 now ... why
		
		// Apply the impulse
		if (%impulse)
		{
			%impulseVec = VectorSub(%targetObject.getWorldBoxCenter(), %position);//note getPosition can cause a random headshot wtf?
			%impulseVec = VectorNormalize(%impulseVec);

			if(%targetObject.getClassName() $= "AIPlayer" || %targetObject.getClassName() $= "Player")
			{
				%impulseVec = VectorScale(%impulseVec, %impulse);
				%targetObject.applyImpulse(%position, %impulseVec);	
			}
			else
			{
					%impulseVec = VectorScale(%impulseVec, %impulse);
							%targetObject.applyImpulse(%position, %impulseVec);	
			}
		}
	}
}

And that should be that!

Now when you aim the player at a point and enter the command into the console:

airstrike();

A cloud of smoke should mark the target area, an aircraft should spawn 2k units out to the left of the player's view, race across infront of the player in 8 seconds, and 10 bomblets impact on the target zone.

And it should look something like this (only without my custom art assets obviously):


[edit] Loaded the correct video now - doh!
Apologies for the annoying "pings" as I swap camera/player control :P

Enjoy!

" I love the smell of Dual Purpose Improved Conventional Munitions in the morning!"

Thanks to TRON and Silent Mike for their help in finding the old math functions with the wayback machine, and the various people who contributed to those functions back in the day when trolling meant something ...