太閤立志伝５イベントソース
//敵対大名侵攻イベントver1.2
//敵対城に３人以上配下が居ないと出撃しない。
//発生確率３０（５０から減少）％です。毎月攻めてきます。
//１００％にするとおそらく評定が起こらなくなるでしょう。

//おすすめは本能寺シナリオの上杉や毛利です。
//次々に攻めてこられて泣きます。
//勝つとイカサマ発動ですがこれはおまけ程度です。


//1.1{}の連動をチェック
//1.1攻城戦処理を差し替え
//1.2全面的に作り替え
//1.2城主になっても本体第５備で駆り出されるバグの修正
//1.2主人公がイベント参加可能か判別するようにした(配下城主で別の城を攻めていても駆り出される為)
//1.2評定処理は行えるように武将以下の場合偶数月初頭のみ発動するようにした。
//1.2敵本城最低兵士数を20000から15000に減少
//1.2発生確率を50から30%に変えた。
//1.2配下城主時の大名居城処理を変更
//1.2援軍の所持物資も物資判定するようにした。
//侵攻側軍団の損害を反映させるように変更したかったけど投げた。（実際はどうなってるのかわからない）
//６軍団戦闘を目指したがどうやっても５軍団編成まで成功しても戦場に出せないので適当に閉めた。

//イベント用軍団　１〜３　敵軍　４、５　味方軍
////変数設定　	ａ　自軍軍資金	ｂ　自軍兵糧　	ｃ　自軍鉄砲　	ｄ　自軍軍馬　	ｅ　自軍大筒　	ｆ　自軍兵士数
////		ｇ　敵軍軍資金	ｈ　敵軍兵糧	ｉ　敵軍鉄砲	ｊ　敵軍軍馬	ｋ　敵軍大筒	ｌ　敵軍兵士数
////		ｍ　--------	ｎ　--------	ｏ　--------	ｐ　--------	ｑ　資源判定基数ｒ　--------
////		ｓ　減算数値	ｔ　--------	ｕ　--------	ｖ　--------	ｗ　--------	ｘ　--------
////		ｙ　ループ回数	ｚ　判定用数値
////城Ａ　主人公側大名居城　城Ｂ　敵側大名居城　城Ｃ　援軍１居城　城Ｄ　援軍２居城

