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: DisbandUnit(unit[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;
		}