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

//「リアルな戦国時代を楽しむ人のためセット」の国帰しを参考に改造しました。
//軍隊に維持費がかかり、月の終わりに軍事費から維持費分が引かれます。
//維持費が足りない場合、兵士が3割減ります。
//維持費は兵士数の20%に訓練度%を乗じたもの＋鉄砲の数＋軍馬の数＋大筒の数×10です（単位：貫）。


チャプター:{
イベント:維持費を入れますか？{
属性:一度だけ
発生契機:ゲームスタート時
発生条件:{
}
スクリプト:{
ナレーション:[[軍事費設定]]
会話:(西園寺公広,主人公)[[軍隊に維持費がかかる設定にしますか？\n軍備に維持費用がかかり、\n不足すると兵が去るシステムです]]
選択:[[はい]][[いいえ]]
分岐:([[はい]]){
更新:(イベントフラグ::軍隊維持費)(成立)
ＳＥスタート:(画面転換音)
会話:(西園寺公広,主人公)[[軍隊維持費設定をＯＮにしました]]
}
分岐:([[いいえ]]){
更新:(イベントフラグ::軍隊維持費)(不成立)
}
}
}
	イベント:軍隊維持費{
		属性:何度でも
		発生契機:毎月処理の最後絶対
		発生条件:{
		調査:(イベントフラグ::軍隊維持費)==(成立)
		}//発生条件
		スクリプト:{
			コンテナ設定:(城,無効,無効)
			ループ:{
				コンテナ選択:(城Ａ,先頭)
				ブロック脱出:(偽)
				ＡＮＤ調査:{
					調査:(城::城Ａ.戦闘フラグ)==(平常)
					}//調査
				分岐:(真){
					代入ａ:(城::城Ａ.兵士数)
					代入ｂ:(城::城Ａ.訓練度)
					代入ｃ:(ａ)*(ｂ)
					代入ｂ:(ｃ)/(500)
					代入ｃ:(城::城Ａ.軍馬)
					代入ｄ:(ｂ)+(ｃ)
					代入ｃ:(城::城Ａ.鉄砲)
					代入ｂ:(ｄ)+(ｃ)
					代入ｃ:(城::城Ａ.大筒)
					代入ｅ:(ｃ)*(10)
					代入ｄ:(ｂ)+(ｅ)
					代入ｂ:(城::城Ａ.軍資金)
					代入ｃ:(ｂ)-(ｄ)
					調査:(ｃ)<(0)
					分岐:(真){
					代入ａ:(ａ)*(7)
					代入ｅ:(ａ)/(10)
					更新:(城::城Ａ.兵士数)(ｅ)
					代入ｃ:(0)
					}//軍資金が足りないときの分岐
					更新:(城::城Ａ.軍資金)(ｃ)
				}//交戦分岐
				コンテナ選抜:(削る,1)
	}//ループ
}//スクリプト
}//イベント
}//チャプター