//究極呪文でテロ
//３０番以外のマスターの本拠地がランダムで壊滅します。
if(Random(5)==0)
{
	Set c,Random(32)
	Set d,Random(3)
	if(KuniFlag[c] && c!=30)
	{
		Set e,BaseArea[c]
		if(d==0)
		{
			Plus AreaCity[e],-50
			Plus AreaWall[e],-50
			Plus AreaRoad[e],-50
		}
		if(d==1)
		{
			Plus AreaCity[e],-80
		}
		if(d==2)
		{
			Plus AreaWall[e],-200
		}
		if(KuniPlayer[c])
		{
			Window 1
			FaceOut c
			WindowOn 100
			Window 0
			Size 356,96
			Print 本拠地で
			if(d==0)
			{
				Print エクスプロージョンによるテロが起こりました。
				Print 街、城壁、道路が５０減少！

			}
			if(d==1)
			{
				Print トルネードによるテロが起こりました。
				Print 街が８０減少！

			}
			if(d==3)
			{
				Print ウォールスマッシュによるテロが起こりました。
				Print 城壁が壊滅！
			}
			WindowOn 4000
			WindowOff
		}
	}
}