code:
;-------------------------------------------------
;クエスト定義ファイル
;QUEST_0:サンプルクエスト
;-------------------------------------------------
;クエスト選択画面で表示されるクエスト名
@QST_TITLE_QUEST_20
RESULTS '= "夕暮港"

;ギルドメニューでクエストをフィルターする際のタグリスト。末尾の','を忘れないように
@QST_QUEST_TAG_20
RESULTS '= "周期,街,"

;クエスト選択画面で呼び出される概要説明
;タグで装飾が可能(@FuncTagSetText_CreateColorBarText 参照)
;クエストメニュー右上段の概要欄。10行まで
@QST_SUMALLY1_QUEST_20
RESULTS:0 '= "コモンウェルス本土から見て南西、中央大陸ヘスペリア半島南岸に位置する港湾都市"
RESULTS:1 '= "豊かな大陸棚を抱えた漁港であり、南方大陸への睨みを利かせる軍港であり、"
RESULTS:2 '= "中央大陸沿岸州と北方列島を結ぶ海運拠点であり、"
RESULTS:3 '= "西大洋への旅に挑もうという『命知らず』の航海冒険者たちが集まる拠点でもある"

;クエストメニュー右下段の備考欄。難易度や条件、報酬等を記述。7行まで
@QST_SUMALLY2_QUEST_20
RESULTS:0 '= @"難易度：@C:{カラー_注意}@依頼により変化@/C@"
RESULTS:1 '= "報酬：----"
RESULTS:2 '= "推奨パーティ人数:----　　　推奨平均戦闘値：----"
RESULTS:3 '= "備考：町シナリオ（撤退コマンドから自由に帰還可能）"
RESULTS:4 '= ""
RESULTS:5 '= @"@C:{カラー_選択不可}@「ひい爺さんが現役だった頃は、あの白亜の塔を見るまでの旅路に半月は使ったらしいな」@/C@"
RESULTS:6 '= @"@C:{カラー_選択不可}@「ああ、今は鉄道を使えば3日もかからないよ。魔導科学バンザイってね」@/C@"

;-------------------------------------------------
;クエストの実行可能条件を定義
;-------------------------------------------------
@QST_AVAILABLE_QUEST_20(QUEST_ID)
#DIM QUEST_ID
;平原の探索の攻略が必要
SIF !QST_SV_QUEST_FLAG:3
    RETURN 0
RETURN 1

;-------------------------------------------------
;マップデータ定義
;-------------------------------------------------
@QST_SET_MAPDATA_QUEST_20(MAP_ID)
#DIM MAP_ID
QST_MAPNAME '= "夕暮港市街"
;mapdata定義ファイルの格納先フォルダを指定
QST_GMAPDATA_PATH '= "ERB/QUEST/クエストデータ/QUEST_20_夕暮港"
;マップデータ定義XMLとTXTのファイル名を指定。
;2ファイルの名称は拡張子を除いて一致している必要がある
QST_GMAPDATA_FILENAME '= "夕暮港"
;このフラグを1にすると経路描画が行われなくなる。屋内マップなどあえて経路を図示する必要がない場合に立てるとよい
;QST_HIDE_PATH = 1

