太閤立志伝５イベントソース

//ver 1.1.0

//# About
//清洲の町の座に行くと闇商の四朗に裏工作の依頼が出来るイベント

//# Release
//ver 1.1.0
// - release ver

チャプター:{
  イベント:闇商四朗{
    属性:何度でも｜ひかえめ
    発生契機:室内画面表示後（清洲の町,座）
    発生条件:{
      // Wip
    }
    スクリプト:{
      ナレーション:[[闇商四朗を通して裏工作を実施しますか？]]
      選択:[[はい]][[いいえ]]
      分岐:([[はい]]){
        ＳＥスタート:(画面転換音)
        変名会話:(商人,主人公,[[闇商]],[[四朗]])[[{主人公.名前}、本日はどのような取引でしょうか]]
        ループ:{
          選択:[[土地譲渡]][[中止]]
          ブロック脱出:([[中止]])

          分岐:([[土地譲渡]]){
            変名会話:(商人,主人公,[[闇商]],[[四朗]])[[土地を譲渡させるのですね\n対象の拠点を教えてください]]
            コンテナ設定:(拠点,拠点種類,城)
            コンテナ選択:(城Ａ,拠点選択)
            ブロック脱出:(偽)
            代入城Ａ:(城Ａ)
            代入人物Ｂ:(城::城Ａ.城主)
            代入大名家Ｂ:(城::城Ａ.所属大名家)

            変名会話:(商人,主人公,[[闇商]],[[四朗]])[[現在<城Ａ>は<人物Ｂ>が城主ですね\nどの方に譲渡しましょうか？]]

            コンテナ設定:(人物,カテゴリ,武将) 
            コンテナ絞り込み:(人物,身分,大名)
            コンテナ選択:(人物Ｃ,人物選択)
            代入人物Ｃ:(人物Ｃ)
            代入大名家Ｃ:(人物::人物Ｃ.所属大名家)

            代入ａ:(1)

            調査:(人物Ｂ.所属拠点)==(城Ａ)
            分岐:(真){//直轄城でない場合
            	ＯＲ調査:{
            		調査:(人物Ｂ)!=(大名家::大名家Ｂ.当主)//大名居城ではない
            		コンテナ設定:(城,城主,人物Ｂ)
            		調査:(コンテナカウンタ)>(1)//大名直轄城が存在する
            	}
            	分岐:(真){
            		城主解任:(城Ａ)//城主を解任し直轄城にする
            	}//大名居城に城主解任コマンドを使った場合、大名直轄城があれば居城が移る
            	分岐:(偽){
            		代入ａ:(0)//直轄にできない場合
            	}
            }

            調査:(ａ)
            分岐:(真){
            	更新:(城::城Ａ.城主)(人物Ｃ)//直轄城になっていれば城主を更新
             ブロック脱出:(否)
             ナレーション:[[<城Ａ>城は<人物Ｃ>の物となった]]
            }
            分岐:(偽){
             ナレーション:[[<大名家Ｂ>は<大名家Ｃ>に滅ぼされた]]
            	勢力滅亡:(大名家Ｂ,大名家Ｃ)
             ブロック脱出:(否)
            }

          }
        }
          
      }
      分岐:([[いいえ]]){
      }
    }
  }
}