Drop-in Grenades.

//-----------------------------------------------------------
//  Grenades.cs - Class to add grenades to torque via script
//-----------------------------------------------------------
// This script file is an easy way to add grenades to your
// FPS.  Just exec this script from game.cs and bind a key 
// to call the throwGrenadeDB function
//-----------------------------------------------------------

datablock ItemData(Grenade)
{
   category = "Grenades";
   shapeFile = "starter.fps/data/shapes/items/healthkit.dts";
   mass = 0.7;
   friction = 1;
   elasticity = 0.3; //how much bounce 0.1 = none, 1 = funny
   repairAmount = 50;
   maxDamage = 0.2;
   directDamage = 1;
   damageRadius = 20;
   radiusDamage = 1;
   areaImpulse = 1000;
   dynamicType = $TypeMasks::DamagableItemObjectType;
   explosion = CrossbowExplosion;
   fadeIn = 0;
};

function Grenade::Explode(%dataBlock, %obj)
{
   echo("Grenade::Explode called");
   %pos = %obj.getPosition();
   echo("Grenade::Explode Doing Damaged");
   radiusDamage(%obj,%pos,%dataBlock.damageRadius,%dataBlock.radiusDamage,"Grenade",%dataBlock.areaImpulse);
   %obj.setDamageState(Destroyed);
   %obj.schedule(99, "delete");
}

function Grenade::Damage(%this,%obj,%sourceObject, %position, %damage, %damageType)
{
   echo("Grenade::Damage called");
   //Grenade has recieved damage so detonate it
   cancel(%obj.ExplodeEventID);//Cancel previous explode timer
   %obj.setDamageState(Destroyed);
   %obj.schedule(99,"delete");
}

function Grenade::onDestroyed(%data,%obj)
{
   echo("Grenade::onDestroyed called");
}

function ShapeBase::throwGrenadeDB(%this,%GrenadeTypeDB,%client,%DelayToExplode)
{
	//%GrenadeTypeDB 	= the datablock type for this grenade
	//%client			= client object
	//%time				= time in milliseconds before explode
	
	//Check time is not silly or negative
	if (%DelayToExplode < 1)
		%DelayToExplode = 500;
	
	echo("ShapeBase::throwGrenade grenade, creating item");
	%item = new Item()
	{
		dataBlock 	= %GrenadeTypeDB;
		rotation 	= "1 0 0 " @ (getRandom() * 360);
		sourceObject= %client.player;
		client		= %client;
		ExplodeEventID=0;
	};
	//call the more general throwObject
	%this.throwObject(%item);
	//set detonantion delay
	%item.ExplodeEventID = %GrenadeTypeDB.schedule(%DelayToExplode, "Explode",%item);
	//make sure we tidy up :)
	MissionCleanup.add(%item);
}

function ShapeBase::throwObject(%this,%obj){
   // Throw the given object in the direction the shape is
   // looking.  The force values are hardcoded...
   echo("ShapeBase::throwObject grenade, getting direction");
   %eye = %this.getEyeVector();
   %vec = vectorScale(%eye, 20);
   // Add a vertical component to give the item a better arc
   %dot = vectorDot("0 0 1",%eye);
      if (%dot < 0)
            %dot = -%dot;
      %vec = vectorAdd(%vec,vectorScale("0 0 7",1 - %dot));
      // Add the shape's velocity
      %vec = vectorAdd(%vec,%this.getVelocity());
      // Set the object's position and initial velocity
      %pos = getBoxCenter(%this.getWorldBox());
      %obj.setTransform(%pos);
      echo("ShapeBase::throwObject grenade, Applying impulse");
      // Since the object is thrown from the center of the
      // shape, the object needs to avoid colliding with it's
      // thrower.
      %obj.setCollisionTimeout(%this);    
      %obj.applyImpulse(%pos,%vec);
}