太閤立志伝５イベントソース
//
//	未亡人保護
//
//	イベント:未亡人保護・1
//	イベント:未亡人保護・2A
//	イベント:未亡人保護・2B
//
//	イベントフラグ::未亡人保護
//

チャプター:{

	イベント:未亡人保護・1{
		属性:何度でも
		発生契機:攻城戦終了時(無効,無効,決着)
		発生条件:{
			調査:(軍団::軍団１.結果)==(勝利)
			代入拠点Ａ:(拠点::発生拠点)
			代入勢力Ａ:(軍団::軍団２.所属勢力)
			代入人物Ｅ:(勢力::勢力Ａ.当主)
			コンテナ設定:(人物,所属拠点,拠点Ａ)
			コンテナ除外:(人物,奥さん,無効)
			コンテナ絞り込み:(人物,所属勢力,勢力Ａ)
			コンテナ絞り込み:(人物,死亡フラグ,生存)
			コンテナ絞り込み:(人物,出現フラグ,出現済み)
			調査:(コンテナカウンタ)
			コンテナ複写:(退避)
			コンテナ絞り込み:(人物,死刑フラグ,死刑)
			ＯＲ調査:{
				調査:(コンテナカウンタ)
				調査:(軍団::軍団１.軍団長)==(人物::主人公)
				ＡＮＤ調査:{
					調査:(勢力::勢力Ａ.勢力タイプ)==(大名家)
					代入大名家Ａ:(人物::人物Ｅ.所属大名家)
					調査:(大名家::大名家Ａ.城数)==(1)
				}
				ＡＮＤ調査:{
					調査:(勢力::勢力Ａ.勢力タイプ)==(忍者衆)
					代入忍者衆Ａ:(人物::人物Ｅ.所属忍者衆)
					調査:(忍者衆::忍者衆Ａ.支配力)==(1)
				}
				ＡＮＤ調査:{
					調査:(勢力::勢力Ａ.勢力タイプ)==(海賊衆)
					代入海賊衆Ａ:(人物::人物Ｅ.所属海賊衆)
					調査:(海賊衆::海賊衆Ａ.支配力)==(1)
				}
			}
			条件ブロック:(イベントフラグ::未亡人保護)==(0){
				更新:(イベントフラグ::未亡人保護)(1)
				コンテナ設定:(人物,無効,無効)
				コンテナ除外:(人物,商人勲功,0)
				コンテナ除外:(人物,商人勲功,60000)
				条件ループ:(コンテナカウンタ){
					コンテナ選択:(人物Ａ,先頭)
					コンテナ選抜:(削る,1)
					条件ブロック:(人物::人物Ａ.商人勲功)>=(58900){
						更新:(人物::人物Ａ.商人勲功)(58899)
					}
				}
			}
			コンテナ複写:(復帰)
			条件ループ:(コンテナカウンタ){
				コンテナ選択:(人物Ａ,先頭)
				コンテナ選抜:(削る,1)
				代入ａ:(1)
				条件ブロック:(軍団::軍団１.軍団長)!=(人物::主人公){
					条件ブロック:(人物::人物Ａ.死刑フラグ)!=(死刑){
						条件ブロック:(人物::人物Ａ)!=(人物::人物Ｅ){
							代入ａ:(0)
						}
					}
				}
				条件ブロック:(ａ){
					代入人物Ｂ:(人物::人物Ａ.奥さん)
					代入ａ:(人物Ｂ.人物番号)+(58900)
					更新:(人物::人物Ａ.商人勲功)(ａ)
					更新:(人物::人物Ａ.奥さん)(人物::無効)
				}
			}
			調査:(0)
		}
		スクリプト:{
		}
	}

	イベント:未亡人保護・2A{
		属性:何度でも
		発生契機:一日開始処理の先頭
		発生条件:{
			調査:(イベントフラグ::未亡人保護)
			コンテナ設定:(人物,無効,無効)
			コンテナ除外:(人物,商人勲功,0)
			コンテナ除外:(人物,商人勲功,60000)
			条件ループ:(コンテナカウンタ){
				コンテナ選択:(人物Ａ,先頭)
				コンテナ選抜:(削る,1)
				条件ブロック:(人物::人物Ａ.商人勲功)>=(58900){
					代入人物Ｂ:(人物::人物Ａ.商人勲功)-(58900)
					更新:(人物::人物Ａ.商人勲功)(0)
					条件ブロック:(人物::人物Ａ.死亡フラグ)==(生存){
						コンテナ複写:(退避)
						コンテナ設定:(人物,奥さん,人物Ｂ)
						条件ブロック:(コンテナカウンタ)==(0){
							更新:(人物::人物Ａ.奥さん)(人物::人物Ｂ)
						}
						コンテナ複写:(復帰)
					}
				}
			}
			更新:(イベントフラグ::未亡人保護)(0)
			調査:(0)
		}
		スクリプト:{
		}
	}

	イベント:未亡人保護・2B{
		属性:何度でも
		発生契機:拠点内画面表示後(無効)
		発生条件:{
			調査:(イベントフラグ::未亡人保護)
			コンテナ設定:(人物,無効,無効)
			コンテナ除外:(人物,商人勲功,0)
			コンテナ除外:(人物,商人勲功,60000)
			条件ループ:(コンテナカウンタ){
				コンテナ選択:(人物Ａ,先頭)
				コンテナ選抜:(削る,1)
				条件ブロック:(人物::人物Ａ.商人勲功)>=(58900){
					代入人物Ｂ:(人物::人物Ａ.商人勲功)-(58900)
					更新:(人物::人物Ａ.商人勲功)(0)
					条件ブロック:(人物::人物Ａ.死亡フラグ)==(生存){
						コンテナ複写:(退避)
						コンテナ設定:(人物,奥さん,人物Ｂ)
						条件ブロック:(コンテナカウンタ)==(0){
							更新:(人物::人物Ａ.奥さん)(人物::人物Ｂ)
						}
						コンテナ複写:(復帰)
					}
				}
			}
			更新:(イベントフラグ::未亡人保護)(0)
			調査:(0)
		}
		スクリプト:{
		}
	}

}