;各エリア（ノード）に配置するイベントIDを記入。0-24はノード番号に対応
;EVENT_LIST末尾の’,’を忘れないように
_DIC_HO_MAPDATA:MAP_ID:0  '= "[EVENT_LIST:0,]";大陸鉄道（出入口）
_DIC_HO_MAPDATA:MAP_ID:1  '= "[EVENT_LIST:0,101,102,103,]";フォアマスト
_DIC_HO_MAPDATA:MAP_ID:2  '= "[EVENT_LIST:0,111,112,113,]";通関局
_DIC_HO_MAPDATA:MAP_ID:3  '= "[EVENT_LIST:0,121,122,123,]";街商通り
_DIC_HO_MAPDATA:MAP_ID:4  '= "[EVENT_LIST:0,131,132,]";ミズンマスト
_DIC_HO_MAPDATA:MAP_ID:5  '= "[EVENT_LIST:0,141,]";埠頭地区
_DIC_HO_MAPDATA:MAP_ID:6  '= "[EVENT_LIST:0,151,152,]";船着場
_DIC_HO_MAPDATA:MAP_ID:7  '= "[EVENT_LIST:0,161,162,163,]";広場
_DIC_HO_MAPDATA:MAP_ID:8  '= "[EVENT_LIST:0,171,172,]";鉄道駅
_DIC_HO_MAPDATA:MAP_ID:9  '= "[EVENT_LIST:0,181,182,183,]";陸門
_DIC_HO_MAPDATA:MAP_ID:10  '= "[EVENT_LIST:0,191,192,193,]";漁業区
_DIC_HO_MAPDATA:MAP_ID:11  '= "[EVENT_LIST:0,201,202,]";政庁区
_DIC_HO_MAPDATA:MAP_ID:12  '= "[EVENT_LIST:0,]";新市街
_DIC_HO_MAPDATA:MAP_ID:13  '= "[EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:14  '= "[EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:15  '= "[EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:16  '= "[EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:17  '= "[EVENT_LIST:0,]"

;日雇いクエストの派生
;EVE501～503　スキュライベント

;QST_有効クエストID
;教会クエクリア +1　続くかも

;-------------------------------------------------
;クエストのタイプ
;マップ探索を伴う場合 "MAP"
;会話・文章のみで完結する場合 "DIALOGUE"
;-------------------------------------------------
@QST_TYPE_QUEST_20
RESULTS '= "GMAP"

;-------------------------------------------------
;クエスト固有の初期化処理
;-------------------------------------------------
;@QST_INIT_QUEST_20

;-------------------------------------------------
;クエストの探索状態保持設定
;-------------------------------------------------
@QST_QUEST_20_SAVE_EXPLORED
RETURN 1

;-------------------------------------------------
; クエスト中止時の処理
; QST_QUEST_{QUEST_ID}_ABORT は撤退コマンド実行時に呼ばれる
;-------------------------------------------------
;@QST_QUEST_20_ABORT
;QST_SV_QUEST_FLAG:QST_有効クエストID = 1

;-------------------------------------------------
;QST_INTRO_QUEST_n はQUEST開始前に呼ばれる
;クエストの導入文などを記述
;"DIALOGUE"型のクエストの場合当この関数のみを実行します
;-------------------------------------------------
@QST_INTRO_QUEST_20

IF QST_SV_QUEST_FLAG:QST_有効クエストID
    PRINTL
    PRINTFORMW 夕暮港に向かうことにした…　翌々日の朝には到着するだろう
    PRINTW
ELSE
    PRINTW
    PRINTFORML ヘスペリア、古語で『西』を意味する名を持つこの半島は文字通り中央大陸西部に位置しており
    PRINTFORML 沖合の季節風やリアス式海岸といった良港たりえる地勢に目を付けた古帝国によって泊地が整備されたという歴史を持つ
    PRINTFORML 「大戦」後の半島一帯はフロリアの一代貴族である辺境伯により統治されてきたが
    PRINTFORML 北方騒乱の際、当時の辺境伯が経済的に結び付きの強かった同君連合勢力に艦隊基地として都市港湾を提供
    PRINTFORMW 以降の歴代辺境伯は名目上フロリア王の叙任を受け王党派に名を連ねながら、事実上コモンウェルス諸侯の一員となっている
    PRINTL
    PRINTFORML 古くから海運・軍事の要衝として知られるが、南方からの脅威が減じた近年は
    PRINTFORMW 西大洋を目指す冒険者や探検家の出航拠点に選ばれる事も多い
    PRINTW
ENDIF

;このフラグが立っている場合ROOM_ID200(開始地点)で撤退コマンドが実行可能になる

FLAG:クエスト_中断を許可 = 1

;ゲーム内時刻を8:00にセット
HO_TIME = 480
;居住区で実行可能なコマンドの一部を実行可能にするフラグ
FLAG:クエスト_交流コマンド許可 = 1
;領内活動同様深夜3時にクエスト強制終了
FLAG:QST_終了時刻 = 1620

;-------------------------------------------------
;イベントリストに登録するイベント情報を記述する
;<記述方法>
;EVENT_TRIGGER
; "ENTER_ROOM" イベントが配置されたルームの入室時に強制的に実行される
; "EVENT_SLOT" イベントリストのクリック時に実行される
; "TRAIN_EXIT" 調教イベント終了後 ※予め変数:QST_TRAIN_EXIT_EVENT_ID に調教終了後に実行したいイベントIDを指定する必要がある
;EVENT_SLOT_NAME
; イベントリスト上の表示名
;EVENT_TYPE
; "ONCE" クエスト中一度のみ呼出されるイベント(※トリガーが"ENTER_ROOM"のイベントのみ機能)
;           実行済みかをフラグ管理するまでもないイベント(会話など)で使用する想定
;
;戻り値
; RESULT:0 = EVENT_TRIGGER
; RESULT:1 = EVENT_SLOT_NAME
; RESULT:2 = EVENT_TYPE
;-------------------------------------------------
;-------------------------------------------------
;EV0
;エリア入場時にログ出力する情景描写
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_0
; #region EV0
#DIMS EVENT_TRIGGER = "ENTER_ROOM"
#DIMS EVENT_TYPE = ""
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:2 = %EVENT_TYPE%

@QST_QUEST_20_EVENT_0
#DIMS ROOM_NAME

CALL HO_CREAR_LOG()
SELECTCASE HO_MASTER現在地
    CASE 0
        CALL HO_PRINT_LOG("フロリアの内戦が終われば、この鉄道も名前通りの働きが出来るようになるのだろう…", 1)
    CASE 1
        CALL HO_PRINT_LOG("白亜石製の塔が聳え立っている。上層は商業施設になっているようだ", 1)
    CASE 2
        CALL HO_PRINT_LOG("荷物検査待ちの旅行者の一団や書類と格闘している商人たちの姿が見える…", 1)
    CASE 3
        CALL HO_PRINT_LOG("様々な店舗のほか、行商人の露店や軽食を提供する屋台もある…", 1)
    CASE 4
        CALL HO_PRINT_LOG("陸戦兵が警備する白亜石製の塔が聳え立っている", 1)
    CASE 5
        CALL HO_PRINT_LOG("船員や旅行者、警備にあたる海兵や陸戦兵の姿も見える…", 1)
    CASE 6
        CALL HO_PRINT_LOG("マストを備えた大型外洋船のほか、漁船らしき船や魔導機関式の小型船も停泊している", 1)
    CASE 7
        CALL HO_PRINT_LOG("一休みできそうなカフェテーブルがある…", 1)
    CASE 8
        CALL HO_PRINT_LOG("案内所には旅行者向けの小冊子が置いてある", 1)
    CASE 9
        CALL HO_PRINT_LOG("白亜石製の市壁の外にはやや粗雑な作りの家々が見える…", 1)
    CASE 10
        CALL HO_PRINT_LOG("小屋の前の作業場で網を修理する漁師たちや、桟橋には釣り人の姿も見える", 1)
    CASE 11
        CALL HO_PRINT_LOG("この地区は警備の海兵の姿が目立ち、やや張り詰めた空気だ", 1)
    CASE 12
        CALL HO_PRINT_LOG("ここで新しいものは、名前と建物だけかも知れない…", 1)
    CASEELSE
        CALL HO_PRINT_LOG("人々が街路を行き交っている", 1)
ENDSELECT

;-------------------------------------------------
;EV101,102　フォアマスト
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_101
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "レストラン『ヘスペリア・ハーフェン』"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_101
#DIM CONST EVENT_ID = 101
#DIM EVENT_FLAG

PRINTFORMW 塔の最上層は貴族や富裕層向けの食堂となっている
PRINTFORMW 客席はテラスに設置されており、食事と風景を同時に楽しむことができるという
PRINTL
PRINTFORML 入口の立て看板には、本日分の予約がすべて埋まっている旨が書かれている
PRINTFORMW 食事をしたいなら、日を改めるしかないだろう
PRINTL
PRINTFORMW 来店客や従業員に話を聞けば、ちょっとした稼ぎの糸口が見つかるかも知れない…
PRINTL
SETCOLOR カラー_注意
PRINTFORMW 簡単な依頼をこの場で受注できるが、クエスト後には補給・治療のため一度拠点に帰還する必要がある
RESETCOLOR
PRINTL

CALL QUEST_20_EV101_QUEST_LIST

@QST_ADD_EVENT_QUEST_20_EVENT_102
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "宿屋『フォアマスト』"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_102
#DIM CONST EVENT_ID = 102
#DIM EVENT_FLAG

PRINTFORML 塔の一階は酒場兼宿屋のカウンターとなっている
PRINTFORMW かつては兵舎や倉庫であった部屋を客室に改装したのだろう
PRINTL
PRINTFORML カウンターの横には告知板があり、労働者向けの募集のほか冒険者ギルドが「日雇い」の依頼を掲示しているようだ
PRINTFORMW 身分が不確かな者にも任せられる程度の仕事ばかりだが、多少の稼ぎにはなるかも知れない…
PRINTL
SETCOLOR カラー_注意
PRINTFORMW 簡単な依頼をこの場で受注できるが、クエスト後には補給・治療のため一度拠点に帰還する必要がある
RESETCOLOR
PRINTL
CALL QUEST_20_EV102_QUEST_LIST

;-------------------------------------------------
;EV103　フォアマストの金属店
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_103
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "金属店『B&D鉄鋼社　直営販売所』"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_103
CALL HO_SHOP_MENU("QUEST_20_金属販売所", "B&D鉄鋼社　金属販売店")

;-------------------------------------------------
;EV111,112,113　通関局
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_111
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "眼鏡をかけた兎人検査官"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_111
#DIM CONST EVENT_ID = 111
#DIM EVENT_FLAG

IF HO_OCLOCK() < 1930
    PRINTFORMW 『鑑定』用の魔導具を持った兎人の女性が何やら作業をしている
    PRINTL
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「ブツブツブツブツブツブツ…」
    PRINTFORMW 「…またリストに無い貨物が……ブツブツブツブツブツブツ……」
    RESETCOLOR
    PRINTL
    PRINTFORMW …邪魔をしないほうがよさそうだ
ELSE
    PRINTFORMW 『鑑定』用の魔導具を持った兎人の女性が何やら作業をしている
    PRINTL
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「ブツブツブツブツブツブツ…」
    PRINTFORMW 「…今夜も…オールだわ……ブツブツブツブツブツブツブツブツブツブツ……」
    RESETCOLOR
    PRINTL
    PRINTFORMW …邪魔をしないほうがよさそうだ
ENDIF
PRINTL

@QST_ADD_EVENT_QUEST_20_EVENT_112
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "恰幅のいいコモンウェルス商人"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_112
#DIM CONST EVENT_ID = 112
#DIM EVENT_FLAG

IF HO_OCLOCK() < 1930
    SETCOLOR カラー_ライトブルー
    PRINTFORML 「南大陸産のナツメヤシを買い付けに来るのだが、いつもこの調子なのだ」
    PRINTFORMW 「毎度毎度のわかりきった手続きにどれだけ時間がかかるのやら」
    PRINTL
    PRINTFORMW 「まったく　坊主と役人は時間の浪費の仕方ばかり上手いものだな」
    RESETCOLOR
ELSE
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「まったく　日が暮れてしまったではないか！」
    PRINTL
    PRINTFORMW 「ハッ！　聞けば、軍需品が優先というが…」
    PRINTFORMW 「何のために我らノルディア人が　危険を冒し海路の開拓に勤しむ事になったと考えておるのか！」
    PRINTFORML 「カビの生えた王旗の下に中央公路を馬蹄で踏み荒らし！　食い詰め者とまじない師どもをを招き入れ！」
    PRINTFORMW 「街を焼き関ばかり建て西商路をズタズタにした連中など　相争い飢えるに任せておけばよかろうが！」
    PRINTFORMW 「戦争は命とカネを吸い上げるのに飽き足らず　とうとう私の時間まで吸い上げはじめたのか！？」
    PRINTL
    RESETCOLOR
    PRINTFORMW 息が酒臭い…
ENDIF
PRINTL

@QST_ADD_EVENT_QUEST_20_EVENT_113
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "赤套海兵"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%
;SIF HO_OCLOCK() >= 1900
;CALL QST_SET_EVENT_SLOT_NAME(, @"若い赤套海兵")

@QST_QUEST_20_EVENT_113
#DIM CONST EVENT_ID = 113
#DIM EVENT_FLAG

IF HO_OCLOCK() < 1900
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「港を出入りする全員の身分を照会することになってはいるが…　実のところ、陸行きの連中はほぼ素通りさ」
    PRINTFORMW 「山狩りシーズンの南レルムや大荒れの中央フロリアに首を突っ込みたがるアホ共なんざ、どうせほとんど戻ってきやせんからな」
    PRINTL
    PRINTFORMW 「まァ北行きの船に乗る連中については、しっかり洗わせてもらうがね」
    RESETCOLOR
ELSE
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「こんばんは！　いい夜をお過ごしください！」
    PRINTL
    PRINTFORMW 「ご夕食がまだでしたら、レストラン…　は中々予約が取れないので…」
    PRINTFORMW 「街商地区にある屋台を探してみてはいかがでしょうか！」
    RESETCOLOR
ENDIF
PRINTL

;-------------------------------------------------
;EV121　街商通り
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_121
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "市場を見回す"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_121
#DIM CONST EVENT_ID = 121
#DIM EVENT_FLAG
PRINTL
IF HO_OCLOCK() < 1800
    PRINTFORMW この地区は呼び込みの商人たちや品物を売買する人々の喧騒で満たされている
    PRINTL
    PRINTFORML 生活雑貨や食料品を扱う露店のほか、海側市壁内には舶来品を扱う店舗も存在しており
    PRINTFORMW ちらりと見える店奥では、フロリア貴族の使用人らしき身なりのいい客の姿も見える
ELSEIF HO_OCLOCK() < 2400
    PRINTFORMW この時間の商業区は港湾労働者や地元の人々の姿が目立つ…
    PRINTL
    PRINTFORML 街路は煌々と光る魔導仕掛けのランプに照らされており、
    PRINTFORMW 辺りの屋台や店舗から様々な料理の匂いが漂っている…
ELSE
    PRINTFORMW この時間はキャラバンも宿に引き上げており、多くの露店や屋台は店じまいした後だ
    PRINTL
    PRINTFORML だが、港湾施設が夜通し稼働しているため　そこで働く夜間労働者向けの飲食店などは営業を続けている
    PRINTFORMW 「コモンウェルスの眠らぬ工場」は、今や交易を通じて世界のあり方を変えつつあるのかも知れない…
ENDIF
PRINTL

;-------------------------------------------------
;屋台食事イベント
;-------------------------------------------------

@QST_ADD_EVENT_QUEST_20_EVENT_122
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "屋台で食事をとる"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_122
#DIM CONST EVENT_ID = 122
#DIM EVENT_FLAG

#DIM DYNAMIC TARGET_ID
#DIM DYNAMIC PARTY_COUNT
#DIM 食事代_ディナリ

PARTY_COUNT = LIST_COUNT(_LIST_QST_PARTY)
食事代_ディナリ = 150 * PARTY_COUNT

SELECTCASE HO_OCLOCK()
    CASE 1100 TO 1600
        IF QST_GET_FLAGMAP("食事状態") == "昼食済"
            PRINTFORMW 今は満腹だ……
            RETURN
        ELSE
            PRINTFORML %TOSTR(食事代_ディナリ)%ディナリで軽い食事をとることができるようだ
            PRINTL
            CALL ASK_YN("食事にする", "やめておく")
            PRINTL
            IF !RESULT
                IF MONEY < 食事代_ディナリ
                    PRINTFORMW %ANAME(QST_RANDCHARA())%は財布の中身を見て肩を落とした…
                    RETURN
                ENDIF
            ELSE
                PRINTFORMW やめておこう…
                RETURN
            ENDIF
            PRINTFORMW %ANAME(QST_RANDCHARA())%が見つけてきた%SPLIT_RAND("地元風焼き魚/北方風カウルケニン/猫人風山海の幸串焼き/東フロリア風ハッシュポテト/ノルディア式『本家コロッサス・パンケーキ』",1)%の屋台で食事をすることになった…
            CALL COLOR_PRINTW(@"%TOSTR(食事代_ディナリ)%ディナリを支払った", カラー_注意)
            MONEY -= 食事代_ディナリ
            FOR LOCAL, 0, QST_PARTYNUM
                TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
                CALL QST_CHANGE_HP(TARGET_ID, 2500)
            NEXT
            CALL QST_SET_FLAGMAP("食事状態", "昼食済")
            PRINTL
            PRINTFORMW ……食事を楽しんだことでお腹も心も満たされ、体力が回復した！
        ENDIF
    CASE 1830 TO 2700
        IF QST_GET_FLAGMAP("食事状態") == "夕食済"
            PRINTFORMW 食べすぎても良くないだろう…
            RETURN
        ELSE
            PRINTFORML %TOSTR(食事代_ディナリ)%ディナリで軽い食事をとることができるようだ
            PRINTL
            CALL ASK_YN("食事にする", "やめておく")
            PRINTL
            IF !RESULT
                IF MONEY < 500
                    PRINTFORMW %ANAME(QST_RANDCHARA())%は財布の中身を見て肩を落とした…
                    RETURN
                ENDIF
            ELSE
                PRINTFORMW やめておこう…
                RETURN
            ENDIF
            PRINTFORMW %ANAME(QST_RANDCHARA())%が見つけてきた%SPLIT_RAND("西レルム風レモラシチュー/北方風パンプキンパイ/犬人風白霜山脈鍋/西フロリア風ドードーステーキ/教皇領式『人魚海軍香辛料煮込み』",1)%の屋台で食事をすることになった…
            CALL COLOR_PRINTW(@"%TOSTR(食事代_ディナリ)%ディナリを支払った", カラー_注意)
            MONEY -= 食事代_ディナリ
            FOR LOCAL, 0, QST_PARTYNUM
                TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
                CALL QST_CHANGE_HP(TARGET_ID, 2500)
            NEXT
            CALL QST_SET_FLAGMAP("食事状態", "夕食済")
            PRINTL
            PRINTL
            PRINTFORMW ……食事を楽しんだことでお腹も心も満たされ、体力が回復した！
        ENDIF
    CASEELSE
        PRINTFORMW 準備中のようだ…
ENDSELECT

;-------------------------------------------------
;EV123 裏路地の小商店
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_123
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "冒険雑貨店『水平線』"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_123
CALL HO_SHOP_MENU("QUEST_20_雑貨店", "雑貨店『水平線』")

;-------------------------------------------------
;EV131,132　ミズンマスト
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_131
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "暑苦しい黄套陸戦兵"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_131
#DIM CONST EVENT_ID = 131
#DIM EVENT_FLAG

SETCOLOR カラー_ライトブルー
PRINTFORML 「斧はいいぞッ！！！　敵を盾ごと叩き割れるし魔物どもの石頭もスイカのようにカチ割れるッ！！」
PRINTFORMW 「船の上では扉も壁も叩き壊せるしマストも切り倒せるッ！！！　素晴らしい！！！！」
PRINTFORMW 「我々イエロージャケット連隊の斧術はァ！！！　北海ハスカールの伝統を今に守り伝えているのだッ！！！」
RESETCOLOR

@QST_ADD_EVENT_QUEST_20_EVENT_132
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "小柄な黄套陸戦兵"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_132
#DIM CONST EVENT_ID = 132
#DIM EVENT_FLAG

SETCOLOR カラー_ライトブルー
PRINTFORMW 「うん　正直さ、斧はないわー…　銃を撃ちたくて軍に志願して海兵選抜試験通ったのに陸戦隊配属はないわー…」
PRINTFORMW 「アタシが半ドワーフだからか？　半ドワーフだから斧振り回してるイエロージャケット送りにしたのか？？」
PRINTFORMW 「誰を恨めばいい？　海軍卿か？　斧戦士ダロスか？　…いっそオーケンシールド王の霊廟に怒鳴り込むか？？？」
RESETCOLOR

;-------------------------------------------------
;EV141　埠頭
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_141
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "地面に伏す旅行者"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_141
#DIM CONST EVENT_ID = 141
#DIM EVENT_FLAG

PRINTL
IF HO_OCLOCK() < 2200
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「フゥー、フゥー…　やっと、陸に、つい……ヴッ」
    PRINTFORMW 「ゴッ　オッエェェェェェッ！　ウォェェェェェェッ！」
    RESETCOLOR
    PRINTL
    PRINTFORMW …そっとしておこう
ELSE
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「フゥー、フゥー…　酔い覚ましにと、迎え酒を飲んだら　余計に……ヴッ」
    PRINTFORMW 「ボッ　オッベエェェェェェッ！　ゴォェェェェェェッ！」
    RESETCOLOR
    PRINTL
    PRINTFORMW …放っておこう
ENDIF
PRINTL

;-------------------------------------------------
;EV151,152　船着場
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_151
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "海を眺める冒険エルフ"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_151
#DIM CONST EVENT_ID = 151
#DIM EVENT_FLAG

PRINTL
SETCOLOR カラー_ライトブルー
IF HO_OCLOCK() < 2000
    PRINTFORML 「この世から隠されたというエルフの故地や、天変地異に沈んだ幻の大陸…」
    PRINTFORMW 「西の大海にまつわる伝説は数多くあり、勇敢なる冒険者によって実際にいくつかの遺物や痕跡となる島々も見つかっています」
    PRINTL
    PRINTFORMW 「それを更に超えた世界の果てには何があるのか…？　多くの人々は、深淵に落ちていく滝があると信じていますが」
    PRINTFORML 「明らかに年代の新しい、しかしまったく知られていない形式の装飾を持つ漂流物が稀に発見されるため」
    PRINTFORMW 「近年では、遥か西の果てに未知の国々があるのでは…　という説も唱えられているようですね」
    RESETCOLOR
ELSE
    IF MAP_GET(@"QUEST_{QST_有効クエストID}_MAP", "エルベレスキャンセル") == "1"
        PRINTFORMW 「ははは…　興が削がれてしまいましたね」
        PRINTL
        PRINTFORMW 「聞くところによると、魔導技術を用いたノルディアの工場は　夜通し休みなく動いているとか」
        PRINTFORMW 「材料と製品を運ぶ交易船がひっきりなしに動いているので、こうして不夜城となる町も増えていくのかも知れません」
        PRINTFORMW 「かの毒蜘蛛も、まさかこのような形で昼も夜もない世界が再び訪れるとは、思いもよらなかったのではないでしょうか」
        RESETCOLOR
        PRINTL
    ELSE
        PRINTFORMW 「我が種族の神話において、星々は特別な意味を持ちます」
        PRINTL
        PRINTFORML 「さて…　私たちが、こうしてエレンターリの見守る下でお会いできたのも何かの縁　太陽も月も無かり
        SETCOLOR カラー_注意
        PRINTFORMW ボォォォォォォ──────────────────────────────ッ！！！！
        RESETCOLOR
        PRINTL
        PRINTFORMW 蒸気交易船の汽笛のせいで、何を言っているのか聞き取れなかった…
        MAP_SET @"QUEST_{QST_有効クエストID}_MAP", "エルベレスキャンセル", "1"
    ENDIF
ENDIF
PRINTL

@QST_ADD_EVENT_QUEST_20_EVENT_152
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "眼帯姿の旅行者"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_152
#DIM CONST EVENT_ID = 152
#DIM EVENT_FLAG

SETCOLOR カラー_ライトブルー
PRINTFORML 「だからオレは海賊じゃねえ！　まっとうな行商人だっての！」
PRINTFORMW 「積荷は正真正銘自由都市から仕入れた品だし、フロリアの王様のお墨付きだって貰ってるんだ！」
PRINTL
PRINTFORMW 「目のコレだァ？　酔っぱらって転んだんだよなんか悪いか！？」
RESETCOLOR
PRINTL
PRINTFORMW …警備兵と揉めているようだ
;独自設定ネタバレ：こいつは海賊。上陸許可証はフロリア国王が発行した事実上の私掠御免状であり、「仕入れ」の手段もお察し。
;ここ数年で港湾管理もコモンウェルスが取り仕切るようになったため、国家間関係から逮捕はされないが上陸拒否されている状態。
;辺境伯は名目上王党派だが、矢銭の拠出以上に内戦に深入りしたくない事情に加え国王からの難民ミサイルに内心キレており
;こっそりとフロリア本国の諸制度から段階的に距離を置き始めている。
;ただし互いの利害の一致もあるため主従の誓いを破棄するまでは行ってない模様。

;-------------------------------------------------
;EV161,162　広場
;-------------------------------------------------

@QST_ADD_EVENT_QUEST_20_EVENT_161
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "教会"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_161
#DIM CONST EVENT_ID = 161
#DIM EVENT_FLAG

PRINTFORMW 古帝国末期に建てられた教会だ。港町と船乗りの守護聖人とされる聖ウルムスが祀られている
PRINTL
PRINTFORML 教会内部の採光窓には聖ウルムスと大洋に消えた国にまつわる物語が描かれたステンドグラスが嵌め込まれ、
PRINTFORMW 色とりどりの光が床や信徒席に模様を描いている
CALL QUEST_20_EV161_CHURCH

@QST_ADD_EVENT_QUEST_20_EVENT_162
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "冒険ドワーフ"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_162
#DIM CONST EVENT_ID = 162
#DIM EVENT_FLAG

PRINTL
SETCOLOR カラー_ライトブルー
IF HO_OCLOCK() < 2000
    PRINTFORML 「ワシのご先祖はな　帝国に乞われてこの街の建設に参加した30人のドワーフの一人なんじゃよ」
    PRINTFORMW 「白亜石を城壁に使ったのも　ドワーフ神話に出てくる太陽と月の塔にあやかったんじゃろうな」
    PRINTL
    PRINTFORMW 「最初はこの広場のあたりにも塔が建っとったが　大戦で壊されてしもうたらしいぞい」
    RESETCOLOR
ELSE
    PRINTFORMW 「ウィ～　ヒック！　なんじゃ～、お前さんもワシを　働かずあちこちブラブラしとる～！　と　言いたいんか～？」
    PRINTFORMW 「いいか～？　あちこち見て回って、見分を広げることは大切なんじゃぞ～？」
    PRINTFORMW 「温泉に入ってのぉ～、そのマナを全身で感じておくことでのぉ～、家の近くの変な鉱床を見たときにのぉ～」
    PRINTFORMW 「これ硫黄鉱じゃ～！　なんて気付いたりもするんじゃぞ～　ガッハッハッハァ～！！」
    RESETCOLOR
    PRINTL
    PRINTFORMW ものすごく酒臭い…
ENDIF
PRINTL
;-------------------------------------------------
;EV163 広場のティーテーブル
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_163
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "カフェテーブル"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_163
#DIM EVENT_FLAG
#DIM CHARA_ID

CALL QST_GET_EVENT_FLAG(QST_NOWEV)
EVENT_FLAG = RESULT

IF !EVENT_FLAG
    PRINTFORML %QST_LEADER_NAME()%はカフェチェアに腰掛けた
    CALL QST_SET_EVENT_SLOT_NAME(, @"カフェテーブルから離れる")
    CALL QST_SET_EVENT_FLAG(QST_NOWEV, 1)
    ;このイベントIDのイベント以外実行不可に
    QST_イベント選択制限 = QST_NOWEV
    ;1=隣接エリアのみ移動可,2=エリア移動不可
    FLAG:移動制限フラグ = 2
    ;擬似的に設備:ティーテーブル(ID=19)を使っている状態にする
    TFLAG:クエスト_ダミー設備ID = 19
    WAIT
ELSE
    PRINTFORMW %QST_LEADER_NAME()%はカフェテーブルを離れた…
    CALL QST_SET_EVENT_SLOT_NAME(, @"カフェテーブル")
    CALL QST_SET_EVENT_FLAG(QST_NOWEV, 0)
    QST_イベント選択制限 = -1
    FLAG:移動制限フラグ = 0
    FLAG:クエスト_ウフフ許可 = 0
    TFLAG:クエスト_ダミー設備ID = 0
    CALL QST_REDRESSALL
ENDIF

;-------------------------------------------------
;EV171,172　鉄道駅
;-------------------------------------------------

@QST_ADD_EVENT_QUEST_20_EVENT_171
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "ヘスペリア観光ガイド"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_171
#DIM CONST EVENT_ID = 171
#DIM EVENT_FLAG

PRINTFORML こちらは一般的な旅行者向けの小冊子だ。…読んでみようか？
PRINTL
CALL ASK_MULTI_JUDGE("「夕暮港の歴史」", 1, "「聖ウルムスの伝説」",1, "やめておく", 1)
SELECTCASE RESULT
    CASE 0
        PRINTFORMW この地の歴史の概略が書かれている…
        PRINTL
        PRINTFORML かつての夕暮港は小さな漁港に過ぎなかったが、古帝国時代に大陸からの街道が接続され、当時の皇帝主導のもと港湾都市が築かれたという
        PRINTFORMW ドワーフの手による白亜石製の市壁と塔はこの時期に建造され、現在もその姿を留めている
        PRINTL
        PRINTFORML 大戦期にはこの街も魔軍の襲撃を受けており、大陸各地に押し寄せていたオークやゴブリンの軍勢のほか
        PRINTFORMW サハギンやマーメイドなど、当時の大陸沿岸に進出していた種族とも幾度か大きな戦いを経験しているようだ
        PRINTL
        PRINTFORML フロリアの台頭後は多くの旧帝国属領と共にその版図に組み込まれるが、
        PRINTFORMW 現在は『コモンウェルス諸邦との友好関係も強化』しており『都市間同盟に基づく軍事協力』を行っている、とのことである
    CASE 1
        PRINTFORMW ウルムスは教皇領が認可した聖人のひとりであり、象徴する美徳は慈悲、船乗りと港の守護者とされている
        PRINTL
        PRINTFORML 伝説によると、かつて西大洋の果てには神の恩寵を受けた「星の国」とよばれる地があり、大いに繁栄していたが
        PRINTFORMW やがて人々は堕落し、信心と美徳を失い、互いに相争うようになったという
        PRINTL
        PRINTFORML 「星の国」に住まう船乗りであるウルムスは正しい心と信仰を保っていた数少ない一人であり、
        PRINTFORMW かの地から恩寵を取り上げる、という神からの啓示を聞くことが出来た
        PRINTL
        PRINTFORML 大いに悲しんだウルムスは国でもっとも高い山にある聖所で祈りを捧げ、自分たちの罪を悔い、人々への慈悲を乞うた
        PRINTFORMW 神はそれに応えて再び啓示を与え、人々を海を越えた先にある東の地まで導くように告げた
        PRINTL
        PRINTFORML そこでウルムスは人々に呼びかけ、海を渡るための大船を集め始めた
        PRINTFORML 同じように正しい心を保っていた者、罪と慈悲を知り悔い改めた者はウルムスの言葉に従ったが
        PRINTFORMW 多くの人々はただ嘲りを向けただけであり、「星の国」を脱出した船団は10隻に満たない数であった
        PRINTL
        PRINTFORML 船団が離れてから程なくして「星の国」は豪雨と大波に覆われ、一夜にして海中に没したという
        PRINTFORML 一方の船団は昼には鷹の、夜には星々の導きに従って海を渡り、嵐にも海魔にも襲われることなく新天地に辿り着くことが出来た
        PRINTFORMW ウルムスは神に感謝を捧げ残りの生涯に渡り帰依することを誓い、死後に聖者として列せられた…
        PRINTL
        PRINTFORML この節には注釈があり、以上の説話は教会によりウルムス信仰が盛んな大陸沿岸地域に流布されたバージョンであることが記されている
        PRINTFORML 最近の研究によれば、西の大海に存在した幻の国の繁栄と滅亡に関する伝説は地域や種族ごとにいくつかのパターンが存在するが
        PRINTFORMW その最末期には戦乱が起きていた点、何らかの災害で陸地の大部分が海中に没したという点はおおむね共通するという
    CASEELSE
        RETURN
ENDSELECT

@QST_ADD_EVENT_QUEST_20_EVENT_172
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "冒険者ギルド編・大陸西岸地方の亜人に関する報告"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_172
#DIM CONST EVENT_ID = 172
#DIM EVENT_FLAG

PRINTFORML こちらは冒険者向けの小冊子だ。…読んでみようか？
PRINTL
CALL ASK_MULTI_JUDGE("「サハギン族」", 1, "「マーメイド族」",1, "「スロード」", 1, "やめておく", 1)
SELECTCASE RESULT
    CASE 0
        PRINTFORMW 全身が鱗に覆われた「直立歩行する魚」のような外見の種族であり、一般的には魔物として扱われることが多い
        PRINTL
        PRINTFORML 見た目通り水中での活動に特化しているためか、陸上での身体能力は高いとはいえない
        PRINTFORML ただし敵対者に対して戦術やトラップを用いるなど非常に高い知能を持ち、水のマナを操る能力に長ける者も多いため、
        PRINTFORMW 船上や水辺で彼らと交戦状態となった際には注意が必要である
        PRINTL
        PRINTFORML 人間を含む陸上の種族に対しては一貫して無関心か敵対的であり、その生態には不明な点が多い
        PRINTFORMW 船乗りの間で語られる噂では、遠い海の深海に築かれた海底都市が根拠地であるとも言われている
    CASE 1
        PRINTFORML 人間の上半身と魚に似た下半身を持つ種族であり、人間と敵対していた古帝国期には魔物として扱われていた
        PRINTFORMW その外見から水精の一種である「ネレイド」と混同されやすいが、獣人に近い特徴を持つことが分かっている
        PRINTL
        PRINTFORML サハギン族とは異なり沿岸や大陸近くの群島、汽水域といった浅い海を勢力圏とし、遠洋での活動は比較的苦手とされている
        PRINTFORML 一方で陸上における身体能力はかなり高く、蛇に似た歩行器官を持つため人間とほぼ変わらない速度での行軍が可能
        PRINTFORML 種族の傾向としては尚武的な気質が強く獰猛かつ好戦的、臂力も一般的な人間やエルフに比べ優れており
        PRINTFORMW 長大なトライデントを軽々と振り回すマーメイドの伝統的な戦士は古帝国期に著された軍記物に数多く登場している
        PRINTL
        PRINTFORML かつて大陸沿岸全域で一大勢力を誇ったものの、南方大陸北岸に定着したドワーフとの抗争や
        PRINTFORML 後の大戦で大きく数を減らしたと言われており、帝国崩壊後の世界情勢においては「教皇の海賊」として悪名高い
        PRINTFORML 北東レルム湾の氏族など、人類社会に暴力装置としての立ち位置を見出す派閥も出現した
        PRINTFORMW 近年ではコモンウェルスや自由都市の海軍においても、マーメイドで構成された強襲隊が少数編成されている
        PRINTL
        PRINTFORML 生態面では全ての個体が女性として産まれ、年老いた個体の一部が生殖器を雄化することで繁殖を行う、という特性を持つ
        PRINTFORMW 彼らの文化においては
        PRINTL
        PRINTFORML （これ以降の箇所はインクで乱雑に塗りつぶされており、末尾に書き殴られた一文がある…）
        PRINTFORML 貴様ら「ヒレ無し」には東ソドミアの乱痴気じみた「初夜の儀式」の仔細を記した本を
        PRINTFORMW 人間の生態！　と称してエルフやドワーフやオークの住処にバラ撒く趣味でもあるのか？
        ;独自設定ネタバレ：実際この「マーメイド族」は人魚というよりオルカ、つまり鯱の獣人。
        ;鱗は体毛が先祖返りを起こしたもので水中呼吸も先天的・本能的に使える魔術によるゴリ押し。
        ;（ファンタジーな世界なのである程度の知能を持つ動物は普通に魔術を扱ってるかも知れない　ex:魔力ステ持ちの賢狼さん）
        ;ただし本人たちすら自分らが魚とほぼ無関係とは気付いてない模様。
    CASE 2
        PRINTFORMW 蛙のような頭と蛞蝓のような灰色の粘性の肌を持つ種族
        PRINTFORML 異様な外見と後述の特性から長らく幽界との狭間に住まう悪魔の一種とされてきたが、
        PRINTFORMW 近年の種々の地理上の発見により、南方大陸西岸沖の群島に根拠地があることが判明している
        PRINTL
        PRINTFORML 複雑かつ高度な独自の死霊術を用いることで知られ、彼らの使役するアンデッドは
        PRINTFORMW 生前とほぼ変わらない姿で蘇生されるという
        PRINTL
        PRINTFORML 帝国時代の記録によれば大戦に参戦しておらず、他種族と積極的に敵対する傾向も確認されていないが
        PRINTFORML 死霊術の濫用に呵責が無い上に疫病を神聖なものとみなす信仰を持つことが判明しており
        PRINTFORMW 未知の点が多いことも相まって、今後の動向に引き続き警戒が必要と考えられている
    CASEELSE
        RETURN
ENDSELECT

;-------------------------------------------------
;EV181,182,183　陸門
;-------------------------------------------------

@QST_ADD_EVENT_QUEST_20_EVENT_181
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "フロリア衛兵"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_181
#DIM CONST EVENT_ID = 181
#DIM EVENT_FLAG
#DIM DYNAMIC TARGET_ID

IF HO_OCLOCK() < 2000
    SETCOLOR カラー_ライトブルー
    PRINTFORML 「市壁の外の新市街区は共和派の不信心者が騒ぎを起こして以降に拡張されたもんでしてね」
    PRINTFORMW 「国王陛下の特別のご高配により、戦災難民のための住居が用意されたというわけですな」
    PRINTL
    PRINTFORML 「しかし用意されたのは片道の鉄道切符と住居だけ、難民連中は売れるモノは何でも売るような生活だったそうですが」
    PRINTFORMW 「辺境伯殿が何とか生業と治安の都合をつけた事で、街として機能するようになった次第でさ」
    PRINTL
    PRINTFORML 「最近じゃ、コモンウェルスの海兵連中も非番の日によく繰り出してるのを見かけますよ」
    PRINTFORMW 「目当ては安酒かフロリア料理か、それ以外には…　往来で口にするのは憚られる、アレでしょうな」
    RESETCOLOR
ELSE
    ;あの有名な超能力おまわりさんがスキル判定をしてくれるイベント
    PRINTFORMW どこか懐かしい気配の衛兵だ　何故か、こちらの能力を見透かされる気がする…
    PRINTL
    TARGET_ID = QST_RANDCHARA()
    SELECTCASE RAND:5
        CASE 0
            CALL QST_PARTY_ROLL("器用", 150, 0, 0, 0, TARGET_ID)
            IF RESULT == 1
                SETCOLOR カラー_ライトブルー
                PRINTFORMW 「%SPLIT_RAND("都市内の錠前をひとつでもいじれば、厄介なことになるぞ/手をポケットに入れたら、切り落としてやる/弓が好きか？　俺は剣士だ",1)%」
                RESETCOLOR
                PRINTL
                RETURN
            ENDIF
        CASE 1
            CALL QST_PARTY_ROLL("料理", 150, 0, 0, 0, TARGET_ID)
            IF RESULT == 1
                SETCOLOR カラー_ライトブルー
                PRINTFORMW 「%SPLIT_RAND("お前は調理師なんだろう？　スイートロールを焼いてくれないか？/市場はこっちじゃないぞ、料理人/冒険に、料理の技術は欠かせない　いい選択をしたな",1)%」
                RESETCOLOR
                PRINTL
                RETURN
            ENDIF
        CASE 2
            CALL QST_PARTY_ROLL("話術", 150, 0, 0, 0, TARGET_ID)
            IF RESULT == 1
                SETCOLOR カラー_ライトブルー
                PRINTFORMW 「%SPLIT_RAND("交渉できるなんて思うなよ　あの嫌な店主たちとは違う/お前と甘い言葉のことを聞いた…/暖かいベッドが今すぐにでも必要なんだ　上司と交渉してきてくれないか？",1)%」
                RESETCOLOR
                PRINTL
                RETURN
            ENDIF
        CASE 3
            CALL QST_PARTY_ROLL("歌唱", 150, 0, 0, 0, TARGET_ID)
            IF RESULT == 1
                SETCOLOR カラー_ライトブルー
                PRINTFORMW 「%SPLIT_RAND("軍楽隊に入りたければ、王都の財務卿と話せ/何が必要なんだ、吟遊詩人/聖歌隊に入るには、齢が行き過ぎてるんじゃないか",1)%」
                RESETCOLOR
                PRINTL
                RETURN
            ENDIF
        CASEELSE
            CALL QST_PARTY_ROLL("魔術", 10, 0, 0, 0, TARGET_ID)
            IF RESULT == 1
                SETCOLOR カラー_ライトブルー
                PRINTFORMW 「%SPLIT_RAND("おいおい！　おかしな魔法はよそでやってくれ/剣に付呪をしてくれないか？　古いなまくらで、バターも切れない/破壊魔法は構わないが　建物を焼き払うのはやめてくれよ",1)%」
                RESETCOLOR
                PRINTL
                RETURN
            ENDIF
    ENDSELECT
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「%SPLIT_RAND("昔はお前のような冒険者だったが、膝に矢を受けてしまってな…/何も問題ないな？/面倒は避けろよ、冒険者/怠けるな/主に小さな窃盗や、酔っぱらいの喧嘩の処理をしている/空に気を付けろ、旅の人/いとこは魔物との戦いに出ているんだが、こっちは警備任務だ/ドラゴンも吸血鬼も襲撃してこない　この町は平和そのものだな",1)%」
    RESETCOLOR
ENDIF
PRINTL

@QST_ADD_EVENT_QUEST_20_EVENT_182
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "ヒポグリフ騎兵"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_182
#DIM CONST EVENT_ID = 182
#DIM EVENT_FLAG

IF HO_OCLOCK() < 2200
    SETCOLOR カラー_ライトブルー
    PRINTFORML 「来るなら来い　魔物どもと　新市街の貧民ども！」
    PRINTFORMW 「オレと相棒が居る限り　平和な町を　オマエたちの勝手にはさせんぞ！！」
    PRINTL
ELSE
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「……Zzzzzzz」
    RESETCOLOR
    PRINTL
    PRINTFORMW 騎乗したまま寝ているようだ…
    PRINTL
ENDIF
PRINTL

@QST_ADD_EVENT_QUEST_20_EVENT_183
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "騎獣ヒポグリフ"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_183
#DIM CONST EVENT_ID = 183
#DIM EVENT_FLAG

IF HO_OCLOCK() < 2300
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「%SPLIT_RAND("………/……/………/……/………/……/………/……/………/……/コケコッコー/ピヨ　ピヨ/クエッ　クエッ/キュルルル/ヴォ～/ワン　ワン/ニャー/ヒヒーン/メェェ～",1)%」
    RESETCOLOR
    PRINTL
ELSE
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「オレ　コトバ　スコシダケ　ワカル」
    PRINTFORMW 「デモ　カッテニ　ハナスト　ダンナ　オコル…」
    PRINTL
    PRINTFORMW 「ヒンミン　ニンゲン　マイニチ　エサノタメ　ウゴキマワル…　イキテル　アカシ」
    PRINTFORMW 「ヒンミン　ニンゲン　オレ　ミカケルト　ミナ　オジギスル…　トテモ　カシコイ」
    PRINTFORMW 「ダンナ　ヒンミン　ニンゲン　キラッテル…　オレ　ヨク　ワカラナイ…」
    RESETCOLOR
    PRINTL
ENDIF
PRINTL

;-------------------------------------------------
;EV191,192　漁業区
;-------------------------------------------------

@QST_ADD_EVENT_QUEST_20_EVENT_191
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "身なりのいい釣り人"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_191
#DIM CONST EVENT_ID = 191
#DIM EVENT_FLAG
PRINTL
SETCOLOR カラー_ライトブルー
IF HO_OCLOCK() < 1900
    PRINTFORMW 「釣りと恋は似たようなもんじゃ。急いては仕損じ、機を逃せば二度と巡り逢えん」
    PRINTL
    PRINTFORMW 「かくいうワシは未だに童貞じゃがな！　カッカッカ！」
    RESETCOLOR
ELSE
    PRINTFORMW 「夜釣りもええもんじゃぞ　月の満ち欠けで釣れる魚が変わったりもするんじゃ」
    PRINTFORMW 「満ちては欠け　欠けては満ち　寄らば離れ　離れれば寄る　月と海はまさに女心のごとし！」
    PRINTL
    PRINTFORMW 「かくいうワシは彼女おらん暦60年超えじゃがな！　カッカッカ！」
    RESETCOLOR
ENDIF
PRINTL

@QST_ADD_EVENT_QUEST_20_EVENT_192
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "漁師"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_192
#DIM CONST EVENT_ID = 192
#DIM EVENT_FLAG

PRINTL
SETCOLOR カラー_ライトブルー
IF HO_OCLOCK() < 2200
    PRINTFORML 「食うに困ってるわけでもあるまいにわざわざ危険な海釣りに行くとは、金持ちの考えることはさっぱり分からん…」
    PRINTFORMW 「船を貸し出せば休漁期のちょっとした小遣いになるから、こちらとしては助かるがね」
    RESETCOLOR
ELSE
    PRINTFORMW 「ふー　忙しい忙しい」
    PRINTFORMW 「俺らの船が狙う魚の漁場は明け方限定だからな　今から準備して、暗いうちに船出しないと間に合わないんだ」
    PRINTL
    PRINTFORMW 「最近はバカでかい交易船が夜通し港に入ってくるから、まったく危なっかしくてたまらんぜ」
    RESETCOLOR
ENDIF
PRINTL

;-------------------------------------------------
;EV193 漁師小屋
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_193
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "無人の漁師小屋"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_193
#DIM EVENT_FLAG
#DIM CHARA_ID
PRINTL
CALL QST_GET_EVENT_FLAG(QST_NOWEV)
EVENT_FLAG = RESULT
IF MAP_GET(@"QUEST_{QST_有効クエストID}_MAP", "漁師小屋フラグ") == "2"
    PRINTFORMW しばらくは近づかない方がいいだろう…
    PRINTL
    RETURN
ELSEIF HO_OCLOCK() < 2500
    IF !EVENT_FLAG
        PRINTFORMW %QST_LEADER_NAME()%は人の気配のない漁師小屋に忍び込んだ……
        CALL QST_SET_EVENT_SLOT_NAME(, @"漁師小屋を出る")
        CALL QST_SET_EVENT_FLAG(QST_NOWEV, 1)
        ;このイベントIDのイベント以外実行不可に
        QST_イベント選択制限 = QST_NOWEV
        ;1=隣接エリアのみ移動可,2=エリア移動不可
        FLAG:移動制限フラグ = 2
        ;ウフフ系コマンドの実行を許可
        FLAG:クエスト_ウフフ許可 = 1
        ;擬似的に設備:客室(ID=1000)を使っている状態にする
        TFLAG:クエスト_ダミー設備ID = 1000
        MAP_SET @"QUEST_{QST_有効クエストID}_MAP", "漁師小屋フラグ", "1"
        RETURN
    ELSE
        PRINTFORMW %QST_LEADER_NAME()%は漁師小屋から出た……
        CALL QST_SET_EVENT_SLOT_NAME(, @"無人の漁師小屋")
        CALL QST_SET_EVENT_FLAG(QST_NOWEV, 0)
        QST_イベント選択制限 = -1
        FLAG:移動制限フラグ = 0
        FLAG:クエスト_ウフフ許可 = 0
        TFLAG:クエスト_ダミー設備ID = 0
        MAP_SET @"QUEST_{QST_有効クエストID}_MAP", "漁師小屋フラグ", "0"
        CALL QST_REDRESSALL
        RETURN
    ENDIF
ELSEIF MAP_GET(@"QUEST_{QST_有効クエストID}_MAP", "漁師小屋フラグ") == "1"
    CALL QST_SET_EVENT_SLOT_NAME(, @"無人の漁師小屋")
    CALL QST_SET_EVENT_FLAG(QST_NOWEV, 0)
    QST_イベント選択制限 = -1
    FLAG:移動制限フラグ = 0
    FLAG:クエスト_ウフフ許可 = 0
    TFLAG:クエスト_ダミー設備ID = 0
    MAP_SET @"QUEST_{QST_有効クエストID}_MAP", "漁師小屋フラグ", "2"
    CALL QST_REDRESSALL
    CALL COLOR_PRINTW(@"　！！ああっと！！　", カラー_注意)
    PRINTL
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「なっ　なんだ　テメェは！！」
    PRINTFORMW 「ここらじゃ見ねぇ顔だぜ！　衛兵どものイヌかも知れねぇ、やっちまえ！！」
    RESETCOLOR
    PRINTL
    CALLF TAG_PRINT(@"@C:{カラー_注意}@%QST_LEADER_NAME()%たちはガラの悪い一団と鉢合わせした！@/C@", 1)
    WAIT
    ;白兵戦参加メンバーの初期化
    CALL CC_INIT()
    ;攻撃側キャラクターの設定(最大6名)
    FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
        CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
    NEXT
    ;防御側キャラクターの設定(最大6名)
    CALL CC_ADDMOB("DEFENDER", "チンピラ", 800, 800, 15, 0, 0)
    CALL CC_ADDMOB("DEFENDER", "ちんぴら", 1000, 1000, 15, 0, 0)
    CALL CC_ADDMOB("DEFENDER", "ちんぴら", 1000, 1000, 15, 0, 0)
    ;白兵戦イベント呼出
    CALL CLOSE_COMBAT()
    ;CLOSE_COMBATの戻り値は攻撃側勝利 = 1,防衛側勝利 = 2
    IF RESULT == 1
        CALL QUEST_20_EVENT_193_WIN
    ELSE
        CALL QUEST_20_EVENT_193_LOSE
    ENDIF
ELSE
    MAP_SET @"QUEST_{QST_有効クエストID}_MAP", "漁師小屋フラグ", "2"
    PRINTFORMW …？
    PRINTFORMW ……小屋の奥に、何者かの気配がする！
    PRINTL
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「うおっ！　何だ、テメェは！！」
    PRINTFORMW 「ここらじゃ見ねぇ顔だぜ！　衛兵どものイヌかも知れねぇ、やっちまえ！！」
    RESETCOLOR
    PRINTL
    CALLF TAG_PRINT(@"@C:{カラー_注意}@%QST_LEADER_NAME()%たちはガラの悪い一団と鉢合わせした！@/C@", 1)
    WAIT
    ;白兵戦参加メンバーの初期化
    CALL CC_INIT()
    ;攻撃側キャラクターの設定(最大6名)
    FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
        CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
    NEXT
    ;防御側キャラクターの設定(最大6名)
    ;ラリってるせいで少し弱くなってる
    CALL CC_ADDMOB("DEFENDER", "チンピラ", 800, 800, 10, 0, 0)
    CALL CC_ADDMOB("DEFENDER", "ちんぴら", 1000, 1000, 10, 0, 0)
    CALL CC_ADDMOB("DEFENDER", "ちんぴら", 1000, 1000, 10, 0, 0)
    ;白兵戦イベント呼出
    CALL CLOSE_COMBAT()
    ;CLOSE_COMBATの戻り値は攻撃側勝利 = 1,防衛側勝利 = 2
    IF RESULT == 1
        CALL QUEST_20_EVENT_193_WIN
    ELSE
        CALL QUEST_20_EVENT_193_LOSE
    ENDIF
ENDIF

@QUEST_20_EVENT_193_WIN
;戦闘参加メンバー全員に経験値3を付与
CALL CC_ADD_COMBAT_EXP(3)
;戦闘でのHP増減をパーティの体力に反映
CALL CC_APPLY_CHARA_HP()
WAIT
PRINTL
SETCOLOR カラー_ライトブルー
PRINTFORMW 「ヒィッ！！　こいつ強いぞ！！」
PRINTFORMW 「ち、ちくしょう！　覚えてろよ！！」
RESETCOLOR
PRINTL
PRINTFORMW ガラの悪い一団はものすごい速度で退散していった　逃げ足だけは早いようだ…
PRINTL
CALL COLOR_PRINTW("ガラの悪い一団が残していった物から、500ディナリ相当の戦利品を得た！", カラー_注意)
MONEY += 500
RETURN

@QUEST_20_EVENT_193_LOSE
;戦闘参加メンバー全員に経験値3を付与
CALL CC_ADD_COMBAT_EXP(1)
;戦闘でのHP増減をパーティの体力に反映
CALL CC_APPLY_CHARA_HP()
WAIT
PRINTL
SETCOLOR カラー_ライトブルー
PRINTFORMW 「へっ　舐めるからだ！」
PRINTFORMW 「ざまあねえな！　一昨日来やがれ！！」
RESETCOLOR
PRINTL
CALL COLOR_PRINTW("1000ディナリ相当の金品を巻き上げられ、小屋から放り出された…", カラー_注意)
MONEY -= 1000
;彼らは健全なゲーム出身なので、女を襲うことは無いらしい…。
RETURN

;-------------------------------------------------
;EV201,202　政庁区
;-------------------------------------------------

@QST_ADD_EVENT_QUEST_20_EVENT_201
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "兵士詰所"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_201
#DIM CONST EVENT_ID = 201
#DIM EVENT_FLAG
CALL QUEST_20_EV201_CONVERSATION

@QST_ADD_EVENT_QUEST_20_EVENT_202
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "人形銃兵"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_20_EVENT_202
#DIM CONST EVENT_ID = 202
#DIM EVENT_FLAG

PRINTFORMW ゴーレムの一種である「オートマタ・メイデン」の銃兵仕様だ
PRINTL
PRINTFORML 儀仗用らしく、フロリア式のドレスで美しく着飾られカーテシーの姿勢で待機しているが…
PRINTFORML スリングベルトで背負われているアーキバスはまぎれもなく本物であり
PRINTFORMW 制御術式により脅威を検知すれば「自動迎撃」が発動するのだろう

;-------------------------------------------------
;以下イベントリストで管理する必要のない処理,イベント固有の関数など
;-------------------------------------------------

;広場教会
@QUEST_20_EV161_CHURCH
PRINTL
IF HO_OCLOCK() < 1130
    PRINTFORML 朝の典礼が終わり一息ついた頃の教会は、どこかやわらかな雰囲気に包まれている…
    PRINTL
    CALL ASK_MULTI_JUDGE("フロリア騎士", 1, "とんがり帽子とローブを着た少女？",1, "顎髭を蓄えた猫人", 1, "離れる", 1)
    SELECTCASE RESULT
        CASE 0
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「おや、貴殿らも礼拝に？　それとも観光ですかな？」
            PRINTL
            PRINTFORMW 「祈りで腹は膨れませんが　統治者であっても神という指標との対話を行い、己の行いを顧みることはできます」
            PRINTFORMW 「民草は日々の生活に追われ　利己的で近視眼にならざるを得ませんが、死後における己の扱いに関しては下心を出します」
            PRINTFORMW 「なのでまあ…　教会というのは、我々のような立場の者にとっても有用なのでしょうな」
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASE 1
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORML 「ここの司祭、昔は西フロリア教区の司教候補だったんですよね」
            PRINTFORMW 「もっとも、教皇の取り巻きとケンカして飛ばされてきたみたいですが」
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASE 2
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「なんでぇ、俺っちみたいな流れ者の傭兵が神サマに祈っちゃいけねえのかい？」
            PRINTFORMW 「教会の神サマはよぉ、お祈りさえすれば生まれや種族に関係なく扱ってくれるって聞いたんでぇ」
            PRINTFORMW 「だからよぉ、俺っちのご先祖を家畜だとバカにしてたドワーフの神サマたちよりもいいヤツに決まってるぜ」
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASEELSE
            RETURN
    ENDSELECT
ELSEIF HO_OCLOCK() < 1630
    PRINTFORML 昼下がりの教会は、家族連れや観光客の姿も目立つ…
    PRINTL
    CALL ASK_MULTI_JUDGE("講釈中のとんがり帽子とローブを着た少女？", 1, "話を聞く女の子",1, "話を聞く身なりのいい男の子", 1, "離れる", 1)
    SELECTCASE RESULT
        CASE 0
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「いいですか？　魔術師は聖人やイスロンではなく、ゆえに魔術は万能の奇跡ではありません」
            PRINTFORMW 「しかるべき代償を捧げ、必要な手順を踏み、決められた結果を引き出す技術なのです」
            PRINTFORMW 「かまどの薪に火を付けると鍋が熱くなってお湯が沸きますよね？　基本的な考え方はそれと変わりません」
            PRINTL
            PRINTFORMW 「ゆえに、無からケーキを取り出す魔法なんて無いのですよ」
            PRINTFORMW 「もしケーキを出すような魔術があるなら、それはどこかの家かお店から盗んできたものです」
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASE 1
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「えーっ　お姉ちゃんケーキ出すマホーできないの～？」
            PRINTFORMW 「じゃあバクレツマホーやってよ！　そこのガリベンっぽいノルディアじんをどっかーん！ってするようなの！」
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASE 2
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「僕には魔力はありませんが、普段はノルディアのアカデミーで魔導科学を学んでいます」
            PRINTFORML 「魔導科学者の必修である錬金術の基礎理論は昔の魔術師が生み出したものなので、
            PRINTFORMW 　先達であるフロリア人メイガスの話は、僕からしてもとても興味深いんです」
            PRINTL
            PRINTFORMW 「でも魔術師って、ほとんどお爺さんか若い女性なんですよね…　何でだろう？」
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASEELSE
            RETURN
    ENDSELECT
ELSEIF HO_OCLOCK() < 1900
    PRINTFORML 夕方の教会は人が多く慌ただしい空気だ…
    PRINTL
    CALL ASK_MULTI_JUDGE("旅慣れた風の冒険者", 1, "日焼けした漁師",1, "とんがり帽子とローブを着た少女？", 1, "離れる", 1)
    SELECTCASE RESULT
        CASE 0
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「ここの司祭さんはちゃんとしてるんだな　辺境の教会はそりゃもう酷いもんだらけだったが」
            PRINTFORMW 「孤児を使って売春宿の真似事をしてる所なんかはまだマシなほうでなあ…」
            PRINTFORMW 「カネ欲しさに免罪符をバラ撒くところや　酷いところだと悪漢を雇って、法を盾に強盗騎士の真似事までやる始末だ」
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASE 1
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「司祭様のありがたい話は、正直何を言ってるのかわからんことも多いんだ」
            PRINTFORMW 「盗みや殺しをしちゃいかんってのも　困ってる人は助けろってのも　神様より前に母ちゃんから教わるもんだろ？」
            PRINTFORMW 「でもなぁ、司祭様の話を聞くとパンとワインが貰えるんだよ　俺ぁこれだけで神様が居るって信じられるね！」
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASE 2
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「近年の魔術師は、ほとんどがマナに関する知識と技術の普遍化…」
            PRINTFORMW 「すなわち魔導科学の道を志します」
            PRINTFORML 「いまどき私のような古いタイプの魔女になろうとか、洞窟でヤモリ焼いて暮らそうなどと考える魔術師は、
            PRINTFORMW 　よほどの偏屈か変わり者くらいしか居ません」
            PRINTFORMW 「ま、私は神秘主義者でも純血主義者でも無いので　知識の普遍化に関しては、むしろ賛成ですがね」
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASEELSE
            RETURN
    ENDSELECT
ELSEIF HO_OCLOCK() < 2500
    PRINTFORML 夜の教会は仕事を終えた地元の人々の姿が目立つ…
    PRINTL
    CALL ASK_MULTI_JUDGE("脂ぎった商人", 1, "マーメイド族の赤套海兵",1, "とんがり帽子とローブを着た少女？", 1, "離れる", 1)
    SELECTCASE RESULT
        CASE 0
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「ウヒョヒョヒョ…　神よ神よあなたのお陰で今日も儲けさせてもらいましたぞい…」
            PRINTFORMW 「感謝のしるしに教皇領で寄進をたくさんしますぞい…」
            PRINTFORMW 「つきましてはその足でソドミアに遊びにいくことをお許しあれ…　ムッヒャー…」
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASE 1
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「…Βασιλιάς που ζει βαθιά κάτω από τη θάλασσα…」
            PRINTFORMW 「…Σε ευχαριστούμε που κράτησες εμένα και τους φίλους μου ασφαλείς σήμερα…」
            RESETCOLOR
            PRINTL
            PRINTFORMW 古語で何やら唱えながら祈っている…
            RESETCOLOR
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASE 2
            PRINTL
            PRINTFORMW 教会の片隅にあるテーブルで、老齢のシスターとお茶を飲みながら談笑している…
            PRINTL
            CALL QUEST_20_EV161_CHURCH
        CASEELSE
            RETURN
    ENDSELECT
ELSE
    ;隠しイベント「夜会話」　ただしヒロインはババアと堅物人魚と半死人とする
    PRINTFORML 深夜ともなれば教会も人は疎らだが、明かりを絶やす事はないようだ…
    PRINTL
    CALL ASK_MULTI_JUDGE("老齢のシスター", 1, "マーメイド族の赤套海兵",1, "とんがり帽子とローブを着た少女？", 1, "離れる", 1)
    SELECTCASE RESULT
        CASE 0
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「あらまあ、このような夜更けに教会にどのような御用向きでしょうか」
            PRINTFORMW 「あいにく司祭様はもうお休みですが、こんな婆の話でよろしければ聞いていきますか？」
            $OBABA_TALK
            RESETCOLOR
            PRINTFORML なにか聞いてみようか…？
            PRINTL
            CALL ASK_MULTI_JUDGE("司祭について…", 1, "マーメイドの海兵について…",1, "教会に居る魔女について…", 1, "話を終える", 1)
            SELECTCASE RESULT
                CASE 0
                    PRINTL
                    SETCOLOR カラー_ライトブルー
                    PRINTFORMW 「当代の司祭様はとても慈悲深く、博識な方ですわ」
                    PRINTFORMW 「あのような方であれば、もっと上の立場になられてもおかしくないのですが…」
                    PRINTFORMW 「ハァ…　教区を統括する方々は、一体何を考えておられるのやら」
                    PRINTL
                    goto OBABA_TALK
                CASE 1
                    PRINTL
                    SETCOLOR カラー_ライトブルー
                    PRINTFORMW 「あの海兵さんですか？　ほとんど毎日お祈りにいらしてますね、素晴らしいことです」
                    PRINTFORMW 「マーメイド族といえば、狂信者のほかは異教徒しか居ないと思っていましたので」
                    PRINTL
                    PRINTFORMW 「もし内海で聖印を掲げたマーメイド族の船を見かけたら、決して近づいてはなりませんよ」
                    PRINTFORMW 「彼女らは教皇庁直属の異端審問官ですが、教徒の船であろうと平気で捕まえて『喜捨』を要求してきますからね」
                    PRINTFORMW 「まったく　神は一体なぜ、あのような者達を野放しにしているのか…」
                    PRINTL
                    goto OBABA_TALK
                CASE 2
                    PRINTL
                    SETCOLOR カラー_ライトブルー
                    PRINTFORML 「昔からよく教会にいらしてた方ですよ」
                    PRINTFORMW 「魔術師の手が必要な事を何かと手伝ってくださいますし、長年の友人としても接してくださっています」
                    PRINTFORMW 「ただ、私がおつとめを始めた頃は年上だったような…　魔女とは、みなああなのでしょうかね」
                    PRINTL
                    goto OBABA_TALK
                CASEELSE
                    SETCOLOR カラー_ライトブルー
                    PRINTFORMW 「ごきげんよう　神のご加護がありますように」
                    RESETCOLOR
                    PRINTL
                    CALL QUEST_20_EV161_CHURCH
            ENDSELECT
        CASE 1
            SETCOLOR カラー_ライトブルー
            PRINTL
            PRINTFORMW 「こんばんは、旅の人」
            PRINTFORMW 「…あまり中央標準語は、上手じゃないですが、今は非番なので、お話できます」
            $NINGYO_TALK
            RESETCOLOR
            PRINTFORML なにか聞いてみようか…？
            PRINTL
            CALL ASK_MULTI_JUDGE("信仰について…", 1, "同族について…",1, "銃について…", 1, "話を終える", 1)
            SELECTCASE RESULT
                CASE 0
                    PRINTL
                    SETCOLOR カラー_ライトブルー
                    PRINTFORMW 「感謝と祈りを捧げています　私のために、祖国のために、赤套の兄弟姉妹たちのために」
                    PRINTFORMW 「ここは、神の家であり、同じように、海の王の聖堂です」
                    PRINTFORMW 「海は、とても大きいです　名前や神話の違いは、小さなことです」
                    PRINTL
                    goto NINGYO_TALK
                CASE 1
                    PRINTL
                    SETCOLOR カラー_ライトブルー
                    PRINTFORMW 「平和的なマーメイドは、普通、ヒレ無しびとに、かかわりません」
                    PRINTFORMW 「マーメイドに、街の外で出会ったときは、信用してはいけません」
                    PRINTL
                    PRINTFORMW 「海の上で出会ったときは、海賊だと思ってください」
                    PRINTFORMW 「私たちが助けられない時は、すぐに逃げるか、戦ってください」
                    PRINTL
                    goto NINGYO_TALK
                CASE 2
                    PRINTL
                    SETCOLOR カラー_ライトブルー
                    PRINTFORMW 「弾を込めて、構えて、狙って、撃ちます」
                    PRINTFORMW 「敵が近いとき、敵に近づくときは、殴りつけるか、ベイオネットを使います　マーメイドの出番です」
                    PRINTL
                    PRINTFORMW 「…………」
                    PRINTFORMW 「…あまり、標準語の練習に、なりませんね　なにか、話題を、頂けますか？」
                    RESETCOLOR
                    PRINTL
                    CALL ASK_YN("銃を使う人魚について…", "軍隊に居る人魚について…")
                    IF RESULT == 0
                        PRINTL
                        SETCOLOR カラー_ライトブルー
                        PRINTFORMW 「故郷のマーメイドは、銃は弱い者のための武器、と言っています」
                        PRINTFORMW 「槍を振るう勇気も、弓を引く力も、水の流れを読む知性も、持たない者の武器であると」
                        PRINTFORMW 「マーメイドの海兵も、火薬よりベイオネットを好む、赤套の姉妹が、多いです」
                        PRINTFORMW 「火薬は、水辺で扱いにくいですし、肉を割き骨を砕く、感触がわかりません」
                        PRINTL
                        PRINTFORMW 「しかし…　ある海兵は、負傷した同僚のために、ひとり残って、銃でワイバーンの群れと戦いました」
                        PRINTFORMW 「負傷者を運んだ部隊は、無事に退却し、私の隊が、彼の救出に向かいました」
                        PRINTFORMW 「彼は義務を果たし、旅立った後でしたが、ワイバーンも２体、急所を撃ち抜かれて、死んでいました」
                        PRINTFORMW 「彼は、生まれながらの戦士では、ありません　赤套の兄弟になる前は、羊を飼う、農民でした」
                        PRINTL
                        PRINTFORMW 「銃は…　理想的には、勇者が持つべき武器です　勇気と献身のもと振るえば、牧童が、亜竜を殺す武器です」
                        PRINTFORMW 「しかし、悪意のもと振るえば、弱い者が、勇者を殺します」
                        PRINTL
                        PRINTFORMW 「私に、火薬の扱いを教えてくれた教官は、銃に関して、言っていました」
                        PRINTFORMW 「『いずれ、全ての武器と魔法を凌駕し、過去の遺物とするだろう』…」
                        PRINTL
                        goto NINGYO_TALK
                    ELSE
                        PRINTL
                        SETCOLOR カラー_ライトブルー
                        PRINTFORMW 「私の氏族は、ノルディアの王家と、古い縁があります」
                        PRINTFORMW 「海軍ができた時、族長が、国王陛下と話し合いました」
                        PRINTFORMW 「それで、氏族が全員で、参加することに決まりました」
                        PRINTL
                        PRINTFORMW 「マーメイドは、生まれながらの戦士です　氏族に忠誠を誓い、死を恐れません」
                        PRINTFORMW 「コモンウェルス海兵は、兵士の誓いを立てます　陛下と国民に奉仕し、死を恐れません」
                        PRINTFORMW 「つまり、私たちに、たくさんのヒレ無しびとの、兄弟姉妹が増えた、ということです」
                        PRINTL
                        goto NINGYO_TALK
                    ENDIF
                CASEELSE
                    SETCOLOR カラー_ライトブルー
                    PRINTFORMW 「よい夜を、お過ごしください」
                    RESETCOLOR
                    PRINTL
                    CALL QUEST_20_EV161_CHURCH
            ENDSELECT
        CASE 2
            IF MAP_GET(@"QUEST_{QST_有効クエストID}_MAP", "魔女がケーキ出した") == "1"
                PRINTL
                PRINTFORMW 眉間に皺を寄せながら、パサついてしまったパンケーキを黙々と食べている…
                PRINTL
                CALL QUEST_20_EV161_CHURCH
            ELSE
                SETCOLOR カラー_ライトブルー
                PRINTFORMW 「…ここには隠された宝箱も、猫探しの依頼もありませんよ」
                $MAJO_TALK
                PRINTL
                RESETCOLOR
                PRINTFORML なにか話してみようか…？
                PRINTL
                CALL ASK_MULTI_JUDGE("随分とお若く見える…", 1, "魔女が神を信じる事について…",1, "ケーキを出す魔法について…", 1, "話を終える", 1)
                SELECTCASE RESULT
                    CASE 0
                        PRINTL
                        SETCOLOR カラー_ライトブルー
                        PRINTFORMW 「何ですかー、私がヴァンパイアやリッチーの類だとでもー？」
                        PRINTL
                        PRINTFORML 「あのですねぇ、確かにここは三角帽被ってても何も言われないくらい開かれた教会ですが」
                        PRINTFORMW 「流石に不死者が滞在希望出したら、灰にされて納骨堂に案内されますよ」
                        PRINTFORMW 「そもそも老いと死から逃れるために死に続けることを選ぶなど、根を捨てて枝に水をやるような話で…」
                        PRINTFORMW 「真理と根源を追究すべきメイガスの恥です、あの手合いは　遺跡とかで見かけたら遠慮せずぶっ飛ばしなさい」
                        PRINTFORMW 「神と聖霊とついでに私も許可しますので」
                        PRINTL
                        PRINTFORMW 「私のこれは魔女の罹る病気のようなもので、停滞と腐敗のタチが悪い呪いですよ」
                        PRINTFORMW 「王都の貴婦人がた相手の商売になるかもと思いましたが、代償を説明したら不評で話になりませんでした」
                        PRINTL
                        goto MAJO_TALK
                    CASE 1
                        PRINTL
                        SETCOLOR カラー_ライトブルー
                        PRINTFORMW 「信じるのではなく、ただ現実として受け入れています」
                        PRINTFORMW 「ああ、もちろん教会の教えや秘蹟に疑義を挟むものではありませんよ」
                        PRINTFORMW 「知識の城たる教会が無ければ、辺境地域が大戦後の暗黒時代を乗り切る事は難しかったでしょうし」
                        PRINTL
                        PRINTFORMW 「パクス・インペリウム期の魔術師は、夏至の太陽の高さの地域差から世界のサイズを計算していましたが」
                        PRINTFORMW 「あれから悠久の時を経てなお、我々の未だに半数以上が　世界は亀の背中に乗った皿と信じているわけです」
                        PRINTL
                        PRINTFORML 「そんな人々に世の中のあれこれを説明するためには
                        PRINTFORMW 　擬人化された神様を酷使させて頂くのが　手っ取り早いんでしょうね」
                        PRINTL
                        goto MAJO_TALK
                    CASE 2
                        PRINTL
                        SETCOLOR カラー_ライトブルー
                        PRINTFORMW 「まったく　子供みたいな事を言いますね」
                        PRINTFORMW 「まあいいです、見せましょうか？　では、やりますよー」
                        PRINTL
                        PRINTL
                        SETCOLOR カラー_注意
                        PRINTFORMW 魔女が右手で杖を振るうと、杖の先からパチパチと色とりどりの火花が散るが…　なにも起きない
                        PRINTFORMW ――と思いきや、いつのまにか左手に食べかけのパンケーキが載った皿を持っている！
                        PRINTL
                        PRINTL
                        SETCOLOR カラー_ライトブルー
                        PRINTFORMW 「おや、うまく行きましたね　やってはみるものです」
                        PRINTFORMW 「ちなみにですけど、この魔法の正体はご存じですか？」
                        PRINTL
                        RESETCOLOR
                        CALL ASK_MULTI_JUDGE("封印されし古代の禁呪！", 1, "転移魔術",1, "単なる手品", 1)
                        SELECTCASE RESULT
                            CASE 0
                                PRINTL
                                SETCOLOR カラー_ライトブルー
                                PRINTFORMW 「うわー　気付いてしまいましたかー」
                                PRINTL
                                PRINTFORMW 「そう、これこそが！　かつて大海に沈んだ伝説の島と共に失われた古代の秘術！」
                                SETCOLOR カラー_赤
                                PRINTFORML 　　ﾘｺｰﾙ・ﾚｲｼｮﾝ
                                SETCOLOR カラー_ライトブルー
                                CALLF TAG_PRINT(@"「@C:{カラー_赤}@謎　肉　召　喚　@/C@なのです！」", 1)
                                WAIT
                                PRINTL
                                PRINTL
                                PRINTFORMW 「ってそんなワケ無いでしょうがっ！　何やらせるんですか、まったく…」
                                PRINTL
                                MAP_SET @"QUEST_{QST_有効クエストID}_MAP", "魔女がケーキ出した", "1"
                                RESETCOLOR
                                PRINTL
                                CALL QUEST_20_EV161_CHURCH
                            CASE 1
                                PRINTL
                                SETCOLOR カラー_ライトブルー
                                PRINTFORMW 「うーん、残念ながら不正解です」
                                PRINTL
                                PRINTFORML 「膨大な広域錬金も地脈マナ流の観測も固定ポータルやビーコンの設置も無しに
                                PRINTFORML 　ポンポンといろんなものを転送できる魔術が体系化されていれば、
                                PRINTFORMW 　今頃フロリアが全世界を支配してるでしょうね」
                                PRINTL
                                PRINTFORMW 「法院の司法官が、毎晩鉄兜着用で就寝することに嫌気が差して　禁呪指定になるのが先かも知れませんが」
                                PRINTL
                                MAP_SET @"QUEST_{QST_有効クエストID}_MAP", "魔女がケーキ出した", "1"
                                RESETCOLOR
                                PRINTL
                                CALL QUEST_20_EV161_CHURCH
                            CASEELSE
                                PRINTL
                                SETCOLOR カラー_ライトブルー
                                PRINTFORMW 「素晴らしい、正解です　マルをひとつあげましょう」
                                PRINTL
                                CALL COLOR_PRINTW("50ディナリ相当の戦利品？を得た！", カラー_注意)
                                MONEY += 50
                                PRINTL
                                PRINTFORMW 「夜食にでもと屋台で買ったんですが、一度で食べきれる量じゃ無かったんですよね…」
                                PRINTL
                                MAP_SET @"QUEST_{QST_有効クエストID}_MAP", "魔女がケーキ出した", "1"
                                RESETCOLOR
                                PRINTL
                                CALL QUEST_20_EV161_CHURCH
                        ENDSELECT
                    CASEELSE
                        SETCOLOR カラー_ライトブルー
                        PRINTFORMW 「そうですか」
                        RESETCOLOR
                        PRINTL
                        CALL QUEST_20_EV161_CHURCH
                ENDSELECT
            ENDIF
        CASEELSE
            RETURN
    ENDSELECT
ENDIF
PRINTL
RETURN

;政庁区詰所
@QUEST_20_EV201_CONVERSATION
PRINTFORML 警邏の兵が油断なく周囲を警戒している…
PRINTL
IF HO_OCLOCK() < 1900
    CALL ASK_MULTI_JUDGE("マーメイド族の赤套海兵", 1, "フロリア騎士",1, "離れる", 1)
    SELECTCASE RESULT
        CASE 0
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「…」
            PRINTL
            PRINTFORMW 「勤務中は、お話できません　ご容赦を」
            RESETCOLOR
        CASE 1
            SETCOLOR カラー_ライトブルー
            PRINTFORML 「%QST_LEADER_NAME(1)%ご一行とお見受けするが…」
            PRINTFORMW 「申し訳ない　ここら辺りには貴殿をおもてなし出来るような場所は無いのです」
            PRINTFORMW 「もし冒険者がするような仕事がお好みなら、フォアマスト地区にある酒場をお訪ね頂くのがよいかと」
            PRINTL
            PRINTFORMW 「では、良い滞在を」
            RESETCOLOR
        CASEELSE
            RETURN
    ENDSELECT
ELSE
    CALL ASK_MULTI_JUDGE("フロリア衛兵", 1, "赤套海兵",1, "離れる", 1)
    SELECTCASE RESULT
        CASE 0
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「日没後に忍び歩くのは、盗人か吸血鬼くらいなものだ」
            PRINTFORMW 「くれぐれも、妙な真似はしてくれるなよ」
            RESETCOLOR
        CASE 1
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「ハァ…　この仕事が終わったら、グリューワインでしっぽりと行きたいね」
            RESETCOLOR
        CASEELSE
            RETURN
    ENDSELECT
ENDIF
PRINTL
RETURN

;ムフフイベント時の誤作動防止用処理
;@QUEST_20_ENDTIMERESET
;FLAG:クエスト_交流コマンド許可 = 0
;FLAG:QST_終了時刻 = 0

;レストラン依頼セクション　いまのところ料理ミニイベントのみ
@QUEST_20_EV101_QUEST_LIST
#DIM DYNAMIC TARGET_CHARA_ID
$EV101_LIST
CALL ASK_MULTI_JUDGE("フロアマネージャー", 1, "満腹な猫人商人",1, "エルフ族のウエイター", 1, "フロリア貴族令嬢", 1, "ドワーフ族の調理師", 1, "やめておく", 1)
SELECTCASE RESULT
    CASE 0
        IF HO_OCLOCK() < 2000
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「…仕事を探しているの？　そうね…　食材の仕込みは、人手がいくらあっても足りないから…」
            PRINTFORMW 「夜の20時くらいになったらまた来てもらえるかしら？　お願いできる事があるはずよ」
            RESETCOLOR
            goto EV101_LIST
        ENDIF
        PRINTL
        SETCOLOR カラー_ライトブルー
        PRINTFORMW 「…料理が得意な冒険者向けの仕事ならあるわよ」
        PRINTFORMW 「街商区でこちらが指定する食材を仕入れてきて、バックヤードで下ごしらえをしてくれれば完成品を買い取るわ」
        PRINTFORMW 「店の調理器具までは貸せないんだけど、冒険用の携帯調理機とスキレットとナイフがあれば出来る内容のものだから安心して頂戴」
        PRINTL
        PRINTFORMW 「もっとも、あまりに出来が悪いものは買い取れないけどね」
        RESETCOLOR
        PRINTL
        PRINTFORMW 時間はかかりそうだが、ある程度料理の心得がある者が挑戦すれば利益が出そうな仕事だ…　やってみようか？
        CALL ASK_YN("やってみる", "やめておく")
        IF RESULT == 0
            CALL QST_PARTY_ROLL("料理", 10, 0, 5, 4)
            TARGET_CHARA_ID = RESULT:1
            PRINTL
            PRINTFORMW ……………………
            PRINTFORMW ………………
            PRINTFORMW …………
            PRINTL
            IF RESULT
                IF RAND:9 == 0
                    ;成功時1/10でクリティカル
                    PRINTL
                    CALL COLOR_PRINTW(@"☆　　　クリティカル！　　　☆", カラー_注意)
                    PRINTL
                    PRINTFORMW %ANAME(TARGET_CHARA_ID)%は会心の料理で　※伝説的な※　山盛り%SPLIT_RAND("フラットブレッド/グリーンサラダ/ボイルド・クレイフイッシュ/タラの塩漬け/焼きキノコ/ドードーのグリル/オレンジジュース/人魚海軍式香辛料ペースト",1)%を作成した！　プロ並みだ！
                    PRINTL
                    CALL COLOR_PRINTW(@"%ANAME(TARGET_CHARA_ID)%は料理に関するインスピレーションを得た！", カラー_注意)
                    CALL PRINT_ADD_EXP(TARGET_CHARA_ID, "料理経験値", 60)
                    CALL TRAIN_AUTO_ABLUP(TARGET_CHARA_ID)
                    PRINTFORMW 総料理長も大いに満足し、買取価格にかなり色をつけてくれたようだ…
                    CALL COLOR_PRINTW("滞在中の利益として2,000ディナリを得た！", カラー_注意)
                    MONEY += 2000
                    CALL QUEST_20_EV101_QUEST_EXIT
                ELSE
                    PRINTL
                    PRINTFORMW %ANAME(TARGET_CHARA_ID)%は冒険者の流儀で大盛り%SPLIT_RAND("フラットブレッド/グリーンサラダ/ボイルド・クレイフイッシュ/タラの塩漬け/焼きキノコ/ドードーのグリル/オレンジジュース",1)%を作成した！
                    PRINTL
                    CALL PRINT_ADD_EXP(TARGET_CHARA_ID, "料理経験値", RAND(20, 30))
                    CALL TRAIN_AUTO_ABLUP(TARGET_CHARA_ID)
                    PRINTFORMW 買取価格はそれなりだったが、料理の経験を積むことは出来ただろう…
                    CALL COLOR_PRINTW("滞在中の利益として500ディナリを得た！", カラー_注意)
                    MONEY += 500
                    CALL QUEST_20_EV101_QUEST_EXIT
                ENDIF
            ELSE
                IF RAND:19 == 0
                    ;失敗時1/20でファンブル　大失敗扱いだが得られる経験値は一番多い
                    PRINTL
                    CALL COLOR_PRINTW(@"　※　　おおっと　　※　", カラー_赤)
                    PRINTL
                    PRINTFORMW なんと　%ANAME(TARGET_CHARA_ID)%の作っていた%SPLIT_RAND("フラットブレッド/グリーンサラダ/ボイルド・クレイフイッシュ/タラの塩漬け/焼きキノコ/ドードーのグリル/オレンジジュース/魔導調理式ボイルドエッグ/カミカゼ・イークのステーキ/爆弾岩クッキー/ニトロタケのポタージュ",1)%が大爆発を起こした！
                    CALL COLOR_PRINTW(@"爆発に巻き込まれた%ANAME(TARGET_CHARA_ID)%は、薄れゆく意識の中で『何か』と邂逅したようだ…", カラー_注意)
                    CALL PRINT_ADD_EXP(TARGET_CHARA_ID, "料理経験値", 100)
                    CALL TRAIN_AUTO_ABLUP(TARGET_CHARA_ID)
                    PRINTFORMW 食材が無駄になった上に、衛兵が出動する騒ぎになってしまった…
                    PRINTL
                    CALL PRINT_NOTICE("旅費と食材費と治療費に加え、衛兵に罰金を徴収され合計3,000ディナリを失った……")
                    MONEY -= 3000
                    CALL QUEST_20_EV101_QUEST_EXIT
                ELSE
                    PRINTL
                    PRINTFORML %ANAME(TARGET_CHARA_ID)%は四苦八苦しながらも大量の%SPLIT_RAND("フラットブレッド/グリーンサラダ/ボイルド・クレイフイッシュ/タラの塩漬け/焼きキノコ/ドードーのグリル/オレンジジュース",1)%を作成した！
                    PRINTFORMW しかし、失敗も多くかなりの食材を無駄にしてしまったようだ
                    PRINTL
                    CALL PRINT_ADD_EXP(TARGET_CHARA_ID, "料理経験値", RAND(15, 25))
                    CALL TRAIN_AUTO_ABLUP(TARGET_CHARA_ID)
                    PRINTFORMW 若干の損失が出てしまったが、料理の経験を積むことは出来ただろう…
                    CALL PRINT_NOTICE("滞在中の損失として500ディナリ失った…")
                    MONEY -= 500
                    CALL QUEST_20_EV101_QUEST_EXIT
                ENDIF
            ENDIF
        ELSE
            goto EV101_LIST
        ENDIF
    CASE 1
        SETCOLOR カラー_ライトブルー
        PRINTL
        PRINTFORMW 「ああー…　うまかったにゃ、大満足にゃ」
        PRINTFORMW 「アタシはここの料理を食べなきゃ、仕事にならんのにゃ」
        PRINTFORMW 「そして　アタシは仕事をしなきゃ、ここの代金を払えんのにゃ…」
        RESETCOLOR
        PRINTL
        goto EV101_LIST
    CASE 2
        SETCOLOR カラー_ライトブルー
        PRINTL
        PRINTFORMW 「…かしこまりました　では、ご注文を繰り返させていただきます」
        PRINTFORMW 「豆のスープの豆抜き、サーモンムニエルのサーモン抜き、アップルタルトのアップル無し…」
        RESETCOLOR
        PRINTL
        goto EV101_LIST
    CASE 3
        SETCOLOR カラー_ライトブルー
        PRINTL
        PRINTFORMW 「勉強になりましたわ！　コモンウェルスでは、庶民はこのような場で食事をするのですね！」
        PRINTFORMW 「それにしても、こうして庶民や『けもの人』と同じテーブルを囲むことになるなんて！」
        PRINTFORMW 「世の中　まだまだ知らない事ばかりですわ！」
        RESETCOLOR
        PRINTL
        goto EV101_LIST
    CASE 4
        SETCOLOR カラー_ライトブルー
        PRINTL
        PRINTFORMW 「おお…　おお！　あ、新しいレシピがぁ…　てっ、天から　降ってぇ…」
        PRINTFORMW 「こないッ！」
        PRINTFORMW 「クキャァァッ！！　キョォォォアッ！！！」
        RESETCOLOR
        PRINTL
        goto EV101_LIST
    CASEELSE
        RETURN
ENDSELECT
RETURN

@QUEST_20_EV101_QUEST_EXIT
PRINTL
PRINTFORMW そろそろ物資が心許ない…　いちど本拠地に戻るべきだろう
PRINTL
;クエスト終了時の決まり文句
TFLAG:クエスト_完了フラグ = 1
CALL TRAIN_EXIT()

;-------------------------------------------------
;ここから宿屋依頼セクション
;-------------------------------------------------

@QUEST_20_EV102_QUEST_LIST
CALL ASK_MULTI_JUDGE("「斧で殴られた蜂」のイラストが書かれた告知", 1, "アカデミーの徽章が記された依頼",1, "教会が用いる聖印が記された依頼", 1, "やめておく", 1)
SELECTCASE RESULT
    CASE 0
        CALL QUEST_20_DAYLAVOR_1
    CASE 1
        CALL QUEST_20_DAYLAVOR_2
    CASE 2
        IF (QST_SV_QUEST_FLAG:QST_有効クエストID == 1)
            PRINTFORMW 今はまだ教会絡みの依頼は無いようだ…　他を見てみよう
            CALL QUEST_20_EV102_QUEST_LIST
        ELSE
            CALL QUEST_20_DAYLAVOR_3
        ENDIF
    CASEELSE
        RETURN
ENDSELECT
RETURN
;-------------------------------------------------
;日雇い系依頼　ハチ退治
;-------------------------------------------------

@QUEST_20_DAYLAVOR_1
#DIM DYNAMIC TARGET_ID
;#DIM Q_PROGRESS
;Q_PROGRESS = (QST_SV_QUEST_FLAG:QST_有効クエストID / 10)

SETCOLOR カラー_緑
PRINTL
PRINTFORML 『腕自慢よ集え！　冒険者、傭兵、兵役経験者歓迎！』
PRINTFORMW 『武器を取り、戦い、報酬を受け取ろう！　捜索・探索の技術は不要！』
RESETCOLOR
PRINTL
PRINTFORML 酒場の一角の目立つ位置に、巨人蜂として知られる魔物の討伐隊を募る告知が貼られている
PRINTFORML 募集主はイエロージャケット連隊…　コモンウェルスの駐留艦隊に所属する陸戦隊だ
PRINTFORML 大規模駆除作戦の一環として冒険者や傭兵の手を借りているらしい
PRINTL
CALLF TAG_PRINT(@"難易度：@C:{カラー_注意}@★☆@/C@", 1)
PRINTL
PRINTFORML 報酬：2500ディナリ
PRINTFORML 推奨パーティ人数:4人以上　　　推奨平均戦闘値：20以上
PRINTFORML 敵の脅威度は低いが数が多く、連戦となるだろう
CALL COLOR_PRINTW(@"―― 脅威選定に(低耐久)を持つ武器は体力の低い敵を優先的に攻撃する。所持しているならば装備することで優位に戦闘を進められるかもしれない", カラー_注意)
PRINTL
SETCOLOR カラー_選択不可
PRINTFORML 「軍がワイバーンの営巣地を破壊したことで航路はだいぶ安全になったが、亜竜を天敵にしていた小型の魔物が増加傾向にある」
PRINTFORMW 「特に雑食性の蜂どもはブドウ園を荒らすし家畜も襲うからな…　間引きが必要になったというワケさ」
RESETCOLOR
PRINTL
PRINTFORMW …この依頼を受けようか？
PRINTL

CALL ASK_YN("クエストに出発する", "他のクエストを探す")
IF RESULT == 0
    SETCOLOR カラー_ライトブルー
    PRINTFORMW 「そいつを受けるのかい？　ならミズンマストの陸戦隊詰所に行くといい、手続きは全部あっちでやってくれるぞ」
    ;夜だと休憩してから出発
    IF HO_OCLOCK() >= 1800
        PRINTFORMW 「ただ今日はもう遅いからな…　部屋を貸してやるから、一晩ゆっくり休んで明日出発してくれ」
        PRINTFORMW 「代金の事は心配しなくていい、依頼主にツケておくさ」
        RESETCOLOR
        PRINTL
        PRINTFORMW 明日に備え、今日はもう休むことにした…
        PRINTL
        ;パーティ全員の体力を回復
        FOR LOCAL, 0, QST_PARTYNUM
            TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
            CALL QST_CHANGE_HP(TARGET_ID, 3000)
        NEXT
        WAIT
    ENDIF
    RESETCOLOR
    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORMW …………
    PRINTL
    CALL PRINT_TITLE("ベスパとイエロージャケット", "イベント")
    PRINTFORMW 乗合馬車で街道を進み、さらに歩くこと数刻…　%QST_LEADER_NAME()%は指定された担当区域に到着した
    PRINTFORML 都市や街道からそう遠くない村落にも関わらず、確かに巨人蜂がそこかしこに耳障りな音を立てながら飛び回っており
    PRINTFORMW 先行していた黄套陸戦兵のほか、同じ仕事を受けたらしい冒険者や傭兵のパーティが既に戦いを始めている
    PRINTFORMW 捜索や探索の必要がない、と書かれていたのは…　まあそういう事なのだろう
    PRINTL
    CALLF TAG_PRINT(@"@C:{カラー_注意}@%QST_LEADER_NAME()%の姿を認めた巨人蜂が襲い掛かってきた！@/C@", 1)
    WAIT
    ;白兵戦参加メンバーの初期化
    CALL CC_INIT()
    ;攻撃側キャラクターの設定(最大6名)
    FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
        CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
    NEXT
    ;防御側キャラクターの設定(最大6名)
    CALL CC_ADDMOB("DEFENDER", "ヘスペリアン・ベスパ", 800, 800, 20, 0, 0)
    CALL CC_ADDMOB("DEFENDER", "ヘスペリアン・ベスパ", 800, 800, 20, 0, 0)
    CALL CC_ADDMOB("DEFENDER", "ヘスペリアン・ベスパ", 800, 800, 20, 0, 0)
    ;白兵戦イベント呼出
    CALL CLOSE_COMBAT()
    ;CLOSE_COMBATの戻り値は攻撃側勝利 = 1,防衛側勝利 = 2
    IF RESULT == 1
        ;戦闘参加メンバー全員に経験値3を付与
        CALL CC_ADD_COMBAT_EXP(3)
        ;戦闘でのHP増減をパーティの体力に反映
        CALL CC_APPLY_CHARA_HP()
        WAIT
        PRINTL
        PRINTFORMW …哨兵を手早く撃退したこちらを脅威と認識したのか、一回り大きな巨人蜂が姿を現した
        PRINTL
        CALLF TAG_PRINT(@"@C:{カラー_注意}@%QST_LEADER_NAME()%は体勢を整え、新手の巨人蜂と対峙した！@/C@", 1)
        WAIT
        ;白兵戦参加メンバーの初期化
        CALL CC_INIT()
        ;攻撃側キャラクターの設定(最大6名)
        FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
            CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
        NEXT
        ;防御側キャラクターの設定(最大6名)
        CALL CC_ADDMOB("DEFENDER", "キングサイズベスパ『リカール』種", 2000, 2000, 40, 5, 1, WPN_脅威選定_高脅威)
        CALL CC_ADDMOB("DEFENDER", "ヘスペリアン・ベスパ", 800, 800, 30, 0, 0, WPN_脅威選定_高脅威)
        CALL CC_ADDMOB("DEFENDER", "ヘスペリアン・ベスパ", 800, 800, 30, 0, 0, WPN_脅威選定_高脅威)
        CALL CC_ADDMOB("DEFENDER", "ヘスペリアン・ベスパ", 800, 800, 30, 0, 0, WPN_脅威選定_高脅威)
        CALL CC_ADDMOB("DEFENDER", "ヘスペリアン・ベスパ", 800, 800, 30, 0, 0, WPN_脅威選定_高脅威)
        CALL CC_ADDMOB("DEFENDER", "ヘスペリアン・ベスパ", 800, 800, 30, 0, 0, WPN_脅威選定_高脅威)
        ;白兵戦イベント呼出
        CALL CLOSE_COMBAT()
        ;CLOSE_COMBATの戻り値は攻撃側勝利 = 1,防衛側勝利 = 2
        IF RESULT == 1
            ;戦闘参加メンバー全員に経験値8を付与
            CALL CC_ADD_COMBAT_EXP(8)
            ;戦闘でのHP増減をパーティの体力に反映
            CALL CC_APPLY_CHARA_HP()
            WAIT
            PRINTL
            PRINTFORML …大型の巨人蜂が動かなくなると、他の蜂たちの動きが明らかに精彩を欠きはじめる
            PRINTFORMW まるで敵を見失ったように飛び回りながら、ギチギチと威嚇音を鳴らすばかりだ
            PRINTFORMW あの個体の率いる集団が群れ全体に対する何らかの統率を担っていたのだろう
            PRINTFORMW 一網打尽にする頃合いと見たのか、陸戦兵たちが樽や木箱から「除虫草」を運び出し始めたようだ…
            PRINTL
            PRINTFORMW ……………………
            PRINTFORMW ………………
            PRINTFORMW …………
            PRINTL
            PRINTFORMW …白い煙と共に独特の臭いが辺りに立ち込め始め、「除虫草」により麻痺した巨人蜂が一匹また一匹と墜落していく
            PRINTFORML 巣の駆除は陸戦兵が、無力化した蜂にトドメを刺す作業は死体を引き取る現地の住民が行う手筈となっているので
            PRINTFORMW こちらの仕事は無事に終わったといえるだろう
            PRINTL
            WAIT
            CALL COLOR_PRINTW("報酬として2,500ディナリを得た", カラー_注意)
            MONEY += 2500
            ;クエスト終了時の決まり文句
            TFLAG:クエスト_完了フラグ = 1
            CALL TRAIN_EXIT()
        ELSE
            CALL QUEST_20_DL1_DEFEAT
        ENDIF
    ELSE
        CALL QUEST_20_DL1_DEFEAT
    ENDIF
ELSE
    CALL QUEST_20_EV102_QUEST_LIST
ENDIF

;ハチに負けた
@QUEST_20_DL1_DEFEAT
CALL CC_APPLY_CHARA_HP()
CALL CC_ADD_COMBAT_EXP(3)
CALL COLOR_PRINTW(@"―― %QST_LEADER_NAME()%は巨人蜂の襲撃に翻弄され痛手を負ってしまった…", カラー_注意)
WAIT
PRINTL
PRINTFORMW 撃退に失敗したことで戦闘が長引き、巨人蜂は次々と新手を繰り出してくる
PRINTFORMW 更に悪いことに、蜂の麻痺毒が体に回りはじめ手足の動きが重くなってきた
PRINTFORML ……これ以上の戦闘続行は危険だと判断した%ANAME(QST_RANDCHARA())%は
PRINTFORMW 押し寄せる蜂の猛攻の隙を突き、緊急事態に備え支給されていた狼煙を打ち上げた…
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTFORMW 他の隊の助けもあり、なんとか危機を脱することができたようだ
PRINTFORML 奮戦は無駄にならず作戦自体は成功し報酬も出たのだが、出費を考慮すれば大赤字だろう
PRINTFORMW ……次はもっと準備をしてから挑んだほうが良さそうだ
PRINTL
CALL PRINT_NOTICE("報酬から治療費や謝礼を差し引き、1,000ディナリを失った……")
MONEY -= 1000
TFLAG:クエスト_完了フラグ = 1
CALL TRAIN_EXIT()

;-------------------------------------------------
;日雇い系依頼　スキュラあれこれ
;-------------------------------------------------

@QUEST_20_DAYLAVOR_2
#DIM DYNAMIC MOB_ID
#DIM CHARA_ID
#DIM TARGET_ID
PRINTL
SETCOLOR カラー_緑
PRINTFORML 『カシオペア厳穴内に生息する希少生物調査の委託に関するご案内』
PRINTFORMW 『ノルディア・アカデミー　第IV学寮　海洋研究科』
RESETCOLOR
;エル「ろくでもない依頼だと思うよ、これは。何故かって？」
;「アカデミーの学寮には数字ではなく、それぞれ正式な名前があるんだ。偉大な先達だったり学派を象徴する存在だったりするんだが…」
;「学生も教授も所属する学寮の名前に誇りを持っているから、こういった研究絡みのケースで寮名を名乗らないのは普通じゃない」
;「背後の事情はともあれ、少なくとも学究の徒として本意でない案件ということだろうな…」
PRINTL
PRINTFORML その名の由来となった浮海月『カシペオア』をはじめ、多くの珍しい生物が生息する半水没洞の調査依頼だ
PRINTFORML 一方で古くから恐れられる魔物『スキュラ』の縄張りとして知られており
PRINTFORML 地元民は決して近づかない場所でもある
PRINTFORML それなりに戦力が整っていなければ調査の遂行は難しいだろう…
PRINTL
CALLF TAG_PRINT(@"難易度：@C:{カラー_注意}@★★★★★@/C@", 1)
PRINTL
PRINTFORML 報酬：～5000ディナリ（成果次第、増額もあり）
PRINTFORML 推奨パーティ人数:5人以上　　　推奨平均戦闘値：50以上
SETCOLOR カラー_ピンク
PRINTFORML 危険度が高い依頼だが、よく知られた「裏口」を使った解決法をギルドが用意しているらしい…
PRINTL
SETCOLOR カラー_選択不可
PRINTFORML 「海魔スキュラは異教の女神の末裔だとか、横恋慕の末に呪いをかけられた王女の成れの果てだとかいう伝説がある…」
PRINTFORMW 「ただディナーに誘おうなんて考えはやめておけ、自分が前菜になりたいなら話は別だがな」
RESETCOLOR
PRINTL
PRINTFORMW …この依頼を受けようか？
PRINTL
$DL2_SELECT
CALL ASK_MULTI_JUDGE("正攻法で挑む", 1, "「裏口」を使って挑む", 1, "「裏口」とは？", 1, "依頼選択に戻る", 1)
SELECTCASE RESULT
    CASE 0
        CALL QUEST_20_DL2_STF
    CASE 1
        CALL QUEST_20_DL2_BCD
    CASE 2
        PRINTFORMW 海魔スキュラが潜む洞窟での調査…　普通に考えれば駆け出しにとって困難な依頼なのだが
        PRINTFORMW この依頼に関しては、ギルド側で「特別な解決法」を用意しているらしい
        PRINTFORMW 実際にその方法を行ったパーティもみな生還はしているのだが
        PRINTFORMW 冒険者仲間に何があったのか尋ねられても、口を噤む者が大半だという…
        PRINTL
        SETCOLOR カラー_ライトブルー
        PRINTFORMW 「あれは正直、おすすめはしない方法だな…　知らないなら知らないままのほうがマシなくらいさ」
        PRINTFORMW 「どうしても知りたいなら、ギルドの制帽着た女が居るだろ？　あいつに…」
        PRINTL
        SETCOLOR カラー_パ紫
        PRINTFORMW 「はぁ～い、呼びましたか呼びましたね？　んふふ、パデロンさんは真面目ですからねぇ」
        PRINTFORMW 「特別な方法と言ってもぉ、とぉ～ってもシンプルなんです！」
        PRINTFORMW 「『メガリスの夜』という香水があるんですけどぉ、これってスキュラが繁殖期に分泌するフェロモンを濃縮したものなのでぇ」
        PRINTFORMW 「ちょっと市場で買ってきてぇ、誰かの全身に塗りたくってぇ、水に放り込めばあら不思議！」
        PRINTFORMW 「ここがスキュラのおかしな習性なんですがぁ　捕食行為ではなくてぇ、繁殖行為の対象とみなすようになるんですよぉ」
        PRINTFORML 「なのでぇ　その人に群がってぇ触手でもみくちゃにしながら交接行動を試みるんですけどぉ」
        PRINTFORMW 「相手の交接口が無い場合はですねぇ、探そうともう必死になってぇその人の穴という穴を」
        PRINTL
        SETCOLOR カラー_ライトブルー
        PRINTFORMW 「あー…もういいぞ　要するに誰かを生贄にして、その隙に調査をしちまおうという実にご立派な作戦だよ」
        PRINTFORMW 「チッ…　ギルドの連中にとっちゃカネになるから推奨してやがるんだろうな…」
        PRINTL
        PRINTFORMW 「繰り返しになるが、俺としては決しておすすめはしない」
        PRINTFORMW 「まずもって仲間や捕虜を魔物の餌にするなんてのは冒険者じゃなく野盗の類の流儀だ、というのもあるが…」
        PRINTFORMW 「例の香水は決して安くないし、底まで引き込まれないよう縛られて海に放り込まれる以上は息継ぎの付呪品なんかも必要だ」
        PRINTFORMW 「調査にあまり時間をかけられんから、追加の人員や機材も用意せにゃならん」
        PRINTFORMW 「結局のところ、仲間がいろんな意味で死にかけた上に下手すりゃ赤字…って事になっちまうわけだ」
        PRINTL
        PRINTFORMW 「正面から海魔どもを相手取るだけの実力が無いなら…　悪いことは言わん、身の丈に合った仕事を選んだ方がいい」
        RESETCOLOR
        PRINTL
        goto DL2_SELECT
        ;独自設定ネタバレ：制帽女はアカデミー出身でコネ採用のギルド職員。地位は課長クラスだがノルディアの有力者にツテがある。
        ;「特別な方法」はギルドや商工会が中抜きするためのものだが、囮戦法は彼女が「自分で試して安全性を立証した」方法であり
        ;酒場店主もその現場に立ち会ったので止めろとまでは言えない状態らしい。
        ;餌役には犯罪者のほか自由都市から仕入れた奴婢を使っていたが、さすがに当局に問題視され現在の「志願制」となった模様。
    CASEELSE
        CALL QUEST_20_EV102_QUEST_LIST
ENDSELECT

;表ルート
@QUEST_20_DL2_STF
#DIM DYNAMIC TARGET_ID
PRINTL
SETCOLOR カラー_ライトブルー
PRINTFORMW 「そいつを受けてみるかい？」
$DL2_STF_INFO
RESETCOLOR
PRINTL
CALL ASK_MULTI_JUDGE("出発する", 1, "「カシオペア厳穴」について…", 1, "「スキュラ」について…", 1, "依頼選択に戻る", 1)
SELECTCASE RESULT
    CASE 0
        IF HO_OCLOCK() >= 1200
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「潮が満ちてきたら探索どころじゃなくなるぜ　今日はゆっくり休んで明日の朝出発してくれ」
            PRINTFORMW 「ああ、部屋代は依頼主にツケておくから心配しなくていい」
            RESETCOLOR
            PRINTL
            PRINTFORMW 明日に備え、今日はもう休むことにした…
            PRINTL
            ;パーティ全員の体力を回復
            FOR LOCAL, 0, QST_PARTYNUM
                TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
                CALL QST_CHANGE_HP(TARGET_ID, 3000)
            NEXT
            WAIT
        ELSE
            PRINTL
            SETCOLOR カラー_ライトブルー
            PRINTFORMW 「ヤバそうなら無理はするんじゃないぞ　墓の下でディナリは使えないからな」
        ENDIF
        RESETCOLOR
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …………
        PRINTL
        CALL QUEST_20_DL2_STF_01
    CASE 1
        PRINTL
        SETCOLOR カラー_ライトブルー
        PRINTFORMW 「妙な生き物がたくさん居る半水没洞で…　って、このあたりは依頼の告知に書いてあるよな…」
        PRINTFORMW 「あそこの水場は海まで繋がってるらしくてな、潮が満ちる時間は通路や部屋が水に沈んじまったりする」
        SETCOLOR カラー_注意
        PRINTFORMW 「息継ぎできない暗闇の中で水泳を楽しむ気が無いなら、あれもこれもと探索することは不可能だ」
        SETCOLOR カラー_ライトブルー
        PRINTFORMW 「が、あの洞窟は洒落にならんほど広い　一度や二度の調査では全てを探索し切ることはできないだろう」
        PRINTFORMW 「だからこの依頼では、指定された場所付近だけを調査してもらうことになる…」
        SETCOLOR カラー_注意
        PRINTFORMW 「通常のダンジョン攻略とは違って、詳しく探索したり最奥まで踏破する必要はないわけだな」
        SETCOLOR カラー_ライトブルー
        PRINTFORMW 「ま、そういう意味じゃ手軽な仕事とも言えるだろう」
        PRINTL
        PRINTFORMW 「地元の連中の言い伝えによると、あの洞窟は大戦期に突然ポッカリと入口が現れたって話だ」
        PRINTFORMW 「妙な生き物が居るのも、どこかの魔界にあった迷宮の一部だからだと言われてたんだが」
        PRINTFORMW 「実際のところは…　あー、アレだ、何だっけ？」
        PRINTL
        SETCOLOR カラー_パ紫
        PRINTFORML 「異所的種分化、ですよぉ　洞窟が何万年も地上から隔離されてたのでぇ」
        PRINTFORMW 「滞留地脈のマナに晒された海の生き物が変な形に変わっちゃった～！」
        PRINTFORMW 「というのがぁ、アカデミーで唱えられてる有力説なんですぅ」
        PRINTL
        PRINTFORML 「魔界の生き物説も夢があってぇ素敵なんですけどぉ」
        PRINTFORML 「フロリアの魔術師さんたちにぃ、非科学的だ～！　って否定されたんですよねぇ」
        PRINTFORMW 「異界の生物相の研究に関してはぁ、魔術師さんのぉ専門分野ですからぁ」
        SETCOLOR カラー_注意
        PRINTFORMW 「『観察』だけじゃなくて『魔法』が得意な人も居ればぁ、お金になる発見があるかもですねぇ」
        PRINTL
        goto DL2_STF_INFO
    CASE 2
        PRINTL
        SETCOLOR カラー_ライトブルー
        PRINTFORMW 「主に大陸南岸の海域に生息し、人間の上半身とバケモノの下半身を持ってる魔物だな」
        SETCOLOR カラー_注意
        PRINTFORMW 「水場だとマナを使って自己強化してやがるから、下手な亜竜以上に危険な相手だ」
        SETCOLOR カラー_ライトブルー
        PRINTFORMW 「内海地方のほうじゃかなり有名な海魔だよ　このあたりだと流石に珍しいかもな」
        PRINTFORMW 「美しい女の姿をしているが…　あれは誘惑したり遭難者を装ったりして食い物をおびき寄せるための疑似餌みたいなもんだ」
        PRINTFORMW 「残念ながら話の通じる相手じゃないぜ」
        PRINTL
        SETCOLOR カラー_パ紫
        PRINTFORML 「ノアレルムの郷土料理でぇ、コリコリのスキュラちゃんの触手を刻んでぇ」
        PRINTFORMW 「リーキを混ぜた溶き卵でふわっと包んでぇ、オリーブオイルでカリっと焼いたものがあるんですよねぇ」
        PRINTL
        SETCOLOR カラー_ライトブルー
        PRINTFORMW 「うちの店じゃ絶対に出さないぞ！」
        PRINTFORMW 「…レルムの連中、海に居るものは船以外何でも食うんじゃないか？」
        PRINTL
        goto DL2_STF_INFO
    CASEELSE
        RESETCOLOR
        CALL QUEST_20_EV102_QUEST_LIST
ENDSELECT

@QUEST_20_DL2_STF_01
PRINTFORMW カシオペア厳穴は夕暮港から馬車で数刻ほど、人里からやや離れた台地に入口が存在する
PRINTFORMW 洞窟内はそこかしこに自生したヒカリゴケや発光茸の放つ奇妙な光に照らされており、
PRINTFORMW 薄暗いがまったくの闇というわけでもない…
PRINTL
PRINTFORMW 半水没洞と言われるだけあり、洞窟内を満たす礒臭い空気は湿気が多く
PRINTFORMW 水場には時折、光を反射した魚の仄青い影が見えている…
PRINTL
PRINTL
PRINTFORMW 松明を掲げ、湿ってぬかるんだ足元に注意しながら歩みを進める%ANAME(QST_RANDCHARA())%は
PRINTFORMW 通路を塞ぐように群生する奇妙な植物に気付いた
PRINTL
PRINTFORMW アカデミーから提供された資料によれば、この植物は一見すると蔦のようだが
PRINTFORMW 近づく者を鞭のように打ち据えてくるという
PRINTFORMW 更に注意深く観察すると、共生関係にあるのか根本のあたりに有翼蜥蜴の姿も見える…
PRINTL
PRINTFORML 有翼蜥蜴は、中央大陸東部地域に伝わる民話に登場する小さなドラゴンから取られた通り名を持つ
PRINTFORMW 小柄な体に似合わぬ獰猛さで知られる爬虫類であり、厄介なことに縄張り意識も強い
PRINTL
PRINTFORMW 先に進むためには、彼らを排除する必要がある…
PRINTL
CALLF TAG_PRINT(@"@C:{カラー_注意}@%QST_LEADER_NAME()%は脅威を排除すべく武器を構えた！@/C@", 1)
WAIT
;白兵戦参加メンバーの初期化
CALL CC_INIT()
;攻撃側キャラクターの設定(最大6名)
FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
    CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
NEXT
;防御側キャラクターの設定(最大6名)
CALL CC_ADDMOB("DEFENDER", "ケイブ・プーク", 1800, 1800, 50, 10, 0, WPN_脅威選定_高脅威)
CALL CC_ADDMOB("DEFENDER", "リビングバイン", 600, 600, 20, 0, 0)
CALL CC_ADDMOB("DEFENDER", "リビングバイン", 600, 600, 20, 0, 0)
CALL CC_ADDMOB("DEFENDER", "リビングバイン", 600, 600, 20, 0, 0)
;白兵戦イベント呼出
CALL CLOSE_COMBAT()
;CLOSE_COMBATの戻り値は攻撃側勝利 = 1,防衛側勝利 = 2
IF RESULT == 1
    ;戦闘参加メンバー全員に経験値3を付与
    CALL CC_ADD_COMBAT_EXP(3)
    ;戦闘でのHP増減をパーティの体力に反映
    CALL CC_APPLY_CHARA_HP()
    WAIT
    PRINTL
    PRINTFORMW …これで先に進むことができるだろう
    CALL QUEST_20_DL2_STF_02
ELSE
    CALL QUEST_20_DL2_STF_DEFEAT
ENDIF

@QUEST_20_DL2_STF_02
#DIM TARGET_CHARA_ID
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
CALL PRINT_TITLE("メガリスの娘たち", "イベント")
PRINTL
PRINTFORMW %QST_LEADER_NAME()%は洞窟内のやや開けた部屋のような箇所に足を踏み入れた
PRINTFORMW 見渡せば部屋の三分の二ほどが水没しており、水に濡れた石灰質の壁面のところどころが怪しく光っている…
PRINTL
PRINTFORMW 見取り図によればここは複雑な水中トンネルで繋がっているスキュラの縄張りの一つだ
PRINTFORMW 今回の調査範囲では最も危険な場所と言えるだろう…
PRINTFORMW この洞窟のスキュラは外海の同族と異なる狩りのスタイルを持っており、普段は水中に潜んでいる
PRINTFORMW 獲物が油断したところを見逃さず、一瞬にして襲いかかってくるのだ
PRINTL
PRINTFORMW 海魔相手に水中で戦うのは無謀すぎる　何らかの手段で陸上まで誘引する必要があるが
PRINTFORMW 地の利を持つ相手に取れる手はそう多くはない…
PRINTL
PRINTL
PRINTFORMW 軍船が海魔を相手取る場合、火薬の代わりにマナを帯びた火石を詰めた樽爆弾を水中で起爆させる戦法が取られることもある
PRINTFORMW 火石は扱いが難しい上に高価な品であるため、そうそう使える手ではないのだが
PRINTFORMW これに着想を得た冒険者が、洞窟内に生息する浮海月を用いてスキュラを混乱させた、という先例があるようだ
PRINTFORMW 生命の危機を感じた浮海月は、雷のマナを蓄えている体内器官を破裂させ、周囲の敵を麻痺させようとするらしい
PRINTL
PRINTFORMW 身体能力に自信があり、リスクを恐れないならば
PRINTFORMW スキュラの注意を引いてより有利な場所に誘い出すという方法も考えられる…
PRINTL
CALL ASK_YN("浮海月を捕獲して利用し、混乱させる（器用）", "誘引役を決め、待ち伏せをする（身体:やや高難度　失敗時のリスク大）")
IF RESULT == 0
    CALL QST_PARTY_ROLL("器用", 0, 0, 8, 6)
    TARGET_CHARA_ID = RESULT:1
    IF RESULT
        PRINTFORMW %ANAME(TARGET_CHARA_ID)%はふよふよと漂う浮海月を刺激しないよう慎重に捕まえると
        PRINTFORMW 微妙な回転を加えながら、スキュラの潜む水場に向けて投げ込んだ！
        PRINTL
        PRINTFORMW 浮海月は空中で体勢を立て直そうとするが、うまくいかず水面に落下してしまい
        PRINTFORMW バァン！！　という破裂音と共に青白い強烈な閃光を発する
        PRINTL
        PRINTFORMW 程なくして水面が波打ち始め、耳をつんざくような金切声を上げながらスキュラの巨体が次々と飛び出してきた！
        PRINTFORMW 数は3体　しかし明らかに混乱しており、下半身から生える巨大な触手をもつれさせながら水場から離れようとしている
        PRINTFORMW 戦いを仕掛けるには今が好機だ…
        PRINTL
        CALLF TAG_PRINT(@"@C:{カラー_注意}@%QST_LEADER_NAME()%は混乱し怒り狂う海魔の群れに奇襲を仕掛けた！@/C@", 1)
        WAIT
        ;戦闘イベント
        CALL CC_INIT()
        FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
            CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
        NEXT
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 3500, 5000, 35, 10, 1, WPN_脅威選定_魔術師)
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 4000, 5000, 40, 20, 1, WPN_脅威選定_低脅威)
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 4000, 5000, 40, 20, 1, WPN_脅威選定_低脅威)
        CALL CC_ADDMOB("DEFENDER", "フレンジード・カシオペア", 1500, 1500, 10, 40, 0)
        ;浮海月くんげきおこ
        CALL CLOSE_COMBAT()
        IF RESULT == 1
            CALL QUEST_20_DL2_STF_03
        ELSE
            CALL QUEST_20_DL2_STF_DEFEAT
        ENDIF
    ELSE
        PRINTFORMW %ANAME(TARGET_CHARA_ID)%はふよふよと漂う浮海月を刺激しないよう慎重に捕まえると
        PRINTFORMW スキュラの潜む水場に向けて投げ込んだ！
        PRINTL
        PRINTFORMW しかし、浮海月はうまく空中で姿勢を立て直すと
        PRINTFORMW 何事も無かったかのように飛び去ってしまった…
        PRINTL
        PRINTFORMW すると程なくして水面が波打ち、スキュラの姿が浮かび上がってきた　…数は3体だ
        PRINTFORMW 小舟ほどの長さのある丸太のように太い触手が、下半身から10本ほど生えており
        PRINTFORMW 美しい女性の姿をした上半身は酷薄な笑みを浮かべているが、その目には獣の獰猛さを湛えている…
        PRINTL
        PRINTFORMW とりあえず注意を引くことは出来たようだ
        PRINTFORMW あとは水中に引き込まれないよう、慎重に戦いを進めるべきだろう…
        PRINTL
        CALLF TAG_PRINT(@"@C:{カラー_注意}@%QST_LEADER_NAME()%は武器を構え、海魔と対峙した！@/C@", 1)
        WAIT
        ;戦闘イベント
        CALL CC_INIT()
        FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
            CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
        NEXT
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 5000, 5000, 60, 25, 1, WPN_脅威選定_低脅威)
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 5000, 5000, 60, 25, 1, WPN_脅威選定_低脅威)
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 5000, 5000, 60, 25, 1, WPN_脅威選定_低脅威)
        CALL CLOSE_COMBAT()
        IF RESULT == 1
            CALL QUEST_20_DL2_STF_03
        ELSE
            CALL QUEST_20_DL2_STF_DEFEAT
        ENDIF
    ENDIF
