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

チャプター:{
	イベント:軍備制限有無設定{
		属性:一度だけ
		発生契機:ゲームスタート時
		発生条件:{
		}
		スクリプト:{
			ナレーション可否選択:[[軍備制限を実行しますか]]
			分岐:(可){
				ナレーション:[[軍備制限を行います]]
				更新:(イベントフラグ::軍備制限有り)(成立)
				更新:(イベントフラグ::城規模等制限初回処理完了)(不成立)
				更新:(イベントフラグ::兵士数制限初回処理完了)(不成立)
			}
		}
	}

	イベント:城規模防御度備蓄制限{
		属性:何度でも
		発生契機:毎月処理の最後絶対
		発生条件:{
			調査:(イベントフラグ::軍備制限有り)==(成立)
		}
		スクリプト:{
			//城規模・防御度・備蓄チェック
			
			コンテナ設定:(城,無効,無効)//全城コンテナ
			条件ループ:(コンテナカウンタ)>(0){
				コンテナ選択:(城Ａ,先頭)
				代入拠点Ａ:(城::城Ａ.城番号)
				
				//城規模の制限
				//平地は制限なし、港湾は27まで、山地は23まで
				//本城か城主居城でないと城規模大以上にはできない
				//防御度の制限
				//平地・港湾は3/4、山地は制限なし
				//ただし、規模27以上は平地・港湾でも最大まで
				//また、寺は3/4、館は1/2にさらに制限する
				//規模に基づく最大値の取り方がわからないので独自に下記の計算式で
				//(防御度最大)=(城規模)*(8)
				//備蓄の制限
				//基準値は城規模の二乗
				//兵糧は(城規模の二乗)*(50)
				//軍馬は(城規模の二乗)*(20)
				//鉄砲は(城規模の二乗)*(10)
				//大筒は(城規模の二乗)/(2)
				//港湾は規模巨で2倍、山地は巨で3/4、通常は1/2、平地は制限・特典なし
				//超過ペナルティは城防御度の減少
				調査:(城::城Ａ.戦闘フラグ)==(平常)//戦闘中は処理しない
				分岐:(真){
					//本城の判定
					代入国Ａ:(拠点::拠点Ａ.所属国)
					調査:(国::国Ａ.本城)==(城Ａ)
					分岐:(真){
						//本城の時だけ制限最大まで
						//制限値設定
						調査:(拠点::拠点Ａ.立地)==(港湾)
						分岐:(真){
							代入ｂ:(27)//城規模制限、港湾は27
						}
						調査:(拠点::拠点Ａ.立地)==(山地)
						分岐:(真){
							代入ｂ:(23)//城規模制限、山地は23
						}
						調査:(拠点::拠点Ａ.立地)==(平地)
						分岐:(真){
							代入ｂ:(30)//城規模制限、平地はなし
						}
						
						調査:(拠点::拠点Ａ.規模)>(ｂ)
						分岐:(真){
							更新:(拠点::拠点Ａ.規模)(ｂ)
						}
						代入ｚ:(拠点::拠点Ａ.規模)
					}
					分岐:(偽){
						代入人物Ａ:(城::城Ａ.城主)
						調査:(人物::人物Ａ.所属拠点)==(拠点Ａ)
						分岐:(真){
							//本城以外で居城の場合は大にはできる
							調査:(拠点::拠点Ａ.規模)>(15)
							分岐:(真){
								更新:(拠点::拠点Ａ.規模)(15)
							}
							代入ｚ:(拠点::拠点Ａ.規模)
						}
						分岐:(偽){
							//通常の城は一律で大にはできない
							調査:(拠点::拠点Ａ.規模)>(14)
							分岐:(真){
								更新:(拠点::拠点Ａ.規模)(14)
							}
							代入ｚ:(拠点::拠点Ａ.規模)
						}
					}
					
					//防御度の制限
					代入ｅ:(ｚ)*(8)//防御度最大値
					調査:(ｚ)>=(27)
					分岐:(真){//変化があるのは城規模27以上(平地、港湾)
						//規模27以上は制限なし
					}
					分岐:(偽){
						//立地別処理
						調査:(拠点::拠点Ａ.立地)==(港湾)
						分岐:(真){
							//港湾は3/4
							代入ｅ:(ｅ)*(3)
							代入ｅ:(ｅ)/(4)
						}
						調査:(拠点::拠点Ａ.立地)==(山地)
						分岐:(真){
							//山地は制限なし
						}
						調査:(拠点::拠点Ａ.立地)==(平地)
						分岐:(真){
							//平地は3/4
							代入ｅ:(ｅ)*(3)
							代入ｅ:(ｅ)/(4)
						}
					}
					//拠点タイプ別処理
					調査:(拠点::拠点Ａ.拠点タイプ)==(寺)
					分岐:(真){
						//寺は3/4
						代入ｅ:(ｅ)*(3)
						代入ｅ:(ｅ)/(4)
					}
					調査:(拠点::拠点Ａ.拠点タイプ)==(館)
					分岐:(真){
						//館は半分
						代入ｅ:(ｅ)/(2)
					}
					
					調査:(城::城Ａ.防御度)>(ｅ)
					分岐:(真){
						調査:(ｅ)>(0)
						分岐:(真){
							更新:(城::城Ａ.防御度)(ｅ)
						}
						分岐:(偽){
							更新:(城::城Ａ.防御度)(0)
						}
					}
					
					//備蓄の制限
					代入ｘ:(ｚ)*(ｚ)//基準値を城規模の二乗に
					代入ｆ:(ｘ)*(50)//兵糧最大値の設定
					代入ｇ:(ｘ)*(20)//軍馬最大値の設定
					代入ｈ:(ｘ)*(10)//鉄砲最大値の設定
					代入ｉ:(ｘ)/(2)//大筒最大値の設定
					調査:(ｚ)>=(23)
					分岐:(真){//変化があるのは城規模23以上(山地、港湾)
						//立地別処理
						調査:(拠点::拠点Ａ.立地)==(港湾)
						分岐:(真){
							//港湾は2倍
							代入ｆ:(ｆ)*(2)
							代入ｇ:(ｇ)*(2)
							代入ｈ:(ｈ)*(2)
							代入ｉ:(ｉ)*(2)
						}
						調査:(拠点::拠点Ａ.立地)==(山地)
						分岐:(真){
							//山地は3/4
							代入ｆ:(ｆ)*(3)
							代入ｇ:(ｇ)*(3)
							代入ｈ:(ｈ)*(3)
							代入ｉ:(ｉ)*(3)
							代入ｆ:(ｆ)/(4)
							代入ｇ:(ｇ)/(4)
							代入ｈ:(ｈ)/(4)
							代入ｉ:(ｉ)/(4)
						}
						調査:(拠点::拠点Ａ.立地)==(平地)
						分岐:(真){
							//平地は制限なし
						}
					}
					分岐:(偽){
						//立地別処理
						調査:(拠点::拠点Ａ.立地)==(港湾)
						分岐:(真){
							//港湾は制限なし
						}
						調査:(拠点::拠点Ａ.立地)==(山地)
						分岐:(真){
							//山地は1/2
							代入ｆ:(ｆ)/(2)
							代入ｇ:(ｇ)/(2)
							代入ｈ:(ｈ)/(2)
							代入ｉ:(ｉ)/(2)
						}
						調査:(拠点::拠点Ａ.立地)==(平地)
						分岐:(真){
							//平地は制限なし
						}
					}
					//備蓄制限ロジック
					代入ｋ:(0)//超過兵糧
					代入ｌ:(0)//超過軍馬
					代入ｍ:(0)//超過鉄砲
					代入ｎ:(0)//超過大筒
					代入ｒ:(0)//兵糧超過での減少防御
					代入ｓ:(0)//軍馬超過での減少防御
					代入ｔ:(0)//鉄砲超過での減少防御
					代入ｕ:(0)//大筒超過での減少防御
					//兵糧
					調査:(城::城Ａ.兵糧)>(ｆ)
					分岐:(真){
						//主人公が城主の城に対してのみペナルティ有り
						//制限を超えることができるのも主人公が城主の城のみ
						//廃棄・継続の選択ができるように改良予定
						ＡＮＤ調査:{
							調査:(イベントフラグ::城規模等制限初回処理完了)==(成立)
							調査:(城::城Ａ.城主)==(人物::主人公)
						}
						分岐:(真){
							代入ｋ:(城::城Ａ.兵糧)-(ｆ)
							代入ｒ:(ｋ)/(ｆ)
						}
						分岐:(偽){
							更新:(城::城Ａ.兵糧)(ｆ)
						}
					}
					//軍馬
					調査:(城::城Ａ.軍馬)>(ｇ)
					分岐:(真){
						ＡＮＤ調査:{
							調査:(イベントフラグ::城規模等制限初回処理完了)==(成立)
							調査:(城::城Ａ.城主)==(人物::主人公)
						}
						分岐:(真){
							代入ｌ:(城::城Ａ.軍馬)-(ｇ)
							代入ｓ:(ｌ)/(50)
						}
						分岐:(偽){
							更新:(城::城Ａ.軍馬)(ｇ)
						}
					}
					//鉄砲
					調査:(城::城Ａ.鉄砲)>(ｈ)
					分岐:(真){
						ＡＮＤ調査:{
							調査:(イベントフラグ::城規模等制限初回処理完了)==(成立)
							調査:(城::城Ａ.城主)==(人物::主人公)
						}
						分岐:(真){
							代入ｍ:(城::城Ａ.鉄砲)-(ｈ)
							代入ｔ:(ｍ)/(30)
						}
						分岐:(偽){
							更新:(城::城Ａ.鉄砲)(ｈ)
						}
					}
					//大筒
					調査:(城::城Ａ.大筒)>(ｉ)
					分岐:(真){
						ＡＮＤ調査:{
							調査:(イベントフラグ::城規模等制限初回処理完了)==(成立)
							調査:(城::城Ａ.城主)==(人物::主人公)
						}
						分岐:(真){
							代入ｎ:(城::城Ａ.大筒)-(ｉ)
							代入ｕ:(ｎ)/(1)
						}
						分岐:(偽){
							更新:(城::城Ａ.大筒)(ｉ)
						}
					}
					
					代入ｏ:(0)//超過フラグ
					調査:(ｒ)>(0)//兵糧超過 
					分岐:(真){
						代入ｏ:(ｏ)+(8)
					}
					調査:(ｓ)>(0)//軍馬超過
					分岐:(真){
						代入ｏ:(ｏ)+(4)
					}
					調査:(ｔ)>(0)//鉄砲超過
					分岐:(真){
						代入ｏ:(ｏ)+(2)
					}
					調査:(ｕ)>(0)//大筒超過
					分岐:(真){
						代入ｏ:(ｏ)+(1)
					}
					
					ＡＮＤ調査:{
						調査:(イベントフラグ::城規模等制限初回処理完了)==(成立)
						調査:(城::城Ａ.城主)==(人物::主人公)
						調査:(ｏ)>(0)
					}
					分岐:(真){
						代入ｐ:(城::城Ａ.防御度)
						会話:(忍者,主人公)[[<城Ａ>の物資が過多になっているために、城の防備に影響が出て{いる}]]
						会話:(忍者,主人公)[[物資を適正にするため、一部の物資を処分{なさる}か？]]
						条件ループ:(ｏ)>(0){
							場合別:(ｏ){
								場合分岐:(15){
									ナレーション選択:[[兵糧超過：<ｋ>　防御度<ｒ>低下\n軍馬超過：<ｌ>　防御度<ｓ>低下\n鉄砲超過：<ｍ>　防御度<ｔ>低下\n大筒超過：<ｎ>　防御度<ｕ>低下]]
									選択:[[兵糧処分]][[軍馬処分]][[鉄砲処分]][[大筒処分]][[一括処分]][[現状維持]]
									分岐:([[兵糧処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										代入ｏ:(ｏ)-(8)//兵糧処理完了
									}
									分岐:([[軍馬処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										代入ｏ:(ｏ)-(4)//軍馬処理完了
									}
									分岐:([[鉄砲処分]]){
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(ｏ)-(2)//鉄砲処理完了
									}
									分岐:([[大筒処分]]){
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(ｏ)-(1)//大筒処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										更新:(城::城Ａ.軍馬)(ｇ)
										更新:(城::城Ａ.鉄砲)(ｈ)
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｒ)//兵糧起因
										代入ｐ:(ｐ)-(ｓ)//軍馬起因
										代入ｐ:(ｐ)-(ｔ)//鉄砲起因
										代入ｐ:(ｐ)-(ｕ)//大筒起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(14){
									ナレーション選択:[[兵糧超過：<ｋ>　防御度<ｒ>低下\n軍馬超過：<ｌ>　防御度<ｓ>低下\n鉄砲超過：<ｍ>　防御度<ｔ>低下]]
									選択:[[兵糧処分]][[軍馬処分]][[鉄砲処分]][[一括処分]][[現状維持]]
									分岐:([[兵糧処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										代入ｏ:(ｏ)-(8)//兵糧処理完了
									}
									分岐:([[軍馬処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										代入ｏ:(ｏ)-(4)//軍馬処理完了
									}
									分岐:([[鉄砲処分]]){
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(ｏ)-(2)//鉄砲処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										更新:(城::城Ａ.軍馬)(ｇ)
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｒ)//兵糧起因
										代入ｐ:(ｐ)-(ｓ)//軍馬起因
										代入ｐ:(ｐ)-(ｔ)//鉄砲起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(13){
									ナレーション選択:[[兵糧超過：<ｋ>　防御度<ｒ>低下\n軍馬超過：<ｌ>　防御度<ｓ>低下\n大筒超過：<ｎ>　防御度<ｕ>低下]]
									選択:[[兵糧処分]][[軍馬処分]][[大筒処分]][[一括処分]][[現状維持]]
									分岐:([[兵糧処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										代入ｏ:(ｏ)-(8)//兵糧処理完了
									}
									分岐:([[軍馬処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										代入ｏ:(ｏ)-(4)//軍馬処理完了
									}
									分岐:([[大筒処分]]){
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(ｏ)-(1)//大筒処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										更新:(城::城Ａ.軍馬)(ｇ)
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｒ)//兵糧起因
										代入ｐ:(ｐ)-(ｓ)//軍馬起因
										代入ｐ:(ｐ)-(ｕ)//大筒起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(12){
									ナレーション選択:[[兵糧超過：<ｋ>　防御度<ｒ>低下\n軍馬超過：<ｌ>　防御度<ｓ>低下]]
									選択:[[兵糧処分]][[軍馬処分]][[一括処分]][[現状維持]]
									分岐:([[兵糧処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										代入ｏ:(ｏ)-(8)//兵糧処理完了
									}
									分岐:([[軍馬処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										代入ｏ:(ｏ)-(4)//軍馬処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										更新:(城::城Ａ.軍馬)(ｇ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｒ)//兵糧起因
										代入ｐ:(ｐ)-(ｓ)//軍馬起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(11){
									ナレーション選択:[[兵糧超過：<ｋ>　防御度<ｒ>低下\n鉄砲超過：<ｍ>　防御度<ｔ>低下\n大筒超過：<ｎ>　防御度<ｕ>低下]]
									選択:[[兵糧処分]][[鉄砲処分]][[大筒処分]][[一括処分]][[現状維持]]
									分岐:([[兵糧処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										代入ｏ:(ｏ)-(8)//兵糧処理完了
									}
									分岐:([[鉄砲処分]]){
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(ｏ)-(2)//鉄砲処理完了
									}
									分岐:([[大筒処分]]){
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(ｏ)-(1)//大筒処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										更新:(城::城Ａ.鉄砲)(ｈ)
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｒ)//兵糧起因
										代入ｐ:(ｐ)-(ｔ)//鉄砲起因
										代入ｐ:(ｐ)-(ｕ)//大筒起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(10){
									ナレーション選択:[[兵糧超過：<ｋ>　防御度<ｒ>低下\n鉄砲超過：<ｍ>　防御度<ｔ>低下]]
									選択:[[兵糧処分]][[鉄砲処分]][[一括処分]][[現状維持]]
									分岐:([[兵糧処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										代入ｏ:(ｏ)-(8)//兵糧処理完了
									}
									分岐:([[鉄砲処分]]){
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(ｏ)-(2)//鉄砲処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｒ)//兵糧起因
										代入ｐ:(ｐ)-(ｔ)//鉄砲起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(9){
									ナレーション選択:[[兵糧超過：<ｋ>　防御度<ｒ>低下\n大筒超過：<ｎ>　防御度<ｕ>低下]]
									選択:[[兵糧処分]][[大筒処分]][[一括処分]][[現状維持]]
									分岐:([[兵糧処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										代入ｏ:(ｏ)-(8)//兵糧処理完了
									}
									分岐:([[大筒処分]]){
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(ｏ)-(1)//大筒処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｒ)//兵糧起因
										代入ｐ:(ｐ)-(ｕ)//大筒起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(8){
									ナレーション選択:[[兵糧超過：<ｋ>　防御度<ｒ>低下]]
									選択:[[兵糧処分]][[現状維持]]
									分岐:([[兵糧処分]]){
										更新:(城::城Ａ.兵糧)(ｆ)
										代入ｏ:(ｏ)-(8)//兵糧処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｒ)//兵糧起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(7){
									ナレーション選択:[[軍馬超過：<ｌ>　防御度<ｓ>低下\n鉄砲超過：<ｍ>　防御度<ｔ>低下\n大筒超過：<ｎ>　防御度<ｕ>低下]]
									選択:[[軍馬処分]][[鉄砲処分]][[大筒処分]][[一括処分]][[現状維持]]
									分岐:([[軍馬処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										代入ｏ:(ｏ)-(4)//軍馬処理完了
									}
									分岐:([[鉄砲処分]]){
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(ｏ)-(2)//鉄砲処理完了
									}
									分岐:([[大筒処分]]){
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(ｏ)-(1)//大筒処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										更新:(城::城Ａ.鉄砲)(ｈ)
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｓ)//軍馬起因
										代入ｐ:(ｐ)-(ｔ)//鉄砲起因
										代入ｐ:(ｐ)-(ｕ)//大筒起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(6){
									ナレーション選択:[[軍馬超過：<ｌ>　防御度<ｓ>低下\n鉄砲超過：<ｍ>　防御度<ｔ>低下]]
									選択:[[軍馬処分]][[鉄砲処分]][[一括処分]][[現状維持]]
									分岐:([[軍馬処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										代入ｏ:(ｏ)-(4)//軍馬処理完了
									}
									分岐:([[鉄砲処分]]){
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(ｏ)-(2)//鉄砲処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｓ)//軍馬起因
										代入ｐ:(ｐ)-(ｔ)//鉄砲起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(5){
									ナレーション選択:[[軍馬超過：<ｌ>　防御度<ｓ>低下\n大筒超過：<ｎ>　防御度<ｕ>低下]]
									選択:[[軍馬処分]][[大筒処分]][[一括処分]][[現状維持]]
									分岐:([[軍馬処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										代入ｏ:(ｏ)-(4)//軍馬処理完了
									}
									分岐:([[大筒処分]]){
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(ｏ)-(1)//大筒処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｓ)//軍馬起因
										代入ｐ:(ｐ)-(ｕ)//大筒起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(4){
									ナレーション選択:[[軍馬超過：<ｌ>　防御度<ｓ>低下]]
									選択:[[軍馬処分]][[現状維持]]
									分岐:([[軍馬処分]]){
										更新:(城::城Ａ.軍馬)(ｇ)
										代入ｏ:(ｏ)-(4)//軍馬処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｓ)//軍馬起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(3){
									ナレーション選択:[[鉄砲超過：<ｍ>　防御度<ｔ>低下\n大筒超過：<ｎ>　防御度<ｕ>低下]]
									選択:[[鉄砲処分]][[大筒処分]][[一括処分]][[現状維持]]
									分岐:([[鉄砲処分]]){
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(ｏ)-(2)//鉄砲処理完了
									}
									分岐:([[大筒処分]]){
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(ｏ)-(1)//大筒処理完了
									}
									分岐:([[一括処分]]){
										更新:(城::城Ａ.鉄砲)(ｈ)
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(0)//一括処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｔ)//鉄砲起因
										代入ｐ:(ｐ)-(ｕ)//大筒起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(2){
									ナレーション選択:[[鉄砲超過：<ｍ>　防御度<ｔ>低下]]
									選択:[[鉄砲処分]][[大筒処分]][[一括処分]][[現状維持]]
									分岐:([[鉄砲処分]]){
										更新:(城::城Ａ.鉄砲)(ｈ)
										代入ｏ:(ｏ)-(2)//鉄砲処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｔ)//鉄砲起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(1){
									ナレーション選択:[[大筒超過：<ｎ>　防御度<ｕ>低下]]
									選択:[[大筒処分]][[現状維持]]
									分岐:([[大筒処分]]){
										更新:(城::城Ａ.大筒)(ｉ)
										代入ｏ:(ｏ)-(1)//大筒処理完了
									}
									分岐:([[現状維持]]){
										代入ｐ:(ｐ)-(ｕ)//大筒起因
										調査:(ｐ)>(0)
										分岐:(真){
											更新:(城::城Ａ.防御度)(ｐ)
										}
										分岐:(偽){
											更新:(城::城Ａ.防御度)(0)
										}
										代入ｏ:(0)//フラグをクリアして処理完了
									}
								}
								場合分岐:(0){
									//何もしない、たぶんここは通らない
								}
							}
						}
					}
				}
				
				コンテナ選抜:(削る,1)
				調査:(コンテナカウンタ)==(0)
				分岐:(真){
					調査:(イベントフラグ::城規模等制限初回処理完了)!=(成立)
					分岐:(真){
						更新:(イベントフラグ::城規模等制限初回処理完了)(成立)
					}
				}
			}
		}
	}
	
	イベント:兵士数制限{
		属性:何度でも
		発生契機:毎月処理の最後絶対
		発生条件:{
			調査:(イベントフラグ::軍備制限有り)==(成立)
		}
		スクリプト:{
			//総兵士数は石高基準(千石あたり30人)
			//城毎の兵士数は城規模基準(規模の2乗/2*100)
			//総兵士数が基準を超えると全城の安定度低下
			//低下安定度=(超過数)/100/(城数)
			//城毎の兵士数が基準を超えるとその城の安定度低下、超過分の1割の兵士数が減少
			//低下安定度=(超過数)/100
			//COM城主は各城に規模1あたり100人の兵士を置いて、残りを居城に集めようとする
			//ついでにCOM城主が制限を超えることはない

			//城主以上の全人物コンテナ
			コンテナ設定:(人物,カテゴリ,武将)
			コンテナ絞り込み:(人物,所属勢力タイプ,大名家)
			コンテナ除外:(人物,身分,足軽組頭)
			コンテナ除外:(人物,身分,足軽大将)
			コンテナ除外:(人物,身分,侍大将)
			コンテナ除外:(人物,身分,部将)
			コンテナ除外:(人物,身分,家老)
			コンテナ除外:(人物,身分,娘)
			コンテナ除外:(人物,死亡フラグ,死亡)
			コンテナ除外:(人物,出現フラグ,未出現)
			条件ループ:(コンテナカウンタ)>(0){
				コンテナ選択:(人物Ａ,先頭)
				コンテナ複写:(退避)//人物コンテナを退避
				
				代入ａ:(0)//総石高
				代入ｂ:(0)//総兵士数
				代入ｍ:(0)//総規模
				代入ｎ:(0)//居城規模
				代入ｏ:(0)//居城以外の総規模
				コンテナ設定:(城,城主,人物Ａ)
				条件ループ:(コンテナカウンタ)>(0){
					コンテナ選択:(城Ａ,先頭)
					代入ａ:(ａ)+(城::城Ａ.現石高)
					代入ｂ:(ｂ)+(城::城Ａ.兵士数)
					代入ｍ:(ｍ)+(城::城Ａ.規模)
					コンテナ選抜:(削る,1)
				}
				代入拠点Ａ:(人物::人物Ａ.所属拠点)
				代入ｎ:(拠点::拠点Ａ.規模)
				代入城Ｂ:(人物::人物Ａ.所属拠点)
				代入ｏ:(ｍ)-(ｎ)
				代入ｐ:(ｏ)*(100)//規模*(100)の兵士を居城以外に置いたとする(A)
				代入ｑ:(ｎ)*(ｎ)
				代入ｑ:(ｑ)*(100)
				代入ｑ:(ｑ)/(2)//居城の最大兵士数
				代入ｓ:(ｎ)*(100)//居城の規模*(100)
				代入ｔ:(0)
				代入ｘ:(ｂ)
				
				代入ａ:(ａ)*(30)//軍役率に応じて
				代入ｃ:(0)//超過数の初期化
				調査:(ｂ)>(ａ)
				分岐:(真){//総兵士数が上限を超過している
					代入ｃ:(ｂ)-(ａ)//全体の超過数
					代入ｃ:(ｃ)/(100)
					代入ｘ:(ａ)
				}
				代入ｒ:(ｘ)-(ｐ)//(A)の場合に居城に置くことのできる兵士
				
				コンテナ設定:(城,城主,人物Ａ)//再度すべての城のコンテナ
				代入ｃ:(ｃ)/(コンテナカウンタ)//総兵士数ペナルティ1城あたり

				ＡＮＤ調査:{
					調査:(人物::人物Ａ)==(人物::主人公)
					調査:(イベントフラグ::兵士数制限初回処理完了)==(成立)
				}
				分岐:(真){
					調査:(ｃ)>(0)
					分岐:(真){
						会話:(忍者,主人公)[[領内の軍役が過重になっているために、領内の住民に不満の声が上がって{いる}]]
						会話:(忍者,主人公)[[兵士数を適正にするため、一部の兵士を解雇しますか？]]
						ナレーション選択:[[兵士数上限：<ａ>\n現総兵士数：<ｂ>\n安定度低下：<ｃ>]]
						選択:[[解雇する]][[軍備を維持する]]
						分岐:([[解雇する]]){
							更新:(イベントフラグ::兵士解雇実行)(成立)
						}
						分岐:([[軍備を維持する]]){
							更新:(イベントフラグ::兵士解雇実行)(不成立)
							会話:(忍者,主人公)[[領内の住民安定度がそれぞれ<ｃ>低下し{ました}]]
						}
					}
				}
				分岐:(偽){
					代入ｔ:(ｐ)//ｐの退避
					
					代入大名家Ａ:(人物::人物Ａ.所属大名家)
					ＯＲ調査:{//大名家の戦略が攻撃型か守備型かで兵士の配備方針が異なる
						調査:(大名家::大名家Ａ.戦略)==(敵城攻略)
						調査:(大名家::大名家Ａ.戦略)==(大名攻略)
						調査:(大名家::大名家Ａ.戦略)==(国内統一)
						調査:(大名家::大名家Ａ.戦略)==(地方統一)
						調査:(大名家::大名家Ａ.戦略)==(天下統一)
					}
					分岐:(真){
						//攻撃戦略の場合は各城主居城に最低8割の兵を置く
						調査:(ｏ)>(0)
						分岐:(真){
							//居城以外に城がある
							調査:(ｂ)>(ａ)
							分岐:(真){
								代入ｖ:(ａ)*(8)
								代入ｖ:(ｖ)/(10)//総兵数の8割
							}
							分岐:(偽){
								代入ｖ:(ｂ)*(8)
								代入ｖ:(ｖ)/(10)//総兵数の8割
							}
							
							調査:(ｖ)>(ｒ)//各城に規模*(100)の兵士を置いた場合とどちらが多いか
							分岐:(真){
								代入ｒ:(ｖ)
								代入ｐ:(ｘ)-(ｒ)
							}
						}
					}
					
					調査:(ｒ)>(ｓ)//居城の兵士数チェック
					分岐:(真){//規模1あたり100を超えている
						調査:(ｒ)>(ｑ)//居城の兵士上限チェック
						分岐:(真){
							更新:(城::城Ｂ.兵士数)(ｑ)//上限まで
							代入ｐ:(ｘ)-(ｑ)//居城以外の総兵士が変わる
						}
						分岐:(偽){
							更新:(城::城Ｂ.兵士数)(ｒ)
						}
					}
					分岐:(偽){//規模1あたり100以下
						調査:(ｓ)>(ｑ)//居城の兵士上限チェック
						分岐:(真){
							更新:(城::城Ｂ.兵士数)(ｑ)//上限まで
							代入ｐ:(ｘ)-(ｑ)//居城以外の総兵士が変わる
						}
						分岐:(偽){
							調査:(ｓ)>(ａ)
							分岐:(真){
								更新:(城::城Ｂ.兵士数)(ａ)
								代入ｐ:(0)
							}
							分岐:(偽){
								更新:(城::城Ｂ.兵士数)(ｓ)
								代入ｐ:(ｘ)-(ｓ)//居城以外の総兵士が変わる
							}
						}
					}
					コンテナ除外:(城,城番号,城Ｂ)
				}
				条件ループ:(コンテナカウンタ)>(0){
					コンテナ選択:(城Ａ,先頭)
					ＡＮＤ調査:{
						//超過できるのは主人公のみ、ペナライズされるのも主人公のみ
						調査:(イベントフラグ::兵士数制限初回処理完了)==(成立)
						調査:(人物::人物Ａ)==(人物::主人公)
					}
					分岐:(真){
						調査:(イベントフラグ::兵士解雇実行)==(不成立)
						分岐:(真){
							代入ｄ:(城::城Ａ.住民安定度)
							調査:(ｃ)>(0)
							分岐:(真){
								代入ｄ:(ｄ)-(ｃ)
							}
							代入ｅ:(城::城Ａ.規模)
							代入ｅ:(ｅ)*(ｅ)
							代入ｅ:(ｅ)*(100)
							代入ｅ:(ｅ)/(2)
							代入ｆ:(城::城Ａ.兵士数)
							調査:(ｆ)>(ｅ)
							分岐:(真){
								代入ｇ:(ｆ)-(ｅ)//超過兵士数
								代入ｈ:(ｇ)/(100)//減少する安定度
								代入ｉ:(ｇ)/(10)//減少する兵士
								代入ｄ:(ｄ)-(ｈ)
								調査:(ｄ)<(0)
								分岐:(真){
									代入ｄ:(0)
								}
								代入ｆ:(ｆ)-(ｉ)
								更新:(城::城Ａ.兵士数)(ｆ)
								会話:(忍者,主人公)[[<城Ａ>では規模に対して兵士数が多く、住民安定度が<ｈ>低下し{ました}]]
								会話:(忍者,主人公)[[<城Ａ>の兵士数が<ｉ>減少し{ました}]]
							}
							更新:(城::城Ａ.住民安定度)(ｄ)
						}
						調査:(イベントフラグ::兵士解雇実行)==(成立)
						分岐:(真){
							//主人公の所有城については、居城を含め現状の比率を維持して減らす
							代入ｆ:(城::城Ａ.兵士数)
							代入ｆ:(ｆ)*(100)
							代入ｆ:(ｆ)/(ｂ)
							代入ｆ:(ｆ)*(ａ)
							代入ｆ:(ｆ)/(100)
							更新:(城::城Ａ.兵士数)(ｆ)
						}
					}
					分岐:(偽){
						調査:(ｔ)==(ｐ)
						分岐:(真){
							代入ｕ:(城::城Ａ.規模)*(100)
							更新:(城::城Ａ.兵士数)(ｕ)
						}
						分岐:(偽){
							調査:(ｐ)!=(0)
							分岐:(真){
								代入ｋ:(城::城Ａ.規模)*(100)
								代入ｋ:(ｋ)/(ｏ)
								代入ｋ:(ｐ)*(ｋ)
								代入ｋ:(ｋ)/(100)
								更新:(城::城Ａ.兵士数)(ｋ)
							}
							分岐:(偽){
								更新:(城::城Ａ.兵士数)(0)
							}
						}
					}
					コンテナ選抜:(削る,1)
				}
				
				コンテナ複写:(復帰)//人物コンテナを戻す
				コンテナ選抜:(削る,1)
			}
			
			調査:(イベントフラグ::兵士数制限初回処理完了)!=(成立)
			分岐:(真){
				更新:(イベントフラグ::兵士数制限初回処理完了)(成立)
			}
		}
	}
	
	イベント:諸勢力制限{
		属性:何度でも
		発生契機:毎月処理の最後絶対
		発生条件:{
			調査:(イベントフラグ::軍備制限有り)==(成立)
		}
		スクリプト:{
			//大名家以外の勢力は兵士数のみ制限
			//城規模基準に忍者は100倍で兵士数そのものを制限する
			//海賊衆はとりあえず船舶の10倍を兵士数としてみる
			//その他諸々汎用化する場合は修正
			コンテナ設定:(里,無効,無効)
			条件ループ:(コンテナカウンタ)>(0){
				コンテナ選択:(里Ａ,先頭)
				代入ａ:(里::里Ａ.規模)
				代入ａ:(ａ)*(100)
				調査:(里::里Ａ.兵士数)>(ａ)
				分岐:(真){
					更新:(里::里Ａ.兵士数)(ａ)
				}
				コンテナ選抜:(削る,1)
			}
			
			コンテナ設定:(砦,無効,無効)
			条件ループ:(コンテナカウンタ)>(0){
				コンテナ選択:(砦Ａ,先頭)
				代入ａ:(砦::砦Ａ.規模)
				代入ａ:(ａ)*(10)
				代入ｂ:(砦::砦Ａ.所有船舶数)+(砦::砦Ａ.大型船舶数)
				代入ｂ:(ｂ)+(砦::砦Ａ.鉄甲船数)
				調査:(ｂ)>(ａ)
				分岐:(真){
					代入ｃ:(砦::砦Ａ.所有船舶数)*(100)
					代入ｃ:(ｃ)/(ｂ)
					代入ｃ:(ａ)*(ｃ)
					代入ｃ:(ｃ)/(100)
					更新:(砦::砦Ａ.所有船舶数)(ｃ)
					代入ｃ:(砦::砦Ａ.大型船舶数)*(100)
					代入ｃ:(ｃ)/(ｂ)
					代入ｃ:(ａ)*(ｃ)
					代入ｃ:(ｃ)/(100)
					更新:(砦::砦Ａ.大型船舶数)(ｃ)
					代入ｃ:(砦::砦Ａ.鉄甲船数)*(100)
					代入ｃ:(ｃ)/(ｂ)
					代入ｃ:(ａ)*(ｃ)
					代入ｃ:(ｃ)/(100)
					更新:(砦::砦Ａ.鉄甲船数)(ｃ)
				}
				
				コンテナ選抜:(削る,1)
			}
			
			更新:(イベントフラグ::諸勢力制限処理完了)(成立)//処理完了フラグ
		}
	}
}