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

//交易と米詐欺防止ということで、月ごとの入場を回数で制限したもの
//「変装」札か、「当主」になるか、「剣聖」などの最高称号などで、発動しなくできます。
//「商工人脈」は回数がカウントされにくくなる程度。
//結構、ゆるめの制限になってると思いますが、多少ゲームの難易度あげれます。
//
//・座に関しては、「最後に入った拠点の座」もしくは「仕事依頼を受けた座」は制限に達しても入れます。
//「身分」や「名声・悪名」で入場できる回数が増加します。
//京の町は、座の回数がカウントされやすい町になってます。
//
//・米屋は主命等を受けている場合のみ回数制限が発動します。

チャプター:{

イベント:交易と米詐欺制限{
属性:何度でも
発生契機:室内画面表示後(無効,無効)
発生条件:{
	代入ｆ:(主人公.名声)
	条件ブロック:(主人公.悪名)>(主人公.名声){
		代入ｆ:(主人公.悪名)
	}
	代入拠点Ａ:(状況::拠点)
	代入ａ:(Ｚｅｒｏ)
	代入ｂ:(イベントフラグ::交易制限用００)*(1)
	代入ａ:(ａ)+(ｂ)
	代入ｂ:(イベントフラグ::交易制限用０１)*(2)
	代入ａ:(ａ)+(ｂ)
	代入ｂ:(イベントフラグ::交易制限用０２)*(4)
	代入ａ:(ａ)+(ｂ)
	代入ｂ:(イベントフラグ::交易制限用０３)*(8)
	代入ａ:(ａ)+(ｂ)
	代入ｂ:(イベントフラグ::交易制限用０４)*(16)
	代入ａ:(ａ)+(ｂ)
	代入ｂ:(イベントフラグ::交易制限用０５)*(32)
	代入ａ:(ａ)+(ｂ)
	代入拠点Ｂ:(ａ)+(179)

	調査:(拠点Ａ.所在地方)!=(海外)
	調査:(拠点Ａ.拠点種類)==(町)
	調査:(カード::変装.所持フラグ)==(持っていない)
	調査:(カード::剣聖.所持フラグ)==(持っていない)
	調査:(カード::槍天下一.所持フラグ)==(持っていない)
	調査:(カード::苦無天下一.所持フラグ)==(持っていない)
	調査:(カード::鎖鎌天下一.所持フラグ)==(持っていない)
	調査:(カード::鉄砲天下一.所持フラグ)==(持っていない)
	調査:(カード::弓天下一.所持フラグ)==(持っていない)
	調査:(カード::軍神.所持フラグ)==(持っていない)
	調査:(カード::茶聖.所持フラグ)==(持っていない)
	調査:(カード::縦横家.所持フラグ)==(持っていない)
	調査:(カード::賢侯.所持フラグ)==(持っていない)
	調査:(カード::天下一鍛冶.所持フラグ)==(持っていない)
	調査:(カード::神医.所持フラグ)==(持っていない)
//	調査:(カード::究極商人.所持フラグ)==(持っていない)
	調査:(カード::天下無双.所持フラグ)==(持っていない)
	調査:(カード::天下一博徒.所持フラグ)==(持っていない)
	ＯＲ調査:{
		ＡＮＤ調査:{
			調査:(拠点Ａ)!=(拠点Ｂ)
			調査:(ＭＰ主人)==(座の親父)
			調査:(主人公.身分)!=(大名)
			調査:(主人公.身分)!=(支配人)
			調査:(主人公.身分)!=(当主)
			調査:(主人公.身分)!=(頭)
			調査:(主人公.身分)!=(頭領)
			調査:(ｆ)<(96)
		}
		ＡＮＤ調査:{
			調査:(ＭＰ主人)==(米屋の主人)
			調査:(人物::主人公.主命状態)!=(終了)
			調査:(人物::主人公.主命状態)!=(主命なし)
			ＯＲ調査:{
				調査:(人物::主人公.実行主命)==(1)
				調査:(人物::主人公.実行主命)==(6)
				調査:(人物::主人公.実行主命)==(33)
				調査:(人物::主人公.実行主命)==(64)
				調査:(人物::主人公.実行主命)==(95)
				調査:(人物::主人公.実行主命)==(96)
			}
		}
	}
}//発生条件
スクリプト:{

代入ｇ:(0)

代入ａ:(Ｚｅｒｏ)
代入ｂ:(イベントフラグ::交易制限００)*(1)
代入ａ:(ａ)+(ｂ)
代入ｂ:(イベントフラグ::交易制限０１)*(2)
代入ａ:(ａ)+(ｂ)
代入ｂ:(イベントフラグ::交易制限０２)*(4)
代入ｃ:(ａ)+(ｂ)

代入ａ:(Ｚｅｒｏ)
代入ｂ:(イベントフラグ::米詐欺制限００)*(1)
代入ａ:(ａ)+(ｂ)
代入ｂ:(イベントフラグ::米詐欺制限０１)*(2)
代入ｄ:(ａ)+(ｂ)

調査:(ＭＰ主人)==(座の親父)
分岐:(真){
	ＯＲ調査:{
		ＡＮＤ調査:{
			調査:(ｃ)>(1)
			調査:(ｆ)<(16)
			調査:(主人公.所属勢力タイプ)==(浪人)
			調査:(人物::主人公.自宅隣接仕事場)==(無効)
		}
		ＡＮＤ調査:{
			調査:(ｃ)>(2)
			調査:(ｆ)<(31)
			調査:(人物::主人公.自宅隣接仕事場)!=(道場)
			ＯＲ調査:{
				調査:(主人公.所属勢力タイプ)==(浪人)
				調査:(主人公.身分)==(足軽組頭)
			}
		}
		ＡＮＤ調査:{
			調査:(ｃ)>(3)
			調査:(ｆ)<(45)
			ＯＲ調査:{
				調査:(主人公.所属勢力タイプ)==(浪人)
				調査:(主人公.身分)==(足軽組頭)
				調査:(主人公.身分)==(足軽大将)
				調査:(主人公.身分)==(下忍)
				調査:(主人公.身分)==(水夫)
			}
		}
		ＡＮＤ調査:{
			調査:(ｃ)>(4)
			調査:(ｆ)<(58)
			ＯＲ調査:{
				調査:(主人公.所属勢力タイプ)==(浪人)
				調査:(主人公.身分)==(足軽組頭)
				調査:(主人公.身分)==(足軽大将)
				調査:(主人公.身分)==(下忍)
				調査:(主人公.身分)==(水夫)
				調査:(主人公.身分)==(侍大将)
				調査:(主人公.身分)==(見習い)
				調査:(主人公.身分)==(中忍)
				調査:(主人公.身分)==(水夫頭)
			}
		}
		ＡＮＤ調査:{
			調査:(ｃ)>(5)
			調査:(ｆ)<(70)
			調査:(主人公.身分)!=(城主)
			調査:(主人公.身分)!=(国主)
			調査:(主人公.身分)!=(番頭)
			調査:(主人公.身分)!=(元締)
			調査:(主人公.身分)!=(船大将)
		}
		ＡＮＤ調査:{
			調査:(ｃ)>(6)
			調査:(ｆ)<(81)
		}
	}
	分岐:(真){
		会話:(ＭＰ主人,主人公)[[申し訳ございませんが\n今月は座が終わってしまいました\nまた来月お越し下さい]]
		代入ｇ:(1)
	}
	分岐:(偽){
		ＯＲ調査:{
			ＡＮＤ調査:{
				調査:(主人公.実行仕事)<(6)
				調査:(主人公.仕事依頼地)==(拠点Ａ)
			}
			ＡＮＤ調査:{
				ＯＲ調査:{
					調査:(主人公.所属勢力タイプ)==(商家)
					調査:(カード::商工人脈.所持フラグ)==(持っている)
				}
				調査:(Ｒｎｄ１００)<(50)
			}
			ＡＮＤ調査:{
				ＯＲ調査:{
					調査:(主人公.実行仕事)==(0)
					調査:(主人公.実行仕事)==(2)
					調査:(主人公.実行仕事)==(5)
					調査:(主人公.実行仕事)==(13)
					調査:(主人公.実行仕事)==(14)
				}
				調査:(人物::主人公.仕事状態)!=(終了)
				調査:(人物::主人公.仕事状態)!=(仕事なし)
				調査:(カード::商工人脈.所持フラグ)!=(持っている)
				調査:(主人公.所属勢力タイプ)!=(商家)
				調査:(Ｒｎｄ１００)<(25)
			}
			ＡＮＤ調査:{
				調査:(主人公.所属勢力タイプ)!=(商家)
				調査:(カード::商工人脈.所持フラグ)!=(持っている)
				調査:(Ｒｎｄ１００)<(10)
			}
		}
		ブロック脱出:(真)
		代入ｃ:(ｃ)+(1)
	}
}

調査:(ＭＰ主人)==(米屋の主人)
分岐:(真){
	調査:(ｄ)>(2)
	分岐:(真){
		会話:(ＭＰ主人,主人公)[[申し訳ございませんが\n今月の米取引は終了致しました\nまた来月お越し下さい]]
		代入ｇ:(1)
	}
	分岐:(偽){
		ＯＲ調査:{
			ＡＮＤ調査:{
				ＯＲ調査:{
					調査:(主人公.所属勢力タイプ)==(商家)
					調査:(カード::商工人脈.所持フラグ)==(持っている)
				}
				調査:(Ｒｎｄ１００)<(50)
			}
			ＡＮＤ調査:{
				調査:(主人公.所属勢力タイプ)!=(商家)
				調査:(カード::商工人脈.所持フラグ)!=(持っている)
				調査:(Ｒｎｄ１００)<(25)
			}
		}
		ブロック脱出:(真)
		代入ｄ:(ｄ)+(1)
		調査:(ｄ)>(2)
		ブロック脱出:(偽)
		会話:(ＭＰ主人,主人公)[[いらっしゃい\n今月の米取引はこれで最後っぽいよ！]]
	}
}

ＯＲ調査:{
	ＡＮＤ調査:{
		調査:(Ｒｎｄ１００)<(70)
		調査:(発生拠点)==(京の町)
	}
	ＡＮＤ調査:{
		調査:(Ｒｎｄ１００)<(20)
		調査:(主人公.実行仕事)<(6)
		調査:(主人公.仕事依頼地)==(拠点Ａ)
	}
}
調査:(ＭＰ主人)==(座の親父)
分岐:(真){
	代入ｃ:(ｃ)+(1)
}

調査:(ｇ)==(0)
調査:(ＭＰ主人)==(座の親父)
分岐:(真){
	代入ａ:(拠点Ａ)-(179)
	代入ｂ:(ａ)%(2)
	更新:(イベントフラグ::交易制限用００)(ｂ)
	代入ａ:(ａ)/(2)
	代入ｂ:(ａ)%(2)
	更新:(イベントフラグ::交易制限用０１)(ｂ)
	代入ａ:(ａ)/(2)
	代入ｂ:(ａ)%(2)
	更新:(イベントフラグ::交易制限用０２)(ｂ)
	代入ａ:(ａ)/(2)
	代入ｂ:(ａ)%(2)
	更新:(イベントフラグ::交易制限用０３)(ｂ)
	代入ａ:(ａ)/(2)
	代入ｂ:(ａ)%(2)
	更新:(イベントフラグ::交易制限用０４)(ｂ)
	代入ａ:(ａ)/(2)
	代入ｂ:(ａ)%(2)
	更新:(イベントフラグ::交易制限用０５)(ｂ)
	ＯＲ調査:{
		ＡＮＤ調査:{
			調査:(ｃ)>(1)
			調査:(ｆ)<(16)
			調査:(主人公.所属勢力タイプ)==(浪人)
			調査:(人物::主人公.自宅隣接仕事場)==(無効)
		}
		ＡＮＤ調査:{
			調査:(ｃ)>(2)
			調査:(ｆ)<(31)
			調査:(人物::主人公.自宅隣接仕事場)!=(道場)
			ＯＲ調査:{
				調査:(主人公.所属勢力タイプ)==(浪人)
				調査:(主人公.身分)==(足軽組頭)
			}
		}
		ＡＮＤ調査:{
			調査:(ｃ)>(3)
			調査:(ｆ)<(45)
			ＯＲ調査:{
				調査:(主人公.所属勢力タイプ)==(浪人)
				調査:(主人公.身分)==(足軽組頭)
				調査:(主人公.身分)==(足軽大将)
				調査:(主人公.身分)==(下忍)
				調査:(主人公.身分)==(水夫)
			}
		}
		ＡＮＤ調査:{
			調査:(ｃ)>(4)
			調査:(ｆ)<(58)
			ＯＲ調査:{
				調査:(主人公.所属勢力タイプ)==(浪人)
				調査:(主人公.身分)==(足軽組頭)
				調査:(主人公.身分)==(足軽大将)
				調査:(主人公.身分)==(下忍)
				調査:(主人公.身分)==(水夫)
				調査:(主人公.身分)==(侍大将)
				調査:(主人公.身分)==(見習い)
				調査:(主人公.身分)==(中忍)
				調査:(主人公.身分)==(水夫頭)
			}
		}
		ＡＮＤ調査:{
			調査:(ｃ)>(5)
			調査:(ｆ)<(70)
			調査:(主人公.身分)!=(城主)
			調査:(主人公.身分)!=(国主)
			調査:(主人公.身分)!=(番頭)
			調査:(主人公.身分)!=(元締)
			調査:(主人公.身分)!=(船大将)
		}
		ＡＮＤ調査:{
			調査:(ｃ)>(6)
			調査:(ｆ)<(81)
		}
	}
	分岐:(真){
		調査:(主人公.実行仕事)<(6)
		分岐:(真){
			代入拠点Ａ:(人物::主人公.仕事依頼地)
			代入ａ:(拠点Ａ)-(179)
			代入ｂ:(ａ)%(2)
			更新:(イベントフラグ::交易制限用００)(ｂ)
			代入ａ:(ａ)/(2)
			代入ｂ:(ａ)%(2)
			更新:(イベントフラグ::交易制限用０１)(ｂ)
			代入ａ:(ａ)/(2)
			代入ｂ:(ａ)%(2)
			更新:(イベントフラグ::交易制限用０２)(ｂ)
			代入ａ:(ａ)/(2)
			代入ｂ:(ａ)%(2)
			更新:(イベントフラグ::交易制限用０３)(ｂ)
			代入ａ:(ａ)/(2)
			代入ｂ:(ａ)%(2)
			更新:(イベントフラグ::交易制限用０４)(ｂ)
			代入ａ:(ａ)/(2)
			代入ｂ:(ａ)%(2)
			更新:(イベントフラグ::交易制限用０５)(ｂ)
		}
		会話:(ＭＰ主人,主人公)[[いらっしゃい\n今月の座は<拠点Ａ>以外じゃ\n終わったらしいよ！]]
	}
}
調査:(ｃ)>(7)
分岐:(真){
	代入ｃ:(7)
}
調査:(ｄ)>(3)
分岐:(真){
	代入ｄ:(3)
}

代入ａ:(ｃ)
代入ｂ:(ａ)%(2)
更新:(イベントフラグ::交易制限００)(ｂ)
代入ａ:(ａ)/(2)
代入ｂ:(ａ)%(2)
更新:(イベントフラグ::交易制限０１)(ｂ)
代入ａ:(ａ)/(2)
代入ｂ:(ａ)%(2)
更新:(イベントフラグ::交易制限０２)(ｂ)

代入ａ:(ｄ)
代入ｂ:(ａ)%(2)
更新:(イベントフラグ::米詐欺制限００)(ｂ)
代入ａ:(ａ)/(2)
代入ｂ:(ａ)%(2)
更新:(イベントフラグ::米詐欺制限０１)(ｂ)

調査:(ｇ)==(0)
ブロック脱出:(真)
外に出す:

//ナレーション:[[<ｃ>と<ｄ>]]
}
}

イベント:交易と米詐欺制限・初期化{
属性:何度でも
発生契機:毎月処理の最後絶対
発生条件:{
}//発生条件
スクリプト:{
	更新:(イベントフラグ::交易制限００)(0)
	更新:(イベントフラグ::交易制限０１)(0)
	更新:(イベントフラグ::交易制限０２)(0)
	更新:(イベントフラグ::米詐欺制限００)(0)
	更新:(イベントフラグ::米詐欺制限０１)(0)
	更新:(イベントフラグ::交易制限用００)(0)
	更新:(イベントフラグ::交易制限用０１)(0)
	更新:(イベントフラグ::交易制限用０２)(0)
	更新:(イベントフラグ::交易制限用０３)(0)
	更新:(イベントフラグ::交易制限用０４)(0)
	更新:(イベントフラグ::交易制限用０５)(0)
}
}

}//チャプ