code:
;-------------------------------------------------
;クエスト定義ファイル
;QUEST_25:開拓村の魔物退治
;-------------------------------------------------
@QST_TITLE_QUEST_25
RESULTS '= "開拓村の魔物退治"

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

;クエストメニュー右上段の概要欄。10行まで
@QST_SUMALLY1_QUEST_25
RESULTS:0 '= "ここからほどよい距離にある、開拓村からの依頼だ"
RESULTS:1 '= "依頼のあった開拓村の周辺で魔物が増えつつあるらしく、臨時で冒険者を増やして掃討しようとのことだ"
RESULTS:2 '= "それほど強い魔物はいないそうなので、駆け出しの冒険者でも無理をしなければ問題はないだろう"
RESULTS:4 '= "このクエストは自由に撤退が可能だ。危険を感じたら退却することも考慮しよう"

;クエストメニュー右下段の備考欄。難易度や条件、報酬等を記述。7行まで
@QST_SUMALLY2_QUEST_25
RESULTS:0 '= @"難易度：@C:{カラー_注意}@★@/C@"
RESULTS:1 '= "報酬：10,000ディナリ"
RESULTS:2 '= "推奨パーティ人数:3人以上　　　推奨平均戦闘値：20以上"
RESULTS:4 '= @"@C:{カラー_選択不可}@「依頼先の開拓村には、それなりに長く滞留している先輩冒険者も数名いる」@/C@"
RESULTS:5 '= @"@C:{カラー_選択不可}@「全員腕も人格も確かで、開拓村の人達は冒険者に対して好意的とのことだ」@/C@"
RESULTS:6 '= @"@C:{カラー_選択不可}@「上手くいけば、冒険者同士の新たな縁もあるかもしれんな」@/C@"

;-------------------------------------------------
;クエストの実行可能条件を定義
;-------------------------------------------------
@QST_AVAILABLE_QUEST_25(QUEST_ID)
#DIM QUEST_ID
;前提としてQUEST_0_ゴブリンの洞窟の攻略が必要
SIF !QST_SV_QUEST_FLAG:0
    RETURN 0
SIF QST_SV_QUEST_FLAG:QUEST_ID != 2
    RETURN 1

;-------------------------------------------------
;マップデータ定義
;[ROOM_ID:]　…　配置するエリアの種類
;[ROOM_PATH:]　…　エリア間の接続情報(※)
;[EVENT_LIST:]　…　エリアに配置するイベントのID(※)
;(※)要素の末尾の','を忘れないように注意
;EmueraをDEBUGMODEで起動した場合、[領地の手入れ]画面から編集したエリア情報をテキストファイルにエクスポートできる
;出力txtをベースに編集すると少し楽かもしれない
;-------------------------------------------------
@QST_SET_MAPDATA_QUEST_25(MAP_ID)
#DIM MAP_ID
QST_MAPNAME '= "開拓村周辺"
_DIC_HO_MAPDATA:MAP_ID:0  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:1  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:2  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:3  '= "[ROOM_ID:201][ROOM_PATH:4,8,][MODULE_SLOT:][ROOM_NAME:山道][EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:4  '= "[ROOM_ID:201][ROOM_PATH:3,][MODULE_SLOT:][ROOM_NAME:滝の上][EVENT_LIST:0,4,]"
_DIC_HO_MAPDATA:MAP_ID:5  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:6  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:7  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:8  '= "[ROOM_ID:201][ROOM_PATH:3,9,13,][MODULE_SLOT:][ROOM_NAME:山道][EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:9  '= "[ROOM_ID:201][ROOM_PATH:8,][MODULE_SLOT:][ROOM_NAME:滝壺][EVENT_LIST:0,5,]"
_DIC_HO_MAPDATA:MAP_ID:10  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:11  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:16,12,][ROOM_NAME:草原][EVENT_LIST:0,1,]"
_DIC_HO_MAPDATA:MAP_ID:12  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:11,13,][ROOM_NAME:林][EVENT_LIST:0,2,]"
_DIC_HO_MAPDATA:MAP_ID:13  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:8,12,][ROOM_NAME:小川][EVENT_LIST:0,3,]"
_DIC_HO_MAPDATA:MAP_ID:14  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:15  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:16  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:21,11,][ROOM_NAME:木橋][EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:17  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:18  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:19  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:20  '= "[ROOM_ID:200][MODULE_SLOT:][ROOM_PATH:21,][ROOM_NAME:開拓村][EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:21  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:20,16,][ROOM_NAME:野道][EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:22  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:23  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:24  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"

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

;-------------------------------------------------
;QST_INTRO_QUEST_n はQUEST開始前に呼ばれる
;クエストの導入文などを記述
;"DIALOGUE"型のクエストは当該関数のCALLのみ行う
;-------------------------------------------------
@QST_INTRO_QUEST_25
#DIM WEAPON_LIST_IDX
#DIM CHARA_ID
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
IF !QST_SV_QUEST_FLAG:QST_有効クエストID
    PRINTFORMW %QST_LEADER_NAME()%が開拓村につくと、早速村長が出迎えてくれた
    PRINTL
    PRINTFORML 「おお、冒険者の方達ですな。こんな辺境の開拓村までご足労頂いて助かります」
    PRINTFORMW そうして村の中へ案内してくれる
    PRINTL
    PRINTFORML 忙しく村の中を行き交う職人、出店を構える商人、笑顔で駆け回る子供達……
    PRINTFORMW この開拓村には、活気と平和が確かに存在していた
    PRINTL
    PRINTFORML そして冒険者である%QST_LEADER_NAME()%を見る、村民達の目には明らかに期待の感情が垣間見える
    PRINTFORML どうやら、冒険者ギルドから話に聞いていた先輩冒険者達は、確かに開拓村の人達から信頼を得ているようだ
    PRINTFORMW 恐らくだが、よっぽど上手く村人達からの依頼をこなし、交流しているのだろう
    PRINTL
    PRINTFORML 先に来ていた冒険者達が築き上げてきた信頼を、裏切るわけにはいかない
    PRINTFORMW %QST_LEADER_NAME()%は気を引き締めた……
    PRINTL
    PRINTFORMW そうして、%QST_LEADER_NAME()%は開拓村に逗留している冒険者達と、顔を合わせることになった
    PRINTL
    PRINTFORML 「初めまして、僕はジョイと言います」
    PRINTL
    PRINTFORML 最初に自己紹介をしてくれたのは、良く鍛えられた大柄の青年だ
    PRINTFORMW 爽やかで頼もしい雰囲気がある。きっと実力のある戦士に違いない
    PRINTL
    PRINTFORMW 「役割としては野伏だ。偵察は任せてくれ」
    PRINTL
    PRINTFORMW ……その鍛え抜かれた肉体は、戦士として鍛えたわけではないらしい
    ;ジョイ・ロディアス
    ;大柄筋肉質、情に篤い好青年
    ;野伏と言っているが、戦士っぽいこともやっている一人二役
    ;ユノと二人パーティーなので、必然的に複数の役割をこなさざるを得ない
    ;ユノとは恋人で彼女一筋
    PRINTL
    PRINTFORML 「私はユノだよ。よろしくー」
    PRINTL
    PRINTFORMW 次に自己紹介をしてきたのは、間延びした声ながらも、確かにこちらに敬意を払う様子を見せる少女
    PRINTL
    PRINTFORML そのしなやかな体、ほわほわしていそうで、周囲への警戒を怠らず隙を見せないその様子
    PRINTFORMW きっと彼女はジョイと同じ野伏なのだろう
    PRINTL
    PRINTFORMW 「ちなみに私は魔術師だから。魔法はおまかせあれー。きりっ」
    PRINTL
    PRINTFORMW ……そのしなやかな肉体は、野伏として鍛えたわけではないらしい
    ;ユノ・クローバー
    ;マイペースに見えてお人好し、結構凄腕な魔法使い
    ;金髪ロング少女
    ;ジョイとは恋人。ジョイへの愛が一途に重い
    PRINTL
    PRINTFORML 「私はシルフィーユと言います、よろしくお願いしますっ！」
    PRINTFORMW 「皆さんからはフィーって呼ばれています。皆さんもそう呼んでくれると嬉しいです」
    PRINTL
    PRINTFORML 丁寧かつ元気に自己紹介してくれた少女
    PRINTFORML その傍らには大きな魔法書が置かれていた。きっと彼女は魔術師なのだろう
    PRINTFORMW ……たぶん
    PRINTL
    PRINTFORML 「私は剣士です！　まだまだ未熟ですけど、頑張りますっ！」
    PRINTL
    PRINTFORMW ……剣士ならば、傍らに置いてある魔法書はなんなのだろうか
    PRINTL
    PRINTFORMW 「最後は、私ですね」
    PRINTL
    PRINTFORML そして、続いて自己紹介するのは最後の一人
    PRINTL
    PRINTFORMW 「私はティアと申します。よろしくお願い致します」
    PRINTL
    PRINTFORML 穏やかな口調と丁寧な物腰で挨拶をする少女は、聖職者としてのローブを身に纏い、聖杖を携えていた
    PRINTFORMW だがもう騙されない。きっと彼女は神官と見せかけて、別のなにかに違いない！
    PRINTL
    PRINTFORMW 「私は神に仕える神官の職を賜っております。傷の治療はお任せください」
    PRINTL
    PRINTFORML 神官なんかいっ！？　……と危うくツッコミをいれるところだった
    PRINTFORMW 辛うじてツッコミを我慢できた自分を、褒めてあげたいところだ
    ;ティア・ノーティス
    ;敬虔で清楚な神官。穏やかで人当たりが良く、信仰を押しつけることはない
    ;栗毛を二つ結びにしている少女
    ;仲の良い恋人同士を見るのが好き
    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORMW …………
    PRINTL
    PRINTFORML 開拓村に逗留している、冒険者達との顔合わせを終えた%QST_LEADER_NAME()%
    PRINTFORMW 状況説明を村長から受けた後、魔物退治に向かうことにする
    PRINTL
    PRINTFORMW 今回、主な討伐対象の二体はそれぞれ別の場所にいるとのことで、二手に分かれることになった
    PRINTFORMW 一方は%QST_LEADER_NAME()%、もう一方はジョイ達である
    PRINTFORMW %QST_LEADER_NAME()%がグリズリー、ジョイ達はワイバーンが討伐対象だ
    PRINTL
    PRINTFORML 「失礼だが、貴方達はこの辺りの土地には不慣れだろう？」
    PRINTFORMW 「僕達の誰かが同行した方が良いと思うけれど、どうだろうか？」
    PRINTL
    PRINTFORMW この辺りの土地に詳しい彼ら四人のうち、誰か一人を%QST_LEADER_NAME()%につけることを、ジョイが提案する
    PRINTL
    PRINTFORMW 「えっと……じゃあ、私で良ければ、%QST_LEADER_NAME(1)%さんに同行させてくれませんか？」
    PRINTL
    PRINTFORML そこで同行を申し出てくれたのは、剣士のシルフィーユ――フィーであった
    PRINTFORMW この辺りの土地に慣れた協力者がいるのはありがたい。こちらこそお願いすることにした
    PRINTL
    PRINTFORML 「ありがとうございます。よろしくお願いしますねっ」
    PRINTL
    PRINTFORMW そう言って、フィーはにこりと笑った
    PRINTL
    PRINTFORMW 「それでは行きましょう。私が先導しますね」
    PRINTL
    PRINTFORMW そして、フィーという同行者を連れて、%QST_LEADER_NAME()%は魔物退治に取り組むことになった……
ELSE
    PRINTFORMW %QST_LEADER_NAME()%は魔物退治を再開すべく、再び開拓村へと向かった……
ENDIF

PRINTL
PRINTFORML %QST_LEADER_NAME()%の前には簡単に整えられた道が続いている
PRINTFORML この辺りは安全だが、今回の依頼は魔物退治だ
PRINTFORMW 魔物の捜索のため、ある程度危険な領域にも踏み込む必要があるだろう……
PRINTL
CALL COLOR_PRINTW(@"―― 開拓村では｛ｸｴｽﾄ｝を選択して、[撤退]コマンドを実行できる", カラー_注意)
CALL COLOR_PRINTW(@"―― 撤退にペナルティはない。このクエストはクリアするまでは何度でも挑戦可能だ", カラー_注意)
CALL COLOR_PRINTW(@"―― 手ひどく損害を負ったならば一度撤退し、改めて魔物退治をすることも検討しよう", カラー_注意)

CALL FL_PLAYBGM("Shrine_1.ogg")
PRINTL

CHARA_ID = NAME_TO_CHARA("UC_シルフィーユ")
CALL PRINT_NOTICE("シルフィーユが一時的に仲間になった")
CFLAG:CHARA_ID:所属 = 所属_プレイヤー
PRINTL
IF !QST_SV_QUEST_FLAG:QST_有効クエストID
    CFLAG:NAME_TO_CHARA("UC_シルフィーユ"):面識 = 1

    CALL QST_GET_WEAPON(2, "シルフィーユの鉄の長剣", WPN_材質_鉄,,,,0)
    WEAPON_LIST_IDX = RESULT
    ;シルフィーユは仮加入なので、クエスト終了時に彼女が加入しない選択をした場合はゲスト武器を消去する
    CALL QST_SETINT_FLAGMAP("ゲスト武器DID", WEAPON_LIST_IDX)
    CALL EQUIP_WEAPON(CHARA_ID, WEAPON_LIST_IDX)

    CALL SKILL_LEARN2(CHARA_ID, スキル_ジャンル_戦闘, "ATK_BUFF", 2)
    CALL SKILL_LEARN2(CHARA_ID, スキル_ジャンル_戦闘, "SMITE", 1)
    CALL SKILL_EDIT_ACTIVE_SKILL_SLOT(CHARA_ID,"SMITE")
ENDIF

VARS LIST_BENCH
;シルフィーユを加入させない場合の分岐を考えるのが面倒なので、超過するなら先に1名外す
IF QST_PARTYNUM ==  QST_MAX_PARTYNUM
    CALL QST_SELECT_AND_REMOVE_CHARA_FROM_PARTY(1)
    LIST_BENCH = %RESULTS:1%
    PRINTFORMW %ANAME(LIST_GETINT(LIST_BENCH))%に村の警護を任せた……
ENDIF
;加入処理
CALL QST_EDIT_PARTY_INIT
CALL QST_ADD_PARTY_CANDIDATE_FROM_CURRENT_PARTY
CALL QST_ADD_PARTY_CANDIDATE(CHARA_ID)
CALL QST_EDIT_PARTY

;このフラグが立っている場合ROOM_ID200(開始地点)で撤退コマンドが実行可能になる
FLAG:クエスト_中断を許可 = 1
QST_SV_QUEST_FLAG:QST_有効クエストID = 1

;-------------------------------------------------
;イベントリストに登録するイベント情報を記述する
;<記述方法>
;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_25_EVENT_0
#DIMS EVENT_TRIGGER = "ENTER_ROOM"
#DIMS EVENT_TYPE = "ONCE"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:2 = %EVENT_TYPE%

;-------------------------------------------------
;実行するイベントの実行内容を記述
;イベント用の関数はTRYCALLFORMで呼ばれるため
;@QST_QUEST_{QUEST_ID}_EVENT_{EVENT_ID}の書式で記述する
;-------------------------------------------------
@QST_QUEST_25_EVENT_0
#DIMS ROOM_NAME

CALL HO_CREAR_LOG()
SELECTCASE HO_MASTER現在地
    CASE 0
        CALL HO_PRINT_LOG("開拓村は活気に満ちている", 1)
    CASE 21
        CALL HO_PRINT_LOG("平坦な道が遠くまで続いている", 1)
    CASE 16
        CALL HO_PRINT_LOG("道を脇に逸れて、木の橋を渡っていく。そろそろ魔物を警戒するべきだろう", 1)
    CASE 11
        CALL HO_PRINT_LOG("野原を歩いて行く。警戒を続けつつ林に入っていこう", 1)
    CASE 13
        CALL HO_PRINT_LOG("清涼な小川が流れている。ここなら一休みできそうだ", 1)
    CASE 3, 8
        CALL HO_PRINT_LOG("山道が続いている。討伐対象は近そうだ", 1)
    CASE 9
        CALL HO_PRINT_LOG("雄大な滝が流れている", 1)
    CASEELSE
        CALL HO_CREAR_LOG()
ENDSELECT

;-------------------------------------------------
;EV1
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_25_EVENT_1
#DIMS EVENT_TRIGGER = "ENTER_ROOM"
#DIMS EVENT_TYPE = "ONCE"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:2 = %EVENT_TYPE%

;ゲーム中一度でも解決済みの場合は非アクティブに
CALL QST_GET_SV_EVENT_FLAG(QST_NOWEV)
IF RESULT
    CALL QST_DEACTIVATE_EVENT(QST_NOWEV)
ENDIF

@QST_QUEST_25_EVENT_1
#DIM EVENT_FLAG
#DIM TARGET_ID

PRINTFORML %QST_LEADER_NAME()%は木の橋を抜け、草原を歩いて行く
PRINTFORMW ここからは安全な道ではない。十分に警戒が必要だ
PRINTL
PRINTFORML %ANAME(QST_RANDCHARA())%は何者かの気配に歩みを止め、周りを見渡す
PRINTFORMW 獣が走ってくる――ウルフだ！
PRINTL
PRINTFORMW ウルフの群れはこちらを獲物として認識し、襲いかかってきた！
;PRINTL
;PRINTFORMW 「私がこちらの二頭を相手します！　%QST_LEADER_NAME(1)%さん達は残りをお願いします！」
;PRINTL
;PRINTFORMW フィーが先頭に踊り出て、五頭のうちの二頭を引きつける
;PRINTL
;PRINTFORMW %QST_LEADER_NAME()%に向けて、残りの三頭が向かってくる！

;戦闘イベント
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", "ウルフ１", 1200, 1200, 15, 0, 0, WPN_脅威選定_高脅威)
CALL CC_ADDMOB("DEFENDER", "ウルフ２", 1200, 1200, 15, 0, 0, WPN_脅威選定_高脅威)
CALL CC_ADDMOB("DEFENDER", "ウルフ３", 1200, 1200, 15, 0, 0, WPN_脅威選定_高脅威)
CALL CLOSE_COMBAT()
IF RESULT == 1
    PRINTL
    CALL CC_ADD_COMBAT_EXP(5)
    CALL CC_APPLY_CHARA_HP()
    PRINTL
    CALL QST_CHANGE_ITEM(@"{ITEM_動物の革},3,{ITEM_動物の肉},3,")
    PRINTL
    PRINTFORML %ANAME(QST_RANDCHARA())%の一撃が、最後に残ったウルフを仕留めた
    PRINTFORMW %QST_LEADER_NAME()%は周りを見渡す。ひとまず脅威は去ったようだ
    PRINTL
    PRINTFORML 魔物退治はまだ続く。体力が残っていないのなら撤退も考える必要があるだろう
    PRINTFORMW もし、余裕があるのならば先に進もう
    PRINTL
    CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ELSE
    CALL QST_QUEST_25_DEFEAT_EVENT()
ENDIF

;-------------------------------------------------
;EV2
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_25_EVENT_2
#DIMS EVENT_TRIGGER = "ENTER_ROOM"
#DIMS EVENT_TYPE = "ONCE"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:2 = %EVENT_TYPE%

;ゲーム中一度でも解決済みの場合は非アクティブに
CALL QST_GET_SV_EVENT_FLAG(QST_NOWEV)
IF RESULT
    CALL QST_DEACTIVATE_EVENT(QST_NOWEV)
ENDIF

@QST_QUEST_25_EVENT_2
#DIM EVENT_FLAG
#DIM TARGET_ID

PRINTFORML %QST_LEADER_NAME()%は草原を抜け、林に入っていく
PRINTFORMW 木々のため、視界が悪い。魔物の奇襲に注意するべきだ
PRINTL
PRINTFORML %ANAME(QST_RANDCHARA())%は魔物の気配を察して、仲間に小声で警戒を呼びかける
PRINTFORMW 今回の依頼は魔物退治だ。対処できない強敵は別として、魔物をやり過ごす選択肢はない
PRINTL
PRINTFORML そっと気配に忍び寄る。ゴブリン達だ
PRINTFORMW ゴブリンはこちらに気づいた様子はない。これはチャンスだ
PRINTFORML 村のことを考えれば、一匹でも逃がさないようにしなければならない
PRINTFORMW %QST_LEADER_NAME(1)%はフィーに目配せすると、彼女は了解の意を示し、移動する
PRINTL
PRINTFORML 少し経ってから、%QST_LEADER_NAME()%はゴブリン達に奇襲を掛ける！
PRINTFORMW 慌てふためくゴブリン達に、更に後ろからフィーが剣を持って踊り出る
PRINTL
PRINTFORMW 混乱したゴブリンを、フィーが一匹、二匹と華麗な剣技で仕留めていく
PRINTL
PRINTFORMW 「上手く挟撃の形にできましたっ！　もう逃げ場はありませんよっ！」
PRINTL
PRINTFORML %ANAME(QST_RANDCHARA())%も無防備な姿をさらしていたゴブリンを仕留めた
PRINTFORML 残るゴブリンは三体だ
PRINTFORMW 混乱からある程度立ち直ったゴブリン達が向かってきた！

;戦闘イベント
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_FROM_TABLE("DEFENDER", "ゴブリン", "ゴブリン１")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "ゴブリン", "ゴブリン２")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "ゴブリン", "ゴブリン３")
CALL CLOSE_COMBAT()
IF RESULT == 1
    PRINTL
    CALL CC_ADD_COMBAT_EXP(6)
    CALL CC_APPLY_CHARA_HP()
    ;防御側エネミーから戦利品を獲得
    CALL CC_GET_LOOT_FROM("DEFENDER")
    PRINTW
    PRINTFORML %ANAME(QST_RANDCHARA())%の一撃が、景気よくゴブリンを吹き飛ばした！
    PRINTFORMW %QST_LEADER_NAME()%は逃げたり、近くに潜んでいるゴブリンがいないことを確認する
    PRINTL
    PRINTFORML 「やりましたね、%QST_LEADER_NAME(1)%さん！　凄かったです！」
    PRINTL
    PRINTFORMW 笑顔でこちらに駆け寄ってきたフィーに、こちらも礼を告げる
    PRINTL
    PRINTFORML この先は山道が続いている
    PRINTFORMW 今回の討伐対象はこの近辺にいるそうだ
    PRINTL
    PRINTFORMW 挑む前に、近くにあるであろう小川で少し休憩するのもいいだろう
    PRINTL
    CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ELSE
    CALL QST_QUEST_25_DEFEAT_EVENT()
