太閤立志伝５イベントソース //【真・御用商人】Ver1.04 チャプター:{ イベント:真・御用商人：支援大名家選択{ 属性:何度でも 発生契機:人物会話時(無効) 発生条件:{ 調査:(状況::空き大名家数)>(0) 調査:(状況::場面)==(城主の間) 調査:(イベントフラグ::真・御用商人：支援禁止)==(不成立) 調査:(イベントフラグ::真・御用商人：支援決定)==(不成立) 調査:(イベントフラグ::真・御用商人：支援開始)==(不成立) 調査:(人物::主人公.所属勢力タイプ)==(商家) 調査:(人物::主人公.身分)==(当主) 代入人物Ｅ:(発生人物) 調査:(人物::人物Ｅ.身分)==(大名) 代入ｘ:(人物::人物Ｅ.親密度) 調査:(ｘ)>=(50) 代入ｘ:(ｘ)/(2) 調査:(Ｒｎｄ１００)<(ｘ) 調査:(人物::人物Ｅ.留守フラグ)==(在宅) 調査:(人物::人物Ｅ.病気フラグ)==(健康) 代入勢力Ｅ:(人物::主人公.所属勢力) 代入勢力Ａ:(人物::人物Ｅ.所属勢力) 調査:(勢力::勢力Ｅ.外交同盟(勢力Ａ))!=(同盟なし) 代入大名家Ｅ:(人物::人物Ｅ.所属大名家) コンテナ設定:(人物,所属大名家,大名家Ｅ) コンテナ絞り込み:(人物,出撃フラグ,出撃中) 調査:(コンテナカウンタ)==(0) コンテナ設定:(大名家,存在,真) 調査:(コンテナカウンタ)>(2) }//条件〆 スクリプト:{ 条件ブロック:(カード::究極商人.所持フラグ)==(持っている){ 文字列設定:(文字列Ａ)[[究極商人]] } 条件ブロック:(カード::四海踏破.所持フラグ)==(持っている){ 文字列設定:(文字列Ａ)[[四海踏破]] } 会話:(人物Ｅ,主人公)[[おお！　<勢力Ｅ>ではないか\n来訪、歓迎{いたす}]] 会話:(人物Ｅ,主人公)[[{一人称}に何の用{だ}？]] ひとりごと:[[（<勢力Ａ>には何かと世話になって{いる}\n　何か{ご}恩に報いる方法はないものか…）]] ひとりごと:[[（わが<勢力Ｅ>の力があれば\n　<勢力Ａ>に天下を獲らせることも\n　不可能ではない{であろう}）]] ひとりごと選択:[[（<勢力Ａ>が天下を統べるため\n　その手伝いを{しよう}か？）]] 選択:[[天下統一支援]][[やめる]][[絶対にやることはない]] 分岐:(0){ 代入ｚ:(1) } 分岐:(1){ 代入ｚ:(0) } 分岐:(2){ 代入ｚ:(0) 更新:(イベントフラグ::真・御用商人：支援禁止)(成立) } 調査:(ｚ)==(1) ブロック脱出:(偽) 会話:(主人公,人物Ｅ)[[{二人称名前}\n折り入ってお話が{ある}]] 会話:(人物Ｅ,主人公)[[何{だ}？]] 会話:(主人公,人物Ｅ)[[ぜひこの<勢力Ｅ>に\n{二人称名前}の天下統一の\nお手伝いをさせて{くれ}！]] 調査:(大名家::大名家Ｅ.大方針)==(天下統一) 分岐:(真){ ＯＲ調査:{ 調査:(カード::究極商人.所持フラグ)==(持っている) 調査:(カード::四海踏破.所持フラグ)==(持っている) } 分岐:(真){ 会話:(人物Ｅ,主人公)[[ふっ…　\n<文字列Ａ>の<勢力Ｅ>か……\nなかなか面白いことを{いう２}{な}]] } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[ふっ…　\n<勢力Ｅ>め、なかなか面白いことを{いう２}{な}]] } 会話:(人物Ｅ,主人公)[[せっかくの申し出{だ}\n頼りにさせて{もらう}{ぞ}]] 会話:(主人公,人物Ｅ)[[{はい}\nこの<勢力Ｅ>に万事お任せ{あれ}！]] } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[なんと！\nこの{一人称}に天下を獲れと{いう２}か！！]] ＯＲ調査:{ 調査:(カード::究極商人.所持フラグ)==(持っている) 調査:(カード::四海踏破.所持フラグ)==(持っている) } 分岐:(真){ 会話:(人物Ｅ,主人公)[[…………、\n<文字列Ａ>と名高い\n<勢力Ｅ>の財力を持ってすれば\n当家の天下も夢ではないか……]] } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[…………、\n<勢力Ｅ>の財力の後ろ盾があれば\n当家の天下も夢ではないか……]] } ウェイト:(1) ＢＧＭ変更:(イベント決意) 会話:(人物Ｅ,主人公)[[{心得た}！！\nこれからは当家の大方針は天下統一とする！\n<勢力Ｅ>よろしく頼むぞ！！]] 会話:(主人公,人物Ｅ)[[{はい}\nこの<勢力Ｅ>に万事お任せ{あれ}！]] } 更新:(イベントフラグ::真・御用商人：支援決定)(成立) 外に出す: }//スクリプト〆 }//イベント〆 イベント:真・御用商人：中間処理{ 属性:何度でも 発生契機:拠点内画面表示後(無効) 発生条件:{ 調査:(イベントフラグ::真・御用商人：支援決定)==(成立) 調査:(人物::主人公.所属勢力タイプ)==(商家) }//条件〆 スクリプト:{ 代入商家Ｅ:(人物::主人公.所属商家) 代入城Ａ:(発生拠点) //ナレーション:[[発生拠点、<城Ａ>城]] 代入大名家Ｅ:(城::城Ａ.所属大名家) 代入人物Ｅ:(大名家::大名家Ｅ.当主) 代入勢力Ｅ:(人物::人物Ｅ.所属勢力) //ナレーション:[[人物Ｅ＝支援大名家当主\n<人物Ｅ>]] コンテナ設定:(勢力,存在,真) コンテナ除外:(勢力,勢力タイプ,商家) コンテナ除外:(勢力,勢力番号,勢力Ｅ) ループ:{ コンテナ選択:(勢力Ａ,先頭) ブロック脱出:(偽) 代入人物Ａ:(勢力::勢力Ａ.当主) 条件ブロック:(勢力::勢力Ａ.勢力タイプ)==(大名家){ 更新:(人物::人物Ａ.商人勲功)(0)//外交同盟判定 更新:(人物::人物Ａ.海賊勲功)(0)//外交感情判定 代入ｘ:(勢力::勢力Ａ.外交同盟(勢力Ｅ)) 代入ｙ:(勢力::勢力Ａ.外交感情(勢力Ｅ)) //ナレーション:[[<勢力Ａ>：外交同盟<ｘ>、外交感情<ｙ>]] 更新:(人物::人物Ａ.商人勲功)(ｘ) 更新:(人物::人物Ａ.海賊勲功)(ｙ) } 条件ブロック:(勢力::勢力Ａ.勢力タイプ)==(忍者衆){ 更新:(人物::人物Ａ.商人勲功)(0)//外交同盟判定 更新:(人物::人物Ａ.海賊勲功)(0)//外交感情判定 代入ｘ:(勢力::勢力Ａ.外交同盟(勢力Ｅ)) 代入ｙ:(勢力::勢力Ａ.外交感情(勢力Ｅ)) //ナレーション:[[<勢力Ａ>：外交同盟<ｘ>、外交感情<ｙ>]] 更新:(人物::人物Ａ.商人勲功)(ｘ) 更新:(人物::人物Ａ.海賊勲功)(ｙ) } 条件ブロック:(勢力::勢力Ａ.勢力タイプ)==(海賊衆){ 更新:(人物::人物Ａ.商人勲功)(0)//外交同盟判定 更新:(人物::人物Ａ.忍者勲功)(0)//外交感情判定 代入ｘ:(勢力::勢力Ａ.外交同盟(勢力Ｅ)) 代入ｙ:(勢力::勢力Ａ.外交感情(勢力Ｅ)) //ナレーション:[[<勢力Ａ>：外交同盟<ｘ>、外交感情<ｙ>]] 更新:(人物::人物Ａ.商人勲功)(ｘ) 更新:(人物::人物Ａ.忍者勲功)(ｙ) } コンテナ選抜:(削る,1) }//ループ〆 コンテナ設定:(人物,所属大名家,大名家Ｅ) コンテナ絞り込み:(人物,カテゴリ,武将) コンテナ除外:(人物,出現フラグ,未出現) コンテナ除外:(人物,死亡フラグ,死亡) コンテナ複写:(退避) コンテナソート:(人物,身分,降順) ループ:{ コンテナ選択:(人物Ａ,先頭) ブロック脱出:(偽) 更新:(人物::人物Ａ.商人勲功)(0)//念のため初期化 更新:(人物::人物Ａ.忍者勲功)(0) 更新:(人物::人物Ａ.海賊勲功)(0) //商人勲功：身分判定→１・大名、２・国主、３・城主、４・家老以下 //忍者勲功：家老以下→上司判定、城主以上→居城判定 //海賊勲功：武士勲功記憶 場合別:(人物::人物Ａ.身分){ 場合分岐:(身分::大名){ //ナレーション:[[<人物Ａ>、身分：大名]] 更新:(人物::人物Ａ.商人勲功)(1) 代入城Ａ:(人物::人物Ａ.所属拠点) 代入ｘ:(城::城Ａ.城番号) 更新:(人物::人物Ａ.忍者勲功)(ｘ) }//大名〆 場合分岐:(身分::国主){ //ナレーション:[[<人物Ａ>、身分：国主]] 更新:(人物::人物Ａ.商人勲功)(2) 代入城Ｂ:(人物::人物Ａ.所属拠点) 代入ｘ:(城::城Ｂ.城番号) 更新:(人物::人物Ａ.忍者勲功)(ｘ) 代入ｙ:(人物::人物Ａ.武士勲功) 更新:(人物::人物Ａ.海賊勲功)(ｙ) }//国主〆 場合分岐:(身分::城主){ //ナレーション:[[<人物Ａ>、身分：城主]] 更新:(人物::人物Ａ.商人勲功)(3) 代入城Ｂ:(人物::人物Ａ.所属拠点) 代入ｘ:(城::城Ｂ.城番号) 更新:(人物::人物Ａ.忍者勲功)(ｘ) 代入ｙ:(人物::人物Ａ.武士勲功) 更新:(人物::人物Ａ.海賊勲功)(ｙ) }//城主〆 場合分岐:(その他){ //ナレーション:[[<人物Ａ>、身分：その他]] 更新:(人物::人物Ａ.商人勲功)(4) 代入人物Ｄ:(人物::人物Ａ.所属上司) 代入ｘ:(人物::人物Ｄ.人物番号) 更新:(人物::人物Ａ.忍者勲功)(ｘ) 代入ｙ:(人物::人物Ａ.武士勲功) 更新:(人物::人物Ａ.海賊勲功)(ｙ) }//その他〆 }//場合別〆 コンテナ選抜:(削る,1) }//ループ〆 コンテナ複写:(復帰) コンテナソート:(人物,武士勲功,昇順) コンテナ除外:(人物,人物番号,人物Ｅ) 調査:(コンテナカウンタ)>(0) 分岐:(真){ コンテナ選択:(人物Ｂ,先頭) コンテナ選抜:(削る,1) 家督を譲る:(人物Ｅ,人物Ｂ) //ナレーション:[[<人物Ｂ>に家督を譲ります]] 代入大名家Ｂ:(人物::人物Ｂ.所属大名家) //ナレーション:[[<大名家Ｂ>設立]] コンテナ設定:(人物,所属大名家,大名家Ｂ) コンテナ絞り込み:(人物,カテゴリ,武将) コンテナ除外:(人物,人物番号,人物Ｂ) コンテナ除外:(人物,死亡フラグ,死亡) コンテナ除外:(人物,出現フラグ,未出現) ループ:{ コンテナ選択:(人物Ｃ,先頭) ブロック脱出:(偽) //ナレーション:[[<人物Ｃ>解雇]] 人物解雇:(人物Ｃ,寧波の町,出現済み) コンテナ選抜:(削る,1) }//ループ〆 //ナレーション:[[解雇ループ脱出]] コンテナ設定:(城,無効,無効) コンテナ絞り込み:(城,所属大名家,大名家Ｂ) 代入ｃ:(コンテナカウンタ) 調査:(ｃ)==(1) 分岐:(真){ //ナレーション:[[分岐：支配城ひとつ]] コンテナ設定:(大名家,存在,真) コンテナ除外:(大名家,大名家番号,大名家Ｂ) コンテナ選択:(大名家Ｃ,先頭) //ナレーション:[[<大名家Ｂ>滅亡]] 勢力滅亡:(大名家Ｂ,大名家Ｃ) 人物解雇:(人物Ｂ,寧波の町,出現済み) //ナレーション:[[<人物Ｂ>解雇]] 独立:(人物Ｅ,城Ａ,陪臣のみ) 代入大名家Ａ:(人物::人物Ｅ.所属大名家) //ナレーション:[[<人物Ｅ>独立\n<大名家Ａ>再起動]] } 分岐:(偽){ //ナレーション:[[分岐：支配城複数]] 独立:(人物Ｅ,城Ａ,陪臣のみ) 代入大名家Ａ:(人物::人物Ｅ.所属大名家) //ナレーション:[[<人物Ｅ>独立\n<大名家Ａ>再起動]] //ナレーション:[[<大名家Ｂ>滅亡]] 勢力滅亡:(大名家Ｂ,大名家Ａ) 人物解雇:(人物Ｂ,寧波の町,出現済み) //ナレーション:[[<人物Ｂ>解雇]] } }//真〆 分岐:(偽){ コンテナ設定:(大名家,存在,真) コンテナ除外:(大名家,大名家番号,大名家Ｅ) ループ:{ コンテナ選択:(大名家Ｃ,先頭) ブロック脱出:(偽) コンテナ複写:(退避) 代入人物Ｃ:(大名家::大名家Ｃ.当主) コンテナ設定:(人物,所属大名家,大名家Ｃ) コンテナ除外:(人物,人物番号,主人公) コンテナ除外:(人物,死亡フラグ,死亡) コンテナ除外:(人物,出現フラグ,未出現) コンテナ絞り込み:(人物,立場,直臣) コンテナ除外:(人物,身分,大名) コンテナ除外:(人物,身分,国主) コンテナ除外:(人物,身分,城主) コンテナ除外:(人物,身分,家老) コンテナ選択:(人物Ｄ,先頭) ブロック脱出:(真) コンテナ複写:(復帰) コンテナ選抜:(削る,1) }//ループ〆 //ナレーション:[[ダミー当主<人物Ｄ>]] 代入ｂ:(人物::人物Ｄ.武士勲功) 人物解雇:(人物Ｄ,京の町,出現済み) 更新:(人物::人物Ｄ.武士勲功)(ｂ) 人物登用:(人物Ｄ,直臣,人物Ｅ) 更新:(人物::人物Ｄ.武士勲功)(ｂ) //ナレーション:[[ダミー当主<人物Ｄ>登用]] 家督を譲る:(人物Ｅ,人物Ｄ) 代入大名家Ｂ:(人物::人物Ｄ.所属大名家) //ナレーション:[[ダミー大名家<大名家Ｂ>]] 人物解雇:(人物Ｅ,寧波の町,出現済み) //ナレーション:[[<人物Ｅ>解雇]] コンテナ設定:(城,所属大名家,大名家Ｂ) 調査:(コンテナカウンタ)>(1) 分岐:(真){ 独立:(人物Ｅ,城Ａ,陪臣のみ) 代入大名家Ａ:(人物::人物Ｅ.所属大名家) //ナレーション:[[<人物Ｅ>独立\n<大名家Ａ>再起動]] 勢力滅亡:(大名家Ｂ,大名家Ａ) //ナレーション:[[ダミー大名家<大名家Ｂ>滅亡]] 人物解雇:(人物Ｄ,京の町,出現済み) //ナレーション:[[ダミー当主<人物Ｄ>解雇]] 更新:(人物::人物Ｄ.武士勲功)(ｂ) 人物登用:(人物Ｄ,直臣,人物Ｃ) 更新:(人物::人物Ｄ.武士勲功)(ｂ) //ナレーション:[[ダミー当主<人物Ｄ>復帰]] } 分岐:(偽){ コンテナ設定:(大名家,存在,真) コンテナ除外:(大名家,大名家番号,大名家Ｂ) コンテナ選択:(大名家Ｄ,先頭) //ナレーション:[[ダミー<大名家Ｂ>滅亡]] 勢力滅亡:(大名家Ｂ,大名家Ｄ) 人物解雇:(人物Ｄ,京の町,出現済み) //ナレーション:[[ダミー<人物Ｄ>解雇]] 更新:(人物::人物Ｄ.武士勲功)(ｂ) 人物登用:(人物Ｄ,直臣,人物Ｃ) 更新:(人物::人物Ｄ.武士勲功)(ｂ) //ナレーション:[[ダミー<人物Ｄ>再登用]] 独立:(人物Ｅ,城Ａ,陪臣のみ) 代入大名家Ａ:(人物::人物Ｅ.所属大名家) //ナレーション:[[<人物Ｅ>独立\n<大名家Ａ>再起動]] } }//偽〆 代入大名家Ａ:(人物::人物Ｅ.所属大名家) 更新:(大名家::大名家Ａ.大方針)(天下統一) //ナレーション:[[<人物Ｅ>勲功初期化]] 更新:(人物::人物Ｅ.商人勲功)(0)//勲功初期化 更新:(人物::人物Ｅ.忍者勲功)(0) 更新:(人物::人物Ｅ.海賊勲功)(0) コンテナ設定:(人物,所属拠点,寧波の町) コンテナ絞り込み:(人物,カテゴリ,武将) コンテナソート:(人物,海賊勲功,降順) ループ:{ コンテナ選択:(人物Ａ,先頭) ブロック脱出:(偽) 代入人物Ｂ:(人物::人物Ａ.忍者勲功) 代入ｓ:(人物::人物Ａ.商人勲功) ＯＲ調査:{ 調査:(ｓ)<(4) ＡＮＤ調査:{ 調査:(ｓ)==(4) 調査:(人物Ｅ)==(人物Ｂ) } } 分岐:(真){ 代入ｋ:(人物::人物Ａ.海賊勲功) 更新:(人物::人物Ａ.武士勲功)(ｋ) 人物登用:(人物Ａ,直臣,人物Ｅ) 更新:(人物::人物Ａ.武士勲功)(ｋ) //ナレーション:[[<人物Ａ>再登用\n直臣]] } 分岐:(偽){ 代入ｋ:(人物::人物Ａ.海賊勲功) 更新:(人物::人物Ａ.武士勲功)(ｋ) 人物登用:(人物Ａ,陪臣,人物Ｂ) 更新:(人物::人物Ａ.武士勲功)(ｋ) //ナレーション:[[<人物Ａ>再登用\n陪臣]] } 条件ブロック:(ｓ)==(4){ //ナレーション:[[<人物Ａ>勲功初期化]] 更新:(人物::人物Ａ.商人勲功)(0)//勲功初期化 更新:(人物::人物Ａ.忍者勲功)(0) 更新:(人物::人物Ａ.海賊勲功)(0) } コンテナ選抜:(削る,1) }//ループ〆 コンテナ設定:(人物,所属大名家,大名家Ａ) コンテナ除外:(人物,身分,大名) コンテナ除外:(人物,出現フラグ,未出現) コンテナ除外:(人物,死亡フラグ,死亡) コンテナ除外:(人物,商人勲功,0) ループ:{ コンテナ選択:(人物Ｂ,先頭) ブロック脱出:(偽) 代入ｓ:(人物::人物Ｂ.商人勲功) 代入城Ｂ:(人物::人物Ｂ.忍者勲功) 調査:(ｓ)==(2) 分岐:(真){ 代入国Ｂ:(城::城Ｂ.所属国) 国主任命:(人物Ｂ,国Ｂ,城Ｂ) //ナレーション:[[<人物Ｂ>国主任命、<城Ｂ>城]] } 分岐:(偽){ 城主任命:(人物Ｂ,城Ｂ) //ナレーション:[[<人物Ｂ>城主任命、<城Ｂ>城]] } //ナレーション:[[<人物Ｂ>勲功初期化]] 更新:(人物::人物Ｂ.商人勲功)(0)//勲功初期化 更新:(人物::人物Ｂ.忍者勲功)(0) 更新:(人物::人物Ｂ.海賊勲功)(0) コンテナ選抜:(削る,1) }//ループ〆 代入勢力Ｅ:(人物::人物Ｅ.所属勢力) コンテナ設定:(勢力,存在,真) コンテナ除外:(勢力,勢力タイプ,商家) コンテナ除外:(勢力,勢力番号,勢力Ｅ) ループ:{ コンテナ選択:(勢力Ａ,先頭) ブロック脱出:(偽) 代入人物Ａ:(勢力::勢力Ａ.当主) 条件ブロック:(勢力::勢力Ａ.勢力タイプ)==(大名家){ 代入ｘ:(人物::人物Ａ.商人勲功) 代入ｙ:(人物::人物Ａ.海賊勲功) //ナレーション:[[<勢力Ａ>：外交同盟<ｘ>、外交感情<ｙ>]] 更新:(勢力::勢力Ａ.外交同盟(勢力Ｅ))(ｘ) 更新:(勢力::勢力Ａ.外交感情(勢力Ｅ))(ｙ) 更新:(人物::人物Ａ.商人勲功)(0) 更新:(人物::人物Ａ.海賊勲功)(0) } 条件ブロック:(勢力::勢力Ａ.勢力タイプ)==(忍者衆){ 代入ｘ:(人物::人物Ａ.商人勲功) 代入ｙ:(人物::人物Ａ.海賊勲功) //ナレーション:[[<勢力Ａ>：外交同盟<ｘ>、外交感情<ｙ>]] 更新:(勢力::勢力Ａ.外交同盟(勢力Ｅ))(ｘ) 更新:(勢力::勢力Ａ.外交感情(勢力Ｅ))(ｙ) 更新:(人物::人物Ａ.商人勲功)(0) 更新:(人物::人物Ａ.海賊勲功)(0) } 条件ブロック:(勢力::勢力Ａ.勢力タイプ)==(海賊衆){ 代入ｘ:(人物::人物Ａ.商人勲功) 代入ｙ:(人物::人物Ａ.忍者勲功) //ナレーション:[[<勢力Ａ>：外交同盟<ｘ>、外交感情<ｙ>]] 更新:(勢力::勢力Ａ.外交同盟(勢力Ｅ))(ｘ) 更新:(勢力::勢力Ａ.外交感情(勢力Ｅ))(ｙ) 更新:(人物::人物Ａ.商人勲功)(0) 更新:(人物::人物Ａ.忍者勲功)(0) } コンテナ選抜:(削る,1) }//ループ〆 代入ａ:(大名家::大名家Ａ.大名家番号) 代入ｂ:(ａ)%(2) 更新:(イベントフラグ::真・御用商人：支援大名家１)(ｂ)//ビット１セット 代入ａ:(ａ)/(2) 代入ｂ:(ａ)%(2) 更新:(イベントフラグ::真・御用商人：支援大名家２)(ｂ)//ビット２セット 代入ａ:(ａ)/(2) 代入ｂ:(ａ)%(2) 更新:(イベントフラグ::真・御用商人：支援大名家３)(ｂ)//ビット３セット 代入ａ:(ａ)/(2) 代入ｂ:(ａ)%(2) 更新:(イベントフラグ::真・御用商人：支援大名家４)(ｂ)//ビット４セット 代入ａ:(ａ)/(2) 代入ｂ:(ａ)%(2) 更新:(イベントフラグ::真・御用商人：支援大名家５)(ｂ)//ビット５セット 代入ａ:(ａ)/(2) 代入ｂ:(ａ)%(2) 更新:(イベントフラグ::真・御用商人：支援大名家６)(ｂ)//ビット６セット 代入ａ:(ａ)/(2) 代入ｂ:(ａ)%(2) 更新:(イベントフラグ::真・御用商人：支援大名家７)(ｂ)//ビット７セット 代入ａ:(ａ)/(2) 代入ｂ:(ａ)%(2) 更新:(イベントフラグ::真・御用商人：支援大名家８)(ｂ)//ビット８セット 御用商人になる:(商家Ｅ,大名家Ａ) //ナレーション:[[<商家Ｅ>、<大名家Ａ>の御用商人復帰]] 更新:(イベントフラグ::真・御用商人：支援開始)(成立) 更新:(イベントフラグ::真・御用商人：支援決定)(不成立) }//スクリプト〆 }//イベント〆 イベント:真・御用商人：支援指示{ 属性:何度でも｜ひかえめ 発生契機:評定開始時(主人公) 発生条件:{ 代入勢力Ｅ:(人物::主人公.所属勢力) 調査:(勢力::勢力Ｅ.勢力タイプ)==(商家) 調査:(イベントフラグ::真・御用商人：支援開始)==(成立) 調査:(イベントフラグ::真・御用商人：指示済み)==(不成立) 調査:(Ｒｎｄ１００)<(60) }//条件〆 スクリプト:{ 代入ａ:(0) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家８)*(128)//ビット８変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家７)*(64)//ビット７変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家６)*(32)//ビット６変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家５)*(16)//ビット５変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家４)*(8)//ビット４変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家３)*(4)//ビット３変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家２)*(2)//ビット２変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家１)*(1)//ビット１変換 代入ａ:(ａ)+(ｂ) //以上変数取り出し終了 代入大名家Ａ:(ａ)+(0) 代入人物Ｅ:(大名家::大名家Ａ.当主) 代入勢力Ａ:(人物::人物Ｅ.所属勢力) 代入ｏ:(0)//貢献度 代入ｂ:(イベントフラグ::真・御用商人：貢献度８)*(128)//ビット８変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度７)*(64)//ビット７変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度６)*(32)//ビット６変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度５)*(16)//ビット５変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度４)*(8)//ビット４変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度３)*(4)//ビット３変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度２)*(2)//ビット２変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度１)*(1)//ビット１変換 代入ｏ:(ｏ)+(ｂ) //以上変数取り出し終了 代入ｍ:(人物::主人公.貯金) 代入商家Ｅ:(人物::主人公.所属商家) 代入ｘ:(商家::商家Ｅ.商業圏数) 代入ｘ:(ｘ)+(2) 代入ｘ:(ｘ)*(10) 条件ブロック:(カード::究極商人.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(15) } 条件ブロック:(カード::四海踏破.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(15) } 条件ブロック:(カード::剣豪.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::剣聖.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::槍達人.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::槍天下一.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::弓達人.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::弓天下一.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::鎖鎌達人.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::鎖鎌天下一.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::苦無達人.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::苦無天下一.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::鉄砲達人.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::鉄砲天下一.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::智将.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::軍神.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::茶仙.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::茶聖.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::懸河の弁.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::縦横家.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::名宰相.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::賢侯.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::名工.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::天下一鍛冶.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::名医.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::神医.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::忍術奥義皆伝.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::天下一博徒.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::天下無双.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::漂泊の旅人.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::今周公.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::芸術支援家.所持フラグ)==(持っている){ 代入ｘ:(ｘ)+(5) } 条件ブロック:(カード::主殺し.所持フラグ)==(持っている){ 代入ｘ:(ｘ)-(5) } 条件ブロック:(カード::人斬り.所持フラグ)==(持っている){ 代入ｘ:(ｘ)-(5) } 条件ブロック:(カード::奸臣.所持フラグ)==(持っている){ 代入ｘ:(ｘ)-(5) } 条件ブロック:(カード::梟雄.所持フラグ)==(持っている){ 代入ｘ:(ｘ)-(5) } 条件ブロック:(カード::表裏比興.所持フラグ)==(持っている){ 代入ｘ:(ｘ)-(5) } 条件ブロック:(カード::悪逆非道.所持フラグ)==(持っている){ 代入ｘ:(ｘ)-(10) } 条件ブロック:(ｘ)<(20){ 代入ｘ:(20) } 代入ｉ:(ｘ)//貢献度最大値 ひとりごと:[[今月はまだ<大名家Ａ>に\n支援を行って{いない}{な}]] ひとりごと可否選択:(人物Ｄ,主人公)[[<大名家Ａ>への支援を{いたす}か？\n（貯金残高<ｍ>貫、貢献度<ｏ>／<ｉ>）]] ブロック脱出:(否) ループ:{//基本ループ 代入ｚ:(0) 代入ｍ:(人物::主人公.貯金) ひとりごと選択:[[何を支援{いたす}か？\n（貯金残高<ｍ>貫、貢献度<ｏ>／<ｉ>）]] 選択:[[武将派遣]][[軍備]][[物資]][[内政]][[外交]][[計略]][[人物情報]][[関係を絶つ]][[指示終了]] 分岐:([[武将派遣]]){ ループ:{ 代入ｙ:(0) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ除外:(人物,人物番号,主人公) コンテナ絞り込み:(人物,カテゴリ,武将) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ絞り込み:(人物,留守フラグ,在宅) コンテナソート:(人物,身分,降順) 調査:(コンテナカウンタ)>(0) 分岐:(真){ ナレーション:[[<大名家Ａ>に武将を派遣します\n派遣する武将を選択してください]] メッセージ閉じる: コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｎ:(人物::人物Ａ.武士勲功) 代入ｎ:(人物::人物Ａ.忍者勲功)+(ｎ) 代入ｎ:(人物::人物Ａ.海賊勲功)+(ｎ) 代入ｎ:(人物::人物Ａ.商人勲功)+(ｎ) 調査:(ｎ)>=(3000) 分岐:(真){ 文字列設定:(文字列Ａ)[[家老]] } ＡＮＤ調査:{ 調査:(ｎ)<(3000) 調査:(ｎ)>=(1400) } 分岐:(真){ 文字列設定:(文字列Ａ)[[部将]] } ＡＮＤ調査:{ 調査:(ｎ)<(1400) 調査:(ｎ)>=(600) } 分岐:(真){ 文字列設定:(文字列Ａ)[[侍大将]] } ＡＮＤ調査:{ 調査:(ｎ)<(600) 調査:(ｎ)>=(200) } 分岐:(真){ 文字列設定:(文字列Ａ)[[足軽大将]] } 調査:(ｎ)<(200) 分岐:(真){ 文字列設定:(文字列Ａ)[[足軽組頭]] } ナレーション可否選択:[[勲功<ｎ>で<文字列Ａ>として派遣します\nよろしいですか？]] ブロック脱出:(否) 人物解雇:(人物Ａ,京の町,出現済み) 更新:(人物::人物Ａ.武士勲功)(ｎ) 人物登用:(人物Ａ,直臣,人物Ｅ) 更新:(人物::人物Ａ.武士勲功)(ｎ) 更新:(人物::人物Ａ.忍者勲功)(0) 更新:(人物::人物Ａ.海賊勲功)(0) 更新:(人物::人物Ａ.商人勲功)(0) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) 代入ｕ:(ｎ)/(100) 条件ブロック:(ｕ)<(1){ 代入ｕ:(1) } 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] } 分岐:(偽){ ナレーション:[[選択されていません]] } ナレーション可否選択:[[武将派遣を続けますか？]] ブロック脱出:(可) メッセージ閉じる: 代入ｙ:(1) } 分岐:(偽){ ナレーション:[[派遣できる武将がいません]] 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) }//ループ〆 メッセージ閉じる: }//武将派遣〆 分岐:([[軍備]]){ ループ:{ 代入ｘ:(0) 選択:[[兵士雇用]][[鉄砲支援]][[軍馬支援]][[軍備終了]] 分岐:([[兵士雇用]]){ ナレーション:[[貯金で兵士を雇用し\n<大名家Ａ>の城へ派遣します\nただし、派遣先の訓練度・士気が低下します]] ナレーション:[[相場は兵士１０人で５００貫\n５万貫以上の貯金が必要です]] ループ:{ 代入ｙ:(0) 代入ｋ:(人物::主人公.貯金) 条件ブロック:(ｋ)<(50000){ ナレーション:[[貯金が不足しています\n兵士雇用はできません]] メッセージ閉じる: 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) ループ:{ 代入ｑ:(0) ナレーション:[[派遣先の城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ選択:(城Ｂ,拠点選択) 分岐:(真){ 調査:(城::城Ｂ.戦闘フラグ)==(戦闘中) 分岐:(真){ ナレーション:[[<城Ｂ>城は戦闘中のため選択できません]] } 分岐:(偽){ 代入ｊ:(城::城Ｂ.兵士数) ナレーション可否選択:[[<城Ｂ>城、兵士数<ｊ>です\n派遣先はこの城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n兵士雇用を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) 調査:(ｋ)>=(500000) 分岐:(真){ 文字列設定:(文字列Ａ)[[１万]] 文字列設定:(文字列Ｂ)[[５千]] 文字列設定:(文字列Ｃ)[[３千]] 代入ａ:(10000) 代入ｂ:(5000) 代入ｃ:(3000) } ＡＮＤ調査:{ 調査:(ｋ)<(500000) 調査:(ｋ)>=(250000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[５千]] 文字列設定:(文字列Ｂ)[[２千５百]] 文字列設定:(文字列Ｃ)[[１千]] 代入ａ:(5000) 代入ｂ:(2500) 代入ｃ:(1000) } ＡＮＤ調査:{ 調査:(ｋ)<(250000) 調査:(ｋ)>=(125000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[２千５百]] 文字列設定:(文字列Ｂ)[[１千]] 文字列設定:(文字列Ｃ)[[５百]] 代入ａ:(2500) 代入ｂ:(1000) 代入ｃ:(500) } 調査:(ｋ)<(125000) 分岐:(真){ 文字列設定:(文字列Ａ)[[１千]] 文字列設定:(文字列Ｂ)[[５百]] 文字列設定:(文字列Ｃ)[[１百]] 代入ａ:(1000) 代入ｂ:(500) 代入ｃ:(100) } ループ:{ 代入ｗ:(0) ナレーション選択:[[派遣する兵士数を決めてください\n（貯金は<ｋ>貫\n　派遣先の兵士数は<ｊ>人）]] 選択:[[<文字列Ａ>人]][[<文字列Ｂ>人]][[<文字列Ｃ>人]][[やめる]] 分岐:([[<文字列Ａ>人]]){ 代入ｄ:(ａ) 代入ｐ:(ｄ)/(10) 代入ｐ:(ｐ)*(500) ナレーション可否選択:[[兵士を<ｄ>人雇用すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } 分岐:([[<文字列Ｂ>人]]){ 代入ｄ:(ｂ) 代入ｐ:(ｄ)/(10) 代入ｐ:(ｐ)*(500) ナレーション可否選択:[[兵士を<ｄ>人雇用すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } 分岐:([[<文字列Ｃ>人]]){ 代入ｄ:(ｃ) 代入ｐ:(ｄ)/(10) 代入ｐ:(ｐ)*(500) ナレーション可否選択:[[兵士を<ｄ>人雇用すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｄ:(0) 代入ｗ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｄ)>(0){ 代入ｋ:(ｋ)-(ｐ) 更新:(人物::主人公.貯金)(ｋ) 代入ｐ:(城::城Ｂ.兵士数) 代入ｐ:(ｐ)+(ｄ) 更新:(城::城Ｂ.兵士数)(ｐ) 代入ｐ:(城::城Ｂ.士気) 代入ｎ:(ｐ)/(10) 代入ｎ:(ｎ)*(2) 代入ｐ:(ｐ)-(ｎ) 更新:(城::城Ｂ.士気)(ｐ) 代入ｐ:(城::城Ｂ.訓練度) 代入ｍ:(ｐ)/(10) 代入ｍ:(ｍ)*(2) 代入ｐ:(ｐ)-(ｍ) 更新:(城::城Ｂ.訓練度)(ｐ) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) ナレーション:[[<城Ｂ>城へ兵士を<ｄ>人派遣しました\n士気が<ｎ>下がりました\n訓練度が<ｍ>下がりました]] 場合別:(変数::ｄ.数値){ 場合分岐:(数値::10000){ 代入ｕ:(20) } 場合分岐:(数値::5000){ 代入ｕ:(15) } 場合分岐:(数値::3000){ 代入ｕ:(10) } 場合分岐:(数値::2500){ 代入ｕ:(8) } 場合分岐:(数値::1000){ 代入ｕ:(5) } 場合分岐:(数値::500){ 代入ｕ:(3) } 場合分岐:(数値::100){ 代入ｕ:(1) } }//場合別〆 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] } ナレーション可否選択:[[兵士雇用を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//軍備終了〆 分岐:([[鉄砲支援]]){ ナレーション:[[本店の鉄砲在庫か\n貯金で購入した鉄砲を\n<大名家Ａ>の城へ輸送します]] ナレーション:[[鉄砲在庫からの輸送には\n最低５百丁の鉄砲在庫が必要です]] ナレーション:[[鉄砲購入の相場は１０丁で２５０貫\n１万５千貫以上の貯金が必要です]] ループ:{ 代入ｒ:(0) 代入ｙ:(0) ループ:{ 代入ｋ:(商家::商家Ｅ.鉄砲在庫(0)) 代入ｌ:(人物::主人公.貯金) ナレーション選択:[[支援方法を選択してください\n（鉄砲在庫<ｋ>丁\n　貯金<ｌ>貫）]] 選択:[[鉄砲在庫]][[鉄砲購入]][[やめる]] 分岐:([[鉄砲在庫]]){ 調査:(ｋ)<(500) 分岐:(真){ ナレーション:[[本店の鉄砲在庫が不足しています\n鉄砲在庫からの輸送はできません]] メッセージ閉じる: } 分岐:(偽){ ナレーション:[[本店の鉄砲在庫から<大名家Ａ>の城へ\n鉄砲を輸送します\n]] 代入ｌ:(0) 代入ｒ:(1) 代入ｙ:(1) } } 分岐:([[鉄砲購入]]){ 調査:(ｌ)<(15000) 分岐:(真){ ナレーション:[[貯金が不足しています\n鉄砲購入はできません]] メッセージ閉じる: } 分岐:(偽){ ナレーション:[[貯金で鉄砲を購入し\n<大名家Ａ>の城へ輸送します]] 代入ｋ:(0) 代入ｒ:(2) 代入ｙ:(1) } } 分岐:([[やめる]]){ 代入ｒ:(3) 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｒ)==(3) ブロック脱出:(真) 代入ｗ:(0) ループ:{ 代入ｑ:(0) ナレーション:[[輸送先の城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ選択:(城Ｂ,拠点選択) 分岐:(真){ 調査:(城::城Ｂ.戦闘フラグ)==(戦闘中) 分岐:(真){ ナレーション:[[<城Ｂ>城は戦闘中のため選択できません]] } 分岐:(偽){ 代入ｊ:(城::城Ｂ.鉄砲) ナレーション可否選択:[[<城Ｂ>城、鉄砲<ｊ>です\n輸送先はこの城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n輸送先の選択を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｗ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｗ)==(0){ ＯＲ調査:{ 調査:(ｋ)>=(40000) 調査:(ｌ)>=(500000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[２万]] 文字列設定:(文字列Ｂ)[[１万]] 文字列設定:(文字列Ｃ)[[５千]] 代入ａ:(20000) 代入ｂ:(10000) 代入ｃ:(5000) } ＯＲ調査:{ ＡＮＤ調査:{ 調査:(ｋ)<(40000) 調査:(ｋ)>=(20000) } ＡＮＤ調査:{ 調査:(ｌ)<(500000) 調査:(ｌ)>=(250000) } } 分岐:(真){ 文字列設定:(文字列Ａ)[[１万]] 文字列設定:(文字列Ｂ)[[５千]] 文字列設定:(文字列Ｃ)[[３千]] 代入ａ:(10000) 代入ｂ:(5000) 代入ｃ:(3000) } ＯＲ調査:{ ＡＮＤ調査:{ 調査:(ｋ)<(20000) 調査:(ｋ)>=(5000) } ＡＮＤ調査:{ 調査:(ｌ)<(250000) 調査:(ｌ)>=(100000) } } 分岐:(真){ 文字列設定:(文字列Ａ)[[４千]] 文字列設定:(文字列Ｂ)[[２千５百]] 文字列設定:(文字列Ｃ)[[１千]] 代入ａ:(4000) 代入ｂ:(2500) 代入ｃ:(1000) } ＯＲ調査:{ ＡＮＤ調査:{ 調査:(ｋ)<(5000) 調査:(ｋ)>=(1000) } ＡＮＤ調査:{ 調査:(ｌ)<(100000) 調査:(ｌ)>=(25000) } } 分岐:(真){ 文字列設定:(文字列Ａ)[[１千]] 文字列設定:(文字列Ｂ)[[５百]] 文字列設定:(文字列Ｃ)[[１百]] 代入ａ:(1000) 代入ｂ:(500) 代入ｃ:(100) } ＯＲ調査:{ ＡＮＤ調査:{ 調査:(ｋ)<(1000) 調査:(ｋ)>=(500) } ＡＮＤ調査:{ 調査:(ｌ)<(25000) 調査:(ｌ)>=(15000) } } 分岐:(真){ 文字列設定:(文字列Ａ)[[５百]] 文字列設定:(文字列Ｂ)[[２百５０]] 文字列設定:(文字列Ｃ)[[１百]] 代入ａ:(500) 代入ｂ:(250) 代入ｃ:(100) } ループ:{ 調査:(ｒ)==(1) 分岐:(真){ ナレーション選択:[[輸送する鉄砲数を決めてください\n（鉄砲在庫は<ｋ>丁\n　輸送先の鉄砲数は<ｊ>丁）]] 代入ｓ:(1) } 分岐:(偽){ ナレーション選択:[[購入する鉄砲数を決めてください\n（貯金は<ｌ>貫\n　輸送先の鉄砲数は<ｊ>丁）]] 代入ｓ:(0) } 選択:[[<文字列Ａ>丁]][[<文字列Ｂ>丁]][[<文字列Ｃ>丁]][[やめる]] 分岐:([[<文字列Ａ>丁]]){ 代入ｄ:(ａ) 条件ブロック:(ｒ)==(2){ 代入ｐ:(ｄ)/(10) 代入ｐ:(ｐ)*(250) ナレーション可否選択:[[鉄砲を<ｄ>丁購入すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｓ:(1) } } 分岐:([[<文字列Ｂ>丁]]){ 代入ｄ:(ｂ) 条件ブロック:(ｒ)==(2){ 代入ｐ:(ｄ)/(10) 代入ｐ:(ｐ)*(250) ナレーション可否選択:[[鉄砲を<ｄ>丁購入すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｓ:(1) } } 分岐:([[<文字列Ｃ>丁]]){ 代入ｄ:(ｃ) 条件ブロック:(ｒ)==(2){ 代入ｐ:(ｄ)/(10) 代入ｐ:(ｐ)*(250) ナレーション可否選択:[[鉄砲を<ｄ>丁購入すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｓ:(1) } } 分岐:([[やめる]]){ 代入ｄ:(0) 代入ｓ:(1) } 調査:(ｓ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｄ)>(0){ 調査:(ｒ)==(1) 分岐:(真){ 代入ｋ:(ｋ)-(ｄ) 更新:(商家::商家Ｅ.鉄砲在庫(0))(ｋ) } 分岐:(偽){ 代入ｌ:(ｌ)-(ｐ) 更新:(人物::主人公.貯金)(ｌ) } 代入ｐ:(城::城Ｂ.鉄砲) 代入ｐ:(ｐ)+(ｄ) 更新:(城::城Ｂ.鉄砲)(ｐ) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) ナレーション:[[<城Ｂ>城へ鉄砲を<ｄ>丁輸送しました]] 場合別:(変数::ｄ.数値){ 場合分岐:(数値::20000){ 代入ｕ:(20) } 場合分岐:(数値::10000){ 代入ｕ:(15) } 場合分岐:(数値::5000){ 代入ｕ:(10) } 場合分岐:(数値::4000){ 代入ｕ:(9) } 場合分岐:(数値::3000){ 代入ｕ:(8) } 場合分岐:(数値::2500){ 代入ｕ:(6) } 場合分岐:(数値::1000){ 代入ｕ:(5) } 場合分岐:(数値::500){ 代入ｕ:(3) } 場合分岐:(数値::250){ 代入ｕ:(2) } 場合分岐:(数値::100){ 代入ｕ:(1) } }//場合別〆 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] } }//条件ブロック〆 ナレーション可否選択:[[鉄砲支援を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//鉄砲支援〆 分岐:([[軍馬支援]]){ ナレーション:[[貯金で軍馬を購入し\n<大名家Ａ>の城へ輸送します]] ナレーション:[[相場は軍馬１０頭で２００貫\n１万貫以上の貯金が必要です]] ループ:{ 代入ｙ:(0) 代入ｋ:(人物::主人公.貯金) 条件ブロック:(ｋ)<(15000){ ナレーション:[[貯金が不足しています\n軍馬支援はできません]] メッセージ閉じる: 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) ループ:{ 代入ｑ:(0) ナレーション:[[輸送先の城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ選択:(城Ｂ,拠点選択) 分岐:(真){ 調査:(城::城Ｂ.戦闘フラグ)==(戦闘中) 分岐:(真){ ナレーション:[[<城Ｂ>城は戦闘中のため選択できません]] } 分岐:(偽){ 代入ｊ:(城::城Ｂ.軍馬) ナレーション可否選択:[[<城Ｂ>城、軍馬<ｊ>です\n輸送先はこの城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n軍馬支援を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) 調査:(ｋ)>=(400000) 分岐:(真){ 文字列設定:(文字列Ａ)[[２万]] 文字列設定:(文字列Ｂ)[[１万]] 文字列設定:(文字列Ｃ)[[５千]] 代入ａ:(20000) 代入ｂ:(10000) 代入ｃ:(5000) } ＡＮＤ調査:{ 調査:(ｋ)<(400000) 調査:(ｋ)>=(200000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[１万]] 文字列設定:(文字列Ｂ)[[５千]] 文字列設定:(文字列Ｃ)[[３千]] 代入ａ:(10000) 代入ｂ:(5000) 代入ｃ:(3000) } ＡＮＤ調査:{ 調査:(ｋ)<(200000) 調査:(ｋ)>=(100000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[５千]] 文字列設定:(文字列Ｂ)[[２千５百]] 文字列設定:(文字列Ｃ)[[１千]] 代入ａ:(5000) 代入ｂ:(2500) 代入ｃ:(1000) } ＡＮＤ調査:{ 調査:(ｋ)<(100000) 調査:(ｋ)>=(50000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[２千５百]] 文字列設定:(文字列Ｂ)[[１千]] 文字列設定:(文字列Ｃ)[[５百]] 代入ａ:(2500) 代入ｂ:(1000) 代入ｃ:(500) } ＡＮＤ調査:{ 調査:(ｋ)<(50000) 調査:(ｋ)>=(10000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[５百]] 文字列設定:(文字列Ｂ)[[２百５０]] 文字列設定:(文字列Ｃ)[[１百]] 代入ａ:(500) 代入ｂ:(250) 代入ｃ:(100) } ループ:{ 代入ｗ:(0) ナレーション選択:[[輸送する軍馬数を決めてください\n（貯金は<ｋ>貫\n　輸送先の軍馬数は<ｊ>頭）]] 選択:[[<文字列Ａ>頭]][[<文字列Ｂ>頭]][[<文字列Ｃ>頭]][[やめる]] 分岐:([[<文字列Ａ>頭]]){ 代入ｄ:(ａ) 代入ｐ:(ｄ)/(10) 代入ｐ:(ｐ)*(200) ナレーション可否選択:[[軍馬を<ｄ>頭購入すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } 分岐:([[<文字列Ｂ>頭]]){ 代入ｄ:(ｂ) 代入ｐ:(ｄ)/(10) 代入ｐ:(ｐ)*(200) ナレーション可否選択:[[軍馬を<ｄ>頭購入すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } 分岐:([[<文字列Ｃ>頭]]){ 代入ｄ:(ｃ) 代入ｐ:(ｄ)/(10) 代入ｐ:(ｐ)*(200) ナレーション可否選択:[[軍馬を<ｄ>頭購入すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｄ:(0) 代入ｗ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｄ)>(0){ 代入ｋ:(ｋ)-(ｐ) 更新:(人物::主人公.貯金)(ｋ) 代入ｐ:(城::城Ｂ.軍馬) 代入ｐ:(ｐ)+(ｄ) 更新:(城::城Ｂ.軍馬)(ｐ) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) ナレーション:[[<城Ｂ>城へ軍馬を<ｄ>頭輸送しました]] 場合別:(変数::ｄ.数値){ 場合分岐:(数値::20000){ 代入ｕ:(20) } 場合分岐:(数値::10000){ 代入ｕ:(15) } 場合分岐:(数値::5000){ 代入ｕ:(10) } 場合分岐:(数値::3000){ 代入ｕ:(8) } 場合分岐:(数値::2500){ 代入ｕ:(6) } 場合分岐:(数値::1000){ 代入ｕ:(5) } 場合分岐:(数値::500){ 代入ｕ:(3) } 場合分岐:(数値::250){ 代入ｕ:(2) } 場合分岐:(数値::100){ 代入ｕ:(1) } }//場合別〆 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] } ナレーション可否選択:[[軍馬支援を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//軍馬支援〆 分岐:([[軍備終了]]){ 代入ｘ:(1) }//軍備終了〆 調査:(ｘ)==(1) ブロック脱出:(真) }//軍備ループ〆 }//軍備〆 分岐:([[物資]]){ ループ:{ 代入ｘ:(0) 選択:[[軍資金支援]][[兵糧支援]][[物資終了]] 分岐:([[軍資金支援]]){ ナレーション:[[貯金を<大名家Ａ>の城へ提供します\nただし１万貫以上の貯金が必要です]] ループ:{ 代入ｙ:(0) 代入ｋ:(人物::主人公.貯金) 条件ブロック:(ｋ)<(10000){ ナレーション:[[貯金が不足しています\n軍資金支援はできません]] 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) ループ:{ 代入ｑ:(0) ナレーション:[[支援先の城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ選択:(城Ｂ,拠点選択) 分岐:(真){ 調査:(城::城Ｂ.戦闘フラグ)==(戦闘中) 分岐:(真){ ナレーション:[[<城Ｂ>城は戦闘中のため選択できません]] } 分岐:(偽){ 代入ｆ:(城::城Ｂ.軍資金) ナレーション可否選択:[[<城Ｂ>城、軍資金<ｆ>貫です\n支援先はこの城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n軍資金支援を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) 調査:(ｋ)>=(500000) 分岐:(真){ 文字列設定:(文字列Ａ)[[４０万]] 文字列設定:(文字列Ｂ)[[２５万]] 文字列設定:(文字列Ｃ)[[１０万]] 代入ａ:(400000) 代入ｂ:(250000) 代入ｃ:(100000) } ＡＮＤ調査:{ 調査:(ｋ)<(500000) 調査:(ｋ)>=(300000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[２０万]] 文字列設定:(文字列Ｂ)[[１０万]] 文字列設定:(文字列Ｃ)[[５万]] 代入ａ:(200000) 代入ｂ:(100000) 代入ｃ:(50000) } ＡＮＤ調査:{ 調査:(ｋ)<(300000) 調査:(ｋ)>=(200000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[１０万]] 文字列設定:(文字列Ｂ)[[５万]] 文字列設定:(文字列Ｃ)[[２万５千]] 代入ａ:(100000) 代入ｂ:(50000) 代入ｃ:(25000) } ＡＮＤ調査:{ 調査:(ｋ)<(200000) 調査:(ｋ)>=(100000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[５万]] 文字列設定:(文字列Ｂ)[[２万５千]] 文字列設定:(文字列Ｃ)[[１万]] 代入ａ:(50000) 代入ｂ:(25000) 代入ｃ:(10000) } ＡＮＤ調査:{ 調査:(ｋ)<(100000) 調査:(ｋ)>=(50000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[２万５千]] 文字列設定:(文字列Ｂ)[[１万]] 文字列設定:(文字列Ｃ)[[５千]] 代入ａ:(25000) 代入ｂ:(10000) 代入ｃ:(5000) } ＡＮＤ調査:{ 調査:(ｋ)<(50000) 調査:(ｋ)>=(10000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[５千]] 文字列設定:(文字列Ｂ)[[３千]] 文字列設定:(文字列Ｃ)[[１千]] 代入ａ:(5000) 代入ｂ:(3000) 代入ｃ:(1000) } ナレーション選択:[[提供する軍資金を決めてください\n（貯金は<ｋ>貫\n　支援先の軍資金は<ｆ>貫）]] 選択:[[<文字列Ａ>貫]][[<文字列Ｂ>貫]][[<文字列Ｃ>貫]][[やめる]] 分岐:([[<文字列Ａ>貫]]){ 代入ｄ:(ａ) } 分岐:([[<文字列Ｂ>貫]]){ 代入ｄ:(ｂ) } 分岐:([[<文字列Ｃ>貫]]){ 代入ｄ:(ｃ) } 分岐:([[やめる]]){ 代入ｄ:(0) } 条件ブロック:(ｄ)>(0){ 代入ｋ:(ｋ)-(ｄ) 更新:(人物::主人公.貯金)(ｋ) 代入ｐ:(城::城Ｂ.軍資金) 代入ｐ:(ｐ)+(ｄ) 更新:(城::城Ｂ.軍資金)(ｐ) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) ナレーション:[[<城Ｂ>城へ\n軍資金を<ｄ>貫輸送しました]] 場合別:(変数::ｄ.数値){ 場合分岐:(数値::400000){ 代入ｕ:(20) } 場合分岐:(数値::250000){ 代入ｕ:(15) } 場合分岐:(数値::200000){ 代入ｕ:(10) } 場合分岐:(数値::100000){ 代入ｕ:(9) } 場合分岐:(数値::50000){ 代入ｕ:(8) } 場合分岐:(数値::25000){ 代入ｕ:(6) } 場合分岐:(数値::10000){ 代入ｕ:(5) } 場合分岐:(数値::5000){ 代入ｕ:(3) } 場合分岐:(数値::3000){ 代入ｕ:(2) } 場合分岐:(数値::1000){ 代入ｕ:(1) } }//場合別〆 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] } ナレーション可否選択:[[軍資金支援を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//軍資金支援〆 分岐:([[兵糧支援]]){ ナレーション:[[貯金で兵糧を購入し\n<大名家Ａ>の城へ輸送します]] ナレーション:[[相場は兵糧１千石で５００貫\n２千５百貫以上の貯金が必要です]] ループ:{ 代入ｙ:(0) 代入ｋ:(人物::主人公.貯金) 条件ブロック:(ｋ)<(2500){ ナレーション:[[貯金が不足しています\n兵糧支援はできません]] メッセージ閉じる: 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) ループ:{ 代入ｑ:(0) ナレーション:[[輸送先の城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ選択:(城Ｂ,拠点選択) 分岐:(真){ 調査:(城::城Ｂ.戦闘フラグ)==(戦闘中) 分岐:(真){ ナレーション:[[<城Ｂ>城は戦闘中のため選択できません]] } 分岐:(偽){ 代入ｊ:(城::城Ｂ.兵糧) ナレーション可否選択:[[<城Ｂ>城、兵糧<ｊ>石です\n輸送先はこの城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n兵糧支援を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) 調査:(ｋ)>=(200000) 分岐:(真){ 文字列設定:(文字列Ａ)[[４０万]] 文字列設定:(文字列Ｂ)[[２５万]] 文字列設定:(文字列Ｃ)[[１０万]] 代入ａ:(400000) 代入ｂ:(250000) 代入ｃ:(100000) } ＡＮＤ調査:{ 調査:(ｋ)<(200000) 調査:(ｋ)>=(100000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[２０万]] 文字列設定:(文字列Ｂ)[[１０万]] 文字列設定:(文字列Ｃ)[[５万]] 代入ａ:(200000) 代入ｂ:(100000) 代入ｃ:(50000) } ＡＮＤ調査:{ 調査:(ｋ)<(100000) 調査:(ｋ)>=(50000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[１０万]] 文字列設定:(文字列Ｂ)[[５万]] 文字列設定:(文字列Ｃ)[[２万５千]] 代入ａ:(100000) 代入ｂ:(50000) 代入ｃ:(25000) } ＡＮＤ調査:{ 調査:(ｋ)<(50000) 調査:(ｋ)>=(25000) } 分岐:(真){ 文字列設定:(文字列Ａ)[[５万]] 文字列設定:(文字列Ｂ)[[２万５千]] 文字列設定:(文字列Ｃ)[[１万]] 代入ａ:(50000) 代入ｂ:(25000) 代入ｃ:(10000) } ＡＮＤ調査:{ 調査:(ｋ)<(25000) 調査:(ｋ)>=(12500) } 分岐:(真){ 文字列設定:(文字列Ａ)[[２万５千]] 文字列設定:(文字列Ｂ)[[１万]] 文字列設定:(文字列Ｃ)[[５千]] 代入ａ:(25000) 代入ｂ:(10000) 代入ｃ:(5000) } ＡＮＤ調査:{ 調査:(ｋ)<(12500) 調査:(ｋ)>=(2500) } 分岐:(真){ 文字列設定:(文字列Ａ)[[５千]] 文字列設定:(文字列Ｂ)[[３千]] 文字列設定:(文字列Ｃ)[[１千]] 代入ａ:(5000) 代入ｂ:(3000) 代入ｃ:(1000) } ループ:{ 代入ｗ:(0) ナレーション選択:[[輸送する兵糧を決めてください\n（貯金は<ｋ>貫\n　輸送先の兵糧は<ｊ>石）]] 選択:[[<文字列Ａ>石]][[<文字列Ｂ>石]][[<文字列Ｃ>石]][[やめる]] 分岐:([[<文字列Ａ>石]]){ 代入ｄ:(ａ) 代入ｐ:(ｄ)/(1000) 代入ｐ:(ｐ)*(500) ナレーション可否選択:[[兵糧を<ｄ>石購入すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } 分岐:([[<文字列Ｂ>石]]){ 代入ｄ:(ｂ) 代入ｐ:(ｄ)/(1000) 代入ｐ:(ｐ)*(500) ナレーション可否選択:[[兵糧を<ｄ>石購入すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } 分岐:([[<文字列Ｃ>石]]){ 代入ｄ:(ｃ) 代入ｐ:(ｄ)/(1000) 代入ｐ:(ｐ)*(500) ナレーション可否選択:[[兵糧を<ｄ>石購入すると\n<ｐ>貫必要となります\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｄ:(0) 代入ｗ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｄ)>(0){ 代入ｋ:(ｋ)-(ｐ) 更新:(人物::主人公.貯金)(ｋ) 代入ｐ:(城::城Ｂ.兵糧) 代入ｐ:(ｐ)+(ｄ) 更新:(城::城Ｂ.兵糧)(ｐ) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) ナレーション:[[<城Ｂ>城へ兵糧を<ｄ>石輸送しました]] 場合別:(変数::ｄ.数値){ 場合分岐:(数値::400000){ 代入ｕ:(20) } 場合分岐:(数値::250000){ 代入ｕ:(15) } 場合分岐:(数値::200000){ 代入ｕ:(10) } 場合分岐:(数値::100000){ 代入ｕ:(9) } 場合分岐:(数値::50000){ 代入ｕ:(8) } 場合分岐:(数値::25000){ 代入ｕ:(6) } 場合分岐:(数値::10000){ 代入ｕ:(5) } 場合分岐:(数値::5000){ 代入ｕ:(3) } 場合分岐:(数値::3000){ 代入ｕ:(2) } 場合分岐:(数値::1000){ 代入ｕ:(1) } }//場合別〆 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] } ナレーション可否選択:[[兵糧支援を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//兵糧支援〆 分岐:([[物資終了]]){ 代入ｘ:(1) }//物資終了〆 調査:(ｘ)==(1) ブロック脱出:(真) }//物資ループ〆 }//物資〆 分岐:([[内政]]){ ループ:{ 代入ｘ:(0) コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,戦闘フラグ,戦闘中) 代入ｎ:(コンテナカウンタ) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,留守フラグ,留守) 代入ｍ:(コンテナカウンタ) ＡＮＤ調査:{ 調査:(ｎ)>(0) 調査:(ｍ)>(0) } 分岐:(真){ 選択:[[新田開発]][[鉱山開発]][[治安向上]][[訓練]][[補修]][[増築]][[内政終了]] 分岐:([[新田開発]]){ ナレーション:[[<大名家Ａ>の城の新田開発を行います\n貯金を３千貫消費します]] ループ:{ 代入ｙ:(0) ループ:{ 代入ｑ:(0) ナレーション:[[開発する城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,戦闘フラグ,戦闘中) コンテナ選択:(城Ａ,拠点選択) 分岐:(真){ 代入ｓ:(人物::主人公.貯金) 代入ｎ:(城::城Ａ.基準石高) 代入ｍ:(城::城Ａ.現石高) 代入ｐ:(ｎ)-(ｍ) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) 代入ｌ:(コンテナカウンタ) ＡＮＤ調査:{ 調査:(ｐ)>(0) 調査:(ｌ)>(0) 調査:(ｓ)>(3000) } 分岐:(真){ ナレーション:[[<城Ａ>城、最大石高<ｎ>、現在の石高<ｍ>\n貯金残高は<ｓ>貫です]] ナレーション可否選択:[[この城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション:[[<城Ａ>城はこれ以上開発できないか\n開発できる武将がいません\nまたは、貯金が不足しています]] ナレーション可否選択:[[新田開発を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n新田開発を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) ループ:{ 代入ｑ:(0) ナレーション:[[新田開発を行う武将を選択してください]] メッセージ閉じる: コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｇ:(人物::人物Ａ.開墾技能) 代入ｈ:(人物::人物Ａ.政務) ナレーション可否選択:[[<人物Ａ>\n政務<ｈ>、開墾技能<ｇ>です\nこの武将でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n武将の選択を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｙ)==(0){ 代入ｈ:(ｈ)/(10) 代入ｇ:(ｇ)*(3) 代入ｇ:(Ｒｎｄ)%(ｇ) 代入ｇ:(ｇ)+(ｈ) 代入ｍ:(ｇ)+(ｍ) 条件ブロック:(ｍ)>=(ｎ){ 代入ｍ:(ｎ) } 更新:(城::城Ａ.現石高)(ｍ) 代入ｓ:(ｓ)-(3000) 更新:(人物::主人公.貯金)(ｓ) ＳＥループ:(開墾・土地造成音) ウェイト:(2) ＳＥストップ:(開墾・土地造成音) ナレーション:[[<城Ａ>城の石高が<ｇ>上昇し\n<ｍ>となりました]] 代入ｕ:(ｇ) 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] 更新:(人物::人物Ａ.留守フラグ)(留守) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) } ナレーション可否選択:[[新田開発を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//新田開発〆 分岐:([[鉱山開発]]){ ナレーション:[[<大名家Ａ>の城の鉱山開発を行います\n貯金を３千貫消費します]] ループ:{ 代入ｙ:(0) ループ:{ 代入ｑ:(0) ナレーション:[[開発する城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,戦闘フラグ,戦闘中) コンテナ選択:(城Ａ,拠点選択) 分岐:(真){ 代入ｓ:(人物::主人公.貯金) 代入ｎ:(城::城Ａ.鉱山最高値) 代入ｍ:(城::城Ａ.現鉱山) 代入ｐ:(ｎ)-(ｍ) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) 代入ｌ:(コンテナカウンタ) ＡＮＤ調査:{ 調査:(ｐ)>(0) 調査:(ｌ)>(0) 調査:(ｓ)>(3000) } 分岐:(真){ ナレーション:[[<城Ａ>城、鉱山最高値<ｎ>、現在は<ｍ>\n貯金残高は<ｓ>貫です]] ナレーション可否選択:[[この城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション:[[<城Ａ>城はこれ以上開発できないか\n開発できる武将がいません\nまたは、貯金が不足しています]] ナレーション可否選択:[[鉱山開発を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n鉱山開発を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) ループ:{ 代入ｑ:(0) ナレーション:[[鉱山開発を行う武将を選択してください]] メッセージ閉じる: コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｇ:(人物::人物Ａ.鉱山技能) 代入ｈ:(人物::人物Ａ.政務) ナレーション可否選択:[[<人物Ａ>\n政務<ｈ>、鉱山技能<ｇ>です\nこの武将でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n武将の選択を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｙ)==(0){ 代入ｈ:(ｈ)/(10) 代入ｇ:(ｇ)*(3) 代入ｇ:(Ｒｎｄ)%(ｇ) 代入ｇ:(ｇ)+(ｈ) 代入ｍ:(ｇ)+(ｍ) 条件ブロック:(ｍ)>=(ｎ){ 代入ｍ:(ｎ) } 更新:(城::城Ａ.現鉱山)(ｍ) 代入ｓ:(ｓ)-(3000) 更新:(人物::主人公.貯金)(ｓ) ＳＥループ:(鉱山・鉱脈採掘音) ウェイト:(2) ＳＥストップ:(鉱山・鉱脈採掘音) ナレーション:[[<城Ａ>城の鉱山が<ｇ>上昇し\n<ｍ>となりました]] 代入ｕ:(ｇ) 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] 更新:(人物::人物Ａ.留守フラグ)(留守) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) } ナレーション可否選択:[[鉱山開発を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//鉱山開発〆 分岐:([[治安向上]]){ ナレーション:[[<大名家Ａ>の城の治安向上を行います\n貯金を３千貫消費します]] ループ:{ 代入ｙ:(0) ループ:{ 代入ｑ:(0) ナレーション:[[治安を向上させる城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,戦闘フラグ,戦闘中) コンテナ選択:(城Ａ,拠点選択) 分岐:(真){ 代入ｓ:(人物::主人公.貯金) 代入ｍ:(城::城Ａ.住民安定度) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,留守フラグ,留守) 代入ｌ:(コンテナカウンタ) ＡＮＤ調査:{ 調査:(ｍ)<(100) 調査:(ｌ)>(0) 調査:(ｓ)>(3000) } 分岐:(真){ ナレーション:[[<城Ａ>城、住民安定度<ｍ>\n貯金残高は<ｓ>貫です]] ナレーション可否選択:[[この城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション:[[<城Ａ>城はこれ以上治安が上げられないか\n治安向上を行える武将がいません\nまたは、貯金が不足しています]] ナレーション可否選択:[[治安向上を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n治安向上を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) ループ:{ 代入ｑ:(0) ナレーション:[[治安向上を行う武将を選択してください]] メッセージ閉じる: コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｇ:(人物::人物Ａ.武芸技能) 代入ｈ:(人物::人物Ａ.弁舌技能) 代入ｊ:(人物::人物Ａ.魅力) ナレーション可否選択:[[<人物Ａ>、魅力<ｊ>\n武芸技能<ｇ>、弁舌技能<ｈ>です\nこの武将でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n武将の選択を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｙ)==(0){ 代入ｊ:(ｊ)/(20) 代入ｇ:(ｇ)+(ｈ) 代入ｇ:(ｇ)*(2) 代入ｇ:(Ｒｎｄ)%(ｇ) 代入ｇ:(ｇ)+(ｊ) 代入ｍ:(ｇ)+(ｍ) 更新:(城::城Ａ.住民安定度)(ｍ) 代入ｍ:(城::城Ａ.住民安定度) 代入ｓ:(ｓ)-(3000) 更新:(人物::主人公.貯金)(ｓ) ＳＥループ:(魅了する) ウェイト:(2) ＳＥストップ:(魅了する) ナレーション:[[<城Ａ>城の住民安定度が<ｇ>上昇し\n<ｍ>となりました]] 代入ｕ:(ｇ) 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] 更新:(人物::人物Ａ.留守フラグ)(留守) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) } ナレーション可否選択:[[治安向上を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//治安向上〆 分岐:([[訓練]]){ ナレーション:[[<大名家Ａ>の城の訓練を行います]] ループ:{ 代入ｙ:(0) ループ:{ 代入ｑ:(0) ナレーション:[[訓練を行う城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,戦闘フラグ,戦闘中) コンテナ選択:(城Ａ,拠点選択) 分岐:(真){ 代入ｍ:(城::城Ａ.訓練度) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,留守フラグ,留守) 代入ｌ:(コンテナカウンタ) ＡＮＤ調査:{ 調査:(ｍ)<(100) 調査:(ｌ)>(0) } 分岐:(真){ ナレーション可否選択:[[<城Ａ>城、訓練度<ｍ>です\nこの城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション:[[<城Ａ>城はこれ以上訓練できないか\n訓練ができる武将がいません]] ナレーション可否選択:[[訓練を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n訓練を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) ループ:{ 代入ｑ:(0) ナレーション:[[訓練を行う武将を選択してください]] メッセージ閉じる: コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｆ:(人物::人物Ａ.足軽技能) 代入ｇ:(人物::人物Ａ.騎馬技能) 代入ｈ:(人物::人物Ａ.水軍技能) 代入ｊ:(人物::人物Ａ.鉄砲技能) 代入ｋ:(人物::人物Ａ.弓術技能) 代入ｇ:(ｇ)+(ｆ) 代入ｇ:(ｇ)+(ｈ) 代入ｇ:(ｇ)+(ｊ) 代入ｇ:(ｇ)+(ｋ) ナレーション可否選択:[[<人物Ａ>、足軽、騎馬、水軍\n鉄砲、弓術の各技能の合計値は<ｇ>です\nこの武将でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n武将の選択を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｙ)==(0){ 代入ｇ:(Ｒｎｄ)%(ｇ) 代入ｇ:(ｇ)+(1) 代入ｍ:(ｇ)+(ｍ) 更新:(城::城Ａ.訓練度)(ｍ) 代入ｍ:(城::城Ａ.訓練度) ＳＥループ:(突撃) ウェイト:(2) ＳＥストップ:(突撃) ナレーション:[[<城Ａ>城の訓練度が<ｇ>上昇し\n<ｍ>となりました]] 代入ｕ:(ｇ)/(2) 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] 更新:(人物::人物Ａ.留守フラグ)(留守) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) } ナレーション可否選択:[[訓練を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//訓練〆 分岐:([[補修]]){ ナレーション:[[<大名家Ａ>の城の補修を行います\n貯金を３千貫消費します]] ループ:{ 代入ｙ:(0) ループ:{ 代入ｑ:(0) ナレーション:[[補修を行う城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,戦闘フラグ,戦闘中) コンテナ選択:(城Ａ,拠点選択) 分岐:(真){ 代入ｓ:(人物::主人公.貯金) 代入ｍ:(城::城Ａ.防御度) 代入ｎ:(城::城Ａ.規模) 代入ｎ:(ｎ)*(8) 代入ｐ:(ｎ)-(ｍ) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) 代入ｌ:(コンテナカウンタ) ＡＮＤ調査:{ 調査:(ｐ)>(0) 調査:(ｌ)>(0) 調査:(ｓ)>(3000) } 分岐:(真){ ナレーション:[[<城Ａ>城、防御度<ｍ>\n貯金残高は<ｓ>貫です]] ナレーション可否選択:[[この城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション:[[<城Ａ>城はこれ以上防御度が上げられないか\nまたは、貯金が不足しています]] ナレーション可否選択:[[補修を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n補修を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) ループ:{ 代入ｑ:(0) ナレーション:[[補修を行う武将を選択してください]] メッセージ閉じる: コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｇ:(人物::人物Ａ.建築技能) 代入ｈ:(人物::人物Ａ.知謀) ナレーション可否選択:[[<人物Ａ>\n知謀<ｈ>、建築技能<ｇ>\nこの武将でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n武将の選択を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｙ)==(0){ 代入ｈ:(ｈ)/(10) 代入ｇ:(ｇ)*(2) 代入ｇ:(Ｒｎｄ)%(ｇ) 代入ｇ:(ｇ)+(ｈ) 代入ｍ:(ｇ)+(ｍ) 更新:(城::城Ａ.防御度)(ｍ) 代入ｍ:(城::城Ａ.防御度) 代入ｓ:(ｓ)-(3000) 更新:(人物::主人公.貯金)(ｓ) ＳＥループ:(建設工事音（商人司）) ウェイト:(2) ＳＥストップ:(建設工事音（商人司）) ナレーション:[[<城Ａ>城の防御度が<ｇ>上昇し\n<ｍ>となりました]] 代入ｕ:(ｇ) 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] 更新:(人物::人物Ａ.留守フラグ)(留守) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) } ナレーション可否選択:[[補修を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//補修〆 分岐:([[増築]]){ ナレーション:[[<大名家Ａ>の城の増築を行います\n貯金を３千貫消費します]] ループ:{ 代入ｙ:(0) ループ:{ 代入ｑ:(0) ナレーション:[[増築を行う城を選択してください]] メッセージ閉じる: コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,戦闘フラグ,戦闘中) コンテナ選択:(城Ａ,拠点選択) 分岐:(真){ 代入ｓ:(人物::主人公.貯金) 代入ｍ:(城::城Ａ.規模) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,手代) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) 代入ｌ:(コンテナカウンタ) ＡＮＤ調査:{ 調査:(ｍ)<(30) 調査:(ｌ)>(0) 調査:(ｓ)>(10000) } 分岐:(真){ ナレーション:[[<城Ａ>城、規模<ｍ>\n貯金残高は<ｓ>貫です]] ナレーション可否選択:[[この城でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション:[[<城Ａ>城はこれ以上増築できないか\n増築を行える武将がいません\nまたは、貯金が不足しています]] ナレーション可否選択:[[増築を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n増築を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) ループ:{ 代入ｑ:(0) ナレーション:[[増築を行う武将を選択してください]] メッセージ閉じる: コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,手代) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｇ:(人物::人物Ａ.建築技能) 代入ｈ:(人物::人物Ａ.知謀) 代入ｊ:(人物::人物Ａ.政務) ナレーション可否選択:[[<人物Ａ>\n知謀<ｈ>、政務<ｊ>、建築技能<ｇ>\nこの武将でよろしいですか？]] ブロック脱出:(否) 代入ｑ:(1) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n武将の選択を続けますか？]] ブロック脱出:(可) 代入ｑ:(1) 代入ｙ:(1) } 調査:(ｑ)==(1) ブロック脱出:(真) }//ループ〆 条件ブロック:(ｙ)==(0){ 代入ｎ:(ｇ)*(10) 代入ｎ:(ｎ)+(ｈ) 代入ｎ:(ｎ)+(ｊ) 代入ｎ:(ｎ)/(3) 調査:(Ｒｎｄ１００)<(ｎ) 分岐:(真){ 代入ｇ:(Ｒｎｄ)%(ｇ) 代入ｇ:(ｇ)+(1) 代入ｍ:(ｇ)+(ｍ) 更新:(城::城Ａ.規模)(ｍ) 代入ｍ:(城::城Ａ.規模) 代入ｓ:(ｓ)-(3000) 更新:(人物::主人公.貯金)(ｓ) ＳＥループ:(建設工事音（商人司）) ウェイト:(2) ＳＥストップ:(建設工事音（商人司）) ナレーション:[[<城Ａ>城の規模が<ｇ>上昇し\n<ｍ>となりました]] 代入ｕ:(ｇ)*(4) 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] } 分岐:(偽){ ＳＥループ:(建設工事音（商人司）) ウェイト:(2) ＳＥストップ:(建設工事音（商人司）) ＳＥスタート:(残念な音) ナレーション:[[<城Ａ>城の増築に失敗しました]] 代入ｓ:(ｓ)-(3000) 更新:(人物::主人公.貯金)(ｓ) } 更新:(人物::人物Ａ.留守フラグ)(留守) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) } ナレーション可否選択:[[増築を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//増築〆 分岐:([[内政終了]]){ 代入ｘ:(1) }//内政終了〆 } 分岐:(偽){ ナレーション:[[内政を行える城が存在しないか\n内政を行える武将がいません]] 代入ｘ:(1) } 調査:(ｘ)==(1) ブロック脱出:(真) }//ループ〆 }//内政〆 分岐:([[外交]]){ ループ:{ 代入ｘ:(0) 選択:[[朝廷]][[親善]][[寄付]][[外交終了]] 分岐:([[朝廷]]){ 代入ｒ:(大名家::大名家Ａ.朝廷貢献度) ナレーション:[[貯金から３千貫を朝廷に寄付し\n<大名家Ａ>の朝廷貢献度を上げます\n（<大名家Ａ>の朝廷貢献度は<ｒ>）]] ループ:{ 代入ｙ:(0) 代入ｌ:(人物::主人公.貯金) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,手代) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) 代入ｈ:(コンテナカウンタ) ＡＮＤ調査:{ 調査:(ｌ)>=(3000) 調査:(ｈ)>(0) 調査:(ｒ)<(255) } 分岐:(真){ ループ:{ 代入ｗ:(0) ナレーション:[[朝廷に派遣する武将を選択してください]] メッセージ閉じる: コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｎ:(人物::人物Ａ.礼法技能) 代入ｍ:(人物::人物Ａ.算術技能) ナレーション可否選択:[[派遣する武将は<人物Ａ>\n礼法技能<ｎ>、算術技能<ｍ>です\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) 更新:(人物::人物Ａ.留守フラグ)(留守) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) 代入ｌ:(ｌ)-(3000) 更新:(人物::主人公.貯金)(ｌ) 代入ｐ:(Ｒｎｄ)%(ｍ) 代入ｐ:(ｐ)+(1) 代入ｑ:(ｎ)*(4) 代入ｐ:(ｐ)+(ｑ) 代入ｒ:(ｒ)+(ｐ) 条件ブロック:(ｒ)>(255){ 代入ｒ:(255) } 更新:(大名家::大名家Ａ.朝廷貢献度)(ｒ) ウェイト:(1) ＳＥスタート:(レベルアップ) ナレーション:[[<大名家Ａ>の朝廷貢献度が\n<ｐ>上がって<ｒ>になりました]] 代入ｕ:(ｐ) 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n派遣武将の選択を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 } 分岐:(偽){ ナレーション:[[貯金が不足しているか\n派遣できる武将がいません\nもしくは、朝廷貢献度はすでに最大値です]] 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) ナレーション可否選択:[[朝廷を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//朝廷〆 分岐:([[親善]]){ ナレーション:[[貯金から３千貫を他勢力に贈与し\n<大名家Ａ>との外交感情を改善します]] ナレーション:[[成功確率は交渉に派遣する武将の\n礼法技能と茶道技能に左右されます]] ループ:{ 代入ｙ:(0) 代入ｌ:(人物::主人公.貯金) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) 代入ｈ:(コンテナカウンタ) コンテナ複写:(退避) ＡＮＤ調査:{ 調査:(ｌ)>=(3000) 調査:(ｈ)>(0) } 分岐:(真){ ループ:{ 代入ｗ:(0) コンテナ設定:(拠点,無効,無効) コンテナ除外:(拠点,拠点種類,町) ナレーション:[[親善を行う勢力を選択してください]] メッセージ閉じる: コンテナ選択:(拠点Ｂ,拠点選択) 分岐:(真){ 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(城){ 代入城Ｂ:(拠点Ｂ) 代入勢力Ｂ:(城::城Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(里){ 代入里Ｂ:(拠点Ｂ) 代入勢力Ｂ:(里::里Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(砦){ 代入砦Ｂ:(拠点Ｂ) 代入勢力Ｂ:(砦::砦Ｂ.所属勢力) } 条件ブロック:(勢力Ａ)==(勢力Ｂ){ ナレーション:[[<拠点Ｂ>は<大名家Ａ>の城です]] 代入ｗ:(2) } 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｈ:(大名家::大名家Ａ.外交感情(勢力Ｂ)) 調査:(ｈ)==(0) 分岐:(真){ 文字列設定:(文字列Ａ)[[絶交]] } 調査:(ｈ)==(1) 分岐:(真){ 文字列設定:(文字列Ａ)[[険悪]] } 調査:(ｈ)==(2) 分岐:(真){ 文字列設定:(文字列Ａ)[[敵視]] } 調査:(ｈ)==(3) 分岐:(真){ 文字列設定:(文字列Ａ)[[普通]] } 調査:(ｈ)==(4) 分岐:(真){ 文字列設定:(文字列Ａ)[[良好]] } 調査:(ｈ)==(5) 分岐:(真){ 文字列設定:(文字列Ａ)[[友好]] } 調査:(ｈ)==(6) 分岐:(真){ ナレーション:[[<勢力Ｂ>は盟友です\nこれ以上外交感情を改善できません]] 代入ｗ:(2) } 条件ブロック:(ｗ)==(0){ ナレーション可否選択:[[<勢力Ｂ>、外交感情は<文字列Ａ>です\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n親善を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) 代入ｙ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) コンテナ複写:(復帰) ループ:{ 代入ｗ:(0) ナレーション:[[交渉に派遣する武将を選択してください]] メッセージ閉じる: コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｎ:(人物::人物Ａ.礼法技能) 代入ｍ:(人物::人物Ａ.茶道技能) ナレーション可否選択:[[派遣する武将は<人物Ａ>\n礼法技能<ｎ>、茶道技能<ｍ>です\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) 更新:(人物::人物Ａ.留守フラグ)(留守) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) 代入ｌ:(ｌ)-(3000) 更新:(人物::主人公.貯金)(ｌ) 代入ｐ:(ｍ)+(ｎ) 代入ｐ:(ｐ)*(10) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 代入ｈ:(ｈ)+(1) 更新:(大名家::大名家Ａ.外交感情(勢力Ｂ))(ｈ) 調査:(ｈ)==(6) 分岐:(真){ 文字列設定:(文字列Ｂ)[[盟友]] } 調査:(ｈ)==(5) 分岐:(真){ 文字列設定:(文字列Ｂ)[[友好]] } 調査:(ｈ)==(4) 分岐:(真){ 文字列設定:(文字列Ｂ)[[良好]] } 調査:(ｈ)==(3) 分岐:(真){ 文字列設定:(文字列Ｂ)[[普通]] } 調査:(ｈ)==(2) 分岐:(真){ 文字列設定:(文字列Ｂ)[[敵視]] } 調査:(ｈ)==(1) 分岐:(真){ 文字列設定:(文字列Ｂ)[[険悪]] } ＳＥスタート:(忍者報告) 会話:(忍者,主人公)[[親善は成功した模様です]] ＳＥスタート:(プレイヤー勝利) ナレーション:[[<大名家Ａ>と<勢力Ｂ>の外交感情が\n<文字列Ａ>から<文字列Ｂ>になりました]] 代入ｕ:(10) 代入ｏ:(ｏ)+(ｕ)//貢献度上昇 条件ブロック:(ｏ)>(ｉ){ 代入ｏ:(ｉ) } ナレーション:[[貢献度が<ｕ>上昇し\n<ｏ>／<ｉ>になりました]] 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(城){ 代入人物Ｂ:(勢力::勢力Ｂ.当主) 代入城Ｃ:(人物::人物Ｂ.所属拠点) 代入ｈ:(城::城Ｃ.軍資金) 代入ｈ:(ｈ)+(3000) 更新:(城::城Ｃ.軍資金)(ｈ) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(里){ 代入人物Ｂ:(勢力::勢力Ｂ.当主) 代入里Ｃ:(人物::人物Ｂ.所属拠点) 代入ｈ:(里::里Ｃ.軍資金) 代入ｈ:(ｈ)+(3000) 更新:(里::里Ｃ.軍資金)(ｈ) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(砦){ 代入人物Ｂ:(勢力::勢力Ｂ.当主) 代入砦Ｃ:(人物::人物Ｂ.所属拠点) 代入ｈ:(砦::砦Ｃ.軍資金) 代入ｈ:(ｈ)+(3000) 更新:(砦::砦Ｃ.軍資金)(ｈ) } } 分岐:(偽){ ＳＥスタート:(忍者報告) 会話:(忍者,主人公)[[親善に失敗した模様です]] ＳＥスタート:(残念な音) ナレーション:[[<大名家Ａ>と<勢力Ｂ>の外交感情に\n変化は見られませんでした]] 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(城){ 代入人物Ｂ:(勢力::勢力Ｂ.当主) 代入城Ｃ:(人物::人物Ｂ.所属拠点) 代入ｈ:(城::城Ｃ.軍資金) 代入ｈ:(ｈ)+(3000) 更新:(城::城Ｃ.軍資金)(ｈ) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(里){ 代入人物Ｂ:(勢力::勢力Ｂ.当主) 代入里Ｃ:(人物::人物Ｂ.所属拠点) 代入ｈ:(里::里Ｃ.軍資金) 代入ｈ:(ｈ)+(3000) 更新:(里::里Ｃ.軍資金)(ｈ) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(砦){ 代入人物Ｂ:(勢力::勢力Ｂ.当主) 代入砦Ｃ:(人物::人物Ｂ.所属拠点) 代入ｈ:(砦::砦Ｃ.軍資金) 代入ｈ:(ｈ)+(3000) 更新:(砦::砦Ｃ.軍資金)(ｈ) } } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n派遣武将の選択を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 } 分岐:(偽){ ナレーション:[[貯金が不足しているか\n親善を行える武将がいません]] 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) ナレーション可否選択:[[親善を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//親善〆 分岐:([[寄付]]){ ナレーション:[[貯金を寺に寄付し\n<人物Ｅ>の悪名を下げます\n１万貫以上の貯金が必要です]] ループ:{ 代入ｙ:(0) 代入ｇ:(人物::主人公.貯金) 代入ｈ:(人物::人物Ｅ.悪名) 調査:(ｇ)>=(10000) 分岐:(真){ ナレーション選択:[[寄付する金額を決定してください\n（貯金残高は<ｇ>貫、悪名は<ｈ>）]] 選択:[[１万貫]][[５千貫]][[３千貫]][[やめる]] 分岐:([[１万貫]]){ 代入ｇ:(ｇ)-(10000) 代入ｊ:(15) } 分岐:([[５千貫]]){ 代入ｇ:(ｇ)-(5000) 代入ｊ:(10) } 分岐:([[３千貫]]){ 代入ｇ:(ｇ)-(3000) 代入ｊ:(5) } 分岐:([[やめる]]){ 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) 更新:(人物::主人公.貯金)(ｇ) 代入ｊ:(Ｒｎｄ)%(ｊ) 代入ｊ:(ｊ)+(5) 代入ｈ:(ｈ)-(ｊ) 条件ブロック:(ｈ)<(0){ 代入ｈ:(0) } 更新:(人物::人物Ｅ.悪名)(ｈ) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) ＳＥスタート:(プレイヤー勝利) ナレーション:[[<人物Ｅ>の悪名が<ｊ>下がって\n<ｈ>となりました]] } 分岐:(偽){ ナレーション:[[貯金残高が不足しています]] 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) ナレーション可否選択:[[寄付を続けますか？\n（貯金残高<ｇ>貫、悪名<ｈ>）]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//寄付〆 分岐:([[外交終了]]){ 代入ｘ:(1) }//外交終了〆 調査:(ｘ)==(1) ブロック脱出:(真) }//外交ループ〆 }//外交〆 分岐:([[計略]]){ ループ:{ 代入ｘ:(0) 選択:[[離間]][[同盟破棄]][[計略終了]] 分岐:([[離間]]){ ナレーション:[[他勢力間の外交感情を悪化させます\n貢献度は上昇しません]] ナレーション:[[成功確率は派遣する武将の\n知謀と弁舌技能に左右されます]] ループ:{ 代入ｙ:(0) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) 代入ｈ:(コンテナカウンタ) コンテナ複写:(退避) ＡＮＤ調査:{ 調査:(ｈ)>(0) } 分岐:(真){ ループ:{ 代入ｗ:(0) コンテナ設定:(拠点,無効,無効) コンテナ除外:(拠点,拠点種類,町) ナレーション:[[離間を行う勢力を選択してください]] メッセージ閉じる: コンテナ選択:(拠点Ｂ,拠点選択) 分岐:(真){ 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(城){ 代入城Ｂ:(拠点Ｂ) 代入勢力Ｂ:(城::城Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(里){ 代入里Ｂ:(拠点Ｂ) 代入勢力Ｂ:(里::里Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(砦){ 代入砦Ｂ:(拠点Ｂ) 代入勢力Ｂ:(砦::砦Ｂ.所属勢力) } ループ:{ 代入ｗ:(0) コンテナ設定:(拠点,無効,無効) コンテナ除外:(拠点,拠点種類,町) ナレーション:[[もう一方の勢力を選択してください\n（離間対象は<勢力Ｂ>）]] メッセージ閉じる: コンテナ選択:(拠点Ｂ,拠点選択) 分岐:(真){ 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(城){ 代入城Ｂ:(拠点Ｂ) 代入勢力Ｃ:(城::城Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(里){ 代入里Ｂ:(拠点Ｂ) 代入勢力Ｃ:(里::里Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(砦){ 代入砦Ｂ:(拠点Ｂ) 代入勢力Ｃ:(砦::砦Ｂ.所属勢力) } 条件ブロック:(勢力Ｂ)==(勢力Ｃ){ ナレーション:[[<拠点Ｂ>は<勢力Ｂ>の拠点です]] 代入ｗ:(2) } 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｈ:(勢力::勢力Ｃ.外交感情(勢力Ｂ)) 調査:(ｈ)==(0) 分岐:(真){ ナレーション:[[<勢力Ｂ>と<勢力Ｃ>は\n既に絶交状態にあります]] 代入ｗ:(2) } 調査:(ｈ)==(1) 分岐:(真){ 文字列設定:(文字列Ａ)[[険悪]] } 調査:(ｈ)==(2) 分岐:(真){ 文字列設定:(文字列Ａ)[[敵視]] } 調査:(ｈ)==(3) 分岐:(真){ 文字列設定:(文字列Ａ)[[普通]] } 調査:(ｈ)==(4) 分岐:(真){ 文字列設定:(文字列Ａ)[[良好]] } 調査:(ｈ)==(5) 分岐:(真){ 文字列設定:(文字列Ａ)[[友好]] } 調査:(ｈ)==(6) 分岐:(真){ 文字列設定:(文字列Ａ)[[盟友]] } 条件ブロック:(ｗ)==(0){ ナレーション可否選択:[[<勢力Ｂ>と<勢力Ｃ>、外交感情は<文字列Ａ>です\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) } 調査:(ｗ)==(2) ブロック脱出:(真) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n対象の選択を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) 代入ｙ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n離間を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) 代入ｙ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) コンテナ複写:(復帰) ループ:{ 代入ｗ:(0) ナレーション:[[計略を実行する武将を選択してください]] メッセージ閉じる: コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｎ:(人物::人物Ａ.知謀) 代入ｍ:(人物::人物Ａ.弁舌技能) ナレーション可否選択:[[実行する武将は<人物Ａ>\n知謀<ｎ>、弁舌技能<ｍ>です\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) 更新:(人物::人物Ａ.留守フラグ)(留守) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) 代入人物Ｂ:(勢力::勢力Ｂ.当主) コンテナ設定:(人物,所属勢力,勢力Ｂ) コンテナ除外:(人物,人物番号,人物Ｂ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナソート:(人物,知謀,降順) コンテナ選択:(人物Ｃ,先頭) 分岐:(真){ 代入ｊ:(人物::人物Ｂ.知謀) 代入ｊ:(人物::人物Ｃ.知謀)+(ｊ) } 分岐:(偽){ 代入ｊ:(人物::人物Ｂ.知謀) 代入ｊ:(50)+(ｊ) } 代入人物Ｂ:(勢力::勢力Ｃ.当主) コンテナ設定:(人物,所属勢力,勢力Ｃ) コンテナ除外:(人物,人物番号,人物Ｃ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナソート:(人物,知謀,降順) コンテナ選択:(人物Ｃ,先頭) 分岐:(真){ 代入ｊ:(人物::人物Ｂ.知謀)+(ｊ) 代入ｊ:(人物::人物Ｃ.知謀)+(ｊ) } 分岐:(偽){ 代入ｊ:(人物::人物Ｂ.知謀)+(ｊ) 代入ｊ:(50)+(ｊ) } 代入ｊ:(ｊ)/(4) 代入ｐ:(0) 代入ｒ:(0) ループ:{ 代入ｒ:(ｒ)+(1) 代入ｋ:(Ｒｎｄ)%(10) 代入ｊ:(ｊ)+(ｋ) 条件ブロック:(ｎ)>(ｊ){ 代入ｐ:(1) } 調査:(ｒ)>(ｍ) ブロック脱出:(真) }//ループ〆 調査:(ｐ)==(1) 分岐:(真){ 代入ｈ:(ｈ)-(1) 更新:(勢力::勢力Ｃ.外交感情(勢力Ｂ))(ｈ) 調査:(ｈ)==(0) 分岐:(真){ 文字列設定:(文字列Ｂ)[[絶交]] } 調査:(ｈ)==(1) 分岐:(真){ 文字列設定:(文字列Ｂ)[[険悪]] } 調査:(ｈ)==(2) 分岐:(真){ 文字列設定:(文字列Ｂ)[[敵視]] } 調査:(ｈ)==(3) 分岐:(真){ 文字列設定:(文字列Ｂ)[[普通]] } 調査:(ｈ)==(4) 分岐:(真){ 文字列設定:(文字列Ｂ)[[良好]] } 調査:(ｈ)==(5) 分岐:(真){ 文字列設定:(文字列Ｂ)[[友好]] } ＳＥスタート:(忍者報告) 会話:(忍者,主人公)[[計略は成功した模様です]] ＳＥスタート:(プレイヤー勝利) ナレーション:[[<勢力Ｂ>と<勢力Ｃ>の外交感情が\n<文字列Ａ>から<文字列Ｂ>になりました]] } 分岐:(偽){ ＳＥスタート:(忍者報告) 会話:(忍者,主人公)[[計略に失敗した模様です]] ＳＥスタート:(残念な音) ナレーション:[[<勢力Ｂ>と<勢力Ｃ>の外交感情に\n変化は見られませんでした]] } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n武将の選択を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 } 分岐:(偽){ ナレーション:[[離間を行える武将がいません]] 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) ナレーション可否選択:[[離間を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//離間〆 分岐:([[同盟破棄]]){ ナレーション:[[他勢力間の同盟関係を破棄させます\n貢献度は上昇しません]] ナレーション:[[成功確率は派遣する武将の\n知謀と弁舌技能、対象勢力間の外交感情\nに左右されます]] ループ:{ 代入ｙ:(0) コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,見習い) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) 代入ｈ:(コンテナカウンタ) コンテナ複写:(退避) ＡＮＤ調査:{ 調査:(ｈ)>(0) } 分岐:(真){ ループ:{ 代入ｗ:(0) コンテナ設定:(拠点,無効,無効) コンテナ除外:(拠点,拠点種類,町) ナレーション:[[破棄を行う勢力を選択してください]] メッセージ閉じる: コンテナ選択:(拠点Ｂ,拠点選択) 分岐:(真){ 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(城){ 代入城Ｂ:(拠点Ｂ) 代入勢力Ｂ:(城::城Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(里){ 代入里Ｂ:(拠点Ｂ) 代入勢力Ｂ:(里::里Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(砦){ 代入砦Ｂ:(拠点Ｂ) 代入勢力Ｂ:(砦::砦Ｂ.所属勢力) } 条件ブロック:(勢力Ａ)==(勢力Ｂ){ ナレーション:[[<拠点Ｂ>は<大名家Ａ>の城です]] 代入ｗ:(2) } 調査:(ｗ)==(2) ブロック脱出:(真) ループ:{ 代入ｗ:(0) コンテナ設定:(拠点,無効,無効) コンテナ除外:(拠点,拠点種類,町) ナレーション:[[もう一方の勢力を選択してください\n（計略対象は<勢力Ｂ>）]] メッセージ閉じる: コンテナ選択:(拠点Ｂ,拠点選択) 分岐:(真){ 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(城){ 代入城Ｂ:(拠点Ｂ) 代入勢力Ｃ:(城::城Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(里){ 代入里Ｂ:(拠点Ｂ) 代入勢力Ｃ:(里::里Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(砦){ 代入砦Ｂ:(拠点Ｂ) 代入勢力Ｃ:(砦::砦Ｂ.所属勢力) } 条件ブロック:(勢力Ａ)==(勢力Ｃ){ ナレーション:[[<拠点Ｂ>は<大名家Ａ>の城です]] 代入ｗ:(2) } 条件ブロック:(勢力Ｂ)==(勢力Ｃ){ ナレーション:[[<拠点Ｂ>は<勢力Ｂ>の拠点です]] 代入ｗ:(2) } 調査:(ｗ)==(2) ブロック脱出:(真) 条件ブロック:(勢力::勢力Ｃ.外交同盟(勢力Ｂ))==(同盟なし){ ナレーション:[[<勢力Ｂ>と<勢力Ｃ>は\n同盟関係にありません]] 代入ｗ:(2) } 条件ブロック:(ｗ)==(0){ 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(絶交) 分岐:(真){ 文字列設定:(文字列Ａ)[[絶交]] } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(険悪) 分岐:(真){ 文字列設定:(文字列Ａ)[[険悪]] } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(敵視) 分岐:(真){ 文字列設定:(文字列Ａ)[[敵視]] } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(普通) 分岐:(真){ 文字列設定:(文字列Ａ)[[普通]] } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(良好) 分岐:(真){ 文字列設定:(文字列Ａ)[[良好]] } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(友好) 分岐:(真){ 文字列設定:(文字列Ａ)[[友好]] } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(盟友) 分岐:(真){ 文字列設定:(文字列Ａ)[[盟友]] } ナレーション可否選択:[[<勢力Ｂ>と<勢力Ｃ>、外交感情は<文字列Ａ>です\nこの勢力間の同盟関係を破棄させますか？]] ブロック脱出:(否) 代入ｗ:(1) } 調査:(ｗ)==(2) ブロック脱出:(真) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n対象の選択を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) 代入ｙ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n同盟破棄を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) 代入ｙ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 調査:(ｙ)==(1) ブロック脱出:(真) コンテナ複写:(復帰) ループ:{ 代入ｗ:(0) ナレーション:[[計略を実行する武将を選択してください]] メッセージ閉じる: コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｎ:(人物::人物Ａ.知謀) 代入ｍ:(人物::人物Ａ.弁舌技能) ナレーション可否選択:[[実行する武将は<人物Ａ>\n知謀<ｎ>、弁舌技能<ｍ>です\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) 更新:(人物::人物Ａ.留守フラグ)(留守) 更新:(イベントフラグ::真・御用商人：指示済み)(成立) 代入人物Ｂ:(勢力::勢力Ｂ.当主) コンテナ設定:(人物,所属勢力,勢力Ｂ) コンテナ除外:(人物,人物番号,人物Ｂ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナソート:(人物,知謀,降順) コンテナ選択:(人物Ｃ,先頭) 分岐:(真){ 代入ｊ:(人物::人物Ｂ.知謀) 代入ｊ:(人物::人物Ｃ.知謀)+(ｊ) } 分岐:(偽){ 代入ｊ:(人物::人物Ｂ.知謀) 代入ｊ:(50)+(ｊ) } 代入人物Ｂ:(勢力::勢力Ｃ.当主) コンテナ設定:(人物,所属勢力,勢力Ｃ) コンテナ除外:(人物,人物番号,人物Ｃ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナソート:(人物,知謀,降順) コンテナ選択:(人物Ｃ,先頭) 分岐:(真){ 代入ｊ:(人物::人物Ｂ.知謀)+(ｊ) 代入ｊ:(人物::人物Ｃ.知謀)+(ｊ) } 分岐:(偽){ 代入ｊ:(人物::人物Ｂ.知謀)+(ｊ) 代入ｊ:(50)+(ｊ) } 代入ｊ:(ｊ)/(4) 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(絶交) 分岐:(真){ 代入ｋ:(0) } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(険悪) 分岐:(真){ 代入ｋ:(5) } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(敵視) 分岐:(真){ 代入ｋ:(10) } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(普通) 分岐:(真){ 代入ｋ:(15) } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(良好) 分岐:(真){ 代入ｋ:(20) } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(友好) 分岐:(真){ 代入ｋ:(25) } 調査:(勢力::勢力Ｃ.外交感情(勢力Ｂ))==(盟友) 分岐:(真){ 代入ｋ:(30) } 代入ｐ:(0) 代入ｒ:(0) ループ:{ 代入ｒ:(ｒ)+(1) 代入ｋ:(Ｒｎｄ)%(ｋ) 代入ｊ:(ｊ)+(ｋ) 条件ブロック:(ｎ)>(ｊ){ 代入ｐ:(1) } 調査:(ｒ)>(ｍ) ブロック脱出:(真) }//ループ〆 調査:(ｐ)==(1) 分岐:(真){ 更新:(勢力::勢力Ｃ.外交同盟(勢力Ｂ))(同盟なし) ＳＥスタート:(忍者報告) 会話:(忍者,主人公)[[計略は成功した模様です]] ＳＥスタート:(プレイヤー勝利) ナレーション:[[<勢力Ｂ>と<勢力Ｃ>の同盟関係が\n同盟なしになりました]] } 分岐:(偽){ ＳＥスタート:(忍者報告) 会話:(忍者,主人公)[[計略に失敗した模様です]] ＳＥスタート:(残念な音) ナレーション:[[<勢力Ｂ>と<勢力Ｃ>の同盟関係に\n変化は見られませんでした]] } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n武将の選択を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 } 分岐:(偽){ ナレーション:[[計略を行える武将がいません]] 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) ナレーション可否選択:[[同盟破棄を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//破棄〆 分岐:([[計略終了]]){ 代入ｘ:(1) }//計略終了〆 調査:(ｘ)==(1) ブロック脱出:(真) }//ループ〆 }//計略〆 分岐:([[人物情報]]){ ナレーション:[[<大名家Ａ>の武将の情報を閲覧できます]] ループ:{ 代入ｘ:(0) コンテナ設定:(人物,所属大名家,大名家Ａ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナソート:(人物,身分,降順) コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 調査:(人物::人物Ａ.留守フラグ)==(留守) 分岐:(真){ 調査:(人物::人物Ａ.出撃フラグ)==(出撃中) 分岐:(真){ 文字列設定:(文字列Ｂ)[[出撃中]] } 分岐:(偽){ 文字列設定:(文字列Ｂ)[[留守]] } } 分岐:(偽){ 調査:(人物::人物Ａ.病気フラグ)==(病気) 分岐:(真){ 文字列設定:(文字列Ｂ)[[病気]] } 分岐:(偽){ 文字列設定:(文字列Ｂ)[[在宅]] } } ＯＲ調査:{ 調査:(人物::人物Ａ.身分)==(大名) 調査:(人物::人物Ａ.身分)==(国主) 調査:(人物::人物Ａ.身分)==(城主) } 分岐:(真){ 条件ブロック:(人物::人物Ａ.身分)==(大名){ 文字列設定:(文字列Ａ)[[大名]] } 条件ブロック:(人物::人物Ａ.身分)==(国主){ 文字列設定:(文字列Ａ)[[国主]] } 条件ブロック:(人物::人物Ａ.身分)==(城主){ 文字列設定:(文字列Ａ)[[城主]] } 代入城Ａ:(人物::人物Ａ.所属拠点) コンテナ設定:(城,城主,人物Ａ) 代入ｎ:(コンテナカウンタ) コンテナ設定:(人物,所属上司,人物Ａ) コンテナ絞り込み:(人物,出現フラグ,出現済み) 代入ｍ:(コンテナカウンタ) ナレーション:[[<人物Ａ>、<文字列Ａ>、居城<城Ａ>城\n所有城数<ｎ>、配下武将数<ｍ>\n（<人物Ａ>は現在、<文字列Ｂ>です）]] } 分岐:(偽){ 条件ブロック:(人物::人物Ａ.身分)==(家老){ 文字列設定:(文字列Ａ)[[家老]] } 条件ブロック:(人物::人物Ａ.身分)==(部将){ 文字列設定:(文字列Ａ)[[部将]] } 条件ブロック:(人物::人物Ａ.身分)==(侍大将){ 文字列設定:(文字列Ａ)[[侍大将]] } 条件ブロック:(人物::人物Ａ.身分)==(足軽大将){ 文字列設定:(文字列Ａ)[[足軽大将]] } 条件ブロック:(人物::人物Ａ.身分)==(足軽組頭){ 文字列設定:(文字列Ａ)[[足軽組頭]] } 代入城Ａ:(人物::人物Ａ.所属拠点) 代入人物Ｂ:(人物::人物Ａ.所属上司) 代入ｎ:(人物::人物Ａ.武士勲功) ナレーション:[[<人物Ａ>、<文字列Ａ>、武士勲功<ｎ>\n<城Ａ>城所属、<人物Ｂ>配下\n（<人物Ａ>は現在、<文字列Ｂ>です）]] } } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n人物情報を続けますか？]] ブロック脱出:(可) 代入ｘ:(1) } 調査:(ｘ)==(1) ブロック脱出:(真) } }//人物情報〆 分岐:([[関係を絶つ]]){ ナレーション可否選択:[[<勢力Ｅ>と<大名家Ａ>の関係を絶ちます\n以後、一切指示が出せなくなります\n関係を絶ちますか？]] ブロック脱出:(否) ひとりごと:[[<大名家Ａ>には以後\n独自の道を歩んで{もらう}ことに{しよう}]] 更新:(イベントフラグ::真・御用商人：支援大名家１)(0) 更新:(イベントフラグ::真・御用商人：支援大名家２)(0) 更新:(イベントフラグ::真・御用商人：支援大名家３)(0) 更新:(イベントフラグ::真・御用商人：支援大名家４)(0) 更新:(イベントフラグ::真・御用商人：支援大名家５)(0) 更新:(イベントフラグ::真・御用商人：支援大名家６)(0) 更新:(イベントフラグ::真・御用商人：支援大名家７)(0) 更新:(イベントフラグ::真・御用商人：支援大名家８)(0) 代入ｏ:(0)//貢献度初期化 更新:(イベントフラグ::真・御用商人：支援開始)(不成立) 更新:(イベントフラグ::真・御用商人：指示済み)(不成立) 更新:(イベントフラグ::真・御用商人：献策済み)(不成立) 代入ｚ:(1) } 分岐:([[指示終了]]){ 代入ｚ:(1) } 調査:(ｚ)==(1) ブロック脱出:(真) }//基本ループ〆 コンテナ設定:(人物,所属商家,商家Ｅ) コンテナ絞り込み:(人物,主命状態,主命なし) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ絞り込み:(人物,留守フラグ,留守) ループ:{ コンテナ選択:(人物Ａ,先頭) ブロック脱出:(偽) 更新:(人物::人物Ａ.留守フラグ)(在宅) コンテナ選抜:(削る,1) } 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度１)(ｂ)//ビット１セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度２)(ｂ)//ビット２セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度３)(ｂ)//ビット３セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度４)(ｂ)//ビット４セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度５)(ｂ)//ビット５セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度６)(ｂ)//ビット６セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度７)(ｂ)//ビット７セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度８)(ｂ)//ビット８セット }//スクリプト〆 }//イベント〆 イベント:真・御用商人：献策{ 属性:何度でも｜ひかえめ 発生契機:人物会話時(無効) 発生条件:{ 調査:(状況::場面)==(城主の間) 代入勢力Ｅ:(人物::主人公.所属勢力) 調査:(勢力::勢力Ｅ.勢力タイプ)==(商家) 代入商家Ｅ:(人物::主人公.所属商家) 調査:(イベントフラグ::真・御用商人：支援開始)==(成立) 調査:(イベントフラグ::真・御用商人：献策済み)==(不成立) 代入ａ:(0) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家８)*(128)//ビット８変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家７)*(64)//ビット７変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家６)*(32)//ビット６変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家５)*(16)//ビット５変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家４)*(8)//ビット４変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家３)*(4)//ビット３変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家２)*(2)//ビット２変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家１)*(1)//ビット１変換 代入ａ:(ａ)+(ｂ) //以上変数取り出し終了 代入大名家Ａ:(ａ)+(0) 代入人物Ｅ:(大名家::大名家Ａ.当主) 代入勢力Ａ:(人物::人物Ｅ.所属勢力) 代入人物Ｂ:(発生人物) 調査:(人物Ｅ)==(人物Ｂ) 調査:(人物::人物Ｅ.留守フラグ)==(在宅) 調査:(人物::人物Ｅ.病気フラグ)==(健康) 代入ｏ:(0)//貢献度 代入ｂ:(イベントフラグ::真・御用商人：貢献度８)*(128)//ビット８変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度７)*(64)//ビット７変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度６)*(32)//ビット６変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度５)*(16)//ビット５変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度４)*(8)//ビット４変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度３)*(4)//ビット３変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度２)*(2)//ビット２変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度１)*(1)//ビット１変換 代入ｏ:(ｏ)+(ｂ) //以上変数取り出し終了 調査:(ｏ)>=(5) }//条件〆 スクリプト:{ ひとりごと:[[今月はまだ\n{人物Ｅ.名前}に献策をして{いない}{な}]] ひとりごと可否選択:[[{人物Ｅ.名前}に献策{いたす}か？\n（現在の貢献度は<ｏ>）]] ブロック脱出:(否) 代入ｚ:(0)//ループ脱出フラグ ループ:{//基本ループ ひとりごと選択:[[何を献策{いたす}か\n（現在の貢献度は<ｏ>）]] 選択:[[人事]][[外交]][[戦略変更]][[献策終了]] 分岐:([[人事]]){ ループ:{ 代入ｘ:(0) ひとりごと選択:[[何を献策{いたす}か\n（現在の貢献度は<ｏ>）]] 選択:[[武将異動]][[城主変更]][[本城移動]][[人事終了]] 分岐:([[武将異動]]){ ループ:{ 代入ｙ:(0) コンテナ設定:(人物,所属大名家,大名家Ａ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,大名) コンテナ除外:(人物,身分,家老) コンテナ除外:(人物,身分,部将) コンテナ除外:(人物,身分,侍大将) コンテナ除外:(人物,身分,足軽大将) コンテナ除外:(人物,身分,足軽組頭) コンテナソート:(人物,身分,降順) コンテナ複写:(退避) 代入ｎ:(コンテナカウンタ) コンテナ設定:(人物,所属大名家,大名家Ａ) コンテナ除外:(人物,身分,大名) コンテナ除外:(人物,身分,国主) コンテナ除外:(人物,身分,城主) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ絞り込み:(人物,留守フラグ,在宅) コンテナソート:(人物,身分,降順) コンテナソート:(人物,所属拠点,昇順) 代入ｍ:(コンテナカウンタ) ＡＮＤ調査:{ 調査:(ｎ)>(0) 調査:(ｍ)>(0) } 分岐:(真){ ナレーション:[[武将の立場を変更します\n異動する武将を選択してください\n貢献度を５消費します]] メッセージ閉じる: コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 調査:(人物::人物Ａ.立場)==(直臣) 分岐:(真){ 代入ｗ:(0) ループ:{ ナレーション:[[<人物Ａ>を陪臣として派遣します\n派遣先の武将を選択してください]] コンテナ複写:(復帰) コンテナ選択:(人物Ｂ,人物選択) 分岐:(真){ コンテナ複写:(退避) コンテナ設定:(人物,所属上司,人物Ｂ) コンテナ絞り込み:(人物,出現フラグ,出現済み) 代入ｃ:(コンテナカウンタ) ナレーション可否選択:[[<人物Ｂ>には現在<ｃ>人の陪臣がいます\n派遣先は<人物Ｂ>でよろしいですか？]] ブロック脱出:(否) 代入ｗ:(1) 代入ｎ:(人物::人物Ａ.武士勲功) 人物解雇:(人物Ａ,京の町,出現済み) 更新:(人物::人物Ａ.武士勲功)(ｎ) 人物登用:(人物Ａ,陪臣,人物Ｂ) 更新:(人物::人物Ａ.武士勲功)(ｎ) 代入ｏ:(ｏ)-(5) 会話:(人物Ｅ,主人公)[[うむ、早速{人物Ａ.名前}を\n{人物Ｂ.名前}の下に派遣{いたす}]] ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n派遣先の選択を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ閉め } 分岐:(偽){ ナレーション可否選択:[[<人物Ａ>を<人物Ｅ>の直臣に戻します\nよろしいですか？]] ブロック脱出:(否) 代入ｎ:(人物::人物Ａ.武士勲功) 人物解雇:(人物Ａ,京の町,出現済み) 更新:(人物::人物Ａ.武士勲功)(ｎ) 人物登用:(人物Ａ,直臣,人物Ｅ) 更新:(人物::人物Ａ.武士勲功)(ｎ) 代入ｏ:(ｏ)-(5) 会話:(人物Ｅ,主人公)[[うむ、\n早速{人物Ａ.名前}を直臣と{いたす}]] ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) } } 分岐:(偽){ ナレーション:[[選択されていません]] } 調査:(ｏ)<(5) ブロック脱出:(真) ナレーション可否選択:[[武将異動を続けますか？]] ブロック脱出:(可) 代入ｙ:(1) } 分岐:(偽){ ナレーション:[[城主・国主が存在しないか\n異動できる武将がいません]] 代入ｙ:(1) } メッセージ閉じる: 調査:(ｏ)<(5) ブロック脱出:(真) 調査:(ｙ)==(1) ブロック脱出:(真) }//ループ〆 メッセージ閉じる: }//武将異動〆 分岐:([[城主変更]]){ 代入城Ｅ:(人物::人物Ｅ.所属拠点) コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,城番号,城Ｅ) コンテナ除外:(城,戦闘フラグ,戦闘中) 代入ｎ:(コンテナカウンタ) コンテナ設定:(人物,所属大名家,大名家Ａ) コンテナ除外:(人物,身分,部将) コンテナ除外:(人物,身分,侍大将) コンテナ除外:(人物,身分,足軽大将) コンテナ除外:(人物,身分,足軽組頭) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ絞り込み:(人物,留守フラグ,在宅) 代入ｍ:(コンテナカウンタ) ＡＮＤ調査:{ 調査:(ｎ)>(0) 調査:(ｍ)>(0) } 分岐:(真){ ループ:{ 代入城Ｅ:(人物::人物Ｅ.所属拠点) コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,戦闘フラグ,戦闘中) コンテナ除外:(城,城番号,城Ｅ) ナレーション:[[城主を変更します\n城主を変更する城を選択してください]] メッセージ閉じる: コンテナ選択:(城Ａ,拠点選択) 分岐:(真){ コンテナ設定:(人物,所属大名家,大名家Ａ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ絞り込み:(人物,所属拠点,城Ａ) コンテナ絞り込み:(人物,出撃フラグ,出撃中) 調査:(コンテナカウンタ)>(0) 分岐:(真){ ナレーション:[[<城Ａ>城から出撃中の武将がいるため\n<城Ａ>城は城主変更できませｎ]] } 分岐:(偽){ ナレーション:[[<城Ａ>城の城主にする人物を\n選択してください]] コンテナ設定:(人物,所属大名家,大名家Ａ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ除外:(人物,身分,部将) コンテナ除外:(人物,身分,侍大将) コンテナ除外:(人物,身分,足軽大将) コンテナ除外:(人物,身分,足軽組頭) コンテナ絞り込み:(人物,留守フラグ,在宅) コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 調査:(人物Ａ)==(人物Ｅ) 分岐:(真){ ナレーション可否選択:[[<城Ａ>城を直轄城にします\nよろしいですか？]] ブロック脱出:(否) 代入人物Ｂ:(城::城Ａ.城主) 調査:(人物Ｂ)==(人物Ａ) ブロック脱出:(真) 代入ｗ:(0) ループ:{ ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、<城Ａ>城は\n{二人称名前}が直接治めたほうが\nよいのでは{ない}か？]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<城Ａ>城は直轄と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 城主解任:(城Ａ) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n<城Ａ>城はこれまで通り\n{人物Ｂ.名前}に任せる]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) } 分岐:(偽){ ナレーション可否選択:[[<城Ａ>を<人物Ａ>に治めさせます\nよろしいですか？]] ブロック脱出:(否) 代入人物Ｂ:(城::城Ａ.城主) 調査:(人物Ｂ)==(人物Ａ) ブロック脱出:(真) 代入ｗ:(0) ループ:{ ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、\n<城Ａ>城は{人物Ａ.名前}に任せては\nどう{であろう}か？]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<城Ａ>城は{人物Ａ.名前}に任せよう]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 城主任命:(人物Ａ,城Ａ) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n<城Ａ>城はこれまで通り\n直轄と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) } } 分岐:(偽){ ナレーション:[[選択されていません]] } } } 分岐:(偽){ ナレーション:[[選択されていません]] } 調査:(ｏ)<(5) ブロック脱出:(真) ナレーション可否選択:[[城主変更を続けますか？]] ブロック脱出:(否) メッセージ閉じる: }//ループ〆 } 分岐:(偽){ ナレーション:[[城主に任命できる人物がいないか\n城主を変更できる城がありません]] } メッセージ閉じる: }//城主変更〆 分岐:([[本城移動]]){ 代入城Ｅ:(人物::人物Ｅ.所属拠点) コンテナ設定:(人物,所属拠点,城Ｅ) コンテナ絞り込み:(人物,出撃フラグ,出撃中) 代入ｎ:(コンテナカウンタ) コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,城番号,城Ｅ) コンテナ除外:(城,戦闘フラグ,戦闘中) コンテナ絞り込み:(城,城主,人物Ｅ) 代入ｍ:(コンテナカウンタ)>(0) ＡＮＤ調査:{ 調査:(ｎ)==(0) 調査:(ｍ)>(0) } 分岐:(真){ ループ:{ 代入ｙ:(0) ナレーション:[[本城を移動します\n移動先の城を選択してください]] メッセージ閉じる: コンテナ選択:(城Ａ,拠点選択) 分岐:(真){ ナレーション可否選択:[[<城Ａ>城に本城を移動します\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(0) ループ:{ ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n居城を<城Ａ>城に移したほうがよいので{ない}か？]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<城Ａ>城を居城と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 居城変更:(大名家Ａ,城Ａ) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\nこれまで通り\n<城Ｅ>城を居城と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n本城移動を続けますか？]] ブロック脱出:(可) 代入ｙ:(1) } メッセージ閉じる: 調査:(ｏ)<(5) ブロック脱出:(真) 調査:(ｙ)==(1) ブロック脱出:(真) }//ループ〆 } 分岐:(偽){ ナレーション:[[移動できる城が存在しないか\n出撃中の人物がいるため\n本城移動はできません]] メッセージ閉じる: } メッセージ閉じる: }//本城移動〆 分岐:([[人事終了]]){ 代入ｘ:(1) }//人事終了〆 調査:(ｏ)<(5) ブロック脱出:(真) 調査:(ｘ)==(1) ブロック脱出:(真) }//人事ループ〆 }//人事〆 分岐:([[外交]]){ ループ:{ 代入ｘ:(0) ひとりごと選択:[[何を献策{いたす}か\n（現在の貢献度は<ｏ>）]] 選択:[[同盟締結]][[同盟破棄]][[宣戦布告]][[外交終了]] 分岐:([[同盟締結]]){ ナレーション:[[他勢力と同盟・従属交渉を行います]] ナレーション:[[成功確率は交渉に派遣する武将の\n礼法技能と弁舌技能\n対象勢力との外交感情に左右されます]] ループ:{ 代入ｙ:(0) コンテナ設定:(人物,所属大名家,大名家Ａ) コンテナ除外:(人物,身分,足軽大将) コンテナ除外:(人物,身分,足軽組頭) コンテナ除外:(人物,出現フラグ,未出現) コンテナ除外:(人物,留守フラグ,留守) コンテナソート:(人物,身分,降順) 代入ｈ:(コンテナカウンタ) コンテナ複写:(退避) 調査:(ｈ)>(0) 分岐:(真){ 代入ｗ:(0) コンテナ設定:(拠点,無効,無効) コンテナ除外:(拠点,拠点種類,町) ナレーション:[[同盟・従属交渉を行う\n勢力を選択してください]] メッセージ閉じる: コンテナ選択:(拠点Ｂ,拠点選択) 分岐:(真){ 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(城){ 代入城Ｂ:(拠点Ｂ) 代入勢力Ｂ:(城::城Ｂ.所属勢力) 文字列設定:(文字列Ｂ)[[同盟]] } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(里){ 代入里Ｂ:(拠点Ｂ) 代入勢力Ｂ:(里::里Ｂ.所属勢力) 文字列設定:(文字列Ｂ)[[従属]] } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(砦){ 代入砦Ｂ:(拠点Ｂ) 代入勢力Ｂ:(砦::砦Ｂ.所属勢力) 文字列設定:(文字列Ｂ)[[従属]] } 条件ブロック:(勢力Ａ)==(勢力Ｂ){ ナレーション:[[<拠点Ｂ>は<大名家Ａ>の城です]] 代入ｗ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) ＯＲ調査:{ 調査:(大名家::大名家Ａ.外交同盟(勢力Ｂ))==(同盟) 調査:(大名家::大名家Ａ.外交同盟(勢力Ｂ))==(支配) 調査:(大名家::大名家Ａ.外交同盟(勢力Ｂ))==(従属) } 分岐:(真){ ナレーション:[[<勢力Ｂ>は既に<文字列Ｂ>関係にあります]] } 分岐:(偽){ 調査:(大名家::大名家Ａ.外交感情(勢力Ｂ))==(絶交) 分岐:(真){ 文字列設定:(文字列Ａ)[[絶交]] 代入ｌ:(30) } 調査:(大名家::大名家Ａ.外交感情(勢力Ｂ))==(険悪) 分岐:(真){ 文字列設定:(文字列Ａ)[[険悪]] 代入ｌ:(25) } 調査:(大名家::大名家Ａ.外交感情(勢力Ｂ))==(敵視) 分岐:(真){ 文字列設定:(文字列Ａ)[[敵視]] 代入ｌ:(20) } 調査:(大名家::大名家Ａ.外交感情(勢力Ｂ))==(普通) 分岐:(真){ 文字列設定:(文字列Ａ)[[普通]] 代入ｌ:(15) } 調査:(大名家::大名家Ａ.外交感情(勢力Ｂ))==(良好) 分岐:(真){ 文字列設定:(文字列Ａ)[[良好]] 代入ｌ:(10) } 調査:(大名家::大名家Ａ.外交感情(勢力Ｂ))==(友好) 分岐:(真){ 文字列設定:(文字列Ａ)[[友好]] 代入ｌ:(5) } 調査:(大名家::大名家Ａ.外交感情(勢力Ｂ))==(盟友) 分岐:(真){ 文字列設定:(文字列Ａ)[[盟友]] 代入ｌ:(0) } ナレーション可否選択:[[<勢力Ｂ>、外交感情は<文字列Ａ>です\nよろしいですか？]] ブロック脱出:(否) コンテナ複写:(復帰) ループ:{ ナレーション:[[交渉に派遣する武将を選択してください]] メッセージ閉じる: コンテナ選択:(人物Ａ,人物選択) 分岐:(真){ 代入ｎ:(人物::人物Ａ.礼法技能) 代入ｍ:(人物::人物Ａ.弁舌技能) ナレーション可否選択:[[派遣する武将は<人物Ａ>\n礼法技能<ｎ>、弁舌技能<ｍ>です\nよろしいですか？]] ブロック脱出:(否) 代入ｒ:(0) ループ:{ ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｒ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｒ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｒ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｒ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｒ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｒ:(1) } 分岐:([[やめる]]){ 代入ｒ:(2) 代入ｗ:(1) } 調査:(ｒ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｒ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n<勢力Ｂ>とは手を結んでおいたほうが\n良いと思うの{だ}が]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n<勢力Ｂ>と手を結ぶため\n{人物Ａ.名前}を派遣すると{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(人物::人物Ａ.留守フラグ)(留守) 代入ｌ:(Ｒｎｄ)%(ｌ) 代入ｐ:(ｍ)+(ｎ) 代入ｐ:(ｐ)*(10) 代入ｐ:(ｐ)-(ｌ) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ ＳＥスタート:(忍者報告) 会話:(忍者,主人公)[[<勢力Ｂ>は<文字列Ｂ>を\n承諾した模様{です}]] 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(城){ 更新:(大名家::大名家Ａ.外交同盟(勢力Ｂ))(同盟) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(里){ 代入忍者衆Ｂ:(里::里Ｂ.所属忍者衆) 調査:(忍者衆::忍者衆Ｂ.支持大名家)==(無効) 分岐:(真){ 更新:(大名家::大名家Ａ.外交同盟(忍者衆Ｂ))(支配) } 分岐:(偽){ 代入大名家Ｂ:(忍者衆::忍者衆Ｂ.支持大名家) 更新:(大名家::大名家Ｂ.外交同盟(忍者衆Ｂ))(同盟なし) 更新:(大名家::大名家Ａ.外交同盟(忍者衆Ｂ))(支配) } } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(砦){ 代入海賊衆Ｂ:(砦::砦Ｂ.所属海賊衆) 調査:(海賊衆::海賊衆Ｂ.支持大名家)==(無効) 分岐:(真){ 更新:(大名家::大名家Ａ.外交同盟(海賊衆Ｂ))(支配) } 分岐:(偽){ 代入大名家Ｂ:(海賊衆::海賊衆Ｂ.支持大名家) 更新:(大名家::大名家Ｂ.外交同盟(海賊衆Ｂ))(同盟なし) 更新:(大名家::大名家Ａ.外交同盟(海賊衆Ｂ))(支配) } } } 分岐:(偽){ ＳＥスタート:(忍者報告) 会話:(忍者,主人公)[[<勢力Ｂ>は<文字列Ｂ>を\n拒否した模様{です}]] } } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n<勢力Ｂ>との関係は\nこれまで通りで良い{であろう}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } 代入ｗ:(1) ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) } 分岐:(偽){ ナレーション可否選択:[[選択されていません\n武将の選択を続けますか？]] ブロック脱出:(可) 代入ｗ:(1) } 調査:(ｗ)==(1) ブロック脱出:(真) }//ループ〆 } } 分岐:(偽){ ナレーション:[[選択されていません]] } 調査:(ｏ)<(5) ブロック脱出:(真) ナレーション可否選択:[[同盟締結を続けますか？]] ブロック脱出:(可) 代入ｙ:(1) } 分岐:(偽){ ナレーション:[[交渉に派遣できる武将がいません]] 代入ｙ:(1) } 調査:(ｏ)<(5) ブロック脱出:(真) 調査:(ｙ)==(1) ブロック脱出:(真) }//ループ〆 メッセージ閉じる: }//締結〆 分岐:([[同盟破棄]]){ ナレーション:[[他勢力との同盟関係を破棄します]] ループ:{ 代入ｙ:(0) ナレーション:[[同盟関係を破棄する\n勢力を選択してください]] メッセージ閉じる: コンテナ設定:(拠点,無効,無効) コンテナ除外:(拠点,拠点種類,町) コンテナ選択:(拠点Ｂ,拠点選択) 分岐:(真){ 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(城){ 代入城Ｂ:(拠点Ｂ) 代入勢力Ｂ:(城::城Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(里){ 代入里Ｂ:(拠点Ｂ) 代入勢力Ｂ:(里::里Ｂ.所属勢力) } 条件ブロック:(拠点::拠点Ｂ.拠点種類)==(砦){ 代入砦Ｂ:(拠点Ｂ) 代入勢力Ｂ:(砦::砦Ｂ.所属勢力) } 条件ブロック:(勢力Ａ)==(勢力Ｂ){ ナレーション:[[<拠点Ｂ>は<大名家Ａ>の城です]] 代入ｙ:(1) } 調査:(ｙ)==(1) ブロック脱出:(真) ＯＲ調査:{ 調査:(大名家::大名家Ａ.外交同盟(勢力Ｂ))==(同盟) 調査:(大名家::大名家Ａ.外交同盟(勢力Ｂ))==(支配) 調査:(大名家::大名家Ａ.外交同盟(勢力Ｂ))==(従属) } 分岐:(真){ ナレーション可否選択:[[<勢力Ｂ>との同盟関係を破棄します\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(0) ループ:{ ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、今の情勢からすると\n<勢力Ｂ>とは手を切ったほうが\n良いので{ない}か？]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、当家は\n<勢力Ｂ>との関係を絶つ！]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.外交同盟(勢力Ｂ))(同盟なし) ナレーション:[[<勢力Ｂ>との同盟関係を破棄しました]] } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n<勢力Ｂ>とはこれまで通りの関係でよい]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) } 分岐:(偽){ ナレーション:[[<勢力Ｂ>とは同盟関係にありません]] } } 分岐:(偽){ ナレーション:[[選択されていません]] } 調査:(ｏ)<(5) ブロック脱出:(真) ナレーション可否選択:[[同盟破棄を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//破棄〆 分岐:([[宣戦布告]]){ ナレーション:[[他大名家と絶交します]] ループ:{ ナレーション:[[宣戦布告する大名家を選択してください]] メッセージ閉じる: コンテナ設定:(城,無効,無効) コンテナ除外:(城,所属大名家,大名家Ａ) コンテナ選択:(城Ｂ,拠点選択) 分岐:(真){ コンテナ複写:(退避) 代入大名家Ｂ:(城::城Ｂ.所属大名家) ＯＲ調査:{ 調査:(大名家::大名家Ａ.外交同盟(大名家Ｂ))==(同盟) 調査:(大名家::大名家Ａ.外交同盟(大名家Ｂ))==(支配) 調査:(大名家::大名家Ａ.外交同盟(大名家Ｂ))==(従属) } 分岐:(真){ ナレーション可否選択:[[<大名家Ｂ>とは同盟関係にあります\n同盟関係を破棄し宣戦布告します\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(0) ループ:{ ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、今の情勢からすると\n<大名家Ｂ>は今のうちに\n叩いておくべきかと…]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、当家は<大名家Ｂ>との関係を絶ち\n宣戦{いたす}！！]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.外交同盟(大名家Ｂ))(同盟なし) 更新:(大名家::大名家Ａ.外交感情(大名家Ｂ))(絶交) ナレーション:[[<大名家Ｂ>との同盟関係を破棄し\n絶交しました]] } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n<大名家Ｂ>とはこれまで通りの関係でよい]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) } 分岐:(偽){ ナレーション可否選択:[[<大名家Ｂ>に対し宣戦布告します\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(0) ループ:{ ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、今の情勢からすると\n<大名家Ｂ>は今のうちに\n叩いておくべきかと…]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n当家は<大名家Ｂ>に宣戦{いたす}！！]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.外交感情(大名家Ｂ))(絶交) ナレーション:[[<大名家Ｂ>と絶交しました]] } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n<大名家Ｂ>とはこれまで通りの関係でよい]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) } } 分岐:(偽){ ナレーション:[[選択されていません]] } 調査:(ｏ)<(5) ブロック脱出:(真) ナレーション可否選択:[[宣戦布告を続けますか？]] ブロック脱出:(否) }//ループ〆 メッセージ閉じる: }//宣戦〆 分岐:([[外交終了]]){ 代入ｘ:(1) }//外交終了〆 調査:(ｏ)<(5) ブロック脱出:(真) 調査:(ｘ)==(1) ブロック脱出:(真) }//外交ループ〆 }//外交〆 分岐:([[戦略変更]]){//この部分は、Ｘｉ４氏のスクリプトを使わせていただきました ループ:{ 代入ｙ:(0) 条件ブロック:(大名家::大名家Ａ.戦略)==(領土発展){ 文字列設定:(文字列Ａ)[[領土発展]] 文字列設定:(文字列Ｂ)[[なし]] } 条件ブロック:(大名家::大名家Ａ.戦略)==(領土守備){ 文字列設定:(文字列Ａ)[[領土守備]] 文字列設定:(文字列Ｂ)[[なし]] } 条件ブロック:(大名家::大名家Ａ.戦略)==(敵城攻略){ 文字列設定:(文字列Ａ)[[敵城攻略]] 代入城Ｂ:(大名家::大名家Ａ.戦略ターゲット) 文字列設定:(文字列Ｂ)[[<城Ｂ>城]] } 条件ブロック:(大名家::大名家Ａ.戦略)==(大名攻略){ 文字列設定:(文字列Ａ)[[大名攻略]] 代入大名家Ｂ:(大名家::大名家Ａ.戦略ターゲット) 文字列設定:(文字列Ｂ)[[<大名家Ｂ>]] } 条件ブロック:(大名家::大名家Ａ.戦略)==(国内統一){ 文字列設定:(文字列Ａ)[[国内統一]] 代入国Ｂ:(大名家::大名家Ａ.戦略ターゲット) 文字列設定:(文字列Ｂ)[[<国Ｂ>]] } 条件ブロック:(大名家::大名家Ａ.戦略)==(国内守備){ 文字列設定:(文字列Ａ)[[国内守備]] 代入国Ｂ:(大名家::大名家Ａ.戦略ターゲット) 文字列設定:(文字列Ｂ)[[<国Ｂ>]] } 条件ブロック:(大名家::大名家Ａ.戦略)==(地方統一){ 文字列設定:(文字列Ａ)[[地方統一]] 代入地方Ｂ:(大名家::大名家Ａ.戦略ターゲット) 文字列設定:(文字列Ｂ)[[<地方Ｂ>地方]] } 条件ブロック:(大名家::大名家Ａ.戦略)==(地方守備){ 文字列設定:(文字列Ａ)[[地方守備]] 代入地方Ｂ:(大名家::大名家Ａ.戦略ターゲット) 文字列設定:(文字列Ｂ)[[<地方Ｂ>地方]] } 条件ブロック:(大名家::大名家Ａ.戦略)==(天下統一){ 文字列設定:(文字列Ａ)[[天下統一]] 文字列設定:(文字列Ｂ)[[なし]] } 代入ａ:(0) 代入ｂ:(0) 代入ｃ:(0) 代入ｄ:(0) 代入ｅ:(0) ナレーション:[[<大名家Ａ>の戦略を変更します\n戦略を選択してください]] ひとりごと選択:[[現在の<大名家Ａ>の戦略方針は<文字列Ａ>\n戦略ターゲットは<文字列Ｂ>か…\nさて、どれに変更{しよう}か]] 選択:[[領土発展]][[領土守備]][[敵城攻略]][[大名攻略]][[国内統一]][[国内守備]][[地方統一]][[地方守備]][[天下統一]][[戦略変更終了]] 分岐:([[領土発展]]){//領土発展 文字列設定:(文字列Ｃ)[[領土発展]] ナレーション可否選択:[[戦略を<文字列Ｃ>に変更します\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(0) ループ:{ ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n戦略を<文字列Ｃ>と{いたす}のが\n賢明{であろう}]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<大名家Ａ>の戦略は\n<文字列Ｃ>と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.戦略)(領土発展) 更新:(大名家::大名家Ａ.戦略ターゲット)(-1) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n当家の戦略は\nこれまで通り<文字列Ａ>と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) }//領土発展〆 分岐:([[領土守備]]){//領土守備 文字列設定:(文字列Ｃ)[[領土守備]] ナレーション可否選択:[[戦略を<文字列Ｃ>に変更します\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(0) ループ:{ ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n戦略を<文字列Ｃ>と{いたす}のが\n賢明{であろう}]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<大名家Ａ>の戦略は\n<文字列Ｃ>と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.戦略)(領土守備) 更新:(大名家::大名家Ａ.戦略ターゲット)(-1) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n当家の戦略は\nこれまで通り<文字列Ａ>と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) }//領土守備〆 分岐:([[敵城攻略]]){//敵城攻略 文字列設定:(文字列Ｃ)[[敵城攻略]] ナレーション可否選択:[[戦略を<文字列Ｃ>に変更します\nよろしいですか？]] ブロック脱出:(否) コンテナ設定:(拠点,拠点種類,城) コンテナ除外:(城,所属大名家,大名家Ａ) ループ:{ ナレーション:[[敵城攻略の対象を選んでください]] コンテナ選択:(城Ａ,拠点選択) 分岐:(偽){ ナレーション:[[選択されていません\n戦略変更を中止します]] } ブロック脱出:(偽) 代入大名家Ｂ:(城::城Ａ.所属大名家) 調査:(大名家::大名家Ａ.外交同盟(大名家Ｂ))!=(同盟なし) 分岐:(真){ ナレーション:[[<城Ａ>城は\n同盟関係にある大名家の城です\n選択をやり直してください]] } 分岐:(偽){ 調査:(大名家::大名家Ａ.隣接大名家(大名家Ｂ))==(真) 分岐:(真){ 代入ｅ:(1) } 分岐:(偽){ コンテナ複写:(退避) コンテナ設定:(大名家,存在,真) コンテナ除外:(大名家,外交同盟(大名家Ａ),同盟なし) コンテナ除外:(大名家,外交同盟(大名家Ａ),無効) コンテナ除外:(大名家,隣接大名家(大名家Ａ),偽) ループ:{ 代入ｅ:(コンテナカウンタ) 調査:(ｅ)==(0) ブロック脱出:(真) コンテナ選択:(大名家Ｅ,先頭) 調査:(大名家::大名家Ｅ.隣接大名家(大名家Ｂ))==(偽) ブロック脱出:(偽) コンテナ選抜:(削る,1) } コンテナ複写:(復帰) } 調査:(ｅ)>(0) 分岐:(真){ 代入ｗ:(0) ループ:{ ナレーション可否選択:[[<文字列Ｃ>の対象は<城Ａ>城です\nよろしいですか]] 分岐:(否){ 代入ｅ:(0) 代入ｗ:(2) } ブロック脱出:(否) ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n戦略を<城Ａ>城攻略と{いたす}のが\n賢明{であろう}]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<大名家Ａ>の戦略は\n<城Ａ>城攻略と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.戦略)(敵城攻略) 更新:(大名家::大名家Ａ.戦略ターゲット)(城Ａ) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n当家の戦略は\nこれまで通り<文字列Ａ>と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) } 分岐:(偽){ ナレーション:[[<城Ａ>城は隣接大名家の城ではありません\n選択をやり直してください]] } } 調査:(ｅ)>(0) ブロック脱出:(真) } }//敵城攻略〆 分岐:([[大名攻略]]){//大名攻略 文字列設定:(文字列Ｃ)[[大名攻略]] ナレーション可否選択:[[戦略を<文字列Ｃ>に変更します\nよろしいですか？]] ブロック脱出:(否) コンテナ設定:(拠点,拠点種類,城) コンテナ除外:(城,所属大名家,大名家Ａ) ループ:{ ナレーション:[[大名攻略の対象を選んでください]] コンテナ選択:(城Ａ,拠点選択) 分岐:(偽){ ナレーション:[[選択されていません\n戦略変更を中止します]] } ブロック脱出:(偽) 代入大名家Ｂ:(城::城Ａ.所属大名家) 調査:(大名家::大名家Ａ.外交同盟(大名家Ｂ))!=(同盟なし) 分岐:(真){ ナレーション:[[<大名家Ｂ>とは同盟関係にあります\n選択をやり直してください]] } 分岐:(偽){ 調査:(大名家::大名家Ａ.隣接大名家(大名家Ｂ))==(真) 分岐:(真){ 代入ｅ:(1) } 分岐:(偽){ コンテナ複写:(退避) コンテナ設定:(大名家,存在,真) コンテナ除外:(大名家,外交同盟(大名家Ａ),同盟なし) コンテナ除外:(大名家,外交同盟(大名家Ａ),無効) コンテナ除外:(大名家,隣接大名家(大名家Ａ),偽) ループ:{ 代入ｅ:(コンテナカウンタ) 調査:(ｅ)==(0) ブロック脱出:(真) コンテナ選択:(大名家Ｅ,先頭) 調査:(大名家::大名家Ｅ.隣接大名家(大名家Ｂ))==(偽) ブロック脱出:(偽) コンテナ選抜:(削る,1) } コンテナ複写:(復帰) } 調査:(ｅ)>(0) 分岐:(真){ 代入ｗ:(0) ループ:{ ナレーション可否選択:[[<文字列Ｃ>の対象は<大名家Ｂ>です\nよろしいですか]] 分岐:(否){ 代入ｅ:(0) 代入ｗ:(2) } ブロック脱出:(否) ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n戦略を<大名家Ｂ>攻略と{いたす}のが\n賢明{であろう}]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<大名家Ａ>の戦略は\n<大名家Ｂ>攻略と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.戦略)(大名攻略) 更新:(大名家::大名家Ａ.戦略ターゲット)(大名家Ｂ) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n当家の戦略は\nこれまで通り<文字列Ａ>と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) } 分岐:(偽){ ナレーション:[[<大名家Ｂ>は隣接大名家ではありません\n選択をやり直してください]] } } 調査:(ｅ)>(0) ブロック脱出:(真) } }//大名攻略〆 分岐:([[国内統一]]){//国内統一 文字列設定:(文字列Ｃ)[[国内統一]] ナレーション可否選択:[[戦略を<文字列Ｃ>に変更します\nよろしいですか？]] ブロック脱出:(否) コンテナ設定:(拠点,拠点種類,城) コンテナ除外:(城,所属大名家,大名家Ａ) ループ:{ ナレーション:[[国内統一の対象を選んでください]] コンテナ選択:(城Ａ,拠点選択) 分岐:(偽){ ナレーション:[[選択されていません\n戦略変更を中止します]] } ブロック脱出:(偽) 代入大名家Ｂ:(城::城Ａ.所属大名家) 調査:(大名家::大名家Ａ.外交同盟(大名家Ｂ))!=(同盟なし) 分岐:(真){ ナレーション:[[<大名家Ｂ>とは同盟関係にあります\n選択をやり直してください]] } 分岐:(偽){ 調査:(大名家::大名家Ａ.隣接大名家(大名家Ｂ))==(真) 分岐:(真){ 代入ｅ:(1) } 分岐:(偽){ コンテナ複写:(退避) コンテナ設定:(大名家,存在,真) コンテナ除外:(大名家,外交同盟(大名家Ａ),同盟なし) コンテナ除外:(大名家,外交同盟(大名家Ａ),無効) コンテナ除外:(大名家,隣接大名家(大名家Ａ),偽) ループ:{ 代入ｅ:(コンテナカウンタ) 調査:(ｅ)==(0) ブロック脱出:(真) コンテナ選択:(大名家Ｅ,先頭) 調査:(大名家::大名家Ｅ.隣接大名家(大名家Ｂ))==(偽) ブロック脱出:(偽) コンテナ選抜:(削る,1) } コンテナ複写:(復帰) } 調査:(ｅ)>(0) 分岐:(真){ 代入国Ｂ:(城::城Ａ.所属国) 代入ｗ:(0) ループ:{ ナレーション可否選択:[[<文字列Ｃ>の対象は<国Ｂ>です\nよろしいですか]] 分岐:(否){ 代入ｅ:(0) 代入ｗ:(2) } ブロック脱出:(否) ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n戦略を<国Ｂ>統一と{いたす}のが\n賢明{であろう}]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<大名家Ａ>の戦略は\n<国Ｂ>統一と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.戦略)(国内統一) 更新:(大名家::大名家Ａ.戦略ターゲット)(国Ｂ) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n当家の戦略は\nこれまで通り<文字列Ａ>と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) } 分岐:(偽){ ナレーション:[[<大名家Ｂ>は隣接大名家ではありません\n選択をやり直してください]] } } 調査:(ｅ)>(0) ブロック脱出:(真) } }//国内統一〆 分岐:([[国内守備]]){//国内守備 文字列設定:(文字列Ｃ)[[国内守備]] ナレーション可否選択:[[戦略を<文字列Ｃ>に変更します\nよろしいですか？]] ブロック脱出:(否) コンテナ設定:(拠点,拠点種類,城) コンテナ絞り込み:(城,所属大名家,大名家Ａ) ナレーション:[[国内守備の対象を選んでください]] コンテナ選択:(城Ａ,拠点選択) 分岐:(真){ 代入国Ｂ:(城::城Ａ.所属国) 代入ｗ:(0) ループ:{ ナレーション可否選択:[[<文字列Ｃ>の対象は<国Ｂ>です\nよろしいですか]] 分岐:(否){ 代入ｗ:(2) } ブロック脱出:(否) ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n戦略を<国Ｂ>守備と{いたす}のが\n賢明{であろう}]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<大名家Ａ>の戦略は\n<国Ｂ>守備と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.戦略)(国内統一) 更新:(大名家::大名家Ａ.戦略ターゲット)(国Ｂ) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n当家の戦略は\nこれまで通り<文字列Ａ>と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) } 分岐:(偽){ ナレーション:[[選択されていません\n戦略変更を中止します]] } }//国内守備〆 分岐:([[地方統一]]){//地方統一 文字列設定:(文字列Ｃ)[[地方統一]] ナレーション可否選択:[[戦略を<文字列Ｃ>に変更します\nよろしいですか？]] ブロック脱出:(否) コンテナ設定:(拠点,拠点種類,城) コンテナ絞り込み:(城,所属大名家,大名家Ａ) ナレーション:[[地方統一の対象を選んでください]] コンテナ選択:(城Ａ,拠点選択) 分岐:(偽){ ナレーション:[[選択されていません\n戦略変更を中止します]] } ブロック脱出:(偽) 代入地方Ｂ:(城::城Ａ.所在地方) コンテナ設定:(城,所在地方,地方Ｂ) コンテナ除外:(城,所属大名家,大名家Ａ) コンテナソート:(城,所属大名家,降順) ループ:{ コンテナ選択:(城Ｂ,先頭) ブロック脱出:(偽) 代入大名家Ｂ:(城::城Ｂ.所属大名家) 条件ブロック:(大名家::大名家Ａ.外交同盟(大名家Ｂ))==(同盟なし){ コンテナ除外:(城,所属大名家,大名家Ｂ) 代入ａ:(1) } 条件ブロック:(大名家::大名家Ａ.外交同盟(大名家Ｂ))==(同盟){ コンテナ除外:(城,所属大名家,大名家Ｂ) 代入ｂ:(1) } 条件ブロック:(大名家::大名家Ａ.外交同盟(大名家Ｂ))==(支配){ コンテナ除外:(城,所属大名家,大名家Ｂ) 代入ｃ:(1) } 条件ブロック:(大名家::大名家Ａ.外交同盟(大名家Ｂ))==(従属){ コンテナ除外:(城,所属大名家,大名家Ｂ) 代入ｃ:(1) } }//ループ 調査:(ａ)==(1) 分岐:(真){ 代入ｗ:(0) ループ:{ ナレーション可否選択:[[<文字列Ｃ>の対象は<地方Ｂ>です\nよろしいですか]] 分岐:(否){ 代入ｗ:(2) } ブロック脱出:(否) ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n戦略を<地方Ｂ>統一と{いたす}のが\n賢明{であろう}]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<大名家Ａ>の戦略は\n<地方Ｂ>統一と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.戦略)(地方統一) 更新:(大名家::大名家Ａ.戦略ターゲット)(地方Ｂ) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n当家の戦略は\nこれまで通り<文字列Ａ>と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) } 分岐:(偽){ ＯＲ調査:{ 調査:(ｂ)==(1) 調査:(ｃ)==(1) } 分岐:(真){ 代入ｗ:(0) ループ:{ ナレーション可否選択:[[<地方Ｂ>地方には\n同盟関係にある大名家しか存在しません\n同盟関係を破棄し\n<地方Ｂ>地方を統一しますか？]] 分岐:(否){ 代入ｗ:(2) } ブロック脱出:(否) ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n戦略を<地方Ｂ>統一と{いたす}のが\n賢明{であろう}]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<大名家Ａ>の戦略は\n<地方Ｂ>統一と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] コンテナ設定:(大名家,存在,真) コンテナ除外:(大名家,外交同盟(大名家Ａ),同盟なし) コンテナ除外:(大名家,外交同盟(大名家Ａ),無効) ループ:{ コンテナ選択:(大名家Ｂ,先頭) ブロック脱出:(偽) コンテナ複写:(退避) コンテナ設定:(城,所在地方,地方Ｂ) コンテナ絞り込み:(城,所属大名家,大名家Ｂ) 条件ブロック:(コンテナカウンタ)>(0){ 更新:(大名家::大名家Ｂ.外交同盟(大名家Ａ))(同盟なし) 更新:(大名家::大名家Ｂ.外交感情(大名家Ａ))(絶交) ナレーション:[[<大名家Ｂ>との同盟関係を破棄しました]] } コンテナ複写:(復帰) コンテナ選抜:(削る,1) } 更新:(大名家::大名家Ａ.戦略)(地方統一) 更新:(大名家::大名家Ａ.戦略ターゲット)(地方Ｂ) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n当家の戦略は\nこれまで通り<文字列Ａ>と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) } 分岐:(偽){ ナレーション:[[既に統一しています\n戦略変更を中止します]] } } }//地方統一〆 分岐:([[地方守備]]){//地方守備 文字列設定:(文字列Ｃ)[[地方守備]] ナレーション可否選択:[[戦略を<文字列Ｃ>に変更します\nよろしいですか？]] ブロック脱出:(否) コンテナ設定:(拠点,拠点種類,城) コンテナ絞り込み:(城,所属大名家,大名家Ａ) ナレーション:[[地方守備の対象を選んでください]] コンテナ選択:(城Ａ,拠点選択) 分岐:(真){ 代入地方Ｂ:(城::城Ａ.所在地方) 代入ｗ:(0) ループ:{ ナレーション可否選択:[[<文字列Ｃ>の対象は<地方Ｂ>です\nよろしいですか]] 分岐:(否){ 代入ｗ:(2) } ブロック脱出:(否) ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n戦略を<地方Ｂ>守備と{いたす}のが\n賢明{であろう}]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<大名家Ａ>の戦略は\n<地方Ｂ>守備と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.戦略)(地方守備) 更新:(大名家::大名家Ａ.戦略ターゲット)(地方Ｂ) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n当家の戦略は\nこれまで通り<文字列Ａ>と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) } 分岐:(偽){ ナレーション:[[選択されていません\n戦略変更を中止します]] } }//地方守備〆 分岐:([[天下統一]]){//天下統一 文字列設定:(文字列Ｃ)[[天下統一]] ナレーション可否選択:[[戦略を<文字列Ｃ>に変更します\nよろしいですか？]] ブロック脱出:(否) 代入ｗ:(0) ループ:{ ナレーション選択:[[この献策に使用する\n貢献度を選択してください\n現在の貢献度は<ｏ>]] 選択:[[１００]][[５０]][[４０]][[３０]][[２０]][[１０]][[５]][[やめる]] 分岐:([[１００]]){ 調査:(ｏ)<(100) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(100) 代入ｏ:(ｏ)-(100) 代入ｗ:(1) } } 分岐:([[５０]]){ 調査:(ｏ)<(50) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(50) 代入ｏ:(ｏ)-(50) 代入ｗ:(1) } } 分岐:([[４０]]){ 調査:(ｏ)<(40) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(40) 代入ｏ:(ｏ)-(40) 代入ｗ:(1) } } 分岐:([[３０]]){ 調査:(ｏ)<(30) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(30) 代入ｏ:(ｏ)-(30) 代入ｗ:(1) } } 分岐:([[２０]]){ 調査:(ｏ)<(20) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(20) 代入ｏ:(ｏ)-(20) 代入ｗ:(1) } } 分岐:([[１０]]){ 調査:(ｏ)<(10) 分岐:(真){ ナレーション:[[貢献度が足りません]] } 分岐:(偽){ 代入ｐ:(10) 代入ｏ:(ｏ)-(10) 代入ｗ:(1) } } 分岐:([[５]]){ 代入ｐ:(5) 代入ｏ:(ｏ)-(5) 代入ｗ:(1) } 分岐:([[やめる]]){ 代入ｗ:(2) } 調査:(ｗ)!=(0) ブロック脱出:(真) }//ループ〆 調査:(ｗ)==(2) ブロック脱出:(真) 代入ｑ:(人物::人物Ｅ.親密度) 代入ｑ:(ｑ)/(5) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(商家::商家Ｅ.商業圏数) 代入ｐ:(ｐ)+(ｑ) 代入ｑ:(人物::主人公.弁舌技能) 代入ｑ:(ｑ)*(5) 代入ｐ:(ｐ)+(ｑ) 会話:(主人公,人物Ｅ)[[{二人称名前}、現在の情勢からすると\n戦略を<文字列Ｃ>と{いたす}のが\n賢明{であろう}]] 会話:(人物Ｅ,主人公)[[ふむ……]] ウェイト:(1) 調査:(Ｒｎｄ１００)<(ｐ) 分岐:(真){ 会話:(人物Ｅ,主人公)[[{二人称名前}の{いう２}とおり{だ}\n今後、<大名家Ａ>の戦略は\n<文字列Ｃ>と{いたす}]] ＳＥスタート:(成功音) ナレーション:[[献策が受け入れられました]] 更新:(大名家::大名家Ａ.戦略)(天下統一) 更新:(大名家::大名家Ａ.戦略ターゲット)(-1) } 分岐:(偽){ 会話:(人物Ｅ,主人公)[[{一人称}はそうは思は{ない}\n当家の戦略は\nこれまで通り<文字列Ａ>と{いたす}]] ＳＥスタート:(残念な音) ナレーション:[[献策は受け入れられませんでした]] } ナレーション:[[貢献度が<ｏ>になりました]] 更新:(イベントフラグ::真・御用商人：献策済み)(成立) 代入ｙ:(1) }//天下統一〆 分岐:([[戦略変更終了]]){ ナレーション可否選択:[[戦略変更を終了します\nよろしいですか]] ブロック脱出:(否) 代入ｙ:(1) }//終了〆 メッセージ閉じる: ＯＲ調査:{ 調査:(ｏ)<(5) 調査:(ｙ)==(1) } ブロック脱出:(真) }//ループ〆 }//戦略変更〆 分岐:([[献策終了]]){ ひとりごと可否選択:[[献策を終了{いたす}か？]] ブロック脱出:(否) 代入ｚ:(1) } 条件ブロック:(ｏ)<(5){ ひとりごと:[[今月はこれ以上\n献策でき{ない}よう{だ}{な}]] 代入ｚ:(1) } 調査:(ｚ)==(1) ブロック脱出:(真) }//基本ループ〆 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度１)(ｂ)//ビット１セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度２)(ｂ)//ビット２セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度３)(ｂ)//ビット３セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度４)(ｂ)//ビット４セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度５)(ｂ)//ビット５セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度６)(ｂ)//ビット６セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度７)(ｂ)//ビット７セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度８)(ｂ)//ビット８セット コンテナ設定:(人物,所属大名家,大名家Ａ) コンテナ絞り込み:(人物,出現フラグ,出現済み) コンテナ絞り込み:(人物,留守フラグ,留守) コンテナ除外:(人物,出撃フラグ,出撃中) ループ:{ コンテナ選択:(人物Ａ,先頭) ブロック脱出:(偽) 更新:(人物::人物Ａ.留守フラグ)(在宅) コンテナ選抜:(削る,1) } }//スクリプト〆 }//イベント〆 イベント:真・御用商人：月末処理{ 属性:何度でも 発生契機:毎月処理の最後絶対 発生条件:{ 調査:(イベントフラグ::真・御用商人：支援開始)==(成立) }//条件〆 スクリプト:{ 更新:(イベントフラグ::真・御用商人：献策済み)(不成立) 調査:(イベントフラグ::真・御用商人：指示済み)==(成立) 分岐:(真){ 更新:(イベントフラグ::真・御用商人：指示済み)(不成立) } 分岐:(偽){ 代入ｏ:(0)//貢献度 代入ｂ:(イベントフラグ::真・御用商人：貢献度８)*(128)//ビット８変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度７)*(64)//ビット７変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度６)*(32)//ビット６変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度５)*(16)//ビット５変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度４)*(8)//ビット４変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度３)*(4)//ビット３変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度２)*(2)//ビット２変換 代入ｏ:(ｏ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：貢献度１)*(1)//ビット１変換 代入ｏ:(ｏ)+(ｂ) //以上変数取り出し終了 調査:(ｏ)==(0) ブロック脱出:(真) 代入ａ:(0) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家８)*(128)//ビット８変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家７)*(64)//ビット７変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家６)*(32)//ビット６変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家５)*(16)//ビット５変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家４)*(8)//ビット４変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家３)*(4)//ビット３変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家２)*(2)//ビット２変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家１)*(1)//ビット１変換 代入ａ:(ａ)+(ｂ) //以上変数取り出し終了 代入大名家Ａ:(ａ)+(0) 代入人物Ａ:(大名家::大名家Ａ.当主) 代入ｆ:(人物::人物Ａ.親密度) 代入ｆ:(100)-(ｆ) 代入ｆ:(ｆ)/(5) 調査:(ｆ)<(1) ブロック脱出:(真) 代入ｏ:(ｏ)-(ｆ) 条件ブロック:(ｏ)<(0){ 代入ｏ:(0) } //ＳＥスタート:(プレイヤー敗北) //ナレーション:[[<大名家Ａ>への貢献度が<ｆ>下がって\n<ｏ>となりました]] 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度１)(ｂ)//ビット１セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度２)(ｂ)//ビット２セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度３)(ｂ)//ビット３セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度４)(ｂ)//ビット４セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度５)(ｂ)//ビット５セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度６)(ｂ)//ビット６セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度７)(ｂ)//ビット７セット 代入ｏ:(ｏ)/(2) 代入ｂ:(ｏ)%(2) 更新:(イベントフラグ::真・御用商人：貢献度８)(ｂ)//ビット８セット } コンテナ設定:(大名家,存在,真) コンテナソート:(大名家,支配力,降順) コンテナ検索:(大名家,大名家番号,大名家Ａ) 代入ｐ:(コンテナポインタ)+(1) コンテナ設定:(大名家,隣接大名家(大名家Ａ),真) ループ:{ コンテナ選択:(大名家Ｂ,先頭) ブロック脱出:(偽) 代入ｑ:(Ｒｎｄ)%(ｐ) 条件ブロック:(ｑ)==(0){ //ナレーション:[[<大名家Ａ>と<大名家Ｂ>の\n外交感情が悪化しました]] 条件ブロック:(大名家::大名家Ｂ.外交感情(大名家Ａ))==(絶交){ ＯＲ調査:{ 調査:(大名家::大名家Ｂ.外交同盟(大名家Ａ))==(同盟) 調査:(大名家::大名家Ｂ.外交同盟(大名家Ａ))==(従属) 調査:(大名家::大名家Ｂ.外交同盟(大名家Ａ))==(支配) } ブロック脱出:(偽) 代入ｘ:(ｐ)+(1) 代入ｘ:(Ｒｎｄ)%(ｘ) 調査:(ｘ)==(0) ブロック脱出:(偽) ＳＥスタート:(忍者報告) 会話:(汎用くノ一,主人公)[[<大名家Ｂ>が<大名家Ａ>との\n同盟関係を破棄{いたした}{ぞ}！]] 更新:(大名家::大名家Ｂ.外交同盟(大名家Ａ))(同盟なし) } 条件ブロック:(大名家::大名家Ｂ.外交感情(大名家Ａ))==(険悪){ 更新:(大名家::大名家Ｂ.外交感情(大名家Ａ))(絶交) } 条件ブロック:(大名家::大名家Ｂ.外交感情(大名家Ａ))==(敵視){ 更新:(大名家::大名家Ｂ.外交感情(大名家Ａ))(険悪) } 条件ブロック:(大名家::大名家Ｂ.外交感情(大名家Ａ))==(普通){ 更新:(大名家::大名家Ｂ.外交感情(大名家Ａ))(敵視) } 条件ブロック:(大名家::大名家Ｂ.外交感情(大名家Ａ))==(良好){ 更新:(大名家::大名家Ｂ.外交感情(大名家Ａ))(普通) } 条件ブロック:(大名家::大名家Ｂ.外交感情(大名家Ａ))==(友好){ 更新:(大名家::大名家Ｂ.外交感情(大名家Ａ))(良好) } 条件ブロック:(大名家::大名家Ｂ.外交感情(大名家Ａ))==(盟友){ 更新:(大名家::大名家Ｂ.外交感情(大名家Ａ))(友好) } }//条件〆 コンテナ選抜:(削る,1) }//ループ〆 }//スクリプト〆 }//イベント〆 イベント:真・御用商人：滅亡調査{ 属性:何度でも 発生契機:攻城戦終了時(無効,無効,決着) 発生条件:{ 代入勢力Ｅ:(人物::主人公.所属勢力) 調査:(勢力::勢力Ｅ.勢力タイプ)==(商家) 代入商家Ｅ:(人物::主人公.所属商家) 調査:(イベントフラグ::真・御用商人：支援開始)==(成立) 代入ａ:(0) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家８)*(128)//ビット８変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家７)*(64)//ビット７変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家６)*(32)//ビット６変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家５)*(16)//ビット５変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家４)*(8)//ビット４変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家３)*(4)//ビット３変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家２)*(2)//ビット２変換 代入ａ:(ａ)+(ｂ) 代入ｂ:(イベントフラグ::真・御用商人：支援大名家１)*(1)//ビット１変換 代入ａ:(ａ)+(ｂ) //以上変数取り出し終了 代入大名家Ａ:(ａ)+(0) 代入人物Ｅ:(大名家::大名家Ａ.当主) 代入勢力Ａ:(人物::人物Ｅ.所属勢力) 代入拠点Ａ:(勢力::勢力Ａ.本拠) 調査:(発生拠点)==(拠点Ａ) 代入人物Ａ:(軍団::軍団１.軍団長) 代入人物Ｂ:(軍団::軍団２.軍団長) ＯＲ調査:{ ＡＮＤ調査:{ 調査:(人物::人物Ａ.所属勢力)==(勢力Ａ) 調査:(軍団::軍団１.結果)==(敗北) } ＡＮＤ調査:{ 調査:(人物::人物Ｂ.所属勢力)==(勢力Ａ) 調査:(軍団::軍団２.結果)==(敗北) } } }//条件〆 スクリプト:{ 代入城Ａ:(拠点Ａ) コンテナ設定:(城,所属大名家,大名家Ａ) コンテナ除外:(城,城番号,城Ａ) 調査:(コンテナカウンタ)>(0) ブロック脱出:(真) ＢＧＭ変更:(イベント悲しい) ＳＥスタート:(忍者報告) 会話:(忍者,主人公)[[<勢力Ａ>が滅亡{いたした}！！]] ひとりごと:[[なんということ{だ}…\n{一人称}の力が及ばなかったか…\n……]] ウェイト:(1) メッセージ閉じる: ＢＧＭ変更:(初期設定) 更新:(イベントフラグ::真・御用商人：支援大名家１)(0) 更新:(イベントフラグ::真・御用商人：支援大名家２)(0) 更新:(イベントフラグ::真・御用商人：支援大名家３)(0) 更新:(イベントフラグ::真・御用商人：支援大名家４)(0) 更新:(イベントフラグ::真・御用商人：支援大名家５)(0) 更新:(イベントフラグ::真・御用商人：支援大名家６)(0) 更新:(イベントフラグ::真・御用商人：支援大名家７)(0) 更新:(イベントフラグ::真・御用商人：支援大名家８)(0) 更新:(イベントフラグ::真・御用商人：貢献度１)(0) 更新:(イベントフラグ::真・御用商人：貢献度２)(0) 更新:(イベントフラグ::真・御用商人：貢献度３)(0) 更新:(イベントフラグ::真・御用商人：貢献度４)(0) 更新:(イベントフラグ::真・御用商人：貢献度５)(0) 更新:(イベントフラグ::真・御用商人：貢献度６)(0) 更新:(イベントフラグ::真・御用商人：貢献度７)(0) 更新:(イベントフラグ::真・御用商人：貢献度８)(0) 更新:(イベントフラグ::真・御用商人：支援開始)(不成立) 更新:(イベントフラグ::真・御用商人：指示済み)(不成立) 更新:(イベントフラグ::真・御用商人：献策済み)(不成立) }//スクリプト〆 }//イベント〆 }//チャプター〆