太閤立志伝５イベントソース
//
//スクリプト名：頭領兵糧購入
//
//水軍の頭領は兵糧を買うことが出来ないので
//このスクリプトにより購買が可能になる。
//
//頭領が米屋に入るとイベント発生
//この町の相場の２割り増しで１万石購入できる。
//
//追加：忍者の頭についても可能にする
//


チャプター:{

イベント:頭領兵糧購入{
属性:何度でも
発生契機:室内画面表示後(無効,米屋)
発生条件:{
ＯＲ調査:{
調査:(人物::主人公.身分)==(頭領)
調査:(人物::主人公.身分)==(頭)
}//ＯＲ調査終
}//発生条件終
スクリプト:{
調査:(人物::主人公.身分)==(頭領)
分岐:(真){
	代入砦Ａ:(拠点::主人公拠点)
	代入ｂ:(砦::砦Ａ.軍資金)
	代入ｘ:(0)//ｘ＝０水軍頭領、＝１忍者頭
}//分岐:(真)終
分岐:(偽){
	代入里Ａ:(拠点::主人公拠点)
	代入ｂ:(里::里Ａ.軍資金)
	代入ｘ:(1)
}//分岐:(偽)終
代入町Ａ:(拠点::発生拠点)
代入ａ:(町::町Ａ.米相場)
代入ａ:(ａ)*(600)
代入ａ:(ａ)/(5)
調査:(ｂ)>=(ａ)
分岐:(真){
	会話:(米屋の主人,主人公)[[いらっしゃいませ]]
	会話:(米屋の主人,主人公)[[兵糧米一万石の価格は<ａ>貫になります]]
	会話可否選択:(米屋の主人,主人公)[[兵糧米をお買いになりますか？]]
		分岐:(可){
			会話:(米屋の主人,主人公)[[毎度ありがとうございます]]
			調査:(ｘ)==(0)
			分岐:(真){
				代入ｃ:(ｂ)-(ａ)
				更新:(砦::砦Ａ.軍資金)(ｃ)
				代入ｄ:(砦::砦Ａ.兵糧)+(10000)
				更新:(砦::砦Ａ.兵糧)(ｄ)
			}
			分岐:(偽){
				代入ｃ:(ｂ)-(ａ)
				更新:(里::里Ａ.軍資金)(ｃ)
				代入ｄ:(里::里Ａ.兵糧)+(10000)
				更新:(里::里Ａ.兵糧)(ｄ)
			}
		}
		分岐:(否){
			会話:(主人公,米屋の主人)[[・・・やめておこう]]
		}
}
分岐:(偽){
	ナレーション:[[軍資金が足りません]]
}
}//スクリプト
}//イベント

}//チャプター