太閤立志伝５イベントソース
//
//主人公以外の武将が自主的に修行をするイベントです
//修行を行うのは大名家に仕えている武将のみです
//デフォルトでは毎月５人ずつ判定が行われます
//技能レベルが上がる際に対応する技能札を入手できます
//武将の能力によって技能習得に限界があります(主命で修行をさせた時の限界に基づいています)
//このイベントを作成するにあたって「長期修行」及び「長期修行千階堂ver」を参考にさせていただきました
//
//※このイベントの導入には千階堂ツールが必要です
//
チャプター:{

イベント:武将修行{
	属性:何度でも
	発生契機:毎月処理の最後絶対
	発生条件:{
		調査:(イベントフラグ::武将修行ＯＮ)==(成立)
		コンテナ設定:(人物,所属勢力タイプ,大名家)
		コンテナ除外:(人物,カテゴリ,イベント人物)
		コンテナ除外:(人物,イベント参加可能,偽)
		コンテナ除外:(人物,病気フラグ,病気)
		コンテナ除外:(人物,人物番号,主人公)
		調査:(コンテナカウンタ)>=(5)
	}
	スクリプト:{
		コンテナソート:(無効,シャッフル,昇順)
		代入ｎ:(0)
		ループ:{
			調査:(ｎ)>=(5)
			ブロック脱出:(真)
			コンテナ選択:(人物Ａ,先頭)
			//文字列設定:(文字列Ｂ)[[失敗]]
			代入ｘ:(Ｒｎｄ)%(14)
			場合別:(変数::ｘ.数値){
				場合分岐:(数値::0){
					//文字列設定:(文字列Ａ)[[足軽]]
					代入ｙ:(人物::人物Ａ.統率力)
					代入ｚ:(人物::人物Ａ.素足軽技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.足軽技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(2)
						分岐:(真){
							代入カードＡ:(カード::堅守)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::奮闘)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(4)
						分岐:(真){
							代入カードＡ:(カード::連携)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::1){
					//文字列設定:(文字列Ａ)[[騎馬]]
					代入ｙ:(人物::人物Ａ.統率力)
					代入ｚ:(人物::人物Ａ.素騎馬技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.騎馬技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::騎馬突撃)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(4)
						分岐:(真){
							代入カードＡ:(カード::赤備突撃)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::2){
					//文字列設定:(文字列Ａ)[[鉄砲]]
					代入ｙ:(人物::人物Ａ.統率力)
					代入ｚ:(人物::人物Ａ.素鉄砲技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.鉄砲技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(2)
						分岐:(真){
							代入カードＡ:(カード::早合)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::組撃ち鉄砲)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							代入カードＡ:(カード::急所撃ち)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(4)
						分岐:(真){
							代入カードＡ:(カード::三段撃ち)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::3){
					//文字列設定:(文字列Ａ)[[水軍]]
					代入ｙ:(人物::人物Ａ.統率力)
					代入ｚ:(人物::人物Ａ.素水軍技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.水軍技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::疾風船)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::4){
					//文字列設定:(文字列Ａ)[[弓術]]
					代入ｙ:(人物::人物Ａ.武力)
					代入ｚ:(人物::人物Ａ.素弓術技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.弓術技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(2)
						分岐:(真){
							代入カードＡ:(カード::火矢)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							代入カードＡ:(カード::剛弓)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::強弓)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(4)
						分岐:(真){
							代入カードＡ:(カード::五月雨撃ち)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::5){
					//文字列設定:(文字列Ａ)[[武芸]]
					代入ｙ:(人物::人物Ａ.武力)
					代入ｚ:(人物::人物Ａ.素武芸技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.武芸技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(2)
						分岐:(真){
							代入カードＡ:(カード::鉄壁)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							調査:(人物::人物Ａ.武具種類)==(1)
							分岐:(真){
								代入カードＡ:(カード::抜け突き)
								文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							}
						}
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::剛力)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							調査:(人物::人物Ａ.武具種類)==(0)
							分岐:(真){
								代入カードＡ:(カード::連続斬り)
								文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							}
						}
						ＡＮＤ調査:{
							調査:(ｚ)==(4)
							調査:(人物::人物Ａ.武具種類)==(0)
						}
						分岐:(真){
							代入カードＡ:(カード::当て身)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::6){
					//文字列設定:(文字列Ａ)[[軍学]]
					代入ｙ:(人物::人物Ａ.知謀)
					代入ｚ:(人物::人物Ａ.素軍学技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.軍学技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(2)
						分岐:(真){
							代入カードＡ:(カード::熱湯)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::回復)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(4)
						分岐:(真){
							代入カードＡ:(カード::伏兵)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							代入カードＡ:(カード::神速)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::7){
					//文字列設定:(文字列Ａ)[[忍術]]
					代入ｙ:(人物::人物Ａ.武力)
					代入ｚ:(人物::人物Ａ.素忍術技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.忍術技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(2)
						分岐:(真){
							代入カードＡ:(カード::二連苦無)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::陥穽)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							代入カードＡ:(カード::半月)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::8){
					//文字列設定:(文字列Ａ)[[建築]]
					代入ｙ:(人物::人物Ａ.政務)
					代入ｚ:(人物::人物Ａ.素建築技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.建築技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(2)
						分岐:(真){
							代入カードＡ:(カード::力攻め)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::火攻め)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::9){
					//文字列設定:(文字列Ａ)[[開墾]]
					代入ｙ:(人物::人物Ａ.政務)
					代入ｚ:(人物::人物Ａ.素開墾技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.開墾技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
					}
				}
				場合分岐:(数値::10){
					//文字列設定:(文字列Ａ)[[鉱山]]
					代入ｙ:(人物::人物Ａ.政務)
					代入ｚ:(人物::人物Ａ.素鉱山技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.鉱山技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(4)
						分岐:(真){
							代入カードＡ:(カード::落石)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::11){
					//文字列設定:(文字列Ａ)[[算術]]
					代入ｙ:(人物::人物Ａ.政務)
					代入ｚ:(人物::人物Ａ.素算術技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.算術技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::宴会)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							代入カードＡ:(カード::銭投げ)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(4)
						分岐:(真){
							代入カードＡ:(カード::引き込み)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							代入カードＡ:(カード::袖の下)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
				場合分岐:(数値::12){
					//文字列設定:(文字列Ａ)[[礼法]]
					代入ｙ:(人物::人物Ａ.魅力)
					代入ｚ:(人物::人物Ａ.素礼法技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.礼法技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
					}
				}
				場合分岐:(数値::13){
					//文字列設定:(文字列Ａ)[[弁舌]]
					代入ｙ:(人物::人物Ａ.知謀)
					代入ｚ:(人物::人物Ａ.素弁舌技能)
					ＯＲ調査:{
						ＡＮＤ調査:{
							調査:(ｙ)>=(40)
							調査:(ｚ)<(1)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(50)
							調査:(ｚ)<(2)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(60)
							調査:(ｚ)<(3)
						}
						ＡＮＤ調査:{
							調査:(ｙ)>=(70)
							調査:(ｚ)<(4)
						}
					}
					分岐:(真){
						代入ｚ:(ｚ)+(1)
						更新:(人物::人物Ａ.弁舌技能)(ｚ)
						//文字列設定:(文字列Ｂ)[[成功]]
						調査:(ｚ)==(2)
						分岐:(真){
							代入カードＡ:(カード::罵詈雑言)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(3)
						分岐:(真){
							代入カードＡ:(カード::挑発)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
							代入カードＡ:(カード::鼓舞)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
						調査:(ｚ)==(4)
						分岐:(真){
							代入カードＡ:(カード::恫喝)
							文字列設定:(Ｅｍｐｔｙ)[[＠千＠更新＠人物：：人物Ａ。所持カード＠カードＡ＠1]]
						}
					}
				}
			}
			//代入大名家Ａ:(人物::人物Ａ.所属大名家)
			//ＳＥスタート:(忍者報告)
			//会話:(忍者,主人公)[[<大名家Ａ>の<人物Ａ>が\n<文字列Ａ>の修行に<文字列Ｂ>しました]]
			代入ｎ:(ｎ)+(1)
			コンテナ選抜:(削る,1)
		}//ループ〆
	}
}

イベント:武将修行イベントの発生{
	属性:一度だけ
	発生契機:ゲームスタート時
	発生条件:{
	}
	スクリプト:{
		ナレーション可否選択::[[武将修行イベントを発生させますか？]]
		分岐:(可){
			更新:(イベントフラグ::武将修行ＯＮ)(成立)
		}
	}
}

}