Flag[290]：暗殺初回


//銀教浄化（38300行付近）全体効果＆不都合修正　２ターンに一回
if (Flag[300] && KuniFlag[11] && Turn>3)
{
	Set a,Random(24)
	//一度だけ再抽選
	if (KuniFlag[a]==0 || a==11)
	{
		Set a,Random(24)
	}
	if (KuniFlag[a] && a!=11)
	{
		Set c,2
		Start
		if (KuniPlayer[11] && c==2)
		{
			Window 1
			FaceOut 11
			WindowOn 100
			Window 0
			Conversation %模造銀装兵M
		}
		if (KuniPlayer[11]==0 || c==1)
		{
			Window 0
			Size 356,96
		}
		if (a==1)
		{
			Print オーギュスト帝国の本拠地
		}
		if (a==2)
		{
			Print ヤーヴェの授け物の本拠地
		}
		if (a==3)
		{
			Print 神罰執行団の本拠地
		}
		if (a==4)
		{
			Print コモナーフォースの本拠地
		}
		if (a==5)
		{
			Print 龍神教の本拠地
		}
		if (a==6)
		{
			Print 蒼雨海賊団の本拠地
		}
		if (a==7)
		{
			Print リューネブルク共和国の本拠地
		}
		if (a==8)
		{
			Print 東方騎士団の本拠地
		}
		if (a==9 && Ley[50]<35)
		{
			Print 破魔のウァーリーの本拠地
		}
		if (a==9 && Ley[50]>34)
		{
			Print ミケツノタミの本拠地
		}
		if (a==10)
		{
			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 (KuniPlayer[11] && c==2)
		{
			Print を浄化するための準備が整いました。
			Print 許可さえ頂ければすぐに実施できます。
			WindowOn 100
			if (League[a][11]==0)
			{
				Set c,YesNo(浄化を許可しますか？)
			}
			if (League[a][11]>0)
			{
				WindowOn 0
				Clear
				Print しかし、対象国とわが教団は友好関係にあります。
				Print 浄化を実行すれば、関係の悪化は免れません。
				WindowOn 100
				Set c,YesNo(同盟を破棄し、浄化を許可しますか？)
			}
			Window 1
			Conversation 11
			if (c)
			{
				Print 許可します。
				WindowOn 0
				Window 0
				Conversation %模造銀装兵M
				Print 承知いたしました。
				Print 直ちに実行するよう伝えます。
			}
			if (c==0)
			{
				Print 今回は許可いたしません。
				WindowOn 0
				Window 0
				Conversation %模造銀装兵M
				Print 承知いたしました。
			}
			WindowOn 0
			WindowOff
			GoTo
		}
		if (c)
		{
			if (KuniPlayer[a] && a!=14)
			{
				Clear
				Print 本拠地で大規模な破壊工作が行われた模様です。
				Print 甚大な被害が出ており、事態収拾のため
				Print このターンは防衛戦以外の指示はできません。
			}
			if (KuniPlayer[a] && a==14)
			{
				Clear
				Print 本拠地で大規模な破壊工作が行われ、
				Print 都市機能が壊滅的な打撃を受けた模様です。
			}
			if (KuniPlayer[a] && League[a][11]>0)
			{
				WindowOn 4000
				Clear
				Print この度の事件の首謀者とされる
				Print 銀の教団が、同盟の破棄を宣言。
				Print 我が国に対し宣戦布告をしてきました！
			}
			if (KuniPlayer[a]==0)
			{
				Print がテロによって壊滅的な被害を受けました。
			}
			WindowOn 4000
			Set League[a][11],0
			Set d,BaseArea[a]
			Plus AreaCity[d],-20
			Plus AreaWall[d],-70
			Plus AreaRoad[d],-50
			if (a!=14)
			{
				Set f,-387
				Start
				if(Flag[f]==a)
				{
					Set Flag[f],0
				}
				if(f<-354)
				{
					Plus f,1
					GoTo
				}
			}
		}
	WindowOff
	}
}
//銀教暗殺　４ターンに一回　a：対象国　b：銀教のエリア数　c：成立フラグ用
if (Flag[300]==0 && Flag[301] && KuniPlayer[11] && Ley[11]==999)
{
	Set a,1
	Set b,AreaKz[11]
	Set c,0
	Start
	if (a==1 && KuniFlag[1] && AreaKz[1]<b && Flag[95]==0)
	if (a==10 && KuniFlag[10] && AreaKz[10]<b && HeroKuni[%海竜ホワイト]!=10)
	if (a==16 && KuniFlag[16] && AreaKz[16]<b && Flag[146]==0)
	if (KuniFlag[a] && AreaKz[a]<b && a!=1 && a!=10 && a!=11 && a!=14 && a!=16 && a!=20 && a!=22)
	{
		Set c,1
	}
	if (a<23 && c==0)
	{
		Plus a,1
		GoTo
	}
	if (c)
	{
		if (Flag[290]==0)
		{
			Window 0
			Conversation %上忍
			Print ……サフェーナ様。
			Print 特殊任務の実行は、いつでも可能です。
			WindowOn 0
			Window 1
			Conversation 11
			Print フフッ……ご苦労様です。
			Print 高い報酬を払うのですから
			Print 期待していますよ。
			WindowOn 0
			Window 0
			Conversation %上忍
			Print ……御意！
			WindowOn 0		
			Set c,YesNo(暗殺の説明を読みますか？)
			WindowOff
			if (c)
			{
				Window 0
				Size 356,160
				Print 暗殺は、999Leyを消費して施行できる
				Print 究極のテロです。
				Print うまく利用すれば、やっかいな相手でも
				Print 戦わずして勝利を得ることが可能でしょう。
				WindowCenter
				WindowOn 0
				Clear
				Print 効果：敵マスターの死亡
				Print 　
				Print 但し、対象国の固有人材が生存している場合
				Print マスターの身代わりとなり暗殺を防ぐので
				Print その場合は、何回か暗殺を繰り返す必要があります。
				WindowOn 0
				Clear
				Print 発生条件：
				Print １　対象国の領地が、自国より少ない事
				Print ２　Ley999を所持している事。４ターン毎
				Print 　
				Print ※上記の条件を満たしても、
				Print 　一部の国には暗殺部隊を送ることが出来ません。
				WindowOn 0			
			}
			WindowOff
			Set Flag[290],1
		}
		Window 1
		FaceOut 11
		WindowOn 100
		Window 0
		Conversation %上忍
		Print ……準備は万全です。
		WindowOn 100
		Set c,YesNo(999Leyを投じ、暗殺を実行しますか？)
		WindowOff
		if (c)
		{
			Set a,1
			Set c,0
			Start
			if (a==1 && KuniFlag[1] && AreaKz[1]<b && Flag[95]==0)
			if (a==10 && KuniFlag[10] && AreaKz[10]<b && HeroKuni[%海竜ホワイト]!=10)
			if (a==16 && KuniFlag[16] && AreaKz[16]<b && Flag[146]==0)
			if (KuniFlag[a] && AreaKz[a]<b && a!=1 && a!=10 && a!=11 && a!=14 && a!=16 && a!=20 && a!=22)
			{
				Window 0
				FaceOut a
				WindowOn 100
				Window 1
				Size 356,96
				PrintKz AreaKz[a]
				PrintKz Ley[a]
				OutPrint 100,16, 領土数：
				OutPrint 100,36, 軍資金：
				WindowCenter
				WindowOn 0
				Set c,YesNo(このマスターをターゲットにしますか？)
			}
			if (a<23 && c==0)
			{
				Plus a,1
				GoTo
			}
			WindowOff
			if (c==0)
			{
				Set a,1
				Set c,YesNo(最初に戻る／暗殺を中止する)
				if (c)
				{
					Set c,0
					GoTo
				}
			}
			//暗殺成立時　h==無残にも暗殺される人
			if (c)
			{
				Plus Ley[11],-999
				Set h,0
				Set x,%ロザス
				Set y,%ヴァレンシュタイン
				Start
				if (HeroKuni[x]==a && x!=%アンデッドミヤコ && x!=%アンデッドシラハ && x!=%ウリ && x!=%ミナ)
				{
					Set h,x
				}
				if (x<y && h==0)
				{
					Plus x,1
					GoTo
				}
				if (h==0)
				{
					Set h,a
				}
				CharDelete h
				if (h==5)
				{
					CharDelete 19
				}
				if (h>23)
				{
					Window 0
					FaceOut h
					WindowOn 100
					Window 1
					Size 356,96
					Print マスターの暗殺は阻止されましたが
					Print 側近を負傷させることに成功しました。
					WindowCenter
					WindowOn 0
				}
			}
		}
	WindowOff
	}
}