ELSE
    CALL QST_PARTY_ROLL("身体", 10, 0, 10, 8)
    TARGET_CHARA_ID = RESULT:1
    IF RESULT
        PRINTFORMW スキュラの潜む水場に向かって%ANAME(TARGET_CHARA_ID)%は慎重に歩みを進める…
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …！！！
        PRINTL
        PRINTFORMW 水中から巨大な触手が振るわれたが、%ANAME(TARGET_CHARA_ID)%はうまく反応し身をかわした！
        PRINTFORMW %ANAME(TARGET_CHARA_ID)%が素早く水場から距離を取ると、水面が揺れ3体のスキュラが姿を現す
        PRINTFORMW 小舟ほどの長さのある丸太のように太い触手が、下半身から10本ほど生えており
        PRINTFORMW 美しい女性の姿をした上半身から　まるで高笑いのような声を発しながら、ズルズルと陸地部分に這い上がってくる…
        PRINTFORMW 獲物を1体だけと見たか取り逃がした事に怒りを感じたか、走り始めた%ANAME(TARGET_CHARA_ID)%を追跡する構えのようだ
        PRINTL
        PRINTL
        CALLF TAG_PRINT(@"@C:{カラー_注意}@…スキュラを水場から大きく引き離すことに成功した！　反撃の時だ！@/C@", 1)
        WAIT
        ;戦闘イベント
        CALL CC_INIT()
        FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
            CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
        NEXT
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 5000, 5000, 40, 10, 1, WPN_脅威選定_低脅威)
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 5000, 5000, 40, 10, 1, WPN_脅威選定_低脅威)
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 5000, 5000, 40, 10, 1, WPN_脅威選定_低脅威)
        CALL CLOSE_COMBAT()
        IF RESULT == 1
            CALL QUEST_20_DL2_STF_03
        ELSE
            CALL QUEST_20_DL2_STF_DEFEAT
        ENDIF
    ELSE
        PRINTFORMW スキュラの潜む水場に向かって%ANAME(TARGET_CHARA_ID)%は慎重に歩みを進める…
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …！！！
        PRINTL
        PRINTFORMW 突如として水中から振るわれた巨大な触手に、%ANAME(TARGET_CHARA_ID)%は反応できず捕らわれてしまった！
        PRINTL
        PRINTFORMW 大木のような触手に全身を締め上げられる苦痛の中、%ANAME(TARGET_CHARA_ID)%は一か八かで触手に武器を突き立てる…
        PRINTFORMW 運よく急所に刺さったのか、触手は%ANAME(TARGET_CHARA_ID)%を放り投げ、陸地に叩きつけた！
        CALL QST_CHANGE_HP(TARGET_CHARA_ID, -3000)
        CALL COLOR_PRINTW(@"―――― %ANAME(TARGET_CHARA_ID)%は痛手を負いながらも、なんとか触手から逃れることに成功した！", カラー_注意)
        PRINTL
        PRINTFORMW 弱った獲物にトドメを刺そうとしたか、水面からスキュラの姿が浮かび上がってきた　…数は3体だ
        PRINTFORMW 一本一本が小舟ほどの長さのある巨大な触手が、下半身から10本ほど生えており
        PRINTFORMW 美しい女性の姿をした上半身は酷薄な笑みを浮かべているが、その目には獣の獰猛さを湛えている…
        PRINTL
        PRINTFORMW 注意を引くことはできたようだが、水のマナを操るスキュラに対して依然不利であることには変わりはない
        PRINTFORMW 水中に引き込まれないよう、慎重に戦いを進める必要がある…
        PRINTL
        CALLF TAG_PRINT(@"@C:{カラー_注意}@%QST_LEADER_NAME()%は武器を構え、海魔と対峙した！@/C@", 1)
        WAIT
        ;戦闘イベント
        CALL CC_INIT()
        FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
            CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
        NEXT
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 4950, 5000, 60, 25, 1, WPN_脅威選定_低耐久)
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 5000, 5000, 60, 25, 1, WPN_脅威選定_低脅威)
        CALL CC_ADDMOB("DEFENDER", "スキュレー・テンタクラー", 5000, 5000, 60, 25, 1, WPN_脅威選定_低脅威)
        CALL CLOSE_COMBAT()
        IF RESULT == 1
            CALL QUEST_20_DL2_STF_03
        ELSE
            CALL QUEST_20_DL2_STF_DEFEAT
        ENDIF
    ENDIF
