HandleEvent(AssassinateRulerOrder) 'supertremer' pre
{

location_t	tmploc;	// killsallland
int_t		i;
int_t           tmpplayer;
city_t          tmpcity;
int_t           tmpcitypop;
int_t 		T;
int_t 		numunits;
unit_t		tmpUnit;
int_t		l;



			    Event:DisbandArmyOrder(army[0]);
	GetCityByLocation(location[0], tmpcity);
	    numUnits = GetUnitsAtLocation(tmpcity.location);
		    for (i = 0; l < numUnits; l = l + 1) {	// Kill all units
			    GetUnitFromCell(tmpcity.location, i, tmpUnit);
			    Event: DisbandUnit(tmpUnit);
			}
	AddEffect(location[0], "SPECEFFECT_CREATE_PARKS", "SOUND_ID_NANO_TERROR");
	tmpplayer = tmpcity.owner;
	Event:Killcity(tmpcity, 0, tmpplayer);
	Terraform(location[0], 11);		// Transform the city into sea
	GetNeighbor(tmpcity.location, 0, tmpLoc);
		Terraform(tmploc, 16);		// Transform sea
	GetNeighbor(tmpcity.location, 1, tmpLoc);
		Terraform(tmploc, 16);		// Transform sea
	GetNeighbor(tmpcity.location, 2, tmpLoc);
		Terraform(tmploc, 11);		// Transform sea
	GetNeighbor(tmpcity.location, 3, tmpLoc);
		Terraform(tmploc, 11);		// Transform sea
	GetNeighbor(tmpcity.location, 4, tmpLoc);
		Terraform(tmploc, 16);		// Transform sea
	GetNeighbor(tmpcity.location, 5, tmpLoc);
		Terraform(tmploc, 11);		// Transform sea
	GetNeighbor(tmpcity.location, 6, tmpLoc);
		Terraform(tmploc, 11);		// Transform sea
	GetNeighbor(tmpcity.location, 7, tmpLoc);
		Terraform(tmploc, 11);		// Transform sea
			return STOP;
		}

HandleEvent(NanoInfectOrder) 'stellstuff' pre
{

location_t	tmploc;	// enemy city
int_t		i;
city_t tmpcity;
int_t tmpnum;
int_t tmpplayer;
int_t  tmpgold;
int_t	tmpcitys;//54
int_t  tmpgold2;

	GetCityByLocation(location[0], tmpcity);
	tmpplayer = tmpcity.owner;
	tmpgold = PlayerGold(tmpplayer);
	tmpgold2 = tmpgold; 
	tmpnum =  Random(tmpgold2);
	AddGold(army[0].owner, tmpnum);
	addgold(tmpplayer, -tmpnum);
	AddEffect(location[0], "SPECEFFECT_CORPORATE", "SOUND_ID_NANO_TERROR");
	return STOP;
		}


HandleEvent(InvestigateCityOrder) 'terahack' pre {
//70
city_t tmpcity;
int_t tmpplayer;
int_t tmpadvance;

AddEffect(army[0].location, "SPECEFFECT_CORPORATE", "SOUND_ID_NANO_TERROR");
tmpcity = city[0];
tmpplayer = tmpcity.owner;
Event:AddHappyTimer(tmpCity, 100, -15, 14);//no tv or bear makes the big mc go crazzy
event:GiveMap(army[0].owner, tmpcity.owner);
AddEffect(army[0].location, "SPECEFFECT_CORPORATE", "SOUND_ID_NANO_TERROR");
}

HandleEvent(SettleOrder) 'imagrant' pre
{
location_t tmploc;
city_t tmpcity;
army_t		tmpArmy;
unit_t		tmpUnit;
int_t		i;
int_t		armySize;
int_t		unitType;
int_t 		p;
int_t tmpnum;
location_t tmploc2;
unit_t slavunit2; 

			tmploc = army[0].location;


GetCityByLocation(tmploc, tmpcity);
if (CityIsValid(tmpCity)) {
			tmpArmy = army[0];
			armySize = tmpArmy.size;	
			for (i = 0; i < armySize; i = i + 1) {
			GetUnitFromArmy(tmpArmy, i, tmpUnit);
			unitType = tmpUnit.type;
			if (unitType == UnitDB(UNIT_imagrant)) {//100
			i = armySize;
Event:KillUnit(tmpunit, 0, -1);
AddPops(tmpcity, 1);
return STOP;
} else {
			
if (unitType == UnitDB(UNIT_SLAVERtrader)) {
for(p = 0; p < 7; p = p + 1) {
tmpnum = p ;//50
GetNeighbor(tmpcity.location, tmpnum, tmploc2);//40
if(UnitsInCell(tmpLoc2) == 0){
CreateUnit(0, UnitDB(UNIT_slavebait), tmploc2,0 , slavunit2);
                AddGold(army[0].owner, 250);
p = 7;

Event: EnslaveSettler(army[0],tmpunit ,slavunit2);
Event: KillUnit(tmpunit, 0, 1);
return Stop;
i = armysize; 
}
}
	}
}
}
}
}