ENDIF

;-------------------------------------------------
;EV3
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_25_EVENT_3
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "小川"
#DIM CONST EVENT_ID = 3

RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_25_EVENT_3
#DIM EVENT_FLAG
#DIM TARGET_ID
#DIM CONST EVENT_ID = 3

PRINTFORML %ANAME(QST_RANDCHARA())%は清涼な水が流れる小川を見つけた
PRINTFORMW 緩やかに流れる水は清純で、喉の乾きを癒やし汚れを拭うにはちょうど良いように見える
PRINTL
CALL ASK_YN("休憩する", "やめておく")
IF !RESULT
    PRINTFORMW %QST_LEADER_NAME()%は小川で喉の乾きを癒やし、簡単に水浴びを済ませた
    ;パーティ全員の体力を回復
    FOR LOCAL, 0, QST_PARTYNUM
        TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
        CALL QST_CHANGE_HP(TARGET_ID, 2000)
    NEXT
    WAIT
    CALL QST_DEACTIVATE_EVENT(EVENT_ID)
ELSE
ENDIF
CALL QST_SET_EVENT_FLAG(EVENT_ID, 3)

;-------------------------------------------------
;EV4
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_25_EVENT_4
#DIMS EVENT_TRIGGER = "ENTER_ROOM"

RESULTS = %EVENT_TRIGGER%

@QST_QUEST_25_EVENT_4
#DIM WEAPON_LIST_IDX

PRINTFORML 山道を登っていった%QST_LEADER_NAME()%は、大きな影を見つけた
PRINTFORML 立派な体格を持った、グリズリーだ
PRINTFORMW その胸には大きな古傷がある
PRINTL
PRINTFORML 間違いない。あのグリズリーが今回の討伐対象だ
PRINTFORMW 開拓村の人を襲い、けが人も出している相手だ。村人達の安全のためにも、確実に仕留める必要がある
PRINTL
PRINTFORML 一体とは言え、油断できる相手ではない
PRINTFORMW フィーも含めた全員で、一斉にグリズリーに攻撃をしかけた！

;;戦闘イベント処理
;白兵戦参加メンバーの初期化
CALL CC_INIT()
;クエストのパーティメンバーを攻撃側として追加
CALL CC_ADDPARTY("ATTACKER")

;防御側キャラクターの設定(最大6名)
CALL CC_ADDMOB("DEFENDER", "グリズリー", 4000, 4000, 40, 0, 0, WPN_脅威選定_高脅威)

;戦闘処理呼出
CALL CLOSE_COMBAT("[BGM:Battle_0.ogg]")
IF RESULT == 1
    ;戦闘終了後のHPをパーティに適用
    CALL CC_ADD_COMBAT_EXP(15)
    CALL CC_APPLY_CHARA_HP()
    ;防御側エネミーから戦利品を獲得
    CALL CC_GET_LOOT_FROM("DEFENDER")

    ;BGM停止
    CALL FL_STOPBGM()

    PRINTL
    PRINTFORMW 「やあああああっ！」
    PRINTL
    PRINTFORML 気合いとともに踏み込んだフィーの一撃が、グリズリーの右脚を抉る！
    PRINTFORML グリズリーの体がおおきくよろめいた
    PRINTFORMW その好機を逃さず、%ANAME(QST_RANDCHARA())%の一撃が、グリズリーの胸を大きく切り裂いた！
    PRINTL
    PRINTFORML グリズリーが倒れ、動かなくなった
    PRINTFORMW 警戒しつつグリズリーに近づき確認する。間違いなく絶命していた
    PRINTL
    PRINTFORMW 「お疲れ様でした！　怪我はありませんか！？」
    PRINTL
    PRINTFORML 特に大きな怪我はない。それとフィーこそ、良い戦い振りだった
    PRINTFORMW お互いに健闘を讃え合う
    PRINTL
    PRINTFORML さあ、開拓村に戻ろう
    PRINTFORMW %QST_LEADER_NAME()%は冒険者として、今回の依頼を遂行したのだ

    PRINTL
    CALL FL_PLAYSE("Fanfare_0.ogg")
    PRINTFORMW %QST_LEADER_NAME()%はグリズリーの討伐に成功した！

    PRINTL
    PRINTFORML %QST_LEADER_NAME()%は開拓村に戻り、グリズリーの討伐を告げる
    PRINTFORMW 開拓村の人々から感謝が告げられた
    PRINTL
    CALL COLOR_PRINTW("報酬として10,000ディナリを得た", カラー_注意)
    MONEY += 10000
    PRINTL
    CALL COLOR_PRINTW(@"――　名誉点を50点得た！", カラー_注意)
    QST_PRESTIGE_POINT += 50
    PRINTL
    PRINTFORML 程なくして、野伏（？）のジョイと魔術師のユノ、神官のティアも戻ってきた
    PRINTFORMW 彼らも無事にワイバーンを討伐できたようだ
    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORMW …………
    PRINTL
    PRINTFORMW その後、フィー達冒険者が開拓村に上手く溶け込んでいる様子を見ることができた
    PRINTL
    PRINTFORML ジョイはその肉体で力仕事に大きく貢献し（やっぱり戦士じゃないのか？）
    PRINTFORMW ユノは魔法で包丁の錆を落としたり、食料に腐敗防止の魔法を掛けたりして、村人達に大いに感謝されている
    PRINTL
    PRINTFORML フィーは持ち前の明るさと器用さ、身軽さから様々な仕事で大いに活躍している
    PRINTFORML ティアは神官としての知識を活かし、開拓村の子供達に簡単な読み書きや計算、
    PRINTFORMW 子供にも分かりやすいようにした神話を語り教えていた
    PRINTL
    PRINTFORMW 地道ながらも、確かに活躍する冒険者達の姿がそこにあった
    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORMW …………
    PRINTL
    PRINTFORML 今回の魔物退治を無事に終えたことにより、開拓村での冒険者達の仕事は一区切りついたらしい
    PRINTFORMW フィー達、四人も全員がすぐと言うわけではないが、新しい拠点を探すようだ
    PRINTL
    PRINTFORML ジョイとユノは少ししたら、二人で冒険を続けるらしい
    PRINTFORMW ティアはもうしばらくこの開拓村に留まり、村人達に読み書きや計算を教えるとのことだ
    PRINTL
    PRINTFORML 今回、一緒に依頼をこなしたシルフィーユ……フィーは次の拠点とする町や村を探しているようだ
    PRINTFORML いくつか候補はあるようだが、決めてはいないとのこと
    PRINTFORMW フィーが了承してくれるかは分からないが、彼女を仲間に誘うのもいいかもしれない
    PRINTL

    CALL ASK_YN("仲間に誘う","やめておく")
    IF !RESULT
        PRINTFORMW %QST_LEADER_NAME(1)%はフィーを仲間に誘うことにした
        PRINTFORML よければ、うちの拠点に来てくれないだろうか。一緒に冒険がしたい
        PRINTL
        PRINTFORMW 「わ、私を仲間にですかっ！？」
        PRINTL
        PRINTFORML 彼女は最初は驚いたようだが、少し考えた後、笑顔で頷いた
        PRINTFORMW 「誘ってくださって、ありがとうございます。こちらこそ、ぜひ仲間にさせてくださいっ！」
        PRINTL
        PRINTFORML こちらこそよろしくと返す
        PRINTFORMW それと、これからは仲間なのだから敬語はいらないと告げる
        PRINTL
        PRINTFORML 「そ、そうですか？　分かりましたっ！」
        PRINTFORMW 「……じゃなかった。うん、分かったよ」
        PRINTL
        PRINTFORMW 「これからよろしくね、%QST_LEADER_NAME(1)%！」
        PRINTL
        CALL PRINT_NOTICE("シルフィーユが仲間になった")
        PRINTL
        PRINTFORMW さて、帰ろう。自分達の拠点……そしてフィーの新しい拠点へ
    ELSE
        VARI ゲスト武器DID
        PRINTFORML フィーにはフィーの都合もあるだろう。無理に誘う必要もない
        PRINTFORMW %QST_LEADER_NAME()%はそう判断した
        PRINTL
        PRINTFORMW さて、帰ろう。自分達の拠点へ
        ;ゲスト武器を削除
        ゲスト武器DID = QST_GETINT_FLAGMAP("ゲスト武器DID")
        CALL DELETE_WEAPON(ゲスト武器DID)
        CFLAG:NAME_TO_CHARA("UC_シルフィーユ"):所属 = 所属_無所属
    ENDIF

    CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)

    ;QST_SV_QUEST_FLAGはセーブされるクエストの状態を示すフラグ。QST_有効クエストIDには現在のクエストID(ゴブ洞は0)が入る
    ;クエストが攻略済みかを判定する場合に使うとよい
    QST_SV_QUEST_FLAG:QST_有効クエストID = 2
    ;クエスト終了時の決まり文句
    TFLAG:クエスト_完了フラグ = 1
    CALL TRAIN_EXIT()