ENDIF

@QUEST_20_DL2_STF_03
#DIM TARGET_ID
#DIM TARGET_CHARA_ID
PRINTFORMW …%QST_LEADER_NAME()%は海魔の群れを撃破した！
CALL CC_ADD_COMBAT_EXP(25)
CALL CC_APPLY_CHARA_HP()
PRINTL
PRINTL
PRINTFORMW 他の魔物は暴れ回る海魔に恐れをなして既に逃げ去っていたため、これで当面の安全は確保された筈だ
PRINTFORMW 今のうちに応急手当や休憩を済ませ、身体を休めておくべきだろう…
PRINTL
;パーティ全員の体力を回復
FOR LOCAL, 0, QST_PARTYNUM
    TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
    CALL QST_CHANGE_HP(TARGET_ID, 2000)
NEXT
WAIT
PRINTL
PRINTL
PRINTFORMW あとは手順通りの測量と調査を終えれば、依頼自体は達成できるが…
PRINTFORMW 潮が動きはじめるまではまだ時間がある
PRINTFORMW 余力があり、かつ大きな成果を求めるなら、見取り図にない場所まで調査範囲を広げてもいいだろう
PRINTFORMW 当然ながら未踏領域の探索にはリスクもあるため、注意が必要だ
PRINTL
PRINTFORML もしくは観察力か魔力に優れたメンバーが指揮を執り、この場所での成果の拡張を狙うこともできる
CALL ASK_MULTI_JUDGE("ここで追加調査を行う（観察）", 1, "マナの流れを調べる (魔術)", 1, "探索範囲を広げてみる（戦闘や罠の可能性あり）", 1)
SELECTCASE RESULT
    CASE 0
        CALL QST_PARTY_ROLL("観察", 10, 0, 5, 2)
        TARGET_CHARA_ID = RESULT:1
        IF RESULT
            CALL QUEST_20_DL2_STF_B01
        ELSE
            CALL QUEST_20_DL2_STF_GARAKUTA
        ENDIF
    CASE 1
        CALL QST_PARTY_ROLL("魔術", -20, 0, 10, 5)
        TARGET_CHARA_ID = RESULT:1
        IF RESULT
            CALL QUEST_20_DL2_STF_B02
        ELSE
            CALL QUEST_20_DL2_STF_GARAKUTA
        ENDIF
    CASEELSE
        CALL QUEST_20_DL2_STF_04
