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

//全ての城でそれなりの内政が実施されるようにします

チャプター:{
	イベント:拠点別内政強制実行{
		属性:何度でも
		発生契機:毎月処理の最後絶対
		発生条件:{
			ＯＲ調査:{
				調査:(状況::月)==(2)
				調査:(状況::月)==(6)
				調査:(状況::月)==(10)
			}
		}
		スクリプト:{
			コンテナ設定:(城,戦闘フラグ,平常)
			コンテナ除外:(城,一揆フラグ,真)
			コンテナ除外:(城,所属大名家,無効)//築城前の墨俣を除外
			ループ:{
				コンテナ選択:(城Ａ,先頭)
				ブロック脱出:(偽)
				コンテナ複写:(退避)
				
				代入人物Ａ:(無効)
				代入人物Ｂ:(無効)
				代入ａ:(0)
				代入ｂ:(0)
				代入ｃ:(0)
				代入ｄ:(0)
				代入ｅ:(0)
				代入ｆ:(0)
				代入ｇ:(0)
				代入ｈ:(0)
				代入ｘ:(0)
				代入ｙ:(0)
				代入ｌ:(0)
				
				代入ｚ:(0)//0クリア
				代入拠点Ａ:(城::城Ａ.城番号)
				代入大名家Ａ:(城::城Ａ.所属大名家)
				代入人物Ａ:(城::城Ａ.城主)
				
				//会話:(人物Ａ,賊)[[<城Ａ>・<大名家Ａ>管轄・城主<人物Ａ>]]
				
				調査:(大名家::大名家Ａ.本城)==(城Ａ)
				分岐:(真){
					調査:(人物Ａ)==(主人公)
					分岐:(真){
						代入ｚ:(0)
						
						//会話:(人物Ａ,賊):[[主人公大名家本城なのでｚは<ｚ>]]
						
					}//主人公の居城はパスする
					分岐:(偽){
						調査:(拠点::拠点Ａ.立地)==(平地)
						分岐:(真){
							代入ｚ:(30)//城規模制限、平地はなし
							
							//会話:(人物Ａ,賊):[[平地の本城なのでｚは<ｚ>]]
							
						}
                                                ＯＲ調査:{
							調査:(拠点::拠点Ａ.立地)==(港湾)
							調査:(拠点::拠点Ａ.立地)==(山地)
                                                }
						分岐:(真){
							代入ｚ:(27)//城規模制限、平地以外は27
							
							//会話:(人物Ａ,賊)[[平地以外の本城なのでｚは<ｚ>]]
							
						}
					}//ＮＰＣ本城
				}//本城
				分岐:(偽){
					調査:(人物::人物Ａ.所属拠点)==(拠点Ａ)
					分岐:(真){
						調査:(人物Ａ)==(主人公)
						分岐:(真){
							代入ｚ:(0)
							
							//会話:(人物Ａ,賊):[[<人物Ａ>は主人公なのでｚは<ｚ>。]]
							
						}//主人公の居城はパスする
						分岐:(偽){
							調査:(拠点::拠点Ａ.立地)==(平地)
							分岐:(真){
								代入ｚ:(22)//城規模制限、平地は22
								
								//会話:(人物Ａ,賊)[[<拠点Ａ>の立地は平地なのでｚは<ｚ>]]
								
							}
                                                        ＯＲ調査:{
								調査:(拠点::拠点Ａ.立地)==(港湾)
								調査:(拠点::拠点Ａ.立地)==(山地)
                                                        }
							分岐:(真){
								代入ｚ:(19)//城規模制限、平地以外は19
								
								//会話:(人物Ａ,賊)[[<拠点Ａ>の立地は平地以外なのでｚは<ｚ>]]
								
							}
						}//ＮＰＣ城主or国主本城
					}//城主居城
					分岐:(偽){
						調査:(人物Ａ)==(主人公)
						分岐:(真){
							代入ｚ:(0)
							
							//会話:(人物Ａ,賊):[[<人物Ａ>は主人公なのでｚは<ｚ>。]]
							
						}//主人公管理の直轄城はパスする
						分岐:(偽){
							代入ｚ:(14)//城規模制限、直轄城は立地に関わらず14。
							
							//会話:(人物Ａ,賊)[[<城Ａ>は<人物Ａ>管理の直轄城なのでｚは<ｚ>]]
							
						}//ＮＰＣ直轄城。ＮＰＣが管理してるなら主人公が所属する大名家の直轄城でも対象になる。国主直轄城は国主が城主扱いになるのは確認済み。
					}//直轄城
				}
				
				調査:(ｚ)!=(0)
				分岐:(真){
				
					代入人物Ａ:(城::城Ａ.城主)
					代入ｘ:(人物Ａ.政務)//後々使うので別個保存
					代入ａ:(ｘ)*(85)//政務の値の85%
					代入ｂ:(人物Ａ.知謀)*(15)//知謀はボーナス扱いなので低めの15%
					代入ｃ:(ａ)+(ｂ)
					代入ｃ:(ｃ)/(100)//城主判定値
					
					//会話:(人物Ａ,賊)[[<人物Ａ>の判定値は政務<ｘ>、<ａ>＋<ｂ>で合計<ｃ>]]
					
					代入ｆ:(0)//配下判定値の予定
					コンテナ設定:(人物,所属上司,人物Ａ)
					コンテナ絞り込み:(人物,イベント参加可能,真)
					ループ:{//第二ループ
						コンテナ選択:(人物Ｂ,先頭)
						ブロック脱出:(偽)
						代入ｄ:(人物Ｂ.政務)*(35)//政務の値の35%
						代入ｅ:(人物Ｂ.知謀)*(10)//知謀の値の10%
						代入ｇ:(ｄ)+(ｅ)
						代入ｇ:(ｇ)/(100)//配下起因発生率基本値
						代入ｈ:(人物Ｂ.弁舌技能)+(1)
						代入ｈ:(ｈ)*(2)//弁舌技能ボーナス
						代入ｇ:(ｇ)+(ｈ)
						
						調査:(ｆ)<(ｇ)
						分岐:(真){
							代入ｆ:(ｇ)//更新された
							代入ｙ:(人物::人物Ｂ.政務)//更新された人物の政務を記憶する。
							
							//会話:(人物Ｂ,賊)[[<人物Ｂ>の判定値は<ｄ>＋<ｅ>＋<ｈ>で合計<ｇ>、ｆ<ｆ>を更新。政務値<ｙ>]]
							
						}
						分岐:(偽){
							代入ｆ:(ｆ)//更新されない
						}
						コンテナ選抜:(削る,1)
					}//第二ループ〆
				
				調査:(人物::人物Ａ.気性)==(短気)
				分岐:(真){
					代入ｆ:(ｆ)-(5)//短気だと聞き入れづらい
				}
				調査:(人物::人物Ａ.主義)==(現実)
				分岐:(真){
					代入ｆ:(ｆ)+(5)//現実見てると聞き入れやすい
				}
				代入ｂ:(人物::人物Ａ.政務)*(2)
				調査:(人物::人物Ａ.武力)>(ｂ)
				分岐:(真){
					代入ｆ:(ｆ)-(5)//政務×２よりも武力の方が高いくらいに政務が低いと聞き入れづらい。
				}
				調査:(ｆ)<(0)
				分岐:(真){
					代入ｆ:(0)
				}
				
				//会話:(人物Ａ,賊)[[配下起因最終値ｆ<ｆ>]]
				
				調査:(ｘ)>(ｙ)//内政実行回数を決める。政務が高い方の値/10が回数。最低でも１回。
				分岐:(真){//拠点主の政務値を参照
					代入ｌ:(ｘ)/(10)
					調査:(ｌ)<(1)
					分岐:(真){
						代入ｌ:(1)
					}
				}
				分岐:(偽){//配下の政務値を参照
					代入ｌ:(ｙ)/(10)
					調査:(ｌ)<(1)
					分岐:(真){
						代入ｌ:(1)
					}
				}
				調査:(ｚ)<=(14)
				分岐:(真){
					代入ｌ:(ｌ)/(2)//直轄城は半分の回数。
					調査:(ｌ)<(1)
					分岐:(真){
						代入ｌ:(1)
					}
				}
				
				//会話:(人物Ａ,賊)[[政務ループ回数ｌは<ｌ>]]
				
				ループ:{//内政実行第二ループ
					代入ｒ:(Ｒｎｄ１００)
					代入ｕ:(Ｒｎｄ)%(9)//何の内政をやるかランダムで判定
					
					//会話:(人物Ａ,賊)[[ランダム値<ｒ>、政務実行種類判定値ｕ<ｕ>]]
					
					場合別:(ｕ){
						
						場合分岐:(1){//増築
							ＯＲ調査:{//成否調査
								調査:(ｃ)>(ｒ)
								調査:(ｆ)>(ｒ)
								調査:(城::城Ａ.規模)<(5)//規模５未満の城は悲しすぎるので、無条件で成功扱い
							}
							分岐:(真){//成功。増加値は１で固定。
								代入ｊ:(城::城Ａ.規模)+(1)
								調査:(ｊ)>(ｚ)//ｚは軍備制限に合わせた城の最大規模。
								分岐:(真){
									代入ｊ:(城::城Ａ.規模)//ｚを入れると軍備制限を入れてる事前提の更新になる。増える前の規模を入れる事で、軍備制限を入れてなくても現在値を維持できるように。
								}
								更新:(城::城Ａ.規模)(ｊ)
								
								//会話:(人物Ａ,賊)[[増築を実行。<城Ａ>最大規模は<ｚ>で規模<ｊ>に更新]]
								
							}//増築成功〆
						}//増築〆
						
						場合分岐:(2){//開墾
							ＯＲ調査:{//成否調査
								調査:(ｃ)>(ｒ)
								調査:(ｆ)>(ｒ)
							}
							分岐:(真){//成功。
								
								代入ｊ:(人物::人物Ａ.開墾技能)*(4)
								代入ｋ:(人物::人物Ａ.政務)/(20)
								代入ｍ:(ｊ)+(ｋ)
								代入ｍ:(ｍ)/(2)
								
								//会話:(人物Ａ,賊)[[開墾を実行。開墾技能<ｊ>政務<ｋ>で<人物Ａ>判定値合計<ｍ>]]
								
								代入ｐ:(0)
								コンテナ設定:(人物,所属上司,人物Ａ)
								コンテナ絞り込み:(人物,イベント参加可能,真)
								コンテナソート:(人物,政務,降順)
								コンテナソート:(人物,開墾技能,降順)
								コンテナ選択:(人物Ｂ,先頭)
								調査:(人物Ｂ)!=(無効)
								分岐:(真){
									代入ｊ:(人物::人物Ｂ.開墾技能)*(4)
									代入ｋ:(人物::人物Ｂ.政務)/(20)
									代入ｐ:(ｊ)+(ｋ)
									代入ｐ:(ｐ)/(2)
									
									//会話:(人物Ｂ,賊)[[配下は<人物Ｂ>が選択。開墾技能<ｊ>政務<ｋ>で<人物Ｂ>判定値合計<ｐ>]]
									
								}
								
								代入ｑ:(0)
								調査:(ｍ)<(ｐ)
								分岐:(真){
									代入ｑ:(ｐ)//配下の方が成果が高い
									
									//会話:(人物Ｂ,賊)[[配下<人物Ｂ>の値<ｐ>を採用し<ｑ>。]]
									
								}
								分岐:(偽){
									代入ｑ:(ｍ)//拠点主の方が成果が高い
									
									//会話:(人物Ｂ,賊)[[拠点主<人物Ａ>の値<ｍ>を採用し<ｑ>。]]
									
								}
								代入ｊ:(城::城Ａ.現石高)+(ｑ)
								調査:(ｊ)>(城::城Ａ.基準石高)
								分岐:(真){
									代入ｊ:(城::城Ａ.基準石高)
								}
								更新:(城::城Ａ.現石高)(ｊ)
								
								//会話:(人物Ａ,賊)[[<城Ａ>の石高は<ｑ>増加して<ｊ>に更新。]]
								
							}//開墾成功〆
						}//開墾〆
						
						場合分岐:(3){//鉱山開発
							ＯＲ調査:{//成否調査
								調査:(ｃ)>(ｒ)
								調査:(ｆ)>(ｒ)
							}
							分岐:(真){//成功。
								
								代入ｊ:(人物::人物Ａ.鉱山技能)*(4)
								代入ｋ:(人物::人物Ａ.政務)/(20)
								代入ｍ:(ｊ)+(ｋ)
								代入ｍ:(ｍ)/(3)
								
								//会話:(人物Ａ,賊)[[鉱山を実行。鉱山技能<ｊ>政務<ｋ>で<人物Ａ>判定値合計<ｍ>]]
								
								代入ｐ:(0)
								コンテナ設定:(人物,所属上司,人物Ａ)
								コンテナ絞り込み:(人物,イベント参加可能,真)
								コンテナソート:(人物,政務,降順)
								コンテナソート:(人物,鉱山技能,降順)
								コンテナ選択:(人物Ｂ,先頭)
								調査:(人物Ｂ)!=(無効)
								分岐:(真){
									代入ｊ:(人物::人物Ｂ.鉱山技能)*(4)
									代入ｋ:(人物::人物Ｂ.政務)/(20)
									代入ｐ:(ｊ)+(ｋ)
									代入ｐ:(ｐ)/(3)
									
									//会話:(人物Ｂ,賊)[[配下は<人物Ｂ>が選択。鉱山技能<ｊ>政務<ｋ>で<人物Ｂ>判定値合計<ｐ>]]
									
								}
								
								代入ｑ:(0)
								調査:(ｍ)<(ｐ)
								分岐:(真){
									代入ｑ:(ｐ)//配下の方が成果が高い
									
									//会話:(人物Ｂ,賊)[[配下<人物Ｂ>の値<ｐ>を採用し<ｑ>。]]
									
								}
								分岐:(偽){
									代入ｑ:(ｍ)//拠点主の方が成果が高い
									
									//会話:(人物Ｂ,賊)[[拠点主<人物Ａ>の値<ｍ>を採用し<ｑ>。]]
									
								}
								代入ｊ:(城::城Ａ.現鉱山)+(ｑ)
								調査:(ｊ)>(城::城Ａ.鉱山最高値)
								分岐:(真){
									代入ｊ:(城::城Ａ.鉱山最高値)
								}
								更新:(城::城Ａ.現鉱山)(ｊ)
								
								//会話:(人物Ａ,賊)[[<城Ａ>の鉱山は<ｑ>増加して<ｊ>に更新。]]
								
							}//鉱山成功〆
						}//鉱山〆
						
						場合分岐:(4){//補修
							
							代入ｑ:(城::城Ａ.規模)*(8)//防御度最大値
							調査:(城::城Ａ.規模)>=(27)
							分岐:(真){
								//規模27以上は制限なし
							}
							分岐:(偽){
								調査:(拠点::拠点Ａ.立地)==(港湾)
								分岐:(真){
									//港湾は3/4
									代入ｑ:(ｑ)*(3)
									代入ｑ:(ｑ)/(4)
								}
								調査:(拠点::拠点Ａ.立地)==(山地)
								分岐:(真){
									//山地は制限なし
								}
								調査:(拠点::拠点Ａ.立地)==(平地)
								分岐:(真){
									//平地は3/4
									代入ｑ:(ｑ)*(3)
									代入ｑ:(ｑ)/(4)
								}
							}
							//拠点タイプ別処理
							調査:(拠点::拠点Ａ.拠点タイプ)==(寺)
							分岐:(真){
								//寺は3/4
								代入ｑ:(ｑ)*(3)
								代入ｑ:(ｑ)/(4)
							}
							調査:(拠点::拠点Ａ.拠点タイプ)==(館)
							分岐:(真){
								//館は半分
								代入ｑ:(ｑ)/(2)
							}
							
							ＯＲ調査:{//成否調査
								調査:(ｃ)>(ｒ)
								調査:(ｆ)>(ｒ)
								調査:(城::城Ａ.防御度)<=(ｑ)
							}
							分岐:(真){//成功。
								
								//会話:(人物Ａ,賊)[[補修を実行。<城Ａ>の防御度最大値は<ｑ>]]
								
								代入ｊ:(人物::人物Ａ.建築技能)*(4)
								代入ｋ:(人物::人物Ａ.政務)/(10)
								代入ｍ:(ｊ)+(ｋ)
								代入ｍ:(ｍ)/(2)
								
								//会話:(人物Ａ,賊)[[建築技能<ｊ>政務<ｋ>で<人物Ａ>判定値合計<ｍ>]]
								
								代入ｐ:(0)
								コンテナ設定:(人物,所属上司,人物Ａ)
								コンテナ絞り込み:(人物,イベント参加可能,真)
								コンテナソート:(人物,政務,降順)
								コンテナソート:(人物,建築技能,降順)
								コンテナ選択:(人物Ｂ,先頭)
								調査:(人物Ｂ)!=(無効)
								分岐:(真){
									代入ｊ:(人物::人物Ｂ.建築技能)*(4)
									代入ｋ:(人物::人物Ｂ.政務)/(10)
									代入ｐ:(ｊ)+(ｋ)
									代入ｐ:(ｐ)/(2)
									
									//会話:(人物Ｂ,賊)[[配下は<人物Ｂ>が選択。建築技能<ｊ>政務<ｋ>で<人物Ｂ>判定値合計<ｐ>]]
									
								}
								
								代入ｓ:(0)
								調査:(ｍ)<(ｐ)
								分岐:(真){
									代入ｓ:(ｐ)//配下の方が成果が高い
									
									//会話:(人物Ｂ,賊)[[配下<人物Ｂ>の値<ｐ>を採用し<ｓ>。]]
									
								}
								分岐:(偽){
									代入ｓ:(ｍ)//拠点主の方が成果が高い
									
									//会話:(人物Ａ,賊)[[拠点主<人物Ａ>の値<ｍ>を採用し<ｓ>。]]
									
								}
								代入ｊ:(城::城Ａ.防御度)+(ｓ)
								調査:(ｊ)>(ｑ)
								分岐:(真){
									代入ｊ:(城::城Ａ.防御度)//代入ｊ:(ｑ)。増築と同じ理由で現在の防御度を入れる事で現在値維持。
								}
								
								更新:(城::城Ａ.防御度)(ｊ)
								
								//会話:(人物Ａ,賊)[[<城Ａ>の防御度は<ｓ>増加して<ｊ>に更新。]]
								
							}//補修成功〆
						}//補修〆
						
						
						場合分岐:(5){//徴兵
							//徴兵に当たった場合は拠点主の統率での参照も行う。
							
							代入ｊ:(人物Ａ.統率力)
							代入ｊ:(ｊ)*(85)//統率力の値の85%
							代入ｋ:(人物Ａ.武力)*(15)//ボーナス扱いなので低めの15%
							代入ｊ:(ｊ)+(ｋ)
							代入ｊ:(ｊ)/(100)//統率力判定値
							
							//会話:(人物Ａ,賊)[[徴兵判定。政務判定値<ｃ>と<ｆ>。統率判定<ｊ>。]]
							
							
							ＯＲ調査:{//成否調査
								調査:(ｃ)>(ｒ)
								調査:(ｆ)>(ｒ)
								調査:(ｊ)>(ｒ)
							}
							分岐:(真){//成功。
								
								代入ｊ:(人物::人物Ａ.弁舌技能)
								代入ｋ:(人物::人物Ａ.軍学技能)
								代入ｍ:(人物::人物Ａ.統率力)
								代入ｎ:(人物::人物Ａ.魅力)
								代入ｍ:(ｍ)+(ｎ)
								代入ｎ:(ｊ)+(ｋ)
								代入ｎ:(ｎ)+(1)//×０防止
								代入ｍ:(ｍ)*(ｎ)//（統率力＋魅力）×（（弁舌＋軍学）＋１）最大で２００×９＝１８００。
								
								//会話:(人物Ａ,賊)[[徴兵を実行。<人物Ａ>判定値合計<ｍ>]]
								
								代入ｐ:(0)
								コンテナ設定:(人物,所属上司,人物Ａ)
								コンテナ絞り込み:(人物,イベント参加可能,真)
								コンテナソート:(人物,統率力,降順)
								コンテナソート:(人物,軍学技能,降順)
								コンテナ選択:(人物Ｂ,先頭)
								調査:(人物Ｂ)!=(無効)
								分岐:(真){
									代入ｊ:(人物::人物Ｂ.弁舌技能)
									代入ｋ:(人物::人物Ｂ.軍学技能)
									代入ｐ:(人物::人物Ｂ.統率力)
									代入ｎ:(人物::人物Ｂ.魅力)
									代入ｐ:(ｐ)+(ｎ)
									代入ｎ:(ｊ)+(ｋ)
									代入ｎ:(ｎ)+(1)//×０防止
									代入ｐ:(ｐ)*(ｎ)
									
									//会話:(人物Ｂ,賊)[[統率配下は<人物Ｂ>が選択。判定値合計<ｐ>]]
								}
								
								代入ｏ:(0)
								代入人物Ｃ:(無効)
								コンテナ設定:(人物,所属上司,人物Ａ)
								コンテナ絞り込み:(人物,イベント参加可能,真)
								コンテナソート:(人物,魅力,降順)
								コンテナソート:(人物,弁舌技能,降順)
								コンテナ選択:(人物Ｃ,先頭)
								調査:(人物Ｃ)!=(無効)
								分岐:(真){
									代入ｊ:(人物::人物Ｃ.弁舌技能)
									代入ｋ:(人物::人物Ｃ.軍学技能)
									代入ｏ:(人物::人物Ｃ.統率力)
									代入ｎ:(人物::人物Ｃ.魅力)
									代入ｏ:(ｏ)+(ｎ)
									代入ｎ:(ｊ)+(ｋ)
									代入ｎ:(ｎ)+(1)//×０防止
									代入ｏ:(ｏ)*(ｎ)
									
									//会話:(人物Ｃ,賊)[[魅力配下は<人物Ｃ>が選択。判定値合計<ｏ>]]
									
								}
								
								
								代入ｑ:(0)
								代入ｔ:(0)
								調査:(ｏ)<(ｐ)
								分岐:(真){
									代入ｔ:(ｐ)//統率配下の方が成果が高い
									
									//会話:(人物Ｂ,賊)[[統率配下<人物Ｂ>を選択。判定値<ｔ>]]
									
								}
								分岐:(偽){
									代入ｔ:(ｏ)//魅力配下の方が成果が高い
									
									//会話:(人物Ｃ,賊)[[魅力配下<人物Ｃ>を選択。判定値<ｔ>]]
									
								}
								
								調査:(ｍ)<(ｔ)
								分岐:(真){
									代入ｑ:(ｔ)//配下の方が成果が高い
									
									//会話:(小姓,賊)[[配下を選択。判定値<ｑ>。]]
									
								}
								分岐:(偽){
									代入ｑ:(ｍ)//拠点主の方が成果が高い
									
									//会話:(人物Ａ,賊)[[拠点主<人物Ａ>を選択。判定値<ｑ>。]]
									
								}
								
								代入ｊ:(城::城Ａ.兵士数)+(ｑ)
								//軍備制限の方の兵士数管理は大名家全城チェックしてから分配の方式なので、とりあえず最大の５万を超えない範囲でとりあえず入れる。
								調査:(ｊ)>(50000)
								分岐:(真){
									代入ｊ:(50000)
								}
								更新:(城::城Ａ.兵士数)(ｊ)
								
								//会話:(人物Ａ,賊)[[<城Ａ>の兵士数は<ｑ>増加して<ｊ>に更新。]]
								
							}//徴兵成功〆
						}//徴兵〆
						
						
						場合分岐:(6){//訓練
							//徴兵に当たった場合は拠点主の統率での参照も行う。
							
							代入ｊ:(人物Ａ.統率力)
							代入ｊ:(ｊ)*(85)//統率力の値の85%
							代入ｋ:(人物Ａ.武力)*(15)//ボーナス扱いなので低めの15%
							代入ｊ:(ｊ)+(ｋ)
							代入ｊ:(ｊ)/(100)//統率力判定値
							
							//会話:(人物Ａ,賊)[[訓練判定。政務判定値<ｃ>と<ｆ>。統率判定<ｊ>。]]
							
							
							ＯＲ調査:{//成否調査
								調査:(ｃ)>(ｒ)
								調査:(ｆ)>(ｒ)
								調査:(ｊ)>(ｒ)
							}
							分岐:(真){//成功。
								
								代入ｊ:(人物::人物Ａ.軍学技能)*(2)
								代入ｋ:(人物::人物Ａ.統率力)/(20)
								代入ｍ:(ｊ)+(ｋ)
								
								//会話:(人物Ａ,賊)[[訓練を実行。軍学技能<ｊ>統率力<ｋ>で<人物Ａ>判定値合計<ｍ>]]
								
								代入ｐ:(0)
								コンテナ設定:(人物,所属上司,人物Ａ)
								コンテナ絞り込み:(人物,イベント参加可能,真)
								コンテナソート:(人物,統率力,降順)
								コンテナソート:(人物,軍学技能,降順)
								コンテナ選択:(人物Ｂ,先頭)
								調査:(人物Ｂ)!=(無効)
								分岐:(真){
									代入ｊ:(人物::人物Ｂ.軍学技能)*(2)
									代入ｋ:(人物::人物Ｂ.統率力)/(20)
									代入ｐ:(ｊ)+(ｋ)
									
									//会話:(人物Ｂ,賊)[[配下は<人物Ｂ>を選択。軍学技能<ｊ>統率力<ｋ>で<人物Ｂ>判定値合計<ｐ>]]
									
								}
								
								代入ｑ:(0)
								調査:(ｍ)<(ｐ)
								分岐:(真){
									代入ｑ:(ｐ)//配下の方が成果が高い
									
									//会話:(人物Ｂ,賊)[[配下<人物Ｂ>の値<ｐ>を採用し<ｑ>。]]
									
								}
								分岐:(偽){
									
									代入ｑ:(ｍ)//拠点主の方が成果が高い
									
									//会話:(人物Ａ,賊)[[拠点主<人物Ａ>の値<ｍ>を採用し<ｑ>。]]
									
								}
								
								代入ｊ:(城::城Ａ.士気)+(ｑ)
								調査:(ｊ)>(100)
								分岐:(真){
									代入ｊ:(100)
								}
								更新:(城::城Ａ.士気)(ｊ)
								
								//会話:(人物Ａ,賊)[[<城Ａ>の士気は<ｑ>増加して<ｊ>に更新。]]
								
								代入ｊ:(城::城Ａ.訓練度)+(ｑ)
								調査:(ｊ)>(100)
								分岐:(真){
									代入ｊ:(100)
								}
								更新:(城::城Ａ.訓練度)(ｊ)
								
								//会話:(人物Ａ,賊)[[<城Ａ>の訓練度は<ｑ>増加して<ｊ>に更新。]]
								
							}//訓練成功〆
						}//訓練〆
						
						
						
						場合分岐:(7){//まとめて物資購入。分けると物資購入頻度が高くなって他の内政が滞るので…あと大筒は排除。
							ＯＲ調査:{//成否調査
								調査:(ｃ)>(ｒ)
								調査:(ｆ)>(ｒ)
							}
							分岐:(真){//成功。
								
								代入ｊ:(人物::人物Ａ.算術技能)*(3)
								代入ｋ:(人物::人物Ａ.弁舌技能)*(3)
								代入ｊ:(ｊ)+(1)
								代入ｋ:(ｋ)+(1)
								代入ｍ:(ｊ)*(ｋ)
								代入ｊ:(人物::人物Ａ.政務)
								代入ｍ:(ｍ)*(ｊ)
								
								//会話:(人物Ａ,賊)[[物資購入を実行。判定値合計<ｍ>]]
								
								代入ｐ:(0)
								コンテナ設定:(人物,所属上司,人物Ａ)
								コンテナ絞り込み:(人物,イベント参加可能,真)
								コンテナソート:(人物,政務,降順)
								コンテナソート:(人物,算術技能,降順)
								コンテナ選択:(人物Ｂ,先頭)
								調査:(人物Ｂ)!=(無効)
								分岐:(真){
									代入ｊ:(人物::人物Ｂ.算術技能)*(3)
									代入ｋ:(人物::人物Ｂ.弁舌技能)*(3)
									代入ｊ:(ｊ)+(1)
									代入ｋ:(ｋ)+(1)
									代入ｐ:(ｊ)*(ｋ)
									代入ｊ:(人物::人物Ｂ.政務)
									代入ｐ:(ｐ)*(ｊ)
									
									//会話:(人物Ｂ,賊)[[配下は<人物Ｂ>を選択。判定値合計<ｐ>]]
									
								}
								
								代入ｑ:(0)
								調査:(ｍ)<(ｐ)
								分岐:(真){
									代入ｑ:(ｐ)//配下の方が成果が高い
									
									//会話:(人物Ｂ,賊)[[配下<人物Ｂ>の値<ｐ>を採用し<ｑ>。]]
									
								}
								分岐:(偽){
									代入ｑ:(ｍ)//拠点主の方が成果が高い
									
									//会話:(人物Ａ,賊)[[拠点主<人物Ａ>の値<ｍ>を採用し<ｑ>。]]
									
								}
								
								代入ｋ:(0)
								代入ｓ:(0)
								代入ｔ:(0)
								代入ｊ:(城::城Ａ.規模)*(城::城Ａ.規模)
								代入ｋ:(ｊ)*(300)//軍備制限での兵糧上限
								代入ｓ:(ｊ)*(20)//軍備制限での軍馬上限
								代入ｔ:(ｊ)*(10)//軍備制限での鉄砲上限
								
								調査:(城::城Ａ.規模)>=(23)
								分岐:(真){//変化があるのは城規模23以上(山地、港湾)
									調査:(拠点::拠点Ａ.立地)==(港湾)
									分岐:(真){
										//港湾は2倍
										代入ｋ:(ｋ)*(2)
										代入ｓ:(ｓ)*(2)
										代入ｔ:(ｔ)*(2)
									}
									調査:(拠点::拠点Ａ.立地)==(山地)
									分岐:(真){
										//山地は3/4
										代入ｋ:(ｋ)*(3)
										代入ｓ:(ｓ)*(3)
										代入ｔ:(ｔ)*(3)
										代入ｋ:(ｋ)/(4)
										代入ｓ:(ｓ)/(4)
										代入ｔ:(ｔ)/(4)
									}
								}
								分岐:(偽){
									調査:(拠点::拠点Ａ.立地)==(山地)
									分岐:(真){
										//山地は1/2
										代入ｋ:(ｋ)/(2)
										代入ｓ:(ｓ)/(2)
										代入ｔ:(ｔ)/(2)
									}
								}
								
								//兵糧は値そのまま
								
								代入ｊ:(城::城Ａ.兵糧)+(ｑ)
								調査:(ｊ)>(ｋ)
								分岐:(真){
									代入ｊ:(城::城Ａ.兵糧)
								}
								更新:(城::城Ａ.兵糧)(ｊ)
								
								//会話:(人物Ａ,賊)[[<城Ａ>の兵糧が<ｑ>増えて<ｊ>に更新。軍備制限上限<ｋ>。]]
								
								
								//軍馬は値の1/60
								
								代入ｍ:(ｑ)/(60)
								調査:(ｍ)<(10)
								分岐:(真){
									代入ｍ:(10)
								}
								代入ｊ:(城::城Ａ.軍馬)+(ｍ)
								調査:(ｊ)>(ｓ)
								分岐:(真){
									代入ｊ:(ｓ)
								}
								更新:(城::城Ａ.軍馬)(ｊ)
								
								//会話:(人物Ａ,賊)[[<城Ａ>の軍馬が<ｍ>増えて<ｊ>に更新。軍備制限上限<ｓ>。]]
								
								
								//鉄砲は値の1/100
								
								代入ｍ:(ｑ)/(100)
								調査:(ｍ)<(5)
								分岐:(真){
									代入ｍ:(5)
								}
								代入ｊ:(城::城Ａ.鉄砲)+(ｍ)
								調査:(ｊ)>(ｔ)
								分岐:(真){
									代入ｊ:(ｔ)
								}
								更新:(城::城Ａ.鉄砲)(ｊ)
								
								//会話:(人物Ａ,賊)[[<城Ａ>の鉄砲が<ｍ>増えて<ｊ>に更新。軍備制限上限<ｔ>。]]
								
								
							}//物資購入成功〆
						}//物資購入〆
						
						
						場合分岐:(8){//治安
							//治安に当たった場合は拠点主の特殊参照も行う。
							
							代入ｊ:(人物Ａ.野心)
							代入ｋ:(101)-(ｊ)
							代入ｊ:(ｋ)*(60)//(101-野心)の値の60%
							代入ｋ:(人物Ａ.名声)*(15)//名声の15%をボーナス
							代入ｊ:(ｊ)+(ｋ)
							代入ｋ:(人物Ａ.悪名)*(10)//悪名の10%をペナルティ
							代入ｊ:(ｊ)-(ｋ)
							調査:(ｊ)>(100)
							分岐:(真){
								代入ｊ:(ｊ)/(100)//特殊判定値
							}
							分岐:(偽){
								代入ｊ:(0)//特殊判定値は０
							}
							
							//会話:(人物Ａ,賊)[[治安維持判定。政務判定値<ｃ>と<ｆ>。特殊判定<ｊ>。]]
							
							
							ＯＲ調査:{//成否調査
								調査:(ｃ)>(ｒ)
								調査:(ｆ)>(ｒ)
								調査:(ｊ)>(ｒ)
							}
							分岐:(真){//成功。
								
								代入ｊ:(人物::人物Ａ.弁舌技能)/(2)
								代入ｋ:(人物::人物Ａ.武芸技能)/(2)
								代入ｍ:(人物::人物Ａ.武力)/(40)
								代入ｎ:(人物::人物Ａ.政務)/(40)
								代入ｍ:(ｍ)+(ｎ)
								代入ｍ:(ｍ)+(1)//×０防止
								代入ｎ:(ｊ)+(ｋ)
								代入ｎ:(ｎ)+(1)//×０防止
								代入ｍ:(ｍ)*(ｎ)//（最大で（２＋２＋１）×５＝２５。
								
								//会話:(人物Ａ,賊)[[治安維持を実行。<人物Ａ>判定値合計<ｍ>]]
								
								代入ｐ:(0)
								コンテナ設定:(人物,所属上司,人物Ａ)
								コンテナ絞り込み:(人物,イベント参加可能,真)
								コンテナソート:(人物,武力,降順)
								コンテナソート:(人物,武芸技能,降順)
								コンテナ選択:(人物Ｂ,先頭)
								調査:(人物Ｂ)!=(無効)
								分岐:(真){
									代入ｊ:(人物::人物Ｂ.弁舌技能)/(2)
									代入ｋ:(人物::人物Ｂ.武芸技能)/(2)
									代入ｐ:(人物::人物Ｂ.武力)/(40)
									代入ｎ:(人物::人物Ｂ.政務)/(40)
									代入ｐ:(ｐ)+(ｎ)
									代入ｐ:(ｐ)+(1)//×０防止
									代入ｎ:(ｊ)+(ｋ)
									代入ｎ:(ｎ)+(1)//×０防止
									代入ｐ:(ｐ)*(ｎ)
									
									//会話:(人物Ｂ,賊)[[武力配下は<人物Ｂ>が選択。判定値合計<ｐ>]]
								}
								
								代入ｏ:(0)
								代入人物Ｃ:(無効)
								コンテナ設定:(人物,所属上司,人物Ａ)
								コンテナ絞り込み:(人物,イベント参加可能,真)
								コンテナソート:(人物,政務,降順)
								コンテナソート:(人物,弁舌技能,降順)
								コンテナ選択:(人物Ｃ,先頭)
								調査:(人物Ｃ)!=(無効)
								分岐:(真){
									代入ｊ:(人物::人物Ｃ.弁舌技能)/(2)
									代入ｋ:(人物::人物Ｃ.武芸技能)/(2)
									代入ｏ:(人物::人物Ｃ.武力)/(40)
									代入ｎ:(人物::人物Ｃ.政務)/(40)
									代入ｏ:(ｏ)+(ｎ)
									代入ｏ:(ｏ)+(1)//×０防止
									代入ｎ:(ｊ)+(ｋ)
									代入ｎ:(ｎ)+(1)//×０防止
									代入ｏ:(ｏ)*(ｎ)
									
									//会話:(人物Ｃ,賊)[[政務配下は<人物Ｃ>が選択。判定値合計<ｏ>]]
									
								}
								
								
								代入ｑ:(0)
								代入ｔ:(0)
								調査:(ｏ)<(ｐ)
								分岐:(真){
									代入ｔ:(ｐ)//武力配下の方が成果が高い
									
									//会話:(人物Ｂ,賊)[[武力配下<人物Ｂ>を選択。判定値<ｔ>]]
									
								}
								分岐:(偽){
									代入ｔ:(ｏ)//魅力配下の方が成果が高い
									
									//会話:(人物Ｃ,賊)[[政務配下<人物Ｃ>を選択。判定値<ｔ>]]
									
								}
								
								調査:(ｍ)<(ｔ)
								分岐:(真){
									代入ｑ:(ｔ)//配下の方が成果が高い
									
									//会話:(人物Ｂ,賊)[[配下を選択。判定値<ｑ>。]]
									
								}
								分岐:(偽){
									代入ｑ:(ｍ)//拠点主の方が成果が高い
									
									//会話:(人物Ａ,賊)[[拠点主<人物Ａ>を選択。判定値<ｑ>。]]
									
								}
								
								代入ｊ:(城::城Ａ.住民安定度)+(ｑ)
								//軍備制限の方の兵士数管理は大名家全城チェックしてから分配の方式なので、とりあえず最大の５万を超えない範囲でとりあえず入れる。
								調査:(ｊ)>(100)
								分岐:(真){
									代入ｊ:(100)
								}
								更新:(城::城Ａ.住民安定度)(ｊ)
								
								//会話:(人物Ａ,賊)[[<城Ａ>の住民安定度は<ｑ>増加して<ｊ>に更新。]]
								
							}//訓練成功〆
						}//訓練〆
						
						
						
					}//どの内政をやるか場合別〆
					
					
					代入ｌ:(ｌ)-(1)//成功失敗問わず回数−１。
					
					//会話:(人物Ａ,賊)[[現在ｌの値<ｌ>]]
					
					調査:(ｌ)<=(0)//０以下になると脱出
					ブロック脱出:(真)
				}//内政実行第二ループ〆
					
					
					//＊住民安定度と兵糧と防御度が低すぎる場合、必要条件を満たせば最低値を保つ。
					
					ＡＮＤ調査:{
						調査:(城::城Ａ.住民安定度)<(20)
						調査:(人物Ａ.悪名)<(70)
						調査:(人物Ａ.政務)>(25)
					}
					分岐:(真){
						更新:(城::城Ａ.住民安定度)(20)
						
						//会話:(人物Ａ,賊)[[<城Ａ>の最低住民安定度維持判定成功]]
						
					}//一揆が起きてる場所はそもそもコンテナ除外されてる。
					
					代入ｂ:(城::城Ａ.兵士数)+(500)//兵士の数＋少しの余りすらない時
					ＡＮＤ調査:{
						調査:(城::城Ａ.兵糧)<(ｂ)
						ＯＲ調査:{
							調査:(人物Ａ.統率力)>(25)
							調査:(人物Ａ.政務)>(25)
							調査:(人物Ａ.主義)==(現実)//上記を満たさない能力の低さでも現実主義なら兵糧を最低限保つ
						}
					}
					分岐:(真){
						更新:(城::城Ａ.兵糧)(ｂ)
						
						//会話:(人物Ａ,賊)[[<城Ａ>の最低兵糧維持判定成功。<ｂ>に更新。]]
						
					}
					
					代入ｂ:(城::城Ａ.規模)*(2)//防御度が規模の二倍よりも低い場合。特に直轄城で起こりやすい。(例：規模10で防御度20未満)
					ＡＮＤ調査:{
						調査:(城::城Ａ.防御度)<(ｂ)
						ＯＲ調査:{
							調査:(人物Ａ.統率力)>(25)
							調査:(人物Ａ.政務)>(25)
							調査:(人物Ａ.精神)==(小心)//上記を満たさない能力の低さでも臆病なら防御度を最低限保つ
						}
					}
					分岐:(真){
						更新:(城::城Ａ.防御度)(ｂ)
						
						//会話:(人物Ａ,賊)[[<城Ａ>の最低防御度維持判定成功。<ｂ>に更新。]]
						
					}
					
				}//内政処理実行本体〆
				
				コンテナ複写:(復帰)
				コンテナ選抜:(削る,1)
				
			}//本体ループ〆
		}//スクリプト
	}//イベント
}//チャプター