HandleEvent(BeginTurn) 'FIRESTORM' post {
int_t	xcoord;
int_t	ycoord;
location_t	tmpLocb;
int_t i;
int_t c;

for(i = -1; i < 50; i = i + 1) {//done in 12 with 800
		xcoord = Random(GetMapWidth());
		ycoord = Random(GetMapHeight());
		MakeLocation(tmpLocb, xcoord, ycoord);           //50

		if (TerrainType(tmpLocb) == 7) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 4);		// Transform jungle

} else {
		if (TerrainType(tmpLocb) == 1) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 5);		// Transform to plain
} else {
		if (TerrainType(tmpLocb) == 5) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 5);		// Transform tundra
} else {
		if (TerrainType(tmpLocb) == 4) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 1);		// Transform snow
} else {
		if (TerrainType(tmpLocb) == 4) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 1);		// Transform grass
} else {
		if (TerrainType(tmpLocb) == 5) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 5);		// Transform desert
} else {
		if (TerrainType(tmpLocb) == 6) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 4);		// Transform swamp
} else {
		if (TerrainType(tmpLocb) == 8) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 19);		// Transform green mountin
} else {
		if (TerrainType(tmpLocb) == 9) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 18);		// Transform green hill
} else {
		if (TerrainType(tmpLocb) == 18) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 18);		// Transform sand dune
} else {
		if (TerrainType(tmpLocb) == 19) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 19);		// Transform sand montin
} else {
		if (TerrainType(tmpLocb) == 20) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 18);		// Transform poler hill
} else {
		if (TerrainType(tmpLocb) == 21) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 19);		// Transform poler monitn
} else {
		if (TerrainType(tmpLocb) == 0) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 4);		// Transform poler hill
} else {
		if (TerrainType(tmpLocb) == 3) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 4);		// Transform poler hill
} else {
		if (TerrainType(tmpLocb) == 2) {

		
		 AddEffect(tmplocb, "SPECEFFECT_FIRES", "SOUND_ID_NANO_TERROR");
		Terraform(tmplocb, 4);		// Transform poler hill
}
}
}
}
}
}
}
}
}
}
}
}
}
}
}		              
  }
}
}