ELSE
    ;敗北イベント
    CALL QST_QUEST_25_DEFEAT_EVENT
ENDIF

;-------------------------------------------------
;EV5
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_25_EVENT_5
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "エルフの少女"
#DIM CONST EVENT_ID = 5

CALL QST_GET_SV_EVENT_FLAG(EVENT_ID)
IF RESULT
    EVENT_SLOT_NAME '= "雄大な滝"
ENDIF

RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_25_EVENT_5
#DIM EVENT_FLAG
#DIM CONST EVENT_ID = 5

CALL QST_GET_SV_EVENT_FLAG(EVENT_ID)
IF RESULT
    PRINTFORMW 崖上から大量の水が流れ落ちてきている……
    RETURN
ENDIF

PRINTFORML %QST_LEADER_NAME()%の前に、大量の水を打ち下ろす雄大な滝が姿を現した
PRINTFORMW その自然にしばし圧倒される%QST_LEADER_NAME()%
PRINTL
PRINTFORMW 「すごい光景ですよね。私も初めて見たときは呆然としちゃいました」
PRINTL
PRINTFORMW フィーも、滝の雄大さに同意するように呟いた
PRINTL
PRINTFORML %QST_LEADER_NAME(1)%は、ふと滝の側に人がいることに気づいた
PRINTFORMW その人は――エルフの少女だった
PRINTL
PRINTFORML エルフをこの辺りで見かけるのは珍しいと言える
PRINTFORMW 古帝国の時代にはエルフは多くいたそうだが、古帝国が崩壊してからは中央世界からは姿を消しつつあった
PRINTL
PRINTFORMW 「貴方達は……冒険者の方ですか」
PRINTL
PRINTFORMW エルフの少女は%QST_LEADER_NAME()%に気づくと、言葉を投げかけてきた
PRINTFORML %QST_LEADER_NAME(1)%は、この辺りにいるグリズリーを倒しに来たと告げる
PRINTFORMW それと、開拓村の人によると凶暴なグリズリーみたいなので、少し離れた方が良いとも添えた
PRINTL
;ホルン・フェアロード
;緑髪サイドテールのエルフの少女
;弓と魔法が得意。奥の手として格闘もできる
;回復点の説明のためのポーションを渡すだけのために登場
PRINTFORMW 「そうですか。ご忠告ありがとうございます」
PRINTFORMW 「こう見えて、多少戦いの心得はあります」
PRINTFORMW 「人を襲う獣が村の近くにいるのならば、私も協力をと思いましたが――」
PRINTL
PRINTFORMW エルフの少女は%QST_LEADER_NAME()%を少しの間じっと見ると――
PRINTL
PRINTFORMW 「冒険者さん達には、私の助力など必要ないみたいですね」
PRINTL
PRINTFORMW そう言って、微笑を浮かべる
PRINTL
PRINTFORML 「それでは、ご忠告通り私は離れるといたしましょう」
PRINTFORMW 「とは言っても、これからグリズリーを相手にしようとする冒険者さん達に、なにもなしは気が引けるので。これを」
PRINTL
CALL QST_CHANGE_ITEM(@"{ITEM_ポーション},2,")
PRINTL
PRINTFORMW %QST_LEADER_NAME(1)%は貰っても良いのかと尋ねる
PRINTL
PRINTFORMW 「お気遣いなく。もし怪我をしたのなら、遠慮なく使ってください」
PRINTL
CALL COLOR_PRINTW(@"―― ポーションなどの回復アイテムは[ITEM] -> [消費]から使用できる", カラー_注意)
CALL COLOR_PRINTW(@"―― ただし回復アイテムの使用には「応急治療点」を消費する", カラー_注意)
CALL COLOR_PRINTW(@"―― 「応急治療点」が0になると、回復アイテムは使用できない", カラー_注意)
CALL COLOR_PRINTW(@"―― 「応急治療点」はクエストが終了すれば初期値まで回復する", カラー_注意)
PRINTL
PRINTFORMW 「ご機嫌よう。またどこかで会えると良いですね、冒険者さんっ」
PRINTL
PRINTFORMW 笑顔で別れを告げると、エルフの少女は去って行った

K9_ホルン面識フラグ = 1

CALL QST_SET_EVENT_SLOT_NAME(EVENT_ID, "雄大な滝")
CALL QST_SET_SV_EVENT_FLAG(EVENT_ID, 1)

;-------------------------------------------------
;以下イベントリストで管理する必要のない処理,イベント固有の関数など
;-------------------------------------------------
;汎用敗北イベント
@QST_QUEST_25_DEFEAT_EVENT
PRINTL
PRINTFORMW 「わああああっ！？　%QST_LEADER_NAME(1)%さん、大丈夫ですか！？」
PRINTL
PRINTFORMW 自分の前の魔物と相対していたフィーが、慌てて駆け寄ってきた
PRINTL
PRINTFORMW 「いったん逃げましょう！　私が殿を務めますっ！」
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL

PRINTFORMW %QST_LEADER_NAME()%はボロボロの身を引きずって、なんとか開拓村まで帰還した……
PRINTFORML
PRINTFORMW ……今回の魔物退治は失敗に終わってしまった。一度態勢を立て直すべきだろう
CALL PRINT_NOTICE("パーティーメンバーが少ないのなら、仲間を増やすのもいいだろう")
PRINTFORMW
PRINTL
;序盤想定なのでペナルティ少なめ
CALL PRINT_NOTICE("治療費や宿泊費として500ディナリを失った……")
MONEY -= 500
CFLAG:NAME_TO_CHARA("UC_シルフィーユ"):所属 = 所属_無所属
QST_SV_QUEST_FLAG:QST_有効クエストID = 1
TFLAG:クエスト_完了フラグ = 1
CALL TRAIN_EXIT()

;中断処理
@QST_QUEST_25_ABORT
CFLAG:NAME_TO_CHARA("UC_シルフィーユ"):所属 = 所属_無所属


code:
;-------------------------------------------------
;クエスト定義ファイル
;QUEST_26:セイレーンの歌声
;-------------------------------------------------
@QST_TITLE_QUEST_26
RESULTS '= "セイレーンの歌声"

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

;クエストメニュー右上段の概要欄。10行まで
@QST_SUMALLY1_QUEST_26
RESULTS:0 '= "へスペリアの半島にある港町からの依頼だ"
RESULTS:1 '= "あの港町は西大洋を目指す冒険者や探検家が多くいるが、最近とある問題が発生した"
RESULTS:2 '= "というのも、海に乗り出す探検家や船乗り達を、魔性の歌声で魅了するセイレーンが現れたというのだ"
RESULTS:3 '= "今のところ命を落としたものこそいないが、海に出るたびに魅了されていては、西を目指すどころではない"
RESULTS:4 '= "早急にセイレーンを排除する必要がある"
RESULTS:5 '= "セイレーンの歌への対抗策は用意してあるが、セイレーンと海の魔物を打ち倒す戦力が欲しい"
RESULTS:6 '= "手練れの冒険者二人、セイレーンへの歌への対応要員として一人いるので、彼らと協力して当たってほしい"
RESULTS:8 '= "このクエストは自由に撤退が可能だ。危険を感じたら退却することも考慮しよう"

;クエストメニュー右下段の備考欄。難易度や条件、報酬等を記述。7行まで
@QST_SUMALLY2_QUEST_26
RESULTS:0 '= @"難易度：@C:{カラー_注意}@★★★★★@/C@"
RESULTS:1 '= "報酬：30,000ディナリ"
RESULTS:2 '= "推奨パーティ人数:5人以上　　　推奨平均戦闘値：55以上"
RESULTS:3 '= @"@C:{カラー_選択不可}@「セイレーンは上半身が人間の女性、下半身が魚の姿をした魔物だ」@/C@"
RESULTS:4 '= @"@C:{カラー_選択不可}@「海の航路上の岩礁から美しい歌声で船乗りを惑わすという」@/C@"
RESULTS:5 '= @"@C:{カラー_選択不可}@「セイレーンの対抗策として呼ばれた少女は、セイレーンに劣らない美声を持つらしい」@/C@"
RESULTS:6 '= @"@C:{カラー_選択不可}@「おっと、もちろんその子の歌声に魅了の効果はないからな」@/C@"

;-------------------------------------------------
;クエストの実行可能条件を定義
;-------------------------------------------------
@QST_AVAILABLE_QUEST_26(QUEST_ID)
#DIM QUEST_ID
;前提としてQUEST_4_対象護衛の攻略が必要
SIF !QST_SV_QUEST_FLAG:4
    RETURN 0
;前提としてシルフィーユのデイリーイベント「新天地の生活」を見ていることが必要
SIF K9_DFLAG_新天地の生活 < 2
    RETURN 0
SIF QST_SV_QUEST_FLAG:QUEST_ID != 2
    RETURN 1

;-------------------------------------------------
;マップデータ定義
;[ROOM_ID:]　…　配置するエリアの種類
;[ROOM_PATH:]　…　エリア間の接続情報(※)
;[EVENT_LIST:]　…　エリアに配置するイベントのID(※)
;(※)要素の末尾の','を忘れないように注意
;EmueraをDEBUGMODEで起動した場合、[領地の手入れ]画面から編集したエリア情報をテキストファイルにエクスポートできる
;出力txtをベースに編集すると少し楽かもしれない
;-------------------------------------------------
@QST_SET_MAPDATA_QUEST_26(MAP_ID)
#DIM MAP_ID
QST_MAPNAME '= "港湾都市周辺の海"
_DIC_HO_MAPDATA:MAP_ID:0  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:1  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:6,][ROOM_NAME:海][EVENT_LIST:0,4,]"
_DIC_HO_MAPDATA:MAP_ID:2  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:3  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:4  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:5  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:6  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:7,1,][ROOM_NAME:海][EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:7  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:12,6,][ROOM_NAME:岩礁][EVENT_LIST:0,3,]"
_DIC_HO_MAPDATA:MAP_ID:8  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:9  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:10  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:11  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:12  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:13,7,][ROOM_NAME:海][EVENT_LIST:0,2,]"
_DIC_HO_MAPDATA:MAP_ID:13  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:18,12,][ROOM_NAME:海][EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:14  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:15  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:16  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:17  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:18  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:23,13,][ROOM_NAME:海][EVENT_LIST:0,1,]"
_DIC_HO_MAPDATA:MAP_ID:19  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:20  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:21  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:22  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
_DIC_HO_MAPDATA:MAP_ID:23  '= "[ROOM_ID:201][MODULE_SLOT:][ROOM_PATH:24,18,][ROOM_NAME:海][EVENT_LIST:0,]"
_DIC_HO_MAPDATA:MAP_ID:24  '= "[ROOM_ID:200][MODULE_SLOT:][ROOM_PATH:23,][ROOM_NAME:港][EVENT_LIST:0,]"

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

;-------------------------------------------------
;クエスト固有の初期化処理
;-------------------------------------------------
@QST_INIT_QUEST_26
;クエスト固有のユニークエネミーをエネミー定義データに追加
CALL QST_QUEST_26_ENEMY_DATA

