太閤立志伝５イベントソース
//////////////////////////////////////////////////////////////////
//■発生条件■
//�@主人公の身分が当主でなく
//�A主人公が主命中でない（城主・国主・元締・船大将を除く）
//�B所持金が7000貫以上（大方針進言のみでも必要）
//で
//�C当主の間に入ると発生
//■結果■
//当主に7000貫（商人以外は兵糧10000石に変換可能）
//を献上すると勲功50がもらえる
//兵糧or軍資金不足解消＆昇進速度加速
//
//追加：武士編で城主・国主の場合、大方針の提言も併せて可能にする
//主人公当主との親密度％を掛けた主人公大名家の支配度が
//＞１０００なら地方統一が
//＞３０００なら天下統一が
//受け入れられる
//////////////////////////////////////////////////////////////////

チャプター:{
イベント:勲功アルバイト武士編{
属性:何度でも｜ひかえめ
発生契機:室内画面表示後(主人公当主拠点,城主の間)
発生条件:{
調査:(人物::主人公.所持金)>=(7000)
ＯＲ調査:{
	ＯＲ調査:{
		調査:(人物::主人公.身分)==(城主)
		調査:(人物::主人公.身分)==(国主)
	}//ＯＲ調査
	ＡＮＤ調査:{
		調査:(人物::主人公.主命状態)==(主命なし)
		ＯＲ調査:{
			調査:(人物::主人公.身分)==(足軽組頭)
			調査:(人物::主人公.身分)==(足軽大将)
			調査:(人物::主人公.身分)==(侍大将)
			調査:(人物::主人公.身分)==(部将)
			調査:(人物::主人公.身分)==(家老)
		}//ＯＲ調査
	}//ＡＮＤ調査
}//ＯＲ調査
}//発生条件
スクリプト:{
代入人物Ａ:(主人公当主)
代入大名家Ａ:(大名家::主人公大名家)
代入城Ａ:(主人公当主拠点)
ひとりごと可否選択:[[軍資金か兵糧を献上して勲功を稼ぐか？]]
分岐:(可){
	ナレーション選択:[[軍資金か兵糧のどちらを選択しますか？]]
	選択:[[軍資金]][[兵糧]]
	分岐:(0){
		文字列設定:(文字列Ａ)[[軍資金]]
		文字列設定:(文字列Ｂ)[[七千貫]]
		代入ａ:(城::城Ａ.軍資金)+(7000)
		更新:(城::城Ａ.軍資金)(ａ)
		代入ｂ:(人物::主人公.所持金)-(7000)
		更新:(人物::主人公.所持金)(ｂ)
	}
	分岐:(1){
		文字列設定:(文字列Ａ)[[兵糧]]
		文字列設定:(文字列Ｂ)[[一万石]]
		代入ａ:(城::城Ａ.兵糧)+(10000)
		更新:(城::城Ａ.兵糧)(ａ)
		代入ｂ:(人物::主人公.所持金)-(7000)
		更新:(人物::主人公.所持金)(ｂ)
	}
	会話:(主人公,人物Ａ)[[この度<文字列Ａ><文字列Ｂ>を献上致したく存ずる]]
	会話:(人物Ａ,主人公)[[大儀である。そちには勲功五十を進ぜよう]]
	会話:(主人公,人物Ａ)[[ははっ！！有難き幸せ！！]]
	代入ｃ:(人物::主人公.武士勲功)+(50)
	更新:(人物::主人公.武士勲功)(ｃ)
	ナレーション:[[武士勲功が５０上がりました]]
	ＳＥスタート:(成功音)
}//分岐(可)
分岐:(否){
	ひとりごと:[[・・・やめておこう]]
	ＳＥスタート:(残念な音)
}//分岐(否)
ＯＲ調査:{
	調査:(人物::主人公.身分)==(城主)
	調査:(人物::主人公.身分)==(国主)
}//ＯＲ調査
分岐:(真){
	条件ブロック:(大名家Ａ.大方針)==(分国統一){
		文字列設定:(文字列Ａ)[[分国統一]]
		文字列設定:(文字列Ｂ)[[地方統一]]
		代入ｘ:(1)//大方針フラグ＝１：分国統一、＝２：地方統一（現状）
		代入ｙ:(1000)//進言が受け入れられる為に必要な支配力
	}
	条件ブロック:(大名家Ａ.大方針)==(地方統一){
		文字列設定:(文字列Ａ)[[地方統一]]
		文字列設定:(文字列Ｂ)[[天下統一]]
		代入ｘ:(2)
		代入ｙ:(3000)
	}
	ＡＮＤ調査:{
		調査:(大名家Ａ.大方針)!=(上洛)
		調査:(大名家Ａ.大方針)!=(無効)
		調査:(大名家Ａ.大方針)!=(天下統一)
	}
	分岐:(真){
		ひとりごと可否選択:[[大殿に<文字列Ｂ>を進言いたすか？]]
		分岐:(可){
			会話:(主人公,人物Ａ)[[大殿に進言致したき儀がござる]]
			会話:(人物Ａ,主人公)[[何じゃ？]]
			会話:(主人公,人物Ａ)[[現在我ら大名家の大方針は\n<文字列Ａ>でござるが]]
			会話:(主人公,人物Ａ)[[力をつけた我等は\nその先を目指すべきと心得まするが\n如何に？]]
			代入ａ:(人物Ａ.親密度)
			代入ｂ:(大名家Ａ.支配力)
			代入ｂ:(ｂ)*(ａ)
			代入ｂ:(ｂ)/(100)
			調査:(ｂ)>(ｙ)
			分岐:(真){
				会話:(人物Ａ,主人公)[[そちの言も一理ある。\nこれより<大名家Ａ>は\n<文字列Ｂ>を目指すこととする]]
				条件ブロック:(ｘ)==(1){
					更新:(大名家Ａ.大方針)(地方統一)
				}
				条件ブロック:(ｘ)==(2){
					更新:(大名家Ａ.大方針)(天下統一)
				}
			}
			分岐:(偽){
				会話:(人物Ａ,主人公)[[そちの言も一理あるが、\n時期尚早と考える]]
				会話:(人物Ａ,主人公)[[よって<文字列Ａ>の大方針は堅持するものとする]]
			}
		}//分岐:(可)
		分岐:(否){
			ひとりごと:[[・・・やめておこう\n]]
		}//分岐:(否)
	}//分岐:(真)
}//分岐:(真)
}//スクリプト
}//イベント

イベント:勲功アルバイト忍者編{
属性:何度でも｜ひかえめ
発生契機:室内画面表示後(主人公当主拠点,忍び屋敷)
発生条件:{
調査:(人物::主人公.所持金)>=(7000)
ＯＲ調査:{
	調査:(人物::主人公.身分)==(元締)
	ＡＮＤ調査:{
		調査:(人物::主人公.主命状態)==(主命なし)
		ＯＲ調査:{
			調査:(人物::主人公.身分)==(下忍)
			調査:(人物::主人公.身分)==(中忍)
			調査:(人物::主人公.身分)==(上忍)
		}//ＯＲ調査
	}//ＡＮＤ調査
}//ＯＲ調査
}//発生条件
スクリプト:{
代入人物Ａ:(主人公当主)
代入里Ａ:(主人公当主拠点)
ひとりごと可否選択:[[軍資金か兵糧を献上して勲功を稼ぐか？]]
分岐:(可){
	ナレーション選択:[[軍資金か兵糧のどちらを選択しますか？]]
	選択:[[軍資金]][[兵糧]]
	分岐:(0){
		文字列設定:(文字列Ａ)[[軍資金]]
		文字列設定:(文字列Ｂ)[[七千貫]]
		代入ａ:(里::里Ａ.軍資金)+(7000)
		更新:(里::里Ａ.軍資金)(ａ)
		代入ｂ:(人物::主人公.所持金)-(7000)
		更新:(人物::主人公.所持金)(ｂ)
	}
	分岐:(1){
		文字列設定:(文字列Ａ)[[兵糧]]
		文字列設定:(文字列Ｂ)[[一万石]]
		代入ａ:(里::里Ａ.兵糧)+(10000)
		更新:(里::里Ａ.兵糧)(ａ)
		代入ｂ:(人物::主人公.所持金)-(7000)
		更新:(人物::主人公.所持金)(ｂ)
	}
	会話:(主人公,人物Ａ)[[この度<文字列Ａ><文字列Ｂ>を献上致したく存ずる]]
	会話:(人物Ａ,主人公)[[大儀である。そちには勲功五十を進ぜよう]]
	会話:(主人公,人物Ａ)[[ははっ！！有難き幸せ！！]]
	代入ｃ:(人物::主人公.忍者勲功)+(50)
	ナレーション:[[忍者勲功が５０上がりました]]
	更新:(人物::主人公.忍者勲功)(ｃ)
	ＳＥスタート:(成功音)
}//分岐(可)
分岐:(否){
	ひとりごと:[[・・・やめておこう]]
	ＳＥスタート:(残念な音)
}//分岐(否)
}//スクリプト
}//イベント

イベント:勲功アルバイト海賊編{
属性:何度でも｜ひかえめ
発生契機:室内画面表示後(主人公当主拠点,海賊屋敷)
発生条件:{
調査:(人物::主人公.所持金)>=(7000)
ＯＲ調査:{
	調査:(人物::主人公.身分)==(船大将)
	ＡＮＤ調査:{
		調査:(人物::主人公.主命状態)==(主命なし)
		ＯＲ調査:{
			調査:(人物::主人公.身分)==(水夫)
			調査:(人物::主人公.身分)==(水夫頭)
			調査:(人物::主人公.身分)==(船頭)
		}//ＯＲ調査
	}//ＡＮＤ調査
}//ＯＲ調査
}//発生条件
スクリプト:{
代入人物Ａ:(主人公当主)
代入砦Ａ:(主人公当主拠点)
ひとりごと可否選択:[[軍資金か兵糧を献上して勲功を稼ぐか？]]
分岐:(可){
	ナレーション選択:[[軍資金か兵糧のどちらを選択しますか？]]
	選択:[[軍資金]][[兵糧]]
	分岐:(0){
		文字列設定:(文字列Ａ)[[軍資金]]
		文字列設定:(文字列Ｂ)[[七千貫]]
		代入ａ:(砦::砦Ａ.軍資金)+(7000)
		更新:(砦::砦Ａ.軍資金)(ａ)
		代入ｂ:(人物::主人公.所持金)-(7000)
		更新:(人物::主人公.所持金)(ｂ)
	}
	分岐:(1){
		文字列設定:(文字列Ａ)[[兵糧]]
		文字列設定:(文字列Ｂ)[[一万石]]
		代入ａ:(砦::砦Ａ.兵糧)+(10000)
		更新:(砦::砦Ａ.兵糧)(ａ)
		代入ｂ:(人物::主人公.所持金)-(7000)
		更新:(人物::主人公.所持金)(ｂ)

	}
	会話:(主人公,人物Ａ)[[この度<文字列Ａ><文字列Ｂ>を献上致したく存ずる]]
	会話:(人物Ａ,主人公)[[大儀である。そちには勲功五十を進ぜよう]]
	会話:(主人公,人物Ａ)[[ははっ！！有難き幸せ！！]]
	代入ｃ:(人物::主人公.海賊勲功)+(50)
	更新:(人物::主人公.海賊勲功)(ｃ)
	ナレーション:[[海賊勲功が５０上がりました]]
	ＳＥスタート:(成功音)
}//分岐(可)
分岐:(否){
	ひとりごと:[[・・・やめておこう]]
	ＳＥスタート:(残念な音)
}//分岐(否)
}//スクリプト
}//イベント

イベント:勲功アルバイト商人編{
属性:何度でも｜ひかえめ
発生契機:室内画面表示後(主人公当主拠点,商家)
発生条件:{
調査:(人物::主人公.主命状態)==(主命なし)
調査:(人物::主人公.所持金)>=(7000)
ＯＲ調査:{
	調査:(人物::主人公.身分)==(見習い)
	調査:(人物::主人公.身分)==(手代)
	調査:(人物::主人公.身分)==(番頭)
	調査:(人物::主人公.身分)==(支配人)
}//ＯＲ調査
}//発生条件
スクリプト:{
代入人物Ａ:(人物::主人公当主)
代入商家Ａ:(商家::主人公商家)
ひとりごと可否選択:[[所持金を献上して勲功を稼ぐか？]]
分岐:(可){
	会話:(主人公,人物Ａ)[[金七千貫を献上致します]]
	会話:(人物Ａ,主人公)[[そうか。それでは勲功五十を進ぜよう]]
	会話:(主人公,人物Ａ)[[有難とう御座います！！]]
	代入ａ:(人物::人物Ａ.所持金)+(7000)
	更新:(人物::人物Ａ.所持金)(ａ)
	代入ｂ:(人物::主人公.所持金)-(7000)
	更新:(人物::主人公.所持金)(ｂ)
	代入ｃ:(人物::主人公.商人勲功)+(50)
	更新:(人物::主人公.商人勲功)(ｃ)
	ナレーション:[[商人勲功が５０上がりました]]
	ＳＥスタート:(成功音)
}//分岐(可)
分岐:(否){
	ひとりごと:[[・・・やめておこう]]
	ＳＥスタート:(残念な音)
}//分岐(否)
}//スクリプト
}//イベント

}//チャプター