Tit for Tat AI or Total Warfare

After creating the scripted AI earlier, I decided to make it do something.
In the interests of creating something useful I decided to have AI players yell for help when attacked, and have thier comrades come running into battle.
That wasn't as useful as I had hoped so, I extended this to create Total Warfare, in this mod everyone yells for help. It's most interesting if you spawn the same number of units for both player and AI.
Here ya go.
At the bottom of server/scripts/core/game.cs add the following.

//--------------------------------------------------------------
//Misc. Game AI functions 
//--------------------------------------------------------------

//Shout for help!
function AIShoutForHelp(%shouter,%target,%AI){
     //%searchMasks = -1;
     %searchMasks = $TypeMasks::PlayerObjectType;
    %radius = 5000;
     InitContainerRadiusSearch(%shouter.getPosition(), %radius, %searchMasks);
    while ((%NewObject = containerSearchNext()) != 0){
	%id = %NewObject.getId();
	if(%id.getTeam() == %shouter.getTeam() && %id.isBuilding != 1 && !isObject(%id.getAimObject())){
		AISetToAttack(%id,%target);
		echo(%id@" says help is on the way!");
	}
   }
   //%id.dump();	
}

//Setup AI for Attack
function AISetToAttack(%obj,%sourceObject){
	%obj.stopAll();
	%obj.setAimObject(%sourceObject);
	%obj.getDatablock().onAttack(%obj,%sourceObject);
}

Now in server/scripts/avatars/player.cs find the RTSUnitData::damage function and add this.

if(!isObject(%obj.getAimObject()){
	AISetToAttack(%obj,%sourceObject);
}
AIShoutForHelp(%obj,%sourceObject,%obj.isAI);  //This line could start a war!

In the same file replace the RTSUnitData::onDamage function and replace it with this one.

function RTSUnitData::onDamage(%this, %obj, %delta){
   if(%obj.isAI !=1){
   	messageClient(%obj.client, 'MsgUnitAttacked', "", getWords(%obj.getPosition(), 0, 2));
   }
}

Finally open bots.cs, rifleman.cs and shocker.cs and replace the %target.applyDamage line with this one.

%target.damage(%attacker,0,%damage,"MELEE");

Thats it! Enjoy your mutually assured destruction!