//地方統一献金イベント　発生したターンをLeagueに記憶
Set x,StartTurn
if(StartTurn>200)
{
	Set x,200
}
Set p,Ley[56]
if(League[1][81]==0 && KuniPlayer[p] && AreaKuni[1]==p && AreaKuni[2]==p && AreaKuni[3]==p && AreaKuni[4]==p && AreaKuni[5]==p && AreaKuni[7]==p && AreaKuni[8]==p && AreaKuni[9]==p && AreaKuni[10]==p && AreaKuni[11]==p && AreaKuni[12]==p && AreaKuni[13]==p && AreaKuni[17]==p && AreaKuni[18]==p && AreaKuni[19]==p)
{
	AreaFocus 13
	Window 0
	Size 356,96
	Print 中原を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print 中原の民より支持が集まっています。
		Print ６００Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、中原の民から
		Print ６００Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][81],x
	Plus Ley[p],600
}
if(League[1][82]==0 && KuniPlayer[p] && AreaKuni[61]==p && AreaKuni[62]==p && AreaKuni[63]==p && AreaKuni[64]==p && AreaKuni[65]==p && AreaKuni[66]==p && AreaKuni[67]==p && AreaKuni[68]==p)
{
	AreaFocus 61
	Window 0
	Size 356,96
	Print 東国を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print 東方の民より支持が集まっています。
		Print ４００Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、東方の民から
		Print ４００Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][82],x
	Plus Ley[p],400
}
if(League[1][83]==0 && KuniPlayer[p] && AreaKuni[32]==p && AreaKuni[33]==p && AreaKuni[34]==p && AreaKuni[36]==p && AreaKuni[50]==p && AreaKuni[51]==p && AreaKuni[52]==p)
{
	AreaFocus 36
	Window 0
	Size 356,96
	Print 大陸西部平原を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print 平原の民より支持が集まっています。
		Print ３２０Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、平原の民から
		Print ３２０Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][83],x
	Plus Ley[p],320
}
if(League[1][84]==0 && KuniPlayer[p] && AreaKuni[22]==p && AreaKuni[23]==p && AreaKuni[24]==p && AreaKuni[25]==p && AreaKuni[26]==p)
{
	AreaFocus 22
	Window 0
	Size 356,96
	Print ヴァロア地方を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print ヴァロア地方の民より支持が集まっています。
		Print ２４０Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、ヴァロア地方の民から
		Print ２４０Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][84],x
	Plus Ley[p],240
}
if(League[1][85]==0 && KuniPlayer[p] && AreaKuni[20]==p && AreaKuni[55]==p && AreaKuni[56]==p && AreaKuni[57]==p && AreaKuni[58]==p)
{
	AreaFocus 20
	Window 0
	Size 356,96
	Print 雪原地帯を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print 雪原の民より支持が集まっています。
		Print ２２０Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、雪原の民から
		Print ２２０Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][85],x
	Plus Ley[p],220
}
if(League[1][86]==0 && KuniPlayer[p] && AreaKuni[48]==p && AreaKuni[45]==p && AreaKuni[46]==p && AreaKuni[47]==p)
{
	AreaFocus 48
	Window 0
	Size 450,420
	WindowCenter
	Print 　
	OutPrint 20,30, ――ホセ山脈――
	OutPrint 20,70, 大陸北南を横断する、この険しい山脈は、
	OutPrint 20,90, オリゾンテ最大のスケールを誇り、
	OutPrint 20,110, 大陸を中原と西部に分断する、自然の障壁です。
	OutPrint 20,150, 中でも最高峰は、高度五千メートル近くにも到達し、
	OutPrint 20,170, 山頂付近は、永久雪で形成された氷河で覆われています。
	/////仮///////
	OutPrint 20,210, なおこの氷河は、いまより１５０年以上昔、人・魔・竜、
	OutPrint 20,230, 三すくみの暗黒時代に、竜族達の本拠地が存在し
	OutPrint 20,250, クライス＝ルーベンス王（後の英雄帝）
	OutPrint 20,270, 率いる１９人の精鋭達が
	OutPrint 20,290, 竜王・暗黒竜ガイアを打ち破った場所として有名です。
	OutPrint 20,330, その一節を詠ったサーガは、
	OutPrint 20,350, オリゾンテの歴史の、黄金に輝く英雄伝説として、
	OutPrint 20,370, 人々の間で深く愛しまれ、語り継がれています。
	WindowOn 0
	Clear
	Print 　
	OutPrint 20,30, 軍隊によるホセ山脈越えは、非常に困難であり
	OutPrint 20,50, 自由に大空を飛べる、魔族、竜族の類を除いては、
	OutPrint 20,70, 「6ルーベンスの関」、「46ホセ山脈盆地」
	OutPrint 20,90, 二つの要所を通る以外に道は存在しません。
	OutPrint 20,130, その内のルーベンスの関は、帝都と西部の主要都市
	OutPrint 20,150, を結ぶ重要な関所で、この街道を制した者が
	OutPrint 20,170, 天下を収める資格があるといっても過言ではないでしょう。
	OutPrint 20,210, ホセ山脈南西部に位置するゲラス山は
	OutPrint 20,230, 現在も活動中の活火山であり、噴火による被害が懸念され
	OutPrint 20,250, その山頂付近では、過去の戦いで大陸を追われた
	OutPrint 20,270, 一部の竜族達が、細々と生活をしています。
	WindowOn 0
	WindowOff
	if(KuniPlayer[5])
	{
		Window 1
		Conversation 5
		Print まあ、近い将来、ホセ山脈は
		Print 俺様の活躍で「グレンド山脈」
		Print と改名される予定なんだがな！
		WindowOn 0
		Clear
		Print 山頂の見晴らしは、絶好のスポットで
		Print 俺様のお気に入りなんだぜ！
		WindowOn 0
		Clear
		Print 帝都オーガスタから、カイザーブルク、
		Print フェルミナまで一望できるんだ！
		WindowOn 0
		Window 0
		Conversation %シスタ
		Print ボソボソッ……。
		Print （煙となんとかは高い所が好きって話ですわね）
		WindowOn 0
		Window 1
		Conversation 5
		Print ん、何か言ったかあ？
		WindowOn 0
		Window 0
		Conversation %シスタ
		Print （ほわっとっ！…地獄耳ならぬ、龍神耳！！）
		Print 何でもありません！　さようなら〜！
		WindowOn 0
		WindowOff
	}
	Window 0
	Size 356,96
	Print ホセ山脈を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print 山の民より支持が集まっています。
		Print １８０Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、山の民から
		Print １８０Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][86],x
	Plus Ley[p],180
}
if(League[1][87]==0 && KuniPlayer[p] && AreaKuni[73]==p && AreaKuni[74]==p && AreaKuni[75]==p && AreaKuni[76]==p)
{
	AreaFocus 73
	Window 0
	Size 450,480
	WindowCenter
	Print 　
	OutPrint 20,30, ――ニクサー海――
	OutPrint 20,70, オリゾンテ南東に位置する、この海域は
	OutPrint 20,90, 珊瑚礁が多く広がる、自然豊かな豊饒の海です。
	OutPrint 20,130, 大陸から独立した島々には、独自の生態系が育まれ、
	OutPrint 20,150, 島民達は、主に漁によって生活を営みます。
	OutPrint 20,190, 「海神の玄関」と比喩される美しい島々も、
	OutPrint 20,210, 戦略的にはほぼ無価値で、軍隊がここへ兵を進める
	OutPrint 20,230, 可能性は皆無といっても良い程でした。
	OutPrint 20,270, そう、海竜神殿の出現までは……
	WindowOn 0
	Clear
	Print 　
	OutPrint 20,30, ――海竜神殿――
	OutPrint 20,70, ニクサー諸島南のこの島は、長年に渡り
	OutPrint 20,90, 人々の記憶より忘れさられていた、人魚族と竜族の楽園でした。
	OutPrint 20,130, 百余年前、竜族は暗黒竜ガイア封印と共に散り、
	OutPrint 20,150, 人魚族も程なく姿を消して、廃墟となります。
	OutPrint 20,190, しかし、現在より数ヶ月ほど前、絶滅したはずの
	OutPrint 20,210, マーメイドの存在が確認、認知されます。
	OutPrint 20,250, 竜族には輝く宝石を集める性質があり
	OutPrint 20,270, 竜族と懇意にしていた人魚族が支配する海竜神殿にも
	OutPrint 20,290, 数多くの財宝が眠っていると噂され、
	OutPrint 20,310, また、古来より人魚の肉は不老長寿を授ける霊薬と呼ばれ、
	OutPrint 20,330, 富豪の間で高値で取引されます。
	OutPrint 20,370, 噂の真偽はともかく、
	OutPrint 20,390, 西ニクサー海に隣接する歓楽街アルヴァでは
	OutPrint 20,410, 人魚狩りや、海竜神殿の財宝を狙い一攫千金を目論む
	OutPrint 20,430, トレジャーハンター達で溢れ、治安が悪化しています。
	WindowOn 0
	WindowOff
	if(HeroKuni[%ホワイト]==10 || HeroKuni[%覚醒ホワイト]==10 && KuniPlayer[10])
	{
		Window 1
		Conversation %ホワイト２
		Print ようするに、ボク達人魚族は
		Print 人間達にとって、カモがネギをしょった
		Print 絶好の獲物って事だね！
		WindowOn 0
		if(HeroKuni[%ブラック]==10 || HeroKuni[%ブラック覚醒]==10 || HeroKuni[%シア]==10)
		{
			Window 0
			if(HeroKuni[%ブラック]==10 || HeroKuni[%ブラック覚醒]==10)
			{
				Conversation %ブラック
				Print けど私達は、狩りを待つだけの家畜じゃないわ。
				Print 襲ってくる奴らは、みんな撃退して、
				Print 逆に身包み剥いで、マッパにしてあげるの。
			}
			if(HeroKuni[%ブラック]==0 && HeroKuni[%ブラック覚醒]==0)
			{
				Conversation %シア
				Print でも私達は、怯える子猫ちゃんじゃありません。
				Print 過ぎた悪戯をする人にはお仕置きです。
				Print 見学料は身体（服）で払って頂きますわ〜♪
			}
			WindowOn 0
			Window 1
			Conversation %ホワイト３
			Print あうあう、すごい事いってる……。
			WindowOn 0
			Print ――せめて下着だけでも、残しておかない？
			Print だって、恥ずかしいんだもん……。
			WindowOn 0
			Window 0
			Conversation 10
			Print ……そういう問題ではないと思います。
			WindowOn 0
		}
		WindowOff
	}
	Window 0
	Size 356,96
	Print ニクサー海を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print 海の民より支持が集まっています。
		Print １８０Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、海の民から
		Print １８０Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][87],x
	Plus Ley[p],180
}
if(League[1][88]==0 && KuniPlayer[p] && AreaKuni[42]==p && AreaKuni[43]==p && AreaKuni[44]==p && AreaKuni[41]==p)
{
	AreaFocus 42
	Window 0
	Size 356,96
	Print シトラ砂漠を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print 砂漠の民より支持が集まっています。
		Print １６０Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、砂漠の民から
		Print １６０Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][88],x
	Plus Ley[p],160
}
if(League[1][89]==0 && KuniPlayer[p] && AreaKuni[79]==p && AreaKuni[80]==p && AreaKuni[81]==p)
{
	AreaFocus 79
	Window 0
	Size 356,96
	Print エリン島を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print ダーナ族より支持が集まっています。
		Print １４０Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、ダーナ族から
		Print １４０Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][89],x
	Plus Ley[p],150
}
if(League[1][90]==0 && KuniPlayer[p] && AreaKuni[69]==p && AreaKuni[70]==p)
{
	AreaFocus 69
	Window 0
	Size 356,96
	Print ユモト島を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print 島の民より支持が集まっています。
		Print ８０Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、島の民から
		Print ８０Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][90],x
	Plus Ley[p],80
}
if(League[1][91]==0 && KuniPlayer[p] && AreaKuni[77]==p && AreaKuni[78]==p && AreaKuni[82]==p && AreaKuni[83]==p && AreaKuni[84]==p)
{
	AreaFocus 83
	Window 0
	Size 356,96
	Print 西海を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print 海の民より支持が集まっています。
		Print １８０Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、海の民から
		Print １８０Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][91],x
	Plus Ley[p],180
}
if(League[1][92]==0 && KuniPlayer[p] && AreaKuni[27]==p && AreaKuni[29]==p && AreaKuni[31]==p && AreaKuni[35]==p && AreaKuni[37]==p)
{
	AreaFocus 83
	Window 0
	Size 356,96
	Print 黒の森周辺を制覇しました。
	WindowOn 0
	Clear
	if(p!=2 && p!=14 && p!=26)
	{
		Print 森の民より支持が集まっています。
		Print ２２０Leyの貢物が贈られてきました。
	}
	if(p==2 || p==14 || p==26)
	{
		Print 新たな虐殺を開始し、森の民から
		Print ２２０Ley奪い取りました。
	}
	WindowOn 0
	WindowOff
	Set League[1][92],x
	Plus Ley[p],220
}