太閤立志伝５イベントソース
//１行目に「太閤立志伝５イベントソース」と必ず入れる

チャプター:{//チャプターで全てのイベントをくくる
	イベント:忍者を仕官させるぞ{	//イベントの始まり
		属性:何度でも
		発生契機:人物会話時(無効)
		発生条件:{
			調査:(人物::発生人物.所属勢力タイプ)==(忍者衆)
			調査:(人物::発生人物.カテゴリ)==(武将)
			ＯＲ調査:{
				調査:(人物::主人公.身分)==(大名)
				調査:(人物::主人公.身分)==(国主)
				調査:(人物::主人公.身分)==(城主)//俸禄の管理が面倒なので城主以上
			}
			調査:(人物::発生人物.面識フラグ)==(面識あり)
			調査:(Ｒｎｄ１００)<(30)//３０％の確率で発生。
		}
		スクリプト:{//スクリプトの始まり
			代入ａ:(人物::主人公.素弁舌技能)+(人物::主人公.素礼法技能)
			//ひとりごと:[[ａは<ａ>]]//テスト用
			調査:(カード::無の心.所持フラグ)==(持っている)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(カード::徳の心.所持フラグ)==(持っている)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(カード::侘び寂びの心.所持フラグ)==(持っている)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(カード::暗示.所持フラグ)==(持っている)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(人物::主人公.名声)>(50)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(人物::主人公.素知謀)>(90)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(人物::主人公.素忍術技能)>(3)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			代入ｚ:(Ｒｎｄ１００)/(10)
			代入ｙ:(Ｒｎｄ１００)/(10)
			代入ｂ:(人物::主人公.素魅力)/(10)
			代入ａ:(ａ)+(ｂ)+(ｚ)//正否に関わる主人公側の値。
			代入ｃ:(人物::発生人物.忠誠度)/(5)//頭にも忠誠度の値は存在する模様
			代入人物Ａ:(発生人物)
			代入忍者衆Ａ:(人物::人物Ａ.所属忍者衆)
			調査:(人物::人物Ａ.身分)==(頭)
			分岐:(真){
				
				コンテナ設定:(人物,所属忍者衆,忍者衆Ａ)
				コンテナ絞り込み:(人物,カテゴリ,武将)
				コンテナ除外:(人物,死亡フラグ,死亡)
				コンテナ除外:(人物,身分,頭)
				調査:(コンテナカウンタ)==(0)//後継者がいない
				分岐:(真){
					代入ｃ:(ｃ)+(999)//正否に関わるターゲット側の最終値。絶対無理な値に

				}
				分岐:(偽){
					代入ｃ:(ｃ)+(4)+(ｙ)//正否に関わるターゲット側の最終値。
					コンテナソート:(人物,忍者勲功,降順)
					コンテナ選択:(人物Ｂ,先頭)//こいつが次の頭
				}
			}
			分岐:(偽){
				代入ｃ:(ｃ)+(1)+(ｙ)//正否に関わるターゲット側の最終値。
			}

			//ひとりごと:[[ａは<ａ>ｂは<ｂ>ｃは<ｃ>]]//テスト用
			調査:(ａ)>(ｃ)//ａがｃより大きければ
			分岐:(真){
				ＢＧＭ変更:(イベントほんのり)
				会話:(人物Ａ,主人公)[[……]]
				ひとりごと:[[（なん{だ}この微妙な空気は）]]
				ひとりごと:[[（これではまるで“仲間にして欲しそうにこちらを見ている”と言う奴に見えるぞ）]]
				会話:(人物Ａ,主人公)[[どういたした？\nさ、楽にしてゆっくりしていかれよ]]
				ひとりごと:[[うむ、別に緊張などしておらんぞ]]
				ひとりごと選択:[[（部下に誘ってみようか？　）]]
				選択:([[誘う]][[誘わない]])
				分岐:([[誘う]]){
					会話:(主人公,人物Ａ)[[……時に{二人称名前}]]
					会話:(人物Ａ,主人公)[[はっ、何でしょう]]
					ひとりごと:[[いや、その……\nむ、{一人称}に仕えてみぬか？]]
					会話:(人物Ａ,主人公)[[なんと！\n<忍者衆Ａ>に所属する{一人称}を配下にしたいと？]]
					ひとりごと:[[（……読み違えたかな）]]
					ＢＧＭ変更:(イベント決意)
					会話:(人物Ａ,主人公)[[そのお誘いを待っておりましたぞ！]]
					ひとりごと:[[おお、では……]]
					調査:(人物::人物Ａ.身分)==(頭)
					分岐:(真){
						会話:(人物Ａ,主人公)[[<忍者衆Ａ>は<人物Ｂ>に委ねまする]]
						人物解雇:(人物Ｂ,清洲の町,出現済み)
						人物登用:(人物Ｂ,直臣,人物Ａ)
						家督を譲る:(人物Ａ,人物Ｂ)	
					}
					
					代入ｅ:(人物::人物Ａ.忍者勲功)
					更新:(人物::人物Ａ.武士勲功)(ｅ)

					調査:(主人公.身分)==(大名)
					分岐:(真){
						人物解雇:(人物Ａ,清洲の町,出現済み)
						人物登用:(人物Ａ,直臣,主人公)
					}
					分岐:(偽){
						人物解雇:(人物Ａ,清洲の町,出現済み)
						人物登用:(人物Ａ,陪臣,主人公)

					}
					会話:(人物Ａ,主人公)[[{二人称名前}、これからよろしくお願いいたしまする]]
					ナレーション:[[こうして<人物Ａ>は(主人公.名)に仕えることになったのだった]]
					外に出す:
				}
				分岐:([[誘わない]]){
					ひとりごと:[[（よそう。きっと思い過ごし{だ}ろう）]]
					会話:(人物Ａ,主人公)[[？？？]]
				}

			}
			//この条件を満たしていなければ何も起こさずに通常会話に

		}//スクリプトの終わり
	}//イベントの終わり

	イベント:海賊を仕官させるぞ{	//イベントの始まり
		属性:何度でも
		発生契機:人物会話時(無効)
		発生条件:{
			調査:(人物::発生人物.所属勢力タイプ)==(海賊衆)
			調査:(人物::発生人物.カテゴリ)==(武将)
			ＯＲ調査:{
				調査:(人物::主人公.身分)==(大名)
				調査:(人物::主人公.身分)==(国主)
				調査:(人物::主人公.身分)==(城主)//俸禄の管理が面倒なので城主以上
			}
			調査:(人物::発生人物.面識フラグ)==(面識あり)
			調査:(Ｒｎｄ１００)<(25)//２５％の確率で発生。
		}
		スクリプト:{//スクリプトの始まり
			代入ａ:(人物::主人公.素弁舌技能)+(人物::主人公.素礼法技能)
			//ひとりごと:[[ａは<ａ>]]//テスト用
			調査:(カード::無の心.所持フラグ)==(持っている)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(カード::徳の心.所持フラグ)==(持っている)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(カード::侘び寂びの心.所持フラグ)==(持っている)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(カード::暗示.所持フラグ)==(持っている)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(人物::主人公.名声)>(50)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(人物::主人公.素武力)>(90)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(人物::主人公.素統率力)>(90)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			調査:(人物::主人公.素水軍技能)>(3)
			分岐:(真){
				代入ａ:(ａ)+(1)
			}
			代入ｚ:(Ｒｎｄ１００)/(10)
			代入ｙ:(Ｒｎｄ１００)/(10)
			代入ｂ:(人物::主人公.素魅力)/(10)
			代入ａ:(ａ)+(ｂ)+(ｚ)//正否に関わる主人公側の値。
			代入ｃ:(人物::発生人物.忠誠度)/(5)//頭にも忠誠度の値は存在する模様
			代入人物Ａ:(発生人物)
			代入海賊衆Ａ:(人物::人物Ａ.所属海賊衆)
			調査:(人物::人物Ａ.身分)==(頭領)
			分岐:(真){
				
				コンテナ設定:(人物,所属海賊衆,海賊衆Ａ)
				コンテナ絞り込み:(人物,カテゴリ,武将)
				コンテナ除外:(人物,死亡フラグ,死亡)
				コンテナ除外:(人物,身分,頭領)
				調査:(コンテナカウンタ)==(0)//後継者がいない
				分岐:(真){
					代入ｃ:(ｃ)+(999)//正否に関わるターゲット側の最終値。絶対無理な値に

				}
				分岐:(偽){
					代入ｃ:(ｃ)+(4)+(y)//正否に関わるターゲット側の最終値。
					コンテナソート:(人物,海賊勲功,降順)
					コンテナ選択:(人物Ｂ,先頭)//こいつが次の頭
				}
			}
			分岐:(偽){
				代入ｃ:(ｃ)+(1)+(y)//正否に関わるターゲット側の最終値。
			}

			//ひとりごと:[[ａは<ａ>ｂは<ｂ>ｃは<ｃ>]]//テスト用
			調査:(ａ)>(ｃ)//ａがｃより大きければ
			分岐:(真){
				ＢＧＭ変更:(イベントほんのり)
				会話:(人物Ａ,主人公)[[……]]
				ひとりごと:[[（なん{だ}この微妙な空気は）]]
				ひとりごと:[[（これではまるで“仲間にして欲しそうにこちらを見ている”と言う奴に見えるぞ）]]
				会話:(人物Ａ,主人公)[[どういたした？\nさ、楽にしてゆっくりしていかれよ]]
				ひとりごと:[[うむ、別に緊張などしておらんぞ]]
				ひとりごと選択:[[（部下に誘ってみようか？　）]]
				選択:([[誘う]][[誘わない]])
				分岐:([[誘う]]){
					会話:(主人公,人物Ａ)[[……時に{二人称名前}]]
					会話:(人物Ａ,主人公)[[はっ、何でしょう]]
					ひとりごと:[[いや、その……\nむ、{一人称}に仕えてみぬか？]]
					会話:(人物Ａ,主人公)[[なんと！\n<海賊衆Ａ>に所属する{一人称}を配下にしたいと？]]
					ひとりごと:[[（……読み違えたかな）]]
					ＢＧＭ変更:(イベント決意)
					会話:(人物Ａ,主人公)[[そのお誘いを待っておりましたぞ！]]
					ひとりごと:[[おお、では……]]
					調査:(人物::人物Ａ.身分)==(頭領)
					分岐:(真){
						会話:(人物Ａ,主人公)[[<海賊衆Ａ>は<人物Ｂ>に委ねまする]]
						人物解雇:(人物Ｂ,清洲の町,出現済み)
						人物登用:(人物Ｂ,直臣,人物Ａ)
						家督を譲る:(人物Ａ,人物Ｂ)	
					}
					代入ｅ:(人物::人物Ａ.海賊勲功)
					更新:(人物::人物Ａ.武士勲功)(ｅ)
					調査:(主人公.身分)==(大名)
					分岐:(真){
						人物解雇:(人物Ａ,清洲の町,出現済み)
						人物登用:(人物Ａ,直臣,主人公)
					}
					分岐:(偽){
						人物解雇:(人物Ａ,清洲の町,出現済み)
						人物登用:(人物Ａ,陪臣,主人公)

					}
					会話:(人物Ａ,主人公)[[{二人称名前}、これからよろしくお願いいたしまする]]
					ナレーション:[[こうして<人物Ａ>は(主人公.名)に仕えることになったのだった]]
					外に出す:
				}
				分岐:([[誘わない]]){
					ひとりごと:[[（よそう。きっと思い過ごし{だ}ろう）]]
					会話:(人物Ａ,主人公)[[？？？]]
				}

			}
			//この条件を満たしていなければ何も起こさずに通常会話に

		}//スクリプトの終わり
	}//イベントの終わり

}//最後にチャプターの閉じカッコを入れる