太閤立志伝５イベントソース
チャプター:{
  イベント:金貸{
    属性:何度でも｜ひかえめ
    発生契機:室内画面表示後(無効,自宅)
    発生条件:{
      調査:(人物::主人公.身分)==(浪人)
      調査:(Ｒｎｄ１００)<(5)
      調査:(人物::主人公.所持金)>=(5000)
      調査:(イベントフラグ::金貸中)==(不成立)
    }
    スクリプト:{
      ＢＧＭ変更:(イベント悲しい)
      ひとりごと:[[誰か来た…。]]
      会話:(農民男,主人公)[[金カセヨ]]
      会話:(主人公,農民男)[[あやしい{な}…]]
      選択:[[壱千貫]][[弐千貫]][[参千貫]][[四千貫]][[五千貫]][[貸さない]]
      分岐:([[壱千貫]]){
        会話:(主人公,農民男)[[イイヨ。]]
        会話:(農民男,主人公)[[ハヤクヨコセ。]]
        ＳＥスタート:(成功音)
        ナレーション:[[壱千貫貸した。]]
        所持金変更:(-1000)
        代入ａ:(1)
      }
      分岐:([[弐千貫]]){
        会話:(主人公,農民男)[[イイヨ。]]
        会話:(農民男,主人公)[[ハヤクヨコセ。]]
        ＳＥスタート:(成功音)
        ナレーション:[[壱弐貫貸した。]]
        所持金変更:(-2000)
        代入ａ:(2)
      }
      分岐:([[参千貫]]){
        会話:(主人公,農民男)[[イイヨ。]]
        会話:(農民男,主人公)[[ハヤクヨコセ。]]
        ＳＥスタート:(成功音)
        ナレーション:[[参千貫貸した。]]
        所持金変更:(-3000)
        代入ａ:(3)
      }
      分岐:([[四千貫]]){
        会話:(主人公,農民男)[[イイヨ。]]
        会話:(農民男,主人公)[[ハヤクヨコセ。]]
        ＳＥスタート:(成功音)
        ナレーション:[[四千貫貸した。]]
        所持金変更:(-4000)
        代入ａ:(4)
      }
      分岐:([[五千貫]]){
        会話:(主人公,農民男)[[イイヨ。]]
        会話:(農民男,主人公)[[ハヤクヨコセ。]]
        ＳＥスタート:(成功音)
        ナレーション:[[五千貫貸した。]]
        所持金変更:(-5000)
        代入ａ:(5)
      }
      分岐:([[貸さない]]){
        会話:(農民男,主人公)[[コノドケチ。]]
        代入ａ:(0)
      }
      調査:(ａ)>=(1)
      分岐:(真){
        更新:(イベントフラグ::金貸中)(成立)





//////////////////////////////////////////////////////
/////////////////フラグに変換する/////////////////////
//////////////////////////////////////////////////////
//        調査:(ａ)>=(8)
//        分岐:(真){
//          代入ａ:(ａ) - (8)
//          更新:(イベントフラグ::金貸２進数Ａ1000)(成立)
//        }
        調査:(ａ)>=(4)
        分岐:(真){
          代入ａ:(ａ) - (4)
          更新:(イベントフラグ::金貸２進数Ａ0100)(成立)
        }
        調査:(ａ)>=(2)
        分岐:(真){
          代入ａ:(ａ) - (2)
          更新:(イベントフラグ::金貸２進数Ａ0010)(成立)
        }
        調査:(ａ)>=(1)
        分岐:(真){
          代入ａ:(ａ) - (1)
          更新:(イベントフラグ::金貸２進数Ａ0001)(成立)
        }
//////////////////////////////////////////////////////
/////////////////フラグに変換する　終わり/////////////
//////////////////////////////////////////////////////
      }
      施設出る:
    }
  }



  イベント:返済{
    属性:何度でも
    発生契機:室内画面表示後(無効,自宅)
    発生条件:{
      調査:(イベントフラグ::金貸中)==(成立)
      調査:(Ｒｎｄ１００)<(3)
    }
    スクリプト:{
//////////////////////////////////////////////////////
///////////////復元する///////////////////////////////
//////////////////////////////////////////////////////
      代入ａ:(0)
      調査:(イベントフラグ::金貸２進数Ａ0001)==(成立)
      分岐:(真){
        代入ａ:(ａ) + (1)
      }
      調査:(イベントフラグ::金貸２進数Ａ0010)==(成立)
      分岐:(真){
        代入ａ:(ａ) + (2)
      }
      調査:(イベントフラグ::金貸２進数Ａ0100)==(成立)
      分岐:(真){
        代入ａ:(ａ) + (4)
      }
//      調査:(イベントフラグ::金貸２進数Ａ1000)==(成立)
//      分岐:(真){
//        代入ａ:(ａ) + (8)
//      }
//////////////////////////////////////////////////////
///////////////復元　終わり///////////////////////////
//////////////////////////////////////////////////////




      ＢＧＭ変更:(イベント悲しい)
      ひとりごと:[[誰か来た…。]]
      会話:(農民男,主人公)[[オカゲ様デ…]]
      会話:(農民男,主人公)[[コンナ貧乏カラ一転…]]
      ＢＧＭ変更:(イベント嬉しい)
      会話:(商人,主人公)[[金持チナッタ]]
      会話:(商人,主人公)[[………]]
      会話:(商人,主人公)[[ダカラ金返シニ来タ]]
      代入ａ:(ａ) * (2)
      ひとりごと:[[<ａ>000貫手に入れた。]]
      ＳＥスタート:(成功音)
      ループ:{
        所持金変更:(1000)
        代入ａ:(ａ) - (1)
        調査:(ａ)<=(0)
        ブロック脱出:(真)
      }
      会話:(主人公,商人)[[{おお}、倍にして返して{もらった}。]]
      更新:(イベントフラグ::金貸中)(不成立)





//////////////////////////////////////////////////////
///////////////０に戻す///////////////////////////////
//////////////////////////////////////////////////////
      更新:(イベントフラグ::金貸２進数Ａ0001)(不成立)
      更新:(イベントフラグ::金貸２進数Ａ0010)(不成立)
      更新:(イベントフラグ::金貸２進数Ａ0100)(不成立)
//      更新:(イベントフラグ::金貸２進数Ａ1000)(不成立)
//////////////////////////////////////////////////////
///////////////０に戻す　終わり///////////////////////
//////////////////////////////////////////////////////

      施設出る:
    }
  }

  イベント:返済不可{
    属性:何度でも
    発生契機:室内画面表示後(無効,自宅)
    発生条件:{
      調査:(イベントフラグ::金貸中)==(成立)
      ＡＮＤ調査:{
        調査:(Ｒｎｄ１００)>(3)
        調査:(Ｒｎｄ１００)<(6)
      }

    }
    スクリプト:{
//////////////////////////////////////////////////////
///////////////復元する///////////////////////////////
//////////////////////////////////////////////////////
      代入ａ:(0)
      調査:(イベントフラグ::金貸２進数Ａ0001)==(成立)
      分岐:(真){
        代入ａ:(ａ) + (1)
      }
      調査:(イベントフラグ::金貸２進数Ａ0010)==(成立)
      分岐:(真){
        代入ａ:(ａ) + (2)
      }
      調査:(イベントフラグ::金貸２進数Ａ0100)==(成立)
      分岐:(真){
        代入ａ:(ａ) + (4)
      }
//      調査:(イベントフラグ::金貸２進数Ａ1000)==(成立)
//      分岐:(真){
//        代入ａ:(ａ) + (8)
//      }
//////////////////////////////////////////////////////
///////////////復元　終わり///////////////////////////
//////////////////////////////////////////////////////




      ＢＧＭ変更:(イベント悲しい)
      ひとりごと:[[誰か来た…。]]
      会話:(農民男,主人公)[[オカゲ様デ…]]
      会話:(農民男,主人公)[[コンナ貧乏カラ一転…]]
      ＢＧＭ変更:(イベント嬉しい)
      会話:(商人,主人公)[[金持チナッタ]]
      会話:(商人,主人公)[[………]]
      ＢＧＭ変更:(イベント悲しい)
      会話:(農民男,主人公)[[デモ失敗シテマタ貧乏…]]
      ＳＥスタート:(失敗音)
      ナレーション:[[お金は返ってこなかった…]]
      会話:(主人公,商人)[[………。]]
      更新:(イベントフラグ::金貸中)(不成立)





//////////////////////////////////////////////////////
///////////////０に戻す///////////////////////////////
//////////////////////////////////////////////////////
      更新:(イベントフラグ::金貸２進数Ａ0001)(不成立)
      更新:(イベントフラグ::金貸２進数Ａ0010)(不成立)
      更新:(イベントフラグ::金貸２進数Ａ0100)(不成立)
//      更新:(イベントフラグ::金貸２進数Ａ1000)(不成立)
//////////////////////////////////////////////////////
///////////////０に戻す　終わり///////////////////////
//////////////////////////////////////////////////////

      施設出る:
    }
  }



}