;-------------------------------------------------
;QST_INTRO_QUEST_n はQUEST開始前に呼ばれる
;クエストの導入文などを記述
;"DIALOGUE"型のクエストは当該関数のCALLのみ行う
;-------------------------------------------------
@QST_INTRO_QUEST_26
#DIM WEAPON_LIST_IDX
#DIM CHARA_ID
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
IF !QST_SV_QUEST_FLAG:QST_有効クエストID
    PRINTFORMW %QST_LEADER_NAME()%は港にたどり着くと、そこには大柄な海の男が待っていた
    PRINTL
    PRINTFORML 「おう、あんたらが依頼を受けてくれた冒険者達か。待っていたぜ」
    PRINTFORMW 「俺はセイレーン討伐に向かう船の船長だ。よろしく頼むぜ」
    PRINTL
    PRINTFORMW 「あんたらより先に来てる冒険者が二人いる。仲良くしろとは言わんが、ちゃんと協力して当たってくれよ」
    PRINTL
    PRINTFORML 船長の言葉を聞いて、傍にいた二人の冒険者の方を見る
    PRINTFORMW その二人の冒険者は、見知った顔だった
    PRINTL
    PRINTFORMW 「%QST_LEADER_NAME()%じゃないか！　久しぶりだね。ジョイだ。覚えているかな？」
    PRINTL
    PRINTFORML 鍛え上げられた肉体を持つ、爽やかな好青年の戦士――もとい、野伏のジョイだ
    PRINTFORMW そして、ジョイに寄り添う魔術師の少女
    PRINTL
    PRINTFORMW 「おー、%QST_LEADER_NAME()%だ。また会ったね、やほやほ～」
    PRINTL
    PRINTFORMW 相変わらず間延びしながらも、親しみの感情を込もった声を掛けてくれるユノ
    PRINTFORMW 開拓村の魔物退治依頼で知り合った、ベテラン冒険者にして恋人同士のコンビだ
    PRINTL
    PRINTFORMW 「良かった、%QST_LEADER_NAME()%なら安心して協力できるな」
    PRINTL
    PRINTFORMW 「そだねー。よろしくー」
    PRINTL
    PRINTFORML こちらを信頼するような言葉をかけてくる、ジョイとユノ
    PRINTFORML たしかに開拓村で顔を合わせはしたが、あのときはほとんど別行動だったはずだ
    PRINTFORMW 二人にそこまで信頼される心当たりはないのだが……
    PRINTL
    PRINTFORML 「私達はフィーのことを良く知ってて、フィーを信頼しているからね」
    PRINTFORMW 「そして、そのフィーが信頼して仲間になってる相手でしょ？　だったら問題ないでしょ？」
    PRINTL
    PRINTFORMW そう言って、緩い笑顔をみせるユノ
    PRINTL
    ;シルフィーユのデイリーイベント「新天地の生活」を前提条件としているので、フィーがいること前提で会話
    ;パーティーにいなくても、随伴している想定……
    CALL COLOR_PRINTW("「ジョイさん、ユノさんっ、お久しぶりですっ！」", カラー_ブルー)
    PRINTL
    PRINTFORMW 「こちらこそ久しぶりだね。今日はよろしく」
    PRINTL
    PRINTFORMW 「おー、フィーは相変わらず元気だね」
    PRINTL
    PRINTFORMW 久しぶりに会ったジョイ、ユノと親し気に挨拶を交わすフィー
    PRINTL
    ;シルフィーユのデイリーイベント「シルフィーユの魔法」を見ている場合
    IF K9_DFLAG_シルフィーユの魔法 == 2
        PRINTFORMW 「……んー？　ねえ、フィーもしかして……」
        PRINTL
        CALL COLOR_PRINTW("「ユノさん、どうかしましたか？」", カラー_ブルー)
        PRINTL
        PRINTFORMW 「やっぱり……フィー、頑張ったね。良かった良かった」
        PRINTL
        CALL COLOR_PRINTW("「えっ、えっ？」", カラー_ブルー)
        PRINTL
        PRINTFORMW 「フィー、魔法使えるようになったんでしょ？」
        PRINTL
        CALL COLOR_PRINTW("「ええっ！？　なんで分かるんですかっ！？」", カラー_ブルー)
        PRINTL
        PRINTFORMW 「んー？　フィーのマナの様子を見れば、だいたい分かるでしょ？」
        PRINTL
        PRINTFORMW ユノが軽い様子でフィーの現状を言い当てる
        PRINTL
        PRINTFORMW 「そうなのかい？　僕にはさっぱり分からないが……」
        PRINTL
        PRINTFORMW 「そりゃ、ジョイは魔術師じゃないし？」
        PRINTFORMW 「まー、その辺りは別に良いでしょ。ともかく、良かった良かった」
        PRINTL
        ;シルフィーユが恋人の場合
        IF TALENT:NAME_TO_CHARA("UC_シルフィーユ"):恋人 == 1
            PRINTFORMW 「それはそうと……やっぱり私が言った通りだったねぇ」
            PRINTL
            CALL COLOR_PRINTW("「な、なにがですか？」", カラー_ブルー)
            PRINTL
            PRINTFORMW 「なにがって……ほら、好きな人ができれば、魔法が使えるようになるって話」
            PRINTL
            CALL COLOR_PRINTW("「ふぇっ！？　あの、そのっ、そ、それこそなんでっ！？」", カラー_ブルー)
            PRINTL
            ;あなたもパーティーにいなくても、随伴はしている想定で……
            PRINTFORMW 「フィーさんや、分かりやす過ぎだって。%ANAME(MASTER)%のこと、熱がこもった視線で見てたし」
            PRINTL
            CALL COLOR_PRINTW("「あ、あう……」", カラー_ブルー)
            PRINTL
            PRINTFORML ユノの指摘に顔が真っ赤になるフィー
            PRINTFORML %ANAME(MASTER)%にとっても、気恥ずかしいなんてものじゃない状況だ
            PRINTFORMW ともかく、フィーがあわあわしているので、その辺りにしてもらおうと%ANAME(MASTER)%は止めに入った
            PRINTL
            PRINTFORML 「ユノ。%ANAME(MASTER)%の言う通り、そのあたりにしておこう。シルフィーユが困っている」
            PRINTFORMW 「すまなかった、%ANAME(MASTER)%、シルフィーユ。ユノもからかったりするような意図は一切なかったんだ」
            PRINTL
            CALL COLOR_PRINTW("「い、いえ。こちらこそすみません。恥ずかしいところをお見せしちゃって」", カラー_ブルー)
            PRINTL
            PRINTFORMW 「ごめんね、フィー。ついフィーが幸せそうだから、嬉しくなって、いらないこと言っちゃった」
            PRINTL
            CALL COLOR_PRINTW("「謝らなくて良いですよ、ユノさん。ありがとうございます」", カラー_ブルー)
            PRINTL
            PRINTFORMW 「えへへ、こちらこそありがとう。いやー、やっぱフィーはいい子だなぁ」
            PRINTL
        ENDIF
    ENDIF
    PRINTFORML ところで、セイレーンに対抗するための、もう一人の協力者の方はどこだろうか
    PRINTFORMW 事前に聞いていた少女について、%QST_LEADER_NAME(1)%は船長に尋ねる
    PRINTL
    PRINTFORMW 「おお、そうだったな。一緒に依頼をこなす相手だ。事前に顔合わせしといた方がいいだろう」
    PRINTL
    PRINTFORML 船長が船員さんの一人に声をかけると、船員が離れていく
    PRINTFORMW しばらくして、一人の少女が駆け足でやってきた
    PRINTL

    CFLAG:NAME_TO_CHARA("UC_スフレ"):面識 = 1

    CALL DRAW_PORTRAIT(NAME_TO_CHARA("UC_スフレ"), "[サイズ:180px][POS_X:0]",,1)
    CALL COLOR_PRINTW("「はあっ、はあっ……お、お待たせしましたっ！」", カラー_ピンク)
    PRINTL
    PRINTFORMW 「いやいや、そんなに待ってないから、だいじょーぶ。ひとまず、息を落ち着かせて」
    PRINTL
    PRINTFORMW ユノがやってきた少女に優しく声を掛ける
    PRINTL
    CALL COLOR_PRINTW("「あ、ありがとうございます……すー、はー……」",カラー_ピンク)
    PRINTL
    PRINTFORML 律儀に深呼吸する少女
    PRINTFORMW 息を整えた少女は、%QST_LEADER_NAME()%に向きなおり自己紹介する
    PRINTL
    CALL COLOR_PRINTW("「初めまして。私はスフレ・クローバーです」",カラー_ピンク)
    CALL COLOR_PRINTW("「今日は精一杯頑張りますので、皆さんよろしくお願いしますっ！」",カラー_ピンク)
    PRINTL
    CALL COLOR_PRINTW("「私はシルフィーユ・ハーベストです！　こちらこそよろしくお願いしますね、スフレさんっ！」", カラー_ブルー)
    PRINTL
    PRINTFORMW スフレ・クローバー。姓がクローバーということは――
    PRINTL
    PRINTFORMW 「そーいうこと。スフレは私の、かわいいかわいい妹なのです」
    PRINTL
    CALL COLOR_PRINTW("「も、もう姉さんっ。そういう恥ずかしい紹介やめてくださいっ」",カラー_ピンク)
    PRINTL
    PRINTFORMW 「えー。だって本当のことだし」
    PRINTL
    PRINTFORMW 「ほら、姉バカもその変にしておけ。スフレも困っているだろ」
    PRINTL
    PRINTFORMW ジョイがユノをやんわりと止める
    PRINTL
    CALL COLOR_PRINTW("「ありがとうございます、兄さん」",カラー_ピンク)
    PRINTL
    PRINTFORML ジョイのことを兄さんと呼ぶスフレ
    PRINTL
    PRINTFORMW 「ああ、私達三人は昔馴染みってやつでね。スフレにとって、ジョイは兄貴分みたいなものだから」
    PRINTL
    PRINTFORMW そのことに%QST_LEADER_NAME(1)%が疑問を持ったのを感じたのか、ユノが補足してくれた
    PRINTFORMW 三人の様子を少し見ただけでも、確かに仲の良さが伺える
    PRINTL
    PRINTFORMW 「顔合わせは済んだようだな」
    PRINTL
    PRINTFORMW 様子を見ていた船長が声を掛けてくる
    PRINTL
    PRINTFORML 「既に聞いているかと思うが、今回の討伐対象はセイレーンだ」
    PRINTFORMW 「戦闘能力はそこそこだが、問題はセイレーンの歌だ。まともに聴けば魅了されて討伐はおろか海の藻屑になりかねん」
    PRINTL
    PRINTFORMW 「まあ、私とジョイはセイレーンの歌に魅了されることなんてないけど」
    PRINTL
    PRINTFORMW 船長さんの言葉に、ユノが唐突に割り込んでくる
    PRINTL
    CALL COLOR_PRINTW("「どうしてですか、ユノさん？　もしかしてなにか特殊な魔法とか、対抗策があるんですか？」", カラー_ブルー)
    PRINTL
    PRINTFORMW 「んにゃ、そういう魔法は特にないよ。でも、私たちはセイレーン程度に魅了されたりなんてしないから」
    PRINTFORMW 「なぜなら……私とジョイは真実の愛で結ばれているからね」
    PRINTL
    PRINTFORML ……妙なセリフをドヤ顔で言い放つユノ
    PRINTFORMW 船長もフィーもスフレも、なに言ってんだこいつって顔をしている
    PRINTL
    PRINTFORMW 「あー、ユノは放っておいて続きをお願いします」
    PRINTL
    PRINTFORML 「もー、ジョイってば。ちょっとしたお茶目なジョークなのに」
    PRINTFORML 「というかスフレもフィーも%ANAME(MASTER)%も突っ込んでくれてもいいじゃん」
    PRINTFORMW 「おねえちゃん悲しい……よよよ」
    PRINTL
    CALL COLOR_PRINTW(@"「いや、いつからユノさんは私と%ANAME(MASTER)%のお姉さんになったんですか？」", カラー_ブルー)
    PRINTL
    CALL COLOR_PRINTW("「姉さん。船長さんの話を遮っちゃだめですよ」",カラー_ピンク)
    PRINTL
    PRINTFORMW 「あー、続けていいか？」
    PRINTL
    PRINTFORMW 船長の言葉に、%QST_LEADER_NAME(1)%を含む全員がうなずく
    PRINTL
    PRINTFORML 「セイレーンの歌への対抗策として、一番に挙げられるのは歌を聴かないことだ」
    PRINTFORMW 「ようするに、耳栓なんかをすることだが……船上で魔物で戦おうってときに、聴覚を封じるのは非常に危険だろう」
    PRINTL
    PRINTFORML 船長の言う通りだろう。ただでさえ危険で、慣れない船の上での戦い
    PRINTFORMW その上、聴覚を封じて戦うなど危険極まりない
    PRINTL
    PRINTFORML 「そこでスフレ嬢ちゃんの出番ってわけだ」
    PRINTFORML 「スフレ嬢ちゃんは若干１６歳にして、その美しい歌声で『イコン』で大人気を博した歌姫だ」
    PRINTL
    CALL COLOR_PRINTW("「せ、船長さん、それはちょっと大げさですよ。恥ずかしいです」",カラー_ピンク)
    PRINTL
    PRINTFORMW スフレが船長の賞賛に照れる
    PRINTL
    PRINTFORML 「まあ、スフレ嬢ちゃんにしつこく言い寄ってきたお得意様を、たまたま妹の様子を見に来たユノ嬢ちゃんがぶちのめしちまって」
    PRINTFORMW 「その結果、姉妹揃って働いていた店から出禁になったんだがな」
    PRINTL
    PRINTFORMW 「船長さん、出禁は大げさ。恥ずかしいなあ」
    PRINTL
    PRINTFORMW ユノが船長の暴露に照れる……そこは照れるところなのだろうか？
    PRINTL
    PRINTFORMW 「ともかくだ。スフレ嬢ちゃんの歌でセイレーンの魔性の歌に対抗するってわけだ」
    PRINTL
    PRINTFORMW 「スフレには声がより響くようになる魔道具を渡してある。セイレーン相手でも対抗できるはずだよ」
    PRINTL
    PRINTFORMW 船長の言葉に、ジョイが補足を加える
    PRINTL
    CALL COLOR_PRINTW("「本当に大丈夫でしょうか……？」",カラー_ピンク)
    PRINTL
    PRINTFORMW 「なぁに。ダメなら引き返すだけだ。なによりあのセイレーンはそのまま放って置くわけにはいかんからな」
    PRINTL
    PRINTFORML 「ともあれ、今回の討伐の要はスフレ嬢ちゃんだ。なんとしても守り切る必要がある」
    PRINTFORML 「スフレ嬢ちゃんはジョイとユノに守ってもらう」
    PRINTFORMW 「よって、道中の魔物やセイレーンとの戦いは――%QST_LEADER_NAME()%に任せる。やってくれるか？」
    PRINTL
    PRINTFORMW 船長の言葉に、%QST_LEADER_NAME()%は頷く
    PRINTL
    PRINTFORML 「よしっ！　それじゃあ、そろそろ出るぞ！　全員、船に乗り込め！」
    PRINTL
    CALL COLOR_PRINTW("「せ、精一杯頑張りますっ！」",カラー_ピンク)
    PRINTL
    PRINTFORMW そうして、セイレーンの討伐が始まった――
ELSE
    PRINTFORMW %QST_LEADER_NAME()%はセイレーンの討伐を再開すべく、再び船に乗り込んだ……
ENDIF

PRINTL
CALL COLOR_PRINTW(@"―― 港では｛ｸｴｽﾄ｝を選択して、[撤退]コマンドを実行できる", カラー_注意)
CALL COLOR_PRINTW(@"―― 撤退にペナルティはない。このクエストはクリアするまでは何度でも挑戦可能だ", カラー_注意)

CALL FL_PLAYBGM("Nostalgic_2.ogg")
PRINTL

;このフラグが立っている場合ROOM_ID200(開始地点)で撤退コマンドが実行可能になる
FLAG:クエスト_中断を許可 = 1
QST_SV_QUEST_FLAG:QST_有効クエストID = 1

;-------------------------------------------------
;イベントリストに登録するイベント情報を記述する
;<記述方法>
;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_26_EVENT_0
#DIMS EVENT_TRIGGER = "ENTER_ROOM"
#DIMS EVENT_TYPE = "ONCE"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:2 = %EVENT_TYPE%

;-------------------------------------------------
;実行するイベントの実行内容を記述
;イベント用の関数はTRYCALLFORMで呼ばれるため
;@QST_QUEST_{QUEST_ID}_EVENT_{EVENT_ID}の書式で記述する
;-------------------------------------------------
@QST_QUEST_26_EVENT_0
#DIMS ROOM_NAME

CALL HO_CREAR_LOG()
SELECTCASE HO_MASTER現在地
    CASE 1
        CALL HO_PRINT_LOG("波が高く、濃密なマナの気配が漂っている……！", 1)
    CASE 6
        CALL HO_PRINT_LOG("波が高くなってきた……", 1)
    CASE 7
        CALL HO_PRINT_LOG("セイレーンがいた岩礁地帯だ", 1)
    CASE 12, 13, 18, 23
        CALL HO_PRINT_LOG("穏やかな海が続いている", 1)
    CASE 24
        CALL HO_PRINT_LOG("港は賑やかな様子を見せている", 1)
    CASEELSE
        CALL HO_CREAR_LOG()
ENDSELECT

;-------------------------------------------------
;EV1
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_26_EVENT_1
#DIMS EVENT_TRIGGER = "ENTER_ROOM"
#DIMS EVENT_TYPE = "ONCE"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:2 = %EVENT_TYPE%

;ゲーム中一度でも解決済みの場合は非アクティブに
CALL QST_GET_SV_EVENT_FLAG(QST_NOWEV)
IF RESULT
    CALL QST_DEACTIVATE_EVENT(QST_NOWEV)
ENDIF

@QST_QUEST_26_EVENT_1
#DIM EVENT_FLAG
#DIM TARGET_ID

PRINTFORML 穏やかな海が続く
PRINTFORML しかし、遠目にこちらに向かってくる影が見えた
PRINTFORMW あれは――ウミネコか！？
PRINTL
PRINTFORMW 「ちっ、最近は海鳥達も好戦的になってきてやってらんねえなっ！」
PRINTL
PRINTFORMW 船長が悪態を付く
PRINTL
PRINTFORMW 「頼んだぜ、%QST_LEADER_NAME()%！」
PRINTL
PRINTFORMW 「スフレと船員達は僕とユノが守る！　背後は気にしないでくれ！」
PRINTL
CALL COLOR_PRINTW("「ごめんなさいっ！　よろしくお願いいたします！」",カラー_ピンク)
PRINTL
PRINTFORMW 船長とジョイ、スフレの言葉を背に、%QST_LEADER_NAME()%は迎撃すべく武器を取った！

