太閤立志伝５イベントソース

//==========================================================================
//弱小大名救済イベントの概要(2006.10.22)

//○発生条件
//　存在する大名家が６以上あり、
//　大名家を所有城数で昇順(少ない順)ソートし、
//　一番上に来た大名家の所有城数が３以下の場合に発生する
//　なお主人公の所属大名家は救済対象外とする
//　(主人公が大名家所属なら存在大名家数７以上ということになる)

//○救済の受ける大名家
//　弱小大名家２家から、ランダムでどちらか大名家を選び、
//　その大名家の城数が３以下なら救済が行われる
//　さらに３分の１の確率で、もう一方の大名家も救済される
//　物質的な力量の底上げが目的なので、支配力は参照しない

//○救済の種類(以下の６項目の内、いずれか１項目が上昇する)
//■城の規模(1or2)、現石高(5)、現鉱山(5)■城の規模(1)、軍資金(10000)■兵士数(800)、現石高(10)、現鉱山(10)
//■防御度(15)、軍資金(5000)■兵士数(200)、訓練(10)、士気(10)、住民安定度(10)■軍馬(50)、鉄砲(25)、最低武士勲功(100)
//　２５６分の１をみたすと、ボーナスとしてすべての値が上昇
//　城の場合、すべての城が一揆や戦闘中だと救済は行われない
//　武士勲功も同様に、対称武将がイベント参加可能でないと救済は行われない

//○ＮＯＴＥ／ＴＯＤＯ
//・初め城数でソートし４大名を選抜して、その内ランダム選択したスクリプトだったが、
//　あまりにも偏った大名選びだったため３城以下をすべて対象とした
//・ゲーム終盤までデバッグしていないので、発生条件の存在大名家６以上というのが的確かどうか？
//　この判定が甘ければ、終盤かなり偏った大名が強くなる可能性あり
//・現段階で、年に重複する大名家は２家あるかないかのバランス
//・５年進めた段階で、イベント有り無し関わらず滅亡数は１６…
//　イベント有では若干、３城保有で救済を受けた大名家が生き残ってる印象
//　特に関東で伸びる北条、東北の伊達を凌ぐ大名家があった
//　７〜８年以降に威力を発揮してればいいなって感じ
//　２５６分の１を導き出す算出法がよくわからなかった

//更新
//2006.12.12
//・鉱山・石高が最高値を越えて上昇していたので最高値を参照するようにした
//・救済対象の上限を設けた(防御度、訓練度、士気、住民安定度)
//・変な演算式があったので修正

//2006.10.29
//・兵数が増えると金がかかり大名家の経済破綻が起きてしまうおそれがあるため、石高鉱山値も上昇の対象とした
//・城規模上昇は規模２１以下を対象とした
//・極力バグ回避のため調査を入念に
//・それに伴い、大名家選びの手順を簡略化
//・ボーナスを追加（２５６分の１を満たすと、すべての値が上昇）
//・バランス調整（上方修正）
//・誤字訂正
//==========================================================================

