太閤立志伝５イベントソース
//
//スクリプト名：個人設定初期化
//
//■発生条件■
//「日輪の章」ゲーム開始時（強制）
//
//■結果■
//このシナリオ開始時に有能な浪人及び
//結構初期に滅亡する大名家の有能家臣の「仕官傾向」を
//「その気なし」に設定。更に浪人・技能教師役は
//「外出禁止フラグ」を「真」に設定し、
//外を出歩かないようにする。
//
//対象武将：金森長近・堀尾茂助・伊達稙宗・
//蜂須賀小六・木下小一郎・鍋島直茂・佐竹義重・最上義光
//（伊達稙宗）は最初から「その気なし」
//安井道頓（建築技能）・大久保長安（鉱山技能）
//
//スクリプト名：個人設定
//
//各民家で会った人に対して
//�@「外出禁止フラグ」
//�A「仕官傾向」
//を設定できる。
//�Bまた各能力値の差が５以上で新密度９５以上の時は
//能力開発を１００貫で依頼できる。成長幅は差の１割＋１（最低１上昇）
//追加：武家宅編で親密度が９５以上の時は、引き抜きが可能になる。
//（但し、主人公が直臣であること）
//
//追加：「能力開発」の適用範囲が大幅に拡張されました（2023/01/12）
//
//
チャプター:{

イベント:個人設定{
属性:何度でも
発生契機:室内画面表示後(無効,無効)
発生条件:{

}//発生条件
スクリプト:{
代入人物Ａ:(人物::ＭＰ主人)
ＡＮＤ調査:{
	調査:(人物::主人公.主命状態)==(主命なし)//主命なし
	調査:(人物::人物Ａ)!=(主人公)//自宅でない
	調査:(人物::人物Ａ)!=(主人公当主)//主人公当主でない（城主の間・評定の間のＭＰ主人）
	調査:(人物::人物Ａ)!=(米屋の主人)//米屋の主人でない（米屋のＭＰ主人）
	調査:(人物::人物Ａ)!=(馬屋の主人)//馬屋の主人でない（馬屋のＭＰ主人）
	調査:(人物::人物Ａ)!=(酒場の女将)//酒場の女将でない（酒場のＭＰ主人）
	調査:(人物::人物Ａ)!=(宿屋の女将)//宿屋の女将でない（宿屋のＭＰ主人）
	調査:(人物::人物Ａ)!=(座の親父)//座の親父でない（座のＭＰ主人）
	調査:(人物::人物Ａ)!=(備大将)//備大将でない（城練兵場のＭＰ主人）
	調査:(人物::人物Ａ)!=(剣術の師範)//剣術の師範でない（道場のＭＰ主人）
	調査:(人物::人物Ａ)!=(槍術の師範)//槍術の師範でない（道場のＭＰ主人）
	調査:(人物::人物Ａ)!=(僧侶)//僧侶でない（寺のＭＰ主人）
	調査:(人物::人物Ａ)!=(海賊)//海賊でない（砦修行場のＭＰ主人）
	調査:(人物::人物Ａ)!=(忍者)//忍者でない（里修行場のＭＰ主人）
	調査:(人物::人物Ａ)!=(公家)//公家でない（御所のＭＰ主人）
	調査:(人物::人物Ａ)!=(朝鮮商人)//朝鮮商人でない（釜山交易所のＭＰ主人）
	調査:(人物::人物Ａ)!=(明国商人)//明国商人でない（寧波交易所のＭＰ主人）
	調査:(人物::人物Ａ)!=(琉球商人)//琉球商人でない（那覇交易所のＭＰ主人）
	調査:(人物::人物Ａ)!=(南蛮商人)//南蛮商人でない（呂宋交易所のＭＰ主人）
}
分岐:(真){
	調査:(人物::人物Ａ.外出禁止フラグ)==(真)
	分岐:(真){
		文字列設定:(文字列Ａ)[[禁止]]
	}//分岐:(真)
	分岐:(偽){
		文字列設定:(文字列Ａ)[[可能]]
	}//分岐:(偽)
	ナレーション選択:[[<人物Ａ>の外出は<文字列Ａ>です。どちらに設定しますか？]]
	選択:[[禁止]][[可能]]
	分岐:([[禁止]]){
		更新:(人物::人物Ａ.外出禁止フラグ)(真)
	}//分岐:([[禁止]])
	分岐:([[可能]]){
		更新:(人物::人物Ａ.外出禁止フラグ)(偽)
	}//分岐:([[可能]])

	条件ブロック:(人物::人物Ａ.仕官傾向)==(武士のみ){
		文字列設定:(文字列Ａ)[[武士のみ]]
	}//武士のみ
	条件ブロック:(人物::人物Ａ.仕官傾向)==(全職種){
		文字列設定:(文字列Ａ)[[全職種]]
	}//全職種
	条件ブロック:(人物::人物Ａ.仕官傾向)==(武士以外優先){
		文字列設定:(文字列Ａ)[[武士以外優先]]
	}//武士以外優先
	条件ブロック:(人物::人物Ａ.仕官傾向)==(その気なし){
		文字列設定:(文字列Ａ)[[その気なし]]
	}//その気なし
	ナレーション選択:[[<人物Ａ>の仕官傾向は<文字列Ａ>です。どれに設定しますか？]]
	選択:[[武士のみ]][[全職種]][[武士以外優先]][[その気なし]]
	分岐:([[武士のみ]]){
		更新:(人物::人物Ａ.仕官傾向)(武士のみ)
	}//武士のみ
	分岐:([[全職種]]){
		更新:(人物::人物Ａ.仕官傾向)(全職種)
	}//全職種
	分岐:([[武士以外優先]]){
		更新:(人物::人物Ａ.仕官傾向)(武士以外優先)
	}//武士以外優先
	分岐:([[その気なし]]){
		更新:(人物::人物Ａ.仕官傾向)(その気なし)
	}//その気なし
	代入ｘ:(0)//上昇可能な能力科目数
	代入ｇ:(0)
	代入ｈ:(0)
	代入ｉ:(0)
	代入ｊ:(0)
	代入ｋ:(0)
	代入ｅ:(人物::人物Ａ.統率力)
	代入ｆ:(人物::主人公.統率力)
	代入ｅ:(ｅ)-(ｆ)
	調査:(ｅ)>=(5)
	分岐:(真){
		代入ｇ:(ｅ)/(10)
		代入ｇ:(ｇ)+(1)
		代入ｘ:(ｘ)+(1)
		文字列設定:(文字列Ａ)[[統率力（上昇幅<ｇ>）]]
	}//分岐:(真)
	分岐:(偽){
		文字列設定:(文字列Ａ)[[　]]
	}//分岐:(偽)
	代入ｅ:(人物::人物Ａ.武力)
	代入ｆ:(人物::主人公.武力)
	代入ｅ:(ｅ)-(ｆ)
	調査:(ｅ)>=(5)
	分岐:(真){
		代入ｈ:(ｅ)/(10)
		代入ｈ:(ｈ)+(1)
		代入ｘ:(ｘ)+(1)
		文字列設定:(文字列Ｂ)[[武力（上昇幅<ｈ>）]]
	}//分岐:(真)
	分岐:(偽){
		文字列設定:(文字列Ｂ)[[　]]
	}//分岐:(偽)
	代入ｅ:(人物::人物Ａ.政務)
	代入ｆ:(人物::主人公.政務)
	代入ｅ:(ｅ)-(ｆ)
	調査:(ｅ)>=(5)
	分岐:(真){
		代入ｉ:(ｅ)/(10)
		代入ｉ:(ｉ)+(1)
		代入ｘ:(ｘ)+(1)
		文字列設定:(文字列Ｃ)[[政務（上昇幅<ｉ>）]]
	}//分岐:(真)
	分岐:(偽){
		文字列設定:(文字列Ｃ)[[　]]
	}//分岐:(偽)
	代入ｅ:(人物::人物Ａ.知謀)
	代入ｆ:(人物::主人公.知謀)
	代入ｅ:(ｅ)-(ｆ)
	調査:(ｅ)>=(5)
	分岐:(真){
		代入ｊ:(ｅ)/(10)
		代入ｊ:(ｊ)+(1)
		代入ｘ:(ｘ)+(1)
		文字列設定:(文字列Ｄ)[[知謀（上昇幅<ｊ>）]]
	}//分岐:(真)
	分岐:(偽){
		文字列設定:(文字列Ｄ)[[　]]
	}//分岐:(偽)
	代入ｅ:(人物::人物Ａ.魅力)
	代入ｆ:(人物::主人公.魅力)
	代入ｅ:(ｅ)-(ｆ)
	調査:(ｅ)>=(5)
	分岐:(真){
		代入ｋ:(ｅ)/(10)
		代入ｋ:(ｋ)+(1)
		代入ｘ:(ｘ)+(1)
		文字列設定:(文字列Ｅ)[[魅力（上昇幅<ｋ>）]]
	}//分岐:(真)
	分岐:(偽){
		文字列設定:(文字列Ｅ)[[　]]
	}//分岐:(偽)
	ＡＮＤ調査:{
		調査:(人物::人物Ａ.親密度)>=(95)
		調査:(人物::主人公.所持金)>=(100)
		調査:(ｘ)!=(0)
		調査:(イベントフラグ::能力上昇済)==(不成立)
		調査:(イベントフラグ::能力上昇)==(成立)
		ＯＲ調査:{
			調査:(人物::人物Ａ.所属勢力タイプ)==(商家)
			調査:(人物::人物Ａ.所属勢力タイプ)==(忍者衆)
			調査:(人物::人物Ａ.所属勢力タイプ)==(海賊衆)
			調査:(人物::人物Ａ.所属勢力タイプ)==(浪人)
		}//ＯＲ調査
	}//ＡＮＤ調査:
	分岐:(真){
		代入ｚ:(人物::人物Ａ.親密度)
		ナレーション選択:[[<人物Ａ>（親密度<ｚ>）から能力開発を依頼することができます。\nどの項目を実行しますか？]]
		選択:[[<文字列Ａ>]][[<文字列Ｂ>]][[<文字列Ｃ>]][[<文字列Ｄ>]][[<文字列Ｅ>]][[やっぱりやめる]]
		分岐:(0){
			調査:(ｇ)!=(0)
			分岐:(真){
				代入ｙ:(人物::主人公.素統率力)
				代入ｙ:(ｙ)+(ｇ)
				ナレーション:[[統率力が<ｇ>上がって<ｙ>になりました]]
				代入ｌ:(人物::主人公.所持金)-(100)
				代入ｍ:(人物::人物Ａ.所持金)+(100)
				更新:(人物::主人公.統率力)(ｙ)
				更新:(人物::主人公.所持金)(ｌ)
				更新:(人物::人物Ａ.所持金)(ｍ)
				更新:(イベントフラグ::能力上昇済)(成立)
			}//分岐:(真)
		}//分岐:(0)
		分岐:(1){
			調査:(ｈ)!=(0)
			分岐:(真){
				代入ｙ:(人物::主人公.素武力)
				代入ｙ:(ｙ)+(ｈ)
				ナレーション:[[武力が<ｈ>上がって<ｙ>になりました]]
				代入ｌ:(人物::主人公.所持金)-(100)
				代入ｍ:(人物::人物Ａ.所持金)+(100)
				更新:(人物::主人公.武力)(ｙ)
				更新:(人物::主人公.所持金)(ｌ)
				更新:(人物::人物Ａ.所持金)(ｍ)
				更新:(イベントフラグ::能力上昇済)(成立)
			}//分岐:(真)
		}//分岐:(1)
		分岐:(2){
			調査:(ｉ)!=(0)
			分岐:(真){
				代入ｙ:(人物::主人公.素政務)
				代入ｙ:(ｙ)+(ｉ)
				ナレーション:[[政務が<ｉ>上がって<ｙ>になりました]]
				代入ｌ:(人物::主人公.所持金)-(100)
				代入ｍ:(人物::人物Ａ.所持金)+(100)
				更新:(人物::主人公.政務)(ｙ)
				更新:(人物::主人公.所持金)(ｌ)
				更新:(人物::人物Ａ.所持金)(ｍ)
				更新:(イベントフラグ::能力上昇済)(成立)
			}//分岐:(真)
		}//分岐:(2)
		分岐:(3){
			調査:(ｊ)!=(0)
			分岐:(真){
				代入ｙ:(人物::主人公.素知謀)
				代入ｙ:(ｙ)+(ｊ)
				ナレーション:[[知謀が<ｊ>上がって<ｙ>になりました]]
				代入ｌ:(人物::主人公.所持金)-(100)
				代入ｍ:(人物::人物Ａ.所持金)+(100)
				更新:(人物::主人公.知謀)(ｙ)
				更新:(人物::主人公.所持金)(ｌ)
				更新:(人物::人物Ａ.所持金)(ｍ)
				更新:(イベントフラグ::能力上昇済)(成立)
			}//分岐:(真)
		}//分岐:(3)
		分岐:(4){
			調査:(ｋ)!=(0)
			分岐:(真){
				代入ｙ:(人物::主人公.素魅力)
				代入ｙ:(ｙ)+(ｋ)
				ナレーション:[[魅力が<ｋ>上がって<ｙ>になりました]]
				代入ｌ:(人物::主人公.所持金)-(100)
				代入ｍ:(人物::人物Ａ.所持金)+(100)
				更新:(人物::主人公.魅力)(ｙ)
				更新:(人物::主人公.所持金)(ｌ)
				更新:(人物::人物Ａ.所持金)(ｍ)
				更新:(イベントフラグ::能力上昇済)(成立)
			}//分岐:(真)
		}//分岐:(4)
		分岐:(5){
			//何もしない
		}//分岐:(5)
	}//分岐:(真)
}//分岐:(真)
分岐:(偽){
}//分岐:(偽)何もしない
}//スクリプト
}//イベント


イベント:個人設定武家宅編{
属性:何度でも
発生契機:室内画面表示後(無効,武家宅)
発生条件:{
代入人物Ａ:(人物::ＭＰ主人)
代入人物Ｂ:(人物::主人公)
調査:(人物::人物Ａ.所属当主)!=(人物::人物Ｂ.所属当主)
}//発生条件
スクリプト:{
代入ａ:(0)
代入ｂ:(0)
場合別:(人物::人物Ａ.身分){
	場合分岐:(身分::家老){
		代入ａ:(100)
	}//家老
	場合分岐:(身分::部将){
		代入ａ:(50)
	}//部将
	場合分岐:(身分::侍大将){
		代入ａ:(20)
	}//侍大将
	場合分岐:(身分::足軽大将){
		代入ａ:(10)
	}//足軽大将
	場合分岐:(身分::足軽組頭){
		代入ａ:(5)
	}//足軽組頭
	場合分岐:{
		代入ａ:(0)
	}//その他
}//場合別
場合別:(人物::人物Ｂ.身分){
	場合分岐:(身分::家老){
		代入ｂ:(100)
	}//家老
	場合分岐:(身分::部将){
		代入ｂ:(50)
	}//部将
	場合分岐:(身分::侍大将){
		代入ｂ:(20)
	}//侍大将
	場合分岐:(身分::足軽大将){
		代入ｂ:(10)
	}//足軽大将
	場合分岐:(身分::足軽組頭){
		代入ｂ:(5)
	}//足軽組頭
	場合分岐:{
		代入ａ:(0)
	}//その他
}//場合別
代入ｓ:(0)
//ナレーション:[[ｓの初期値は<ｓ>です]]
コンテナ設定:(人物,所属上司,主人公)
コンテナ除外:(人物,死亡フラグ,死亡)
コンテナ除外:(人物,人物番号,主人公)
コンテナ絞り込み:(人物,出現フラグ,出現済み)
条件ループ:(コンテナカウンタ)>(0){
	コンテナ選択:(人物Ｃ,先頭)
	場合別:(人物::人物Ｃ.身分){
		場合分岐:(身分::家老){
			代入ｃ:(100)
		}//家老
		場合分岐:(身分::部将){
			代入ｃ:(50)
		}//部将
		場合分岐:(身分::侍大将){
			代入ｃ:(20)
		}//侍大将
		場合分岐:(身分::足軽大将){
			代入ｃ:(10)
		}//足軽大将
		場合分岐:(身分::足軽組頭){
			代入ｃ:(5)
		}//足軽組頭
	}//場合別
	代入ｓ:(ｓ)+(ｃ)
	//ナレーション:[[部下の報酬は<ｃ>、報酬合計は<ｓ>です]]
	コンテナ選抜:(削る,1)
	ブロック脱出:(偽)
}//ループ
代入ｔ:(ｓ)+(ａ)
//ナレーション:[[<人物Ａ>を含めた報酬合計は<ｔ>です]]
代入ｄ:(人物::人物Ａ.親密度)
ＡＮＤ調査:{
調査:(人物::人物Ｂ.所属勢力タイプ)==(大名家)
調査:(人物::人物Ｂ.立場)==(直臣)
調査:(人物::人物Ｂ.身分)!=(足軽組頭)
調査:(人物::人物Ｂ.身分)!=(城主)
調査:(人物::人物Ｂ.身分)!=(国主)
調査:(ｂ)>=(ｔ)
調査:(ｄ)>=(95)
}//ＡＮＤ調査
分岐:(真){
	ナレーション:[[<人物Ｂ>の俸禄は<ｂ>貫、\n配下の俸禄合計は<ｓ>貫、\n<人物Ａ>の俸禄は<ａ>貫で余裕があります。]]
	ナレーション可否選択:[[また<人物Ａ>の親密度は<ｄ>です。\n引き抜きを実行しますか？]]
	分岐:(可){
		会話:(人物Ｂ,人物Ａ)[[実は折り入って、お願いしたい儀が{ある}]]
		会話:(人物Ａ,人物Ｂ)[[何ですかな？]]
		会話:(人物Ｂ,人物Ａ)[[{二人称}を{一人称}の配下に\n迎えたいのだが]]
		会話:(人物Ａ,人物Ｂ)[[ううむ・・・]]
		代入ｅ:(Ｒｎｄ１００)+(1)
		代入ｄ:(ｄ)*(ｅ)
		代入ｄ:(ｄ)/(100)
		調査:(ｄ)>=(50)
		分岐:(真){
			会話:(人物Ａ,人物Ｂ)[[分かりました。\n{二人称}の仰る通りに致しましょう]]
			会話:(人物Ｂ,人物Ａ)[[おお、そうか！！]]
			人物登用:(人物Ａ,陪臣,人物Ｂ)
			ナレーション:[[<人物Ａ>は<人物Ｂ>の配下になりました]]
			ＳＥスタート:(成功音)
		}//分岐:(真)
		分岐:(偽){
			会話:(人物Ａ,人物Ｂ)[[申し訳ありませぬが、お断り致す]]
			会話:(人物Ｂ,人物Ａ)[[そうか、残念だ・・・]]
			ナレーション:[[<人物Ａ>は申し出を断った]]
			ＳＥスタート:(失敗音)
		}//分岐:(偽)
	}//分岐:(可)
	分岐:(否){
		ひとりごと:[[・・・止めておこう]]
	}//分岐:(否)
}//分岐:(真)
}//スクリプト
}//イベント

イベント:能力開発フラグクリア{
属性:何度でも
発生契機:毎月処理の最後絶対
発生条件:{
調査:(イベントフラグ::能力上昇済)==(成立)
}//発生条件
スクリプト:{
更新:(イベントフラグ::能力上昇済)(不成立)
}//スクリプト
}//イベント


イベント:能力上昇の設定{
属性:何度でも
発生契機:室内画面表示後(京の町,酒場)
発生条件:{

}//発生条件
スクリプト:{
調査:(イベントフラグ::能力上昇)==(成立)
分岐:(真){
	文字列設定:(文字列Ａ)[[有効]]
}
分岐:(偽){
	文字列設定:(文字列Ａ)[[無効]]
}
会話選択:(酒場の女将,主人公)[[現在「能力上昇」は「<文字列Ａ>」です\nどちらに設定しますか？]]
選択:[[有効]][[無効]]
分岐:([[有効]]){
	更新:(イベントフラグ::能力上昇)(成立)
	ナレーション:[[「能力上昇」を「有効」に設定しました]]
}
分岐:([[無効]]){
	更新:(イベントフラグ::能力上昇)(不成立)
	ナレーション:[[「能力上昇」を「無効」に設定しました]]
}
}//スクリプト
}//イベント

イベント:個人設定初期化{
属性:一度だけ
発生契機:ゲームスタート時
発生条件:{
}//発生条件
スクリプト:{
	更新:(イベントフラグ::能力上昇)(成立)
調査:(状況::シナリオ)==(1)//日輪の章
分岐:(真){
	更新:(人物::金森長近.仕官傾向)(その気なし)
	更新:(人物::堀尾吉晴.仕官傾向)(その気なし)
	更新:(人物::蜂須賀小六.仕官傾向)(その気なし)
	更新:(人物::豊臣秀長.仕官傾向)(その気なし)
	更新:(人物::鍋島直茂.仕官傾向)(その気なし)
	更新:(人物::佐竹義重.仕官傾向)(その気なし)
	更新:(人物::最上義光.仕官傾向)(その気なし)
	更新:(人物::安井道頓.仕官傾向)(その気なし)
	更新:(人物::大久保長安.仕官傾向)(その気なし)

	更新:(人物::金森長近.外出禁止フラグ)(真)
	更新:(人物::堀尾吉晴.外出禁止フラグ)(真)
	更新:(人物::蜂須賀小六.外出禁止フラグ)(真)
	更新:(人物::豊臣秀長.外出禁止フラグ)(真)
	更新:(人物::安井道頓.外出禁止フラグ)(真)
	更新:(人物::大久保長安.外出禁止フラグ)(真)
	更新:(人物::伊達稙宗.外出禁止フラグ)(真)

	更新:(イベントフラグ::能力上昇済)(不成立)

//以下２行はデバッグ用
	//更新:(人物::佐竹義重.武士勲功)(7990)
	//更新:(城::小田.規模)(15)
}//分岐:(真)
分岐:(偽){
}//分岐:(偽)
}//スクリプト
}//イベント


}//チャプター