ENDSELECT

;観察ルートのあたりロール　１６面ダイス
@QUEST_20_DL2_STF_B01
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
SELECTCASE RAND:15
    CASE 0
        CALL PRINT_TITLE("「まことの」銀", "イベント")
        PRINTL
        PRINTFORMW %SPLIT_RAND("破損した鍾乳石/石灰質の岩壁",1)%の中に、半ば埋もれるように存在する%SPLIT_RAND("奇妙な装飾品/兜らしき武具の一部/鎖状に接続されたいくつかの金属環",1)%を発見した！
        PRINTFORMW いったいどれほどの年月を経たものなのだろうか…？
        PRINTFORMW 銀製のようだが、何故か傷や曇りも無く新品のような白銀の輝きを放っている
        PRINTL
        PRINTFORMW 或いは、かなり貴重なものかも知れない　これを持ち帰れば追加の成果としては十分だろう…
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …………
        PRINTL
        PRINTL
        PRINTFORMW 結果的に、依頼主であるアカデミーは提示額を大きく上回る報酬を支払ってきた
        PRINTFORMW あの銀製品は考古学的に重要なものだったらしく、別の学派からの謝礼が上乗せされたとの話だ
        PRINTL
        PRINTFORMW アカデミーの代理人とのやりとりを近くで聞いていた赤ら顔のドワーフ族の冒険者は
        PRINTFORMW 彼らの種族の神話に伝えられる「灰輝銀」とやらだったのではないか、と言っていたが
        PRINTFORMW 酔っぱらったドワーフの話にどこまで信憑性があるものやら…
        PRINTFORMW ともあれ、後は考古学者の仕事だろう
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として15,000ディナリを得た", カラー_注意)
        MONEY += 15000
        ;クエスト終了時の決まり文句
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
    CASE 1 to 5
        PRINTL
        PRINTFORMW 部屋の調査を行った結果、珍しい生き物が生息する水たまりを発見した
        PRINTFORMW 小さなプールの中には透明なエビや、色とりどりの光を放つ貝の姿が見える
        PRINTFORMW これらをサンプルとして持ち帰れば、追加の成果としては充分だろう…
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …………
        PRINTL
        PRINTL
        PRINTFORMW 依頼主であるアカデミーは結果に満足したようで、満額以上の報酬を提示してきた
        PRINTFORMW 今回の依頼は成功裏に終えることができたようだ
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として8,000ディナリを得た", カラー_注意)
        MONEY += 8000
        ;クエスト終了時の決まり文句
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
    CASEELSE
        PRINTFORMW %ANAME(QST_RANDCHARA())%は大人しい浮海月を生け捕りにすることに成功した！
        PRINTFORMW 縄で縛られても特に抵抗する様子はなく、まるでバルーンのように漂っている…
        PRINTL
        PRINTFORMW 浮海月は鳥や気球とはまったく異なる、雷の性質を持つマナを用いた未知の原理で浮遊しているとされ
        PRINTFORMW 目下アカデミーの研究対象になっているという
        PRINTFORMW これをサンプルとして持ち帰れば、追加の成果としては充分だろう…
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …………
        PRINTL
        PRINTL
        PRINTFORMW 依頼主であるアカデミーは結果に満足したようで、満額の報酬を提示してきた
        PRINTFORMW 今回の依頼は成功裏に終えることができたようだ
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として5,000ディナリを得た", カラー_注意)
        MONEY += 5000
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
ENDSELECT