;戦闘イベント
CALL CC_INIT()

;クエストのパーティメンバー全員を攻撃側として戦闘メンバーに追加
CALL CC_ADDPARTY()
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "QUEST_26_お供_強", "とってもやる気なウミネコ")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "QUEST_26_お供", "やる気なウミネコ１")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "QUEST_26_お供", "やる気なウミネコ２")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "QUEST_26_お供_強", "紛れ込んだカモメ")

;戦闘イベント呼出
CALL CLOSE_COMBAT()
IF RESULT == 1
    PRINTL
    CALL CC_APPLY_CHARA_HP()
    ;防御側エネミーから戦利品を獲得
    CALL CC_GET_LOOT_FROM("DEFENDER")
    PRINTL
    ;CALL QST_CHANGE_ITEM(@"{ITEM_鳥の羽},4,")
    PRINTL
    PRINTFORML %ANAME(QST_RANDCHARA())%の一撃が、ウミネコを打ち倒す！
    PRINTFORML （おれは……ウミネコじゃなくてカモメ……ぐふっ）
    PRINTFORMW なにか聞こえた気がしたが……気のせいだろう
    PRINTL
    PRINTFORML %QST_LEADER_NAME()%は周りを見渡す。ひとまずこちらに向かってくる魔物や動物はいないようだ
    PRINTL
    CALL COLOR_PRINTW("「わあっ……皆さん強いんですねっ！」",カラー_ピンク)
    PRINTL
    PRINTFORML 「おう、思った以上にやるな、あんたたち！」
    PRINTFORMW 「これなら安心できそうだ。だが、無理はしないでくれよ」
    PRINTL
    PRINTFORML スフレと船長のねぎらいを受けつつ、%QST_LEADER_NAME(1)%は行先を見つめる
    PRINTFORMW セイレーンがいると思われる海域へ向けて、船は先に進むーー
    PRINTL
    CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ELSE
    PRINTFORMW %QST_LEADER_NAME()%は、やたらやる気のあるウミネコ達にボコボコにされてしまった！
    PRINTL
    PRINTFORMW 「ウミネコつよっ！？」
    PRINTL
    PRINTFORMW %QST_LEADER_NAME()%を倒したウミネコに驚きの声をあげるユノ
    PRINTL
    CALL COLOR_PRINTW("「わあ……最近のウミネコさんって強いんですね……」",カラー_ピンク)
    CALL COLOR_PRINTW(@"「って、%QST_LEADER_NAME(1)%さん、大丈夫ですかっ！？」",カラー_ピンク)
    PRINTL
    PRINTFORMW 「ひとまず引くぞ！　ウミネコ達は僕がなんとか追い払う！」
    PRINTL
    PRINTFORMW 「おっけー、ジョイ。%QST_LEADER_NAME()%の敵討ちは任せたよ」
    PRINTL
    PRINTFORMW ボロボロだけど死んでないので、敵討ちはやめて欲しい……
    PRINTL
    CALL QST_QUEST_26_DEFEAT_EVENT()
ENDIF

;-------------------------------------------------
;EV2
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_26_EVENT_2
#DIMS EVENT_TRIGGER = "ENTER_ROOM"
#DIMS EVENT_TYPE = "ONCE"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:2 = %EVENT_TYPE%

;ゲーム中一度でも解決済みの場合は非アクティブに
CALL QST_GET_SV_EVENT_FLAG(QST_NOWEV)
IF RESULT
    CALL QST_DEACTIVATE_EVENT(QST_NOWEV)
ENDIF

@QST_QUEST_26_EVENT_2
#DIM EVENT_FLAG
#DIM TARGET_ID

PRINTFORML 順調に航海は続いている
PRINTFORMW しかし、またしても飛来する影――今回は大きい
PRINTL
PRINTFORML 「あれは……ロックバードか！　随分と大物が来やがったな！」
PRINTFORMW 「今回も頼むぜ、%QST_LEADER_NAME()%！」
PRINTL
PRINTFORMW ロックバード二羽が船に襲い掛かってきた！

;戦闘イベント
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_FROM_TABLE("DEFENDER", "ロックバード", "ノリノリロックバード１")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "ロックバード", "ノリノリロックバード２")
CALL CLOSE_COMBAT()
IF RESULT == 1
    PRINTL
    CALL CC_APPLY_CHARA_HP()
    ;防御側エネミーから戦利品を獲得
    CALL CC_GET_LOOT_FROM("DEFENDER")
    PRINTW
    PRINTFORMW %QST_LEADER_NAME()%の奮戦により、ロックバードを追い払うことに成功した！
    PRINTFORMW ロックバード達がやたら元気だったのが気になるが……
    PRINTL
    PRINTFORMW 「おおー、%QST_LEADER_NAME()%強いねえ」
    PRINTL
    PRINTFORMW ユノが感心したように%QST_LEADER_NAME()%に言葉をかける
    PRINTL
    PRINTFORMW 「セイレーンの目撃情報があったのは、もうじき見える岩礁地帯だ。準備を頼むぞ」
    PRINTL
    PRINTFORMW 船長の言葉に、%QST_LEADER_NAME()%は気を引き締めた
    PRINTL
    CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ELSE
    PRINTFORMW %QST_LEADER_NAME()%は、やたらノリノリなロックバード達にボコボコにされてしまった！
    PRINTL
    PRINTFORMW 「くっ、ロックバードだけにロックでノリノリってやつか……生意気な」
    PRINTL
    PRINTFORMW %QST_LEADER_NAME()%を倒したロックバードにとんちんかんなコメントをするユノ
    PRINTL
    CALL COLOR_PRINTW("「そんなこと言っている場合じゃないです姉さんっ！？」",カラー_ピンク)
    CALL COLOR_PRINTW(@"「%QST_LEADER_NAME(1)%さん、大丈夫ですかっ！？」",カラー_ピンク)
    PRINTL
    PRINTFORMW 「ひとまず引くぞ！　ロックバード達は僕がなんとか追い払う！」
    PRINTL
    PRINTFORMW 「おっけー、ジョイ。%QST_LEADER_NAME()%の敵討ちは任せたよ」
    PRINTL
    PRINTFORMW ボロボロだけど死んでないので、敵討ちはやめて欲しい……
    PRINTL
    CALL QST_QUEST_26_DEFEAT_EVENT()
ENDIF

;-------------------------------------------------
;EV3
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_26_EVENT_3
#DIMS EVENT_TRIGGER = "ENTER_ROOM"
#DIMS EVENT_TYPE = "ONCE"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:2 = %EVENT_TYPE%

;ゲーム中一度でも解決済みの場合は非アクティブに
CALL QST_GET_SV_EVENT_FLAG(QST_NOWEV)
IF RESULT
    CALL QST_DEACTIVATE_EVENT(QST_NOWEV)
ENDIF

@QST_QUEST_26_EVENT_3
#DIM EVENT_FLAG
#DIM TARGET_ID

CALL FL_STOPBGM()

PRINTFORMW やがて、岩礁地帯が見えてきた
PRINTL
PRINTFORML 「あの岩礁地帯が、セイレーンの情報があった場所だ」
PRINTFORMW 「%QST_LEADER_NAME()%、スフレ嬢ちゃん達、頼むぜ」
PRINTL
PRINTFORMW 船長が周りに警戒を促す
PRINTL
CALL COLOR_PRINTW("「は、はいっ！　うまくやれるでしょうか……？」",カラー_ピンク)
PRINTL
PRINTFORML 「スフレ。ダメだったらダメで、なんとかなるから緊張しないで」
PRINTFORMW 「少しの間なら、心をしっかり持てば持つから。その間に耳栓して、私が魔法ぶっ放して逃げの一手だね」
PRINTL
PRINTFORMW ユノが妹のスフレに対して声をかけ、緊張を解そうとしている
PRINTL
PRINTFORML 「ああ。できれば早急にセイレーンをなんとかしたいが、この船に乗る全員の命を引き換えにはできねえ」
PRINTFORMW 「スフレ嬢ちゃんの歌でセイレーンの歌を相殺できなかったら、即座に退散するぞ」
PRINTL
PRINTFORMW 船長の言葉に頷く一同
PRINTL
PRINTFORML 警戒しつつ、船は岩礁地帯に近づいていく
PRINTFORMW ふと……美しい歌声が耳に――頭に届く
PRINTL

CALL FL_PLAYBGM("Forest_0.ogg")

PRINTFORML 岩礁地帯の上に座り、歌うセイレーン
PRINTFORML その姿は、魔物とはとても思えないほど美しく――無垢な笑顔で、楽しそうに歌を紡ぐ彼女を見つめる%QST_LEADER_NAME(1)%
PRINTFORMW 彼女に近づこうと歩み寄ろうとして――
PRINTL
PRINTFORMW 瞬間、大切な仲間達の顔が過ぎり、歯を強く食いしばり、その場に留まった
PRINTL
PRINTFORML 船の先頭にいた%QST_LEADER_NAME(1)%は、あと一、二歩歩けば海に落ちるところまで来ていた
PRINTFORMW 恐怖で背筋が凍る%QST_LEADER_NAME(1)%
PRINTFORMW しかし、それでもなおセイレーンの歌声には抗いがたい魅力を感じてしまう……
PRINTL
PRINTFORML そこに、セイレーンとは別の美しい歌声が%QST_LEADER_NAME(1)%の耳に届いた
PRINTFORMW その優しい歌声が、%QST_LEADER_NAME(1)%の頭にかかっていたもやを晴らしていく……！
PRINTL
PRINTFORML 後から聴こえてきた歌声の元を辿ると、そこには高らかに歌うスフレがいた
PRINTFORML セイレーンと同じように楽しそうに歌うスフレの姿は、先ほどまでとは違い、凛とした雰囲気が感じられる
PRINTFORMW そして、彼女の歌にはセイレーンにも負けない美しさがあった
PRINTL
PRINTFORML ふと、歌うスフレと目が合う
PRINTFORMW お任せしましたっ！　とばかりに柔らかい笑顔を見せる
PRINTFORML そんなスフレの隣には、こちらは任せろとばかりに頼もしく立つジョイと――
PRINTFORMW やっちゃえとジェスチャーを向けるユノの姿があった
PRINTL
PRINTFORML %QST_LEADER_NAME(1)%は再びセイレーンを見る
PRINTFORMW 先ほどはセイレーンの歌に魅了されかけ、気づかなかったがセイレーンの周りには彼女の歌に惹かれたのか、海の動物達が集まっていた
PRINTL
PRINTFORMW %QST_LEADER_NAME(1)%は仲間たちと見合わせ、セイレーンとの戦いに挑む――！
PRINTL

;戦闘イベント
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_FROM_TABLE("DEFENDER", "QUEST_26_セイレーン", "『セイレーン』")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "QUEST_26_お供", "歌好きウミネコ")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "QUEST_26_お供", "元気一杯アザラシ")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "QUEST_26_お供", "飛びすぎトビウオ")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "QUEST_26_お供", "飛び跳ねるウミガメ")
CALL CLOSE_COMBAT("[BGM:Battle_1.ogg]")
IF RESULT == 1
    PRINTL
    CALL CC_APPLY_CHARA_HP()
    ;防御側エネミーから戦利品を獲得
    CALL CC_GET_LOOT_FROM("DEFENDER")
    PRINTW
    PRINTFORMW %ANAME(QST_RANDCHARA())%の攻撃が、セイレーンのすぐ傍を掠めた――！
    PRINTL
    PRINTFORML 「はわわわわっ！？　こ、この人達怖いですうううううっ！？」
    PRINTFORMW 「わ、私はどうなってもいいからこの子達だけはっ、見逃してくださいいいっ！」
    PRINTL
    PRINTFORMW 「セイレーンが……しゃべったぁ！？」
    PRINTL
    PRINTFORMW セイレーンの言葉に驚きの声を挙げる船長
    PRINTL
    PRINTFORMW 「いやまあ歌うんだから、喋ってもなんの不思議もないと思うけど」
    PRINTL
    PRINTFORMW 驚く船長に対し、もっともなのか抜けているのか判断に困るツッコミをするユノ
    PRINTL
    PRINTFORMW 「それより、この子達って……もしかしてウミネコやアザラシ達をかばっているのか？」
    PRINTL
    PRINTFORMW ジョイがセイレーンの言葉に対して言及する
    PRINTFORMW 油断はできないが……もしかしたら、セイレーンとは対話の余地があるのかもしれない
    PRINTL
    PRINTFORMW %QST_LEADER_NAME(1)%がそう思ったその時――
    PRINTL
    PRINTFORMW 「――やばっ！？　ルーンシールドっ！」
    PRINTL
    IF K9_DFLAG_シルフィーユの魔法 == 2
        CALL COLOR_PRINTW(@"「みんな、下がって！　破魔の剣っ！」", カラー_ブルー)
        PRINTL
        PRINTFORMW 突然、ユノとフィーが先頭に躍り出て魔法に対する防御体勢を整える
    ELSE
        PRINTFORMW 突然、ユノが先頭に躍り出て魔法に対する防御体勢を整える
    ENDIF
    PRINTL
    PRINTFORMW その瞬間――セイレーンと%QST_LEADER_NAME()%が乗っている船の間に、大きな水柱が上がる！
    PRINTL
    CALL COLOR_PRINTW("「きゃああああっ！？」",カラー_ピンク)
    PRINTL
    PRINTFORMW 急な事態に驚いたスフレの悲鳴が響き渡る
    PRINTFORMW 船の揺れに倒れそうになるスフレの体を、ジョイがとっさに支えていた
    PRINTL
    PRINTFORMW 「水竜さん……！？　わ、分かりましたっ！　みんな、飛ぶか海に潜って逃げてっ！」
    PRINTL
    PRINTFORMW セイレーンがなにかを言っているようだが、水柱が立てる音で良く聞き取れない
    PRINTL
    PRINTFORMW やがて水柱が収まると……岩礁地帯にいたセイレーンも、動物達もいなくなっていた
    PRINTL
    PRINTFORMW 「ちっ……逃げたか。しかし、あの水柱は明らかに自然のものじゃねえぞ……」
    PRINTL
    PRINTFORMW 船長が突然上がった水柱に対して見解を述べる
    PRINTL
    PRINTFORML 「そだね。あれは、明らかにセイレーンを逃がすために、何者かがやったものだよ」
    PRINTFORMW 「しかも、魔力からして相当高位の。どうする、船長？　私としては一旦引くことを進めるけど」
    PRINTL
    PRINTFORMW ユノが船長に対して、撤退を促す
    PRINTL
    PRINTFORML 「……いや、そんなやばい奴がこの近くにいるなら、どちらにしろ調査が必要だ」
    PRINTFORMW 「なにも分からないとなると、どう対処したらいいかさえ分からん」
    PRINTL
    PRINTFORMW 撤退の意見に対し、船長は続行の希望を告げる
    PRINTL
    ;ソーニャが雇用されてる場合
    IF  CFLAG:NAME_TO_CHARA("UC_ソーニャ"):所属 == CFLAG:MASTER:所属
        ;ソーニャの口調に違和感があったらすみません……
        CALL COLOR_PRINTW("「セイレーンのマナは把握した……もしセイレーンを追うんだったら、今だったら案内はできる」", 0xD36B9F)
        CALL COLOR_PRINTW("「……あまり離れると見失うから、追うんだったら今しかない……かな」", 0xD36B9F)
        PRINTL
        PRINTFORMW ソーニャが、今ならセイレーンの居場所までの案内はできると告げる
        PRINTL
    ELSEIF K9_DFLAG_シルフィーユの魔法 == 2
        CALL COLOR_PRINTW("「セイレーンのマナはさっきの戦闘の中で捉えたから、案内ならできるよ。任せてっ！」",カラー_ブルー)
        CALL COLOR_PRINTW("「だけど、離れちゃうと把握できなくなっちゃうから、追うんだったら今しかないと思う」",カラー_ブルー)
        PRINTL
        PRINTFORMW フィーが、今ならセイレーンの居場所までの案内はできると告げる
        PRINTL
    ELSE
        PRINTFORML 「ちなみに、セイレーンのマナは捉えているから。案内はできるよ」
        PRINTFORMW 「あんまり離れるとマナが把握できなくなっちゃうから、追うなら今しかないけど」
        PRINTL
        PRINTFORMW ユノが、今ならセイレーンの居場所までの案内はできると告げる
        PRINTL
    ENDIF
    PRINTFORML 「なら、なおさら追うべきだな」
    PRINTFORMW 「あんたらのような、強い冒険者が揃っている機会はそうそうねえんだ」
    PRINTFORML 「できれば、あの水柱を起こした奴が何者かだけでもはっきりさせてえ」
    PRINTFORMW 「もちろん、矢面に立つことになる、あんたらの意見を優先するが……どうだろうか？」
    PRINTL
    PRINTFORMW %QST_LEADER_NAME(1)%は仲間達と目配せをした後――スフレの様子を伺う
    PRINTL
    CALL COLOR_PRINTW("「大丈夫ですっ！　私はまだまだ歌えますからっ！」",カラー_ピンク)
    PRINTL
    PRINTFORMW 仲間やスフレの調子に問題がないことを確認した%QST_LEADER_NAME(1)%は、セイレーンを追うことに賛成する
    PRINTL
    PRINTFORML 「すまねえな……無理だと思ったらすぐに言ってくれ」
    PRINTFORMW 「代わりにもならねえが、これをやる」
    PRINTL
    PRINTFORML 船長から%QST_LEADER_NAME()%に、ポーションを渡される
    PRINTFORMW 連戦で疲れた身にはありがたい。そのポーションをありがたく使わせてもらうことにした
    PRINTL

    ;パーティ全員の体力を回復
    FOR LOCAL, 0, QST_PARTYNUM
        TARGET_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
        CALL QST_CHANGE_HP(TARGET_ID, 3000)
    NEXT
    CALL QST_RESET_SKILL_COOLTIME(1)

    CALL FL_PLAYBGM("Nostalgic_2.ogg")

    CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