チャプター:{
イベント:主人公いじめ{
属性:何度でも
発生契機:毎月処理の最後
発生条件:{
	調査:(Ｒｎｄ１００)<(30)
ＯＲ調査:{
	ＡＮＤ調査:{
		ＯＲ調査:{
			調査:(主人公.身分)==(足軽組頭)
			調査:(主人公.身分)==(足軽大将)
			調査:(主人公.身分)==(侍大将)
			調査:(主人公.身分)==(部将)
			調査:(主人公.身分)==(家老)
			}
		ＯＲ調査:{
			調査:(状況::月)==(2)
			調査:(状況::月)==(4)
			調査:(状況::月)==(6)
			調査:(状況::月)==(8)
			調査:(状況::月)==(10)
			調査:(状況::月)==(12)
			}
		}
	ＯＲ調査:{
		調査:(主人公.身分)==(城主)
		調査:(主人公.身分)==(国主)
		調査:(主人公.身分)==(大名)
		}
	}
//	調査:(軍団::イベント用１軍団.使用状況)==(未使用)
//	調査:(軍団::イベント用２軍団.使用状況)==(未使用)
//	調査:(軍団::イベント用３軍団.使用状況)==(未使用)
//	調査:(軍団::イベント用４軍団.使用状況)==(未使用)
//	調査:(軍団::イベント用５軍団.使用状況)==(未使用)
	調査:(人物::主人公.イベント参加可能)==(真)
	代入大名家Ａ:(主人公.所属大名家)
	代入城Ａ:(大名家::大名家Ａ.本城)
	代入人物Ａ:(城::城Ａ.城主)
	調査:(人物::人物Ａ.イベント参加可能)==(真)
	調査:(城::城Ａ.戦闘フラグ)==(平常)
	コンテナ設定:(大名家,存在,真)
	コンテナ除外:(大名家,大名家番号,主人公大名家)
	コンテナ絞り込み:(大名家,外交同盟(主人公勢力),同盟なし)
	コンテナ絞り込み:(大名家,外交感情(主人公勢力),絶交)
	コンテナ絞り込み:(大名家,隣接大名家(主人公勢力),真)
	コンテナソート:(無効,シャッフル,昇順)
	調査:(コンテナカウンタ)!=(0)
	}
スクリプト:{

ループ:{
	コンテナ選択:(大名家Ｂ,先頭)
	代入城Ｂ:(大名家::大名家Ｂ.本城)
	ＡＮＤ調査:{
		調査:(城::城Ｂ.兵士数)>=(15000)
		調査:(城::城Ｂ.戦闘フラグ)==(平常)
		コンテナ設定:(人物,所属拠点,城Ｂ)
		コンテナ絞り込み:(人物,カテゴリ,武将)
		コンテナ絞り込み:(人物,イベント参加可能,真)
		調査:(コンテナカウンタ)>=(3)
		}
	分岐:(真){//城兵数検査
		更新:(イベントフラグ::城兵士数条件検査終了)(成立)
		更新:(イベントフラグ::城兵士数条件)(成立)
		}
	分岐:(偽){//城兵数検査
		コンテナ選抜:(削る,1)
		調査:(コンテナカウンタ)==(0)
			分岐:(真){
				更新:(イベントフラグ::城兵士数条件検査終了)(成立)
				}
			分岐:(偽){
				}
		}//城兵数検査
	調査:(イベントフラグ::城兵士数条件検査終了)==(成立)
	ブロック脱出:(真)
	}//判定ループ終わり

調査:(イベントフラグ::城兵士数条件)==(成立)//★
分岐:(真){//★
	コンテナ設定:(人物,所属拠点,城Ｂ)
	コンテナ絞り込み:(人物,カテゴリ,武将)
	コンテナ絞り込み:(人物,イベント参加可能,真)
ＡＮＤ調査:{
	調査:(コンテナカウンタ)>=(11)
	調査:(城::城Ｂ.兵士数)>=(45000)
	}
	分岐:(真){
		代入ｙ:(1)//ループ回数
		}
	分岐:(偽){
		ＡＮＤ調査:{
			調査:(コンテナカウンタ)>=(6)
			調査:(城::城Ｂ.兵士数)>=(30000)	
			}
		分岐:(真){
			代入ｙ:(2)//ループ回数
			}
		分岐:(偽){
			調査:(コンテナカウンタ)>=(1)
			分岐:(真){
				代入ｙ:(3)//ループ回数(初期値３スタートなので１周のみ)
				}
			分岐:(偽){
				更新:(イベントフラグ::軍団編成)(不成立)
				}//１軍団フラグ
			}//２軍団フラグ
		}//３軍団フラグ
条件ブロック:(イベントフラグ::軍団編成)!=(不成立){//不成立の場合はループを飛ばす。		
//代入ｙ:(1)//ループ回数
ループ:{
代入ｑ:(10000)//資源判定基本数値（10000か20000)
代入ｚ:(ｙ)*(ｑ)
代入ｓ:(ｚ)-(ｑ)
調査:(城::城Ｂ.軍資金)>=(ｚ)
	分岐:(真){//�@
		代入ｇ:(ｑ)
		}//�@
	分岐:(偽){//�@
		代入ｇ:(城::城Ｂ.軍資金)
		条件ブロック:(ｙ)>(1){//�A
		代入ｇ:(ｇ)-(ｓ)
			条件ブロック:(ｇ)<(0){//�B
					代入ｇ:(0)
					}//�B
				}//�A
		}//�@
代入ｑ:(20000)
代入ｚ:(ｙ)*(ｑ)
代入ｓ:(ｚ)-(ｑ)
調査:(城::城Ｂ.兵糧)>=(ｚ)
	分岐:(真){//�@
		代入ｈ:(ｑ)
		}//�@
	分岐:(偽){//�@
		代入ｈ:(城::城Ｂ.兵糧)
		条件ブロック:(ｙ)>(1){//�A
		代入ｈ:(ｈ)-(ｓ)
			条件ブロック:(ｈ)<(0){//�B
					代入ｈ:(0)
					}//�B
				}//�A
		}//�@
調査:(城::城Ｂ.鉄砲)>=(ｚ)
	分岐:(真){//�@
		代入ｉ:(ｑ)
		}//�@
	分岐:(偽){//�@
		代入ｉ:(城::城Ｂ.鉄砲)
		条件ブロック:(ｙ)>(1){//�A
		代入ｉ:(ｉ)-(ｓ)
			条件ブロック:(ｉ)<(0){//�B
					代入ｉ:(0)
					}//�B
				}//�A
		}//�@

調査:(城::城Ｂ.軍馬)>=(ｚ)
	分岐:(真){//�@
		代入ｊ:(ｑ)
		}//�@
	分岐:(偽){//�@
		代入ｊ:(城::城Ｂ.軍馬)
		条件ブロック:(ｙ)>(1){//�A
		代入ｊ:(ｊ)-(ｓ)
			条件ブロック:(ｊ)<(0){//�B
					代入ｊ:(0)
					}//�B
				}//�A
		}//�@

調査:(城::城Ｂ.兵士数)>=(ｚ)
	分岐:(真){//�@
		代入ｌ:(ｑ)
		}//�@
	分岐:(偽){//�@
		代入ｌ:(城::城Ｂ.兵士数)
		条件ブロック:(ｙ)>(1){//�A
//ナレーション:[[<ｙ>周目の判定で兵士数は<ｌ>となりました。ちなみに<ｓ>分この後引きます]]
		代入ｌ:(ｌ)-(ｓ)
			条件ブロック:(ｌ)<(0){//�B
					代入ｌ:(0)
					}//�B
				}//�A
		}//�@

代入ｑ:(2000)
代入ｚ:(ｙ)*(ｑ)
代入ｓ:(ｚ)-(ｑ)
調査:(城::城Ｂ.大筒)>=(ｚ)
	分岐:(真){//�@
		代入ｋ:(ｑ)
		}//�@
	分岐:(偽){//�@
		代入ｋ:(城::城Ｂ.大筒)
		条件ブロック:(ｙ)>(1){//�A
		代入ｋ:(ｋ)-(ｚ)
			条件ブロック:(ｋ)<(0){//�B
					代入ｋ:(0)
					}//�B
				}//�A

		}//�@
//メモ
//最低３人は確保済み
//1 2 3 4 5 6 7 8 9 0 1 2 3 4 5
//^     ^ ^ ^ ^			 -0 　-3 
//  ^           ^ ^ ^ ^		 -1 　-6
//    ^                 ^ ^ ^ ^	 -2 　-9

	コンテナ設定:(人物,所属拠点,城Ｂ)
	コンテナ絞り込み:(人物,カテゴリ,武将)
	コンテナ絞り込み:(人物,イベント参加可能,真)
	コンテナソート:(人物,統率力,降順)
	コンテナソート:(人物,身分,降順)
条件ブロック:(ｙ)==(1){//�@
	コンテナ選択:(人物Ａ,先頭)
	コンテナ選抜:(削る,3)
			}//�@
条件ブロック:(ｙ)==(2){//�@
	コンテナ選択:(人物Ａ,先頭)
	コンテナ選抜:(削る,6)
			}//�@
条件ブロック:(ｙ)==(3){//�@
	コンテナ選択:(人物Ａ,先頭)
	コンテナ選抜:(削る,9)
			}//�@
	調査:(コンテナカウンタ)>=(1)
		分岐:(真){//対象武将が実在するか判定
			コンテナ選択:(人物Ｂ,先頭)
			コンテナ選抜:(削る,1)
			}
		分岐:(偽){
			代入人物Ｂ:(備大将)
			}
	調査:(コンテナカウンタ)>=(1)
		分岐:(真){
			コンテナ選択:(人物Ｃ,先頭)
			コンテナ選抜:(削る,1)
			}
		分岐:(偽){
			代入人物Ｃ:(備大将)
			}
	調査:(コンテナカウンタ)>=(1)
		分岐:(真){
			コンテナ選択:(人物Ｄ,先頭)
			コンテナ選抜:(削る,1)
			}
		分岐:(偽){
			代入人物Ｄ:(備大将)
			}
	調査:(コンテナカウンタ)>=(1)
		分岐:(真){
			コンテナ選択:(人物Ｅ,先頭)
			}
		分岐:(偽){
			代入人物Ｅ:(備大将)
			}
条件ブロック:(ｙ)==(1){//�@
		軍団編成最強:(イベント用１軍団,城Ｂ,拠点移動,城Ａ,無効,城Ａ,人物Ａ,人物Ｂ,人物Ｃ,人物Ｄ,人物Ｅ,ｇ,ｈ,ｉ,ｊ,ｋ,ｌ,0)
			}//�@
条件ブロック:(ｙ)==(2){//�@
		軍団編成最強:(イベント用２軍団,城Ｂ,拠点移動,城Ａ,イベント用１軍団,城Ａ,人物Ａ,人物Ｂ,人物Ｃ,人物Ｄ,人物Ｅ,ｇ,ｈ,ｉ,ｊ,ｋ,ｌ,0)
			}//�@
条件ブロック:(ｙ)==(3){//�@
		軍団編成最強:(イベント用３軍団,城Ｂ,拠点移動,城Ａ,イベント用１軍団,城Ａ,人物Ａ,人物Ｂ,人物Ｃ,人物Ｄ,人物Ｅ,ｇ,ｈ,ｉ,ｊ,ｋ,ｌ,0)
			}//�@
//ナレーション:[[<城Ａ><城Ｂ><ｇ><ｈ><ｉ><ｊ><ｋ><ｌ><ｙ><人物Ａ><人物Ｂ><人物Ｃ><人物Ｄ><人物Ｅ>]]
代入ｙ:(ｙ)+(1)//周回数ＵＰ
調査:(ｙ)==(4)
ブロック脱出:(真)
}//ループ終わり
}//(軍団編成フラグ)!=(不成立)終わり(★★)
	}//★
分岐:(偽){//★
	}//★

//ナレーション:[[攻めてくるかもしれません]]

//再度軍団編成フラグ不成立で今度は最後まで飛ばす。(★★)が目安
条件ブロック:(イベントフラグ::軍団編成)!=(不成立){


//以下自軍団編成
更新:(イベントフラグ::主人公いじめイベント失敗)(不成立)

//主人公の居城が大名居城と一緒なのか判別（配下城主や陪臣の場合）
調査:(人物::主人公.所属拠点)!=(城Ａ)
分岐:(真){
	更新:(イベントフラグ::主人公居城が別拠点)(成立)
	}
分岐:(偽){
	更新:(イベントフラグ::主人公居城が別拠点)(不成立)
	}

//出撃軍団の城設定
//�@ひとまず配下城主で調べる（１個目＝城Ｃ）
コンテナ設定:(城,所属大名家,大名家Ａ)
コンテナ除外:(城,城主,主人公当主)
コンテナソート:(城,兵士数,降順)
コンテナ絞り込み:(城,戦闘フラグ,平常)
コンテナ複写:(退避)
ループ:{
//ひとまず城を選んだ
	コンテナ複写:(復帰)
	調査:(コンテナカウンタ)!=(0)//選択前に配下城主が存在するか判定
		分岐:(真){//�@
		更新:(イベントフラグ::配下城主判定１終了)(成立)
			コンテナ選択:(城Ｃ,先頭)
			コンテナ選抜:(削る,1)
			コンテナ複写:(退避)
		//城内部で出撃可能人物が居るか調べる
			コンテナ設定:(人物,所属拠点,城Ｃ)
			コンテナ絞り込み:(人物,カテゴリ,武将)
			コンテナ絞り込み:(人物,イベント参加可能,真)
			調査:(コンテナカウンタ)!=(0)//城Ｃの中に出撃可能人物が居たか
				分岐:(真){//�A
					更新:(イベントフラグ::配下城主判定１終了)(成立)
					更新:(イベントフラグ::援軍城主１確定)(成立)
//ナレーション:[[援軍城主１<城Ｃ>は来ます。]]
					}//�A
				分岐:(偽){//�A
					更新:(イベントフラグ::援軍城主１確定)(不成立)
					}//�A
			}//�@
		分岐:(偽){//�@
			コンテナ複写:(退避)
			更新:(イベントフラグ::配下城主判定１終了)(成立)
			更新:(イベントフラグ::援軍城主１確定)(不成立)
//ナレーション:[[援軍城主１は来ません。]]
			}//�@
	調査:(イベントフラグ::配下城主判定１終了)==(成立)
	ブロック脱出:(真)
}//城Ｃ選択ループ終わり


//�A配下城主で調べる（２個目＝城Ｄ）
コンテナ設定:(城,所属大名家,大名家Ａ)
コンテナ除外:(城,城主,主人公当主)
コンテナ除外:(城,城番号,城Ｃ)
コンテナソート:(城,兵士数,降順)
コンテナ絞り込み:(城,戦闘フラグ,平常)
コンテナ複写:(退避)
ループ:{
//ひとまず城を選んだ
	コンテナ複写:(復帰)
	調査:(コンテナカウンタ)!=(0)//選択前に配下城主が存在するか判定
		分岐:(真){//�@
		更新:(イベントフラグ::配下城主判定２終了)(成立)
			コンテナ選択:(城Ｄ,先頭)
			コンテナ選抜:(削る,1)
			コンテナ複写:(退避)
		//城内部で出撃可能人物が居るか調べる
			コンテナ設定:(人物,所属拠点,城Ｄ)
			コンテナ絞り込み:(人物,カテゴリ,武将)
			コンテナ絞り込み:(人物,イベント参加可能,真)
			調査:(コンテナカウンタ)!=(0)//城Ｄの中に出撃可能人物が居たか
				分岐:(真){//�A
					更新:(イベントフラグ::配下城主判定２終了)(成立)
					更新:(イベントフラグ::援軍城主２確定)(成立)
//ナレーション:[[援軍城主２<城Ｄ>は来ます。]]
					}//�A
				分岐:(偽){//�A
					更新:(イベントフラグ::援軍城主２確定)(不成立)
					}//�A
			}//�@
		分岐:(偽){//�@
			コンテナ複写:(退避)
			更新:(イベントフラグ::配下城主判定２終了)(成立)
			更新:(イベントフラグ::援軍城主２確定)(不成立)
//ナレーション:[[援軍城主２は来ません。]]
			}//�@
	調査:(イベントフラグ::配下城主判定２終了)==(成立)
	ブロック脱出:(真)
}//城Ｄ選択ループ終わり

//�@配下城主で城Ｃが選択出来なかった場合無理矢理同盟国当主を駆り出す
条件ブロック:(イベントフラグ::援軍城主１確定)==(不成立){
	コンテナ設定:(大名家,外交同盟(主人公勢力),同盟)
	コンテナ絞り込み:(大名家,存在,真)
	コンテナ除外:(大名家,大名家番号,主人公大名家)
	コンテナソート:(無効,シャッフル,昇順)
	コンテナ選択:(勢力Ａ,先頭)
条件ブロック:(コンテナカウンタ)!=(0){
	代入城Ｃ:(勢力::勢力Ａ.本拠)
	コンテナ設定:(人物,所属拠点,城Ｃ)
	コンテナ絞り込み:(人物,カテゴリ,武将)
	コンテナ絞り込み:(人物,イベント参加可能,真)
	調査:(コンテナカウンタ)!=(0)//城Ｃの中に出撃可能人物が居たか
		分岐:(真){
		更新:(イベントフラグ::援軍城主１確定)(成立)
会話:(小姓,主人公):[[<勢力Ａ>が援軍に来てくれる様です]]
		}
		分岐:(偽){
		更新:(イベントフラグ::援軍城主１確定)(不成立)//念のため
//ナレーション:[[援軍勢力１<勢力Ａ>は来ません。]]
		}
				}//条件ブロック(コンテナカウンタ)終わり
					}//条件ブロック(配下城主１)終わり




//�A配下城主で城Ｄが選択出来なかった場合無理矢理同盟国当主を駆り出す
条件ブロック:(イベントフラグ::援軍城主２確定)==(不成立){
	コンテナ設定:(大名家,外交同盟(主人公勢力),同盟)
	コンテナ絞り込み:(大名家,存在,真)
	コンテナ除外:(大名家,存在,真)
	コンテナ除外:(大名家,大名家番号,主人公大名家)
	コンテナソート:(無効,シャッフル,昇順)
	コンテナ選択:(勢力Ｂ,先頭)
	条件ブロック:(勢力Ｂ)==(勢力Ａ){
	コンテナ選抜:(削る,1)
	コンテナ選択:(勢力Ｂ,先頭)
	}
条件ブロック:(コンテナカウンタ)!=(0){
	代入城Ｄ:(勢力::勢力Ｂ.本拠)
	コンテナ設定:(人物,所属拠点,城Ｄ)
	コンテナ絞り込み:(人物,カテゴリ,武将)
	コンテナ絞り込み:(人物,イベント参加可能,真)
	調査:(コンテナカウンタ)!=(0)//城Ｃの中に出撃可能人物が居たか
		分岐:(真){
		更新:(イベントフラグ::援軍城主２確定)(成立)
//ナレーション:[[援軍勢力２<勢力Ｂ>は来ます。]]
		}
		分岐:(偽){
		更新:(イベントフラグ::援軍城主２確定)(不成立)//念のため
//ナレーション:[[援軍勢力２<勢力Ｂ>は来ません。]]
		}
				}//条件ブロック(コンテナカウンタ)終わり
							}//条件ブロック(配下城主２)終わり
コンテナ設定:(人物,所属拠点,城Ｄ)
コンテナ絞り込み:(人物,カテゴリ,武将)
コンテナ絞り込み:(人物,イベント参加可能,真)
コンテナソート:(人物,身分,降順)
コンテナ選択:(人物Ｄ,先頭)
コンテナ設定:(人物,所属拠点,城Ｃ)
コンテナ絞り込み:(人物,カテゴリ,武将)
コンテナ絞り込み:(人物,イベント参加可能,真)
コンテナソート:(人物,身分,降順)
コンテナ選択:(人物Ｃ,先頭)

//ナレーション:[[援軍大将は<人物Ｃ><人物Ｄ>です。]]


//この時点で”援軍城主１確定””援軍城主２確定”の成立かどうかが決定。

//城Ａが大殿居城　城Ｃが援軍１居城　城Ｄが援軍２居城　城Ｂは敵大名家居城　城Ｅは代入用可変
//主人公居城が別拠点の場合は軍団の名前を入れ替えする（実際動かすところで判定）
//敵１ (+2+3)軍団に　主人公 (+4+5) または　４ (+主人公+5)が攻めかかる様にする。
//ひとまず３軍団分編成
//１周目　大名居城
//２周目　援軍１
//３周目　援軍２
//大前提で主人公はイベント参加可能じゃないと発生していないのでどの軍団かには配属されるはず。

//再度設定
代入大名家Ａ:(主人公.所属大名家)
代入城Ａ:(大名家::大名家Ａ.本城)
代入ｙ:(1)
ループ:{//城物資を見ながら軍団編成

	条件ブロック:(ｙ)==(1){
				代入城Ｅ:(城Ａ)
				}
コンテナ設定:(人物,所属拠点,城Ｅ)
コンテナ絞り込み:(人物,カテゴリ,武将)
コンテナ絞り込み:(人物,イベント参加可能,真)
コンテナソート:(人物,身分,降順)
コンテナ選択:(人物Ｅ,先頭)
調査:(城::城Ｅ.軍資金)>=(10000)
分岐:(真){
	代入ａ:(10000)	
	}
分岐:(偽){
	代入ａ:(城::城Ｅ.軍資金)
	}
調査:(城::城Ｅ.兵糧)>=(20000)
分岐:(真){
	代入ｂ:(20000)	
	}
分岐:(偽){
	代入ｂ:(城::城Ｅ.兵糧)	
	}
調査:(城::城Ｅ.鉄砲)>=(10000)
分岐:(真){
	代入ｃ:(10000)	
	}
分岐:(偽){
	代入ｃ:(城::城Ｅ.鉄砲)	
}
調査:(城::城Ｅ.軍馬)>=(20000)
分岐:(真){
	代入ｄ:(20000)	
	}
分岐:(偽){
	代入ｄ:(城::城Ｅ.軍馬)	
	}
調査:(城::城Ｅ.兵士数)>=(20000)
分岐:(真){
	代入ｆ:(20000)	
	}
分岐:(偽){
	代入ｆ:(城::城Ｅ.兵士数)	
	}
代入ｅ:(城::城Ｅ.大筒)
//ナレーション:[[<城Ａ><城Ｂ><城Ｃ><城Ｄ><城Ｅ><ａ><ｂ><ｃ><ｄ><ｅ><ｆ><ｙ><ｑ><ｚ><人物Ａ><人物Ｂ><人物Ｃ><人物Ｄ><人物Ｅ>]]

//軍団編成概略図
//-------�@城Ａ---主--------�A城Ｃ----４--------判定３城Ｄ--５---
//　　		|
//     		--４--------�A--------主--------�B----------５---
//				|
//				------５--------�B----------主---
//							|
//							----無し-


///ループ１周目なので迎撃主軍団を編成する。ここでの拠点城は大名居城(城Ａ)
条件ブロック:(ｙ)==(1){
///城Ａで主人公軍団か第４軍団を編成する。
	調査:(城Ａ)==(人物::主人公.所属拠点)
		分岐:(真){//�@
			調査:(人物::人物Ｅ)==(主人公)
				分岐:(真){//�A
					軍団編成最強:(主人公軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,主人公,無効,無効,無効,無効,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)
//ナレーション:[[１１主人公軍団編成成功]]
					}//�A
				分岐:(偽){//�A
					軍団編成最強:(主人公軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,人物Ｅ,無効,無効,無効,主人公,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)	
//ナレーション:[[１２主人公軍団２編成成功]]
					}//�A
			}//�@
		分岐:(偽){//�@
			軍団編成最強:(イベント用４軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,人物Ｅ,無効,無効,無効,無効,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)
//ナレーション:[[１３第４軍団編成]]
			}//�@
///２周目用の処理	
		代入城Ｅ:(城Ｃ)
			}//条件ブロックY=1終わり　"�CSTART"へ

//ループ２周目　城Ｃで援軍第１軍団を編成。
条件ブロック:(ｙ)==(2){
	条件ブロック:(イベントフラグ::援軍城主１確定)==(成立){
	調査:(城Ａ)==(人物::主人公.所属拠点)
		分岐:(真){//�@
			軍団編成最強:(イベント用４軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,人物Ｅ,無効,無効,無効,無効,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)
//ナレーション:[[２１第４軍団編成]]
			}//�@
		分岐:(偽){//�@
			調査:(城Ｃ)==(人物::主人公.所属拠点)
				分岐:(真){//�A
					調査:(人物::人物Ｅ)==(主人公)
						分岐:(真){//�B
							軍団編成最強:(主人公軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,主人公,無効,無効,無効,無効,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)
//ナレーション:[[２２主人公軍団編成]]
							}//�B
						分岐:(偽){//�B
							軍団編成最強:(主人公軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,人物Ｅ,無効,無効,無効,主人公,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)
//ナレーション:[[２３主人公軍団２編成]]
							}//�B
					}//�A
				分岐:(偽){//�A
					軍団編成最強:(イベント用５軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,人物Ｅ,無効,無効,無効,無効,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)
//ナレーション:[[２４第５軍団編成]]
					}//�A
			}//�@
//３周目用の処理
		代入城Ｅ:(城Ｄ)
			}//ブロック条件(援軍城主１確定)終了。

//援軍城主１が確定していない場合何もしない。

}//条件ブロックｙ＝２終わり　"�CSTART"へ


//３周目処理　援軍２を編成
条件ブロック:(ｙ)==(3){
	条件ブロック:(イベントフラグ::援軍城主２確定)==(成立){
			条件ブロック:(城Ａ)==(人物::主人公.所属拠点){//上の方にあった図の１番処理
			軍団編成最強:(イベント用５軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,人物Ｅ,無効,無効,無効,無効,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)
//ナレーション:[[３１第５軍団編成]]

			}//１番処理終わり
			条件ブロック:(城Ｃ)==(人物::主人公.所属拠点){//上の方にあった図の２番処理
			軍団編成最強:(イベント用５軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,人物Ｅ,無効,無効,無効,無効,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)
//ナレーション:[[３２第５軍団編成]]
			}//２番処理終わり
			ＡＮＤ調査:{
				調査:(城Ａ)!=(人物::主人公.所属拠点)
				調査:(城Ｃ)!=(人物::主人公.所属拠点)
				調査:(城Ｄ)==(人物::主人公.所属拠点)
				   }
					分岐:(真){//�@上の方の図の３番目処理（４−５−主）
						調査:(人物::人物Ｅ)==(主人公)
							分岐:(真){//�A
								軍団編成最強:(主人公軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,主人公,無効,無効,無効,無効,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)
//ナレーション:[[３３主人公軍団編成]]

								}//�A
							分岐:(偽){//�A
								軍団編成最強:(主人公軍団,城Ｅ,拠点移動,城Ａ,無効,城Ａ,人物Ｅ,無効,無効,無効,主人公,ａ,ｂ,ｃ,ｄ,ｅ,ｆ,0)
//ナレーション:[[３４主人公軍団２編成]]

								}//�A
//ナレーション:[[３周目処理条件３成立]]

						}//�@
					分岐:(偽){//�@
						ＡＮＤ調査:{
							調査:(城Ａ)!=(人物::主人公.所属拠点)
							調査:(城Ｃ)!=(人物::主人公.所属拠点)
							調査:(城Ｄ)!=(人物::主人公.所属拠点)
							   }
							分岐:(真){//�A上の方の図の４番目処理（４−５−ｘ）
								更新:(イベントフラグ::主人公いじめイベント失敗)(成立)
//ナレーション:[[３周目分岐失敗の結果援軍２不成立]]
								}//�A
							分岐:(偽){//�A
								}//�A
						}//�@
			
	}//条件ブロック援軍城主確定２終わり
}//条件ブロックｙ＝3（３周目）処理終わり

//"�CSTART"
代入ｙ:(ｙ)+(1)
調査:(ｙ)==(4)
ブロック脱出:(真)
}//ループ終わり編成終了


条件ブロック:(イベントフラグ::主人公いじめイベント失敗)==(不成立){
//戦闘前
//敵１ (+2+3)軍団に　主人公(本城軍団) (+4+5) または　４(本城軍団) (+主人公+5)が攻めかかる様にする。
//実際軍隊を動かす。
	//敵軍侵攻説明
	ＢＧＭ変更:(イベント危機)
	会話:(小姓,主人公)[[(主人公.名)さま、\n一大事にございます！]]
調査:(イベントフラグ::主人公居城が別拠点)==(成立)
	分岐:(真){//�@
//	ナレーション:[[戦闘タイプ１です。]]
	会話:(小姓,主人公)[[<大名家Ａ>と仲が悪い<大名家Ｂ>が総力を挙げて大殿の居城へ決戦侵攻してくる模様です]]
	会話:(主人公,小姓)[[何！？\n一大事だ！]]
	軍団指令:(主人公軍団,軍団攻撃,イベント用１軍団,イベント用４軍団)
	軍団指令:(イベント用４軍団,軍団攻撃,イベント用１軍団,無効)
	軍団指令:(イベント用５軍団,軍団攻撃,イベント用１軍団,イベント用４軍団)
		}//�@
	分岐:(偽){
//	ナレーション:[[戦闘タイプ２です。]]
	会話:(小姓,主人公)[[<大名家Ａ>と仲が悪い<大名家Ｂ>が総力を挙げてこの城へ決戦侵攻してくる模様です]]
	会話:(主人公,小姓)[[何！？\n一大事だ！]]
	軍団指令:(主人公軍団,軍団攻撃,イベント用１軍団,無効)
	軍団指令:(イベント用４軍団,軍団攻撃,イベント用１軍団,主人公軍団)
	軍団指令:(イベント用５軍団,軍団攻撃,イベント用１軍団,主人公軍団)
		}//�@


}//条件ブロック主人公いじめイベント失敗不成立終了

条件ブロック:(イベントフラグ::主人公いじめイベント失敗)==(成立){
軍団指令:(イベント用１軍団,帰還,無効,無効)
軍団指令:(イベント用２軍団,帰還,無効,無効)
軍団指令:(イベント用３軍団,帰還,無効,無効)
軍団指令:(イベント用４軍団,帰還,無効,無効)
軍団指令:(イベント用５軍団,帰還,無効,無効)
}
更新:(イベントフラグ::主人公いじめイベント発生)(成立)

//(★★)ここまで飛ぶ
}//条件Ｂ(軍団編成フラグ)!=(不成立)終わり。途中で飛ばした軍団を編成しない場合

}//スクリプト終了
}//イベント終了

イベント:主人公いじめ野戦終了{
属性:何度でも
発生契機:野戦終了時(無効,無効,決着)
		発生条件:{
			調査:(イベントフラグ::主人公いじめイベント発生)==(成立)
			調査:(軍団::軍団１.軍団番号)==(イベント用１軍団.軍団番号)
		}

スクリプト:{
代入大名家Ａ:(主人公.所属大名家)
代入城Ａ:(大名家::大名家Ａ.本城)
軍団指令:(イベント用４軍団,帰還,無効,無効)
軍団指令:(イベント用５軍団,帰還,無効,無効)
調査:(軍団::主人公軍団.結果)==(勝利)
分岐:(真){	
			ひとりごと:[[勝ったぞ！]]
			軍団指令:(主人公軍団,帰還,無効,無効)
//おまけ
更新:(城::城Ａ.兵士数)(50000)
更新:(城::城Ａ.士気)(100)
更新:(城::城Ａ.訓練度)(100)
更新:(城::城Ａ.兵糧)(500000)
更新:(城::城Ａ.軍資金)(500000)
更新:(城::城Ａ.鉄砲)(50000)
更新:(城::城Ａ.軍馬)(50000)
更新:(城::城Ａ.大筒)(6000)
更新:(城::城Ａ.人口)(250)
更新:(城::城Ａ.防御度)(250)
更新:(城::城Ａ.現石高)(600)
更新:(城::城Ａ.現鉱山)(250)
更新:(城::城Ａ.住民安定度)(100)
//
更新:(イベントフラグ::主人公いじめイベント野戦終了)(不成立)
}
			分岐:(偽){
			ひとりごと:[[負けた…]]
				条件ブロック:(イベントフラグ::主人公居城が別拠点)==(不成立){
				ナレーション::[[敵が攻めてきます。急いで城に入ってください]]
				軍団指令:(イベント用１軍団,拠点攻撃,城Ａ,無効)
				軍団指令:(イベント用２軍団,拠点攻撃,城Ａ,イベント用１軍団)
				軍団指令:(イベント用３軍団,帰還,無効,無効)
				更新:(イベントフラグ::主人公いじめイベント野戦終了)(成立)
					}
				}
更新:(イベントフラグ::主人公いじめイベント発生)(不成立)
}
}

イベント:主人公いじめ攻城戦終了{
属性:何度でも
発生契機:攻城戦終了時(無効,無効,決着)
		発生条件:{
			調査:(イベントフラグ::主人公居城が別拠点)==(不成立)
			調査:(イベントフラグ::主人公いじめイベント野戦終了)==(成立)
			調査:(軍団::軍団１.軍団番号)==(イベント用１軍団.軍団番号)
			}
スクリプト:{
			代入大名家Ａ:(主人公.所属大名家)
			代入城Ａ:(大名家::大名家Ａ.本城)
			更新:(城::城Ａ.訓練度)(100)
			更新:(城::城Ａ.士気)(20)
			軍団指令:(イベント用１軍団,帰還,無効,無効)
			軍団指令:(イベント用２軍団,帰還,無効,無効)
			ひとりごと:[[これは急いで手を打たないとな…]]
		更新:(イベントフラグ::主人公いじめイベント野戦終了)(不成立)
	}
				}//イベント終了


}//チャプター終了