;魔術ルートのあたりロール
@QUEST_20_DL2_STF_B02
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
SELECTCASE RAND:15
    CASE 0
        CALL PRINT_TITLE("「まことの」銀", "イベント")
        PRINTL
        PRINTFORMW %SPLIT_RAND("破損した鍾乳石/石灰質の岩壁",1)%の中に、半ば埋もれるように存在する%SPLIT_RAND("奇妙な装飾品/兜らしき武具の一部/鎖状に接続されたいくつかの金属環",1)%を発見した！
        PRINTFORMW いったいどれほどの年月を経たものなのだろうか…？
        PRINTFORMW 銀製のようだが、何故か傷や曇りも無く新品のような白銀の輝きを放っている
        PRINTL
        PRINTFORMW マナの通りからして、通常の銀や魔導銀とも違うようだ…　これを持ち帰れば追加の成果としては十分だろう…
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …………
        PRINTL
        PRINTL
        PRINTFORMW 結果的に、依頼主であるアカデミーは提示額を大きく上回る報酬を支払ってきた
        PRINTFORMW あの銀製品は考古学的に重要なものだったらしく、別の学派からの謝礼が上乗せされたとの話だ
        PRINTL
        PRINTFORMW アカデミーの代理人とのやりとりを近くで聞いていた赤ら顔のドワーフ族の冒険者は
        PRINTFORMW 彼らの種族の神話に伝えられる「灰輝銀」とやらだったのではないか、と言っていたが
        PRINTFORMW 酔っぱらったドワーフの話にどこまで信憑性があるものやら…
        PRINTFORMW ともあれ、後は考古学者の仕事だろう
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として15,000ディナリを得た", カラー_注意)
        MONEY += 15000
        ;クエスト終了時の決まり文句
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
    CASE 1 to 5
        PRINTL
        PRINTFORMW 部屋の調査を行った結果、奇妙な骨を発見した
        PRINTFORMW マナを蓄えることのできる性質を持つ様子であり、先天的に魔術を扱える種族が遺したものと推測できる
        PRINTFORMW 追加調査の成果物としては上々のはずだ…
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …………
        PRINTL
        PRINTL
        PRINTFORMW 依頼主であるアカデミーは結果に満足したようで、満額以上の報酬を提示してきた
        PRINTFORMW 今回の依頼は成功裏に終えることができたようだ
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として9,000ディナリを得た", カラー_注意)
        MONEY += 9000
        ;クエスト終了時の決まり文句
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
    CASEELSE
        PRINTFORMW 部屋の調査を行った結果、真鍮に似た金属で造られた%SPLIT_RAND("矢じりの先端/古めかしい形式の剣/破損した歯車",1)%を発見した
        PRINTFORMW 経年による劣化は免れないが、マナの伝導が非常に良い性質を持っており
        PRINTFORMW 上古の文明が潤沢なマナを活用していたことが偲ばれる…
        PRINTL
        PRINTFORML 上古の魔導装置の類は錬金学的観点から見るとかなり強引な構造をしており
        PRINTFORML 空気中のマナが減少している現代ではほとんど役に立たないと言われているが
        PRINTFORMW マナのエネルギー転換自体は魔導科学の礎となった技術でもあるため、追加調査の成果物としては充分なものだろう…
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …………
        PRINTL
        PRINTL
        PRINTFORMW 依頼主であるアカデミーは結果に満足したようで、満額の報酬を提示してきた
        PRINTFORMW 今回の依頼は成功裏に終えることができたようだ
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として6,000ディナリを得た", カラー_注意)
        MONEY += 6000
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
ENDSELECT

;共通のはずれ
@QUEST_20_DL2_STF_GARAKUTA
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
PRINTFORMW 残念ながら発見物の中にこれといった物は無かったようで、依頼主は標準的な報酬を提示してきた
PRINTFORMW 成果の拡張には失敗したが、とりあえず今回の依頼は成功と言えるだろう
PRINTL
PRINTL
PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
CALL COLOR_PRINTW("報酬として4,000ディナリを得た", カラー_注意)
MONEY += 4000
TFLAG:クエスト_完了フラグ = 1
CALL TRAIN_EXIT()

