太閤立志伝５イベントソース
//
//主人公以外の城主(国主と大名も含む)が自分の領地で内政をしてくれるイベントです
//発生頻度や内政の効果は城主の能力には関係なく一定です
//城主の居城の方が直轄地より内政の効果が高いです
//このイベントを作成するにあたって「城主戦略行動」を参考にさせていただきました
//数値などは自由に調節し、自分好みのバランスにしてお使いください。
//
//修正(2008/07/02)
//・イベントを統一
//・デフォルトでの内政効果をアップ
//・スクリプトを整理
//
チャプター:{

イベント:城主内政{
	属性:何度でも
	発生契機:毎月処理の最後絶対
	発生条件:{
		調査:(イベントフラグ::城主内政ＯＮ)==(成立)
		ＯＲ調査:{
			調査:(状況::月)==(1)
			調査:(状況::月)==(4)
			調査:(状況::月)==(7)
			調査:(状況::月)==(10)
		}
	}
	スクリプト:{
		コンテナ設定:(人物,カテゴリ,武将)
		コンテナ絞り込み:(人物,死亡フラグ,生存)
		コンテナ絞り込み:(人物,出現フラグ,出現済み)
		コンテナ絞り込み:(人物,所属勢力タイプ,大名家)
		コンテナ除外:(人物,身分,足軽組頭)
		コンテナ除外:(人物,身分,足軽大将)
		コンテナ除外:(人物,身分,侍大将)
		コンテナ除外:(人物,身分,部将)
		コンテナ除外:(人物,身分,家老)
		コンテナ除外:(人物,人物番号,主人公)
		ループ:{//ループ１
			調査:(コンテナカウンタ)>(0)
			ブロック脱出:(偽)
			コンテナ選択:(人物Ａ,先頭)
			コンテナ複写:(退避)
			コンテナ設定:(城,城主,人物Ａ)
			コンテナ絞り込み:(城,戦闘フラグ,平常)
			ループ:{//ループ２
				調査:(コンテナカウンタ)>(0)
				ブロック脱出:(偽)
				コンテナ選択:(城Ａ,先頭)
				//訓練度
				調査:(城::城Ａ.訓練度)<(100)
				分岐:(真){
					調査:(人物::人物Ａ.所属拠点)==(城Ａ)
					分岐:(真){
						代入ａ:(10)+(城::城Ａ.訓練度)
						調査:(ａ)>(100)
						分岐:(真){
							代入ａ:(100)
						}
						更新:(城::城Ａ.訓練度)(ａ)
					}
					分岐:(偽){
						代入ａ:(5)+(城::城Ａ.訓練度)
						調査:(ａ)>(100)
						分岐:(真){
							代入ａ:(100)
						}
						更新:(城::城Ａ.訓練度)(ａ)
					}
				}
				//住民安定度
				調査:(城::城Ａ.住民安定度)<(100)
				分岐:(真){
					調査:(人物::人物Ａ.所属拠点)==(城Ａ)
					分岐:(真){
						代入ｂ:(10)+(城::城Ａ.住民安定度)
						調査:(ｂ)>(100)
						分岐:(真){
							代入ｂ:(100)
						}
						更新:(城::城Ａ.住民安定度)(ｂ)
					}
					分岐:(偽){
						代入ｂ:(5)+(城::城Ａ.住民安定度)
						調査:(ｂ)>(100)
						分岐:(真){
							代入ｂ:(100)
						}
						更新:(城::城Ａ.住民安定度)(ｂ)
					}
				}
				//軍資金
				調査:(人物::人物Ａ.所属拠点)==(城Ａ)
				分岐:(真){
					調査:(城::城Ａ.軍資金)<(500000)
					分岐:(真){
						代入ｃ:(1000)+(城::城Ａ.軍資金)
						調査:(ｃ)>(500000)
						分岐:(真){
							代入ｃ:(500000)
						}
						更新:(城::城Ａ.軍資金)(ｃ)
					}
				}
				//兵糧
				調査:(人物::人物Ａ.所属拠点)==(城Ａ)
				分岐:(真){
					調査:(城::城Ａ.兵糧)<(500000)
					分岐:(真){
						代入ｄ:(1000)+(城::城Ａ.兵糧)
						調査:(ｄ)>(500000)
						分岐:(真){
							代入ｄ:(500000)
						}
						更新:(城::城Ａ.兵糧)(ｄ)
					}
				}
				//軍馬
				調査:(人物::人物Ａ.所属拠点)==(城Ａ)
				分岐:(真){
					調査:(城::城Ａ.軍馬)<(60000)
					分岐:(真){
						代入ｅ:(100)+(城::城Ａ.軍馬)
						調査:(ｅ)>(60000)
						分岐:(真){
							代入ｅ:(60000)
						}
						更新:(城::城Ａ.軍馬)(ｅ)
					}
				}
				//鉄砲
				調査:(人物::人物Ａ.所属拠点)==(城Ａ)
				分岐:(真){
					調査:(城::城Ａ.鉄砲)<(60000)
					分岐:(真){
						代入ｆ:(100)+(城::城Ａ.鉄砲)
						調査:(ｆ)>(60000)
						分岐:(真){
							代入ｆ:(60000)
						}
						更新:(城::城Ａ.鉄砲)(ｆ)
					}
				}
				//大筒
				調査:(人物::人物Ａ.所属拠点)==(城Ａ)
				分岐:(真){
					調査:(城::城Ａ.大筒)<(6000)
					分岐:(真){
						代入ｇ:(5)+(城::城Ａ.大筒)
						調査:(ｇ)>(6000)
						分岐:(真){
							代入ｇ:(6000)
						}
						更新:(城::城Ａ.大筒)(ｇ)
					}
				}
				//兵士数
				調査:(人物::人物Ａ.所属拠点)==(城Ａ)
				分岐:(真){
					調査:(城::城Ａ.兵士数)<(25000)
					分岐:(真){
						代入ｈ:(1000)+(城::城Ａ.兵士数)
						調査:(ｈ)>(50000)
						分岐:(真){
							代入ｈ:(50000)
						}
						更新:(城::城Ａ.兵士数)(ｈ)
					}
				}
				分岐:(偽){
					調査:(城::城Ａ.兵士数)<(10000)
					分岐:(真){
						代入ｈ:(1000)+(城::城Ａ.兵士数)
						調査:(ｈ)>(50000)
						分岐:(真){
							代入ｈ:(50000)
						}
						更新:(城::城Ａ.兵士数)(ｈ)
					}
				}
				//防御度
				代入ｘ:(城::城Ａ.規模)*(8)
				調査:(人物::人物Ａ.所属拠点)==(城Ａ)
				分岐:(真){
					ＡＮＤ調査:{
						調査:(城::城Ａ.防御度)<(150)
						調査:(城::城Ａ.防御度)<(ｘ)
					}
					分岐:(真){
						代入ｉ:(5)+(城::城Ａ.防御度)
						調査:(ｉ)>(250)
						分岐:(真){
							代入ｉ:(250)
						}
						更新:(城::城Ａ.防御度)(ｉ)
					}
				}
				分岐:(偽){
					ＡＮＤ調査:{
						調査:(城::城Ａ.防御度)<(100)
						調査:(城::城Ａ.防御度)<(ｘ)
					}
					分岐:(真){
						代入ｉ:(5)+(城::城Ａ.防御度)
						調査:(ｉ)>(250)
						分岐:(真){
							代入ｉ:(250)
						}
						更新:(城::城Ａ.防御度)(ｉ)
					}
				}
				//鉱山
				代入ｊ:(城::城Ａ.現鉱山)
				代入ｋ:(城::城Ａ.鉱山最高値)
				ＡＮＤ調査:{
					調査:(ｊ)<(ｋ)
					調査:(Ｒｎｄ１００)<(50)
				}
				分岐:(真){
					調査:(人物::人物Ａ.所属拠点)==(城Ａ)
					分岐:(真){
						代入ｊ:(5)+(ｊ)
						調査:(ｊ)>(ｋ)
						分岐:(真){
							代入ｊ:(ｋ)
						}
						更新:(城::城Ａ.現鉱山)(ｊ)
					}
					分岐:(偽){
						代入ｊ:(2)+(ｊ)
						調査:(ｊ)>(ｋ)
						分岐:(真){
							代入ｊ:(ｋ)
						}
						更新:(城::城Ａ.現鉱山)(ｊ)
					}
				}
				//石高
				代入ｌ:(城::城Ａ.現石高)
				代入ｍ:(城::城Ａ.基準石高)
				ＡＮＤ調査:{
					調査:(ｌ)<(ｍ)
					調査:(Ｒｎｄ１００)<(50)
				}
				分岐:(真){
					調査:(人物::人物Ａ.所属拠点)==(城Ａ)
					分岐:(真){
						代入ｌ:(5)+(ｌ)
						調査:(ｌ)>(ｍ)
						分岐:(真){
							代入ｌ:(ｍ)
						}
						更新:(城::城Ａ.現石高)(ｌ)
					}
					分岐:(偽){
						代入ｌ:(2)+(ｌ)
						調査:(ｌ)>(ｍ)
						分岐:(真){
							代入ｌ:(ｍ)
						}
						更新:(城::城Ａ.現石高)(ｌ)
					}
				}
				//規模
				調査:(人物::人物Ａ.所属拠点)==(城Ａ)
				分岐:(真){
					ＡＮＤ調査:{
						調査:(城::城Ａ.規模)<(30)
						調査:(Ｒｎｄ１００)<(30)
					}
					分岐:(真){
						代入ｎ:(1)+(城::城Ａ.規模)
						調査:(ｎ)>(30)
						分岐:(真){
							代入ｎ:(30)
						}
						更新:(城::城Ａ.規模)(ｎ)
					}
				}
				分岐:(偽){
					ＡＮＤ調査:{
						調査:(城::城Ａ.規模)<(15)
						調査:(Ｒｎｄ１００)<(30)
					}
					分岐:(真){
						代入ｎ:(1)+(城::城Ａ.規模)
						調査:(ｎ)>(30)
						分岐:(真){
							代入ｎ:(30)
						}
						更新:(城::城Ａ.規模)(ｎ)
					}
				}

				コンテナ選抜:(削る,1)
			}//ループ２〆
			コンテナ複写:(復帰)
			コンテナ選抜:(削る,1)
		}//ループ１〆
	}
}

イベント:城主内政イベントの発生{
	属性:一度だけ
	発生契機:ゲームスタート時
	発生条件:{
	}
	スクリプト:{
		ナレーション可否選択:[[城主内政イベントを発生させますか？]]
		分岐:(可){
			更新:(イベントフラグ::城主内政ＯＮ)(成立)
		}
	}
}

}