太閤立志伝５イベントソース
//
//
//◆大名家シャッフルＤ�]◆
//
//◆ゲームスタート時に勢力図をランダムに書き換えます。
//◆九州の伊達家、東北の島津家、四国の真田家などパターンは様々です。
//◆武将も各大名にランダムに分配されますので
//◆はじめて信長の野望をプレイした時のような新鮮な気持ちになれます。
//◆登場大名は標準では野心の高い順に設定しています。
//◆「統率力、年齢、名声、悪名」等の値順に変更するのも面白いかもしれません。
//◆武将の数は各大名家に均等に振り分けられます。身分、任官先はいずれもランダムです。
//◆各大名家の支配力はほぼ均等になる様に設定しています。
//◆各大名家の外交関係は出自や親武将、所在地方に応じて振り分けられます。
//◆野心の高い大名は開始時に大方針を地方統一、天下統一に変更しますので、
//◆他大名を攻めて勢力を拡大していきます。
//◆新武将も大名化できるようになりました。
//◆シャッフル後に大名家、配下武将の置き換えが可能になりました。自由に大名家を登場させれます。
//◆Ｄ�]向けに修正加えました。

チャプター:{
イベント:大名家シャッフル{
属性:一度だけ
発生契機:ゲームスタート時
発生条件:{
}
スクリプト:{
	///////////////////////////////////////////�@/////////////////////////////////////////////////
	ＢＧＭ変更:(京都)
	ナレーション:[[◆大名家シャッフルＤ�]◆]]
	会話:(出雲の阿国,門番)[[登場する大名家をシャッフルしますか？]]
	選択:[[はい]][[いいえ]]
	分岐:([[はい]]){
		ループ:{
			///////////////////////////全大名の同盟、親密度リセットする（同盟による天下統一防止）//////////////////////////
			
			コンテナ設定:(大名家,存在,真)
			コンテナソート:(大名家,大名家番号,昇順)
			ループ:{
				コンテナ選択:(大名家Ａ,先頭)
				ブロック脱出:(偽)
				コンテナ選抜:(削る,1)
				
				//ナレーション:[[大名家Ａは<大名家Ａ>]]
				コンテナ複写:(退避)
				
				ループ:{
					コンテナ選択:(大名家Ｂ,先頭)
					ブロック脱出:(偽)
					コンテナ選抜:(削る,1)
					
					//ナレーション:[[大名家Ａは<大名家Ａ>、大名家Ｂは<大名家Ｂ>]]
					
					更新:(大名家::大名家Ａ.外交同盟(大名家Ｂ))(同盟なし)
					更新:(大名家::大名家Ａ.外交感情(大名家Ｂ))(普通)
				}
				
				コンテナ複写:(復帰)
			}
			
			//ナレーション可否選択:[[全大名の同盟、親密度を更新しました]]
			
			/////////////////////////////////////////////大名家滅亡////////////////////////////////////////
		
			会話:(出雲の阿国,門番)[[大名家を分配しております…]]
			コンテナ設定:(大名家,存在,真)
			コンテナソート:(無効,シャッフル,降順)
			コンテナ選択:(大名家Ａ,先頭)
			ブロック脱出:(偽)
			コンテナ選抜:(削る,1)
			
			ループ:{
				コンテナ選択:(大名家Ｂ,先頭)
				ブロック脱出:(偽)
				コンテナ選抜:(削る,1)
				
				//ナレーション:[[�@�@大名家Ａは<大名家Ａ>、大名家Ｂは<大名家Ｂ>]]
				
				調査:(コンテナカウンタ)>(0)//天下統一防止
				ブロック脱出:(偽)
				勢力滅亡:(大名家Ｂ,大名家Ａ)
			}
			
			代入人物Ａ:(大名家Ａ.当主)
			代入城Ａ:(人物Ａ.所属拠点)
			代入国Ａ:(城Ａ.所属国)

			//ナレーション可否選択:[[ループ完了]]
			
			/////////////////////////////////////////////全国主、城主解任////////////////////////////////////////
			
			コンテナ設定:(人物,カテゴリ,武将)
			コンテナ絞り込み:(人物,出現フラグ,出現済み)
			コンテナ絞り込み:(人物,身分,国主)
			コンテナ除外:(人物,死亡フラグ,死亡)
			ループ:{
				コンテナ選択:(人物Ｃ,先頭)
				ブロック脱出:(偽)
				コンテナ選抜:(削る,1)
				
				//ナレーション:[[�@�B人物Ｃは<人物Ｃ>]]
				
				国主解任:(人物Ｃ)
			}
			
			コンテナ設定:(人物,カテゴリ,武将)
			コンテナ絞り込み:(人物,出現フラグ,出現済み)
			コンテナ絞り込み:(人物,身分,城主)
			コンテナ除外:(人物,死亡フラグ,死亡)
			ループ:{
				コンテナ選択:(人物Ｃ,先頭)
				ブロック脱出:(偽)
				コンテナ選抜:(削る,1)
				
				代入城Ｃ:(人物Ｃ.所属拠点)
				
				//ナレーション:[[�@�D人物Ｃは<人物Ｃ>、城Ｃは<城Ｃ>]]
				
				城主解任:(城Ｃ)
			}
			
			/////////////////////////////////浪人も大名になれるように勝手に修正//////////////////////////////////
			
			コンテナ設定:(人物,カテゴリ,武将)
			コンテナ絞り込み:(人物,身分,浪人)
			コンテナ絞り込み:(人物,出現フラグ,出現済み)
			コンテナ除外:(人物,死亡フラグ,死亡)
			ループ:{
				コンテナ選択:(人物Ｃ,先頭)
				ブロック脱出:(偽)
				コンテナ選抜:(削る,1)
				
				人物登用:(人物Ｃ,直臣,人物Ａ)
				//ナレーション:[[�@�D�@浪人の<人物Ｃ>を登用しました]]
			}
			

			///////////////////////大名家Ａの居城を移動しとく（大名家Ａが上位対象内のとき居城が変わるようにしとく）///////////////////
			コンテナ設定:(城,所属大名家,大名家Ａ)
			コンテナソート:(無効,シャッフル,降順)
			コンテナ選択:(城Ｅ,先頭)
			ブロック脱出:(偽)
			
			//代入城Ｅ:(城::勝山)//城が一つしかない国が選ばれたときの確認用
			
			居城変更:(大名家Ａ,城Ｅ)
			//ナレーション:[[�A<大名家Ａ>は<城Ａ>城から<城Ｅ>城に移転しました]]
			
			代入城Ａ:(城Ｅ)
			代入国Ａ:(城Ａ.所属国)
			
			/////////////////////////////////////////////城主任命、独立////////////////////////////
			代入ｏ:(0)
			代入ｐ:(0)
			代入ａ:(人物Ａ.野心)
			
			//ナレーション:[[�A�@大名家Ａは<大名家Ａ>、人物Ａは<人物Ａ>、城Ａは<城Ａ>、国Ａは<国Ａ>]]
			
			ループ:{
				コンテナ設定:(人物,カテゴリ,武将)
				コンテナ絞り込み:(人物,出現フラグ,出現済み)
				コンテナ絞り込み:(人物,所属大名家,大名家Ａ)
				コンテナ除外:(人物,身分,大名)
				コンテナ除外:(人物,死亡フラグ,死亡)
				コンテナ除外:(人物,人物番号,主人公)
				コンテナソート:(無効,シャッフル,昇順)//////////同じ能力の奴がいても混ざるようにシャッフルする
				コンテナソート:(人物,野心,降順)//////////////野心が高い順に大名化
				コンテナ選択:(人物Ｅ,先頭)
				ブロック脱出:(偽)
				
				代入ｅ:(人物Ｅ.野心)
				
				代入ｓ:(0)
				
				コンテナ設定:(城,所属大名家,大名家Ａ)
				コンテナ除外:(城,城番号,城Ａ)
				コンテナソート:(無効,シャッフル,降順)
				ループ:{
					コンテナ選択:(城Ｅ,先頭)
					ブロック脱出:(偽)//最初からコンテナ数0ならすぐ脱出する
					コンテナ選抜:(削る,1)
					
					//ナレーション:[[�A�A城Ｅは<城Ｅ>、城Ａは<城Ａ>、国Ａは<国Ａ>]]
					
					調査:(城Ｅ.所属国)!=(国Ａ)//大名家Ａの居城ある国以外の国の城を選ぶ。
					コンテナ除外:(人物,好み,武具)
					コンテナ除外:(人物,好み,芸術品)
					コンテナ除外:(人物,好み,書物)
					分岐:(真){
						代入ｓ:(1)
					}
					ブロック脱出:(真)
				}
				
				調査:(コンテナカウンタ)<=(0)//大名居城以外の全城を検索し終えたら
				分岐:(真){
					調査:(ｓ)==(0)
					分岐:(真){//独立できる城がないとき
						代入ｏ:(1)
					}
				}
				
				//ナレーション:[[�A�Bｏは<ｏ>、ｓは<ｓ>]]
				
				調査:(ｏ)==(1)//独立できる城がないので人物Ｅ保持したまま脱出
				ブロック脱出:(真)
				
				代入国Ｅ:(城Ｅ.所属国)
				
				国主任命:(人物Ｅ,国Ｅ,城Ｅ)
				
				調査:(状況::空き大名家数)>(0)
				ブロック脱出:(偽)
				
				独立:(人物Ｅ,城Ｅ,陪臣のみ)//通常モードになってたのを陪臣のみに勝手に訂正
				
				//ナレーション:[[<人物Ｅ>が<城Ｅ>で独立しました]]
				
				調査:(ｐ)==(0)
				分岐:(真){
					//ナレーション:[[<大名家Ｂ>は<大名家Ａ>に吸収されます]]
					勢力滅亡:(大名家Ｂ,大名家Ａ)////////////最初の一回目に大名家Ｂを大名家Ａに組み込む////////////////////////
					代入ｐ:(1)
				}
			}
			
			//ナレーション可否選択:[[ループ完了]]
			
			//ナレーション:[[人物Ａは<人物Ａ>、人物Ｅは<人物Ｅ>、ａは<ａ>、ｅは<ｅ>]]
			
			//代入大名家Ｅ:(人物Ｅ.所属大名家)
			//代入ｂ:(大名家Ｅ.武将数)
			//代入ｍ:(人物Ｅ.身分)
			//代入ｎ:(人物Ａ.身分)
			//ナレーション:[[<大名家Ｅ>の所属武将数<ｂ>人\n<人物Ｅ>の身分は<ｍ>、<人物Ａ>の身分は<ｎ>]]
			
			調査:(ａ)<(ｅ)//人物Ｅが人物Ａより条件上だったら人物Ｅを大名家Ａの大名にする。
			分岐:(真){
				家督を譲る:(人物Ａ,人物Ｅ)
				//ナレーション:[[<人物Ａ>は<人物Ｅ>に家督を譲りました]]
				
				//代入大名家Ｅ:(人物Ｅ.所属大名家)
				//代入ｅ:(大名家Ｅ.武将数)
				//代入ｍ:(人物Ｅ.身分)
				//代入ｎ:(人物Ａ.身分)
				//ナレーション:[[<大名家Ｅ>の所属武将数<ｅ>人\n<人物Ｅ>の身分は<ｍ>、<人物Ａ>の身分は<ｎ>]]
			}
			//分岐:(偽){
				//ナレーション:[[<人物Ａ>、<大名家Ａ>はそのままです]]
				
				//代入ａ:(大名家Ａ.武将数)
				//代入ｍ:(人物Ａ.身分)
				//ナレーション:[[<大名家Ａ>の所属武将数<ａ>人\n<人物Ａ>の身分は<ｍ>]]
			//}
			
			////////////////////////////////////現石高が一番大きい城に大名居城移動///////////////////////////////////////////////
			コンテナ設定:(大名家,存在,真)
			コンテナソート:(大名家,大名家番号,昇順)
			ループ:{
				コンテナ選択:(大名家Ａ,先頭)
				ブロック脱出:(偽)
				コンテナ選抜:(削る,1)
				コンテナ複写:(退避)
				
				コンテナ設定:(城,無効,無効)
				コンテナ絞り込み:(城,所属大名家,大名家Ａ)
				コンテナソート:(城,現石高,降順)
				
				コンテナ選択:(城Ａ,先頭)
				ブロック脱出:(偽)
				コンテナ選抜:(削る,1)
				
				居城変更:(大名家Ａ,城Ａ)
				//ナレーション:[[<大名家Ａ>が<城Ａ>城に居城移動しました]]
				
				コンテナ複写:(復帰)
			}
			
			/////////////////////////////////勢力図確認////////////////////////////////////////////////
			
			ＳＥスタート:(成功音)
			会話:(出雲の阿国,門番)[[完了しました]]
			会話可否選択:(出雲の阿国,門番)[[勢力図をご覧になりますか？]]
			分岐:(可){
				ループ:{
					コンテナ設定:(拠点,拠点種類,城)
					コンテナ選択:(城Ｃ,拠点選択)
					ブロック脱出:(偽)
					
					代入大名家Ｃ:(城Ｃ.所属大名家)
					代入人物Ｃ:(大名家Ｃ.当主)
					
					代入ａ:(城Ｃ.規模)
					代入ｂ:(城Ｃ.人口)
					代入ｃ:(城Ｃ.基準石高)
					代入ｄ:(城Ｃ.鉱山最高値)
					
					会話:(人物Ｃ,門番)[[<城Ｃ>は<大名家Ｃ>の城\n規模は<ａ>、人口は<ｂ>\n石高最高値は<ｃ>、鉱山最高値は<ｄ>]]
				}
			}
			会話可否選択:(出雲の阿国,門番)[[もう一度シャッフルしますか？]]
			ブロック脱出:(否)
		}
		
		////////////////////////////////////////////大名家置き換え///////////////////////////////////////////
		
		会話可否選択:(出雲の阿国,門番)[[大名家を手動で配置しますか？\n（主人公・新武将も配置可能です）]]
		分岐:(可){
			ループ:{
				ループ:{
					会話:(出雲の阿国,門番)[[変更したい大名家を選んでください]]
					コンテナ設定:(拠点,拠点種類,城)
					コンテナ選択:(城Ｂ,拠点選択)
					ブロック脱出:(偽)
					
					会話:(出雲の阿国,門番)[[大名にしたい人物を選んでください]]
					コンテナ設定:(人物,カテゴリ,武将)
					コンテナ絞り込み:(人物,出現フラグ,出現済み)
					コンテナ除外:(人物,所属勢力タイプ,商家)
					コンテナ除外:(人物,所属勢力タイプ,忍者衆)
					コンテナ除外:(人物,所属勢力タイプ,海賊衆)
					コンテナ除外:(人物,死亡フラグ,死亡)
					コンテナ除外:(人物,身分,大名)
					コンテナ除外:(人物,身分,師範)
					コンテナ除外:(人物,身分,師範代)
					コンテナ除外:(人物,身分,鍛冶屋)
					コンテナ除外:(人物,身分,僧侶)
					コンテナ除外:(人物,身分,茶人)
					コンテナ除外:(人物,身分,医師)
					コンテナソート:(人物,人物番号,降順)
					コンテナ選択:(人物Ａ,人物選択)//浪人＋大名以外の大名家武将（浪人はいないけど）
					ブロック脱出:(偽)
					
					代入大名家Ｂ:(城Ｂ.所属大名家)
					代入人物Ｂ:(大名家Ｂ.当主)
					
					会話可否選択:(出雲の阿国,門番)[[<人物Ｂ>　→　<人物Ａ>\n大名家を置き換えますか？]]
					分岐:(可){
						家督を譲る:(人物Ｂ,人物Ａ)
						ＳＥスタート:(成功音)
						ナレーション:[[<人物Ａ>が大名になりました]]
					}
					ブロック脱出:(可)
				}
				会話可否選択:(出雲の阿国,門番)[[他にも変更しますか？]]
				ブロック脱出:(否)
			}
		}
		
		///////////////////////////////////////////////�B///////////////////////////////////////////////////////////////
		
		///////////////////////////////外交関係変更///////////////////////////////////////////////////////////
		
		コンテナ設定:(大名家,存在,真)
		コンテナソート:(無効,シャッフル,昇順)
		ループ:{
			コンテナ選択:(大名家Ｄ,先頭)
			ブロック脱出:(偽)
			コンテナ選抜:(削る,1)
			
			代入人物Ｄ:(大名家Ｄ.当主)
			代入城Ｄ:(人物Ｄ.所属拠点)
			代入地方Ｄ:(城Ｄ.所在地方)
			
			調査:(人物Ｄ.野心)>=(90)
			分岐:(真){
				更新:(大名家Ｄ.大方針)(天下統一)
				更新:(大名家Ｄ.大方針ターゲット)(-1)
				更新:(大名家Ｄ.戦略)(領土守備)
				更新:(大名家Ｄ.戦略ターゲット)(-1)
			}
			分岐:(偽){
				調査:(人物Ｄ.野心)>=(70)
				分岐:(真){
					更新:(大名家Ｄ.大方針)(地方統一)
					更新:(大名家Ｄ.大方針ターゲット)(地方Ｄ)
					更新:(大名家Ｄ.戦略)(領土守備)
					更新:(大名家Ｄ.戦略ターゲット)(-1)
				}
			}///////////////////////////大方針、戦略変更
			
			コンテナ複写:(退避)
			
			ループ:{
				コンテナ選択:(大名家Ｅ,先頭)
				ブロック脱出:(偽)
				コンテナ選抜:(削る,1)
				
				代入人物Ｅ:(大名家Ｅ.当主)
				代入城Ｅ:(人物Ｅ.所属拠点)
				
				ＯＲ調査:{
					ＡＮＤ調査:{
						調査:(人物Ｄ.親)!=(無効)
						調査:(人物Ｅ.親)!=(無効)
						調査:(人物Ｄ.親)==(人物Ｅ.親)
					}
					調査:(人物Ｄ.親)==(人物Ｅ)
					調査:(人物Ｅ.親)==(人物Ｄ)
				}
				分岐:(真){///////////////////////////////////////親子、兄弟
					更新:(大名家::大名家Ｅ.外交感情(大名家Ｄ))(盟友)
					更新:(大名家::大名家Ｅ.外交同盟(大名家Ｄ))(同盟)
				}
				分岐:(偽){
					調査:(城Ｄ.所在地方)==(城Ｅ.所在地方)
					分岐:(真){
						調査:(人物Ｄ.出自)==(人物Ｅ.出自)////////////////所在地方が同じで出自が同じ
						分岐:(真){
							調査:(Ｒｎｄ１００)<(50)
							分岐:(真){
								更新:(大名家::大名家Ｅ.外交感情(大名家Ｄ))(友好)
								更新:(大名家::大名家Ｅ.外交同盟(大名家Ｄ))(同盟)
							}
							分岐:(偽){
								更新:(大名家::大名家Ｅ.外交感情(大名家Ｄ))(良好)
							}
						}
						分岐:(偽){///////////////////////////////////////所在地方が同じで出自が違う
							調査:(Ｒｎｄ１００)<(50)
							分岐:(真){
								更新:(大名家::大名家Ｅ.外交感情(大名家Ｄ))(絶交)
							}
							分岐:(偽){
								更新:(大名家::大名家Ｅ.外交感情(大名家Ｄ))(険悪)
							}
						}
					}
					分岐:(偽){
						調査:(人物Ｄ.出自)==(人物Ｅ.出自)////////////////所在地方が違い出自が同じ
						分岐:(真){
							調査:(Ｒｎｄ１００)<(50)
							分岐:(真){
								更新:(大名家::大名家Ｅ.外交感情(大名家Ｄ))(良好)
							}
							分岐:(偽){
								更新:(大名家::大名家Ｅ.外交感情(大名家Ｄ))(普通)
							}
						}
						分岐:(偽){///////////////////////////////////////所在地方が違い出自が違う
							調査:(Ｒｎｄ１００)<(50)
							分岐:(真){
								更新:(大名家::大名家Ｅ.外交感情(大名家Ｄ))(敵視)
							}
							分岐:(偽){
								更新:(大名家::大名家Ｅ.外交感情(大名家Ｄ))(普通)
							}
						}
					}
				}
			}
			コンテナ複写:(復帰)
		}
		
		////////////////////////////////////////////////////�C/////////////////////////////////////////////////////
		会話:(出雲の阿国,門番)[[続いて各大名家に武将を分配します]]
		
		////////////////////////////////////デバッグ用武将数確認/////////////////////////////////////////
		//コンテナ設定:(大名家,存在,真)
		//コンテナソート:(無効,シャッフル,昇順)
		//コンテナソート:(大名家,武将数,昇順)
		//コンテナ選択:(大名家Ａ,先頭)
		//ブロック脱出:(偽)
		
		//代入ａ:(大名家Ａ.武将数)
		//代入人物Ａ:(大名家Ａ.当主)
		//代入ｍ:(人物Ａ.身分)
		//代入ｔ:(人物Ａ.立場)
		//代入城Ａ:(人物Ａ.所属拠点)
		
		//ナレーション:[[<大名家Ａ>の所属武将数<ａ>人\n<人物Ａ>の身分<ｍ>立場<ｔ>拠点<城Ａ>]]//この時点で0人になってたりする。
		
		///////////////////////////////////////////////////武将解雇//////////////////////////////////////////////////////////
		コンテナ設定:(人物,カテゴリ,武将)
		コンテナ絞り込み:(人物,出現フラグ,出現済み)
		コンテナ絞り込み:(人物,所属勢力タイプ,大名家)
		コンテナ除外:(人物,死亡フラグ,死亡)
		コンテナ除外:(人物,身分,大名)
		ループ:{
			コンテナ選択:(人物Ａ,先頭)
			ブロック脱出:(偽)
			コンテナ選抜:(削る,1)
			
			代入城Ａ:(人物Ａ.所属拠点)
			人物解雇:(人物Ａ,城Ａ,出現済み)
			//ナレーション:[[<城Ａ>城の<人物Ａ>を解雇しました]]
		}
		
		//////////////////////////////////////デバッグ用武将数確認/////////////////////////////////////////
		//コンテナ設定:(大名家,存在,真)
		//コンテナソート:(無効,シャッフル,昇順)
		//コンテナソート:(大名家,武将数,昇順)
		//コンテナ選択:(大名家Ａ,先頭)
		//ブロック脱出:(偽)
		
		//代入ａ:(大名家Ａ.武将数)
		//代入人物Ａ:(大名家Ａ.当主)
		//代入ｍ:(人物Ａ.身分)
		//代入ｔ:(人物Ａ.立場)
		//代入城Ａ:(人物Ａ.所属拠点)
		
		//ナレーション:[[<大名家Ａ>の所属武将数<ａ>人\n<人物Ａ>の身分<ｍ>立場<ｔ>拠点<城Ａ>]]
		
		/////////////////////////////////////////////////優先任官///////////////////////////////////////////////////////
		
		会話可否選択:(出雲の阿国,門番)[[武将を優先的に任官させますか？]]
		分岐:(可){
			ループ:{
				ループ:{
					会話:(出雲の阿国,門番)[[武将を選んでください]]
					コンテナ設定:(人物,カテゴリ,武将)
					コンテナ絞り込み:(人物,身分,浪人)
					コンテナ絞り込み:(人物,出現フラグ,出現済み)
					コンテナ除外:(人物,人物番号,主人公)
					コンテナ除外:(人物,死亡フラグ,死亡)
					コンテナソート:(人物,人物番号,降順)
					コンテナ選択:(人物Ａ,人物選択)
					ブロック脱出:(偽)
					
					会話:(出雲の阿国,門番)[[任官先を選んでください]]
					コンテナ設定:(拠点,拠点種類,城)
					コンテナ選択:(城Ｂ,拠点選択)
					ブロック脱出:(偽)
					
					代入大名家Ｂ:(城Ｂ.所属大名家)
					代入人物Ｂ:(大名家Ｂ.当主)
					
					会話:(出雲の阿国,門番)[[身分を選んでください]]
					選択:[[家老]][[部将]][[侍大将]][[足軽大将]][[足軽組頭]]
					分岐:([[家老]]){
						更新:(人物Ａ.武士勲功)(3000)
					}
					分岐:([[部将]]){
						更新:(人物Ａ.武士勲功)(1400)
					}
					分岐:([[侍大将]]){
						更新:(人物Ａ.武士勲功)(600)
					}
					分岐:([[足軽大将]]){
						更新:(人物Ａ.武士勲功)(200)
					}
					分岐:([[足軽組頭]]){
						更新:(人物Ａ.武士勲功)(0)
					}
					会話可否選択:(出雲の阿国,門番)[[<人物Ａ>　→　<人物Ｂ>\n任官させますか？]]
					分岐:(可){
						人物登用:(人物Ａ,直臣,人物Ｂ)
						ＳＥスタート:(成功音)
						ナレーション:[[任官させました]]
					}
					ブロック脱出:(可)
				}
				会話可否選択:(出雲の阿国,門番)[[他にも任官させますか？]]
				ブロック脱出:(否)
			}
		}

		////////////////////////////////////武将分配/////////////////////////////////////////////////////////////////////

		会話:(出雲の阿国,門番)[[武将を分配しております…\nしばらくお待ちください…]]
		
		コンテナ設定:(人物,カテゴリ,武将)
		コンテナ絞り込み:(人物,身分,浪人)
		コンテナ絞り込み:(人物,出現フラグ,出現済み)
		コンテナ除外:(人物,人物番号,主人公)
		コンテナ除外:(人物,死亡フラグ,死亡)
		コンテナソート:(無効,シャッフル,降順)
		ループ:{
			コンテナ選択:(人物Ｃ,先頭)
			ブロック脱出:(偽)
			コンテナ選抜:(削る,1)
			
			コンテナ複写:(退避)
			
			コンテナ設定:(大名家,存在,真)
			コンテナソート:(無効,シャッフル,昇順)
			コンテナソート:(大名家,武将数,昇順)
			コンテナ選択:(大名家Ａ,先頭)
			ブロック脱出:(偽)
			
			代入人物Ａ:(大名家Ａ.当主)
			
			代入ｚ:(Ｒｎｄ１００)
			調査:(ｚ)<(20)
			分岐:(真){
				更新:(人物Ｃ.武士勲功)(3000)
			}
			分岐:(偽){
				調査:(ｚ)<(40)
				分岐:(真){
					更新:(人物Ｃ.武士勲功)(1400)
				}
				分岐:(偽){
					調査:(ｚ)<(60)
					分岐:(真){
						更新:(人物Ｃ.武士勲功)(600)
					}
					分岐:(偽){
						調査:(ｚ)<(80)
						分岐:(真){
							更新:(人物Ｃ.武士勲功)(200)
						}
						分岐:(偽){
							更新:(人物Ｃ.武士勲功)(0)
						}
					}
				}
			}
			
			代入ａ:(大名家Ａ.武将数)
			
			人物登用:(人物Ｃ,直臣,人物Ａ)
			//ナレーション:[[武将数<ａ>人の<大名家Ａ>の<人物Ａ>の元に\n<人物Ｃ>が仕官しました]]
			
			コンテナ複写:(復帰)
		}//ループ
		ＳＥスタート:(成功音)
		会話:(出雲の阿国,門番)[[分配が完了しました]]
		
		////////////////////////////////////デバッグ用武将数確認/////////////////////////////////////////
		//コンテナ設定:(大名家,存在,真)
		//コンテナソート:(無効,シャッフル,昇順)
		//コンテナソート:(大名家,武将数,降順)
		//コンテナ選択:(大名家Ａ,先頭)
		//ブロック脱出:(偽)
		
		//代入ａ:(大名家Ａ.武将数)
		//ナレーション:[[<大名家Ａ>の所属武将数<ａ>人]]
		
		//////////////////////////////////////////主人公任官/////////////////////////////////////////////////////////////
		
		条件ブロック:(主人公.身分)!=(大名){
			会話可否選択:(出雲の阿国,門番)[[主人公を大名家に任官させますか？]]
			分岐:(可){
				代入ｉ:(0)
				
				ループ:{
					ループ:{
						会話:(出雲の阿国,門番)[[大名家を選んでください]]
						コンテナ設定:(拠点,拠点種類,城)
						コンテナ選択:(城Ｅ,拠点選択)
						ブロック脱出:(偽)
						
						代入大名家Ｅ:(城Ｅ.所属大名家)
						代入人物Ｅ:(大名家Ｅ.当主)
						会話可否選択:(出雲の阿国,門番)[[<大名家Ｅ>（当主・<人物Ｅ>）\nこちらでよろしいでしょうか？]]
						分岐:(可){
							代入ｊ:(0)
							代入勢力Ａ:(主人公.所属勢力)
							
							ＡＮＤ調査:{//主人公が大名家以外の勢力の当主だったときも任官できるようにする
								ＯＲ調査:{
									調査:(勢力Ａ.勢力タイプ)==(商家)
									調査:(勢力Ａ.勢力タイプ)==(忍者衆)
									調査:(勢力Ａ.勢力タイプ)==(海賊衆)
								}
								調査:(勢力Ａ.当主)==(主人公)
							}
							分岐:(真){
								コンテナ設定:(人物,無効,無効)
								コンテナ絞り込み:(人物,所属勢力,勢力Ａ)
								コンテナ除外:(人物,人物番号,主人公)
								コンテナ絞り込み:(人物,死亡フラグ,生存)
								コンテナ除外:(人物,出現フラグ,未出現)
								コンテナソート:(人物,人物番号,昇順)//カテゴリが武将の人を優先する
								場合別:(勢力Ａ.勢力タイプ){
									場合分岐:(1){
										コンテナソート:(人物,商人勲功,降順)
									}
									場合分岐:(2){
										コンテナソート:(人物,忍者勲功,降順)
									}
									場合分岐:(3){
										コンテナソート:(人物,海賊勲功,降順)
									}
								}
								コンテナ選択:(人物Ｂ,先頭)
								調査:(コンテナカウンタ)<=(0)
								分岐:(真){
									ナレーション:[[主人公勢力に所属する人物がいないので\n主人公は大名家武将になれません]]
									代入ｊ:(1)
									代入ｉ:(1)
								}
								ブロック脱出:(真)
								
								家督を譲る:(主人公,人物Ｂ)
								ナレーション:[[<人物Ｂ>が<主人公>に代わり新たに当主になりました]]
							}
							
							条件ブロック:(ｊ)==(0){//主人公当主で更に人物不足で不可能だったら処理しない
								会話:(出雲の阿国,門番)[[身分を選んでください]]//主人公の身分も選べられるように修正
								選択:[[家老]][[部将]][[侍大将]][[足軽大将]][[足軽組頭]]
								分岐:([[家老]]){
									更新:(主人公.武士勲功)(3000)
								}
								分岐:([[部将]]){
									更新:(主人公.武士勲功)(1400)
								}
								分岐:([[侍大将]]){
									更新:(主人公.武士勲功)(600)
								}
								分岐:([[足軽大将]]){
									更新:(主人公.武士勲功)(200)
								}
								分岐:([[足軽組頭]]){
									更新:(主人公.武士勲功)(0)
								}
								会話可否選択:(出雲の阿国,門番)[[<主人公>　→　<人物Ｅ>\n任官させますか？]]
								分岐:(可){
									人物登用:(主人公,直臣,人物Ｅ)
									ＳＥスタート:(成功音)
									会話:(出雲の阿国,門番)[[主人公を<大名家Ｅ>に任官させました]]
									代入ｉ:(1)
								}
								ブロック脱出:
							}//条件ブロック〆
						}//分岐〆
						ブロック脱出:
					}//ループ〆
					調査:(ｉ)==(0)
					分岐:(真){
						会話可否選択:(出雲の阿国,門番)[[主人公任官をやめますか？]]
						分岐:(可){
							代入ｉ:(1)
						}
					}
					
					調査:(ｉ)==(1)
					ブロック脱出:(真)
				}//ループ〆
			}//分岐〆
		}//条件ブロック〆

		ＳＥスタート:(賭場スペシャル�A)
		会話:(出雲の阿国,門番)[[それでは新たな戦乱の世の幕明けです]]
		更新:(イベントフラグ::大名家分配)(成立)
		更新:(イベントフラグ::史実イベント発生補助ＯＮ)(不成立)
		更新:(イベントフラグ::歴史小イベント集)(不成立)
		画面効果:(フェードアウト)
		代入拠点Ａ:(拠点::主人公当主拠点)
		強制移動ワープ:(拠点Ａ)
		
	}//分岐：登場する大名家をシャッフルしますか？→はい

}//スクリプトここまで
}//イベントここまで
}