;追加探索ルート
@QUEST_20_DL2_STF_04
PRINTFORMW 洞窟は更に奥まで広がっているので、探索する事で思わぬ発見があるかも知れない
PRINTFORMW 自らの運と技能を信じ、%QST_LEADER_NAME()%は慎重に探索を進めていく…
PRINTL
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
;追加の目的地は20面ダイスで決めてみる
SELECTCASE RAND:19
    CASE 0 to 4
        CALL QUEST_20_DL2_STF_05
    CASE 5 to 14
        CALLF TAG_PRINT(@"@C:{カラー_注意}@――敵襲だ！@/C@", 1)
        WAIT
        ;戦闘イベント
        SELECTCASE RAND:2
            CASE 0
                ;狂ったコウモリの群れ
                CALL CC_INIT()
                FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
                    CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
                NEXT
                CALL CC_ADDMOB("DEFENDER", "サベージ・バット", 1800, 1800, 50, 0, 1, WPN_脅威選定_高脅威)
                CALL CC_ADDMOB("DEFENDER", "ケイブ・バット", 900, 900, 40, 0, 0, WPN_脅威選定_高脅威)
                CALL CC_ADDMOB("DEFENDER", "ケイブ・バット", 900, 900, 40, 0, 0, WPN_脅威選定_高脅威)
                CALL CC_ADDMOB("DEFENDER", "ケイブ・バット", 900, 900, 40, 0, 0, WPN_脅威選定_高脅威)
                CALL CC_ADDMOB("DEFENDER", "ケイブ・バット", 900, 900, 40, 0, 0, WPN_脅威選定_高脅威)
                CALL CLOSE_COMBAT()
                IF RESULT == 1
                    ;戦闘参加メンバー全員に経験値5を付与
                    CALL CC_ADD_COMBAT_EXP(5)
                    ;戦闘でのHP増減をパーティの体力に反映
                    CALL CC_APPLY_CHARA_HP()
                    WAIT
                    CALL QUEST_20_DL2_STF_04_END
                ELSE
                    CALL QUEST_20_DL2_STF_DEFEAT
                ENDIF
            CASE 1
                ;『スライムつむり』と触手宮からの刺客
                CALL CC_INIT()
                FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
                    CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
                NEXT
                CALL CC_ADDMOB("DEFENDER", "スネイルブロブ", 4000, 4000, 10, 10, 0)
                CALL CC_ADDMOB("DEFENDER", "スネイルブロブ", 4000, 4000, 10, 10, 0)
                CALL CC_ADDMOB("DEFENDER", "ゲルシューター", 1600, 1600, 40, 0, 0, WPN_脅威選定_低耐久)
                CALL CC_ADDMOB("DEFENDER", "ゲルシューター", 1600, 1600, 40, 0, 0, WPN_脅威選定_低耐久)
                CALL CLOSE_COMBAT()
                IF RESULT == 1
                    ;戦闘参加メンバー全員に経験値7を付与
                    CALL CC_ADD_COMBAT_EXP(7)
                    ;戦闘でのHP増減をパーティの体力に反映
                    CALL CC_APPLY_CHARA_HP()
                    WAIT
                    CALL QUEST_20_DL2_STF_04_END
                ELSE
                    CALL QUEST_20_DL2_STF_DEFEAT
                ENDIF
            CASEELSE
                ;生きた化石
                CALL CC_INIT()
                FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
                    CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
                NEXT
                CALL CC_ADDMOB("DEFENDER", "巨大海蠍『アキュティラムス』", 3500, 3500, 50, 40, 1, WPN_脅威選定_低脅威)
                CALL CC_ADDMOB("DEFENDER", "シースコーピオン", 2500, 2500, 45, 20, 0, WPN_脅威選定_低脅威)
                CALL CC_ADDMOB("DEFENDER", "シースコーピオン", 2500, 2500, 45, 20, 0, WPN_脅威選定_低脅威)
                CALL CLOSE_COMBAT()
                IF RESULT == 1
                    ;戦闘参加メンバー全員に経験値12を付与
                    CALL CC_ADD_COMBAT_EXP(12)
                    ;戦闘でのHP増減をパーティの体力に反映
                    CALL CC_APPLY_CHARA_HP()
                    WAIT
                    CALL QUEST_20_DL2_STF_04_END
                ELSE
                    CALL QUEST_20_DL2_STF_DEFEAT
                ENDIF
        ENDSELECT
    CASEELSE
        CALL QUEST_20_DL2_STF_04_END
ENDSELECT

@QUEST_20_DL2_STF_04_END
PRINTL
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
SELECTCASE RAND:19
    CASE 0
        CALL PRINT_TITLE("きのこの部屋", "イベント")
        PRINTL
        PRINTFORMW 水が僅かに流れる下り坂のトンネルを進んでいくと、やがて通路の先の空間から光が漏れているのが見えてくる
        PRINTFORMW %QST_LEADER_NAME()%は光の正体を確かめるべく、警戒しながら歩みを進める…
        PRINTL
        PRINTFORMW 通路の先で目に飛び込んできたものは、大きなドーム状の空間で青白く発光する巨大なキノコだった
        PRINTFORMW 三階建ての建物ほどの大きさはあるだろうか？
        PRINTFORMW 傘の高さは天井付近まで伸びており、部屋全体を照らし出しているように感じられる…
        PRINTL
        PRINTFORMW この奇妙な部屋を発見したことは、探索の成果として不足ないものと言えるだろう
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …………
        PRINTL
        PRINTL
        PRINTFORMW 結果的に、依頼主であるアカデミーはかなりの額の報酬を提示してきた
        PRINTFORMW 代理人によれば、発光茸があれほど巨大化するケースは非常に珍しく
        PRINTFORMW 洞窟内の目印として今後の探索にも資する成果との事だ…
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として8,500ディナリを得た", カラー_注意)
        MONEY += 8500
        ;クエスト終了時の決まり文句
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
    CASE 1 to 9
        PRINTFORMW 探索の成果として、いくつかの通路に加え
        PRINTFORMW さらなる奥へと繋がる大部屋を発見することが出来た…
        PRINTL
        PRINTFORMW アカデミーからの報酬も若干ながら上乗せされたようだ
        PRINTFORMW 今回の依頼は成功裏に終えることができたと言えるだろう
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として5,000ディナリを得た", カラー_注意)
        MONEY += 5000
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
    CASEELSE
        PRINTFORMW 探索の成果として、いくつかの通路と小部屋を発見することができた…
        PRINTL
        PRINTFORMW アカデミーからの報酬も若干ながら上乗せされたようだ
        PRINTFORMW 今回の依頼は成功裏に終えることができたと言えるだろう
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として4,500ディナリを得た", カラー_注意)
        MONEY += 4500
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
ENDSELECT

;サハギン襲撃ルート
@QUEST_20_DL2_STF_05
#DIM TARGET_CHARA_ID
#DIM TARGET_ID
CALL COLOR_PRINTW(@"　※　　おおっと　　※　", カラー_赤)
PRINTL
CALL COLOR_PRINTL("巧妙に設置されていた魔術のトラップだ！　すぐに対処を行う必要がある", カラー_注意)
CALL ASK_MULTI_JUDGE("解除を試みる（器用・高難度）", 1, "術式を破壊する (魔術)", 1, "強行突破を図る", 1)
SELECTCASE RESULT
    CASE 0
        CALL QST_PARTY_ROLL("器用", 40, 0, 20, 5)
        TARGET_CHARA_ID = RESULT:1
        IF RESULT
            PRINTL
            CALL COLOR_PRINTW(@"――%ANAME(TARGET_CHARA_ID)%は咄嗟の機転でトラップを誤動作させることに成功した！", カラー_注意)
        ELSE
            PRINTL
            CALL COLOR_PRINTW(@"―――失敗だ！　%ANAME(TARGET_CHARA_ID)%に猛烈な冷気の爆発が襲い掛かる！", カラー_注意)
            CALL QST_CHANGE_HP(TARGET_CHARA_ID, -2000)
        ENDIF
    CASE 1
        CALL QST_PARTY_ROLL("魔術", 0, 0, 20, 10)
        TARGET_CHARA_ID = RESULT:1
        IF RESULT
            PRINTL
            CALL COLOR_PRINTW(@"――%ANAME(TARGET_CHARA_ID)%は魔法陣の性質を素早く看破し、破壊することに成功した！", カラー_注意)
        ELSE
            PRINTL
            CALL COLOR_PRINTW(@"―――失敗だ！　%ANAME(TARGET_CHARA_ID)%に猛烈な冷気の爆発が襲い掛かる！", カラー_注意)
            CALL QST_CHANGE_HP(TARGET_CHARA_ID, -2000)
        ENDIF
    CASEELSE
        PRINTL
        PRINTFORMW 罠の無力化が難しいとなれば、加害範囲から逃れることを優先するしかない…
        PRINTFORMW %QST_LEADER_NAME()%はトラップの強行突破を図った！
        PRINTL
        CALL COLOR_PRINTW(@"術式が起動し、猛烈な冷気の爆発が襲い掛かる！", カラー_注意)
        ;パーティ全員の体力を減らす
        FOR LOCAL, 0, QST_PARTYNUM
            TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
            CALL QST_CHANGE_HP(TARGET_ID, -300)
        NEXT
ENDSELECT
PRINTL
PRINTFORMW 息つく間もなく、暗がりから直立した魚のような姿の人影が姿を現す　――――サハギン族だ！
PRINTFORMW ヒレ状の手には発光茸の光を反射し鈍く輝く武器を握っており、こちらへの敵意を隠そうともしていない
PRINTFORMW どうやら、罠を張り待ち伏せしていたらしい…
PRINTL
PRINTFORML 一気に畳み掛ける好機と見たのだろうか
PRINTFORMW サハギン達は互いに目くばせすると、武器を掲げ襲い掛かってきた！
PRINTL
CALLF TAG_PRINT(@"@C:{カラー_注意}@サハギン族の斥候部隊の襲撃を受けた！@/C@", 1)
WAIT
;白兵戦参加メンバーの初期化
CALL CC_INIT()
;攻撃側キャラクターの設定(最大6名)
FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
    CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
NEXT
;防御側キャラクターの設定(最大6名)
CALL CC_ADDMOB("DEFENDER", "サハギン・フォアマン", 2700, 2700, 35, 60, 1, WPN_脅威選定_魔術師)
CALL CC_ADDMOB("DEFENDER", "サモンド・ネーレーイス", 2000, 2000, 5, 65, 1)
CALL CC_ADDMOB("DEFENDER", "サハギン・ファナティック", 3400, 3400, 50, 10, 0, WPN_脅威選定_高脅威)
CALL CC_ADDMOB("DEFENDER", "サハギン・ファナティック", 3400, 3400, 50, 10, 0, WPN_脅威選定_高脅威)
;白兵戦イベント呼出
CALL CLOSE_COMBAT()
;CLOSE_COMBATの戻り値は攻撃側勝利 = 1,防衛側勝利 = 2
IF RESULT == 1
    ;戦闘参加メンバー全員に経験値20を付与
    CALL CC_ADD_COMBAT_EXP(20)
    ;戦闘でのHP増減をパーティの体力に反映
    CALL CC_APPLY_CHARA_HP()
    WAIT
    PRINTL
    PRINTFORMW %ANAME(QST_RANDCHARA())%がリーダー格のサハギンを打ち倒すと、途端に濃霧が立ち込め始めまったく視界が効かなくなる…
    PRINTFORMW %QST_LEADER_NAME()%は追撃を警戒し防御態勢を取るが、程なくして霧は晴れ、サハギン達の姿も消えていた
    PRINTL
    PRINTFORMW 先へ続く通路には点々と血の跡が残されている　どうやらサハギン達は不利を悟り、撤退を選んだようだ
    PRINTFORMW 先ほどは何とか凌いだが、更なる待ち伏せやより致死的な罠が仕掛けられているかも知れない
    PRINTFORMW %QST_LEADER_NAME()%は一層警戒を強めながら、血の跡を辿り追跡することにした…
    CALL QUEST_20_DL2_STF_06
ELSE
    CALL QUEST_20_DL2_STF_DEFEAT
ENDIF

@QUEST_20_DL2_STF_06
PRINTL
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
SELECTCASE RAND:5
    CASE 0
        CALL PRINT_TITLE("サハギンの入り江", "イベント")
        PRINTL
        PRINTFORMW 狭く曲がりくねった通路を抜けると、突然に開けた広い空間が現れた！
        PRINTFORMW 波の音が聞こえ、暗がりに慣れた目が眩む…
        PRINTL
        PRINTFORMW 驚くべきことに洞窟の中に浜辺が広がっており、先に見える開口部からは陽光に煌めく海面が見えている
        PRINTFORMW 洞窟を進んでいるうちに、海岸線の近くまで出てきてしまったようだ
        PRINTL
        PRINTFORMW 見れば浜辺には、座礁し放棄されたであろう古い帆船の姿もある
        PRINTFORMW ここは元々、海賊たちの隠れ家か何かだったのだろうか…？
        PRINTL
        PRINTFORMW あのサハギン達は、この秘密の入口を利用して洞窟に侵入していたのかも知れない
        PRINTFORMW となれば、今回の発見は大きな成果となるだろう…
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …………
        PRINTL
        PRINTL
        PRINTFORMW 結局、依頼主のアカデミーは提示額を大きく上回る報酬を支払ってきた
        PRINTFORMW サハギン族の内陸部への浸透は周辺地域の治安維持を担うコモンウェルス艦隊を悩ませていたため
        PRINTFORMW 侵入経路の発見に対し、軍からの報奨金が上乗せされたとの事だ
        PRINTFORMW 今回の依頼は多くの困難があったが、大きな成功が得られたと言っていいだろう
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として15,000ディナリを得た！", カラー_注意)
        MONEY += 15000
        ;クエスト終了時の決まり文句
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
    CASEELSE
        PRINTFORMW ……深く、底の見えない水場のある縦穴の手前で血痕は途絶えていた
        PRINTFORMW サハギン達は、洞窟内の水中トンネルを使って逃げていったのだろうか？
        PRINTL
        PRINTFORMW ともあれ、この先は完全に彼らの庭ということになる
        PRINTFORMW 今は一刻も早くこの場を離れ、依頼主に報告するべきだだろう
        PRINTL
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORMW …………
        PRINTL
        PRINTL
        PRINTFORMW 結果的に、依頼主のアカデミーは提示額をかなり上回る報酬を支払ってきた
        PRINTFORMW サハギン族の内陸部への浸透は周辺地域の治安維持を担うコモンウェルス艦隊を悩ませており
        PRINTFORMW 彼らの組織的な侵入を撃退したことに対し、軍からの報奨金が上乗せされたとの事だ
        PRINTFORMW 今回の依頼は多くの困難があったが、申し分ない成果が得られたと言っていいだろう
        PRINTL
        PRINTL
        PRINTFORMW %QST_LEADER_NAME()%はカシオペア厳窟の調査依頼を完了した！
        CALL COLOR_PRINTW("報酬として9,000ディナリを得た！", カラー_注意)
        MONEY += 9000
        ;クエスト終了時の決まり文句
        TFLAG:クエスト_完了フラグ = 1
        CALL TRAIN_EXIT()
ENDSELECT

@QUEST_20_DL2_STF_DEFEAT
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
PRINTFORMW %QST_LEADER_NAME()%は命からがら洞窟から逃げ延びた…
PRINTL
PRINTFORMW カシオペア厳窟は想像以上に危険な場所のようだ
PRINTFORMW いちど拠点に帰還し、より戦力を整えてから出直すべきだろう…
PRINTL
CALL PRINT_NOTICE("治療費や宿泊費として3,000ディナリを失った……")
MONEY -= 3000
TFLAG:クエスト_完了フラグ = 1
CALL TRAIN_EXIT()

;裏ルート
@QUEST_20_DL2_BCD
#DIM DYNAMIC MOB_ID
;#DIM CHARA_ID
#DIM TARGET_ID
#DIM CONST 派生イベントID = 501

TARGET_ID = QST_RANDCHARA()
PRINTL
PRINTL
SETCOLOR カラー_ライトブルー
PRINTFORML 「やれやれ…　まぁ、お前さんがやりたいってんなら止めやせんが…」
PRINTFORMW 「そっちのやり方を試すなら、ギルドの制帽着た女が居るだろ？　あいつに…」
PRINTL
SETCOLOR カラー_パ紫
PRINTFORML 「はぁ～い、呼びましたか呼ぶところですね？」
PRINTFORMW 「ご存じかも知れませんがぁ、この依頼は『囮』を使って解決しちゃう方法があるんですよぉ」
PRINTL
PRINTFORMW 「こちらの方法は少々特殊なのでぇ、必要な人員や物資の手配はぁ、全部ギルドにお任せくださぁい」
PRINTFORMW 「現場の段取りも私が全部取り仕切ってぇ、命の危険は無いようにするのでぇ、安心してくださいねぇ」
PRINTFORMW 「ただ内規上制約がありましてぇ、囮になる方だけはぁ依頼を受託した方の中から選んでもらう必要があるんですねぇ」
PRINTL
PRINTFORMW 「なので手続きを始める場合はぁ、最初に囮になるよぉ～って方を決めちゃってぇ、誓約書にサインしてくださいねぇ」
PRINTL
RESETCOLOR
CALL QST_SELECT_CHARA(, "誰がスキュラを引き付けるための囮になる？　キャンセルで考え直すこともできる")
TARGET_ID = RESULT
IF TARGET_ID == -1
    PRINTFORMW この方法は一人が負うことになるリスクが大きすぎる　やはり正攻法で臨むべきだろうか…？
    PRINTL
    CALL QUEST_20_DAYLAVOR_2
ELSE
    TCVAR:TARGET_ID:媚薬 += 1
    ;MAP_SET @"QUEST_{QST_有効クエストID}_MAP", "いけにえちゃん", @"{TARGET_ID}"
    PRINTL
    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORMW …………
    PRINTL
    CALL PRINT_TITLE("メガリスの娘たち", "エロイベント")
    WAIT
    PRINTL
    PRINTL
    PRINTFORMW カシオペア厳穴は夕暮港から馬車で数刻ほど、人里からやや離れた台地に入口が存在する
    PRINTFORMW 普段は静謐な環境であろう場所だが、現在はギルドの雇った人員が慌ただしく調査の準備を進めている
    PRINTFORML しかし、彼らは測量等を行う魔術師を除けば大半が募集に応じた港湾労働者だ
    PRINTFORMW 体力に自信はあるだろうが、戦闘に関してはあまり期待できないだろう…
    PRINTL
    SETCOLOR カラー_パ紫
    PRINTFORML 「心配だぁ～ってお顔をしてますねぇ　でも大丈夫！」
    PRINTFORML 「スキュラが繁殖行為を始めるとぉ、他の魔物はビックリして逃げちゃうんですぅ」
    PRINTFORMW 「人の恋路を邪魔するヤツはぁ～触手に蹴られて死んじゃえ～って　そういう娯楽小説がありましたよねぇ」
    RESETCOLOR
    PRINTL
    PRINTFORMW 命綱で縛られた上にスキュラの香水まみれにされた%ANAME(TARGET_ID)%にとって、心配の種はそれだけでは無いのだが…
    PRINTL
    PRINTFORMW ここまで来た以上は後戻り出来ないだろう
    PRINTFORML %ANAME(TARGET_ID)%は命綱と「息継ぎ」の付呪の指輪、自らの運を信じて
    PRINTFORMW 揺らめく水面に向け宙に身を躍らせた…
    PRINTL
    CALL COLOR_PRINTW(@"%ANAME(TARGET_ID)%の身体は、水底から浮かび上がってきた海魔に絡めとられた！", カラー_ピンク)
    WAIT

    ;調教イベントの初期設定
    CALL CLEAR_MPLY()
    CALL CLEAR_MTAR()
    FLAG:ウフフフラグ = 1
    FLAG:調教モード = 調教_慰安
    TFLAG:調教ターン数 = 15
    CVARSET CFLAG, GETNUM(CFLAG, "調教参加フラグ") , 0
    CFLAG:TARGET_ID:主導除外 = 1
    CFLAG:TARGET_ID:凌辱被害者フラグ = 1
    CFLAG:TARGET_ID:調教参加フラグ = 1

    ;スキュラと専用触手を生成
    FOR LOCAL, 0, 2
        CALL QST_QUEST_20_CREATE_Skylla
    NEXT

    FOR LOCAL, 0, 2
        CALL QST_TRAIN_MOB_PRESET(SPLIT_RAND("ブラシ触手/ブラシ触手",1), SPLIT_RAND("揺らめく触手/漂う触手",1))
        MOB_ID = RESULT
        CALL ADD_MPLY(MOB_ID)
        CALL SET_EQUIP(GETNUM(TRAINNAME, "触手召喚"), 1)
        CALL DEL_MPLY(MOB_ID)
        TALENT:MOB_ID:性別 = 2
        ABL:MOB_ID:レズ = 10
    NEXT

    CALL QST_ENQUEUE_TRAIN_EXIT_EVENT(派生イベントID)

ENDIF

;-------------------------------------------------
;以下スキュラ裏ルート用の派生EVENT
;EV501
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_501
#DIMS EVENT_TRIGGER = "TRAIN_EXIT"
RESULTS = %EVENT_TRIGGER%

@QST_QUEST_20_EVENT_501
#DIM CONST EVENT_ID = 501
#DIM EVENT_FLAG
PRINTL
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
SETCOLOR カラー_パ紫
PRINTFORML 「いい感じに引き付けてくれてますねぇ　本当に食べられちゃう心配もなさそうですぅ」
PRINTFORML 「ここらへんで囮になる方を引き上げてぇ、交代しますかぁ？　あっ、無理そうなら切り上げちゃう事も出来ますよぉ」
PRINTFORMW 「まだ簡単な測量くらいしか終わってないのでぇ、今やめちゃうと赤字ですけどねぇ」
RESETCOLOR
PRINTL
PRINTFORMW ディナリよりも安全を取るか、リスクを承知で続けるか…　決断する必要があるようだ
PRINTL

CALL ASK_YN("調査を続ける", "調査を切り上げる")
IF RESULT == 0
    CALL QUEST_20_DL2_BCD_2
ELSE
    PRINTFORMW …これ以上は危険と判断し、調査を切り上げることにした
    PRINTL
    CALL PRINT_NOTICE("報酬から治療費と各種経費を差し引き、1,000ディナリを失った……")
    MONEY -= 1000
    TFLAG:クエスト_完了フラグ = 1
    CALL TRAIN_EXIT()
    RETURN
ENDIF

@QUEST_20_DL2_BCD_2
#DIM TARGET_ID
#DIM DYNAMIC MOB_ID
#DIM CONST 派生イベントID = 502
CALL QST_SELECT_CHARA(, "誰が次の囮になる？　キャンセルで調査を中止できる")
TARGET_ID = RESULT
IF TARGET_ID == -1
    PRINTFORMW …これ以上は危険と判断し、調査を切り上げることにした
    PRINTL
    CALL PRINT_NOTICE("報酬から治療費と各種経費を差し引き、1,000ディナリを失った……")
    MONEY -= 1000
    TFLAG:クエスト_完了フラグ = 1
    CALL TRAIN_EXIT()
    RETURN
