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

チャプター:{

	イベント:外交関係変更{
		属性:何度でも｜ひかえめ
		発生契機:室内画面表示後(京の町,寺)
		発生条件:{
		}
		スクリプト:{

//海賊衆間の外交関係を定める///////////////////////////////////////////////////////////////////////////////////////////

			会話:(お市,主人公)[[{おお}、ようこそ{来た}]]
			会話:(お市,主人公)[[勢力同士の外交関係を\n極端にですが変える事が出来{ます}]]
			会話選択:(お市,主人公)[[海賊衆同士の外交関係を変え{ます}か？]]
			選択::([[盟友にする]],[[絶交にする]],[[変えない]])
			分岐:([[盟友にする]]){
			会話:(お市,主人公)[[海賊衆の外交関係を\n盟友に{しよう}]]

			コンテナ設定:(海賊衆,存在,真)
			ループ:{
				コンテナソート:(海賊衆,海賊衆番号,昇順)
				コンテナ選択:(海賊衆Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				ループ:{
					コンテナソート:(海賊衆,海賊衆番号,昇順)
					コンテナ除外:(海賊衆,海賊衆番号,海賊衆Ａ)
					コンテナ選択:(海賊衆Ｂ,先頭)
					更新:(海賊衆::海賊衆Ｂ.外交感情(海賊衆Ａ))(盟友)
					コンテナ選抜:(削る,1)
					調査:(コンテナカウンタ)>(0)
					ブロック脱出:(偽)
					}
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[絶交にする]]){
			会話:(お市,主人公)[[海賊衆の外交関係を\n絶交に{しよう}]]

			コンテナ設定:(海賊衆,存在,真)
			ループ:{
				コンテナソート:(海賊衆,海賊衆番号,昇順)
				コンテナ選択:(海賊衆Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				ループ:{
					コンテナソート:(海賊衆,海賊衆番号,昇順)
					コンテナ除外:(海賊衆,海賊衆番号,海賊衆Ａ)
					コンテナ選択:(海賊衆Ｂ,先頭)
					更新:(海賊衆::海賊衆Ｂ.外交同盟(海賊衆Ａ))(同盟なし)
					更新:(海賊衆::海賊衆Ｂ.外交感情(海賊衆Ａ))(絶交)
					コンテナ選抜:(削る,1)
					調査:(コンテナカウンタ)>(0)
					ブロック脱出:(偽)
					}
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[変えない]]){
			}

//商家間の外交関係を定める//////////////////////////////////////////////////////////////////////////////////////////////

			会話選択:(お市,主人公)[[商家同士の外交関係はどう{しよう}か？]]
			選択::([[盟友にする]],[[絶交にする]],[[変えない]])
			分岐:([[盟友にする]]){
			会話:(お市,主人公)[[商家の外交関係を\n盟友に{しよう}]]

			コンテナ設定:(商家,存在,真)
			ループ:{
				コンテナソート:(商家,商家番号,昇順)
				コンテナ選択:(商家Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				ループ:{
					コンテナソート:(商家,商家番号,昇順)
					コンテナ除外:(商家,商家番号,商家Ａ)
					コンテナ選択:(商家Ｂ,先頭)
					更新:(商家::商家Ｂ.外交感情(商家Ａ))(盟友)
					コンテナ選抜:(削る,1)
					調査:(コンテナカウンタ)>(0)
					ブロック脱出:(偽)
					}
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[絶交にする]]){
			会話:(お市,主人公)[[商家の外交関係を\n絶交に{しよう}]]

			コンテナ設定:(商家,存在,真)
			ループ:{
				コンテナソート:(商家,商家番号,昇順)
				コンテナ選択:(商家Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				ループ:{
					コンテナソート:(商家,商家番号,昇順)
					コンテナ除外:(商家,商家番号,商家Ａ)
					コンテナ選択:(商家Ｂ,先頭)
					更新:(商家::商家Ｂ.外交感情(商家Ａ))(絶交)
					コンテナ選抜:(削る,1)
					調査:(コンテナカウンタ)>(0)
					ブロック脱出:(偽)
					}
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[変えない]]){
			}

//忍者衆間の外交関係を定める///////////////////////////////////////////////////////////////////////////////////////////

			会話選択:(お市,主人公)[[忍者衆同士の外交関係は\nどう{しよう}か？]]
			選択::([[盟友にする]],[[絶交にする]],[[変えない]])
			分岐:([[盟友にする]]){
			会話:(お市,主人公)[[忍者衆の外交関係を\n盟友に{しよう}]]

			コンテナ設定:(忍者衆,存在,真)
			ループ:{
				コンテナソート:(忍者衆,忍者衆番号,昇順)
				コンテナ選択:(忍者衆Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				ループ:{
					コンテナソート:(忍者衆,忍者衆番号,昇順)
					コンテナ除外:(忍者衆,忍者衆番号,忍者衆Ａ)
					コンテナ選択:(忍者衆Ｂ,先頭)
					更新:(忍者衆::忍者衆Ｂ.外交感情(忍者衆Ａ))(盟友)
					コンテナ選抜:(削る,1)
					調査:(コンテナカウンタ)>(0)
					ブロック脱出:(偽)
					}
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[絶交にする]]){
			会話:(お市,主人公)[[忍者衆の外交関係を\n絶交に{しよう}]]

			コンテナ設定:(忍者衆,存在,真)
			ループ:{
				コンテナソート:(忍者衆,忍者衆番号,昇順)
				コンテナ選択:(忍者衆Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				ループ:{
					コンテナソート:(忍者衆,忍者衆番号,昇順)
					コンテナ除外:(忍者衆,忍者衆番号,忍者衆Ａ)
					コンテナ選択:(忍者衆Ｂ,先頭)
					更新:(忍者衆::忍者衆Ｂ.外交同盟(忍者衆Ａ))(同盟なし)
					更新:(忍者衆::忍者衆Ｂ.外交感情(忍者衆Ａ))(絶交)
					コンテナ選抜:(削る,1)
					調査:(コンテナカウンタ)>(0)
					ブロック脱出:(偽)
					}
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[変えない]]){
			}

			会話選択:(お市,主人公)[[大名家同士の外交関係は\nどう{しよう}か？]]
			選択::([[盟友にする]],[[絶交にする]],[[変えない]])
			分岐:([[盟友にする]]){
			会話:(お市,主人公)[[大名家の外交関係を\n盟友に{しよう}]]

			コンテナ設定:(大名家,存在,真)
			ループ:{
				コンテナソート:(大名家,大名家番号,昇順)
				コンテナ選択:(大名家Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				ループ:{
					コンテナソート:(大名家,大名家番号,昇順)
					コンテナ除外:(大名家,大名家番号,大名家Ａ)
					コンテナ選択:(大名家Ｂ,先頭)
					更新:(大名家::大名家Ｂ.外交感情(大名家Ａ))(盟友)
					コンテナ選抜:(削る,1)
					調査:(コンテナカウンタ)>(0)
					ブロック脱出:(偽)
					}
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[絶交にする]]){
			会話:(お市,主人公)[[大名家同士の外交関係を絶交に{しよう}]]

			コンテナ設定:(大名家,存在,真)
			ループ:{
				コンテナソート:(大名家,大名家番号,昇順)
				コンテナ選択:(大名家Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				ループ:{
					コンテナソート:(大名家,大名家番号,昇順)
					コンテナ除外:(大名家,大名家番号,大名家Ａ)
					コンテナ選択:(大名家Ｂ,先頭)
					更新:(大名家::大名家Ｂ.外交同盟(大名家Ａ))(同盟なし)
					更新:(大名家::大名家Ｂ.外交感情(大名家Ａ))(絶交)
					コンテナ選抜:(削る,1)
					調査:(コンテナカウンタ)>(0)
					ブロック脱出:(偽)
					}
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[変えない]]){
			}

//日本全体の勢力について外交関係を定める////////////////////////////////////////////////////////////////////////////////////

			会話選択:(お市,主人公)[[日本全体に何を望みますか？]]
			選択::([[平和を望む]],[[混沌を望む]],[[今のままで良い]])
			分岐:([[平和を望む]]){
			会話:(お市,主人公)[[平和な日本になりますように…]]

			コンテナ設定:(勢力,存在,真)
			ループ:{
				コンテナソート:(勢力,勢力番号,昇順)
				コンテナ選択:(勢力Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				ループ:{
					コンテナソート:(勢力,勢力番号,昇順)
					コンテナ除外:(勢力,勢力番号,勢力Ａ)
					コンテナ選択:(勢力Ｂ,先頭)
					更新:(勢力::勢力Ｂ.外交感情(勢力Ａ))(盟友)
					コンテナ選抜:(削る,1)
					調査:(コンテナカウンタ)>(0)
					ブロック脱出:(偽)
					}
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[混沌を望む]]){
			会話:(お市,主人公)[[混沌とした日本になりますように…]]

			コンテナ設定:(勢力,存在,真)
			ループ:{
				コンテナソート:(勢力,勢力番号,昇順)
				コンテナ選択:(勢力Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				ループ:{
					コンテナソート:(勢力,勢力番号,昇順)
					コンテナ除外:(勢力,勢力番号,勢力Ａ)
					コンテナ選択:(勢力Ｂ,先頭)
					更新:(勢力::勢力Ｂ.外交同盟(勢力Ａ))(同盟なし)
					更新:(勢力::勢力Ｂ.外交感情(勢力Ａ))(絶交)
					コンテナ選抜:(削る,1)
					調査:(コンテナカウンタ)>(0)
					ブロック脱出:(偽)
					}
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[今のままで良い]]){
			}

//主人公勢力について外交関係を定める////////////////////////////////////////////////////////////////////////////////////

			会話選択:(お市,主人公)[[{二人称}の勢力に何を望みますか？]]
			選択::([[平和を望む]],[[混沌を望む]],[[今のままで良い]])

			分岐:([[平和を望む]]){
			会話:(お市,主人公)[[{二人称}の勢力に平和が訪れますように…]]
			コンテナ設定:(勢力,存在,真)
			コンテナ除外:(勢力,勢力番号,主人公勢力)
			ループ:{
				コンテナソート:(勢力,勢力番号,昇順)
				コンテナ選択:(勢力Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				更新:(勢力::勢力Ａ.外交感情(主人公勢力))(盟友)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
			}
			分岐:([[混沌を望む]]){
			会話:(お市,主人公)[[{二人称}の勢力に混沌が訪れますように…]]
			コンテナ設定:(勢力,存在,真)
			コンテナ除外:(勢力,勢力番号,主人公勢力)
			ループ:{
				コンテナソート:(勢力,勢力番号,昇順)
				コンテナ選択:(勢力Ａ,先頭)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				更新:(勢力::勢力Ａ.外交同盟(主人公勢力))(同盟なし)
				更新:(勢力::勢力Ａ.外交感情(主人公勢力))(絶交)
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				}
//主人公が武士に属するとき//////////////////////////////////////////////////////////////////////////////////////////////////////
			調査:(勢力::主人公勢力.勢力タイプ)==(大名家)
			分岐:(真){
				代入大名家Ｃ:(人物::主人公.所属大名家)
				会話選択:(お市,主人公)[[他大名間で同盟を締結{しよう}か？]]
				選択::([[望むところ]],[[必要ない]])
				分岐:([[望むところ]]){
					コンテナ設定:(大名家,存在,真)
					コンテナ除外:(大名家,大名家番号,大名家Ｃ)
					ループ:{
						コンテナソート:(大名家,大名家番号,昇順)
						コンテナ選択:(大名家Ａ,先頭)
						調査:(コンテナカウンタ)>(0)
						ブロック脱出:(偽)
						コンテナ複写:(退避)
						更新:(大名家::大名家Ａ.外交同盟(大名家Ｃ))(同盟なし)
						更新:(大名家::大名家Ａ.外交感情(大名家Ｃ))(絶交)
							ループ:{
							コンテナソート:(大名家,大名家番号,昇順)
							コンテナ除外:(大名家,大名家番号,大名家Ａ)
							コンテナ選択:(大名家Ｂ,先頭)
							更新:(大名家::大名家Ｂ.外交同盟(大名家Ａ))(同盟)
							更新:(大名家::大名家Ｂ.外交感情(大名家Ａ))(盟友)
							コンテナ選抜:(削る,1)
							調査:(コンテナカウンタ)>(0)
							ブロック脱出:(偽)
							}
						コンテナ複写:(復帰)
						コンテナ選抜:(削る,1)
						調査:(コンテナカウンタ)>(0)
						ブロック脱出:(偽)
						}
					会話選択:(お市,主人公)[[大名の大方針を天下統一にして\n{二人称}の勢力を目標に{しよう}か？]]
					選択::([[矢でも鉄砲でも持ってこい]],[[さすがにそれは…]])
					分岐:([[矢でも鉄砲でも持ってこい]]){
						コンテナ設定:(大名家,存在,真)
						コンテナ除外:(大名家,大名家番号,大名家Ｃ)
						ループ:{
							コンテナソート:(大名家,大名家番号,昇順)
							コンテナ選択:(大名家Ａ,先頭)
							調査:(コンテナカウンタ)>(0)
							ブロック脱出:(偽)
							更新:(大名家::大名家Ａ.大方針)(天下統一)
							更新:(大名家::大名家Ａ.戦略)(大名攻略)
							更新:(大名家::大名家Ａ.戦略ターゲット)(大名家Ｃ)
							コンテナ選抜:(削る,1)
							調査:(コンテナカウンタ)>(0)
							ブロック脱出:(偽)
							}
					}
					分岐:([[さすがにそれは…]]){
					}
				}//分岐望むところ
				分岐:([[必要ない]]){
				}
			}//分岐大名家真
			}//分岐混沌を望む
			分岐:([[今のままで良い]]){
			}
		}//スクリプトの終端
	}//イベントの終端
}//チャプターの終端