ELSE
    PRINTFORML セイレーンの歌によるものか、異様な強さを発揮する動物たち
    PRINTFORML 一方、こちらはスフレの歌による相殺があるとはいえ、セイレーンの歌により本調子を出せない……！
    PRINTFORMW 加えて、こちらは船上だ。海での戦いでは不利は否めなかった
    PRINTL
    PRINTFORMW 「船長さん、引いた方がいい。これ以上は%QST_LEADER_NAME()%がもたない」
    PRINTL
    PRINTFORMW 「引くったって、ここ海だぞ！？　この乱戦状態でセイレーンや海鳥達相手に逃げ延びられるわけ――」
    PRINTL
    PRINTFORMW 退却を提案するユノに、船長が無理だと告げるが――
    PRINTL
    PRINTFORML 「でかい魔法を一発ぶっ放すから、その隙に逃げるようにして」
    PRINTFORMW 「船員の中で風魔法を使える人がいるなら、追い風になるようにして欲しい。少しだけでもいいから」
    PRINTL
    PRINTFORMW 「わ、分かった！」
    PRINTL
    PRINTFORML 「――世界に満ちるマナよ。我の声を聞き届け給え」
    PRINTFORMW 「集うは力。鍵は困難を切り開く意思。我が意思とその力を束ね、我らの敵を打ち倒す光となれ！」
    PRINTFORMW 「%QST_LEADER_NAME()%、下がって！」
    PRINTL
    PRINTFORMW ユノの言葉を聞いて、急いで下がる%QST_LEADER_NAME()%
    PRINTL
    PRINTFORMW 「えーいっ、必殺魔法！　マナブラストっ！」
    PRINTL
    PRINTFORML ユノの言葉と同時に、膨大なマナの光の奔流が放たれる
    PRINTFORMW まばゆい光と、轟音
    PRINTFORMW その規模の大きさに、わずかの間、呆然としてしまう
    PRINTL
    PRINTFORMW 「船長さん、今だよ早く逃げるっ！」
    PRINTL
    PRINTFORMW 「おっ、おおっ！　おまえらとっととずらかるぞっ！」
    PRINTL
    PRINTFORML ユノが船長を促し、慌てて船を反転させる
    PRINTFORMW あの魔法の奔流のためか、敵が追ってくる気配はない
    PRINTL
    CALL COLOR_PRINTW("「今の魔法、とってもすごいですっ！　さすが姉さんですねっ！」",カラー_ピンク)
    PRINTL
    PRINTFORML 「えへへ、スフレが褒めてくれると、お姉ちゃん嬉しいなあ」
    PRINTFORML 「……あ、ごめん。ちょっと疲れた。お姉ちゃん寝るから、あとよろしく～」
    PRINTFORMW 「……すやぁ」
    PRINTL
    CALL COLOR_PRINTW(@"「ちょっと姉さん……ってもう寝てますっ！？」",カラー_ピンク)
    PRINTL
    PRINTFORML ボロボロな%QST_LEADER_NAME()%とすやすやなユノ
    PRINTFORMW 戦えるのが自分だけになったジョイが周囲の警戒をしながら、船はなんとか港へ戻っていく……
    PRINTL
    CALL QST_QUEST_26_DEFEAT_EVENT()
ENDIF

;-------------------------------------------------
;EV4
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_26_EVENT_4
#DIMS EVENT_TRIGGER = "ENTER_ROOM"

RESULTS = %EVENT_TRIGGER%

@QST_QUEST_26_EVENT_4
#DIM WEAPON_LIST_IDX
#DIM CHARA_ID

;ソーニャが雇用されてる場合
IF  CFLAG:NAME_TO_CHARA("UC_ソーニャ"):所属 == CFLAG:MASTER:所属
    CALL COLOR_PRINTW("「セイレーンのマナ反応の近くまで来た……警戒して」", 0xD36B9F)
    CALL COLOR_PRINTW("「……っ！？　この膨大なマナは……っ！？　みんな、何かにつかまって！」", 0xD36B9F)
    PRINTL
    PRINTFORMW ソーニャが周りに警戒を促す
    PRINTL

ELSEIF K9_DFLAG_シルフィーユの魔法 == 2
    CALL COLOR_PRINTW("「セイレーンのマナはすぐ近くまで来たよ。気を付けてねっ！」",カラー_ブルー)
    CALL COLOR_PRINTW("「……大きなマナっ！？　何か来るっ！　みんな、つかまれるところにつかまって！」", カラー_ブルー)
    PRINTL
    PRINTFORMW フィーが周りに警戒を促す
    PRINTL
ELSE
    PRINTFORMW 「セイレーンのマナのすぐ近くまで来たよ。気を付けてね」
    PRINTFORMW 「……っ！？　まずっ！？　みんな、どこかにつかまって！」
    PRINTL
    PRINTFORMW ユノが周りに警戒を促す
    PRINTL
ENDIF

CALL FL_STOPBGM()

PRINTFORML その時、海の水面が突然大きく盛り上がる
PRINTFORMW そして、姿を表す巨大な竜の姿
PRINTL
PRINTFORMW 「こいつは……水竜……！？　なんだってこんなところに！？」
PRINTL
PRINTFORMW ジョイが驚きの声を上げる
PRINTL
PRINTFORMW 「やー、竜なんて久しぶりに見たねえ」
PRINTL
PRINTFORMW ユノは暢気にも感心したようなことを言っていた
PRINTL
PRINTFORMW 「こいつは……逃げた方が良さそうか？」
PRINTL
PRINTFORMW 「陸地ならともかく、海で逃げられはしませんよ。戦うしかありません」
PRINTL
PRINTFORMW 逃走を提案する船長に、ジョイが不可能であると告げる
PRINTL
PRINTFORMW 「だろうな、言ってみただけだ。おめえら、船を沈めないように死ぬ気で動けっ！」
PRINTL
PRINTFORMW 船長が船員に檄を飛ばす
PRINTL
PRINTFORMW 「私は船を守るのに精一杯になると思う。悪いけど、%QST_LEADER_NAME()%、頼むね」
PRINTL
PRINTFORMW ユノの言葉に、頷く%QST_LEADER_NAME(1)%
PRINTL
PRINTFORMW 「セイレーンはすぐ近くにいるはずだ。すまないが、スフレはセイレーンが歌った時のために備えていてくれ」
PRINTL
CALL COLOR_PRINTW("「は、はいっ、兄さん！　任せてくださいっ！」",カラー_ピンク)
PRINTL
PRINTFORMW 「人間よ……立ち去れっ！」
PRINTL
PRINTFORMW 水竜が咆哮を上げる
PRINTL
PRINTFORMW 「おおーっ、喋る竜だ。二体目だね、ジョイ」
PRINTL
CALL COLOR_PRINTW("「前にも喋る竜に会ったことがあるんですか姉さん！？　っていうか感心している場合じゃないですからねっ！？」",カラー_ピンク)
PRINTL
PRINTFORMW （やれやれ……さっきはひどい目に会ったと思ったら、またかよ。まあセイレーン姉さんのためにやりますか！）
PRINTL
PRINTFORMW 水竜――それとなぜかカモメが襲い掛かってきた！

;;戦闘イベント処理
;白兵戦参加メンバーの初期化
CALL CC_INIT()
;クエストのパーティメンバーを攻撃側として追加
CALL CC_ADDPARTY("ATTACKER")

;防御側キャラクターの設定(最大6名)
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "QUEST_26_水竜", "『水竜』")
CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "QUEST_26_お供_強", "紛れ込んだカモメ")