ELSE
    TCVAR:TARGET_ID:媚薬 += 1
    PRINTL
    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORMW …………
    PRINTL
    PRINTL
    CALL COLOR_PRINTW(@"%ANAME(TARGET_ID)%に塗布されたフェロモンに興奮した海魔の狂宴は続く…", カラー_ピンク)
    ;TARGET_ID = いけにえちゃん
    ;調教イベントの初期設定
    CALL CLEAR_MPLY()
    CALL CLEAR_MTAR()
    FLAG:ウフフフラグ = 1
    FLAG:調教モード = 調教_慰安
    TFLAG:調教ターン数 = 30
    CVARSET CFLAG, GETNUM(CFLAG, "調教参加フラグ") , 0
    CFLAG:TARGET_ID:主導除外 = 1
    CFLAG:TARGET_ID:凌辱被害者フラグ = 1
    CFLAG:TARGET_ID:調教参加フラグ = 1

    ;竿役生成
    FOR LOCAL, 0, 2
        CALL QST_QUEST_20_CREATE_Skylla
    NEXT

    FOR LOCAL, 0, 2
        CALL QST_TRAIN_MOB_PRESET(SPLIT_RAND("ブラシ触手/ブラシ触手",1), SPLIT_RAND("揺らめく触手/漂う触手",1))
        MOB_ID = RESULT
        CALL ADD_MPLY(MOB_ID)
        CALL SET_EQUIP(GETNUM(TRAINNAME, "触手召喚"), 1)
        CALL DEL_MPLY(MOB_ID)
        TALENT:MOB_ID:性別 = 2
        ABL:MOB_ID:レズ = 10
    NEXT
    CALL QST_ENQUEUE_TRAIN_EXIT_EVENT(派生イベントID)
ENDIF

;-------------------------------------------------
;EV502
;-------------------------------------------------

@QST_ADD_EVENT_QUEST_20_EVENT_502
#DIMS EVENT_TRIGGER = "TRAIN_EXIT"
RESULTS = %EVENT_TRIGGER%

@QST_QUEST_20_EVENT_502
#DIM CONST EVENT_ID = 502
#DIM EVENT_FLAG
PRINTL
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
SETCOLOR カラー_パ紫
PRINTFORMW 「順調ですねぇ　調査はあらかた終わりましたよぉ」
PRINTFORML 「もうひと稼ぎのためにぃ、機材を入れての標本採集なんかもしてみますかぁ？」
PRINTFORMW 「ただ搬入と撤収に結構時間がかかっちゃうのでぇ、囮の方もちょっと大変なことになるかもですねぇ」
RESETCOLOR
PRINTL
CALL ASK_YN("調査を続ける", "調査を切り上げる")
IF RESULT == 0
    CALL QUEST_20_DL2_BCD_3
ELSE
    PRINTL
    CALL PRINT_NOTICE("報酬から治療費と各種経費を差し引き、200ディナリを得た…")
    MONEY += 200
    TFLAG:クエスト_完了フラグ = 1
    CALL TRAIN_EXIT()
    RETURN
ENDIF

@QUEST_20_DL2_BCD_3
#DIM TARGET_ID
#DIM DYNAMIC MOB_ID
#DIM CONST 派生イベントID = 503
CALL QST_SELECT_CHARA(, "誰が次の囮になる？　キャンセルで調査を中止できる")
TARGET_ID = RESULT
IF TARGET_ID == -1
    PRINTFORMW …これ以上は危険と判断し、調査を切り上げることにした
    PRINTL
    CALL PRINT_NOTICE("報酬から治療費と各種経費を差し引き、200ディナリを得た…")
    MONEY += 200
    TFLAG:クエスト_完了フラグ = 1
    CALL TRAIN_EXIT()
    RETURN
ELSE
    TCVAR:TARGET_ID:媚薬 += 1
    PRINTL
    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORMW …………
    PRINTL
    PRINTL
    CALL COLOR_PRINTW(@"%ANAME(TARGET_ID)%の身体はすっかり海魔の触手に包まれてしまい、水上から視認することができない…", カラー_ピンク)
    ;調教イベントの初期設定
    CALL CLEAR_MPLY()
    CALL CLEAR_MTAR()
    FLAG:ウフフフラグ = 1
    FLAG:調教モード = 調教_慰安
    TFLAG:調教ターン数 = 40
    CVARSET CFLAG, GETNUM(CFLAG, "調教参加フラグ") , 0
    CFLAG:TARGET_ID:主導除外 = 1
    CFLAG:TARGET_ID:凌辱被害者フラグ = 1
    CFLAG:TARGET_ID:調教参加フラグ = 1

    ;竿役生成
    FOR LOCAL, 0, 3
        CALL QST_QUEST_20_CREATE_Skylla
    NEXT

    FOR LOCAL, 0, 3
        CALL QST_TRAIN_MOB_PRESET(SPLIT_RAND("触手/ブラシ触手/ブラシ触手",1), SPLIT_RAND("艶やかな触手/揺らめく触手/漂う触手",1))
        MOB_ID = RESULT
        CALL ADD_MPLY(MOB_ID)
        CALL SET_EQUIP(GETNUM(TRAINNAME, "触手召喚"), 1)
        CALL DEL_MPLY(MOB_ID)
        TALENT:MOB_ID:性別 = 2
        ABL:MOB_ID:レズ = 10
    NEXT
    CALL QST_ENQUEUE_TRAIN_EXIT_EVENT(派生イベントID)
ENDIF

;-------------------------------------------------
;EV503
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_20_EVENT_503
#DIMS EVENT_TRIGGER = "TRAIN_EXIT"
RESULTS = %EVENT_TRIGGER%

@QST_QUEST_20_EVENT_503
#DIM CONST EVENT_ID = 503
#DIM EVENT_FLAG

PRINTL
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
SETCOLOR カラー_パ紫
PRINTFORML 「生きてますか生きてますね？　みなさんのお力もあってぇ、調査はバッチリ終わりましたよぉ」
PRINTFORMW 「どうでしたかぁ？　新しい世界の扉とかぁ、開いちゃいましたぁ？」
PRINTFORMW 「んふふ、もしクセになっちゃったらぁ…　また声をかけてくださいねぇ」
RESETCOLOR
PRINTL
CALL PRINT_NOTICE("報酬から治療費と各種経費を差し引き、1000ディナリを得た！")
CALL COLOR_PRINTW(@"――　仲間を海魔の『餌』にした風聞が広がり、淫堕点を10点得た", カラー_注意)
CALL QST_CHANGE_ITEM(@"{ITEM_スキュラのフェロモン}, 1,")
MONEY += 1000
QST_LEWD_POINT += 10

TFLAG:クエスト_完了フラグ = 1
CALL TRAIN_EXIT()

;-------------------------------------------------
;派生ここまで
;-------------------------------------------------

;-------------------------------------------------
;日雇い依頼　人形退治
;-------------------------------------------------
@QUEST_20_DAYLAVOR_3
SETCOLOR カラー_緑
PRINTL
PRINTFORML 『教会の聖務を補助してくださる有志の冒険者・傭兵の皆様へ』
PRINTFORMW 『神の戦士としての重要な任務がございます　教会から適正な報酬が支払われるほか…』
RESETCOLOR
PRINTL
PRINTFORML 酒場にあまり似つかわしくない聖印のエンボスが施された羊皮紙には、教会からの依頼が書かれている
PRINTFORML 内容は教会が浄化する予定の戦場跡地に赴き、あらかじめ露払いを行うこと
PRINTFORML …具体的には、戦場で放棄された結果「勝手に動き出した」ゴーレムの「回収」だ
PRINTL
CALLF TAG_PRINT(@"難易度：@C:{カラー_注意}@★★★☆@/C@", 1)
PRINTL
PRINTFORML 報酬：5,000ディナリもしくは名誉点
PRINTFORML 推奨パーティ人数:4人以上　　　推奨平均戦闘値：40以上
PRINTL
SETCOLOR カラー_選択不可
PRINTFORML 「お前さんが信心深いならその場で報酬の銀貨を寄進して聖餅を拝領できる　偉いさんからの覚えも良くなるだろうな」
PRINTFORMW 「聖餅ってのは祝福される前の修道院製のパンだ　最近のヤツはまあまあ美味いぞ」
RESETCOLOR
PRINTL
PRINTFORMW …この依頼を受けようか？
PRINTL
CALL ASK_YN("クエストに出発する", "他のクエストを探す")
IF RESULT == 0
    CALL QUEST_20_DL3_01
ELSE
    CALL QUEST_20_EV102_QUEST_LIST
ENDIF

@QUEST_20_DL3_01
#DIM TARGET_ID
SETCOLOR カラー_ライトブルー
PRINTFORML 「そいつは野良ゴーレム駆除の依頼だな　見るからにゴツいやつが頑丈なのは言うまでもないんだが、
PRINTFORMW 　ひとむかし前の戦場跡に多い人形タイプの華奢な奴でも見た目以上にしぶといぜ、油断するなよ」
;夜だと休憩してから出発
IF HO_OCLOCK() >= 1800
    PRINTFORMW 「ただ今日はもう遅いからな…　部屋を貸してやるから、一晩ゆっくり休んで明日出発してくれ」
    PRINTFORMW 「代金の事は心配しなくていい、依頼主にツケておくさ」
    RESETCOLOR
    PRINTL
    PRINTFORMW 明日に備え、今日はもう休むことにした…
    PRINTL
    ;パーティ全員の体力を回復
    FOR LOCAL, 0, QST_PARTYNUM
        TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
        CALL QST_CHANGE_HP(TARGET_ID, 3000)
    NEXT
    WAIT
ENDIF
RESETCOLOR
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
SETCOLOR カラー_選択不可
PRINTFORML ヘスペリア半島東部はフロリア西部地域への玄関口にあたり、
PRINTFORMW かつては多くの富が行き交い「中央世界経済圏の大動脈」と言われていた中央公路にもほど近い
PRINTL
PRINTFORML この地域もフロリア内戦の初期には、大陸中央部の王党派と南部の共和派の諸侯たちが、
PRINTFORML 一帯の交易路や穀倉地帯の支配権を巡り争っていた場所のひとつである
PRINTFORML かつては幾度かの大規模な会戦が起きたこともあるが
PRINTFORMW 内戦による大陸経済網の荒廃に伴い、戦略的価値が大きく低下した結果、為政者によって長らく放置されていた
PRINTL
PRINTFORML 近年　ヘスペリア半島における人口増加に伴い、半島東部の開墾・再入植が喫緊の課題となっているが
PRINTFORMW 現状は破壊された村落に出没する魔物や、西商路の屍肉を漁る無法者が跋扈する危険地帯である…
RESETCOLOR
PRINTL
PRINTL
PRINTFORMW ―― 教会が用意した馬車で街道をしばらく進んだのち、歩くこと数刻ほど…
PRINTFORMW %QST_LEADER_NAME()%は今回の依頼の任地に到着した
PRINTFORML 付近は荒れ果てているが、すっかり朽ちてしまった廃墟の遺構や古井戸の存在から
PRINTFORMW おそらくは村落の跡地であろうことが推測できる
PRINTL
PRINTFORMW 多くの血が流れた場所とあってか、旅人も立ち寄ることは無いのだろう
PRINTFORMW 街道からさほど離れていないにも関わらず、付近は不気味な静けさに包まれている…
PRINTL
PRINTL
SETCOLOR カラー_選択不可
PRINTFORML かつて、戦場においてゴーレムは無用の長物とされていた
PRINTFORML 拠点防衛や攻略に用いるような大型で強力なものは、刻々と変化する戦況の中で
PRINTFORML 悠長に配置し稼働させる準備をすることなど到底不可能であり
PRINTFORMW 暗殺などに用いられる小型のものは、集団相手の乱戦となれば容易に破壊されてしまう
PRINTL
PRINTFORML だが、銃の登場によって　その評価は一変する
PRINTFORML フロリアで用いられていた人形型ゴーレム「オートマタ・メイデン」は
PRINTFORMW 極めて人間に近い構造を持ち「人形遣い」となる魔術師による繊細な操作が可能であった
PRINTL
PRINTFORML 時はテルシオ戦術の全盛期
PRINTFORML 装填や発射という規定の動作を行うだけならば、術者が多数の「人形」を操ることも可能であったため
PRINTFORMW 前面火力を担う戦力として「人形銃兵」が大量に製造・配備されたのである
PRINTL
PRINTFORML 壮麗な衣装を纏い、痛みも恐怖も感じない魔導仕掛けの乙女たちによる一斉射撃は
PRINTFORMW 往時のフロリアの財力と工業力…　すなわち魔導工廠が擁する職人たちの技術と「人形」芸術の象徴として、周辺諸国に恐れられた
PRINTL
PRINTFORML 一方で「オートマタ・メイデン」には、魔力による操作が容易であることの弊害として
PRINTFORML 適切な処置を行わず、戦場跡のようなマナが滞留しやすい環境に放置された場合
PRINTFORMW 「人間の死体」以上に魔物化しやすいという問題点がある…
RESETCOLOR
PRINTL
PRINTL
CALL PRINT_TITLE("乙女文楽", "イベント")
PRINTL
PRINTFORMW ――村の集会所だったのだろうか　やや大きな遺構のあたりを歩き回る複数の人影が見える…
PRINTFORMW ボロボロの衣服を纏った人間の女性のように見えるが…　片腕や頭が欠損した個体もいる
PRINTFORMW 彼女らが依頼の対象となっているゴーレムのようだ
PRINTFORMW とても話し合いが通じる相手ではない…　力づくで「廃品回収」を行う必要があるだろう
PRINTL
WAIT
;白兵戦参加メンバーの初期化
CALL CC_INIT()
;攻撃側キャラクターの設定(最大6名)
FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
    CALL CC_ADDCHARA("ATTACKER", TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL)))
NEXT
;防御側キャラクターの設定(最大6名)
CALL CC_ADDMOB("DEFENDER", "メイデン・マスケッティア", 3650, 4000, 50, 0, 0, WPN_脅威選定_高脅威)
CALL CC_ADDMOB("DEFENDER", "オートマタ・メイデン", 3550, 4000, 30, 0, 0)
CALL CC_ADDMOB("DEFENDER", "オートマタ・メイデン", 2250, 4000, 25, 0, 0)
CALL CC_ADDMOB("DEFENDER", "オートマタ・メイデン", 3400, 4000, 30, 0, 0)
;白兵戦イベント呼出
CALL CLOSE_COMBAT()
;CLOSE_COMBATの戻り値は攻撃側勝利 = 1,防衛側勝利 = 2
IF RESULT == 1
    ;戦闘参加メンバー全員に経験値10を付与
    CALL CC_ADD_COMBAT_EXP(10)
    ;戦闘でのHP増減をパーティの体力に反映
    CALL CC_APPLY_CHARA_HP()
    WAIT
    CALL QUEST_20_DL3_02
ELSE
    ;戦闘参加メンバー全員に経験値4を付与
    CALL CC_ADD_COMBAT_EXP(4)
    ;戦闘でのHP増減をパーティの体力に反映
    CALL CC_APPLY_CHARA_HP()
    WAIT
    CALL QUEST_20_DL3_DEFEAT
ENDIF

@QUEST_20_DL3_02
PRINTL
PRINTFORMW 最後に残った「人形」の腰部パーツが砕け散り、下半身が千切れ飛ぶ
PRINTFORMW 上半身だけになりながらも、腕を使いしぶとく這いずり寄ってくる「人形」の背中に%ANAME(QST_RANDCHARA())%が得物を突き立てると、
PRINTFORMW 動力源のマナ結晶を破壊されたのか、ガクンと痙攣した後ようやく動かなくなった…
PRINTL
CALL COLOR_PRINTW("「人形」の残骸から、3,000ディナリ相当の戦利品を得た！", カラー_注意)
MONEY += 3000
PRINTL
PRINTFORMW 「人形」が振るっていた武器の中に、非常に状態のいいバヨネット付きマスケット銃がある…
PRINTFORMW 元々はどこかの貴族の所有品だったのだろうか　高度な「固定化」の付呪が施されており、劣化や錆の兆候はまったく見られない
PRINTL
PRINTFORML ひと世代前のフロリアで大量に製造された型であり、現行世代のものに比べるとかなり重量があるが
PRINTFORML 数多く出回った事に加え　槍や棍棒としても扱い易く優秀であるため
PRINTFORMW 弾薬の入手が困難な辺境地域の冒険者の中ですら、それなりに使い手を見かけるモデルだ
PRINTFORMW これも戦利品として獲得できるだろう…
PRINTL
CALL PRINT_NOTICE("武器:メジエール・マスケットを手に入れた")
CALL QST_GET_WEAPON(20, "メジエール・マスケット", WPN_材質_銀,,,"[WPN_HARDSHOT:1]")
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTL
PRINTFORMW %QST_LEADER_NAME()%はゴーレム回収の依頼を完遂した！
PRINTL
PRINTFORML 5,000ディナリの報酬が用意されているが、辞退してその場で教会に寄進することも出来るようだ…
PRINTFORML どうしようか？
CALL ASK_YN("報酬を受け取る", "受け取りを辞退する")
IF RESULT == 0
    PRINTL
    CALL COLOR_PRINTW("報酬として5,000ディナリを得た！", カラー_注意)
    MONEY += 5000
ELSE
    PRINTL
    PRINTFORMW 報酬の受け取りを辞退し、教会に寄進した…
    CALL COLOR_PRINTW(@"――　聖餅を拝領し、名誉点を40点得た！", カラー_注意)
    QST_PRESTIGE_POINT += 40
ENDIF
PRINTL
PRINTL
SETCOLOR カラー_選択不可
PRINTFORML 一時は戦場を席巻した「人形銃兵」だったが
PRINTFORML 銃剣の発明以降、人間の部隊相手に後れを取ることが増え始める
PRINTFORML 銃兵の役割が槍兵を兼ねるものに変化したことで
PRINTFORMW 集団での乱戦を不得手とする小型ゴーレムの欠点が　再び露呈し始めたのである
PRINTL
PRINTFORML 更に銃や火砲の長射程・高精度化により「人形遣い」が被害を受けるケースも増え
PRINTFORMW 長引く内戦により　魔導工廠は「人形」よりも高需要の武器弾薬の生産を優先するようになった
PRINTL
PRINTFORMW こうして「人形銃兵」は　現代の戦場から急速に姿を消しつつある…
RESETCOLOR
PRINTL
PRINTL
;QST_SV_QUEST_FLAGはセーブされるクエストの状態を示すフラグ。QST_有効クエストIDには現在のクエストID(ゴブ洞は0)が入る
;クエストが攻略済みかを判定する場合に使うとよい
QST_SV_QUEST_FLAG:QST_有効クエストID = 1
;クエスト終了時の決まり文句
TFLAG:クエスト_完了フラグ = 1
CALL TRAIN_EXIT()

;負けた
@QUEST_20_DL3_DEFEAT
PRINTL
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTFORMW %QST_LEADER_NAME()%は何とか逃げ延びる事が出来た……
PRINTL
PRINTFORMW シンプルな依頼とはいえ、やはり油断はできないようだ　次は充分な戦力を整えてから挑むべきだろう…
PRINTL
CALL PRINT_NOTICE("治療費や旅費として4,000ディナリを失った……")
MONEY -= 4000

TFLAG:クエスト_完了フラグ = 1
CALL TRAIN_EXIT()

;-------------------------------------------------
;エロイベ用モブの定義
;-------------------------------------------------
;スキュラ
@QST_QUEST_20_CREATE_Skylla(SEX)
#DIM SEX
#DIM 対象
#DIMS 名前
#DIM 主導除外フラグ

名前 = スキュラ
CALL CREATE_RANDOM_CHARA(0, -1, SEX)
FLAG:汎用武将カウント --
対象 = RESULT
IF LOCAL == -1
    RETURN -1
ENDIF

NO:対象 = GET_EMPTY_NO()
NAME:対象 = %名前%
CALLNAME:対象 = %名前%
MAXBASE:対象:体力 = 5000
MAXBASE:対象:気力 = 3500
MAXBASE:対象:精神力 = 5000
BASE:対象:体力 = MAXBASE:対象:体力
BASE:対象:気力 = MAXBASE:対象:気力
BASE:対象:精神力 = MAXBASE:対象:精神力
TALENT:対象:処女 = 0
TALENT:対象:キス未経験 = 0
TALENT:対象:童貞 = 0
TALENT:対象:アナル処女 = 0
TALENT:対象:魔術師 = 1
TALENT:対象:絶倫 = 1
TALENT:対象:両刀 = 1
CSTR:対象:0 =
CSTR:対象:1 =
TALENT:対象:性別 = 2
SETBIT TALENT:対象:淫乱系, 素質_淫乱_サド
TALENT:対象:貞操無頓着 = 1
TALENT:対象:貞操観念 = 0
ABL:対象:戦闘 =  70
ABL:対象:魔術 =  50
ABL:対象:性知識 = 5
ABL:対象:奉仕 = 2
ABL:対象:性技 = 10
ABL:対象:レズ = 10
ABL:対象:欲望 = 10
ABL:対象:性交 = 10
ABL:対象:射精 = 10
ABL:対象:サド = 10
ABL:対象:主導度Ｕ = RAND(0, 500)
ABL:対象:倒錯度 = RAND(200, 500)
EXP:対象:絶頂経験 = 500
CFLAG:対象:調教参加フラグ = 1
CFLAG:対象:慰安モブ = 1
CSTR:対象:モブ識別子 '= "スキュラ"
CFLAG:対象:慰安参加者 = 1
CFLAG:対象:強制友好化 = 1
CFLAG:対象:慰安参加者非対象化 = 1
COM_TENDENCY:対象:GETNUM(TRAINNAME, "代わる代わる挿入") = 3
COM_TENDENCY:対象:GETNUM(TRAINNAME, "代わる代わるＡ挿入") = 3

RETURN 対象

;-------------------------------------------------
;ショップの定義
;関数名は@HO_SHOP_MANAGE_SHOP_{ショップ名称}で定義
;-------------------------------------------------
@HO_SHOP_MANAGE_SHOP_QUEST_20_金属販売所(DICS_SHOP_STOCK)
#DIMS REF DICS_SHOP_STOCK
DICS_SHOP_STOCK:0 '= @"[ITEM_ID:{ITEM_鉄インゴット}][ITEM_PRICE:1200]"
DICS_SHOP_STOCK:1 '= @"[ITEM_ID:{ITEM_鋼インゴット}][ITEM_PRICE:6000]"
DICS_SHOP_STOCK:2 '= @"[ITEM_ID:{ITEM_銀インゴット}][ITEM_PRICE:12000]"

@HO_SHOP_MANAGE_SHOP_QUEST_20_雑貨店(DICS_SHOP_STOCK)
#DIMS REF DICS_SHOP_STOCK
DICS_SHOP_STOCK:0 '= @"[ITEM_ID:{ITEM_ポーション}][ITEM_PRICE:1500]"
DICS_SHOP_STOCK:1 '= @"[ITEM_ID:{ITEM_パン}][ITEM_PRICE:1000]"
DICS_SHOP_STOCK:2 '= @"[ITEM_ID:{ITEM_薬草}][ITEM_PRICE:400]"