チャプター:{

イベント:弱小大名救済{
属性:何度でも
発生契機:毎月処理の最後絶対

発生条件:{
	//調査:(人物::主人公.人物番号)>(800)//イベント導入・未導入の比較用専用調査

	条件ブロック:(主人公.所属勢力タイプ)==(大名家){
		代入大名家Ｅ:(人物::主人公.所属大名家)
	}

	コンテナ設定:(大名家,無効,無効)
	コンテナ絞り込み:(大名家,存在,真)

	条件ブロック:(主人公.所属勢力タイプ)==(大名家){
		コンテナ除外:(大名家,大名家番号,大名家Ｅ)
	}

	調査:(コンテナカウンタ)>=(6)

	コンテナソート:(大名家,城数,昇順)
	コンテナ選択:(大名家Ａ,先頭)

	調査:(大名家::大名家Ａ.城数)<=(3)
}//発生条件〆

スクリプト{

代入ｚ:(0)

//大名家Ａを選ぶ
コンテナソート:(無効,シャッフル,降順)
コンテナソート:(無効,シャッフル,昇順)//よく混ぜる
ループ:{
	コンテナ選択:(大名家Ａ,先頭)
	ブロック脱出:(偽)//ありえないが一応
	条件ブロック:(大名家::大名家Ａ.城数)<=(3){
	代入ｚ:(1)
	}
	コンテナ選抜:(削る,1)
	調査:(ｚ)==(1)
	ブロック脱出:(真)
}

//大名家Ｂを選ぶ
条件ブロック:(ｚ)==(1){//ありえないがバグ回避のため
	ループ:{
		コンテナ選択:(大名家Ｂ,先頭)
		ブロック脱出:(偽)
		調査:(大名家::大名家Ｂ.城数)<=(3)
		ブロック脱出:(真)
		コンテナ選抜:(削る,1)
	}
}

//Ａ家、Ｂ家のどちらか選ぶ変数
代入ｒ:(Ｒｎｄ)%(2)
代入ｓ:(Ｒｎｄ)%(3)


//ここからＡ家の判定と救済ブロック---------------------------
ＡＮＤ調査:{
	ＯＲ調査:{
		調査:(ｒ)==(0)
		調査:(ｓ)==(1)
	}
	調査:(大名家::大名家Ａ.城数)<=(3)//ループ脱出しても変なのが入ってると困るので念のためチェック
}
分岐:(真){//大名家Ａの救済ブロック

	//何を救済するかの変数
	代入ｔ:(Ｒｎｄ)%(6)

	//ボーナスの変数
	代入ｖ:(Ｒｎｄ１００)
	代入ｘ:(Ｒｎｄ１００)

	コンテナ設定:(城,無効,無効)
	コンテナ絞り込み:(城,所属大名家,大名家Ａ)
	コンテナ除外:(城,一揆フラグ,真)
	コンテナ除外:(城,戦闘フラグ,戦闘中)
	コンテナソート:(無効,シャッフル,昇順)
	コンテナソート:(無効,シャッフル,降順)
	コンテナ選択:(城Ａ,先頭)
	調査:(コンテナカウンタ)==(0)
	ブロック脱出:(真)
	//城一つもないということはないが、
	//一揆、戦闘を省くと０の可能性はあるので、
	//ブロック脱出をおいておく

	ＡＮＤ調査:{
		調査:(ｖ)<(16)//これが２５６分の１の確率？
		調査:(ｘ)<(16)
	}
	分岐:(真){
		コンテナ設定:(人物,所属勢力タイプ,大名家)
		コンテナ絞り込み:(人物,所属大名家,大名家Ａ)
		コンテナ除外:(人物,死亡フラグ,死亡)
		コンテナ絞り込み:(人物,出現フラグ,出現済み)
		コンテナ絞り込み:(人物,イベント参加可能,真)

		条件ブロック:(城::城Ａ.規模)<(22){
			調査:(城::城Ａ.規模)<(10)
			分岐:(真){
				代入ａ:(城::城Ａ.規模)+(2)
				更新:(城::城Ａ.規模)(ａ)
			}
			分岐:(偽){
				代入ａ:(城::城Ａ.規模)+(1)
				更新:(城::城Ａ.規模)(ａ)
			}
		}
		条件ブロック:(城::城Ａ.防御度)<(200){
			代入ｂ:(城::城Ａ.防御度)+(10)
			更新:(城::城Ａ.防御度)(ｂ)
		}
		代入ｃ:(城::城Ａ.軍資金)+(10000)
		更新:(城::城Ａ.軍資金)(ｃ)
		代入ｄ:(城::城Ａ.兵士数)+(1000)
		更新:(城::城Ａ.兵士数)(ｄ)
		代入ｐ:(城::城Ａ.基準石高)-(10)
		条件ブロック:(城::城Ａ.現石高)<=(ｐ){
			代入ｅ:(城::城Ａ.現石高)+(10)
			更新:(城::城Ａ.現石高)(ｅ)
		}
		代入ｐ:(城::城Ａ.鉱山最高値)-(10)
		ＡＮＤ調査:{
			調査:(城::城Ａ.現鉱山)<=(ｐ)
			調査:(城::城Ａ.鉱山最高値)!=(0)
		}
		分岐:(真){
			代入ｆ:(城::城Ａ.現鉱山)+(10)
			更新:(城::城Ａ.現鉱山)(ｆ)
		}
		条件ブロック:(城::城Ａ.訓練度)<=(90){
			代入ｇ:(城::城Ａ.訓練度)+(10)
			更新:(城::城Ａ.訓練度)(ｇ)
		}
		条件ブロック:(城::城Ａ.士気)<=(90){
			代入ｈ:(城::城Ａ.士気)+(10)
			更新:(城::城Ａ.士気)(ｈ)
		}
		条件ブロック:(城::城Ａ.住民安定度)<=(90){
			代入ｉ:(城::城Ａ.住民安定度)+(10)
			更新:(城::城Ａ.住民安定度)(ｉ)
		}
		代入ｊ:(城::城Ａ.軍馬)+(100)
		更新:(城::城Ａ.軍馬)(ｊ)
		代入ｋ:(城::城Ａ.鉄砲)+(100)
		更新:(城::城Ａ.鉄砲)(ｋ)

		条件ブロック:(コンテナカウンタ)>(0){
			コンテナソート:(人物,武士勲功,昇順)
			コンテナ選択:(人物Ａ,先頭)
			条件ブロック:(人物::人物Ａ.武士勲功)<(6000){
				代入ｌ:(人物::人物Ａ.武士勲功)+(100)
				更新:(人物::人物Ａ.武士勲功)(ｌ)
			}
		}
		//ナレーション:[[弱小大名救済します\n対象＜<大名家Ａ>・<城Ａ>城＞\nボーナスです]]
	}

	分岐:(偽){
		条件ブロック:(ｔ)==(0){
			条件ブロック:(城::城Ａ.規模)<(22){
				調査:(城::城Ａ.規模)<(10)
				分岐:(真){
					代入ａ:(城::城Ａ.規模)+(2)
					更新:(城::城Ａ.規模)(ａ)
				}
				分岐:(偽){
					代入ａ:(城::城Ａ.規模)+(1)
					更新:(城::城Ａ.規模)(ａ)
				}
			}
			代入ｐ:(城::城Ａ.基準石高)-(5)
			条件ブロック:(城::城Ａ.現石高)<=(ｐ){
				代入ｂ:(城::城Ａ.現石高)+(5)
				更新:(城::城Ａ.現石高)(ｂ)
			}
			代入ｐ:(城::城Ａ.鉱山最高値)-(5)
			ＡＮＤ調査:{
				調査:(城::城Ａ.現鉱山)<=(ｐ)
				調査:(城::城Ａ.鉱山最高値)!=(0)
			}
			分岐:(真){
				代入ｃ:(城::城Ａ.現鉱山)+(5)
				更新:(城::城Ａ.現鉱山)(ｃ)
			}
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ａ>・<城Ａ>城＞\n規模・現石高・現鉱山を上昇]]
		}

		条件ブロック:(ｔ)==(1){
			条件ブロック:(城::城Ａ.規模)<(22){
				代入ａ:(城::城Ａ.規模)+(1)
				更新:(城::城Ａ.規模)(ａ)
			}
			代入ｂ:(城::城Ａ.軍資金)+(10000)
			更新:(城::城Ａ.軍資金)(ｂ)
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ａ>・<城Ａ>城＞\n規模・軍資金を上昇]]
		}

		条件ブロック:(ｔ)==(2){
			代入ａ:(城::城Ａ.兵士数)+(1000)
			更新:(城::城Ａ.兵士数)(ａ)
			代入ｐ:(城::城Ａ.基準石高)-(10)
			条件ブロック:(城::城Ａ.現石高)<=(ｐ){
				代入ｂ:(城::城Ａ.現石高)+(10)
				更新:(城::城Ａ.現石高)(ｂ)
			}
			代入ｐ:(城::城Ａ.鉱山最高値)-(10)
			ＡＮＤ調査:{
				調査:(城::城Ａ.現鉱山)<=(ｐ)
				調査:(城::城Ａ.鉱山最高値)!=(0)
			}
			分岐:(真){
				代入ｃ:(城::城Ａ.現鉱山)+(10)
				更新:(城::城Ａ.現鉱山)(ｃ)
			}
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ａ>・<城Ａ>城＞\n兵士数・現石高・現鉱山を上昇]]
		}

		条件ブロック:(ｔ)==(3){
			条件ブロック:(城::城Ａ.防御度)<(200){
				代入ａ:(城::城Ａ.防御度)+(15)
				更新:(城::城Ａ.防御度)(ａ)
			}
			代入ｂ:(城::城Ａ.軍資金)+(5000)
			更新:(城::城Ａ.軍資金)(ｂ)
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ａ>・<城Ａ>城＞\n防御度・軍資金を上昇]]
		}
	
		条件ブロック:(ｔ)==(4){
			代入ａ:(城::城Ａ.兵士数)+(200)
			更新:(城::城Ａ.兵士数)(ａ)
			代入ｂ:(城::城Ａ.訓練度)+(10)
			更新:(城::城Ａ.訓練度)(ｂ)
			代入ｃ:(城::城Ａ.士気)+(10)
			更新:(城::城Ａ.士気)(ｃ)
			代入ｄ:(城::城Ａ.住民安定度)+(10)
			更新:(城::城Ａ.住民安定度)(ｄ)
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ａ>・<城Ａ>城＞\n兵士数・訓練度・士気・住民安定度を上昇]]
		}

		条件ブロック:(ｔ)==(5){
			コンテナ設定:(人物,所属勢力タイプ,大名家)
			コンテナ絞り込み:(人物,所属大名家,大名家Ａ)
			コンテナ除外:(人物,死亡フラグ,死亡)
			コンテナ絞り込み:(人物,出現フラグ,出現済み)
			コンテナ絞り込み:(人物,イベント参加可能,真)

			代入ａ:(城::城Ａ.軍馬)+(50)
			更新:(城::城Ａ.軍馬)(ａ)
			代入ｂ:(城::城Ａ.鉄砲)+(25)
			更新:(城::城Ａ.鉄砲)(ｂ)
			条件ブロック:(コンテナカウンタ)>(0){
				コンテナソート:(人物,武士勲功,昇順)
				コンテナ選択:(人物Ａ,先頭)
				条件ブロック:(人物::人物Ａ.武士勲功)<(6000){
					代入ｃ:(人物::人物Ａ.武士勲功)+(100)
					更新:(人物::人物Ａ.武士勲功)(ｃ)
				}
			}
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ａ>・<城Ａ>城＞\n軍馬・鉄砲・(人物Ａ)の武士勲功を上昇]]
		}
	}
}//大名家Ａの救済ブロック〆