;戦闘処理呼出
CALL CLOSE_COMBAT("[BGM:Boss_9.ogg][BGM_NOT_AUTOSTOP:1]")
IF RESULT == 1
    ;戦闘終了後のHPをパーティに適用
    CALL CC_APPLY_CHARA_HP()

    ;防御側エネミーから戦利品を獲得
    CALL CC_GET_LOOT_FROM("DEFENDER")

    ;BGM停止
    CALL FL_STOPBGM()

    PRINTL
    PRINTFORML 水竜との戦いは激しさを増していく
    PRINTFORMW ユノが魔法で守っているため、船への被害は抑えられているが――やはり海の上では水竜の方が遥かに有利だ
    PRINTL
    PRINTFORML 「おかしい……竜が、ましてや水竜が水上で戦っているなら、本来こんなものじゃないはず」
    PRINTFORMW 「もしかして……私達を追い払おうとしてるだけで、本気で戦ってない？」
    PRINTL
    PRINTFORML ユノが自身の予測を告げる
    PRINTFORMW ということは……現状は手加減しているということだろうか？
    PRINTL
    PRINTFORML 「ぬう……なかなかやるな、人間達よ」
    PRINTFORMW 「本意ではないが……もう少し力を示す必要がありそうだ……！」
    PRINTL
    PRINTFORMW 竜の威圧感が増していく……！　ユノの予想通り、今までは本気ではなかったということか……！
    PRINTL

    CALL FL_STOPBGM()

    PRINTFORMW 「待ってくださいーっ！」
    PRINTL
    PRINTFORMW そのとき、先ほど聞いた声が響き渡る
    PRINTL
    PRINTFORMW 「私が目当てなんですよね！　水竜さんを傷つけるのはやめてくださいっ！」
    PRINTFORMW 「水竜さんは私を守ろうとしてくれただけなんです！」
    PRINTL
    PRINTFORMW %QST_LEADER_NAME()%と水竜の間に、水竜を庇う様に割って入るセイレーン
    PRINTL
    PRINTFORMW 「セイレーン……隠れていろと言ったはずだ」
    PRINTL
    PRINTFORMW 「でも、水竜さんが傷つくのは見ていられません！」
    PRINTL
    PRINTFORMW お互いにかばい合うセイレーンと水竜
    PRINTL
    CALL COLOR_PRINTW("「……あの、なんだか私達が悪者みたいじゃないですか？」",カラー_ピンク)
    PRINTL
    PRINTFORMW スフレの言葉通り、なんだかいたたまれない気持ちになる
    PRINTL
    CALL COLOR_PRINTW("「えっと……セイレーンさんと水竜さんは、ここで普段何をしていたんですか？」",カラー_ブルー)
    PRINTL
    PRINTFORMW 「何って……普段は動物さんたちと歌っていますけど……？」
    PRINTL
    PRINTFORMW きょとんとした顔でフィーの質問に答えるセイレーン
    PRINTL
    CALL COLOR_PRINTW("「それじゃあ、水竜さんはなぜセイレーンさんのことを守ろうとしているの？」",カラー_ブルー)
    PRINTL
    PRINTFORMW 「愚問だな。友が攻撃されていたら、守るのは人間だって同じだろう」
    PRINTL
    CALL COLOR_PRINTW("「そっかそっか。セイレーンさんと水竜さんはお友達なんだねっ」",カラー_ブルー)
    PRINTL
    CALL COLOR_PRINTW("「シルフィーユさんが納得してしまいましたっ！？」",カラー_ピンク)
    PRINTL
    PRINTFORMW 「ちょっと待った！　そこのセイレーンは、ただ航海してただけの人を、歌で誘惑して海に落とした奴だぜ！」
    PRINTL
    PRINTFORMW ただ歌っていただけというセイレーン、守っていただけという水竜に対して、船長は糾弾の言葉を発する
    PRINTL
    PRINTFORML 「死亡者こそ出ていないが、歌で誘われて海に落とされ、溺れた奴が複数出ている！」
    PRINTFORMW 「これで歌っていただけなんて、通らねえぞセイレーンさんよ！」
    PRINTL
    PRINTFORML 「ええっ！？　ちょ、ちょっと待ってください！」
    PRINTFORML 「確かに人間さんを見かけたら、歌を聴いてほしいなーとか、一緒に歌いたいなーって思って、歌で誘ったりしましたけど――」
    PRINTFORMW 「悪意や殺意なんて持ってはいません、本当ですっ！」
    PRINTL
    PRINTFORML 船長の糾弾に、セイレーンは弁解する
    PRINTL
    PRINTFORMW 「悪意がないだと！？　海に落とすことのどこに悪意がねえってんだ！？」
    PRINTL
    CALL COLOR_PRINTW("「お、落ち着いてください船長さんっ！　気持ちは分かりますが、そんなに怒っていたら話し合いになりませんよ！」",カラー_ピンク)
    PRINTL
    PRINTFORMW セイレーンに怒る船長に対して、スフレが止めに入る
    PRINTL
    PRINTFORMW 「本当に危害を加えるつもりなんてありませんっ！　信じてくださいっ！」
    PRINTL
    PRINTFORMW なおも弁解の言葉を放つセイレーン
    PRINTL
    CALL COLOR_PRINTW("「……あの、もしかしてだけど。セイレーンさん、ちょっと良いかな？」",カラー_ブルー)
    PRINTL
    PRINTFORMW そんなセイレーンに、フィーが言葉をかける
    PRINTL
    PRINTFORMW 「はい、なんですか人間さん？」
    PRINTL
    CALL COLOR_PRINTW("「セイレーンさんって、いきなり水中に突き落とされたら、溺れたりする？」",カラー_ブルー)
    PRINTL
    PRINTFORMW 「いいえ？　溺れたりなんてしませんよ？」
    PRINTL
    CALL COLOR_PRINTW("「そっか。なんで溺れないの？」",カラー_ブルー)
    PRINTL
    PRINTFORMW 「なんでって……当たり前では？」
    PRINTL
    PRINTFORMW フィーの質問に対して、なんでそんなことを聞くんだろうって様子で答えるセイレーン
    PRINTL
    CALL COLOR_PRINTW("「当たり前かぁ。セイレーンさんって、水中で呼吸できたりする？」",カラー_ブルー)
    PRINTL
    PRINTFORMW 「当然、できますけど？」
    PRINTL
    PRINTFORMW 「……ん？」
    PRINTL
    PRINTFORMW さも当たり前かのように答えるセイレーンに、ユノを始めとして、この場にいる全員が違和感を覚え始める
    PRINTL
    PRINTFORMW 「あの……なんでそんなことを聞くんですか？」
    PRINTL
    PRINTFORMW 顔に疑問符を浮かべながら、質問の意図を尋ねるセイレーン
    PRINTL
    PRINTFORMW 「おい……もしかしてこいつ……」
    PRINTL
    PRINTFORMW 先ほどまで怒りと共にセイレーンを糾弾していた船長も、察し始める
    PRINTL
    CALL COLOR_PRINTW("「あのね。セイレーンさん、人は水中では呼吸できないって……知ってた？」",カラー_ブルー)
    PRINTL
    PRINTFORMW 「え？　人間さんって水中で呼吸できないんですか？」
    PRINTL
    CALL COLOR_PRINTW("「うん、そうなの。だから突然、海の中に落ちたら溺れちゃうんだよ」",カラー_ブルー)
    PRINTL
    PRINTFORML 「へー、そうなんですね！　……あれ？」
    PRINTFORMW 「えっと……つまり……」
    PRINTL
    CALL COLOR_PRINTW("「……うん。セイレーンさんのやったことは、同族には問題なくても、私達にとってはひーじょに大事です」",カラー_ブルー)
    PRINTL
    PRINTFORML 「ええええええっ！？」
    PRINTFORMW 「えっと、その、ごめんなさいいいいいいいいっ！？」
    PRINTL
    PRINTFORMW 事の重大さを知ったセイレーンは平謝りしだす
    PRINTL
    PRINTFORMW 「……いやー、常識の違いって怖いねえ。くわばらくわばら」
    PRINTL
    PRINTFORMW 「まあなんにせよ、誤解が解けて良かったじゃないか。あとユノ、くわばらの使い方は間違ってないかい？」
    PRINTL
    PRINTFORMW ユノとジョイが微妙に間の抜けたやり取りをしている
    PRINTL
    PRINTFORML 「申し訳ありませんでしたっ、その、なんとお詫びすれば！？」
    PRINTFORML 「はっ、でも私なにもあげられる物がありません！？」
    PRINTFORMW 「……あげられるものと言えば、私の歌しか……！」
    PRINTL
    PRINTFORMW 「やめろこのバカ！？」
    PRINTL
    PRINTFORMW お詫びに歌うと言ったセイレーンを、慌てて静止する船長
    PRINTL
    PRINTFORMW 「え、でも歌に魔力を込めなければ誘う効果は出ないですよ？」
    PRINTL
    PRINTFORMW 「だったら最初からそうしろこの天然おバカセイレーン」
    PRINTL
    PRINTFORMW 普段ぼんやりとしたユノが、力のこもったツッコミをセイレーンに入れた
    PRINTL
    PRINTFORMW 「ぴえっ！？　ごめんなさいいいいいいいっ！？」
    PRINTL
    PRINTFORMW 「……なんというか、その、すまん。私からも言い聞かせておく」
    PRINTL
    PRINTFORMW 威厳を持つ高位存在であるはずの水竜が、申し訳なさそうに謝罪の言葉を発している
    PRINTFORMW その光景に、脱力感を覚える%QST_LEADER_NAME()%だった……
    PRINTL

    CALL FL_PLAYSE("Fanfare_0.ogg")
    PRINTFORMW %QST_LEADER_NAME()%はセイレーンの討伐――はならなかったが、問題の解決に成功した！
    PRINTL
    CALL COLOR_PRINTW("報酬として30,000ディナリを得た", カラー_注意)
    MONEY += 30000
    PRINTL
    CALL COLOR_PRINTW(@"――　名誉点を150点得た！", カラー_注意)
    QST_PRESTIGE_POINT += 150

    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORMW …………
    PRINTL
    PRINTFORMW 「まあ、なんかグタグタになった感じもあるが……なんにせよ、世話になったな」
    PRINTL
    PRINTFORMW 船長が労いの言葉をかけてくれる
    PRINTL
    PRINTFORMW 「これで探検家や冒険者達もまた西を目指し始めるだろうし、漁や交易を営む船乗り達も安心して活動できるってもんだ」
    PRINTL
    CALL COLOR_PRINTW("「あのセイレーンさん、大丈夫でしょうか？」",カラー_ピンク)
    CALL COLOR_PRINTW("「海に落とされた方達が、その恨みに思ってたりとか……」",カラー_ピンク)
    PRINTL
    PRINTFORMW セイレーンの今後を心配するスフレが、船長に訊ねる
    PRINTL
    PRINTFORMW 「まあ、それはあるかもしれんな。加えてあの美貌と歌声だ。仕返しを企む奴だけでなく、良からぬ連中に狙われる可能性もある」
    PRINTL
    CALL COLOR_PRINTW("「そ、そんなっ！？」",カラー_ピンク)
    PRINTL
    PRINTFORML 「が、まあ大丈夫だろう。水竜がため込んでいた財宝をお詫びとして少しくれたから、海に落とされた奴らにそいつを分けるさ」
    PRINTFORMW 「それにあのセイレーンに手を出すってことは、水竜を敵に回すってことだ」
    PRINTFORML 「加えて、水竜を敵に回すなんてバカな真似したら、この港町の全員から敵視される」
    PRINTFORMW 「そんなバカはいないと思いたいね」
    PRINTL
    CALL COLOR_PRINTW("「そうですか……それなら良かったです」",カラー_ピンク)
    PRINTL
    PRINTFORMW 船長の言葉に、胸を撫でおろすスフレ
    PRINTL
    PRINTFORMW 「ともかくだ。またなにかあったらよろしく頼むぜ、%QST_LEADER_NAME(1)%さんよ」
    PRINTL
    PRINTFORMW そういうと船長は去っていった……
    PRINTL
    PRINTFORMW 「はー、無事依頼終了っと。%QST_LEADER_NAME()%、お世話になったね」
    PRINTL
    PRINTFORMW 「ああ、今回は%QST_LEADER_NAME()%がいてくれて助かったよ」
    PRINTL
    CALL COLOR_PRINTW("「はい、ありがとうございましたっ！」",カラー_ピンク)
    PRINTL
    PRINTFORMW お礼を述べるジョイとユノ、スフレに対して、こちらこそお世話になったと礼を述べる
    PRINTL
    PRINTFORMW 「%QST_LEADER_NAME()%達はこれから西方を目指すのかい？」
    PRINTL
    PRINTFORMW ジョイの質問に、先のことはまだ決めていないと告げる
    PRINTL
    PRINTFORMW 「そっかー。私達はどうしようかねえ」
    PRINTL
    PRINTFORMW ユノ達に次の冒険について尋ねてみると、まだ決めていないらしい
    PRINTL
    CALL COLOR_PRINTW("「私はこの港町で、歌や踊りの仕事を探そうと思います」",カラー_ピンク)
    PRINTL
    PRINTFORMW スフレの言葉を聞き、スフレはユノ達と一緒に行かないかと聞いてみる
    PRINTL
    CALL COLOR_PRINTW("「はい。元々『イコン』で働いてて、次の仕事を探してましたので」",カラー_ピンク)
    CALL COLOR_PRINTW("「『イコン』を離れて、他の賑やかな街に行くまでの間、姉さんとジョイ兄さんに同行させて貰っていたんです」",カラー_ピンク)
    PRINTL
    PRINTFORMW 「船長さんがセイレーンの歌に対抗して、水竜も認めた歌い手だってスフレを宣伝してくれるみたいだし、引っ張りだこかもしれないね」
    PRINTL
    CALL COLOR_PRINTW("「それはそれで、なんだか噂が一人歩きしそうで怖いです兄さんっ！？」",カラー_ピンク)
    PRINTL
    PRINTFORMW 「でも、本当に大丈夫？　また『イコン』の時みたいに、変な奴に言い寄られたりしたら……」
    PRINTL
    CALL COLOR_PRINTW("「もう、姉さん。大丈夫ですよ、旅の途中に護身術も兄さんに教えてもらいましたし」",カラー_ピンク)
    PRINTL
    PRINTFORMW 「んー、そうだけどお姉ちゃんは心配だよ」
    PRINTL
    PRINTFORML 「けど、今回は仕方ないにしても、スフレをずっと冒険に連れまわすのもね」
    PRINTFORMW 「もちろん、付いてくるのであれば僕もユノも守るけれど……それだとスフレが歌う機会も少なくなってしまうだろうし」
    PRINTL
    PRINTFORMW スフレは次の仕事を探しているが、ユノやジョイはそれぞれ不安があるらしい
    PRINTL
    PRINTFORML %ANAME(MASTER)%次第だが、領地でスフレの歌や踊りの仕事をしてもらうのもいいかもしれない
    PRINTFORMW 冒険先の街で、歌や踊りを披露してもらうのもいいだろう
    PRINTL
    PRINTFORMW スフレが了承してくれるかは分からないが、彼女を仲間に誘ってみようか……？
    PRINTL
    CALL ASK_YN("仲間に誘う","やめておく")
    IF !RESULT
        PRINTFORMW %QST_LEADER_NAME(1)%はスフレを仲間に誘うことにした
        PRINTL
        PRINTFORML もしスフレさえ良ければ、%ANAME(MASTER)%の領地に来てくれないだろうか
        PRINTFORMW 歌や踊りの仕事をしてくれると嬉しい
        PRINTL
        CALL COLOR_PRINTW(@"「%ANAME(MASTER)%さんの領地でお仕事ですか？」",カラー_ピンク)
        PRINTL
        PRINTFORMW 「%ANAME(MASTER)%のところか……確かに、フィーもいるし安心できるかもね」
        PRINTL
        PRINTFORMW ユノも、フィーがいるところなら、スフレも安心できるかもしれないとコメントする
        PRINTL
        CALL COLOR_PRINTW("「そうですね……」",カラー_ピンク)
        PRINTL
        PRINTFORMW スフレは少し考えたあと、おずおずと頷いた
        PRINTL
        CALL COLOR_PRINTW("「はいっ、こちらこそよろしくお願いしますっ！」",カラー_ピンク)
        PRINTL
        CALL PRINT_NOTICE("スフレが仲間になった")
        PRINTL
        PRINTFORMW 「%QST_LEADER_NAME(1)%、スフレをよろしく頼むよ」
        PRINTL
        PRINTFORMW 「%QST_LEADER_NAME(1)%、妹をよろしくねー。スフレ、時々会いに行くから、元気でね」
        PRINTL
        CALL COLOR_PRINTW("「はいっ、姉さんも、ジョイ兄さんもお元気でいてくださいねっ！」",カラー_ピンク)
        PRINTL
        CALL COLOR_PRINTW("「ふふっ、スフレちゃんが来てくれて嬉しいな。これからよろしくねっ！」",カラー_ブルー)
        PRINTL
        CALL COLOR_PRINTW("「はいっ、私もフィーさんと一緒で嬉しいです！　よろしくお願いしますっ！」",カラー_ピンク)
        PRINTL
        PRINTFORMW 船にいる短い間で、スフレと仲良くなってるフィーだった

        ;加入処理
        CHARA_ID = NAME_TO_CHARA("UC_スフレ")
        CFLAG:CHARA_ID:所属 = 所属_プレイヤー
        ;初期装備の作成と装備
        ;装備武器…鋼のレイピア
        CALL QST_GET_WEAPON(5, "スフレの鋼のレイピア", WPN_材質_鋼, , , ,0, 0)
        WEAPON_LIST_IDX = RESULT
        CALL EQUIP_WEAPON(NAME_TO_CHARA("UC_スフレ"), WEAPON_LIST_IDX, 0)

        ;装備レリック…風精の指輪：銀の指輪相当
        CALL QST_GET_WEAPON(6, "風精の指輪", WPN_材質_銀, , "[WPN_ADD_SONG_AT_START:2]", ,1, 0)
        WEAPON_LIST_IDX = RESULT
        CALL EQUIP_WEAPON(NAME_TO_CHARA("UC_スフレ"), WEAPON_LIST_IDX, 14)
        PRINTL
    ELSE
        PRINTL
        PRINTFORMW 先ほどジョイが言っていた通り、スフレをここで誘わなければ、この街ですぐに働き先を見つけてしまうかもしれない……
        PRINTFORMW そうなれば、勧誘は困難になるだろう
        PRINTL
        CALL ASK_YN("やっぱり仲間に誘う","それでもやめておく（※スフレの加入機会が消失します）")
        IF !RESULT
            PRINTFORMW %QST_LEADER_NAME(1)%はスフレを仲間に誘うことにした
            PRINTL
            PRINTFORML もしスフレさえ良ければ、%ANAME(MASTER)%の領地に来てくれないだろうか
            PRINTFORMW 歌や踊りの仕事をしてくれると嬉しい
            PRINTL
            CALL COLOR_PRINTW(@"「%ANAME(MASTER)%さんの領地でお仕事ですか？」",カラー_ピンク)
            PRINTL
            PRINTFORMW 「%ANAME(MASTER)%のところか……確かに、フィーもいるし安心できるかもね」
            PRINTL
            PRINTFORMW ユノも、フィーがいるところなら、スフレも安心できるかもしれないとコメントする
            PRINTL
            CALL COLOR_PRINTW("「そうですね……」",カラー_ピンク)
            PRINTL
            PRINTFORMW スフレは少し考えたあと、おずおずと頷いた
            PRINTL
            CALL COLOR_PRINTW("「はいっ、こちらこそよろしくお願いしますっ！」",カラー_ピンク)
            PRINTL
            CALL PRINT_NOTICE("スフレが仲間になった")
            PRINTL
            PRINTFORMW 「%QST_LEADER_NAME(1)%、スフレをよろしく頼むよ」
            PRINTL
            PRINTFORMW 「%QST_LEADER_NAME(1)%、妹をよろしくねー。スフレ、時々会いに行くから、元気でね」
            PRINTL
            CALL COLOR_PRINTW("「はいっ、姉さんも、ジョイ兄さんもお元気でいてくださいねっ！」",カラー_ピンク)
            PRINTL
            CALL COLOR_PRINTW("「ふふっ、スフレちゃんが来てくれて嬉しいな。これからよろしくねっ！」",カラー_ブルー)
            PRINTL
            CALL COLOR_PRINTW("「はいっ、私もフィーさんと一緒で嬉しいです！　よろしくお願いしますっ！」",カラー_ピンク)
            PRINTL
            PRINTFORMW 船にいる短い間で、スフレと仲良くなってるフィーだった

            ;加入処理
            CHARA_ID = NAME_TO_CHARA("UC_スフレ")
            CFLAG:CHARA_ID:所属 = 所属_プレイヤー
            ;初期装備の作成と装備
            ;装備武器…鋼のレイピア
            CALL QST_GET_WEAPON(5, "スフレの鋼のレイピア", WPN_材質_鋼, , , ,0, 0)
            WEAPON_LIST_IDX = RESULT
            CALL EQUIP_WEAPON(NAME_TO_CHARA("UC_スフレ"), WEAPON_LIST_IDX, 0)

            ;装備レリック…風精の指輪：銀の指輪相当
            CALL QST_GET_WEAPON(6, "風精の指輪", WPN_材質_銀, , "[WPN_ADD_SONG_AT_START:2]", ,1, 0)
            WEAPON_LIST_IDX = RESULT
            CALL EQUIP_WEAPON(NAME_TO_CHARA("UC_スフレ"), WEAPON_LIST_IDX, 14)
        ELSE
            PRINTFORML スフレがこの港町で歌い手として有名になり、たまにユノやジョイが会いに来る
            PRINTFORML そんな暮らしは、スフレにとって悪くないものだろう
            PRINTL
            PRINTFORMW スフレとジョイ、ユノに別れを告げて港町を後にした……
        ENDIF
    ENDIF

    CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)

    ;QST_SV_QUEST_FLAGはセーブされるクエストの状態を示すフラグ。QST_有効クエストIDには現在のクエストID(ゴブ洞は0)が入る
    ;クエストが攻略済みかを判定する場合に使うとよい
    QST_SV_QUEST_FLAG:QST_有効クエストID = 2
    ;クエスト終了時の決まり文句
    TFLAG:クエスト_完了フラグ = 1
    CALL TRAIN_EXIT()
