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

チャプター:{

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

}//発生条件
スクリプト:{
代入人物Ａ:(人物::ＭＰ主人)
調査:(人物::人物Ａ.外出禁止フラグ)==(真)
分岐:(真){
	文字列設定:(文字列Ａ)[[禁止]]
}//分岐:(真)
分岐:(偽){
	文字列設定:(文字列Ａ)[[可能]]
}//分岐:(偽)
ナレーション選択:[[<人物Ａ>の外出は<文字列Ａ>です。どちらに設定しますか？]]
選択:[[禁止]][[可能]]
分岐:([[禁止]]){
	更新:(人物::人物Ａ.外出禁止フラグ)(真)
}//分岐:([[禁止]])
分岐:([[可能]]){
	更新:(人物::人物Ａ.外出禁止フラグ)(偽)
}//分岐:([[可能]])

条件ブロック:(人物::人物Ａ.仕官傾向)==(武士のみ){
	文字列設定:(文字列Ａ)[[武士のみ]]
}//武士のみ
条件ブロック:(人物::人物Ａ.仕官傾向)==(全職種){
	文字列設定:(文字列Ａ)[[全職種]]
}//全職種
条件ブロック:(人物::人物Ａ.仕官傾向)==(武士以外優先){
	文字列設定:(文字列Ａ)[[武士以外優先]]
}//武士以外優先
条件ブロック:(人物::人物Ａ.仕官傾向)==(その気なし){
	文字列設定:(文字列Ａ)[[その気なし]]
}//その気なし
ナレーション選択:[[<人物Ａ>の仕官傾向は<文字列Ａ>です。どれに設定しますか？]]
選択:[[武士のみ]][[全職種]][[武士以外優先]][[その気なし]]
分岐:([[武士のみ]]){
	更新:(人物::人物Ａ.仕官傾向)(武士のみ)
}//武士のみ
分岐:([[全職種]]){
	更新:(人物::人物Ａ.仕官傾向)(全職種)
}//全職種
分岐:([[武士以外優先]]){
	更新:(人物::人物Ａ.仕官傾向)(武士以外優先)
}//武士以外優先
分岐:([[その気なし]]){
	更新:(人物::人物Ａ.仕官傾向)(その気なし)
}//その気なし
代入ｘ:(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{二人称}の仰る通りに致しましょう]]
			会話:(人物Ｂ,人物Ａ)[[おお、そうか！！]]
			人物登用:(人物Ａ,陪臣,人物Ｂ)
			ナレーション:[[<人物Ａ>は<人物Ｂ>の配下になりました]]
			ＳＥスタート:(成功音)
		}//分岐:(真)
		分岐:(偽){
			会話:(人物Ａ,人物Ｂ)[[申し訳ありませぬが、お断り致す]]
			会話:(人物Ｂ,人物Ａ)[[そうか、残念だ・・・]]
			ナレーション:[[<人物Ａ>は申し出を断った]]
			ＳＥスタート:(失敗音)
		}//分岐:(偽)
	}//分岐:(可)
	分岐:(否){
		ひとりごと:[[・・・止めておこう]]
	}//分岐:(否)
}//分岐:(真)
}//スクリプト
}//イベント

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

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

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

//以下２行はデバッグ用
	//更新:(人物::佐竹義重.武士勲功)(7990)
	//更新:(城::小田.規模)(15)

}//スクリプト
}//イベント


}//チャプター