太閤立志伝５イベントソース
//
//主人公の身分が大名・国主・城主・頭・元締・頭領・船大将の時、
//進入拠点（里・砦）の兵・物資を半分強奪できる
//刺客・支配勢力攻撃への報復用
//（対象勢力でなくても可能なので悪用もできます）
//１月に１度実行可能。例によって月をまたぐ作業をした翌月は実行不能。→実行可能に
//（フラグクリアの発生契機を「毎月処理の最後絶対」に変更）
//

チャプター:{

イベント:里強奪{
属性:何度でも
発生契機:拠点内画面表示後(無効)
発生条件:{
調査:(拠点::発生拠点.拠点タイプ)==(里)
ＯＲ調査:{
調査:(人物::主人公.身分)==(大名)
調査:(人物::主人公.身分)==(城主)
調査:(人物::主人公.身分)==(国主)
調査:(人物::主人公.身分)==(頭)
調査:(人物::主人公.身分)==(元締)
調査:(人物::主人公.身分)==(頭領)
調査:(人物::主人公.身分)==(船大将)
}//ＯＲ調査
調査:(イベントフラグ::里強奪フラグ)==(不成立)
//調査:(イベントフラグ::里砦強奪イベント)==(成立)
}//発生条件
スクリプト:{
条件ブロック:(人物::主人公.所属勢力タイプ)==(大名家){
代入大名家Ａ:(大名家::主人公大名家)
代入城Ａ:(拠点::主人公拠点)
代入ｘ:(1)//＝１：大名家、＝２：忍者衆、＝３：海賊衆
}
条件ブロック:(人物::主人公.所属勢力タイプ)==(忍者衆){
代入忍者衆Ａ:(忍者衆::主人公忍者衆)
代入大名家Ａ:(忍者衆::忍者衆Ａ.支持大名家)
代入里Ａ:(拠点::主人公拠点)
代入ｘ:(2)
}
条件ブロック:(人物::主人公.所属勢力タイプ)==(海賊衆){
代入海賊衆Ａ:(海賊衆::主人公海賊衆)
代入大名家Ａ:(海賊衆::海賊衆Ａ.支持大名家)
代入砦Ａ:(拠点::主人公拠点)
代入ｘ:(3)
}
代入里Ｂ:(拠点::発生拠点)
代入忍者衆Ｂ:(里::里Ｂ.所属忍者衆)
調査:(大名家::大名家Ａ.外交同盟(忍者衆Ｂ))!=(支配)
分岐:(真){
	ナレーション選択:[[強奪を実行しますか]]
	選択:[[実行する]][[実行しない]]
	分岐:([[実行する]]){
		調査:(里::里Ｂ.軍資金)<(1000)
		分岐:(真){
			代入ａ:(里::里Ｂ.軍資金)
		}
		分岐:(偽){
			代入ａ:(里::里Ｂ.軍資金)/(2)
		}
		条件ブロック:(ｘ)==(1){
			代入ｂ:(城::城Ａ.軍資金)+(ａ)
			代入ｃ:(里::里Ｂ.軍資金)-(ａ)
			更新:(城::城Ａ.軍資金)(ｂ)
			更新:(里::里Ｂ.軍資金)(ｃ)
		}
		条件ブロック:(ｘ)==(2){
			代入ｂ:(里::里Ａ.軍資金)+(ａ)
			代入ｃ:(里::里Ｂ.軍資金)-(ａ)
			更新:(里::里Ａ.軍資金)(ｂ)
			更新:(里::里Ｂ.軍資金)(ｃ)
		}
		条件ブロック:(ｘ)==(3){
			代入ｂ:(砦::砦Ａ.軍資金)+(ａ)
			代入ｃ:(里::里Ｂ.軍資金)-(ａ)
			更新:(砦::砦Ａ.軍資金)(ｂ)
			更新:(里::里Ｂ.軍資金)(ｃ)
		}
		ナレーション:[[<里Ｂ>の軍資金は大幅に低下しました]]
		調査:(里::里Ｂ.兵糧)<(1000)
		分岐:(真){
			代入ａ:(里::里Ｂ.兵糧)
		}
		分岐:(偽){
			代入ａ:(里::里Ｂ.兵糧)/(2)
		}
		条件ブロック:(ｘ)==(1){
			代入ｂ:(城::城Ａ.兵糧)+(ａ)
			代入ｃ:(里::里Ｂ.兵糧)-(ａ)
			更新:(城::城Ａ.兵糧)(ｂ)
			更新:(里::里Ｂ.兵糧)(ｃ)
		}
		条件ブロック:(ｘ)==(2){
			代入ｂ:(里::里Ａ.兵糧)+(ａ)
			代入ｃ:(里::里Ｂ.兵糧)-(ａ)
			更新:(里::里Ａ.兵糧)(ｂ)
			更新:(里::里Ｂ.兵糧)(ｃ)
		}
		条件ブロック:(ｘ)==(3){
			代入ｂ:(砦::砦Ａ.兵糧)+(ａ)
			代入ｃ:(里::里Ｂ.兵糧)-(ａ)
			更新:(砦::砦Ａ.兵糧)(ｂ)
			更新:(里::里Ｂ.兵糧)(ｃ)
		}
		ナレーション:[[<里Ｂ>の兵糧は大幅に低下しました]]
		代入ａ:(里::里Ｂ.兵士数)/(2)
		条件ブロック:(ｘ)==(1){
			代入ｙ:(0)//ループ脱出フラグ
			コンテナ設定:(忍者衆,存在,真)
			コンテナ絞り込み:(忍者衆,外交同盟(大名家Ａ),従属)
			調査:(コンテナカウンタ)>(0)
			分岐:(真){
				コンテナソート:(忍者衆,支配力,昇順)
				コンテナ複写:(退避)
				ループ:{
					コンテナ選択:(忍者衆Ａ,先頭)
					分岐:(偽){
						コンテナ複写:(復帰)
						コンテナ選択:(忍者衆Ａ,先頭)
					}
					コンテナ選抜:(削る,1)
					ひとりごと:[[この兵を<忍者衆Ａ>に譲渡いたすか]]
					選択:[[決定]][[他を選択]][[取りやめる]]
					分岐:([[決定]]){
						代入里Ａ:(忍者衆::忍者衆Ａ.本拠)
						代入ｂ:(里::里Ａ.兵士数)+(ａ)
						調査:(ｂ)>(50000)
						分岐:(真){
							代入ｂ:(50000)
						}
						代入ｃ:(里::里Ｂ.兵士数)-(ａ)
						更新:(里::里Ａ.兵士数)(ｂ)
						更新:(里::里Ｂ.兵士数)(ｃ)
						ナレーション:[[強奪した兵士は<忍者衆Ａ>に移籍しました]]
						ＳＥスタート:(成功音)
						代入ｙ:(1)
					}//分岐:([[決定]])
					分岐:([[他を選択]]){
						代入ｙ:(0)
					}//分岐:([[他を選択]])
					分岐:([[取りやめる]]){
						代入ｃ:(里::里Ｂ.兵士数)-(ａ)
						更新:(里::里Ｂ.兵士数)(ｃ)
						ナレーション:[[強奪した兵士は解放されました]]
						ＳＥスタート:(失敗音)
						代入ｙ:(1)
					}//分岐:([[取りやめる]])
					調査:(ｙ)==(1)
					ブロック脱出:(真)
				}//ループ
			}//分岐:(真)
			分岐:(偽){
				代入ｃ:(里::里Ｂ.兵士数)-(ａ)
				更新:(里::里Ｂ.兵士数)(ｃ)
				ナレーション:[[強奪した兵士は解放されました]]
				ＳＥスタート:(失敗音)
			}//分岐:(偽)
		}//条件ブロック:(ｘ)==(1)
		条件ブロック:(ｘ)==(2){
			代入ｂ:(里::里Ａ.兵士数)+(ａ)
			調査:(ｂ)>(50000)
			分岐:(真){
				代入ｂ:(50000)
			}
			代入ｃ:(里::里Ｂ.兵士数)-(ａ)
			更新:(里::里Ａ.兵士数)(ｂ)
			更新:(里::里Ｂ.兵士数)(ｃ)
			ナレーション:[[強奪した兵士は<忍者衆Ａ>に移籍しました]]
		}
		条件ブロック:(ｘ)==(3){
			代入ｃ:(里::里Ｂ.兵士数)-(ａ)
			更新:(里::里Ｂ.兵士数)(ｃ)
			ナレーション:[[強奪した兵士は解放されました]]
		}
		ナレーション:[[<里Ｂ>の兵士数は大幅に低下しました]]
		更新:(イベントフラグ::里強奪フラグ)(成立)
	}//分岐:([[実行する]])
	分岐:([[実行しない]]){
		ひとりごと:[[・・・やめておこう]]
		更新:(イベントフラグ::里強奪フラグ)(成立)
	}//分岐:([[実行しない]])
}//分岐:(真)
}//スクリプト
}//イベント

イベント:砦強奪{
属性:何度でも
発生契機:拠点内画面表示後(無効)
発生条件:{
調査:(拠点::発生拠点.拠点タイプ)==(砦)
ＯＲ調査:{
調査:(人物::主人公.身分)==(大名)
調査:(人物::主人公.身分)==(城主)
調査:(人物::主人公.身分)==(国主)
調査:(人物::主人公.身分)==(頭)
調査:(人物::主人公.身分)==(元締)
調査:(人物::主人公.身分)==(頭領)
調査:(人物::主人公.身分)==(船大将)
}//ＯＲ調査
調査:(イベントフラグ::砦強奪フラグ)==(不成立)
//調査:(イベントフラグ::里砦強奪イベント)==(成立)
}//発生条件
スクリプト:{
条件ブロック:(人物::主人公.所属勢力タイプ)==(大名家){
代入大名家Ａ:(大名家::主人公大名家)
代入城Ａ:(拠点::主人公拠点)
代入ｘ:(1)//＝１：大名家、＝２：忍者衆、＝３：海賊衆
}
条件ブロック:(人物::主人公.所属勢力タイプ)==(忍者衆){
代入忍者衆Ａ:(忍者衆::主人公忍者衆)
代入大名家Ａ:(忍者衆::忍者衆Ａ.支持大名家)
代入里Ａ:(拠点::主人公拠点)
代入ｘ:(2)
}
条件ブロック:(人物::主人公.所属勢力タイプ)==(海賊衆){
代入海賊衆Ａ:(海賊衆::主人公海賊衆)
代入大名家Ａ:(海賊衆::海賊衆Ａ.支持大名家)
代入砦Ａ:(拠点::主人公拠点)
代入ｘ:(3)
}
代入砦Ｂ:(拠点::発生拠点)
代入海賊衆Ｂ:(砦::砦Ｂ.所属海賊衆)
調査:(大名家::大名家Ａ.外交同盟(海賊衆Ｂ))!=(支配)
分岐:(真){
	ナレーション選択:[[強奪を実行しますか]]
	選択:[[実行する]][[実行しない]]
	分岐:([[実行する]]){
		調査:(砦::砦Ｂ.軍資金)<(1000)
		分岐:(真){
			代入ａ:(砦::砦Ｂ.軍資金)
		}
		分岐:(偽){
			代入ａ:(砦::砦Ｂ.軍資金)/(2)
		}
		条件ブロック:(ｘ)==(1){
			代入ｂ:(城::城Ａ.軍資金)+(ａ)
			代入ｃ:(砦::砦Ｂ.軍資金)-(ａ)
			更新:(城::城Ａ.軍資金)(ｂ)
			更新:(砦::砦Ｂ.軍資金)(ｃ)
		}
		条件ブロック:(ｘ)==(2){
			代入ｂ:(里::里Ａ.軍資金)+(ａ)
			代入ｃ:(砦::砦Ｂ.軍資金)-(ａ)
			更新:(里::里Ａ.軍資金)(ｂ)
			更新:(砦::砦Ｂ.軍資金)(ｃ)
		}
		条件ブロック:(ｘ)==(3){
			代入ｂ:(砦::砦Ａ.軍資金)+(ａ)
			代入ｃ:(砦::砦Ｂ.軍資金)-(ａ)
			更新:(砦::砦Ａ.軍資金)(ｂ)
			更新:(砦::砦Ｂ.軍資金)(ｃ)
		}
		ナレーション:[[<砦Ｂ>の軍資金は大幅に低下しました]]
		調査:(砦::砦Ｂ.兵糧)<(1000)
		分岐:(真){
			代入ａ:(砦::砦Ｂ.兵糧)
		}
		分岐:(偽){
			代入ａ:(砦::砦Ｂ.兵糧)/(2)
		}
		条件ブロック:(ｘ)==(1){
			代入ｂ:(城::城Ａ.兵糧)+(ａ)
			代入ｃ:(砦::砦Ｂ.兵糧)-(ａ)
			更新:(城::城Ａ.兵糧)(ｂ)
			更新:(砦::砦Ｂ.兵糧)(ｃ)
		}
		条件ブロック:(ｘ)==(2){
			代入ｂ:(里::里Ａ.兵糧)+(ａ)
			代入ｃ:(砦::砦Ｂ.兵糧)-(ａ)
			更新:(里::里Ａ.兵糧)(ｂ)
			更新:(砦::砦Ｂ.兵糧)(ｃ)
		}
		条件ブロック:(ｘ)==(3){
			代入ｂ:(砦::砦Ａ.兵糧)+(ａ)
			代入ｃ:(砦::砦Ｂ.兵糧)-(ａ)
			更新:(砦::砦Ａ.兵糧)(ｂ)
			更新:(砦::砦Ｂ.兵糧)(ｃ)
		}
		ナレーション:[[<砦Ｂ>の兵糧は大幅に低下しました]]
		代入ａ:(砦::砦Ｂ.所有船舶数)/(2)
		調査:(砦::砦Ｂ.大型船舶数)<(10)
		分岐:(真){
			代入ｂ:(砦::砦Ｂ.大型船舶数)
		}
		分岐:(偽){
			代入ｂ:(砦::砦Ｂ.大型船舶数)/(2)
		}
		調査:(砦::砦Ｂ.鉄甲船数)<(10)
		分岐:(真){
			代入ｃ:(砦::砦Ｂ.鉄甲船数)
		}
		分岐:(偽){
			代入ｃ:(砦::砦Ｂ.鉄甲船数)/(2)
		}
		条件ブロック:(ｘ)==(1){
			代入ｙ:(0)//ループ脱出フラグ
			コンテナ設定:(海賊衆,存在,真)
			コンテナ絞り込み:(海賊衆,外交同盟(大名家Ａ),従属)
			調査:(コンテナカウンタ)>(0)
			分岐:(真){
				コンテナソート:(海賊衆,支配力,昇順)
				コンテナ複写:(退避)
				ループ:{
					コンテナ選択:(海賊衆Ａ,先頭)
					分岐:(偽){
						コンテナ複写:(復帰)
						コンテナ選択:(海賊衆Ａ,先頭)
					}
					コンテナ選抜:(削る,1)
					ひとりごと:[[この船を<海賊衆Ａ>に譲渡いたすか]]
					選択:[[決定]][[他を選択]][[取りやめる]]
					分岐:([[決定]]){
						代入砦Ａ:(海賊衆::海賊衆Ａ.本拠)
						代入ｄ:(砦::砦Ａ.所有船舶数)+(ａ)
						調査:(ｄ)>(5000)
						分岐:(真){
							代入ｄ:(5000)
						}
						代入ｅ:(砦::砦Ｂ.所有船舶数)-(ａ)
						更新:(砦::砦Ａ.所有船舶数)(ｄ)
						更新:(砦::砦Ｂ.所有船舶数)(ｅ)
						代入ｄ:(砦::砦Ａ.大型船舶数)+(ｂ)
						調査:(ｄ)>(500)
						分岐:(真){
							代入ｄ:(500)
						}
						代入ｅ:(砦::砦Ｂ.大型船舶数)-(ｂ)
						更新:(砦::砦Ａ.大型船舶数)(ｄ)
						更新:(砦::砦Ｂ.大型船舶数)(ｅ)
						代入ｄ:(砦::砦Ａ.鉄甲船数)+(ｃ)
						調査:(ｄ)>(500)
						分岐:(真){
							代入ｄ:(500)
						}
						代入ｅ:(砦::砦Ｂ.鉄甲船数)-(ｃ)
						更新:(砦::砦Ａ.鉄甲船数)(ｄ)
						更新:(砦::砦Ｂ.鉄甲船数)(ｅ)
						ナレーション:[[強奪した船は<海賊衆Ａ>に譲渡しました]]
						ＳＥスタート:(成功音)
						代入ｙ:(1)
					}//分岐:([[決定]])
					分岐:([[他を選択]]){
						代入ｙ:(0)
					}//分岐:([[他を選択]])
					分岐:([[取りやめる]]){
						代入ｅ:(砦::砦Ｂ.所有船舶数)-(ａ)
						更新:(砦::砦Ｂ.所有船舶数)(ｅ)
						代入ｅ:(砦::砦Ｂ.大型船舶数)-(ｂ)
						更新:(砦::砦Ｂ.大型船舶数)(ｅ)
						代入ｅ:(砦::砦Ｂ.鉄甲船数)-(ｃ)
						更新:(砦::砦Ｂ.鉄甲船数)(ｅ)
						ナレーション:[[強奪した船は破棄されました]]
						ＳＥスタート:(失敗音)
						代入ｙ:(1)
					}//分岐:([[取りやめる]])
					調査:(ｙ)==(1)
					ブロック脱出:(真)
				}//ループ
			}//分岐:(真)
			分岐:(偽){
				代入ｅ:(砦::砦Ｂ.所有船舶数)-(ａ)
				更新:(砦::砦Ｂ.所有船舶数)(ｅ)
				代入ｅ:(砦::砦Ｂ.大型船舶数)-(ｂ)
				更新:(砦::砦Ｂ.大型船舶数)(ｅ)
				代入ｅ:(砦::砦Ｂ.鉄甲船数)-(ｃ)
				更新:(砦::砦Ｂ.鉄甲船数)(ｅ)
				ナレーション:[[強奪した船は破棄されました]]
				ＳＥスタート:(失敗音)
			}
		}//条件ブロック:(ｘ)==(1)
		条件ブロック:(ｘ)==(2){
			代入ｅ:(砦::砦Ｂ.所有船舶数)-(ａ)
			更新:(砦::砦Ｂ.所有船舶数)(ｅ)
			代入ｅ:(砦::砦Ｂ.大型船舶数)-(ｂ)
			更新:(砦::砦Ｂ.大型船舶数)(ｅ)
			代入ｅ:(砦::砦Ｂ.鉄甲船数)-(ｃ)
			更新:(砦::砦Ｂ.鉄甲船数)(ｅ)
			ナレーション:[[強奪した船は破棄されました]]
		}
		条件ブロック:(ｘ)==(3){
			代入ｄ:(砦::砦Ａ.所有船舶数)+(ａ)
			調査:(ｄ)>(5000)
			分岐:(真){
				代入ｄ:(5000)
			}
			代入ｅ:(砦::砦Ｂ.所有船舶数)-(ａ)
			更新:(砦::砦Ａ.所有船舶数)(ｄ)
			更新:(砦::砦Ｂ.所有船舶数)(ｅ)
			代入ｄ:(砦::砦Ａ.大型船舶数)+(ｂ)
			調査:(ｄ)>(500)
			分岐:(真){
				代入ｄ:(500)
			}
			代入ｅ:(砦::砦Ｂ.大型船舶数)-(ｂ)
			更新:(砦::砦Ａ.大型船舶数)(ｄ)
			更新:(砦::砦Ｂ.大型船舶数)(ｅ)
			代入ｄ:(砦::砦Ａ.鉄甲船数)+(ｃ)
			調査:(ｄ)>(500)
			分岐:(真){
				代入ｄ:(500)
			}
			代入ｅ:(砦::砦Ｂ.鉄甲船数)-(ｃ)
			更新:(砦::砦Ａ.鉄甲船数)(ｄ)
			更新:(砦::砦Ｂ.鉄甲船数)(ｅ)
			ナレーション:[[強奪した船は<海賊衆Ａ>に配備しました]]
		}
		ナレーション:[[<砦Ｂ>の船は大幅に低下しました]]
		更新:(イベントフラグ::砦強奪フラグ)(成立)
	}//分岐:([[実行する]])
	分岐:([[実行しない]]){
		ひとりごと:[[・・・やめておこう]]
		更新:(イベントフラグ::砦強奪フラグ)(成立)
	}//分岐:([[実行しない]])
}//分岐:(真)
}//スクリプト
}//イベント

イベント:里強奪フラグクリア{
属性:何度でも
発生契機:毎月処理の最後絶対
発生条件:{
調査:(イベントフラグ::里強奪フラグ)==(成立)
}//発生条件
スクリプト:{
更新:(イベントフラグ::里強奪フラグ)(不成立)
}//スクリプト
}//イベント

イベント:砦強奪フラグクリア{
属性:何度でも
発生契機:毎月処理の最後絶対
発生条件:{
調査:(イベントフラグ::砦強奪フラグ)==(成立)
}//発生条件
スクリプト:{
更新:(イベントフラグ::砦強奪フラグ)(不成立)
}//スクリプト
}//イベント

イベント:里砦強奪初期化{
属性:一度だけ
発生契機:ゲームスタート時
発生条件:{
}//発生条件
スクリプト:{
更新:(イベントフラグ::里強奪フラグ)(不成立)
更新:(イベントフラグ::砦強奪フラグ)(不成立)
}//スクリプト
}//イベント

}//チャプター