ELSE
    ;敗北イベント
    PRINTFORML やはり竜というべきか。水竜の力は絶大だった
    PRINTFORMW 加えて、こちらは船上だ。海での戦いでは不利は否めない……！
    PRINTL
    PRINTFORMW 「船長さん、引いた方がいい。これ以上は%QST_LEADER_NAME()%がもたない」
    PRINTL
    PRINTFORMW 「引くったって、ここ海だぞ！？　さっきジョイが言ったように逃げ延びられるわけ――」
    PRINTL
    PRINTFORMW 退却を提案するユノに、船長が無理だと告げるが――
    PRINTL
    PRINTFORML 「でかい魔法を一発ぶっ放すから、その隙に逃げるようにして」
    PRINTFORMW 「船員の中で風魔法を使える人がいるなら、追い風になるようにして欲しい。少しだけでもいいから」
    PRINTL
    PRINTFORMW 「わ、分かった！」
    PRINTL
    PRINTFORML 「――世界に満ちるマナよ。我の声を聞き届け給え」
    PRINTFORMW 「集うは力。鍵は困難を切り開く意思。我が意思とその力を束ね、我らの敵を打ち倒す光となれ！」
    PRINTFORMW 「%QST_LEADER_NAME()%、下がって！」
    PRINTL
    PRINTFORMW ユノの言葉を聞いて、急いで下がる%QST_LEADER_NAME()%
    PRINTL
    PRINTFORMW 「えーいっ、必殺魔法！　マナブラストっ！」
    PRINTL
    PRINTFORML ユノの言葉と同時に、膨大なマナの光の奔流が放たれる
    PRINTFORMW まばゆい光と、轟音
    PRINTFORMW その規模の大きさに、わずかの間、呆然としてしまう
    PRINTL
    PRINTFORMW 「船長さん、今だよ早く逃げるっ！」
    PRINTL
    PRINTFORMW 「おっ、おおっ！　おまえらとっととずらかるぞっ！」
    PRINTL
    PRINTFORML ユノが船長を促し、船長は慌てて船を反転させる
    PRINTFORMW あの魔法の奔流のためか、敵が追ってくる気配はない
    PRINTL
    CALL COLOR_PRINTW("「今の魔法、とってもすごいですっ！　さすが姉さんですねっ！」",カラー_ピンク)
    PRINTL
    PRINTFORML 「えへへ、スフレが褒めてくれると、お姉ちゃん嬉しいなあ」
    PRINTFORML 「……あ、ごめん。ちょっと疲れた。お姉ちゃん寝るから、あとよろしく～」
    PRINTFORMW 「……すやぁ」
    PRINTL
    CALL COLOR_PRINTW(@"「ちょっと姉さん……ってもう寝てますっ！？」",カラー_ピンク)
    PRINTL
    PRINTFORML ボロボロな%QST_LEADER_NAME()%とすやすやなユノ
    PRINTFORMW 戦えるのが自分だけになったジョイが周囲の警戒をしながら、船はなんとか港へ戻っていく……
    PRINTL
    CALL QST_QUEST_26_DEFEAT_EVENT()
ENDIF

;-------------------------------------------------
;以下イベントリストで管理する必要のない処理,イベント固有の関数など
;-------------------------------------------------
;汎用敗北イベント
@QST_QUEST_26_DEFEAT_EVENT
PRINTL
PRINTFORMW ……………………
PRINTFORMW ………………
PRINTFORMW …………
PRINTL
PRINTFORMW %QST_LEADER_NAME()%はボロボロになりつつも、なんとか船は港まで無事に帰還した……
PRINTL
PRINTFORMW 「今回は残念だったが、また頼むぜ。%QST_LEADER_NAME()%」
PRINTL
PRINTFORML 船長の言葉に頷く%QST_LEADER_NAME(1)%
PRINTFORMW ……今回のセイレーン討伐は失敗に終わってしまった。一度態勢を立て直すべきだろう
PRINTL
;全滅ペナルティ
CALL PRINT_NOTICE("治療費や宿泊費として5000ディナリを失った……")
MONEY -= 5000

QST_SV_QUEST_FLAG:QST_有効クエストID = 1
TFLAG:クエスト_完了フラグ = 1
CALL TRAIN_EXIT()

;-------------------------------------------------
;@QST_QUEST_26_ENEMY_DATA
; クエスト固有エネミーの読み込み処理
; クエストで共通的に使い回すエネミーの戦闘データは@CC_ENEMY_DATAに記述されているが
; クエスト側で後付で追加することもできる。(@QST_INIT_QUEST_XXなどで明示的に読込み処理を呼び出すこと)
; 特定のクエストでしか使わないエネミーのデータ（ボスなど）はクエスト側に記述するとよいだろう
; パラメータの詳細は @CC_ENEMY_DATA 参照
; ！！！ENEMY_DEF_NAMEはユニークである必要があるためクエスト側でエネミーを追加する場合はENEMY_DEF_NAMEに'QUEST_XX_'を接頭すること！！！
;-------------------------------------------------
@QST_QUEST_26_ENEMY_DATA
{
    DT_ROW_ADD "ENEMY_DATA"
        ,"ENEMY_DEF_NAME", "QUEST_26_お供"
        ,"MAX_HP", 1200
        ,"STR", 20
        ,"MAG", 0
        ,"ATTACK", 25
        ,"DEFENCE", 15
        ,"ARMOR", 10
        ,"AGILITY", 100
        ,"HATE_RATE", 100
        ,"TARGETING", WPN_脅威選定_無作為
        ,"DROP_ITEM_LIST", @"MONEY,500,1000,{ITEM_魔獣の肉片},1-2,350,"
        ,"EXP", 2
}
{
    DT_ROW_ADD "ENEMY_DATA"
        ,"ENEMY_DEF_NAME", "QUEST_26_お供_強"
        ,"MAX_HP", 1800
        ,"STR", 30
        ,"MAG", 0
        ,"ATTACK", 35
        ,"DEFENCE", 25
        ,"ARMOR", 20
        ,"AGILITY", 110
        ,"HATE_RATE", 100
        ,"TARGETING", WPN_脅威選定_無作為
        ,"ENEMY_AI", "[SKILL_USE_RATE:25]"
        ,"ENEMY_ACTIVE_SKILL", "[SMITE:1]"
        ,"DROP_ITEM_LIST", @"MONEY,1000,1000,{ITEM_魔獣の肉片},1-2,350,{ITEM_鳥の羽},1-3,400,"
        ,"EXP", 3
}
{
    DT_ROW_ADD "ENEMY_DATA"
        ,"ENEMY_DEF_NAME", "QUEST_26_セイレーン"
        ,"ENEMY_TYPE", ENEMY_TYPE_亜人系魔物
        ,"MAX_HP", 4000
        ,"STR", 25
        ,"MAG", 80
        ,"ATTACK", 20
        ,"DEFENCE", 40
        ,"ARMOR", 45
        ,"AGILITY", 120
        ,"HATE_RATE", 100
        ,"TARGETING", WPN_脅威選定_無作為
        ,"ENEMY_AI", "[SKILL_USE_RATE:50]"
        ,"REGIST_POISON", 80
        ,"REGIST_STUN", 10
        ,"REGIST_BURN", 100
        ,"REGIST_CHARM", 100
        ,"REGIST_PANIC", 10
        ,"REGIST_BLIND", 70
        ,"REGIST_DEATH", 100
        ,"ENEMY_PASSIVE_SKILL", "[ATK_ADD_SONG_TOKEN:3][ATK_BOOST_CRT_BY_SONG:1]"
        ,"ENEMY_ACTIVE_SKILL", "[ACT_SONG_OF_FRAGILE:1]"
        ,"DROP_ITEM_LIST", @"MONEY,3000,1000,{ITEM_技巧の宝玉},1,1000,"
        ,"EXP", 7
}
{
    DT_ROW_ADD "ENEMY_DATA"
        ,"ENEMY_DEF_NAME", "QUEST_26_水竜"
        ,"ENEMY_TYPE", ENEMY_TYPE_竜
        ,"MAX_HP", 12000
        ,"STR", 80
        ,"MAG", 30
        ,"ATTACK", 130
        ,"DEFENCE", 40
        ,"ARMOR", 50
        ,"AGILITY", 90
        ,"HATE_RATE", 100
        ,"TARGETING", WPN_脅威選定_高脅威
        ,"ENEMY_AI", "[SKILL_USE_RATE:50]"
        ,"REGIST_POISON", 40
        ,"REGIST_STUN", 40
        ,"REGIST_BURN", 100
        ,"REGIST_CHARM", 100
        ,"REGIST_PANIC", 70
        ,"REGIST_BLIND", 70
        ,"REGIST_DEATH", 100
        ,"ENEMY_PASSIVE_SKILL", "[ATK_ADD_CAST_TOKEN:1][ARMOR_DECAY:1]"
        ,"ENEMY_ACTIVE_SKILL", "[ACT_THUNDER_STORM:1]"
        ,"DROP_ITEM_LIST", @"MONEY,5000,1000,{ITEM_技巧の宝玉},1,1000,{ITEM_竜の牙},1,1000,"
        ,"EXP", 15
}

repo_name: pervysquirrelz/erafl

license: unknown


code:
;-------------------------------------------------
;クエスト定義ファイル
;QUEST_2
;-------------------------------------------------
@QST_TITLE_QUEST_2
RESULTS '= "女中リュミエール"

;ギルドメニューでクエストをフィルターする際のタグリスト。末尾の','を忘れないように
@QST_QUEST_TAG_2
RESULTS '= "単発,イベント,"

;-------------------------------------------------
;クエストの実行可能条件を定義
;-------------------------------------------------
@QST_AVAILABLE_QUEST_2(QUEST_ID)
#DIM QUEST_ID
SIF CFLAG:NAME_TO_CHARA("リュミエール"):所属 == 所属_プレイヤー
    RETURN 0
RETURN 1

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

;クエストメニュー右上段の概要欄。10行まで
@QST_SUMALLY1_QUEST_2
RESULTS:0 '= "新聞の求人によるとリュミエールと名乗る若い女中が雇用主を探しているようだ"
RESULTS:1 '= "懐に余裕があり、人手を欲しているならば声をかけてみてもいいだろう"

;クエストメニュー右下段の備考欄。難易度や条件、報酬等を記述。7行まで
@QST_SUMALLY2_QUEST_2
RESULTS:0 '= @"難易度：-"
RESULTS:1 '= "希望給金：7,000ディナリ(一括)"
RESULTS:2 '= "希望就労形態：住込"
RESULTS:4 '= @"@C:{カラー_選択不可}@「ちかごろこの辺境にもその嬢ちゃんみたいな、いいトコの連中が流れてくるようになった」@/C@"
RESULTS:5 '= @"@C:{カラー_選択不可}@「どうにもフロリアでどでかい内戦がおっ始まったかららしい」@/C@"
RESULTS:6 '= @"@C:{カラー_選択不可}@「ギルトとしては濡れ手に粟だが、哀れなもんだね」@/C@"

;-------------------------------------------------
;QST_INTRO_QUEST_n はQUEST開始前に呼ばれる
;クエストの導入文などを記述
;"DIALOGUE"型のクエストは当該関数のCALLのみ行う
;-------------------------------------------------
@QST_INTRO_QUEST_2
#DIM WEAPON_LIST_IDX

PRINTFORMW %ANAME(MASTER)%はギルドのテーブルでしげしげと新聞を眺める
PRINTFORMW このような辺鄙な地域でも不定期ではあるが新聞が刊行され、地域に根ざした出来事を伝えている
PRINTL
PRINTFORML 有象無象の記事を流しつつ目を通していると%ANAME(MASTER)%の目にある求人が止まった
PRINTFORMW 曰くリュミエールという若い女性が雇用主を探しているらしい
PRINTL
PRINTFORMW 雇用条件は給金7,000ディナリ。相場と比べると破格の安さだ
PRINTFORMW 冒険者以外の求人自体が稀な辺境において、若い女性の女中を探すとなると殊更難儀だった
PRINTFORMW どうしたものだろう？　人手が足りないのであれば声をかけてみてもよいかもしれない
CALL ASK_YN("雇う","やめておく")
IF !RESULT
    IF MONEY < 7000
        PRINTFORMW お金が足りないようだ……
        RETURN
    ENDIF
    PRINTFORMW ………………
    PRINTFORMW …………
    PRINTFORMW ……
    PRINTL
    PRINTFORMW 「リュミエールと申します。以後お見知り置きを」
    CALL COLOR_PRINTW("―― メイドのリュミエールが仲間になった！", カラー_注意)
    CFLAG:NAME_TO_CHARA("リュミエール"):所属 = 所属_プレイヤー
    CALL QST_GET_WEAPON(3, "リュミエールの鉄の戦鎚", WPN_材質_鉄,,,,0)
    WEAPON_LIST_IDX = RESULT
    CALL EQUIP_WEAPON(NAME_TO_CHARA("リュミエール"), WEAPON_LIST_IDX)
    MONEY -= 7000
    QST_SV_QUEST_FLAG:QST_有効クエストID = 1
ELSE
    PRINTFORMW 今は間に合っている。やめておこう
ENDIF

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