太閤立志伝５イベントソース //■戦国事情-名品競売 //version:2.0 //2005.09.01 // //http://tukasa.sakura.ne.jp/tr5/data/93.txt //を勝手に追加・改変しました。 // //改変者：みやおか // // //■概要 //・町でオークションが行われます //・主人公の所持品以外のアイテムが競売に掛けられます //・誰かの所有物でもランダムで競売に出されます // //■主な改変点 //・アイテム価値ごとに分けて一度に３ラウンド開催（価値0〜2、3〜4、5〜7） //・強気の高額入札と、弱気の堅実入札を選べます //・目安となる落札価格が表示されます //・NPCが連続で入札します // //■発生条件 //・町画面表示時に、町の規模に応じて開催されます（デフォルトで「規模」％） //・開催後は翌月にならないと開催されません // //■入札ロジック //・NPCとプレイヤーで交互に入札を繰り返します //・NPCとプレイヤーともに入札が無かった場合に終了します //・アイテムの価値に応じてNPCの入札ターンが増えます。（１〜７） //・NPCは人物タイプごとに所持金を仮定します（町民は低め。武将は勲功値が基準） //・入札価格がNPCの所持金以上ならあきらめます //・所持金以内の場合、想定小売価格を基準に入札価格が適正かどうかを判断 //　「入札価格／想定小売価格」の割合に応じてあきらめます //　（割合が50%ならおよそ50%の確率であきらめます） //・さらに勝負気配という数値をNPCのあきらめ度に加算します //　（主人公が高額入札するとNPCがあきらめやすくなります） // //要するに、 //・価値が高いものほどNPCの競り合いが激しく、早期に終了しません //・入札額が想定小売価格に達するとほぼあきらめます //・高額入札するとNPCのあきらめ度に10〜60%程度加算されます //　上手くいけば半額ぐらいでも落札できます // //■落札後の処理 //・価値５以上で、落札者が武将なら所有者変更 //・価値４以下で、落札者がプレイヤーなら所有数増加 // //■設定（100行目あたり） //・司会者を変更できます（デフォルトで南蛮商人） //・想定小売価格を定価の何倍にできるか決められます（デフォルトで10倍） チャプター:{ イベント:戦国事情-名品競売{ 属性:何度でも 発生契機:拠点内画面表示後(無効) 発生条件:{ //月一回だけ開催。毎月フラグをリセット 調査:(イベントフラグ::戦国事情-名品競売-開催済みフラグ)==(不成立) //発生拠点 調査:(拠点::発生拠点.拠点タイプ)==(町) //発生確率 // 最大30%*30% = 9% 調査:(Ｒｎｄ１００)<(拠点::発生拠点.規模) // 調査:(Ｒｎｄ１００)<(拠点::発生拠点.規模) } スクリプト:{ //----------------------------------------- //変数初期化 代入ａ:(0) //定価(*0.1貫) 代入ｂ:(0) //現在価格(貫) 代入ｃ:(0) //落札見込み額(貫) 代入ｄ:(0) //勝負気配度（高めるほど、ＮＰＣが入札を控えて落札しやすくなる） 代入ｅ:(0) //ラウンド数 代入ｆ:(0) //プレイヤーリタイヤフラグ 代入ｇ:(0) //NPCターン数 代入ｈ:(10) //想定小売価格（ａ*ｈ） 代入人物Ａ:(無効) //最高額入札者 代入人物Ｂ:(南蛮商人) //司会者 コンテナ設定:(アイテム,無効,無効) コンテナ選択:(アイテムＡ,先頭) //競売アイテム //汎用一時変数（後方文字から使う） 代入ｘ:(0) 代入ｙ:(0) 代入ｚ:(0) 文字列設定:(文字列Ｅ)[[]] 代入人物Ｅ:(無効) コンテナ選択:(アイテムＥ,先頭) //----------------------------------------- //お好み設定 // 代入人物Ｂ:(ねね) //司会者人物 代入ｈ:(10) //想定小売価格（ａ*ｈ） //----------------------------------------- //競売に参加しようとしまいと、出品候補品がなかろうと、フラグは立つ 更新:(イベントフラグ::戦国事情-名品競売-開催済みフラグ)(成立) //----------------------------------------- //イントロ // ＳＥスタート:(雑踏) ＳＥスタート:(お囃子（商人司）) 会話:(主人公,町民男)[[{おや}、\n何の騒ぎ{であろう}か？]] 会話:(町民女,主人公)[[天下に名立たる名品が\n競売にかけられるの{です}よ]] 会話可否選択:(主人公,町民男)[[ほぅ…\nちょっと寄って{みよう}か]] //----------------------------------------- //参加 分岐:(可){ 会話:(主人公,町民男)[[天下の名品\n手に出来ずとも話の種に\n一目拝むのも悪くない]] 画面効果:(フェードアウト) // ＢＧＭ変更:(メイン商人) ＢＧＭ変更:(メイン商人当主) 画面効果:(フェードイン) // 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[さぁさぁお集まりのみなさん]] 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[さぁさぁお集まりのみなさん\nとくとご覧{あれ}]] //----------------------------------------- // 落札ラウンドのループ 代入ｅ:(0) // ラウンド0~2（進むにつれ高額に） ループ:{ //----------------------------------------- //アイテム準備 コンテナ設定:(アイテム,無効,無効) コンテナ除外:(アイテム,価格,65535) //名無しアイテムは除く //第１ラウンド 条件ブロック:(ｅ)==(0){ //０〜２ // コンテナ除外:(アイテム,価値,0) コンテナ除外:(アイテム,価値,3) コンテナ除外:(アイテム,価値,4) コンテナ除外:(アイテム,価値,5) コンテナ除外:(アイテム,価値,6) コンテナ除外:(アイテム,価値,7) 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[本日の最初の商品はこちら！]] } //第２ラウンド 条件ブロック:(ｅ)==(1){ //３〜４ コンテナ除外:(アイテム,価値,0) コンテナ除外:(アイテム,価値,1) コンテナ除外:(アイテム,価値,2) コンテナ除外:(アイテム,価値,5) コンテナ除外:(アイテム,価値,6) コンテナ除外:(アイテム,価値,7) 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[お次はこちらで御座います！]] } //第３ラウンド 条件ブロック:(ｅ)==(2){ //５〜 コンテナ除外:(アイテム,価値,0) コンテナ除外:(アイテム,価値,1) コンテナ除外:(アイテム,価値,2) コンテナ除外:(アイテム,価値,3) コンテナ除外:(アイテム,価値,4) // コンテナ除外:(アイテム,補正値,0) コンテナ除外:(アイテム,所有者,主人公) //全てのアイテムを主人公が持っていたらイベントが成立しない 調査:(コンテナカウンタ)>(0) //全て主人公が所持している場合 分岐:(偽){ 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[そして本日の目玉は…]] 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[……。]] 会話:(町民男,人物Ｂ)[[どうしたぁ！？]] 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[ううむ、用意がございませぬ]] // ＳＥスタート:(奇声) ＳＥスタート:(恫喝) 会話:(町民男,人物Ｂ)[[なっ、なんだとぅ！？]] ＳＥスタート:(殴られる) 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[ひー！]] ひとりごと:[[（もしかして、{一人称}が全て\n買い占めてしまったの{であろう}か…？）]] 画面効果:(フェードアウト) 強制移動ワープ:(発生拠点) } //通常 分岐:(真){ 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[そして本日の目玉は…\nこれに御座います！]] } } //------------------------------ //アイテム決定 コンテナソート:(無効,シャッフル,降順) コンテナソート:(無効,シャッフル,昇順)//よく混ぜる コンテナ選択:(アイテムＡ,先頭) //アイテム設定 //------------------------------ //ａ:相場価格（単位：0.1貫） //0.1貫単位なので一度10で割る 代入ａ:(アイテム::アイテムＡ.価格)/(10) //希望小売価格に設定 代入ａ:(ａ)*(ｈ) //------------------------------ //ｂ:開始値（単位：貫）（aの20〜40分の1値からスタート） //価格プロパティは0.1貫単位の値なので10以上で割らないとぼったくり価格 代入ｂ:(Ｒｎｄ１００)/(5) //0〜20 代入ｂ:(ｂ)+(20) //20〜40 代入ｂ:(ａ)/(ｂ) //5貫未満なら5貫に。それ以外は最大桁で切り捨て 調査:(5)>(ｂ) 分岐:(真){ 代入ｂ:(5) } 分岐:(偽){ //ｚ：最大桁 代入ｚ:(100000) // 桁 代入ｘ:(ｂ) //桁切捨てループ ループ:{ 代入ｙ:(ｘ)/(ｚ) 代入ｂ:(ｙ)*(ｚ) 調査:(ｙ)!=(0) ブロック脱出:(真) 代入ｚ:(ｚ)/(10) //桁を一つ落とす } } //------------------------------ //ｃ:落札予想価格（ａの数字を最大桁で切り捨てた表示に加工する） 代入ｘ:(0) //開始価格未満なら開始価格*10に。それ以外は最大桁で切り捨て 調査:(ａ)<(ｂ) 分岐:(真){ 代入ｃ:(ｂ)*(10) } 分岐:(偽){ //ｚ：最大桁 代入ｚ:(100000) // 桁 //ｘ：予想価格 //予想は相場価格の90〜115%にする 代入ｘ:(Ｒｎｄ１００)/(4) // 0〜25 代入ｘ:(ｘ)+(90) // 90〜115 代入ｘ:(ａ)*(ｘ) 代入ｘ:(ｘ)/(100) //桁切捨てループ ループ:{ //ｙ：最大桁で割った商 代入ｙ:(ｘ)/(ｚ) 代入ｃ:(ｙ)*(ｚ) //ｚの桁がｘの最大桁であるなら終了 調査:(ｙ)!=(0) ブロック脱出:(真) 代入ｚ:(ｚ)/(10) //桁を一つ落とす } } //------------------------------ //アイテムの呼び方決定 文字列設定:(文字列Ｅ)[[秘蔵の]] 場合別:(アイテム::アイテムＡ.アイテムタイプ){ 場合分岐:(0){//武具 // ＳＥスタート:(鍛冶屋) // ＳＥスタート:(刀同士ぶつかる) // ＳＥスタート:(刀空振り) ＳＥスタート:(槍振り回す) 文字列設定:(文字列Ｅ)[[愛用の]] } 場合分岐:(1){//芸術品 // ＳＥスタート:(木魚) ＳＥスタート:(画面転換音) 文字列設定:(文字列Ｅ)[[秘蔵の]] } 場合分岐:(2){//茶器 // ＳＥスタート:(茶碗に液体を入れる音) // ＳＥスタート:(茶道・箱が開く音) ＳＥスタート:(気合いを溜める) 文字列設定:(文字列Ｅ)[[愛用の]] } 場合分岐:(3){//書物 ＳＥスタート:(能力上昇) 文字列設定:(文字列Ｅ)[[愛読した]] } 場合分岐:(4){//南蛮物 ＳＥスタート:(移動・大型船) 文字列設定:(文字列Ｅ)[[秘蔵の]] } 場合分岐:(5){//財宝 ＳＥスタート:(魅了する) 文字列設定:(文字列Ｅ)[[秘蔵の]] } 場合分岐:(6){//酒 ＳＥスタート:(開門) } 場合分岐:(7){//薬 ＳＥスタート:(回復) } } //------------------------------ //アイテム紹介 スチル表示:(アイテム,アイテムＡ,無効,無効,回転ワイプ) 調査:(アイテム::アイテムＡ.所有者)!=(無効) 分岐:(真){ //前所有者が居る場合 代入人物Ｅ:(アイテム::アイテムＡ.所有者) 会話:(人物Ｅ,人物Ｂ)[[あの{人物Ｅ.姓名}が\n<文字列Ｅ>『<アイテムＡ>』]] } 分岐:(偽){ //所有者が居ない場合 調査:(アイテム::アイテムＡ.価値)>(4) 分岐:(真){ 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[幻と呼ばれた『<アイテムＡ>』]] } 分岐:(偽){ 調査:(アイテム::アイテムＡ.価値)>(2) 分岐:(真){ 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[評判との噂高き『<アイテムＡ>』]] } 分岐:(偽){ 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[一家に一つ、いかがでしょう？\n『<アイテムＡ>』]] } } } ウェイト:(0.1) スチル消去:(フェード) //------------------------------ //本ラウンドに参加するかどうか？ 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[この名品を<ｂ>貫から！\n落札目安はおよそ<ｃ>貫で御座います]] //驚き具合 場合別:(アイテム::アイテムＡ.価値){ 場合分岐:(0){ 文字列設定:(文字列Ｅ)[[]] } 場合分岐:(1){ 文字列設定:(文字列Ｅ)[[]] } 場合分岐:(2){ 文字列設定:(文字列Ｅ)[[ふむ、]] } 場合分岐:(3){ 文字列設定:(文字列Ｅ)[[ほう、]] } 場合分岐:(4){ 文字列設定:(文字列Ｅ)[[むむ、]] } 場合分岐:(5){ 文字列設定:(文字列Ｅ)[[ややっ、]] } 場合分岐:(6){ 文字列設定:(文字列Ｅ)[[おおっ、]] } 場合分岐:(7){ 文字列設定:(文字列Ｅ)[[なんと！]] } } ひとりごと可否選択:[[<文字列Ｅ><アイテムＡ>か…\nこの競売に参加して{みよう}か？]] //------------------------------------------- //ラウンドに参加 分岐:(可){ //人物Ａ：最高額入札者 代入人物Ａ:(無効)//入札無し対策 //人物Ｄ：latest入札者 代入人物Ｄ:(無効) //ｆ:プレイヤーリタイヤフラグ 代入ｆ:(0) ＳＥスタート:(カード勝負めくり) 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[ではまいります\nまずは<ｂ>貫！]] //============================================== //競り合いループ //ｄ：落札終了度 代入ｄ:(0) ループ:{ //============================================== //---ＮＰＣ入札処理 //ｇ：ＮＰＣターン数 //1〜アイテム価値（回） //価値が高いほど入札が多い 代入ｇ:(アイテム::アイテムＡ.価値) 条件ブロック:(ｇ)<(1){ 代入ｇ:(1) } 代入ｇ:(Ｒｎｄ１００)%(ｇ) //入札ターン ループ:{ //------------------------------------------- //入札者タイプ決定 代入ｚ:(Ｒｎｄ１００)%(5) //入札者ランダム選出 代入ｗ:(0) //出せる金額 //町人 条件ブロック:(ｚ)<(2){ コンテナ設定:(人物,カテゴリ,町人) //0〜100 代入ｗ:(Ｒｎｄ１００)*(4) } //イベント人物 条件ブロック:(ｚ)==(2){ コンテナ設定:(人物,カテゴリ,イベント人物) コンテナ除外:(人物,死亡フラグ,死亡) コンテナ除外:(人物,出現フラグ,未出現) //5000〜100000 代入ｗ:(Ｒｎｄ１００)*(950) 代入ｗ:(ｇ)+(5000) } //武将 条件ブロック:(ｚ)==(3){ コンテナ設定:(人物,カテゴリ,武将) コンテナ除外:(人物,死亡フラグ,死亡) コンテナ除外:(人物,出現フラグ,未出現) //0〜10000 代入ｗ:(Ｒｎｄ１００)*(100) //勲功に応じて加算 //0〜60000 代入ｗ:(ｗ)+(人物::人物Ｅ.武士勲功) } //汎用ライバル 条件ブロック:(ｚ)==(4){ コンテナ設定:(人物,カテゴリ,汎用ライバル) コンテナ除外:(人物,死亡フラグ,死亡) コンテナ除外:(人物,出現フラグ,未出現) //0〜10000 代入ｗ:(Ｒｎｄ１００)*(100) //勲功に応じて加算 ///0〜60000 代入ｗ:(ｗ)+(人物::人物Ｅ.商人勲功) 代入ｗ:(ｗ)+(人物::人物Ｅ.忍者勲功) 代入ｗ:(ｗ)+(人物::人物Ｅ.海賊勲功) } //------------------------------------------- //入札者決定 //司会自身は除外 コンテナ除外:(人物,人物番号,人物Ｂ) コンテナソート:(無効,シャッフル,降順) コンテナソート:(無効,シャッフル,昇順)//よく混ぜる コンテナ選択:(人物Ｅ,先頭) //--------------------------------------------- //入札金額決定 代入ｚ:(Ｒｎｄ１００)%(20) //増分率 代入ｚ:(ｚ)+(1) //増分率（0対策//最低でも1%） 代入ｙ:(ｂ)*(ｚ) //増分額 代入ｙ:(ｙ)/(100) //増分額 代入ｘ:(ｂ)+(ｙ) //入札額 //最低でも１〜５貫up 代入ｚ:(Ｒｎｄ１００)%(5) 代入ｘ:(ｘ)+(ｚ) 代入ｘ:(ｘ)+(1) //--------------------------------------------- //入札チェック 代入ｖ:(0) //入札可否フラグ //１．所持金以内の場合 条件ブロック:(ｗ)>=(ｘ){ 代入ｚ:(0) //購入意欲 //現在の落札度 代入ｙ:(ｂ)*(100) 代入ｙ:(ｙ)/(ａ) //現在の価格＝定価額のｃ％ //今回の落札意欲 代入ｚ:(Ｒｎｄ１００)+(50) //50〜150 代入ｚ:(ｚ)-(ｄ) 代入ｚ:(ｚ)-(ｙ) //落札意欲が残っている場合 条件ブロック:(ｚ)>(0){ 代入ｖ:(1) // 入札済みフラグON //入札 代入ｂ:(ｘ) ＳＥスタート:(カード勝負めくり) 会話:(人物Ｅ,人物Ｂ)[[<ｂ>貫！]] 代入人物Ａ:(人物Ｅ) } } //２．入札見送りの場合 条件ブロック:(ｖ)==(0){ //男かどうか 調査:(人物::人物Ｅ.性別)==(0) 分岐:(真){ // ＳＥスタート:(うめき声（男）) 代入ｚ:(Ｒｎｄ１００)%(4) 条件ブロック:(ｚ)==(0){ 会話:(人物Ｅ,人物Ｂ)[[…くっ]] } 条件ブロック:(ｚ)==(1){ 会話:(人物Ｅ,人物Ｂ)[[…うぬぅ]] } 条件ブロック:(ｚ)==(2){ 会話:(人物Ｅ,人物Ｂ)[[ちっ…]] } 条件ブロック:(ｚ)==(3){ 会話:(人物Ｅ,人物Ｂ)[[むうぅ…]] } } 分岐:(偽){ // ＳＥスタート:(うめき声（女）) 代入ｚ:(Ｒｎｄ１００)%(4) 条件ブロック:(ｚ)==(0){ 会話:(人物Ｅ,人物Ｂ)[[うぅ…]] } 条件ブロック:(ｚ)==(1){ 会話:(人物Ｅ,人物Ｂ)[[ああっ…]] } 条件ブロック:(ｚ)==(2){ 会話:(人物Ｅ,人物Ｂ)[[…っ]] } 条件ブロック:(ｚ)==(3){ 会話:(人物Ｅ,人物Ｂ)[[はぁ…]] } } } //ターンチェック 代入ｇ:(ｇ)-(1) 調査:(0)>(ｇ) ブロック脱出:(真)//ＮＰＣターン終了。プレイヤーターンに交代。 } //---ＮＰＣ入札処理終了 //NPCターン終わって最高額主人公なら終了 調査:(人物Ａ)==(主人公) ブロック脱出:(真) //落札フラグ 代入ｚ:(0) //入札者変動無し 調査:(人物Ａ)==(人物Ｄ) 分岐:(真){ //人物無効なら、初回ターンでNPC入札無しの場合 //（まだプレイヤーのターンがあるため続行） 調査:(人物Ａ)==(無効) 分岐:(真){ 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[さあ、どうされました！\n<ｂ>貫ですぞ]] } 分岐:(偽){ //プレイヤーターン後のNPCターンで //誰も入札してなければ落札決定 代入ｚ:(1) } } 分岐:(偽){ //latest入札者更新 代入人物Ｄ:(人物Ａ) 調査:(ｃ)>(ｂ) 分岐:(真){ // 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[はい<ｂ>貫！\nもう一声いかがかな？\n落札目安は<ｃ>貫ですぞ]] 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[はい<ｂ>貫！\nもう一声いかが{であろう}か？\n落札目安は<ｃ>貫です{ぞ}]] } 分岐:(偽){ // 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[はいっ、<ｂ>貫！\nそろそろ決まりそうですぞ]] 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[はいっ、<ｂ>貫！\nそろそろ決まりそうです{ぞ}]] } // ウェイト:(1.0) } //新たな入札者が出ないため落札決定 調査:(ｚ)==(1) ブロック脱出:(真) //--------------------------------------------- //主人公入札処理 //勝負気配リセット 代入ｄ:(0) //ｘ:堅実入札額 代入ｚ:(Ｒｎｄ１００)%(10) //増分率 代入ｚ:(ｚ)+(1) //増分率（0対策//最低でも1%） 代入ｙ:(ｂ)*(ｚ) //増分額 代入ｙ:(ｙ)/(100) //増分額 代入ｘ:(ｂ)+(ｙ) //入札額Ａ //最低でも１〜５貫up 代入ｚ:(Ｒｎｄ１００)%(5) 代入ｘ:(ｘ)+(ｚ) 代入ｘ:(ｘ)+(1) //ｗ:強気入札額 代入ｚ:(Ｒｎｄ１００)%(50) //増分率 代入ｚ:(ｚ)+(100) //増分率（0対策//最低でも1%） 代入ｙ:(ｂ)*(ｚ) //増分額 代入ｙ:(ｙ)/(100) //増分額 代入ｗ:(ｂ)+(ｙ) //入札額Ｂ（高価） //最低でも１〜５貫up 代入ｚ:(Ｒｎｄ１００)%(5) 代入ｗ:(ｗ)+(ｚ) 代入ｗ:(ｗ)+(1) //選択フラグ 代入ｚ:(0) 調査:(人物::主人公.所持金)>(ｗ) 分岐:(真){ 選択:([[強気の<ｗ>貫で入札する]][[堅実に<ｘ>貫で入札する]][[様子を見る]][[諦める]]) 分岐:([[強気の<ｗ>貫で入札する]]){ 代入ｚ:(0) } 分岐:([[堅実に<ｘ>貫で入札する]]){ 代入ｚ:(1) } 分岐:([[様子を見る]]){ 代入ｚ:(2) } 分岐:([[諦める]]){ 代入ｚ:(3) } } 分岐:(偽){ 調査:(人物::主人公.所持金)>(ｘ) 分岐:(真){ 選択:([[堅実に<ｘ>貫で入札する]][[様子を見る]][[諦める]]) 分岐:([[堅実に<ｘ>貫で入札する]]){ 代入ｚ:(1) } 分岐:([[様子を見る]]){ 代入ｚ:(2) } 分岐:([[諦める]]){ 代入ｚ:(3) } } //所持金不足 分岐:(偽){ 代入ｚ:(4) } } //強気で入札 場合別:(ｚ){ 場合分岐:(0){ ひとりごと:[[（勝負{だ}！）]] 代入人物Ａ:(主人公) 代入ｂ:(ｗ) //高額入札なので勝負気配加算 代入ｄ:(Ｒｎｄ１００)/(2) 代入ｄ:(ｄ)+(10) // 10~60 ＳＥスタート:(カード勝負めくり) // ＳＥスタート:(爆発・小) 会話:(人物Ａ,人物Ｂ)[[<ｂ>貫！]] //ランダム町人から歓声 ＳＥスタート:(歓声) コンテナ設定:(人物,カテゴリ,町人) //司会自身は除外 コンテナ除外:(人物,人物番号,人物Ｂ) コンテナソート:(無効,シャッフル,降順) コンテナソート:(無効,シャッフル,昇順)//よく混ぜる コンテナ選択:(人物Ｅ,先頭) 会話:(人物Ｅ,人物Ｂ)[[{おお}！]] 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[なんと<ｂ>貫！\nこれで決まり{であろう}か？]] } //堅実に入札 場合分岐:(1){ 代入人物Ａ:(主人公) 代入ｂ:(ｘ) //勝負気配ランダム加算 代入ｄ:(Ｒｎｄ１００)/(20) //0~5 ＳＥスタート:(カード勝負めくり) 会話:(人物Ａ,人物Ｂ)[[<ｂ>貫！]] 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[はい<ｂ>貫！\n他にはおりませぬか？]] } //様子を見る 場合分岐:(2){ ひとりごと:[[（まだその時では{ない}…）]] } //諦める 場合分岐:(3){ ひとりごと:[[（またの機会にしよう…）]] 代入ｆ:(1) } //所持金不足で入札できない 場合分岐:(4){ 選択:([[様子を見る]][[諦める]]) 分岐:([[様子を見る]]){ ひとりごと:[[（むぅ…）]] } 分岐:([[諦める]]){ ひとりごと:[[（高すぎる{な}…）]] 代入ｆ:(1) } } } //----主人公入札処理終了 //プレイヤーリタイヤ時 調査:(ｆ)==(1) ブロック脱出:(真) //初回ターンで入札無しの場合は落札無しで終了 調査:(人物Ａ)==(無効) ブロック脱出:(真) }//ループＥＮＤ //==================================== //競り後処理 //プレイヤーリタイヤ時 調査:(ｖ)==(1) ブロック脱出:(真) //最高額入札者チェック 調査:(人物Ａ)!=(無効) //入札者あり 分岐:(真){ // ＳＥスタート:(鉄砲連射) ＳＥループ:(鉄砲玉を弾き返す) ナレーション:[[カンカンカン〜！]] ＳＥストップ:(鉄砲玉を弾き返す) 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[はい、それまで！]] 変名会話:(人物Ｂ,人物Ａ,[[司]],[[会]])[[(人物Ａ)殿が\n<ｂ>貫で落札！\nおめでとぉーう　ございまぁーす]] ＳＥスタート:(歓声) //落札者はアイテムを所有できる場合 条件ブロック:(人物::人物Ａ.カテゴリ)==(武将){ //落札者が主人公 調査:(人物Ａ)==(主人公) 分岐:(真){ ＳＥスタート:(勝利ファンファーレ・合戦) ひとりごと:[[やった{ぞ}！]] //支払処理 ループ:{ 調査:(ｂ)<(10000) ブロック脱出:(真) 所持金変更:(-10000) 代入ｂ:(ｂ)-(10000) } ループ:{ 調査:(ｂ)<(1000) ブロック脱出:(真) 所持金変更:(-1000) 代入ｂ:(ｂ)-(1000) } ループ:{ 調査:(ｂ)<(100) ブロック脱出:(真) 所持金変更:(-100) 代入ｂ:(ｂ)-(100) } ループ:{ 調査:(ｂ)<(10) ブロック脱出:(真) 所持金変更:(-10) 代入ｂ:(ｂ)-(10) } ループ:{ 調査:(ｂ)<(1) ブロック脱出:(真) 所持金変更:(-1) 代入ｂ:(ｂ)-(1) } //価値５以上なら所有者変更 調査:(アイテム::アイテムＡ.価値)>(4) 分岐:(真){ 更新:(アイテム::アイテムＡ.所有者)(人物Ａ) 代入ｚ:(人物::人物Ａ.名声)+(1) 更新:(人物::人物Ａ.名声)(ｇ) } //４以下なら所有個数変更 分岐:(偽){ 代入ｚ:(アイテム::アイテムＡ.所有個数)+(1) 更新:(アイテム::アイテムＡ.所有個数)(ｚ) // 代入ｚ:(人物::人物Ａ.名声)+(1) // 更新:(人物::人物Ａ.名声)(ｚ) } } //主人公以外が落札 分岐:(偽){ //価値５以上なら所有者変更 調査:(アイテム::アイテムＡ.価値)>(4) 分岐:(真){ 更新:(アイテム::アイテムＡ.所有者)(人物Ａ) 代入ｚ:(人物::人物Ａ.名声)+(1) 更新:(人物::人物Ａ.名声)(ｚ) } } }//武将落札 //主人公以外が勝ち名乗り 条件ブロック:(人物Ａ)!=(主人公){ 会話:(人物Ａ,人物Ｂ)[[<アイテムＡ>は{一人称}のもの{ぞ}！]] // ＳＥスタート:(敗北ファンファーレ・合戦) // ＳＥスタート:(プレイヤー敗北) // ＳＥスタート:(残念な音) ＳＥスタート:(個人戦敗北) ひとりごと:[[…くっ！]] } } //落札者無し 分岐:(偽){ // ＳＥスタート:(奇声) ＳＥスタート:(暗黒コマンド) 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[落札者無し〜\n残念{です}]] } }//ラウンド参加ＥＮＤ 分岐:(否){ 会話:(主人公,町民男)[[無駄遣いは{ならぬ}{な}…\n今回は断念{しよう}]] }//ラウンド参加しないＥＮＤ //ラウンド数加算 調査:(ｅ)<(2) ブロック脱出:(偽) 代入ｅ:(ｅ)+(1) 画面効果:(ワイプアウト) 画面効果:(ワイプイン) }//ラウンドループEND //全ラウンド終了後 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[本日の競売は\nこれにて終了で御座います]] 変名会話:(人物Ｂ,町民男,[[司]],[[会]])[[またの御参加を\nよろしくお願い致します]] 画面効果:(フェードアウト) 画面効果:(フェードイン) } 分岐:(否){ 会話:(主人公,町民男)[[まぁ{一人称}には\n関係{ない}]] }//通り過ぎるEND }//スクリプトEND }//イベントEND イベント:戦国情事-名品競売-フラグ{ 属性:何度でも 発生契機:毎月処理の最後 //注意：技能師事の後の時間送りの際などの時間送り中は発生しない 発生条件:{ 調査:(イベントフラグ::戦国事情-名品競売-開催済みフラグ)==(成立) } スクリプト:{ 更新:(イベントフラグ::戦国事情-名品競売-開催済みフラグ)(不成立) }//スクリプトEND }//イベントEND }//チャプターEND //頻繁に発生しても鬱陶しいので、極力発生率を下げるようにしたつもりです //司会が不遜な気がします //ほとんどを呼び捨て。 //ＮＰＣ入札者は、現存の全人物が対象です //姫やら公家やら、帝までも入札に参加しています