//////ランダムイベント関係////////
if(Scenario==1 || Scenario==2 || Scenario==4 || Scenario==3 && StartTurn==0 && Flag[200]==0)
{
	Set Flag[30],1
	Set Flag[29],1
	if(KuniPlayer[5]==0)
	{
		Set Flag[28],1
	}
	Start
	Window 0
	Size 356,156
	Print 【現在のゲーム初期設定】
	Print 　
	if(Flag[30])
	{
		Print ランダムイベントを発生させる
	}
	if(Flag[30]==0)
	{
		Print ランダムイベントを発生させない
	}
	if(Flag[29])
	{
		Print 攻城兵器を使用する
	}
	if(Flag[29]==0)
	{
		Print 攻城兵器を使用しない
	}
	if(Flag[28] && KuniPlayer[5]==0)
	{
		Print ユニークモンスターを登場させる
	}
	if(Flag[28]==0 && KuniPlayer[5]==0)
	{
		Print ユニークモンスター未登場
	}
	if(Flag[27]==0)
	{
		Print プレイレコードを見ない
	}
	if(Flag[27])
	{
		Print プレイレコードを見る
	}
	WindowOn 100
	Set a,YesNo(設定を変更しますか？)
	WindowOff
	if(a)
	{
		Window 0
		Size 356,96
		Print 各種ランダムイベントを
		WindowOn 100
		Set Flag[30],YesNo(有効にする／無効にする)
		Clear
		Print 攻城兵器を
		WindowOn 100
		Set Flag[29],YesNo(使用する／使用しない)
		if(KuniPlayer[5]==0)
		{
			Clear
			Print ユニークモンスターを
			WindowOn 100
			Set Flag[28],YesNo(登場させる／未登場)
		}
		Clear
		Print プレイレコードを
		Print ※見ないを選択しても、クリア時に参照できます。
		WindowOn 100
		Set Flag[27],YesNo(10ターン毎に見る／見ない)
		WindowOff
		GoTo
	}
}
if(Flag[401] || Flag[402] || Flag[403] || Flag[404] || Flag[405] || Flag[406] || Flag[407] || Flag[408] || Flag[409] || Flag[410] || Flag[411] || Flag[412] || Flag[413] || Flag[414] || Flag[415] || Flag[416] || Flag[417] || Flag[418] || Flag[420] || Flag[422] || Flag[423] || Flag[424] || Flag[425] || Flag[426])
{
	Set Flag[0],true
}
//勢力滅亡処理関係。League[3][41〜66]に各国家の一ターン前の本拠地を記憶。
//滅ぼした国（滅亡した国家の１ターン前本拠地支配）は滅亡した国のLeyをランダムに獲得（滅亡国が龍神、人魚以外）
//国が滅亡した後は、滅ぼした国（League[3][41〜66]）とターン（League[3][67〜92]）を記録。
Set x,StartTurn
if(StartTurn>200)
{
	Set x,200
}
if(KuniFlag[10]==0 && KuniFlag[26] && League[3][50])
{
	Set League[3][50],0
	Set League[3][76],0
	Set League[1][95],x
}
if(KuniFlag[3]==0 && KuniFlag[24] && League[3][43])
{
	Set League[3][43],0
	Set League[3][69],0
}
if(Flag[95] && League[1][93]==0)
{
	Set League[1][93],x
}
if(Flag[100] && League[1][94]==0)
{
	Set League[1][94],x
}
Set a,1
Set b,41
Set c,67
Start
if(KuniFlag[a]==1)
{
		Set League[3][b],BaseArea[a]
}
if(KuniFlag[a]==0 && League[3][c]==0 && League[3][b])
{
	Set League[3][c],x
	if(AreaKuni[League[3][b]]==0)
	{
		Set League[3][b],100
	}
	if([League[3][b]!=100)
	{
		Set e,Random(Ley[a])
		if(e && a!=5 && a!=10)
		{
			Plus Ley[AreaKuni[League[3][b]]],e
			if(KuniPlayer[AreaKuni[League[3][b]]] && Flag[0]==0)
			{
				AreaFocus League[3][b]
				Window 1
				FaceOut AreaKuni[League[3][b]]
				WindowOn 100
				Window 0
				Size 356,96
				if(a==1)
				{
					Print オーギュスト帝国の軍資金
				}
				if(a==2)
				{
					Print ヤーヴェの授け物の軍資金
				}
				if(a==3 || a==24)
				{
					Print 神罰執行団の軍資金
				}
				if(a==4)
				{
					Print コモナーフォースの軍資金
				}
				if(a==6)
				{
					Print 蒼雨海賊団の軍資金
				}
				if(a==7)
				{
					Print リューネブルク共和国の軍資金
				}
				if(a==8)
				{
					Print 東方騎士団の軍資金
				}
				if(a==9 || a==25)
				{
					Print ミケツノタミの軍資金
				}
				if(a==11)
				{
					Print 銀の教団の軍資金
				}
				if(a==12)
				{
					Print 貴族連合の軍資金
				}
				if(a==13)
				{
					Print 森の護り手の軍資金
				}
				if(a==14)
				{
					Print 魔性の者の軍資金
				}
				if(a==15)
				{
					Print 混血の少年魔術士の軍資金
				}
				if(a==16)
				{
					Print アメノミハシラの軍資金
				}
				if(a==17)
				{
					Print 華国の軍資金
				}
				if(a==18)
				{
					Print アーベントイアーの軍資金
				}
				if(a==20)
				{
					Print 黒き森の女王の軍資金
				}
				if(a==22)
				{
					Print 教皇の軍資金
				}
				if(a==23)
				{
					Print ブランデンブルク帝国の軍資金
				}
				if(a==26)
				{
					Print 混血の魔竜の軍資金
				}
				PrintKz e
				Print Leyを獲得しました。
				WindowOn 4000
				WindowOff
			}
		}
		Set League[3][b],AreaKuni[League[3][b]]
	}
}
if(a<26)
{
	Plus a,1
	Plus b,1
	Plus c,1
	GoTo
}
if(Flag[27])
{
	Set a,StartTurn
	Start
	if(a>18)
	{
		Plus a,-10
		GoTo
	}
}
if(Flag[27] && a==9)
if(Flag[0])
{
	Set a,YesNo(プレイレコードをみますか？)
	if(a)
	{
		Window 0
		Size 450,500
		WindowCenter
		Print □□□あなたの戦いの軌跡□□□
		Print 　
		Set a,56
		Set b,81
		Set c,1
		Set e,0
		Set f,66
		Set g,0
		Set h,60
		Set i,80
		Start
		if(c!=League[1][b] && b<96)
		{
			Plus b,1
			GoTo
		}
		if(c!=League[2][i] || 100!=League[2][h] && c!=League[1][b] && i<93)
		{
			Plus h,1
			Plus i,1
			GoTo
		}
		if(c!=League[1][b] && c!=League[3][f] && f<93)
		{
			Plus f,1
			GoTo
		}
		if(c!=League[2][i] || 100!=League[2][h] && c!=League[1][b] && c!=League[3][f] && c<200 && c<StartTurn)
		{
			Set b,81
			Set f,66
			Set h,60
			Set i,80
			Plus c,1
			GoTo
		}
		if(c==League[1][b])
		{
			Set e,b
		}
		if(c==League[2][i] && 100==League[2][h])
		{
			Set e,i
		}
		if(c==League[3][f])
		{
			Set e,f
			Plus e,-26
			Set g,League[3][e]
		}
		if(e)
		{
			if(a>460)
			{
				WindowOn 0
				WindowOff
				Window 0
				Size 450,500
				WindowCenter
				Print □□□あなたの戦いの軌跡□□□
				Print 　
				Set a,56
			}
			Set x,c
			if(Scenario==2)
			{
				Plus x,49
			}
			if(Scenario==3)
			{
				Plus x,99
			}
			PrintKz x
			if(c!=200)
			{
				OutPrint 240,a, ターン
			}
			if(c==200)
			{
				OutPrint 240,a, ターン以降
			}
			Plus a,20
			Print 　
			if(b==81)
			{
				OutPrint 20,a, 中原を統一する
			}
			if(b==82)
			{
				OutPrint 20,a, 東国を統一する
			}
			if(b==83)
			{
				OutPrint 20,a, 西部平原を統一する
			}
			if(b==84)
			{
				OutPrint 20,a, ヴァロア地方を統一する
			}
			if(b==85)
			{
				OutPrint 20,a, 雪原地帯を統一する
			}
			if(b==86)
			{
				OutPrint 20,a, ホセ山脈を統一する
			}
			if(b==87)
			{
				OutPrint 20,a, ニクサー海を統一する
			}
			if(b==88)
			{
				OutPrint 20,a, シトラ砂漠を統一する
			}
			if(b==89)
			{
				OutPrint 20,a, エリン島を統一する
			}
			if(b==90)
			{
				OutPrint 20,a, ユモト島を統一する
			}
			if(b==91)
			{
				OutPrint 20,a, 西海を統一する
			}
			if(b==92)
			{
				OutPrint 20,a, 黒の森周辺を統一する
			}
			if(b==93)
			{
				OutPrint 20,a, ラシェスタに魔王が降臨する
			}
			if(b==94)
			{
				OutPrint 20,a, キアンに魔王が降臨する
			}
			if(b==95)
			{
				OutPrint 20,a, 魔竜ティアマトが復活する
			}
			if(Flag[95]==0 && f==67)
			{
				OutPrint 20,a, オーギュスト帝国
			}
			if(Flag[95] && f==67)
			{
				OutPrint 20,a, 魔王ラシェスタ
			}
			if(f==68)
			{
				OutPrint 20,a, ヤーヴェの授け物
			}
			if(f==69 || f==90)
			{
				OutPrint 20,a, 神罰執行団
			}
			if(f==70)
			{
				OutPrint 20,a, コモナーフォース
			}
			if(f==71)
			{
				OutPrint 20,a, 龍神教
			}
			if(f==72)
			{
				OutPrint 20,a, 蒼雨海賊団
			}
			if(f==73)
			{
				OutPrint 20,a, リューネブルク共和国
			}
			if(f==74)
			{
				OutPrint 20,a, 東方騎士団
			}
			if(f==75 || f==91)
			{
				OutPrint 20,a, ミケツノタミ
			}
			if(f==76)
			{
				OutPrint 20,a, マーメイド
			}
			if(f==77)
			{
				OutPrint 20,a, 銀の教団
			}
			if(f==78)
			{
				OutPrint 20,a, 貴族連合
			}
			if(f==79)
			{
				OutPrint 20,a, 森の護り手
			}
			if(Flag[100]==0 && f==80)
			{
				OutPrint 20,a, 魔性の者
			}
			if(Flag[100] && f==80)
			{
				OutPrint 20,a, 魔王キアン
			}
			if(f==81)
			{
				OutPrint 20,a, 混血の少年魔術士
			}
			if(f==82)
			{
				OutPrint 20,a, アメノミハシラ
			}
			if(f==83)
			{
				OutPrint 20,a, 華国
			}
			if(f==84)
			{
				OutPrint 20,a, アーベントイアー
			}
			if(f==86)
			{
				OutPrint 20,a, 黒き森の女王
			}
			if(f==88)
			{
				OutPrint 20,a, 教皇
			}
			if(f==89)
			{
				OutPrint 20,a, ブランデンブルク帝国
			}
			if(f==92)
			{
				OutPrint 20,a, 魔竜ティアマト
			}
			if(g==1 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　オーギュスト帝国によって滅ぼされる
			}
			if(g==2 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　ヤーヴェの授け物によって滅ぼされる
			}
			if(g==3 || g==24 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　神罰執行団によって滅ぼされる
			}
			if(g==4 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　コモナーフォースによって滅ぼされる
			}
			if(g==5 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　龍神教によって滅ぼされる
			}
			if(g==6 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　蒼雨海賊団によって滅ぼされる
			}
			if(g==7 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　リューネブルク共和国によって滅ぼされる
			}
			if(g==8 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　東方騎士団によって滅ぼされる
			}
			if(g==9 || g==25 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　ミケツノタミによって滅ぼされる
			}
			if(g==10 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　マーメイドによって滅ぼされる
			}
			if(g==11 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　銀の教団によって滅ぼされる
			}
			if(g==12 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　貴族連合によって滅ぼされる
			}
			if(g==13 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　森の護り手によって滅ぼされる
			}
			if(g==14 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　魔性の者によって滅ぼされる
			}
			if(g==15 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　混血の少年魔術士によって滅ぼされる
			}
			if(g==16 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　アメノミハシラによって滅ぼされる
			}
			if(g==17 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　華国によって滅ぼされる
			}
			if(g==18 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　アーベントイアーによって滅ぼされる
			}
			if(g==20 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　黒き森の女王によって滅ぼされる
			}
			if(g==22 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　教皇によって滅ぼされる
			}
			if(g==23 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　ブランデンブルク帝国によって滅ぼされる
			}
			if(g==26 && KuniPlayer[g]==0)
			{
				OutPrint 170,a, が　混血の魔竜によって滅ぼされる
			}
			if(g>26)
			{
				OutPrint 170,a, が　滅亡する（相手国不明）
			}
			if(KuniPlayer[g])
			{
				OutPrint 170,a, を　撃破する
			}
			if(i==81)
			{
				OutPrint 20,a, ユニークモンスター　魔剣スルトを撃破する
			}
			if(i==82)
			{
				OutPrint 20,a, ユニークモンスター　バルログを撃破する
			}
			if(i==83)
			{
				OutPrint 20,a, ユニークモンスター　ヒュドラを撃破する
			}
			if(i==84)
			{
				OutPrint 20,a, ユニークモンスター　アプサラスを撃破する
			}
			if(i==85)
			{
				OutPrint 20,a, ユニークモンスター　サンダーバードを撃破する
			}
			if(i==86)
			{
				OutPrint 20,a, ユニークモンスター　ロック鳥を撃破する
			}
			if(i==87)
			{
				OutPrint 20,a, ユニークモンスター　ミスティルテインを撃破する
			}
			if(i==88)
			{
				OutPrint 20,a, ユニークモンスター　セフィロトの樹を撃破する
			}
			if(i==89)
			{
				OutPrint 20,a, ユニークモンスター　水晶ゴーレムを撃破する
			}
			if(i==90)
			{
				OutPrint 20,a, ユニークモンスター　バハムートを撃破する
			}
			if(i==91)
			{
				OutPrint 20,a, ユニークモンスター　グリムリーパーを撃破する
			}
			if(i==92)
			{
				OutPrint 20,a, ユニークモンスター　アークリッチを撃破する
			}
			Plus a,20
			Set e,0
			Set g,0
			if(b>80)
			{
				Plus b,1
			}
			if(f>66)
			{
				Plus f,1
			}
			if(i>80)
			{
				Plus h,1
				Plus i,1
			}
			GoTo
		}
		WindowOn 0
		WindowOff
	}
}
//20080116ランダムイベント　陣営編
//a==発生陣営　b==イベントの種類
//b==0：獲得　1：離反　2：錬金術　3：破産　4：束縛　5：孤独　6：強奪　7：発掘　8：経済成長・・・
Start
Set a,Random(27)
if(Flag[30] && KuniFlag[a]==0 && Random(4)!=0 && Flag[167]==0 && Flag[166]==0)
{
	GoTo
}
if(KuniFlag[a] && Flag[30] && Flag[166]==0 && Flag[167]==0 && Flag[166]==0)
{
	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)
	{
		Plus b,2
		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==5 || b==8)
		{
			Set b,6
		}
	}
	if (a==15)
	{
		Print 混血の少年魔術士
		if (b==7)
		{
			Set b,8
		}
	}
	if (a==16)
	{
		Print アメノミハシラ
	}
	if (a==17)
	{
		Print 華国
		if (b==5)
		{
			Set b,6
		}
	}
	if (a==18)
	{
		Print アーベントイアー
	}
	if (a==20)
	{
		Print 黒き森の女王
	}
	if (a==22)
	{
		Print 教皇
	}
	if (a==23)
	{
		Print ブランデンブルク帝国
	}
	if (a==26)
	{
		Print 混血の魔竜
	}
	Set c,%風鈴
	Set d,%破壊工作野郎
	Set e,c
	Plus e,Random(262)
	Set f,1
	Set g,1
	Set h,e
	Start
	Set i,Random(27)
	if(i==0 || i==5)
	{
		GoTo
	}
	Set j,i
	Start
	if(AreaKuni[g]!=a || AreaButaiKz[g]==20 && g<87)
	{
		Plus g,1
		GoTo
	}
	if (AreaButaiKz[BaseArea[a]]<20)
	{
		Set g,BaseArea[a]
	}
	//獲得　h==加入人材　g==空きエリア
	if (b==0)
	{
		if (g<87)
		{
			Start
			if (HeroFlag[h]!=100 && h<=d)
			{
				Plus h,1
				GoTo
			}
			if (HeroFlag[h]!=100 && h<=d && f)
			{
				Set h,c
				Set f,0
				Set d,e
				GoTo
			}
			if (HeroFlag[h]==100)
			{
				Print 《獲得》
				Print どこからともなく人材が現れた！
				WindowOn 100
				CharSet g,h
				Window 1
				FaceOut h
			}
		}
		if (HeroKuni[h]!=a)
		{
			Set b,99
		}
	}
	//離反　h==該当人材　j==寝返り先の国
	if (b==1)
	{
		Start
		if (HeroKuni[h]!=a && h<=d)
		{
			Plus h,1
			GoTo
		}
		if (HeroKuni[h]!=a && h>=d && f)
		{
			Set h,c
			Set f,0
			Set d,e
			GoTo
		}
		if (HeroKuni[h]==a)
		{
			Set g,1
			Start
			if(g<87 && KuniFlag[j] && j!=a)
			{
				if(AreaKuni[g]!=j || AreaButaiKz[g]==20)
				{
					Plus g,1
					GoTo
				}
				if (AreaButaiKz[BaseArea[j]]<20)
				{
					Set g,BaseArea[j]
				}
				Print 《離反》
				Print 人材が他国に裏切った！
				WindowOn 100
				CharDelete h
				CharSet g,h
				Window 1
				FaceOut h
				Set f,2
			}
			if(g==87 || KuniFlag[j]==0 || j==a)
			{
				Set g,1
				Plus j,1
				if (i!=j)
				{
					//龍神教は飛ばす
					if (j==5)
					{
						Plus j,1
					}
					if (j>26)
					{
						Set j,1
					}
					if (i==j)
					{
						Plus j,-1
					}
					GoTo
				}
			}
		}
		if (f!=2)
		{
			Set b,4
		}
	}
	//錬金術
	if (b==2)
	{
		Print 《錬金術》
		Print Leyが２倍になった！
		Plus Ley[a],Ley[a]
	}
	//破産
	if (b==3)
	{
		Print 《破産》
		Print Leyを失った
		Set Ley[a],0
	}
	//束縛
	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)
	{
		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 一時同盟が全て破棄された
	}
	//強奪　f==強奪対象国　k==強奪Ley等
	if (b==6)
	{
		Set k,0
		Plus j,1
		Start
		if (Ley[j]>k && KuniFlag[j] && j!=a)
		{
			Set k,Ley[j]
			Set f,j
		}
		if (i!=j)
		{
			Plus j,1
			if (j>26)
			{
				Set j,1
			}
			GoTo
		}
		Set m,0
		Start
		if (Ley[f]>m)
		{
			Plus m,1
			Plus Ley[f],-1
			GoTo
		}
		Plus Ley[a],m
		if (KuniPlayer[a] && k)
		{
			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] && k)
		{
			PrintKz m
			Print のLeyを奪った！
		}
		if (KuniPlayer[a]==0 && k)
		{
			Print 《強奪》
			Print Leyを奪われた！
		}
		if (k==0)
		{
			Clear
			Set b,0
		}
		Set a,f
	}
	//発掘
	if (b==7)
	{
		Print 《発掘》
		if (g<87)
		{
			Set f,Random(6)
			if (f==0)
			{
				Print 火のオーブを手に入れた！
				CharSet g,%火のオーブ
			}
			if (f==1)
			{
				Print 水のオーブを手に入れた！
				CharSet g,%水のオーブ
			}
			if (f==2)
			{
				Print 風のオーブを手に入れた！
				CharSet g,%風のオーブ
			}
			if (f==3)
			{
				Print 土のオーブを手に入れた！
				CharSet g,%土のオーブ
			}
			if (f==4)
			{
				Print 光のオーブを手に入れた！
				CharSet g,%光のオーブ
			}
			if (f==5)
			{
				Print 妖精のオーブを手に入れた！
				CharSet g,%妖精のオーブ
			}
		}
		if (g>86)
		{
			Print 200Ley相当の金塊を手に入れた！
			Plus Ley[a],200
		}
	}
	//経済成長
	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
}
Set e,0
//ユニークモンスター用処理
if(Ley[79])
{
	//ユニーク撃破・追い払い処理
	Set j,61
	Set g,81
	Set h,%魔剣スルトh
	Set m,%★折れた剣
	Set n,1
	Start
	Set k,League[2][j]
	Set l,AreaKuni[k]
	if(HeroFlag[h]!=k && l)
	{
		if(AreaKuni[n]!=l || AreaButaiKz[n]==20 && n<87)
		{
			Plus n,1
			GoTo
		}
		if (AreaButaiKz[k]<20)
		{
			Set n,k
		}
		if(n<87)
		{
			Set League[2][j],99
			if(KuniPlayer[l])
			{
				AreaFocus n
				Window 1
				FaceOut h
				WindowOn 100
				Window 0
				Size 356,96
				Print ユニークモンスター
				//個別の説明を付けたいけど、今のところありません
				if(h==%魔剣スルトh)
				{
					Print 魔剣スルト
				}
				if(h==%バルログh)
				{
					Print バルログ
				}
				if(h==%ヒュドラh)
				{
					Print ヒュドラ
				}
				if(h==%アプサラスh)
				{
					Print アプサラス
				}
				if(h==%サンダバドh)
				{
					Print サンダーバード
				}
				if(h==%ロック鳥h)
				{
					Print ロック鳥
				}
				if(h==%ミスティルテインh)
				{
					Print ミスティルテイン
				}
				if(h==%セフィロトの樹h)
				{
					Print セフィロトの樹
				}
				if(h==%水晶ゴレムh)
				{
					Print 水晶ゴーレム
				}
				if(h==%バハムトh)
				{
					Print バハムート
				}
				if(h==%グリムリパh)
				{
					Print グリムリーパー
				}
				if(h==%アクリッチh)
				{
					Print アークリッチ
				}
				if(HeroFlag[h]==0)
				{
					Print の撃破に成功しました。
					Set League[2][j],100
					//★ゲット。初回は100％　二回目以降は15％の確率
					if(Flag[106]==0)
					if(Random(100)<15)
					{
						WindowOn 0
						Window 1
						FaceOut m
						WindowOn 100
						Window 0
						Size 356,96
						Print ユニークモンスターの種（★）を獲得。
						Print クラスチェンジさせる事により、
						Print 元の強力な姿へ戻す事が可能です。
						CharSet n,m
						Set Flag[106],1
					}
				}
				if(HeroFlag[h])
				{
					Print を追い払う事に成功しました。
				}
				WindowOn 0
				WindowOff
			}
			CharDelete h
			///CPUが撃破に成功した場合はそのまま配置
			if(KuniPlayer[l]==0)
			{
				CharSet n,h
			}
			Plus Ley[79],-1
			Plus Ley[78],1
			Set x,StartTurn
			if(StartTurn>200)
			{
				Set x,200
			}
			Set League[2][g],x
		}
	}
	if(92>g)
	{
		Set n,1
		Plus j,1
		Plus g,1
		Plus h,1
		Plus m,5
		GoTo
	}
	//ユニーク撤退処理
	Set j,61
	Set g,81
	Set h,%魔剣スルトh
	Start
	if(HeroFlag[h] && HeroKuni[h]==0)
	{
		Set i,League[2][g]
		Plus i,1
		Set League[2][g],i
		if(League[2][g]>1 && Random(100)<i)
		{
			CharDelete h
			Plus Ley[79],-1
			Set League[2][g],0
			Set e,100
		}
	}
	if(92>g && e==0)
	{
		Plus j,1
		Plus g,1
		Plus h,1
		GoTo
	}
}
//20080116ランダムイベント　地域編
//a==発生回数　b==発生地域　c==乱数　d==発生地域の種類　e==特殊イベント成立フラグ
//d==1：平地　2：水辺　3：島　4：森林　5：砂漠　6：山岳　7：火山　8：雪原
Set a,Random(3)
Start
Set b,Random(87)
//ユニークモンスター滞在エリアは飛ばす
if(League[2][61]==b || League[2][62]==b || League[2][63]==b || League[2][64]==b || League[2][65]==b || League[2][66]==b || League[2][67]==b || League[2][68]==b || League[2][69]==b || League[2][70]==b || League[2][71]==b || League[2][72]==b && Flag[167]==0 && a>0 && e==0)
{
	GoTo
}
Set c,Random(100)
Set f,Ley[78]
Plus f,Ley[79]
//ユニークモンスター出現確率　現出現数が少ないほど高確率　撤退優先　中立エリア限定
if(Flag[28] && Ley[79]<1 && a>0 && c<66 && f<12 && AreaKuni[b]==0 && AreaButaiKz[b]<20 && Flag[167]==0 && Flag[166]==0 && e==0)
if(Flag[28] && Ley[79]<2 && a>0 && c<46 && f<12 && AreaKuni[b]==0 && AreaButaiKz[b]<20 && Flag[167]==0 && Flag[166]==0 && e==0)
if(Flag[28] && Ley[79]<3 && a>0 && c<28 && f<12 && AreaKuni[b]==0 && AreaButaiKz[b]<20 && Flag[167]==0 && Flag[166]==0 && e==0)
if(Flag[28] && Ley[79]<4 && a>0 && c<15 && f<12 && AreaKuni[b]==0 && AreaButaiKz[b]<20 && Flag[167]==0 && Flag[166]==0 && e==0)
{
		Set e,99
}
//ユニーク撤退or登場（中立エリア）　または、勢力所属エリアの災害イベント
if(e==99 || e==100)
if(AreaKuni[b]>0 && Flag[30] && a>0 && Flag[166]==0 && Flag[167]==0)
{
	if(e==100)
	{
		Set b,League[2][j]
		Set League[2][j],0
	}
	AreaFocus b
	Window 0
	Size 356,96
	if(b==1 || b==2 || b==3 || b==5 || b==10 || b==11 || b==12 || b==13 || b==16 || b==17 || b==18 || b==19 || b==22 || b==23 || b==27 || b==31 || b==32 || b==33 || b==50 || b==62)
	{
		Set d,1
	}
	if(b==7 || b==8 || b==14 || b==15 || b==24 || b==26 || b==34 || b==35 || b==36 || b==37 || b==38 || b==39 || b==49 || b==51 || b==52 || b==61 || b==63)
	{
		Set d,2
	}
	if(b==73 || b==74 || b==75 || b==76 || b==77 || b==78 || b==82 || b==83 || b==84)
	{
		Set d,3
	}
	if(b==25 || b==29 || b==30 || b==53 || b==54 || b==69 || b==70 || b==71 || b==72 || b==79 || b==80 || b==81)
	{
		Set d,4
	}
	if(b==40 || b==41 || b==42 || b==43)
	{
		Set d,5
	}
	if(b==4 || b==6 || b==9 || b==21 || b==28 || b==45 || b==46 || b==47 || b==55 || b==59 || b==64 || b==65 || b==66 || b==67 || b==68 || b==86)
	{
		Set d,6
	}
	if(b==44 || b==60)
	{
		Set d,7
	}
	if(b==20 || b==48 || b==56 || b==57 || b==58 || b==85)
	{
		Set d,8
	}
	if(b==1)
	{
		Print 【帝都オーガスタ】
	}
	if(b==2)
	{
		Print 【帝都城壁南】
	}
	if(b==3)
	{
		Print 【帝都城壁北】
	}
	if(b==4)
	{
		Print 【帝都北の城】
	}
	if(b==5)
	{
		Print 【帝都南の砦】
	}
	if(b==6)
	{
		Print 【ルーベンスの関】
	}
	if(b==7)
	{
		Print 【渡しの町レオキーン】
	}
	if(b==8)
	{
		Print 【水の都フェルミナ】
	}
	if(b==9)
	{
		Print 【ボルク鉱山】
	}
	if(b==10)
	{
		Print 【カイザーブルク】
	}
	if(b==11)
	{
		Print 【教皇庁前】
	}
	if(b==12)
	{
		Print 【ドズバ北西】
	}
	if(b==13)
	{
		Print 【リュッツェン】
	}
	if(b==14)
	{
		Print 【河畔の街ハーウェル】
	}
	if(b==15)
	{
		Print 【ヴェルサ大湿地帯】
	}
	if(b==16)
	{
		Print 【教皇庁】
	}
	if(b==17)
	{
		Print 【ドズバ】
	}
	if(b==18)
	{
		Print 【ドズバ南東】
	}
	if(b==19)
	{
		Print 【ドズバ北東】
	}
	if(b==20)
	{
		Print 【ハンブルグ南の村】
	}
	if(b==21)
	{
		Print 【セロン城砦】
	}
	if(b==22)
	{
		Print 【聖地シルビア】
	}
	if(b==23)
	{
		Print 【ヴァロア北西】
	}
	if(b==24)
	{
		Print 【ヴァロア南西】
	}
	if(b==25)
	{
		Print 【ヴァロア南東】
	}
	if(b==26)
	{
		Print 【ヴァロア南】
	}
	if(b==27)
	{
		Print 【ノーマルタウン】
	}
	if(b==28)
	{
		Print 【氷河内陸口】
	}
	if(b==29)
	{
		Print 【黒森入り口】
	}
	if(b==30)
	{
		Print 【シュバルツバルト】
	}
	if(b==31)
	{
		Print 【ポルダー北東】
	}
	if(b==32)
	{
		Print 【ポルダー南東】
	}
	if(b==33)
	{
		Print 【ポルダー南】
	}
	if(b==34)
	{
		Print 【シェルブール要塞】
	}
	if(b==35)
	{
		Print 【ニヒツの街】
	}
	if(b==36)
	{
		Print 【アムステルダム】
	}
	if(b==37)
	{
		Print 【ニヒツ北】
	}
	if(b==38)
	{
		Print 【アルヴァ南】
	}
	if(b==39)
	{
		Print 【歓楽街アルヴァ】
	}
	if(b==40)
	{
		Print 【シトラ東岩砂漠】
	}
	if(b==41)
	{
		Print 【シトラプリズン】
	}
	if(b==42)
	{
		Print 【シトラ砂漠】
	}
	if(b==43)
	{
		Print 【シトラ北塩湖】
	}
	if(b==44)
	{
		Print 【ゲラス山】
	}
	if(b==45)
	{
		Print 【ホセ山脈南端】
	}
	if(b==46)
	{
		Print 【ホセ山脈盆地】
	}
	if(b==47)
	{
		Print 【ホセ山脈登山口】
	}
	if(b==48)
	{
		Print 【ホセ山脈最高峰】
	}
	if(b==49)
	{
		Print 【ゲラス沼】
	}
	if(b==50)
	{
		Print 【リューネブルク】
	}
	if(b==51)
	{
		Print 【バール平野北】
	}
	if(b==52)
	{
		Print 【バール平野南】
	}
	if(b==53)
	{
		Print 【博愛の森】
	}
	if(b==54)
	{
		Print 【平和の森】
	}
	if(b==55)
	{
		Print 【希望の丘】
	}
	if(b==56)
	{
		Print 【チル氷島】
	}
	if(b==57)
	{
		Print 【辺境都市ハンブルグ】
	}
	if(b==58)
	{
		Print 【氷の岬】
	}
	if(b==59)
	{
		Print 【セロン山地北】
	}
	if(b==60)
	{
		Print 【セロン山地最高峰】
	}
	if(b==61)
	{
		Print 【アメノミハシラ】
	}
	if(b==62)
	{
		Print 【タカアマハラ北】
	}
	if(b==63)
	{
		Print 【タカアマハラ南】
	}
	if(b==64)
	{
		Print 【イナキ砦】
	}
	if(b==65)
	{
		Print 【華都ショウヨウ】
	}
	if(b==66)
	{
		Print 【ケンカクの谷】
	}
	if(b==67)
	{
		Print 【コロウの関】
	}
	if(b==68)
	{
		Print 【セイロウ山】
	}
	if(b==69)
	{
		Print 【ユモト島】
	}
	if(b==70)
	{
		Print 【ユモト島西】
	}
	if(b==71)
	{
		Print 【ホウライ南】
	}
	if(b==72)
	{
		Print 【ホウライ北】
	}
	if(b==73)
	{
		Print 【海竜神殿】
	}
	if(b==74)
	{
		Print 【ニクサー海東】
	}
	if(b==75)
	{
		Print 【ニクサー海西】
	}
	if(b==76)
	{
		Print 【メフティア島】
	}
	if(b==77)
	{
		Print 【ガヴウェン島】
	}
	if(b==78)
	{
		Print 【ウィセルテ島】
	}
	if(b==79)
	{
		Print 【神樹ユグドラ】
	}
	if(b==80)
	{
		Print 【エリン島東】
	}
	if(b==81)
	{
		Print 【エリン島南】
	}
	if(b==82)
	{
		Print 【ルーンバイル島】
	}
	if(b==83)
	{
		Print 【デオラッサ島】
	}
	if(b==84)
	{
		Print 【フィヨルド島】
	}
	if(b==85)
	{
		Print 【氷河】
	}
	if(b==86)
	{
		Print 【封印島】
	}
	if(e==0)
	{
		if(d==1 || d==2 || d==3 || d==4 && c<15)
		{
			Print 〇豊作〇
			WindowOn 100
			Plus Ley[AreaKuni[b]],AreaCity[b]
			if(KuniPlayer[AreaKuni[b]])
			{
				Window 1
				Conversation AreaKuni[b]
				PrintKz AreaCity[b]
				Print Leyの臨時収入を得ました。
			}
		}
		if(d==1 || d==4 && c>14 && c<25)
		{
			Print 〇経済発展〇
			Plus AreaCity[b],999
			Plus AreaRoad[b],999
		}
		if(d==2 || d==3 && c>14 && c<25)
		{
			Print 〇貿易商来航〇
			Plus AreaCity[b],999
			Plus Ley[AreaKuni[b]],80
		}
		if(d==1 || d==2 || d==4 && c>24 && c<40)
		{
			Print ▽飛蝗大発生▽
			Plus Ley[AreaKuni[b]],-25
		}
		if(d==3 && c>24 && c<40)
		{
			Print ▽高潮▽
			Plus AreaCity[b],-10
			Plus AreaWall[b],-10
		}
		if(d==1 || d==4 && c>39 && c<55)
		{
			Print ▽大火災▽
			Plus AreaCity[b],-6
			Plus AreaWall[b],-12
		}
		if(d==2 || d==3 && c>39 && c<55)
		{
			Print ▽暴風雨▽
			Plus AreaCity[b],-10
			Plus AreaRoad[b],-10
		}
		if(d==1 || d==4 && c>54 && c<65)
		{
			Print ▽疫病▽
			Plus AreaCity[b],-20
		}
		if(d==2 || d==3 && c>54 && c<70)
		{
			Print ▽大津波▽
			Plus AreaCity[b],-15
		}
		if(d==2 || d==3 && c>69 && c<85)
		{
			Print ▽洪水▽
			Plus AreaCity[b],-10
			Plus AreaRoad[b],-30
		}
		if(d==1 && c>64 && c<80)
		{
			Print ▽竜巻▽
			Plus AreaCity[b],-6
			Plus AreaRoad[b],-8
			Plus AreaWall[b],-12
		}
		if(d==1 && c>79 && c<96)
		{
			Print ▽地震▽
			Plus AreaCity[b],-5
			Plus AreaRoad[b],-15
			Plus AreaWall[b],-20
		}
		if(d==1 && c>95 && c<98)
		{
			Print ×伝染病まん延×
			Print 被害は隣接地域まで及んでいます。
			Plus AreaCity[League[b][111]],-20
			Plus AreaCity[League[b][112]],-20
			Plus AreaCity[League[b][113]],-20
			Plus AreaCity[League[b][114]],-20
			Plus AreaCity[League[b][115]],-20
			Plus AreaCity[b],-40
		}
		if(d==1 && c>97 && c<100)
		{
			Print ×大地震×
			Print 被害は隣接地域まで及んでいます。
			Plus AreaCity[League[b][111]],-5
			Plus AreaRoad[League[b][111]],-15
			Plus AreaWall[League[b][111]],-20
			Plus AreaCity[League[b][112]],-5
			Plus AreaRoad[League[b][112]],-15
			Plus AreaWall[League[b][112]],-20
			Plus AreaCity[League[b][113]],-5
			Plus AreaRoad[League[b][113]],-15
			Plus AreaWall[League[b][113]],-20
			Plus AreaCity[League[b][114]],-5
			Plus AreaRoad[League[b][114]],-15
			Plus AreaWall[League[b][114]],-20
			Plus AreaCity[League[b][115]],-5
			Plus AreaRoad[League[b][115]],-15
			Plus AreaWall[League[b][115]],-20
			Plus AreaCity[b],-10
			Plus AreaRoad[b],-30
			Plus AreaWall[b],-40
		}
		if(d==2 && c>84 && c<95)
		{
			Print ▽竜巻▽
			Plus AreaCity[b],-6
			Plus AreaRoad[b],-8
			Plus AreaWall[b],-12
		}
		if(d==3 && c>84 && c<93)
		{
			Print ▽落雷▽
			Plus AreaCity[b],-6
			Plus AreaWall[b],-12
		}
		if(d==3 && c>92 && c<95)
		{
			Print ▽隕石落下▽
			Plus AreaCity[b],-999
			Plus AreaRoad[b],-999
			Plus AreaWall[b],-999
			Set e,1
		}
		if(d==2 || d==3 && c>94 && c<100)
		{
			Print ×台風×
			Print 被害は隣接地域まで及んでいます。
			Plus AreaCity[League[b][111]],-10
			Plus AreaRoad[League[b][111]],-10
			Plus AreaWall[League[b][111]],-10
			Plus AreaCity[League[b][112]],-10
			Plus AreaRoad[League[b][112]],-10
			Plus AreaWall[League[b][112]],-10
			Plus AreaCity[League[b][113]],-10
			Plus AreaRoad[League[b][113]],-10
			Plus AreaWall[League[b][113]],-10
			Plus AreaCity[League[b][114]],-10
			Plus AreaRoad[League[b][114]],-10
			Plus AreaWall[League[b][114]],-10
			Plus AreaCity[League[b][115]],-10
			Plus AreaRoad[League[b][115]],-10
			Plus AreaWall[League[b][115]],-10
			Plus AreaCity[b],-10
			Plus AreaRoad[b],-10
			Plus AreaWall[b],-10
		}
		if(d==4 && c>64 && c<85)
		{
			Print ▽集中豪雨▽
			Plus AreaCity[b],-5
			Plus AreaRoad[b],-5
			Plus AreaWall[b],-5
		}
		if(d==4 || d==6 || d==7 && c>84 && c<96)
		{
			Print ▽火災旋風▽
			Plus AreaCity[b],-12
			Plus AreaRoad[b],-10
			Plus AreaWall[b],-20
		}
		if(d==4 || d==5 && c>95 && c<100)
		{
			Print ×伝染病まん延×
			Print 被害は隣接地域まで及んでいます。
			Plus AreaCity[League[b][111]],-20
			Plus AreaCity[League[b][112]],-20
			Plus AreaCity[League[b][113]],-20
			Plus AreaCity[League[b][114]],-20
			Plus AreaCity[League[b][115]],-20
			Plus AreaCity[b],-40
		}
		if(d==5 || d==8 && c<10)
		{
			Print 〇油田発見〇
			Plus Ley[AreaKuni[b]],150
		}
		if(d==6 || d==7 && c<10)
		{
			Print 〇鉱石発見〇
			Plus Ley[AreaKuni[b]],100
			Set e,2
		}
		if(d==6 || d==7 && c>9 && c<30)
		{
			Print 〇温泉発見〇
			Plus Ley[AreaKuni[b]],50
			Set e,3
		}
		if(d==5 && c>9 && c<25)
		{
			Print ▽疫病▽
			Plus AreaCity[b],-20
		}
		if(d==5 && c>24 && c<40)
		{
			Print ▽餓鬼▽
			Plus Ley[AreaKuni[b]],-50
		}
		if(d==5 && c>39 && c<70)
		{
			Print ▽砂嵐▽
			Plus AreaCity[b],-6
			Plus AreaRoad[b],-6
			Plus AreaWall[b],-6
		}
		if(d==5 && c>69 && c<96)
		{
			Print ▽干ばつ▽
			Plus AreaCity[b],-10
		}
		if(d==6 || d==7 && c>29 && c<50)
		{
			Print ▽土石流▽
			Plus AreaCity[b],-6
			Plus AreaRoad[b],-6
			Plus AreaWall[b],-6
		}
		if(d==6 || d==7 && c>49 && c<75)
		{
			Print ▽山火事▽
			Plus AreaCity[b],-6
			Plus AreaWall[b],-10
		}
		if(d==6 || d==7 && c>74 && c<85)
		{
			Print ▽地震▽
			Plus AreaCity[b],-5
			Plus AreaRoad[b],-15
			Plus AreaWall[b],-20
		}
		if(d==6 && c>95 && c<100)
		{
			Print ×大地震×
			Print 被害は隣接地域まで及んでいます。
			Plus AreaCity[League[b][111]],-5
			Plus AreaRoad[League[b][111]],-15
			Plus AreaWall[League[b][111]],-20
			Plus AreaCity[League[b][112]],-5
			Plus AreaRoad[League[b][112]],-15
			Plus AreaWall[League[b][112]],-20
			Plus AreaCity[League[b][113]],-5
			Plus AreaRoad[League[b][113]],-15
			Plus AreaWall[League[b][113]],-20
			Plus AreaCity[League[b][114]],-5
			Plus AreaRoad[League[b][114]],-15
			Plus AreaWall[League[b][114]],-20
			Plus AreaCity[League[b][115]],-5
			Plus AreaRoad[League[b][115]],-15
			Plus AreaWall[League[b][115]],-20
			Plus AreaCity[b],-10
			Plus AreaRoad[b],-30
			Plus AreaWall[b],-40
		}
		if(d==7 && c>95 && c<100)
		{
			Print ×火山噴火×
			Print 被害は隣接地域まで及んでいます。
			Plus AreaCity[League[b][111]],-999
			Plus AreaRoad[League[b][111]],-999
			Plus AreaWall[League[b][111]],-999
			Plus AreaCity[League[b][112]],-999
			Plus AreaRoad[League[b][112]],-999
			Plus AreaWall[League[b][112]],-999
			Plus AreaCity[b],-999
			Plus AreaRoad[b],-999
			Plus AreaWall[b],-999
			Plus Ley[AreaKuni[b]],-200
			if(AreaButaiKz[b]<20)
			{
				WindowOn 4000
				Window 1
				FaceOut %フレアブラス
				WindowOn 100
				Window 0
				Size 356,96
				Print マグマの中から竜族が現れた。
				CharSet b,%フレアブラス
			}
		}
		if(d==8 && c>9 && c<45)
		{
			Print ▽大雪▽
			Plus Ley[AreaKuni[b]],-25
		}
		if(d==8 && c>44 && c<65)
		{
			Print ▽雪崩▽
			Plus AreaCity[b],-10
		}
		if(d==8 && c>64 && c<80)
		{
			Print ▽落雷▽
			Plus AreaCity[b],-6
			Plus AreaWall[b],-12
		}
		if(d==8 && c>79 && c<97)
		{
			Print ▽猛吹雪▽
			Plus AreaCity[b],-4
			Plus AreaRoad[b],-50
		}
		if(d==8 && c>96 && c<100)
		{
			Print ▽隕石落下▽
			Plus AreaCity[b],-999
			Plus AreaRoad[b],-999
			Plus AreaWall[b],-999
			Set e,1
		}
		WindowOn 4000
		WindowOff
	}
}
Plus a,-1
if(Flag[28] || Flag[30] && a>0 && e==0)
{
	GoTo
}
//ユニーク出現本体
if(e==99)
{
	Print ★ユニークモンスター襲来★
	Set h,0
	Start
	Set r,Random(12)
	Plus r,61
	if(d==2 && League[2][63]==0 && c>15)
	{
		Print ヒュドラが現れた！
		Set r,63
		Set h,%ヒュドラh
	}
	if(d==3 && League[2][64]==0 && c>15)
	{
		Print アプサラスが現れた！
		Set r,64
		Set h,%アプサラスh
	}
	if(d==4 && League[2][68]==0 && c>15)
	{
		Print セフィロトの樹が現れた！
		Set r,68
		Set h,%セフィロトの樹h
	}
	if(d==5 && League[2][62]==0 && c>15)
	{
		Print バルログが現れた！
		Set r,62
		Set h,%バルログh
	}
	if(d==6 && League[2][66]==0 && c>15)
	{
		Print ロック鳥が現れた！
		Set r,66
		Set h,%ロック鳥h
	}
	if(d==7 && League[2][61]==0 && c>15)
	{
		Print 魔剣スルトが現れた！
		Set r,61
		Set h,%魔剣スルトh
	}
	if(d==8 && League[2][70]==0 && c>15)
	{
		Print バハムートが現れた！
		Set r,70
		Set h,%バハムトh
	}
	if(r==61 && League[2][61]==0 && h==0)
	{
		Print 魔剣スルトが現れた！
		Set h,%魔剣スルトh
	}
	if(r==62 && League[2][62]==0 && h==0)
	{
		Print バルログが現れた！
		Set h,%バルログh
	}
	if(r==63 && League[2][63]==0 && h==0)
	{
		Print ヒュドラが現れた！
		Set h,%ヒュドラh
	}
	if(r==64 && League[2][64]==0 && h==0)
	{
		Print アプサラスが現れた！
		Set h,%アプサラスh
	}
	if(r==65 && League[2][65]==0 && h==0)
	{
		Print サンダーバードが現れた！
		Set h,%サンダバドh
	}
	if(r==66 && League[2][66]==0 && h==0)
	{
		Print ロック鳥が現れた！
		Set h,%ロック鳥h
	}
	if(r==67 && League[2][67]==0 && h==0)
	{
		Print ミスティルテインが現れた！
		Set h,%ミスティルテインh
	}
	if(r==68 && League[2][68]==0 && h==0)
	{
		Print セフィロトの樹が現れた！
		Set h,%セフィロトの樹h
	}
	if(r==69 && League[2][69]==0 && h==0)
	{
		Print 水晶ゴーレムが現れた！
		Set h,%水晶ゴレムh
	}
	if(r==70 && League[2][70]==0 && h==0)
	{
		Print バハムートが現れた！
		Set h,%バハムトh
	}
	if(r==71 && League[2][71]==0 && h==0)
	{
		Print グリムリーパーが現れた！
		Set h,%グリムリパh
	}
	if(r==72 && League[2][72]==0 && h==0)
	{
		Print アークリッチが現れた！
		Set h,%アクリッチh
	}
	if(h==0)
	{
		GoTo
	}
	WindowOn 100
	Window 1
	FaceOut h
	WindowOn 4000
	CharSet b,h
	Set League[2][r],b
	Plus Ley[79],1
}
//ユニーク部隊配置
if(Ley[79] && e!=100)
{
	Set p,Ley[56]
	Set h,%魔剣スルトh
	Set i,%力を失った魔剣
	Set j,%輝く魔剣
	Set k,%灼熱の魔剣
	Start
	Set l,HeroFlag[h]
	//プレイヤーが隣接エリアに到達した場合
	if(AreaKuni[League[111][l]]==p || AreaKuni[League[112][l]]==p || AreaKuni[League[113][l]]==p || AreaKuni[League[114][l]]==p || AreaKuni[League[115][l]]==p && HeroKuni[h]==0 && AreaButaiKz[l]<20 && l>0  && l!=100 && p)
	{
		CharSet l,k
		CharSet l,j
		CharSet l,j
		CharSet l,i
		CharSet l,i
		CharSet l,i
	}
	if(HeroKuni[h]==0 && AreaButaiKz[l]<20 && l>0 && l!=100)
	{
		CharSet l,i
	}
	if(h<%アクリッチh)
	{
		Plus h,1
		Plus i,5
		Plus j,5
		Plus k,5
		GoTo
	}
}
//ユニーク撤退文章
if(e==100)
{
	if(h==%魔剣スルトh)
	{
		Print 魔剣スルト
	}
	if(h==%バルログh)
	{
		Print バルログ
	}
	if(h==%ヒュドラh)
	{
		Print ヒュドラ
	}
	if(h==%アプサラスh)
	{
		Print アプサラス
	}
	if(h==%サンダバドh)
	{
		Print サンダーバード
	}
	if(h==%ロック鳥h)
	{
		Print ロック鳥
	}
	if(h==%ミスティルテインh)
	{
		Print ミスティルテイン
	}
	if(h==%セフィロトの樹h)
	{
		Print セフィロトの樹
	}
	if(h==%水晶ゴレムh)
	{
		Print 水晶ゴーレム
	}
	if(h==%バハムトh)
	{
		Print バハムート
	}
	if(h==%グリムリパh)
	{
		Print グリムリーパー
	}
	if(h==%アクリッチh)
	{
		Print アークリッチ
	}
	Print は去っていった……
	WindowOn 4000
}
WindowOff
//ユニークモンスター、一般から人材に変換（League[116][1〜87]を、一時エリア部隊数記憶に使用）
if(Flag[106] && Flag[-263]>0)
{
	Set a,1
	Set c,61
	Set d,1
	Set n,%魔剣スルト
	Set h,%魔剣スルトh
	Start
	if(a<88)
	{
		Set League[116][a],AreaButaiKz[a]
		Plus a,1
		GoTo
	}
	Start
	CharDelete n
	if(AreaButaiKz[d]!=League[116][d])
	{
		CharSet d,h
		Set a,99
	}
	if(League[2][c]==100 && d<88 && a!=99)
	{
		Plus d,1
		GoTo
	}
	if(h<%アクリッチh && a!=99)
	{
		Plus h,1
		Plus c,1
		Plus n,5
		Set d,1
		GoTo
	}
	if(KuniPlayer[AreaKuni[d]] && a==99)
	{
		AreaFocus d
		Window 1
		FaceOut h
		WindowOn 100
		Window 0
		Size 356,96
		Print ユニークモンスター
		Print が復活しました。
		WindowOn 4000
		WindowOff
		Window 1
		Conversation h
		if(h==%魔剣スルトh)
		{
			Print お主が拙者の新たな主か。
			Print 古の盟約に従い、草を薙ぐ剣となろう。
		}
		if(h==%バルログh)
		{
			Print まさか私が調伏されるとはな。
			Print なかなかの実力、期待しているぞ……。
		}
		if(h==%ヒュドラh)
		{
			Print グゥゥ……。
		}
		if(h==%アプサラスh)
		{
			Print アンタなんか、好きじゃないんだから！
			Print 復活したから、仕方なく従うだけなんだから。
			Print 勘違いしないでよね！
		}
		if(h==%サンダバドh)
		{
			Print 僕に勝てる奴がこの世に存在するとはね。
			Print 分かった、これから共に戦うよ。
		}
		if(h==%ロック鳥h)
		{
			Print キュウン♪
			Print （ロック鳥は、あなたになついている）
		}
		if(h==%ミスティルテインh)
		{
			Print 太古の神殺しを果たした我が剣閃――
			Print 貴様に使いこなせるか、拝見する。
		}
		if(h==%セフィロトの樹h)
		{
			Print 好き好き好き、大好き！
			Print この想い、みんなに届けたい。
			Print ラブ＆ピースだよ♪
		}
		if(h==%水晶ゴレムh)
		{
			Print ガタンガタン……。
		}
		if(h==%バハムトh)
		{
			Print 汝、我が力を望む者か？
			Print ……どうやら、その資格はあるようだな。
		}
		if(h==%グリムリパh)
		{
			Print 私は、より強き者と戦いたい。
			Print 貴公と共にいれば、その願いは叶いそうだ。
		}
		if(h==%アクリッチh)
		{
			Print 生きとし生けるもの達へ終焉の焔を。
		}
		WindowOn 4000
		WindowOff
	}
}