太閤立志伝５イベントソース
チャプター:{
	イベント:戦国事情-名品競売{
		属性:何度でも
		発生契機:拠点内画面表示後(無効)
		発生条件:{
			調査:(拠点::発生拠点.拠点タイプ)==(町)
			調査:(Ｒｎｄ１００)<(拠点::発生拠点.規模)
			調査:(Ｒｎｄ１００)<(拠点::発生拠点.規模)
			調査:(イベントフラグ::戦国事情-名品競売-開催済みフラグ)==(不成立)
		}
		スクリプト:{
			//競売に参加しようとしまいと、出品候補品がなかろうと、フラグは立つ
			更新:(イベントフラグ::戦国事情-名品競売-開催済みフラグ)(成立)
			
			コンテナ設定:(アイテム,無効,無効)
			コンテナ除外:(アイテム,補正値,0)
			コンテナ除外:(アイテム,所有者,主人公)
			調査:(コンテナカウンタ)>(0) //念のため
			ブロック脱出:(偽)//↑調査結果が偽なら脱出=終了
			//全てのアイテムを主人公が持っていたらイベントが成立しない
				
			ＳＥスタート:(雑踏)
			会話:(主人公,町民男)[[何の騒ぎ{だ}？]]
			会話:(町民女,主人公)[[天下に名立たる名品が\n競売にかけられるの{です}よ]]
			会話:(主人公,町民男)[[ほぅ…]]
			選択:([[寄っていく]][[通り過ぎる]])
			分岐:([[寄っていく]]){
				会話:(主人公,町民男)[[天下の名品\n手に出来ずとも話の種に\n一目拝むのも悪くない]]
				画面効果:(フェードアウト)
				コンテナソート:(無効,シャッフル,降順)
				コンテナソート:(無効,シャッフル,昇順)//よく混ぜる
				画面効果:(フェードイン)
				
				変名会話:(座の親父,町民男,[[司]],[[会]])[[さぁさぁお集まりのみなさん]]
				変名会話:(座の親父,町民男,[[司]],[[会]])[[本日の目玉はこれ！]]
				
				コンテナ選択:(アイテムＡ,先頭)
				場合別:(アイテム::アイテムＡ.アイテムタイプ){
					場合分岐:(0){//武具
						文字列設定:(文字列Ａ)[[愛用の]]
					}
					場合分岐:(1){//芸術品
						文字列設定:(文字列Ａ)[[秘蔵の]]
					}
					場合分岐:(2){//茶器
						文字列設定:(文字列Ａ)[[愛用の]]
					}
					場合分岐:(3){//書物
						文字列設定:(文字列Ａ)[[愛読した]]
					}
					場合分岐:(4){//南蛮物
						文字列設定:(文字列Ａ)[[秘蔵の]]
					}
					場合分岐:(5){//財宝
						文字列設定:(文字列Ａ)[[秘蔵の]]
					}
				}
				
				代入ａ:(アイテム::アイテムＡ.価格)
				調査:(アイテム::アイテムＡ.所有者)!=(無効)
				分岐:(真){
					代入人物Ａ:(アイテム::アイテムＡ.所有者)
					変名会話:(座の親父,人物Ａ,[[司]],[[会]])[[あの{人物Ａ.姓名}が\n<文字列Ａ><アイテムＡ>]]
				}
				分岐:(偽){
					変名会話:(座の親父,人物Ａ,[[司]],[[会]])[[あの幻の<アイテムＡ>]]
				}
				スチル表示:(アイテム,アイテムＡ,無効,無効,回転ワイプ)
				ウェイト:(3.0)
				スチル消去:(フェード)
				代入ｂ:(ａ)/(30)//相場？の3割値からスタート
								//価格プロパティは0.1貫単位の値なので10以上で割らないとぼったくり価格
				変名会話:(座の親父,町民男,[[司]],[[会]])[[この名品を<ｂ>貫から！]]
				
				会話:(主人公,町民男)[[<アイテムＡ>の競売に…]]
				選択:([[参加する]][[参加しない]])
				分岐:([[参加する]]){
					代入人物Ｂ:(座の親父)//入札無し対策
					ループ:{
						//----主人公入札処理
						代入ｄ:(Ｒｎｄ１００)%(20)	//増分率
						代入ｄ:(ｄ)+(1)				//増分率（0対策//最低でも1%）
						代入ｅ:(ｂ)*(ｄ)			//増分額
						代入ｅ:(ｅ)/(100)			//増分額
						代入ｆ:(ｂ)+(ｅ)			//入札額
						
						調査:(人物::主人公.所持金)>(ｆ)
						分岐:(真){
							選択:([[<ｆ>貫で入札する]][[様子を見る]][[諦める]])
							分岐:([[<ｆ>貫で入札する]]){
								ひとりごと:[[（いま{だ}！）]]
								代入人物Ｂ:(主人公)
								
								代入ｂ:(ｆ)
								ＳＥスタート:(カード勝負めくり)
								会話:(人物Ｂ,座の親父)[[<ｂ>貫！]]
								変名会話:(座の親父,町民男,[[司]],[[会]])[[はい<ｂ>貫！\n他いないか？]]
								
								ウェイト:(1.0)
							}//入札
							分岐:([[様子を見る]]){
								ひとりごと:[[（まだその時では{ない}）]]
								
							}//様子見
							分岐:([[諦める]]){
								//ブロック脱出:(真)
								ひとりごと:[[（高すぎる…）]]
								強制移動ワープ:(発生拠点)
							}//諦める
						}//真
						分岐:(偽){//所持金不足で入札できない
							選択:([[様子を見る]][[諦める]])
							分岐:([[様子を見る]]){
								ひとりごと:[[（むぅ…）]]
								
							}//様子見
							分岐:([[諦める]]){
								//ブロック脱出:(真)
								ひとりごと:[[（高すぎる…）]]
								強制移動ワープ:(発生拠点)
							}//諦める
							
						}//偽
						//----主人公入札処理終了
						
						調査:(ａ)<(ｂ)
						ブロック脱出:(真)//定価の10倍相当？になると終了
						
						//---ＮＰＣ入札処理
						代入ｃ:(Ｒｎｄ１００)%(6)	//入札者ランダム選出
						条件ブロック:(ｃ)==(0){//もう一度だけ
							代入ｃ:(Ｒｎｄ１００)%(6)	//入札者ランダム選出
						}
						調査:(ｃ)==(0)
						ブロック脱出:(真)//C=0は入札者がいなくなったという扱い
						
						条件ブロック:(ｃ)==(1){//町人
							コンテナ設定:(人物,カテゴリ,町人)
							コンテナソート:(無効,シャッフル,降順)
							コンテナソート:(無効,シャッフル,昇順)//よく混ぜる
							コンテナ選択:(人物Ｂ,先頭)
						}//町人1end
						条件ブロック:(ｃ)==(2){
							コンテナ設定:(人物,カテゴリ,イベント人物)
							コンテナ除外:(人物,死亡フラグ,死亡)
							コンテナ除外:(人物,出現フラグ,未出現)
							コンテナソート:(無効,シャッフル,降順)
							コンテナソート:(無効,シャッフル,昇順)//よく混ぜる
							コンテナ選択:(人物Ｂ,先頭)
						}//イベント人物end
						条件ブロック:(ｃ)==(3){
							コンテナ設定:(人物,カテゴリ,武将)
							コンテナ除外:(人物,死亡フラグ,死亡)
							コンテナ除外:(人物,出現フラグ,未出現)
							コンテナソート:(無効,シャッフル,降順)
							コンテナソート:(無効,シャッフル,昇順)//よく混ぜる
							コンテナ選択:(人物Ｂ,先頭)
						}//武将end
						条件ブロック:(ｃ)==(4){//町人
							//コンテナ設定:(人物,カテゴリ,町人)
							コンテナソート:(無効,シャッフル,降順)
							コンテナソート:(無効,シャッフル,昇順)//よく混ぜる
							コンテナ選択:(人物Ｂ,先頭)
						}//町人2end
						条件ブロック:(ｃ)==(5){
							コンテナ設定:(人物,カテゴリ,汎用ライバル)
							コンテナ除外:(人物,死亡フラグ,死亡)
							コンテナ除外:(人物,出現フラグ,未出現)
							コンテナソート:(無効,シャッフル,降順)
							コンテナソート:(無効,シャッフル,昇順)//よく混ぜる
							コンテナ選択:(人物Ｂ,先頭)
						}//汎用ライバルend
						
						代入ｄ:(Ｒｎｄ１００)%(20)	//増分率
						代入ｄ:(ｄ)+(1)				//増分率（0対策//最低でも1%）
						代入ｅ:(ｂ)*(ｄ)			//増分額
						代入ｅ:(ｅ)/(100)			//増分額
						代入ｆ:(ｂ)+(ｅ)			//入札額
						
						代入ｂ:(ｆ)
						ＳＥスタート:(カード勝負めくり)
						会話:(人物Ｂ,座の親父)[[<ｂ>貫！]]
						変名会話:(座の親父,町民男,[[司]],[[会]])[[はい<ｂ>貫！\n他いないか？]]
						ウェイト:(1.0)
						//---ＮＰＣ入札処理終了
						
					}//ループＥＮＤ
					
					調査:(人物Ｂ)!=(座の親父)
					分岐:(真){
						ナレーション:[[カンカンカン〜！]]
						変名会話:(座の親父,町民男,[[司]],[[会]])[[はい、それまで{です}]]
						変名会話:(座の親父,人物Ｂ,[[司]],[[会]])[[{人物Ｂ.姓名}が\n<ｂ>貫で落札！]]
						ＳＥスタート:(歓声)
						条件ブロック:(人物::人物Ｂ.カテゴリ)==(武将){
							条件ブロック:(人物Ｂ)==(主人公){
								ひとりごと:[[やった！]]
								//支払処理
								ループ:{
									調査:(ｂ)<(10000)
									ブロック脱出:(真)
									所持金変更:(-10000)
									代入ｂ:(ｂ)-(10000)
								}
								ループ:{
									調査:(ｂ)<(1000)
									ブロック脱出:(真)
									所持金変更:(-1000)
									代入ｂ:(ｂ)-(1000)
								}
								ループ:{
									調査:(ｂ)<(100)
									ブロック脱出:(真)
									所持金変更:(-100)
									代入ｂ:(ｂ)-(100)
								}
								ループ:{
									調査:(ｂ)<(10)
									ブロック脱出:(真)
									所持金変更:(-10)
									代入ｂ:(ｂ)-(10)
								}
								ループ:{
									調査:(ｂ)<(1)
									ブロック脱出:(真)
									所持金変更:(-1)
									代入ｂ:(ｂ)-(1)
								}
								
							}//主人公落札
							更新:(アイテム::アイテムＡ.所有者)(人物Ｂ)
							代入ｇ:(人物::人物Ｂ.名声)+(1)
							更新:(人物::人物Ｂ.名声)(ｇ)
						}//武将落札
					}//真
					分岐:(偽){
						変名会話:(座の親父,町民男,[[司]],[[会]])[[落札者無し〜\n残念{です}]]
					}//偽
					
					変名会話:(座の親父,町民男,[[司]],[[会]])[[本日の競売は\nこれにて終了{です}]]
					変名会話:(座の親父,町民男,[[司]],[[会]])[[またの御参加を]]
					画面効果:(フェードアウト)
					画面効果:(フェードイン)
				}//参加ＥＮＤ
				分岐:([[参加しない]]){
					会話:(主人公,町民男)[[まぁ{一人称}には\n関係{ない}]]
				}//参加しないＥＮＤ
			
			}//寄っていくＥＮＤ
			分岐:([[通り過ぎる]]){
				会話:(主人公,町民男)[[まぁ{一人称}には\n関係{ない}]]
			}//通り過ぎるEND
			
		}//スクリプトEND
	}//イベントEND

	イベント:戦国情事-名品競売-フラグ{
		属性:何度でも
		発生契機:毎月処理の最後
		//注意：技能師事の後の時間送りの際などの時間送り中は発生しない
		発生条件:{
			調査:(イベントフラグ::戦国事情-名品競売-開催済みフラグ)==(成立)
		}
		スクリプト:{
			更新:(イベントフラグ::戦国事情-名品競売-開催済みフラグ)(不成立)
		}//スクリプトEND
	}//イベントEND
	
}//チャプターEND

//頻繁に発生しても鬱陶しいので、極力発生率を下げるようにしたつもりです

//司会が不遜な気がします
//ほとんどを呼び捨て。
//ＮＰＣ入札者は、現存の全人物が対象です
//姫やら公家やら、帝までも入札に参加しています