太閤立志伝５イベントソース

//支配している勢力の本拠地から一定の金額を巻き上げるイベントです。
//海賊が商家や大名を支配下に置く、なんてイベントもあるかもしれませんので、一応どの勢力でも上納金を貰えるようにしたつもりです。
//商人は店の資金を操作できないので矢銭と同額の3000貫で固定です。
//上納金は拠点の軍資金ではなく貯金に入ります。

チャプター:{
イベント:上納金徴収{
属性:何度でも
発生契機:毎月処理の最後絶対
発生条件:{

代入勢力Ｅ:(人物::主人公.所属勢力)
調査:(勢力::勢力Ｅ.当主)==(主人公)
}

スクリプト:{

コンテナ設定:(勢力,存在,真)
ループ:{
コンテナ選択:(勢力Ａ,先頭)
ブロック脱出:(偽)
コンテナ選抜:(削る,1)
代入人物Ａ:(勢力::勢力Ａ.当主)
調査:(勢力::勢力Ａ.外交同盟(主人公))==(従属)

分岐:(真){
	場合別:(人物::人物Ａ.所属勢力タイプ){

	場合分岐:(0){//大名家
	調査:(人物::人物Ａ.所属勢力タイプ)==(大名家)
	代入城Ａ:(人物::人物Ａ.所属拠点)
	代入ａ:(人物::主人公.貯金)
	代入ｂ:(城::城Ａ.軍資金)
	代入ｃ:(ｂ)/(100)//上納金は軍資金の１％
	調査:(ｃ)<=(0)
		分岐:(真){//上納金が０の場合
		会話:(人物Ａ,主人公)[[申し訳{ない}\n今月は資金が不足して{いる}ゆえ\n上納金を納められ{ません}]]
		}//上納不可〆
		分岐:(偽){//上納可
		代入ｙ:(ｂ)-(ｃ)
		代入ｚ:(ａ)+(ｃ)
		更新:(城::城Ａ.軍資金)(ｙ)
		更新:(人物::主人公.貯金)(ｚ)
		調査:(勢力::勢力Ａ.外交感情(主人公勢力))>=(普通)
			分岐:(真){//外交感情が普通以上
			会話:(人物Ａ,主人公)[[今月の上納金は<ｃ>貫{です}\nどうぞ、{お}納め{くれ}]]
			}//普通以上〆
			分岐:(偽){//敵視以下
			会話:(人物Ａ,主人公)[[今月の上納金は<ｃ>貫{です}…\n{お}納め{くれ}…]]
			}//敵視以下〆
		}//上納可〆
	}//大名家〆

	場合分岐:(1){//商家〆
		調査:(人物::人物Ａ.所属勢力タイプ)==(商家)
		代入ａ:(人物::主人公.貯金)
		代入ｃ:(3000)//商家の上納金は3000貫で固定
		代入ｚ:(ａ)+(ｃ)
		更新:(人物::主人公.貯金)(ｚ)
		会話:(人物Ａ,主人公)[[今月の上納金は<ｃ>貫{です}\n{お}納め{くれ}]]
	}//商家〆

	場合分岐:(2){//忍者
	調査:(人物::人物Ａ.所属勢力タイプ)==(忍者衆)
	代入里Ａ:(人物::人物Ａ.所属拠点)
	代入ａ:(人物::主人公.貯金)
	代入ｂ:(里::里Ａ.軍資金)
	代入ｃ:(ｂ)/(100)//上納金は軍資金の１％
	調査:(ｃ)<=(0)
		分岐:(真){//上納金が０の場合
		会話:(人物Ａ,主人公)[[申し訳{ない}\n今月は資金が不足して{いる}ゆえ\n上納金を納められ{ません}]]
		}//上納不可〆
		分岐:(偽){//上納可
		代入ｙ:(ｂ)-(ｃ)
		代入ｚ:(ａ)+(ｃ)
		更新:(里::里Ａ.軍資金)(ｙ)
		更新:(人物::主人公.貯金)(ｚ)
		調査:(勢力::勢力Ａ.外交感情(主人公勢力))>=(普通)
			分岐:(真){//外交感情が普通以上
			会話:(人物Ａ,主人公)[[今月の上納金は<ｃ>貫{です}\nどうぞ、{お}納め{くれ}]]
			}//普通以上〆
			分岐:(偽){//敵視以下
			会話:(人物Ａ,主人公)[[今月の上納金は<ｃ>貫{です}…\n{お}納め{くれ}…]]
			}//敵視以下〆
		}//上納可〆
	}//忍者〆

	場合分岐:(3){//海賊
	調査:(人物::人物Ａ.所属勢力タイプ)==(海賊衆)
	代入砦Ａ:(人物::人物Ａ.所属拠点)
	代入ａ:(人物::主人公.貯金)
	代入ｂ:(砦::砦Ａ.軍資金)
	代入ｃ:(ｂ)/(100)//上納金は軍資金の１％
	調査:(ｃ)<=(0)
		分岐:(真){//上納金が０の場合
		会話:(人物Ａ,主人公)[[申し訳{ない}\n今月は資金が不足して{いる}ゆえ\n上納金を納められ{ません}]]
		}//上納不可〆
		分岐:(偽){//上納可
		代入ｙ:(ｂ)-(ｃ)
		代入ｚ:(ａ)+(ｃ)
		更新:(砦::砦Ａ.軍資金)(ｙ)
		更新:(人物::主人公.貯金)(ｚ)
		調査:(勢力::勢力Ａ.外交感情(主人公勢力))>=(普通)
			分岐:(真){//外交感情が普通以上
			会話:(人物Ａ,主人公)[[今月の上納金は<ｃ>貫{です}\nどうぞ、{お}納め{くれ}]]
			}//普通以上〆
			分岐:(偽){//敵視以下
			会話:(人物Ａ,主人公)[[今月の上納金は<ｃ>貫{です}…\n{お}納め{くれ}…]]
			}//敵視以下〆
		}//上納可〆
	}//海賊〆
	}//場合分岐〆
	}//真〆

	分岐:(偽){
	//従属勢力が存在しない場合は何も起こらない
	}//偽〆

}//ループ〆

}//スクリプト〆
}//イベント〆
}//チャプター〆