//ここからＢ家の判定と救済ブロック---------------------------
ＡＮＤ調査:{
	ＯＲ調査:{
		調査:(ｒ)==(1)
		調査:(ｓ)==(2)
	}
	調査:(大名家::大名家Ｂ.城数)<=(3)//ループ脱出しても変なのが入ってると困るので念のためチェック
}
分岐:(真){//大名家Ｂの救済ブロック

	//何を救済するかの変数
	代入ｔ:(Ｒｎｄ)%(6)

	//ボーナスの変数
	代入ｖ:(Ｒｎｄ１００)
	代入ｘ:(Ｒｎｄ１００)

	コンテナ設定:(城,無効,無効)
	コンテナ絞り込み:(城,所属大名家,大名家Ｂ)
	コンテナ除外:(城,一揆フラグ,真)
	コンテナ除外:(城,戦闘フラグ,戦闘中)
	コンテナソート:(無効,シャッフル,昇順)
	コンテナソート:(無効,シャッフル,降順)
	コンテナ選択:(城Ａ,先頭)
	調査:(コンテナカウンタ)==(0)
	ブロック脱出:(真)
	//城一つもないということはないが、
	//一揆、戦闘を省くと０の可能性はあるので、
	//ブロック脱出をおいておく

	ＡＮＤ調査:{
		調査:(ｖ)<(16)//これが２５６分の１の確率？
		調査:(ｘ)<(16)
	}
	分岐:(真){
		コンテナ設定:(人物,所属勢力タイプ,大名家)
		コンテナ絞り込み:(人物,所属大名家,大名家Ｂ)
		コンテナ除外:(人物,死亡フラグ,死亡)
		コンテナ絞り込み:(人物,出現フラグ,出現済み)
		コンテナ絞り込み:(人物,イベント参加可能,真)

		条件ブロック:(城::城Ａ.規模)<(22){
			調査:(城::城Ａ.規模)<(10)
			分岐:(真){
				代入ａ:(城::城Ａ.規模)+(2)
				更新:(城::城Ａ.規模)(ａ)
			}
			分岐:(偽){
				代入ａ:(城::城Ａ.規模)+(1)
				更新:(城::城Ａ.規模)(ａ)
			}
		}
		条件ブロック:(城::城Ａ.防御度)<(200){
			代入ｂ:(城::城Ａ.防御度)+(10)
			更新:(城::城Ａ.防御度)(ｂ)
		}
		代入ｃ:(城::城Ａ.軍資金)+(10000)
		更新:(城::城Ａ.軍資金)(ｃ)
		代入ｄ:(城::城Ａ.兵士数)+(1000)
		更新:(城::城Ａ.兵士数)(ｄ)
		代入ｐ:(城::城Ａ.基準石高)-(10)
		条件ブロック:(城::城Ａ.現石高)<=(ｐ){
			代入ｅ:(城::城Ａ.現石高)+(10)
			更新:(城::城Ａ.現石高)(ｅ)
		}
		代入ｐ:(城::城Ａ.鉱山最高値)-(10)
		ＡＮＤ調査:{
			調査:(城::城Ａ.現鉱山)<=(ｐ)
			調査:(城::城Ａ.鉱山最高値)!=(0)
		}
		分岐:(真){
			代入ｆ:(城::城Ａ.現鉱山)+(10)
			更新:(城::城Ａ.現鉱山)(ｆ)
		}
		条件ブロック:(城::城Ａ.訓練度)<=(90){
			代入ｇ:(城::城Ａ.訓練度)+(10)
			更新:(城::城Ａ.訓練度)(ｇ)
		}
		条件ブロック:(城::城Ａ.士気)<=(90){
			代入ｈ:(城::城Ａ.士気)+(10)
			更新:(城::城Ａ.士気)(ｈ)
		}
		条件ブロック:(城::城Ａ.住民安定度)<=(90){
			代入ｉ:(城::城Ａ.住民安定度)+(10)
			更新:(城::城Ａ.住民安定度)(ｉ)
		}
		代入ｊ:(城::城Ａ.軍馬)+(100)
		更新:(城::城Ａ.軍馬)(ｊ)
		代入ｋ:(城::城Ａ.鉄砲)+(100)
		更新:(城::城Ａ.鉄砲)(ｋ)

		条件ブロック:(コンテナカウンタ)>(0){
			コンテナソート:(人物,武士勲功,昇順)
			コンテナ選択:(人物Ａ,先頭)
			条件ブロック:(人物::人物Ａ.武士勲功)<(6000){
				代入ｌ:(人物::人物Ａ.武士勲功)+(100)
				更新:(人物::人物Ａ.武士勲功)(ｌ)
			}
		}
		//ナレーション:[[弱小大名救済します\n対象＜<大名家Ｂ>・<城Ａ>城＞\nボーナスです]]
	}

	分岐:(偽){
		条件ブロック:(ｔ)==(0){
			条件ブロック:(城::城Ａ.規模)<(22){
				調査:(城::城Ａ.規模)<(10)
				分岐:(真){
					代入ａ:(城::城Ａ.規模)+(2)
					更新:(城::城Ａ.規模)(ａ)
				}
				分岐:(偽){
					代入ａ:(城::城Ａ.規模)+(1)
					更新:(城::城Ａ.規模)(ａ)
				}
			}
			代入ｐ:(城::城Ａ.基準石高)-(5)
			条件ブロック:(城::城Ａ.現石高)<=(ｐ){
				代入ｂ:(城::城Ａ.現石高)+(5)
				更新:(城::城Ａ.現石高)(ｂ)
			}
			代入ｐ:(城::城Ａ.鉱山最高値)-(5)
			ＡＮＤ調査:{
				調査:(城::城Ａ.現鉱山)<=(ｐ)
				調査:(城::城Ａ.鉱山最高値)!=(0)
			}
			分岐:(真){
				代入ｃ:(城::城Ａ.現鉱山)+(5)
				更新:(城::城Ａ.現鉱山)(ｃ)
			}
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ｂ>・<城Ａ>城＞\n規模・現石高・現鉱山を上昇]]
		}
	
		条件ブロック:(ｔ)==(1){
			条件ブロック:(城::城Ａ.規模)<(22){
				代入ａ:(城::城Ａ.規模)+(1)
				更新:(城::城Ａ.規模)(ａ)
			}
			代入ｂ:(城::城Ａ.軍資金)+(10000)
			更新:(城::城Ａ.軍資金)(ｂ)
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ｂ>・<城Ａ>城＞\n規模・軍資金を上昇]]
		}

		条件ブロック:(ｔ)==(2){
			代入ａ:(城::城Ａ.兵士数)+(1000)
			更新:(城::城Ａ.兵士数)(ａ)
			代入ｐ:(城::城Ａ.基準石高)-(10)
			条件ブロック:(城::城Ａ.現石高)<=(ｐ){
				代入ｂ:(城::城Ａ.現石高)+(10)
				更新:(城::城Ａ.現石高)(ｂ)
			}
			代入ｐ:(城::城Ａ.鉱山最高値)-(10)
			ＡＮＤ調査:{
				調査:(城::城Ａ.現鉱山)<=(ｐ)
				調査:(城::城Ａ.鉱山最高値)!=(0)
			}
			分岐:(真){
				代入ｃ:(城::城Ａ.現鉱山)+(10)
				更新:(城::城Ａ.現鉱山)(ｃ)
			}
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ｂ>・<城Ａ>城＞\n兵士数・現石高・現鉱山を上昇]]
		}

		条件ブロック:(ｔ)==(3){
			条件ブロック:(城::城Ａ.防御度)<(200){
				代入ａ:(城::城Ａ.防御度)+(15)
				更新:(城::城Ａ.防御度)(ａ)
			}
			代入ｂ:(城::城Ａ.軍資金)+(5000)
			更新:(城::城Ａ.軍資金)(ｂ)
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ｂ>・<城Ａ>城＞\n防御度・軍資金を上昇]]
		}
	
		条件ブロック:(ｔ)==(4){
			代入ａ:(城::城Ａ.兵士数)+(200)
			更新:(城::城Ａ.兵士数)(ａ)
			代入ｂ:(城::城Ａ.訓練度)+(10)
			更新:(城::城Ａ.訓練度)(ｂ)
			代入ｃ:(城::城Ａ.士気)+(10)
			更新:(城::城Ａ.士気)(ｃ)
			代入ｄ:(城::城Ａ.住民安定度)+(10)
			更新:(城::城Ａ.住民安定度)(ｄ)
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ｂ>・<城Ａ>城＞\n兵士数・訓練度・士気・住民安定度を上昇]]
		}

		条件ブロック:(ｔ)==(5){
			コンテナ設定:(人物,所属勢力タイプ,大名家)
			コンテナ絞り込み:(人物,所属大名家,大名家Ｂ)
			コンテナ除外:(人物,死亡フラグ,死亡)
			コンテナ絞り込み:(人物,出現フラグ,出現済み)
			コンテナ絞り込み:(人物,イベント参加可能,真)

			代入ａ:(城::城Ａ.軍馬)+(50)
			更新:(城::城Ａ.軍馬)(ａ)
			代入ｂ:(城::城Ａ.鉄砲)+(25)
			更新:(城::城Ａ.鉄砲)(ｂ)
			条件ブロック:(コンテナカウンタ)>(0){
				コンテナソート:(人物,武士勲功,昇順)
				コンテナ選択:(人物Ａ,先頭)
				条件ブロック:(人物::人物Ａ.武士勲功)<(6000){
					代入ｃ:(人物::人物Ａ.武士勲功)+(100)
					更新:(人物::人物Ａ.武士勲功)(ｃ)
				}
			}
			//ナレーション:[[弱小大名救済します\n対象＜<大名家Ｂ>・<城Ａ>城＞\n軍馬・鉄砲・(人物Ａ)の武士勲功を上昇]]
		}
	}
}//大名家Ｂの救済ブロック〆

}//スクリプト〆
}//イベント〆
}//チャプター〆