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

//「リアルな戦国時代を楽しむ人のためセット」から無断で抜粋、改造しました。
//弱小救済の思想から兵士数が多いほど兵がやめていく割合が高くなるようにしてあり、５万の兵がいると一月で４千強辞めて行かれます;。
//イメージ的には兵士数５万の時に平均１年、２万５千の時に平均２年(抜粋元の設定に近似)で兵役終了という感じで設定しています。
//
//城の内政状態などで減少度を変化させることも考えましたが、弱小救済、負荷抑制、面倒臭い等の理由で中断されました。


チャプター:{
	イベント:国帰しスクリプト改{
		属性:何度でも
		発生契機:毎月処理の最後絶対
		発生条件:{
		}
		スクリプト:{
			コンテナ設定:(城,無効,無効)
			ループ:{
				コンテナ選択:(城Ａ,先頭)
				ブロック脱出:(偽)
				ＡＮＤ調査:{
					調査:(城::城Ａ.戦闘フラグ)==(平常)
					調査:(城::城Ａ.兵士数)>(3000)
				}
				分岐:(真){
					代入ａ:(城::城Ａ.兵士数)
					代入ａ:(ａ)*(ａ)
					代入ａ:(ａ)/(2)
					代入ａ:(ａ)/(300000)
					代入ａ:(城::城Ａ.兵士数)-(ａ)
					調査:(ａ)<(3000)
					分岐:(真){
						代入ａ:(3000)
					}
					更新:(城::城Ａ.兵士数)(ａ)
				}
				コンテナ選抜:(削る,1)
			}
		}
	}
}//チャプター