//20080116ランダムイベント　陣営編
//a==発生陣営　b==イベントの種類
//b==0：獲得　1：離反　2：錬金術　3：破産　4：束縛　5：孤独　6：強奪　7：発掘　8：経済成長・・・
Set a,0
if(Flag[30] && Flag[167]==0 && Flag[166]==0)
{
	Start
	Set a,Random(27)
	if(KuniFlag[a]==0 && Random(4)!=0)
	{
		GoTo
	}
}
if(a && KuniFlag[a])
{
	Window 0
	Size 356,96
	Set b,Random(9)
	if (a==1)
	{
		Print オーギュスト帝国
	}
	if (a==2)
	{
		Print ヤーヴェの授け物
	}
	if (a==3 || a==24)
	{
		Print 神罰執行団
	}
	if (a==4)
	{
		Print コモナーフォース
	}
	if (a==5)
	{
		Set b,8
		Print 龍神教
	}
	if (a==6)
	{
		Print 蒼雨海賊団
	}
	if (a==7)
	{
		Print リューネブルク共和国
	}
	if (a==8)
	{
		Print 東方騎士団
	}
	if (a==9 || a==25)
	{
		Print ミケツノタミ
	}
	if (a==10)
	{
		Print マーメイド
	}
	if (a==11)
	{
		Print 銀の教団
	}
	if (a==12)
	{
		Print 貴族連合
	}
	if (a==13)
	{
		Print 森の護り手
	}
	if (a==14)
	{
		Print 魔性の者
		if (b==3 || b==8)
		{
			Set b,2
		}
	}
	if (a==15)
	{
		Print 混血の少年魔術士
	}
	if (a==16)
	{
		Print アメノミハシラ
	}
	if (a==17)
	{
		Print 華国
		if (b==3)
		{
			Set b,2
		}
	}
	if (a==18)
	{
		Print アーベントイアー
	}
	if (a==20)
	{
		Print 黒き森の女王
	}
	if (a==22)
	{
		Print 教皇
	}
	if (a==23)
	{
		Print ブランデンブルク帝国
	}
	if (a==26)
	{
		Print 混血の魔竜
	}
	Set c,BaseArea[a]
	Set f,1
	//獲得　h==加入人材　g==空きエリア
	if (b<2)
	{
		if (AreaButaiKz[c]!=20)
		{
			Set e,%風鈴
			Plus e,Random(262)
			if (HeroFlag[e]==100)
			{
				Set f,2
				Print 《獲得》
				Print どこからともなく人材が現れた！
				WindowOn 100
				CharSet c,e
				Window 1
				FaceOut e
			}
		}
		if (f==2)
		{
			Set b,Random(5)
			Plus b,4
		}
	}
	//強奪　f==強奪対象国　k==強奪Ley等
	if (b==2)
	{
		Set d,0
		Set f,Random(26)
		Plus f,1
		if(a!=f && KuniFlag[f] && Ley[f]!=0)
		{
			Set d,1
			if(Ley[f]<21)
			{
				Set m,Ley[f]
				Set Ley[f],0
			}
			if(Ley[f]<51 && Ley[f]>20)
			{
				Set m,20
				Plus Ley[f],-20
			}
			if(Ley[f]<101 && Ley[f]>50)
			{
				Set m,40
				Plus Ley[f],-40
			}
			if(Ley[f]<201 && Ley[f]>100)
			{
				Set m,80
				Plus Ley[f],-80
			}
			if(Ley[f]<401 && Ley[f]>200)
			{
				Set m,150
				Plus Ley[f],-150
			}
			if(Ley[f]<901 && Ley[f]>400)
			{
				Set m,300
				Plus Ley[f],-500
			}
			if(Ley[f]>900)
			{
				Set m,500
				Plus Ley[f],-500
			}
			Plus Ley[a],m
			if (KuniPlayer[a])
			{
				AreaFocus BaseArea[a]
				Print 《強奪》
				WindowOn 4000
				Window 1
				Size 356,96
			}
			if (KuniPlayer[a]==0)
			{
				Clear
			}
			if (f==1)
			{
				Print オーギュスト帝国
			}
			if (f==2)
			{
				Print ヤーヴェの授け物
			}
			if (f==3 || f==24)
			{
				Print 神罰執行団
			}
			if (f==4)
			{
				Print コモナーフォース
			}
			if (f==5)
			{
				Print 龍神教
			}
			if (f==6)
			{
				Print 蒼雨海賊団
			}
			if (f==7)
			{
				Print リューネブルク共和国
			}
			if (f==8)
			{
				Print 東方騎士団
			}
			if (f==9 || f==25)
			{
				Print ミケツノタミ
			}
			if (f==10)
			{
				Print マーメイド
			}
			if (f==11)
			{
				Print 銀の教団
			}
			if (f==12)
			{
				Print 貴族連合
			}
			if (f==13)
			{
				Print 森の護り手
			}
			if (f==14)
			{
				Print 魔性の者
			}
			if (f==15)
			{
				Print 混血の少年魔術士
			}
			if (f==16)
			{
				Print アメノミハシラ
			}
			if (f==17)
			{
				Print 華国
			}
			if (f==18)
			{
				Print アーベントイアー
			}
			if (f==20)
			{
				Print 黒き森の女王
			}
			if (f==22)
			{
				Print 教皇
			}
			if (f==23)
			{
				Print ブランデンブルク帝国
			}
			if (f==26)
			{
				Print 混血の魔竜
			}
			if (KuniPlayer[a])
			{
				PrintKz m
				Print のLeyを奪った！
			}
			if (KuniPlayer[a]==0 && k)
			{
				Print 《強奪》
				Print Leyを奪われた！
			}
		}
		if(d==0)
		{
			Set b,Random(5)
			Plus b,4
		}
	}
	//孤独
	if (b==3)
	{
		Set f,1
		Start
		if(League[a][f]>0 && League[a][f]!=99)
		{
			Set League[a][f],0
		}
		if(f<27)
		{
			Plus f,1
			GoTo
		}
		Print 《孤独》
		Print 一時同盟が全て破棄された
	}
	//束縛
	if (b==4)
	{
		Set f,-387
		Start
		if(Flag[f]==a)
		{
			Set Flag[f],0
		}
		if(f<-354)
		{
			Plus f,1
			GoTo
		}
		Print 《束縛》
		Print ターンを封じられた
	}
	//発掘
	if (b==5)
	{
		Print 《発掘》
		if (AreaButaiKz[c]==20)
		{
			Print 200Ley相当の金塊を手に入れた！
			Plus Ley[a],200
		}
		if (AreaButaiKz[c]!=20)
		{
			Set f,Random(6)
			if (f==0)
			{
				Print 火のオーブを手に入れた！
				CharSet c,%火のオーブ
			}
			if (f==1)
			{
				Print 水のオーブを手に入れた！
				CharSet c,%水のオーブ
			}
			if (f==2)
			{
				Print 風のオーブを手に入れた！
				CharSet c,%風のオーブ
			}
			if (f==3)
			{
				Print 土のオーブを手に入れた！
				CharSet c,%土のオーブ
			}
			if (f==4)
			{
				Print 光のオーブを手に入れた！
				CharSet c,%光のオーブ
			}
			if (f==5)
			{
				Print 妖精のオーブを手に入れた！
				CharSet c,%妖精のオーブ
			}
		}
	}
	//錬金術
	if (b==6)
	{
		Print 《錬金術》
		Print Leyが２倍になった！
		Plus Ley[a],Ley[a]
	}
	//破産
	if (b==7)
	{
		Print 《破産》
		Print Leyを失った
		Set Ley[a],0
	}
	//経済成長
	if (b>7)
	{
		Start
		if(f<87)
		{
			if(AreaKuni[f]==a)
			{
				Plus AreaCity[f],8
				Plus AreaRoad[f],8
				Plus AreaWall[f],8
			}
			Plus f,1
			GoTo
		}
		Print 《経済成長》
		Print 支配下の領地が開発された
	}
	AreaFocus BaseArea[a]
	WindowOn 4000
	WindowOff
}