code:
;EV12 林檎の樹
;EV 8 池
;EV11 妖精庭園
;EV20 花畑

;-------------------------------------------------
;EV12 林檎の樹（あとから思いついて追加したので番号が前後）
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_40_EVENT_12
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "林檎の樹"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_40_EVENT_12
#DIM CONST EVENT_ID = 12
#DIM CHARA_ID
#DIM EV_PATTERN
#DIM HEAL_POINT
#DIM BAD_POINT
#DIMS 実の種類

SELECTCASE RAND:3
    CASE 0
        実の種類 = 赤い大きな
        ;応急点を消費して25％回復する
    CASE 1
        実の種類 = 赤い小さな
        ;応急点消費なしだが回復ちょっぴり
    CASE 2
        実の種類 = 黄色い小さな
        ;ランダムで回復もダメージもあり、身体能力が下がり、身体２０以下だと体格減少の可能性
ENDSELECT

PRINTFORMW 周囲の様子を観察していた%QST_LEADER_NAME()%は、背の低い林檎の樹を見つけた
PRINTFORML 特に何の変哲もない樹に見えるが、まん丸い果実がひとつだけぶら下がっている
PRINTFORML 商人が言っていた錬金素材には含まれないので、持って帰っても報酬になりそうにはないが……
PRINTW
PRINTFORML 観察するまでもなく、辺りに不審な点はない
PRINTFORML 虫食いもない%実の種類%林檎の実が、ただ静かにぶら下がっている
$AC_CHOICE
PRINTL
CALL ASK_MULTI("食べてみる", "持ち帰ってみる", "放っておく")
PRINTL
IF RESULT == 0
    CALL QST_SELECT_CHARA(1, "誰が食べますか？")
    CHARA_ID = RESULT
    EV_PATTERN = 0
    IF RESULT == -1
        GOTO AC_CHOICE
    ELSEIF 実の種類 == "赤い大きな" && QST_応急治療点 == 0
        PRINTFORMW %ANAME(CHARA_ID)%は大きな林檎をもぎ取った
        PRINTFORML しかし、よくよく考えれば%QST_LEADER_NAME()%はお腹が空いていない
        PRINTFORML 大きな実を手に取ってみると、途端に満腹感が襲ってくる
        PRINTW
        CALL COLOR_PRINTL(@"赤い大きな林檎の実を食べるには応急治療点が必要", カラー_警告)
        PRINTW
        PRINTFORML %ANAME(CHARA_ID)%が逡巡していると、手の中から林檎が零れ落ちた
        PRINTFORML グチャリ――地面に落ちた林檎は嫌な音を立てて潰れてしまった
        PRINTW
        PRINTFORML ……林檎がひとりでに動いたように感じるのは、気のせいだろうか
        PRINTW
    ELSE
        IF SKILL_GET_LEVELF(CHARA_ID, スキル_大分類_性技, "SEDUCTION") >= 2
            IF IS_MALE(CHARA_ID, 1)
                EV_PATTERN = 2
            ELSE
                EV_PATTERN = 1
            ENDIF
        ENDIF
        IF 実の種類 == "赤い大きな"
            PRINTFORMW %ANAME(CHARA_ID)%は赤い大きな林檎をもぎ取って口へ運んだ
            PRINTFORML ……甘さは控えめだが水気が多く、シャクシャクとした歯触りも心地良い
            PRINTFORML 気がつけば、%ANAME(CHARA_ID)%は夢中になって大きな実をまるまるひとつ食べ切っていた
            PRINTW
            HEAL_POINT = MAXBASE:CHARA_ID:体力 / 4
            QST_応急治療点 --
            CALL QST_CHANGE_HP(CHARA_ID, HEAL_POINT)
            CALL COLOR_PRINTL(@"応急治療点が１点減った", カラー_警告)
            PRINTW
        ELSEIF 実の種類 == "赤い小さな"
            PRINTFORMW %ANAME(CHARA_ID)%は赤い小さな林檎をもぎ取って口へ運んだ
            PRINTFORML ……これは瑞々しい果実だ！
            PRINTFORML 甘いものを食べて、少しだけ疲れが取れた気がする
            PRINTW
            CALL QST_CHANGE_HP(CHARA_ID, 200)
            PRINTW
        ELSEIF 実の種類 == "黄色い小さな"
            PRINTFORMW %ANAME(CHARA_ID)%は黄色い小さな林檎をもぎ取って口へ運んだ
            PRINTFORML ……苦い！
            PRINTFORML 硬くて苦くて個性の強い、とてもおいしいとは言えない果実だ
            PRINTW
            PRINTFORML ……だが、何となくクセになりそうな味でもある
            PRINTFORML 渋い顔をしながらも、%ANAME(CHARA_ID)%は黄色い林檎を食べ切っていた
            PRINTW
            CALL COLOR_PRINTW(@"林檎の最後の欠片を飲み込んだ途端、%ANAME(CHARA_ID)%は脱力するような感覚に襲われた……", カラー_ピンク)
            CALL QST_CHANGE_HP(CHARA_ID, RAND(-300, 500))
            IF ABL:CHARA_ID:身体 > 0
                BAD_POINT = RAND:3 + 1
                WAIT
                CALL COLOR_PRINTL(@"%ANAME(CHARA_ID)%の身体能力が{BAD_POINT}下がってしまった", カラー_警告)
                ABL:CHARA_ID:身体 -= BAD_POINT
                SIF ABL:CHARA_ID:身体 < 0
                    ABL:CHARA_ID:身体 = 0
            ENDIF
            PRINTW
            IF EV_PATTERN >= 1 && ABL:CHARA_ID:身体 <= 20 && TALENT:CHARA_ID:体格 > -2 && !RAND:4
                TALENT:CHARA_ID:体格 -= 1
                CALL SET_BODYSIZE(CHARA_ID)
                PRINTFORMW 気のせいか、さっきまでよりも目線が低くなった気がする……
                CALLF TAG_PRINT(@"%ANAME(CHARA_ID)%の身体は小さくなって、@C:{カラー_ピンク}@%TOSTR_BODYSIZE(TALENT:CHARA_ID:体格)%@/C@程度に縮んでしまった", 1)
                PRINTW
            ENDIF
        ENDIF
        IF EV_PATTERN >= 2
            IF 実の種類 == "黄色い小さな"
                CALL COLOR_PRINTL(@"さらに、%ANAME(CHARA_ID)%は自分の身体に奇妙な違和感を覚えた……", カラー_ピンク)
            ELSE
                CALL COLOR_PRINTL(@"林檎の最後の欠片を飲み込んだ途端、%ANAME(CHARA_ID)%は自分の身体に奇妙な違和感を覚えた……", カラー_ピンク)
            ENDIF
            PRINTW
            CALL TS_TO_GETTING(CHARA_ID, 3)
            PRINTFORMW ……………………
            PRINTFORMW ………………
            PRINTFORML …………
            PRINTW
            PRINTFORML 奇妙な違和感は治まったようだ
            PRINTW
        ENDIF
    ENDIF
ELSEIF RESULT == 1
    PRINTFORML 商人からの指定がなくても、これも樹精の森で採れる果実だ
    PRINTFORMW 何かの役に立つかもしれないと、%ANAME(QST_RANDCHARA())%が実をもごうとする
    PRINTFORML しかし、ぼとり――と目の前で林檎は地面に落ちてグチャグチャに潰れてしまった
    PRINTW
    SELECTCASE RAND:2
        CASE 0
            CALL COLOR_PRINTL(@"「キャハハ……すぐ食べないなら、あーげない♪」", カラー_黄緑)
        CASE 1
            CALL COLOR_PRINTL(@"「こ、ここで食べないなら、あげられないから……」", カラー_黄緑)
    ENDSELECT
    PRINTW
    PRINTFORML 風に乗って少女の声が聴こえた気がした……
    PRINTW
ELSE
    PRINTFORMW 特に何をするわけでもなく背を向けた%QST_LEADER_NAME()%の後ろで、何かが落ちる音がした
    PRINTFORML ……振り向けば、林檎の実が地面に落ちてグチャグチャに潰れていた
    PRINTW
ENDIF
CALL QST_DEACTIVATE_THIS_EVENT()

;-------------------------------------------------
;EV8 池
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_40_EVENT_8
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "池畔の調理場"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_40_EVENT_8
#DIM CONST EVENT_ID = 8
#DIM CHARA_ID
#DIM EV_PATTERN
#DIMS S_PERSON

EV_PATTERN = 0

CALL QST_GET_EVENT_FLAG(EVENT_ID)
IF RESULT == 0
    PRINTFORML 透明な水を湛えた池の畔から、子ども達の声が聴こえてくる……
    PRINTFORML 見ればどういうわけか、そこには石や土を組んだと思しき素朴な調理場が整えられていた
    PRINTW
    PRINTFORML その場違いな調理場を、背に蝶のような羽を生やした子ども達が忙しそうに駆け回っている
    PRINTFORMW どの子も中性的な雰囲気で、愛らしい見目形や声から性別を推し量ることはできない
    PRINTFORML %QST_LEADER_NAME()%が近付くと、子ども達が慌てた様子で集まってきた
    PRINTW
    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「ヒトだ！　ヒトだ！　ねえねえ、ねえねえ、聞いて聞いて！」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_黄}@「みんなでお茶会をやるのにお菓子が足りないんだよぉ！」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「なんでここにヒトが居るの、なんてどうでもいいからぁ！」@/C@", 1)
    PRINTW
    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「ボク達のお菓子を作るの手伝ってよ！　材料はあるからぁ！」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_黄}@「ドライアド姉様にはヒトのこと、内緒にしてあげるから！」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「おねがいおねがいおねがいおねがーい！」@/C@", 1)
    PRINTW
    PRINTFORML 羽の生えた子ども達は縋りつくように%QST_LEADER_NAME()%を取り囲んでいる
    CALL QST_SET_EVENT_FLAG(EVENT_ID, 1)
ELSE
    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「ヒトだ！　やっぱり手伝ってくれるの！？」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_黄}@「意地悪しないで手伝ってよぉ！　お菓子できたら、分けてあげるからぁ！」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「早く、早く！　間に合わなくなっちゃう！」@/C@", 1)
    PRINTW
    PRINTFORML 羽の生えた子ども達は再び%QST_LEADER_NAME()%を取り囲んで縋りついてきた
ENDIF
PRINTL
CALL PRINT_TITLE("おかしなお菓子作り", "イベント")
WAIT
CALL ASK_YN("お菓子作りを手伝う（料理判定）", "断る")
IF !RESULT
    CALL QST_PARTY_ROLL("料理", 200, 1, 3)
    CHARA_ID = RESULT:1
    PRINTL
    IF TALENT:CHARA_ID:体格 <= -2
        S_PERSON = キミ
    ELSEIF IS_MALE(CHARA_ID) == 1
        S_PERSON = お兄さん
    ELSE
        S_PERSON = お姉さん
    ENDIF
    SIF SKILL_GET_LEVELF(CHARA_ID, スキル_大分類_性技, "SEDUCTION") < 2
        EV_PATTERN = 1
    IF RESULT == 1
        PRINTFORML 木や石で作られた見慣れない調理器具を、しかし%ANAME(CHARA_ID)%は巧みに使いこなすことができた
        PRINTFORML 子ども達に混ざって生地を捏ね、型作りをして、焼き上げていく
        PRINTFORML そうしているうちに自然とお菓子作りの中心は%ANAME(CHARA_ID)%となっていった……
        PRINTW
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORML …………
        PRINTW
        CALLF TAG_PRINT(@"@C:{カラー_シアン}@「やったー！　できた！　間に合ったー！」@/C@", 1)
        CALLF TAG_PRINT(@"@C:{カラー_黄}@「%S_PERSON%のおかげでなんとかなったよ、ありがとう！」@/C@", 1)
        CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「それにとってもおいしそう！　%S_PERSON%にもあげるから、ここで食べてみて！」@/C@", 1)
        PRINTW
        PRINTFORML 子ども達は焼き上げたクッキーやマフィンを手早く包みながら、%ANAME(CHARA_ID)%に一部を手渡してくれた
        PRINTFORML ……なぜかここですぐに食べることを期待されているようだ
        PRINTW
        IF EV_PATTERN == 0
            CALLF TAG_PRINT(@"@C:{カラー_シアン}@「%S_PERSON%がとっても料理がうまいから、%S_PERSON%の言う通りにボク達も頑張ったけど」@/C@", 1)
            CALLF TAG_PRINT(@"@C:{カラー_黄}@「そういえば、これってどんな味付けにしたの？　子ども向け？　大人向け？」@/C@", 1)
            CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「食べる前に教えて！　%S_PERSON%が好きな味付けにしたんだよね？」@/C@", 1)
            PRINTW
            CALL ASK_MULTI("子ども向けの味にした", "大人向けの味にした", "特に考えていなかった")
            PRINTL
        ELSE
            RESULT = 2
        ENDIF
        PRINTFORML 子ども達の圧力に負けたのか、あるいは身体が意思に反して動いているような気さえしながら……
        PRINTFORML %ANAME(CHARA_ID)%は受け取ったお菓子に手を伸ばしていた
        PRINTW
        SELECTCASE RESULT
            CASE 0
                PRINTFORML ……食べ始めてすぐに、全身がふわふわと浮いているような感覚に襲われる
                PRINTFORML 酔っ払っているような、自分という存在の輪郭が曖昧になるような、奇妙な感覚だ
                PRINTW
                IF TALENT:CHARA_ID:体格 <= -2
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「子ども向けに作ったんだねー。うん、だって%S_PERSON%はボク達より小さな子どもだもんね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「なのに料理が上手でびっくり！　ボク達の\@IS_MALE(CHARA_ID) > 1 ? 弟 # 妹 \@にして飼いたいくらい！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「でも特別なお菓子でも、%S_PERSON%くらい小さな子には効果がなかったみたいだね……？」@/C@", 1)
                    PRINTW
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「せっかくだから遊んであげたいけど、ごめんね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「大丈夫？　ヒトには合わないお菓子だったかな？　でもすぐに治まるからね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「%S_PERSON%のおかげで間に合いそうだよ、ありがとう！」@/C@", 1)
                    PRINTW
                    PRINTFORML 酩酊感にふらつく%ANAME(CHARA_ID)%の頭を、子ども達は幼児を褒めるように順番に撫でていく
                    PRINTFORML そうして最後まで急いだ様子で、残りのお菓子を持って森の奥へと走っていった……
                    PRINTW
                    PRINTFORML しばらくして、%ANAME(CHARA_ID)%の全身を巡る酩酊感も消え去った
                    PRINTFORML 幸い、身体には何も異常はないようだ
                ELSEIF TALENT:CHARA_ID:体格 <= -1
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「%S_PERSON%もそんなに大きくないのに、自分より小さな子のことを考えてあげてるんだね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「でも、でもでも、%S_PERSON%がボク達よりちっちゃくなったら、きっとすーっごくかわいいだろうね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「時間があったらボク達がいーっぱいかわいがってあげるのに……！」@/C@", 1)
                ELSEIF TALENT:CHARA_ID:体格 <= 2
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「%S_PERSON%は大人だもんね、背が高くって！　子どもなボク達のこと、考えてくれたんだね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「でもね、%S_PERSON%も、もっと子どもになっていいんだよ！　小さな身体で、難しいこと考えない子ども！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「またボク達のところに来て手伝ってくれたら……%S_PERSON%も大人じゃなくなれるかもね！」@/C@", 1)
                ELSE
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「そうだよね……%S_PERSON%ってちょっとおっきすぎるもんね。%S_PERSON%から見たらみんな子どもだよね」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「そのおっきな身体で、よくボク達の道具が使えたよね……。%S_PERSON%、ホントにヒト？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「ボク達のお菓子は特別なんだ。ちょっともったいないけど……%S_PERSON%も少しだけ、子どもになれると思うよ！」@/C@", 1)
                ENDIF
                IF TALENT:CHARA_ID:体格 > -2
                    PRINTW
                    PRINTFORML 酩酊感が増していく
                    PRINTFORML 視界が揺れながらどこまでが自分なのかを完全に見失ってしまう
                    PRINTW
                    PRINTFORML そして、唐突にそれは治まった
                    PRINTFORML 同時に%ANAME(CHARA_ID)%は自分の視界が低くなった違和感を覚える……
                    PRINTW
                    TALENT:CHARA_ID:体格 -= 1
                    CALL SET_BODYSIZE(CHARA_ID)
                    CALLF TAG_PRINT(@"%ANAME(CHARA_ID)%の体格が@C:{カラー_ピンク}@%TOSTR_BODYSIZE(TALENT:CHARA_ID:体格)%@/C@になった！", 1)
                    PRINTW
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「またね、おいしいお菓子を作れるおいしそうな%S_PERSON%！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「また一緒にお菓子を作ろうね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「ばいばーい！」@/C@", 1)
                    PRINTW
                    PRINTFORML 小さくなった自分の身体に戸惑う%ANAME(CHARA_ID)%を尻目に、子ども達は片付けを進めていく
                    PRINTFORML そうして最後まで急いだ様子で、残りのお菓子を持って森の奥へと走っていった
                    PRINTW
                    PRINTFORML あとにはかすかな甘い残り香と、変化した%ANAME(CHARA_ID)%だけが残った……
                ENDIF
            CASE 1
                PRINTFORML ……食べ始めてすぐに、全身がふわふわと浮いているような感覚に襲われる
                PRINTFORML 酔っ払っているような、自分という存在の輪郭が曖昧になるような、奇妙な感覚だ
                PRINTW
                IF TALENT:CHARA_ID:体格 >= 1
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「大人向けの味なんだ？　うん、でもたまにはそういうのもいいかな？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「特別なお菓子なんだけど……%S_PERSON%には効果がなさそうだね」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「だって%S_PERSON%ってば、もうおっきな大人だもんね！」@/C@", 1)
                    PRINTW
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「ヒトが食べたらちょっとふらふらしちゃうお菓子だったかな？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「すぐに治まるはずだから大丈夫だよ！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「%S_PERSON%のおかげで間に合いそうだよ、ありがとう！」@/C@", 1)
                    PRINTW
                    PRINTFORML 酩酊感にふらつく%ANAME(CHARA_ID)%に構う余裕もないといった様子で、子ども達は片付けを進めていく
                    PRINTFORML そうして最後まで急いだ様子で、残りのお菓子を持って森の奥へと走っていった……
                    PRINTW
                    PRINTFORML しばらくして、%ANAME(CHARA_ID)%の全身を巡る酩酊感も消え去った
                    PRINTFORML 幸い、身体には何も異常はないようだ
                ELSEIF TALENT:CHARA_ID:体格 >= -1
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「大人向けの味、食べたらボク達もちょっと大人になった気持ちになれるかもね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「ボクは大人にならなくっていいけど……%S_PERSON%は大人の味が好きなんだね」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「%S_PERSON%が好きなら、大人の味だってきっとおいしいのかな」@/C@", 1)
                ELSE
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「%S_PERSON%はそんなに小さな子なのに、大人向けの味にしたの？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「背伸びをしたくなっちゃったんだね？　小さな子らしくしてればいいのに！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「おいしいお菓子を作れる%S_PERSON%が好きな味なら、うん、それでもいいよ！」@/C@", 1)
                ENDIF
                IF TALENT:CHARA_ID:体格 < 1
                    PRINTW
                    PRINTFORML 酩酊感が増していく
                    PRINTFORML 視界が揺れながらどこまでが自分なのかを完全に見失ってしまう
                    PRINTW
                    PRINTFORML そして、唐突にそれは治まった
                    PRINTFORML 同時に%ANAME(CHARA_ID)%は自分の視界が高くなった違和感を覚える……
                    PRINTW
                    TALENT:CHARA_ID:体格 += 1
                    CALL SET_BODYSIZE(CHARA_ID)
                    CALLF TAG_PRINT(@"%ANAME(CHARA_ID)%の体格が@C:{カラー_ピンク}@%TOSTR_BODYSIZE(TALENT:CHARA_ID:体格)%@/C@になった！", 1)
                    PRINTW
                    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「またね、おいしいお菓子を作れる、かっこいい%S_PERSON%！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_黄}@「また一緒にお菓子を作ろうね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「ばいばーい！」@/C@", 1)
                    PRINTW
                    PRINTFORML 大きくなった自分の身体に戸惑う%ANAME(CHARA_ID)%を尻目に、子ども達は片付けを進めていく
                    PRINTFORML そうして最後まで急いだ様子で、残りのお菓子を持って森の奥へと走っていった
                    PRINTW
                    PRINTFORML あとにはかすかな甘い残り香と、変化した%ANAME(CHARA_ID)%だけが残った……
                ENDIF
            CASEELSE
                PRINTFORML 派手ではないが華やかな見た目に、強すぎない甘味と濁りのない後味
                PRINTFORML 良くも悪くも癖のない仕上がりだ
                SIF QST_PARTYNUM > 1
                    PRINTFORML 仲間達とも分け合って、%ANAME(CHARA_ID)%は受け取ったお菓子を食べ終えた
                PRINTW
                CALLF TAG_PRINT(@"@C:{カラー_シアン}@「これがヒトのお菓子なんだね！　悪戯っぽくない、おいしいパンケーキ！」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_黄}@「新鮮なマフィン！　なんだか元気が出てくるね！」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「手伝ってくれてありがとう！　きっとみんな喜んでくれるよ！」@/C@", 1)
                PRINTW
                PRINTFORML 子ども達は包んだお菓子を手に、森の奥へと走っていく
                PRINTFORMW 相変わらず急いだ様子ながらも、何度も振り返ってはブンブンと手を振っていた……
                PRINTFORML 不思議なことに、お菓子を食べた%QST_LEADER_NAME()%の身体に活力が満ちてくるのが感じられる
                PRINTW
                FOR LOCAL, 0, QST_PARTYNUM
                    CHARA_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
                    CALL QST_CHANGE_HP(CHARA_ID, 2000)
                NEXT
        ENDSELECT
        PRINTW
        CALL QST_DEACTIVATE_THIS_EVENT()
    ELSEIF RESULT == 0
        PRINTFORML 木や石で作られた見慣れない調理器具を、%ANAME(CHARA_ID)%は使いこなすことができなかった……
        PRINTFORML 仕方なく、邪魔にはならない程度に調理以外の、材料を運んだりといった雑用をこなしくていく
        PRINTW
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORML …………
        PRINTW
        CALLF TAG_PRINT(@"@C:{カラー_シアン}@「ふえええ、なんとか間に合ったよー……！」@/C@", 1)
        CALLF TAG_PRINT(@"@C:{カラー_黄}@「%S_PERSON%もおつかれさま！　うん、居ないよりはマシだったよ！」@/C@", 1)
        CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「おいしくできたかな？　%S_PERSON%にもちょっとあげるから、ここで食べてみて！」@/C@", 1)
        PRINTW
        PRINTFORML 子ども達は焼き上げたクッキーやマフィンを手早く包みながら、%ANAME(CHARA_ID)%に一部を手渡してくれた
        PRINTFORML ……なぜかここですぐに食べることを期待されているようだ
        PRINTW
        PRINTFORML 子ども達の圧力に負けたのか、あるいは身体が意思に反して動いているような気さえしながら……
        PRINTFORML %ANAME(CHARA_ID)%は受け取ったお菓子に手を伸ばしていた
        PRINTW
        IF EV_PATTERN == 0
            PRINTFORML ……食べ始めてすぐに、全身がふわふわと浮いているような感覚に襲われる
            PRINTFORML 酔っ払っているような、自分という存在の輪郭が曖昧になるような、奇妙な感覚だ
            PRINTW
            IF TALENT:CHARA_ID:体格 > -2
                PRINTFORML 酩酊感が増していく
                PRINTFORML 視界が揺れながらどこまでが自分なのかを完全に見失ってしまう
                PRINTW
                PRINTFORML そして、唐突にそれは治まった
                PRINTFORML 同時に%ANAME(CHARA_ID)%は自分の視界が低くなった違和感を覚える……
                PRINTW
            ENDIF
            IF TALENT:CHARA_ID:体格 <= -2
                CALLF TAG_PRINT(@"@C:{カラー_シアン}@「%S_PERSON%みたいに小さな子にはピッタリの味になってるはずだよ！！」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_黄}@「あんまり役に立たなかったけど、\@IS_MALE(CHARA_ID) > 1 ? 弟 # 妹 \@みたいで可愛かったから褒めてあげる！」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「あーあ、ドライアド姉様が許してくれたらボク達のペットにしてあげるのに」@/C@", 1)
                PRINTW
                CALLF TAG_PRINT(@"@C:{カラー_シアン}@「それにボク達はいま忙しいから。かわいがってあげられなくってごめんね」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_黄}@「ドライアド姉様にいーっぱい躾けてもらうといいよ！」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「お礼にちょっと素直になれるおまじない、お菓子に籠めておいてあげたからね！」@/C@", 1)
                PRINTW
                PRINTFORML 酩酊感にふらつく%ANAME(CHARA_ID)%の頭を、子ども達は幼児を褒めるように順番に撫でていく
                PRINTFORML そうして最後まで急いだ様子で、残りのお菓子を持って森の奥へと走っていった……
                PRINTW
                PRINTFORMW %ANAME(CHARA_ID)%の小さな身体を巡る酩酊感が、汗ばむほどの火照りに変わっていく
                IF HAS_VAGINA(CHARA_ID)
                    PRINTFORML 広がった熱が、%ANAME(CHARA_ID)%の子宮を強く脈打たせる……
                    PRINTFORML 奇妙なほど大量の愛液が溢れて、こそばゆい感触が太ももを滑り落ちていく……
                ELSE
                    PRINTFORML 広がった熱が、知らず勃起していた%ANAME(CHARA_ID)%のペニスを強く脈打たせる……
                    PRINTFORML 奇妙なほど大量の我慢汁が鈴口から溢れて、止まらなくなっているのを感じる……
                ENDIF
                PRINTW
                CALL COLOR_PRINTW(@"―――― %ANAME(CHARA_ID)%は発情してしまった……！", カラー_ピンク)
                TCVAR:CHARA_ID:媚薬 += 1
                PRINTL
            ELSEIF TALENT:CHARA_ID:体格 <= -1
                CALLF TAG_PRINT(@"@C:{カラー_シアン}@「どう？　おいしいでしょ？　ヒトだったらみんな嬉しいよね、子どもになれるお菓子なんて！」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_黄}@「ボクの思った通りだね！　ボク達より小さくなった%S_PERSON%、すっごくかわいい！」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「時間があったらボク達の\@IS_MALE(CHARA_ID) > 1 ? 弟 # 妹 \@ペットにしてあげるのに！」@/C@", 1)
            ELSEIF TALENT:CHARA_ID:体格 <= 2
                CALLF TAG_PRINT(@"@C:{カラー_シアン}@「どうしたの、そんな顔して？　なーんにもおかしなことなんてないよ？」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_黄}@「お手伝いしてくれたお礼に、ボク達も%S_PERSON%をお手伝いしてあげただけ」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「料理が下手でもみんなにかわいがって貰える、\@IS_MALE(CHARA_ID) > 1 ? 弟 # 妹 \@ペットに近付けるようにね！」@/C@", 1)
            ELSE
                CALLF TAG_PRINT(@"@C:{カラー_シアン}@「どうかな……効き目あるのかな？　%S_PERSON%ってばあんまり身体が大きすぎるんだもん」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_黄}@「ヒトってこんなに大きかったんだっけ……あ、でも効果はあるみたいだね、良かったぁ」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「……でもまだすっごく大きいね？　ごめんね、残りのお菓子はもうあげられないから、また来て！」@/C@", 1)
            ENDIF
            IF TALENT:CHARA_ID:体格 > -2
                PRINTW
                TALENT:CHARA_ID:体格 -= 1
                CALL SET_BODYSIZE(CHARA_ID)
                CALLF TAG_PRINT(@"%ANAME(CHARA_ID)%の体格が@C:{カラー_ピンク}@%TOSTR_BODYSIZE(TALENT:CHARA_ID:体格)%@/C@になった！", 1)
                PRINTW
                CALLF TAG_PRINT(@"@C:{カラー_シアン}@「またね、料理が下手だけど一生懸命な%S_PERSON%！」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_黄}@「また一緒にお菓子を作ってあげる！」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「ばいばーい！」@/C@", 1)
                PRINTW
                PRINTFORML 小さくなってしまった自分の身体に戸惑う%ANAME(CHARA_ID)%を尻目に、子ども達は片付けを進めていく
                PRINTFORML そうして最後まで急いだ様子で、残りのお菓子を持って森の奥へと走っていった
                PRINTW
                PRINTFORML あとにはかすかな甘い残り香と、変化した%ANAME(CHARA_ID)%だけが残った……
            ENDIF
        ELSE
            PRINTFORML 不揃いに崩れた見た目をしているうえにパサパサとした食感だが、味はそう悪くはないようだ
            PRINTW
            CALLF TAG_PRINT(@"@C:{カラー_シアン}@「急いだから形は悪くなっちゃったね……でもこれはこれでいいかな？」@/C@", 1)
            CALLF TAG_PRINT(@"@C:{カラー_黄}@「手伝ってくれた%S_PERSON%の気持ちは嬉しいよ、ありがとう！」@/C@", 1)
            CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「変な形のお菓子だけど、きっとみんな笑ってくれると思う！」@/C@", 1)
            PRINTW
            PRINTFORML 子ども達は包んだお菓子を手に、相変わらず急いだ様子で森の奥へと走っていった……
        ENDIF
        PRINTW
        CALL QST_DEACTIVATE_THIS_EVENT()
    ELSEIF RESULT == -1
        CALLF TAG_PRINT(@"@C:{カラー_シアン}@「なんで！？　なんでいま手伝ってくれる感じ、ちょっと出したの！？」@/C@", 1)
        CALLF TAG_PRINT(@"@C:{カラー_黄}@「いじわるいじわるいーじーわーるー！」@/C@", 1)
        CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「こんなことしてる場合じゃないよぉ！」@/C@", 1)
        PRINTW
        PRINTFORML 子ども達は%QST_LEADER_NAME()%の返事に泣きながら、あたふたと調理場へ戻っていった……
        PRINTW
    ENDIF
ELSE
    CALLF TAG_PRINT(@"@C:{カラー_シアン}@「うわーん！　なんでさー！」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_黄}@「ヒトなのに料理もできないの！？」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_オレンジ}@「もうダメー！　間に合わないよー！」@/C@", 1)
    PRINTW
    PRINTFORML 子ども達は%QST_LEADER_NAME()%の返事に泣きながら、あたふたと調理場へ戻っていった……
    PRINTW
ENDIF

;-------------------------------------------------
;EV11 妖精庭園
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_40_EVENT_11
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "下草の広場"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_40_EVENT_11
#DIM CONST EVENT_ID = 11
#DIM TARGET_ID
#DIM EV_PATTERN

CALL QST_GET_EVENT_FLAG(EVENT_ID)
IF RESULT == 0
    TARGET_ID = QST_RANDCHARA()
    EV_PATTERN = RAND:3
    SIF SKILL_GET_LEVELF(TARGET_ID, スキル_大分類_性技, "SEDUCTION") < 2 || IS_MALE(TARGET_ID) == 1
        EV_PATTERN = 2
    PRINTFORML 色鮮やかな草花に飾られた森の一画から少女の笑い声が聴こえてくる……
    PRINTW
    PRINTFORML 見れば背に蝶のような羽を生やした小柄な少女達が集まっている
    PRINTFORML 楽しそうに踊っていた彼女達だが、%QST_LEADER_NAME()%の視線に気付いてこちらへ飛んできた
    PRINTW
    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「へえ、珍しいなあ。ここにヒトが来るなんて」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「きっとお薬の材料を探しに来たんだね」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「待って待って！　ボク達はキミが探している姉様の眷属じゃないよ！」@/C@", 1)
    PRINTW
    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「ドライアド姉様のお許しを貰ってこの森に住んでる、ただの妖精だよ」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「ヒトにはフェアリーって言ったほうがわかりやすいかな？」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ねえねえそれより、ボク達と踊らない？　きっと楽しいよ！」@/C@", 1)
    PRINTW
    PRINTFORML 人懐っこい少女達は%ANAME(TARGET_ID)%を取り囲んではしゃぎ始めた
    CALL QST_SET_EVENT_FLAG(EVENT_ID, 1)
ELSE
    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「あっ、ヒトだ！　戻ってきたの？」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「やっぱりボク達と踊りたいんだよね？」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「上手に踊れたら褒めてあげるよ！」@/C@", 1)
    PRINTW
    PRINTFORML 人懐っこい少女達は再び%ANAME(TARGET_ID)%を取り囲んではしゃぎ始めた
ENDIF

SELECTCASE EV_PATTERN
    CASE 0
        CALLF TAG_PRINT(@"羽が生えている以外は@C:{カラー_ピンク}@豊満な胸@/C@が目立つ、どこか蠱惑的な少女達だ", 1)
    CASE 1
        CALLF TAG_PRINT(@"羽が生えている以外は@C:{カラー_ピンク}@豊満なお尻@/C@が目立つ、どこか蠱惑的な少女達だ", 1)
    CASEELSE
        PRINTFORML 羽が生えている以外は特に目立った点もない、屈託のない少女達だ
ENDSELECT
PRINTW
PRINTFORML どうやらフェアリー達は%ANAME(TARGET_ID)%と踊りたがっているようだ
PRINTW
CALL PRINT_TITLE("フェアリーサークル", "エロイベント")
WAIT
CALL QST_PARTY_ROLL("歌唱", 350, 1, 3, , TARGET_ID)

IF RESULT == 1
    PRINTFORMW %ANAME(TARGET_ID)%は少女達に合わせてステップを踏みはじめた
    PRINTFORML 彼女達のテンポは早く、ときに羽ばたいて飛び上がり、縦に横にくるくると舞い踊る
    PRINTFORML しかし、%ANAME(TARGET_ID)%も負けてはいない
    PRINTFORMW 宙へ飛ばずとも軽やかに跳ね、ときにふわふわと浮くかのようにゆったりと
    PRINTFORML いつのまにか少女達は%ANAME(TARGET_ID)%の踊りから目が離せなくなっているようだ……
    PRINTW
    PRINTFORML やがて踊りが一段落して%ANAME(TARGET_ID)%の周りに集まった少女達は、キラキラと目を輝かせている
    PRINTW
    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「すごい！　すごいすごい！　こんなにステキに踊れるヒトは初めて！」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「悪戯しようと思ってたけど、ボク達の負けだよ！」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ステキな踊りのお礼をあげる！」@/C@", 1)
    PRINTW
    SELECTCASE EV_PATTERN
        CASE 0
            CALLF TAG_PRINT(@"@C:{カラー_ピンク}@豊満な胸@/C@が目立つ少女達は、３種類のお礼を提案してきた", 1)
            PRINTW
            CALL ASK_MULTI("胸を大きくしたい", "胸を小さくしたい", "宝が欲しい(名誉点+10)", "何もいらない")
        CASE 1
            CALLF TAG_PRINT(@"@C:{カラー_ピンク}@豊満なお尻@/C@が目立つ少女達は、３種類のお礼を提案してきた", 1)
            PRINTW
            CALL ASK_MULTI("お尻を大きくしたい", "お尻を小さくしたい", "宝が欲しい(名誉点+10)", "何もいらない")
        CASEELSE
            PRINTFORML 屈託のない少女達は、小さな手のひらを開いて何かを差し出してきた
            PRINTW
            CALL ASK_MULTI( , , "受け取る(名誉点+10)", "受け取らない")
    ENDSELECT
    PRINTL
    IF RESULT == 0
        PRINTFORML 無意識か、気の迷いか、確固たる意思を持ってのことか……
        PRINTFORML とにかく%ANAME(TARGET_ID)%の心にその願いが浮かんだ瞬間にはもう変化は始まっていた
        SELECTCASE EV_PATTERN
            CASE 0
                SIF TALENT:TARGET_ID:バストサイズ >= 4
                    PRINTFORML ……ように思えたが
                PRINTW
                IF IS_MALE(TARGET_ID, 1) == 1 && TALENT:TARGET_ID:バストサイズ < 4
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「キミ、おとこのこの癖におっぱい大きくしたいんだ？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「ボク達は少しだけ心を読めるから、隠したってわかるんだよ？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「もう取り消せないよ！　女の子よりずっとかわいいおっぱいにしてあげる！」@/C@", 1)
                    PRINTW
                ENDIF
                IF TALENT:TARGET_ID:バストサイズ >= 4
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「そんなに大きなおっぱいなのに！？　まだ大きくするの！？　無茶じゃない！？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「もう普通の牛さんより大きいのに、よくそんなおっぱいでステキな踊りができるよね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「欲張りな牝牛さん……ごめんね、それ以上はボク達でも大きくしてあげられない！　無理！」@/C@", 1)
                ELSEIF TALENT:TARGET_ID:バストサイズ >= 2
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「もう頭より大きいんじゃないの？　まだ足りないの？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「それ以上大きくなったら、ステキな踊りもできなくなっちゃわない？　キミなら大丈夫かな？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ヒトなんてやめて、立派な牝牛さんになるんだね！　わかった、応援するね！」@/C@", 1)
                ELSEIF TALENT:TARGET_ID:バストサイズ >= 0
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「そのままでもちゃんと大きいのに、ヒトはすごく大きいのが好きだよね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「好きなオスのためかな？　それともキミのためかな？　踊るときに揺れちゃうようになるかもね」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ステキな踊りを見せてくれたキミの願いだもの、えっちな身体になりたいなら手伝うよ！」@/C@", 1)
                ELSEIF TALENT:TARGET_ID:バストサイズ == -1
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「ちょーっと小さいもんね。あはは、でもかわいいおっぱいだと思うんだけどなー、ボク」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「魅力的なヒトの牝になりたいんだね。大丈夫、ボク達に任せて！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「足りなかったらまたボク達と踊りに来てね！　おっぱいが小さくてもキミはステキだもの！」@/C@", 1)
                ELSE
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「……そうだよね、そのおっぱいは大きくしたいよね」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「おっぱいはないよね、胸だよね。まだ胸しかないよね、そこには」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「大丈夫！　柔らかくてステキなおっぱいを、ステキな踊りのキミにあげる！」@/C@", 1)
                ENDIF
                IF TALENT:TARGET_ID:バストサイズ < 4
                    PRINTW
                    TALENT:TARGET_ID:バストサイズ += 1
                    CALL SET_BUSTSIZE(TARGET_ID, TALENT:TARGET_ID:バストサイズ)
                    CALLF TAG_PRINT(@"%ANAME(TARGET_ID)%は@C:{カラー_ピンク}@%TOSTR_BUSTSIZE(TALENT:TARGET_ID:バストサイズ)%@/C@になった！", 1)
                ENDIF
            CASE 1
                SIF TALENT:TARGET_ID:ヒップサイズ >= 2
                    PRINTFORML ……ように思えたが
                PRINTW
                IF TALENT:TARGET_ID:ヒップサイズ >= 2
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「もうキミ、すっごくお尻が大きいよね？　それ以上は無理じゃないかな……」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「ステキな踊りでも音がしそうなくらい揺れてたもの、その大きさで充分だよ！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ボク達じゃそれ以上は大きくしてあげられないよ、ごめんね！」@/C@", 1)
                ELSEIF TALENT:TARGET_ID:ヒップサイズ >= 0
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「ちゃんと大きなお尻なのに、まーだ大きくしたいんだね？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「いっぱいえっちな身体になりたいんだ？　ふふ、えっちなヒトの牝なんだね、キミ」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「今度会ったときに、キミが大きくなったお尻でどんなステキな踊りを見せてくれるか、楽しみにしてるね！」@/C@", 1)
                ELSEIF TALENT:TARGET_ID:ヒップサイズ == -1
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「うーん、ちょっと物足りないお尻だもんね」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「ヒトのオスはお尻を揉みたがるらしいもの、魅力的なお尻にならないとね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ステキな踊りのキミをステキなお尻にしてあげる！」@/C@", 1)
                ELSE
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「……お尻がこんなにぺたんこなことってある？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「大丈夫？　最近、何か食べた？　ヒトの街で食べ物がなくなったりしてない？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ステキな踊りのお礼にお尻は大きくしてあげるけど、ちゃんとご飯もいっぱい食べるんだよ！」@/C@", 1)
                ENDIF
                IF TALENT:TARGET_ID:ヒップサイズ < 2
                    PRINTW
                    TALENT:TARGET_ID:ヒップサイズ += 1
                    CALL SET_HIPSIZE(TARGET_ID, TALENT:TARGET_ID:ヒップサイズ)
                    CALLF TAG_PRINT(@"%ANAME(TARGET_ID)%は@C:{カラー_ピンク}@%TOSTR_HIPSIZE(TALENT:TARGET_ID:ヒップサイズ)%@/C@になった！", 1)
                ENDIF
            CASEELSE
        ENDSELECT
        PRINTW
    ELSEIF RESULT == 1
        PRINTFORML 無意識か、気の迷いか、確固たる意思を持ってのことか……
        PRINTFORML とにかく%ANAME(TARGET_ID)%の心にその願いが浮かんだ瞬間にはもう変化は始まっていた
        SELECTCASE EV_PATTERN
            CASE 0
                SIF TALENT:TARGET_ID:バストサイズ <= -2
                    PRINTFORML ……ように思えたが
                PRINTW
                IF TALENT:TARGET_ID:バストサイズ <= -2
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「小さく……え？　小さく？　何を？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「小さくする胸なんてキミにはないじゃないか、しっかりして！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「キミがどういうつもりでそう願ったのかわからないけど……ないものはなくせないよ、ごめんね！」@/C@", 1)
                ELSE
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「ええー、小さくしちゃうの？　なんだかもったいないなぁ」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「ヒトにはヒトの好みがあるもんね。残念だけど、ステキな踊りを見せてくれたキミの願いだもの」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「いつもはこんなことしないんだけど、キミには特別だよ！」@/C@", 1)
                ENDIF
                IF TALENT:TARGET_ID:バストサイズ > -2
                    PRINTW
                    TALENT:TARGET_ID:バストサイズ -= 1
                    CALL SET_BUSTSIZE(TARGET_ID, TALENT:TARGET_ID:バストサイズ)
                    CALLF TAG_PRINT(@"%ANAME(TARGET_ID)%は@C:{カラー_ピンク}@%TOSTR_BUSTSIZE(TALENT:TARGET_ID:バストサイズ)%@/C@になった！", 1)
                ENDIF
            CASE 1
                SIF TALENT:TARGET_ID:ヒップサイズ <= -2
                    PRINTFORML ……ように思えたが
                PRINTW
                IF TALENT:TARGET_ID:ヒップサイズ <= -2
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「んんん～？　それ以上小さくしたらお尻がなくなっちゃわない……？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「そんなに痩せたいの？　ヒトはそこまでダイエットに命を賭けるものなの……？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ボ、ボク達にはそれ以上お尻を小さくするのは無理だよ、ごめんね。……元気出して！　ご飯食べて！」@/C@", 1)
                ELSE
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「小さくしたいんだぁ……ヒトにはお尻が小さいのが好みなオスも居るのかな？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「ホントはボク達、ヒトの牝を下品な身体にする悪戯をするのが好きなんだけどね」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ステキに踊れるキミの願いだものね、特別だよ！」@/C@", 1)
                ENDIF
                IF TALENT:TARGET_ID:ヒップサイズ > -2
                    PRINTW
                    TALENT:TARGET_ID:ヒップサイズ -= 1
                    CALL SET_HIPSIZE(TARGET_ID, TALENT:TARGET_ID:ヒップサイズ)
                    CALLF TAG_PRINT(@"%ANAME(TARGET_ID)%は@C:{カラー_ピンク}@%TOSTR_HIPSIZE(TALENT:TARGET_ID:ヒップサイズ)%@/C@になった！", 1)
                ENDIF
            CASEELSE
        ENDSELECT
        PRINTW
    ELSEIF RESULT == 2
        CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「ずっと前にどこかで拾った、珍しい形のもの。ボク達の宝物だよ！」@/C@", 1)
        CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「もったいないけど、ステキな踊りができるキミとボク達は友達だからね！」@/C@", 1)
        CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「だからまた来てね！　一緒に踊ろうね！」@/C@", 1)
        PRINTW
        PRINTFORML 古い聖印のようだ
        PRINTFORML 価値はないが、教会に寄進すれば%QST_LEADER_NAME()%の名誉となるだろう
        PRINTW
        CALL COLOR_PRINTW(@"朽ちた聖印（10名誉点相当）を手に入れた", カラー_注意)
        PRINTL
        QST_PRESTIGE_POINT += 10
    ELSE
        CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「……なんにもいらないの？　ヒトなのに、なんにも欲しがらないの？」@/C@", 1)
        CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「キミってすごーく変なヒトだね！　だけどキミのこと気に入っちゃった！」@/C@", 1)
        CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ステキな踊りのヒト、キミが歩く道がステキでありますように！」@/C@", 1)
        PRINTW
    ENDIF
    PRINTFORMW 突然、強い風に揺れる森のざわめきが、少女達のはしゃぐ声をかき消した
    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORML …………
    PRINTW
    PRINTFORML 突風に気を取られた%QST_LEADER_NAME()%が視線を戻したときには、少女達の姿はなかった
    PRINTFORML まるで幻だったかのように辺りは静まり返っている……
    PRINTW
    CALL QST_DEACTIVATE_THIS_EVENT()
ELSEIF RESULT == 0
    PRINTFORMW %ANAME(TARGET_ID)%は少女達に合わせてステップを踏みはじめた
    PRINTFORML しかし、早いテンポに惑わされ、ときに羽ばたいて宙へ舞い上がる少女達に翻弄されるばかり
    PRINTFORML 戸惑いながらでたらめに踊る%ANAME(TARGET_ID)%の様子は、華麗さからはかけ離れてしまっていた……
    PRINTW
    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「ほらほら、もっと早くなるよ」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「もっとボク達と同じように踊って」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「もっとボク達と同じになって」@/C@", 1)
    PRINTL
    PRINTFORMW 少女達の笑い声がくるくると%ANAME(TARGET_ID)%の周りで木霊する
    PRINTFORML そうしていると、%ANAME(TARGET_ID)%の身体が熱を持ち、ムズムズと疼いてきた……
    PRINTW
    SELECTCASE EV_PATTERN
        CASE 0
            IF TALENT:TARGET_ID:バストサイズ >= 4
                CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「クスクス……それにしても、よくそんなに大きなおっぱいでちゃんと踊れると思ったね？」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「牝牛さんの踊り、面白かったよ。モーモーって鳴いたらもっと良かったんじゃないかな？」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「バカみたいにでっかいおっぱい揺らすのを見て欲しかったんだね、発情期の変態牝牛さん！」@/C@", 1)
                PRINTW
                CALLF TAG_PRINT(@"%ANAME(TARGET_ID)%の@C:{カラー_ピンク}@%TOSTR_BUSTSIZE(TALENT:TARGET_ID:バストサイズ)%@/C@の奥から湧き上がった火照りが全身に広がっていく", 1)
                IF HAS_VAGINA(TARGET_ID)
                    PRINTFORML 広がった熱が、%ANAME(TARGET_ID)%の子宮を強く脈打たせる……
                    PRINTFORML 奇妙なほど大量の愛液が溢れて、こそばゆい感触が太ももを滑り落ちていく……
                ELSE
                    PRINTFORML 広がった熱が、知らず勃起していた%ANAME(TARGET_ID)%のペニスを強く脈打たせる……
                    PRINTFORML 奇妙なほど大量の我慢汁が鈴口から溢れて、止まらなくなっているのを感じる……
                ENDIF
                PRINTW
                CALL COLOR_PRINTW(@"―――― %ANAME(TARGET_ID)%は発情してしまった……！", カラー_ピンク)
                TCVAR:TARGET_ID:媚薬 += 1
                PRINTL
            ELSE
                PRINTFORML 奇妙な疼きは胸の表面へと集まってから、奥のほうへと染み込んで、脈打つように強く、強くなる
                PRINTFORML そして自分の身体を見下ろした%ANAME(TARGET_ID)%の目の前で、はっきりと大きく、胸が膨らんでいく……！
                PRINTW
                IF IS_MALE(TARGET_ID, 1) == 1
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「あれえ、キミってもしかしておとこのこだったのかな？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「ボク達はちょっとだけ心に触れられるからわかったけど、あは、遅かったみたいだね」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「もう止まらないけど、いいよね！　だってキミはオスより牝のほうが似合うんだもの！」@/C@", 1)
                    PRINTW
                ENDIF
                TALENT:TARGET_ID:バストサイズ += 1
                CALL SET_BUSTSIZE(TARGET_ID, TALENT:TARGET_ID:バストサイズ)
                CALLF TAG_PRINT(@"%ANAME(TARGET_ID)%は@C:{カラー_ピンク}@%TOSTR_BUSTSIZE(TALENT:TARGET_ID:バストサイズ)%@/C@になってしまった！", 1)
                PRINTW
                IF TALENT:TARGET_ID:バストサイズ >= 4
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「あははは、すっごい大きさ！　そんなのじゃ、もうヒトの暮らしは無理じゃないの？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「牝牛さんらしく誰かの家畜にして貰ったら？　そんなにえっちな身体だもの！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「そのでっかいおっぱいでつよーいオスに媚びて、飼われちゃうのがキミにはピッタリだよ！」@/C@", 1)
                ELSEIF TALENT:TARGET_ID:バストサイズ >= 2
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「あはは、とっても大きくなっちゃったね。頭よりおっぱいが大きな牝牛さん！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「そんなおっぱいしてたら、もうみんな、キミを見ても交尾のことしか考えなくなっちゃうね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「モーモーって鳴いて、いっぱいオス牛さんに交尾して貰うんだよ！」@/C@", 1)
                ELSEIF TALENT:TARGET_ID:バストサイズ >= 0
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「うん、ステキな形のおっぱいになってきたね！　キミにピッタリ！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「あんなにえっちで恥ずかしい踊りができるキミだものね。えっちな身体にならなくちゃ！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「もっとキミらしい身体になりたかったら、またボク達のところに来れば踊ってあげるよ」@/C@", 1)
                ELSE
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「あんまり変わらないけど、ちょっとだけ大きくなったかな？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「自分で揉んでみたらわかるよ！　ステキなオスに揉んで貰ってもいいかもね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「気持ち良くてもっとえっちな身体になりたくなったら、またここに来てね……あはは！」@/C@", 1)
                ENDIF
                PRINTW
            ENDIF
        CASE 1
            IF TALENT:TARGET_ID:ヒップサイズ >= 2
                CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「クスクス……ずっと見てたけど、キミって本当にバカみたいにでっかいお尻してるね！」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「そんなに下品なお尻をさっきから振りたくっちゃって、発情期の牝豚さんだったのかな？」@/C@", 1)
                CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「交尾のことばっかり考えてそうで、見てるボク達のほうが恥ずかしくなっちゃった！」@/C@", 1)
                PRINTW
                CALLF TAG_PRINT(@"%ANAME(TARGET_ID)%の@C:{カラー_ピンク}@%TOSTR_HIPSIZE(TALENT:TARGET_ID:ヒップサイズ)%@/C@から湧き上がった火照りが全身に広がっていく", 1)
                IF HAS_VAGINA(TARGET_ID)
                    PRINTFORML 広がった熱が、%ANAME(TARGET_ID)%の子宮を強く脈打たせる……
                    PRINTFORML 奇妙なほど大量の愛液が溢れて、こそばゆい感触が太ももを滑り落ちていく……
                ELSE
                    PRINTFORML 広がった熱が、知らず勃起していた%ANAME(TARGET_ID)%のペニスを強く脈打たせる……
                    PRINTFORML 奇妙なほど大量の我慢汁が鈴口から溢れて、止まらなくなっているのを感じる……
                ENDIF
                PRINTW
                CALL COLOR_PRINTW(@"―――― %ANAME(TARGET_ID)%は発情してしまった……！", カラー_ピンク)
                TCVAR:TARGET_ID:媚薬 += 1
                PRINTL
            ELSE
                PRINTFORML 奇妙な疼きはお尻の表面へと集まってから、奥のほうへと染み込んで、下腹の内で脈打つように強く、強くなる
                PRINTFORML そして違和感に身悶える%ANAME(TARGET_ID)%のお尻が、はっきりと感覚だけで自覚できるほど大きく、膨らんでいく……！
                PRINTW
                TALENT:TARGET_ID:ヒップサイズ += 1
                CALL SET_HIPSIZE(TARGET_ID, TALENT:TARGET_ID:ヒップサイズ)
                CALLF TAG_PRINT(@"%ANAME(TARGET_ID)%は@C:{カラー_ピンク}@%TOSTR_HIPSIZE(TALENT:TARGET_ID:ヒップサイズ)%@/C@になってしまった！", 1)
                PRINTW
                IF TALENT:TARGET_ID:ヒップサイズ >= 2
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「うわあ……すっごい迫力のお尻になったねえ。それにすっごく下品な大きさ！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「キミにピッタリだよ！　そのお尻なら下手な踊りでも、喜んでオスが交尾してくれるかもね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「その恥ずかしいお尻を振って、つよーいオスにいーっぱい媚び媚びしちゃうといいよ！」@/C@", 1)
                ELSEIF TALENT:TARGET_ID:ヒップサイズ >= 0
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「あは、いい感じのお尻になっちゃったね。柔らかくって、オスにも喜んで貰えるんじゃない？」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「お尻が柔らかいと交尾もきっとしやすくなって、キミもきっと気持ち良くなれるよ！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「もっと下品な身体になりたかったらまたここに来て、ボク達と踊ってね！」@/C@", 1)
                ELSE
                    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「少しだけ、大きくなったかな？　うーん、でもまだまだ足りないね！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「今日はここまで！　またここに来てくれたら、キミをえっちな身体にするお手伝いをしてあげる！」@/C@", 1)
                    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ヒトは交尾が大好きなんだよね？　またボク達と踊って、もっと交尾向きの身体になろうね！」@/C@", 1)
                ENDIF
                PRINTW
            ENDIF
        CASEELSE
            IF HAS_VAGINA(TARGET_ID)
                PRINTFORML %ANAME(TARGET_ID)%の子宮が脈打っている……
                PRINTFORML 奇妙なほど大量の愛液が溢れて、こそばゆい感触が太ももを滑り落ちていく……
            ELSE
                PRINTFORML 知らず勃起していた%ANAME(TARGET_ID)%のペニスが脈打っている……
                PRINTFORML 奇妙なほど大量の我慢汁が鈴口から溢れて、止まらなくなっているのを感じる……
            ENDIF
            PRINTW
            CALL COLOR_PRINTW(@"―――― %ANAME(TARGET_ID)%は発情してしまった……！", カラー_ピンク)
            TCVAR:TARGET_ID:媚薬 += 1
            PRINTL
    ENDSELECT
    PRINTFORMW %ANAME(TARGET_ID)%が身体の異常に困惑していると、突然、強い風が森をざわめかせた
    PRINTL
    PRINTFORMW ……………………
    PRINTFORMW ………………
    PRINTFORML …………
    PRINTW
    PRINTFORML 突風に気を取られた%QST_LEADER_NAME()%が視線を戻したときには、少女達の姿はなかった
    PRINTFORML まるで幻だったかのように辺りは静まり返っている……
    PRINTW
    CALL QST_DEACTIVATE_THIS_EVENT()
ELSE
    PRINTL
    CALLF TAG_PRINT(@"@C:{カラー_パステルピンク}@「ケチケチ！」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_クリーム}@「ケチ！」@/C@", 1)
    CALLF TAG_PRINT(@"@C:{カラー_パ赤}@「ケーチ！」@/C@", 1)
    PRINTW
    PRINTFORML 少女達は%ANAME(TARGET_ID)%に舌を出して怒ると、元の場所へ駆けていった……
    PRINTW
ENDIF

;-------------------------------------------------
;EV20 花畑
;-------------------------------------------------
@QST_ADD_EVENT_QUEST_40_EVENT_20
#DIMS EVENT_TRIGGER = "EVENT_SLOT"
#DIMS EVENT_SLOT_NAME = "胡蝶の庭"
RESULTS:0 = %EVENT_TRIGGER%
RESULTS:1 = %EVENT_SLOT_NAME%

@QST_QUEST_40_EVENT_20
#DIM CONST EVENT_ID = 20
#DIM CONST 派生イベントID = 40
#DIM DYNAMIC CHARA_ID
#DIM DYNAMIC MOB_ID
#DIM EVENT_FLAG
#DIM HAS_SEDUCTION
#DIM EV_PATTERN
#DIM CHARA_MALE
#DIM CHARA_DRY
#DIM LEWD_GEM

HAS_SEDUCTION = 0

PRINTFORMW 森の隘路を抜けた%QST_LEADER_NAME()%の前に、危険な森にはそぐわない華やかな広場が現れた
PRINTFORML 色とりどりの花々が咲き乱れ、背の低いそれらはまるで豪奢な絨毯のようだ
PRINTFORML 気ままに舞い踊る蝶が飛び交っている以外は生き物の気配もない
PRINTW

;誘蛾の芳香持ちがいなければ立ち入り禁止
FOR LOCAL, 0, LIST_COUNT(_LIST_QST_PARTY)
    CHARA_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
    CALL SKILL_GET_LEVEL(CHARA_ID, スキル_大分類_性技, "SEDUCTION")
    IF RESULT >= 2
        HAS_SEDUCTION = 1
    ENDIF
NEXT

IF HAS_SEDUCTION >= 1
    PRINTFORMW %QST_LEADER_NAME()%が花畑に足を踏み入れると、途端に甘い香りが嗅覚をくすぐる
    PRINTFORML 強い芳香なのに癖になるような、どこかで嗅いだことがあるような不思議な香りだ
    PRINTFORML そのせいか、%QST_LEADER_NAME()%はここが少し休憩するにはちょうど良さそうな場所に思えてならない
    PRINTW
    PRINTFORML 消耗しているならば、小休止するのも良いだろう
    PRINTFORML 心地よい花の香りの中で、のんびりと身体を休めることができるかもしれない……
    PRINTW
    $AFTER_OBS
    CALL QST_GET_EVENT_FLAG(EVENT_ID)
    EVENT_FLAG = RESULT
    CALL ASK_MULTI_JUDGE("休憩する", 1, "よく調べる (観察判定)",EVENT_FLAG >= 1 ? 0 # 1, "立ち去る", 1)
    ;観察判定失敗で立ち去れなくなる実験的トラップ
    PRINTL
    IF RESULT == 0
        CALL FL_STOPBGM()
        PRINTFORML %QST_LEADER_NAME()%は崩れるように花々の絨毯の上へと寝転がった
        PRINTFORML 甘い香りに包まれて、意識が深い眠りへと蕩けていく……
        PRINTW
        ;パーティ全員の体力を回復
        FOR LOCAL, 0, QST_PARTYNUM
            CHARA_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
            CALL QST_CHANGE_HP(CHARA_ID, 500)
        NEXT
        PRINTW
        CALL COLOR_PRINTW(@"夢うつつの境を漂いながら、身体が熱くなるのをおぼろげに感じる……", カラー_ピンク)
        FOR LOCAL, 0, QST_PARTYNUM
            CHARA_ID = TOINT(LIST_GET(_LIST_QST_PARTY, LOCAL))
            CALL COLOR_PRINTW(@"%ANAME(CHARA_ID)%は発情してしまった……！", カラー_ピンク)
            TCVAR:CHARA_ID:媚薬 += 1
        NEXT
        PRINTL
        PRINTFORMW ……………………
        PRINTFORMW ………………
        PRINTFORML …………
        PRINTW
        CALL PRINT_TITLE("セクシャル・トランス", "エロイベント")
        CALL FL_PLAYBGM("Train_0.ogg")
        WAIT
        CALL COLOR_PRINTL(@"「眠花が騒いでいると思ったら……これは良い獲物が掛かったものだ❤」", カラー_パ緑)
        PRINTW
        PRINTFORML まどろみにたゆたう%QST_LEADER_NAME()%の耳に、どこか遠く近いところから、艷やかな女の声が聴こえてくる……
        PRINTFORML 瞼を開けば、半裸の女が覗き込んできているのが見えた
        PRINTW
        PRINTFORML 肉感的ながら腰はくびれた妖艶な美女だが、異質な緑色の肌が、彼女が人間ではないことを示している
        PRINTFORML 長い緑の髪を肢体にまとわりつかせて、申し訳程度に局部を隠してはいた
        PRINTW
        PRINTFORML %QST_LEADER_NAME()%の思考にはまだ霞が掛かっているようで、これが夢か現実かも判然としない……
        PRINTW
        CALL COLOR_PRINTL(@"「身構えなくて良いのだぞ、蕾よ」", カラー_パ緑)
        CALL COLOR_PRINTL(@"「微酔の時間は長くない。いかにワタクシとて、相手をしてやれるのはただのひとときよ」", カラー_パ緑)
        PRINTW
        PRINTFORMW 女が身振りで立ち上がるように伝えてくると、%QST_LEADER_NAME()%の身体は意識する前に動いた
        PRINTFORML ……身体の自由が効かないのか、反抗しようという意思が湧かないのか
        PRINTFORML 指示通り、操り人形のように茫洋と立ち上がった%QST_LEADER_NAME()%を見て、女が喉を鳴らして笑う
        PRINTW
        IF QST_PARTYNUM > 1
            CALL COLOR_PRINTL(@"「ククク……いいぞ、選ばせてやろう。さあ、誰がワタクシの花となりたい？」", カラー_パ緑)
            PRINTW
            PRINTFORML これを危機だと感じるならば、自己犠牲の精神から名乗り出るべきだろうか
            PRINTFORML あるいは妖艶な美女に心奪われ、後のことを考えずに一歩前に出てしまうだろうか
            PRINTFORML いずれにせよ、誰かひとりが進み出なければならないという焦燥感が%QST_LEADER_NAME()%の中で大きくなっていく……
            PRINTW
        ELSE
            PRINTFORML 何かを言い返そうとしても言葉が浮かばず、魅入られてしまったかのように足が勝手に動いてしまう……
        ENDIF
        $ONE_PETAL
        IF QST_PARTYNUM > 1
            CALL QST_SELECT_CHARA(0)
            CHARA_ID = RESULT
        ELSE
            CHARA_ID = QST_LEADER_ID()
        ENDIF
        CHARA_MALE = 0
        CHARA_DRY = 0
        SIF IS_MALE(CHARA_ID, 1)
            CHARA_MALE = 1
        SIF TALENT:CHARA_ID:性別 != 0 && TALENT:CHARA_ID:濡れやすい == 0
            CHARA_DRY = 1
        CALL SKILL_GET_LEVEL(CHARA_ID, スキル_大分類_性技, "SEDUCTION")
        IF RESULT >= 2
            PRINTFORML %ANAME(CHARA_ID)%が前に出ると、女は満足そうに身を寄せてきた
            PRINTW
            CALL COLOR_PRINTL(@"「おお、いいぞ、いいぞ❤　おまえから匂うその牝香……ワタクシの花となる才がある❤」", カラー_パ緑)
            PRINTW
            IF CHARA_MALE == 0 && CHARA_DRY == 0
                PRINTFORML 女は未だぼんやりとしている%ANAME(CHARA_ID)%を抱き寄せると、耳元で囁いてきた
                PRINTFORML そうしながら%ANAME(CHARA_ID)%の秘裂のあわいを確かめるように細い指先でなぞり、往復させてくる……
                PRINTW
                IF　TS_IS_F(CHARA_ID)
                    CALL COLOR_PRINTL(@"「おまえの立ち居振る舞い、さては……まだ牝の身体には慣れていないのではないか？」", カラー_パ緑)
                    CALL COLOR_PRINTL(@"「フフ……しかしここはもう牝の悦びを知りたがっているようだな❤」", カラー_パ緑)
                    CALL COLOR_PRINTL(@"「濃い蜜を垂れ流しにして、オスに使われることを想像して、いまも子宮が疼いているのだろう……❤」", カラー_パ緑)
                ELSE
                    CALL COLOR_PRINTL(@"「すぐにも濃い蜜を溢れさせそうな、良い牝だ❤」", カラー_パ緑)
                    CALL COLOR_PRINTL(@"「フフ……もう子宮が疼いているのではないか？　ここを強いオスに捧げたい、と❤」", カラー_パ緑)
                ENDIF
                PRINTW
                PRINTFORML 下腹越しに%ANAME(CHARA_ID)%の子宮を撫でるかのように、手のひらを当ててねっとりと這わせてきた……
                PRINTFORML くすぐったさに身を捩る%ANAME(CHARA_ID)%の秘裂は、濡れやすい体質のせいか、早くも愛液が零れそうになっている
                PRINTW
                EV_PATTERN = 2
            ELSE
                PRINTFORML 女は未だぼんやりとしている%ANAME(CHARA_ID)%を抱き寄せると、耳元で囁いてくる
                PRINTW
                CALL COLOR_PRINTL(@"「おまえはワタクシにどうされたい？　どうなりたいのだ？」", カラー_パ緑)
                CALL COLOR_PRINTL(@"「選ぶがいい、心のままに❤　おまえに与えてやる選択肢は……」", カラー_パ緑)
                PRINTW
                PRINTFORML 耳元に囁かれた選択肢の中から、%ANAME(CHARA_ID)%は……
                PRINTFORML 夢うつつの中で素直に、あるいは自分でも意識しなかった潜在的な願望を選んでしまうだろうか
                PRINTFORML それともそんな願望などあるはずもなく、最も嫌悪した選択肢に反応してしまうだろうか
                PRINTW
                $LEWD_CHOICE
                CALL ASK_MULTI_JUDGE_HIDE_DEACTIVE("女になりたい", CHARA_MALE, "淫らな身体になりたい", CHARA_DRY, "嬲られたい", 1, "女になんてなりたくない", CHARA_MALE, "淫らな身体になんてなりたくない", CHARA_DRY, "嬲られたくなんてない", 1)
                EV_PATTERN = RESULT
                PRINTL
            ENDIF
            CALL QST_SET_FLAGMAP("EVENT_20_CHARA_ID", TOSTR(CHARA_ID))
            CALL QST_SET_FLAGMAP("EVENT_20_EV_PATTERN", TOSTR(EV_PATTERN))
            IF EV_PATTERN >= 3
                CALL COLOR_PRINTL(@"「ほう……そうか、そんなに嫌か？」", カラー_パ緑)
                CALL COLOR_PRINTL(@"「この眠花の瘴気に晒されてなお拒絶するのだ、まぎれもないおまえの本心なのだろうな」", カラー_パ緑)
                PRINTW
                PRINTFORML 首を振る%ANAME(CHARA_ID)%を見て、女はどこか感心すらした様子で頷いている
                PRINTFORML そうして、何かを思いついたようにニヤリと淫靡な笑みを顔に貼り付けると……
                PRINTW
            ENDIF
            SELECTCASE EV_PATTERN
                CASE 0, 3
                    IF TALENT:CHARA_ID:性別 == 5
                        IF CFLAG:CHARA_ID:性偏差 >= 120 && TALENT:CHARA_ID:ペニスサイズ <= -2
                            CALL COLOR_PRINTL(@"「よく言った❤　ならば、ワタクシがやることはひとつだ……❤」", カラー_パ緑)
                            PRINTW
                            PRINTFORML 感極まったように、女は喜色を浮かべた
                            PRINTFORMW 男に属しながらもそうとは見えない容姿、下腹に息づく子宮、もはや異物と化したごく小さなペニス……
                            PRINTFORML %ANAME(CHARA_ID)%の身体の全てを、絡みつく女の手と視線が確かめてくる
                            PRINTW
                            CALL COLOR_PRINTL(@"「機は熟した。おまえの身の全ては牝に傾いて、もうオスの気は残っていない❤」", カラー_パ緑)
                            CALL COLOR_PRINTL(@"「唯一、ここだけを除いて……❤」", カラー_パ緑)
                            PRINTW
                            PRINTFORML 萎縮しきった%ANAME(CHARA_ID)%の幼茎が手のひらに包まれ、隠れてしまう
                            IF TALENT:CHARA_ID:Ｃ敏感 == 0 || TALENT:CHARA_ID:Ｃ鈍感 == 1 || TALENT:CHARA_ID:絶倫 == 0 || TALENT:CHARA_ID:射精しにくい == 1
                                WAIT
                                CALL COLOR_PRINTL(@"%ANAME(CHARA_ID)%のペニスが熱く疼き、精巣が脈打つのがわかる……", カラー_ピンク)
                                CALL COLOR_PRINTL(@"女の力により、一時的にペニスが敏感になり、連続射精が可能になってしまった！", カラー_ピンク)
                            ENDIF
                            PRINTW
                            CALL COLOR_PRINTL(@"「なんと卑小で情けない幼根……❤」", カラー_パ緑)
                            CALL COLOR_PRINTW(@"「いまこそおまえの身体から、このオスの名残を摘み取るときだ❤」", カラー_パ緑)
                            CALL COLOR_PRINTL(@"「覚悟しろ❤　おまえが何度気を遣っても、徹底的に搾り尽くしてやる❤」", カラー_パ緑)
                            PRINTW
                            PRINTFORML 例え%ANAME(CHARA_ID)%が女の言葉に何を感じようと、未だに意識はぼやけたまま
                            PRINTFORML 力が入らない身体では逃げ出すことはおろか、ろくな抵抗すらできそうにない……
                            PRINTW
                            CALL TS_TO_OTHERSEX(CHARA_ID, 1)
                            CALL QST_SET_FLAGMAP("EVENT_20_Ｃ敏感", TOSTR(TALENT:CHARA_ID:Ｃ敏感))
                            CALL QST_SET_FLAGMAP("EVENT_20_Ｃ鈍感", TOSTR(TALENT:CHARA_ID:Ｃ鈍感))
                            CALL QST_SET_FLAGMAP("EVENT_20_絶倫", TOSTR(TALENT:CHARA_ID:絶倫))
                            CALL QST_SET_FLAGMAP("EVENT_20_射精しにくい", TOSTR(TALENT:CHARA_ID:射精しにくい))
                            TALENT:CHARA_ID:Ｃ敏感 = 1
                            TALENT:CHARA_ID:Ｃ鈍感 = 0
                            TALENT:CHARA_ID:絶倫 = 1
                            TALENT:CHARA_ID:射精しにくい = 0
                            CALL QST_QUEST40_CREATE_UNIQUE_調教初期設定(18, 0, CHARA_ID)
                            CALL QST_QUEST40_CREATE_UNIQUE_ドライアド(4)
                            CALL QST_ENQUEUE_TRAIN_EXIT_EVENT(派生イベントID)
                        ELSE
                            CALL COLOR_PRINTL(@"「おまえがそう言うのならば、すぐにでも始めてやりたいところだ❤」", カラー_パ緑)
                            CALL COLOR_PRINTL(@"「……が、大事を成すには下準備というものが要る。それがまだ不足している」", カラー_パ緑)
                            PRINTW
                            PRINTFORML 女はねっとりした視線を%ANAME(CHARA_ID)%の肢体に這わせてくる
                            PRINTW
                            IF TALENT:CHARA_ID:ペニスサイズ > -2
                                CALL COLOR_PRINTL(@"「根を絶やすにはまだ大きい」", カラー_パ緑)
                                CALL COLOR_PRINTW(@"「そうだな、ヒトの言葉で表すならば……」", カラー_パ緑)
                                CALL COLOR_PRINTL(@"「おまえのちんぽがもっと情けない牝ちんぽになってから、ということだ❤」", カラー_パ緑)
                                PRINTW
                                CALL COLOR_PRINTW(@"「あとは……ふむ」", カラー_パ緑)
                            ENDIF
                            IF CFLAG:CHARA_ID:性偏差 < 120
                                CALL COLOR_PRINTL(@"「完全なる牝に変じるとなれば、オスの気を全て抜いておかねばならん」", カラー_パ緑)
                                CALL COLOR_PRINTL(@"「我が森をさまよっていれば、じきにオスの気は抜けていくだろう」", カラー_パ緑)
                            ELSE
                                CALL COLOR_PRINTL(@"「オスの気は完全に抜けているな。いいぞ❤　いいぞ❤」", カラー_パ緑)
                                CALL COLOR_PRINTL(@"「しかしそうであればとっくに牝ちんぽになっているはずだが……しぶとい肉根だ」", カラー_パ緑)
                            ENDIF
                            PRINTW
                            CALL COLOR_PRINTW(@"%ANAME(CHARA_ID)%が完全な女性に性転換するには、以下の条件の達成が必要", カラー_警告)
                            CALL COLOR_PRINTL(@"ペニスサイズが超短小", カラー_警告)
                            CALL COLOR_PRINTL(@"特定のイベントにより、肉体の状態を最大まで女性側へ偏らせる", カラー_警告)
                            PRINTW
                            CALL COLOR_PRINTL(@"「焦ることはない。いずれこの無様な肉根……おまえのちんぽも消してやろう❤」", カラー_パ緑)
                            PRINTW
                            GOTO LEWD_CHOICE
                        ENDIF
                    ELSEIF TALENT:CHARA_ID:性別 == 4
                        CALL COLOR_PRINTL(@"「ワタクシをその気にさせたのだ。もう後戻りはできんぞ❤」", カラー_パ緑)
                        PRINTW
                        PRINTFORML 女はふわりと%ANAME(CHARA_ID)%の背中に抱きついてくると、そのまま股間へ手を伸ばしてきた
                        PRINTFORML %ANAME(CHARA_ID)%のペニスを軽く握って、やわやわと揉みしだいてくる
                        PRINTW
                        CALL COLOR_PRINTL(@"「フフフ、安心しろ。一度で全てを変化させられるわけではない」", カラー_パ緑)
                        CALL COLOR_PRINTW(@"「今回は、これは残しておいてやろう❤　いまから造り変えるのは……」", カラー_パ緑)
                        CALL COLOR_PRINTL(@"「ここ❤　ここだ❤」", カラー_パ緑)
                        PRINTW
                        PRINTFORML 今度は%ANAME(CHARA_ID)%の下腹部へ手のひらを当てて撫で回す
                        PRINTFORML じんわりと何か得体の知れない感覚が、女の手から%ANAME(CHARA_ID)%の内側へ流れ込んでくるようだ……
                        PRINTW
                        CALL COLOR_PRINTL(@"「ここに子宮を生してやろう❤」", カラー_パ緑)
                        CALL COLOR_PRINTL(@"「オスに征服されるための、牝の器官を❤　オスに犯され孕むための子袋を❤」", カラー_パ緑)
                        PRINTW
                        PRINTFORML 愉快極まりないといった声音で女が囁く
                        PRINTW
                        CALL COLOR_PRINTL(@"「もちろん、子宮へ至るまでの膣も造ってやろう❤」", カラー_パ緑)
                        CALL COLOR_PRINTL(@"「オスの肉根を咥え込むための牝穴を、尻穴以外にもうひとつ、な❤」", カラー_パ緑)
                        PRINTW
                        PRINTFORML %ANAME(CHARA_ID)%の胸中に何がよぎろうとも、身体は未だ自由には動かせない
                        PRINTFORML 女の指が%ANAME(CHARA_ID)%の睾丸の下へ当てられた……！
                        PRINTW
                        CALL TO_FUTANARI(CHARA_ID)
                        CALL QST_QUEST40_CREATE_UNIQUE_調教初期設定(8, 0, CHARA_ID)
                        CALL QST_QUEST40_CREATE_UNIQUE_ドライアド(3)
                        CALL QST_ENQUEUE_TRAIN_EXIT_EVENT(派生イベントID)
                    ELSE
                        CALL COLOR_PRINTW(@"「ならば……と言ってやりたいところだが、おまえはまだオスの気が強過ぎる」", カラー_パ緑)
                        CALL COLOR_PRINTL(@"「オスを牝に変じさせるのは、いかにワタクシとて容易ではない」", カラー_パ緑)
                        CALL COLOR_PRINTL(@"「いまは我が森と戯れていれば、おのずとその身もオスの気を失うだろう」", カラー_パ緑)
                        PRINTW
                        CALL COLOR_PRINTL(@"%ANAME(CHARA_ID)%を女性に近付けるには、何らかの方法でまず男の娘になる必要がある", カラー_警告)
                        PRINTW
                        CALL COLOR_PRINTL(@"「おまえを牝の身に変じさせるのはいずれ、な❤」", カラー_パ緑)
                        PRINTW
                        GOTO LEWD_CHOICE
                    ENDIF
                CASE 1, 4
                    LEWD_GEM = 3 - MIN(MAX(ABL:CHARA_ID:Ｖ感, ABL:CHARA_ID:Ａ感)/5, 2)
                    LEWD_GEM *= 1 + TALENT:CHARA_ID:濡れにくい
                    ;淫堕の宝玉が基本３個必要で、Ａ感かＶ感の高い方割る５の数だけ必要数が減る、最低１
                    ;濡れにくい素質があると必要数が倍になる
                    IF HO_ITEM_STOCK:ITEM_淫堕の宝玉 >= LEWD_GEM
                        CALL COLOR_PRINTL(@"「フフ、フフフ……いいぞ、造り変えてやろう❤」", カラー_パ緑)
                        CALL COLOR_PRINTL(@"「おまえの穴の粘膜を、すぐに濡れ果ててオスの肉根を待ち侘びる、淫らな牝の粘膜に……❤」", カラー_パ緑)
                        PRINTW
                        PRINTFORML 興奮に声音を昂らせる女の後ろに、生き物のように動く蔓草がどこからともなく現れた
                        PRINTFORML 蔓草は抵抗できない%QST_LEADER_NAME()%の荷物を漁りはじめる……
                        PRINTW
                        CALL COLOR_PRINTL(@"「感じる、感じるぞ。おまえを造り変えるための触媒がそこにあるのも」", カラー_パ緑)
                        CALL COLOR_PRINTL(@"「このために用意してきたのか？　クク、おまえの望み通り、使ってやろう❤」", カラー_パ緑)
                        PRINTW
                        PRINTFORML 淫堕の宝玉を探し当てた蔓草は、女の手へそれを受け渡した
                        CALL CHANGE_ITEM_STOCK(ITEM_淫堕の宝玉, -LEWD_GEM)
                        CALL COLOR_PRINTL(@"淫堕の宝玉を{LEWD_GEM}個失った……", カラー_注意)
                        PRINTW
                        PRINTFORML 女は宝玉を握り潰すと、何かを念じるように力を込める……
                        PRINTFORML そして開いたその手の中には、小さなピンクの玉がひとつ出来上がっていた
                        PRINTW
                        CALL COLOR_PRINTL(@"「おまえに馴染ませやすく、触媒を成形しなおしてやったぞ❤」", カラー_パ緑)
                        CALL COLOR_PRINTL(@"「さあ、ワタクシの蕾よ、股を開くがいい❤」", カラー_パ緑)
                        PRINTW
                        TALENT:CHARA_ID:濡れにくい = 0
                        TALENT:CHARA_ID:濡れやすい = 1
                        PALAM:CHARA_ID:欲情 += 15000
                        PALAM:CHARA_ID:潤滑 += 50000
                        CALL QST_QUEST40_CREATE_UNIQUE_調教初期設定(8, 0, CHARA_ID)
                        CALL QST_QUEST40_CREATE_UNIQUE_ドライアド(HAS_VAGINA(CHARA_ID) + 2)
                        CALL QST_ENQUEUE_TRAIN_EXIT_EVENT(派生イベントID)
                    ELSE
                        CALL COLOR_PRINTL(@"「そうか、フフ、しかし残念だ。下準備もなく身の内を造り変えるには触媒が要る」", カラー_パ緑)
                        CALL COLOR_PRINTL(@"「淫らさと堕落を閉じ込めた何か。ヒトの世ならばそのようなもの、いくらでもあるだろう？」", カラー_パ緑)
                        PRINTW
                        PRINTFORML 女は楽しげに、しかしどこか困ったように%ANAME(CHARA_ID)%の耳へ囁く
                        PRINTW
                        CALL COLOR_PRINTL(@"「おまえ自身の穴がこなれていれば必要な触媒の量も減るだろうが、それでも僅かには必要だ」", カラー_パ緑)
                        IF TALENT:CHARA_ID:濡れにくい == 1
                            WAIT
                            CALL COLOR_PRINTL(@"「それにおまえは生来、穴の汁気も少ないようだな」", カラー_パ緑)
                            CALL COLOR_PRINTL(@"「これを反転させるとなれば、他の者の倍は触媒を使わざるを得まい」", カラー_パ緑)
                        ENDIF
                        PRINTW
                        CALL COLOR_PRINTL(@"いまの状態で%ANAME(CHARA_ID)%に素質：濡れやすいを付与するには淫堕の宝玉が{LEWD_GEM}個必要", カラー_警告)
                        PRINTW
                        CALL COLOR_PRINTL(@"「おまえを淫らに造り変えるのは次の機会に、な❤」", カラー_パ緑)
                        PRINTW
                        GOTO LEWD_CHOICE
                    ENDIF
                CASEELSE
                    CALL COLOR_PRINTL(@"「ならば、ワタクシはおまえの身をそのように使ってやろう❤」", カラー_パ緑)
                    PRINTW
                    PRINTFORMW 興奮も隠さず、女は%ANAME(CHARA_ID)%を抱き支えたまま、長い髪で隠していた自らの局部を露わにした
                    CALL COLOR_PRINTL(@"――その股間には、普通の女性には有り得ないモノが屹立している！", カラー_注意)
                    PRINTFORML 猛々しいそれの下には淫靡な蜜を垂らす秘裂も備わってはいるようだが……
                    PRINTW
                    PRINTFORML どうやら彼女は、男女両方の性器を有したふたなり女性のようだ
                    PRINTW
                    IF HAS_PENIS(CHARA_ID)
                        SELECTCASE TALENT:CHARA_ID:ペニスサイズ
                            CASE IS >= 2
                                CALL COLOR_PRINTL(@"「フフフ……どうした、驚いたか？　おまえの粗末なモノよりも大き――」", カラー_パ緑)
                                PRINTW
                                PRINTFORML 言葉の途中で何かに気付いたように、女は目を丸くして自分の股間と%ANAME(CHARA_ID)%の股間とを見比べている……
                                PRINTW
                                CALL COLOR_PRINTL(@"「……大きさが全てではないぞ、牝香芳しき蕾よ」", カラー_パ緑)
                                CALL COLOR_PRINTL(@"「ワタクシはおまえよりもあのあれ……花を愛でる技巧というものがあるのだ」", カラー_パ緑)
                                PRINTW
                            CASE 1
                                CALL COLOR_PRINTL(@"「フフフ……どうした、驚いたか？　……おまえもなかなかの肉根の持ち主だがな」", カラー_パ緑)
                                CALL COLOR_PRINTL(@"「ワタクシの根は大きさだけではない、この樹液の濃さにはおまえもすぐ虜になるだろう❤」", カラー_パ緑)
                                PRINTW
                            CASEELSE
                                CALL COLOR_PRINTL(@"「フフフ……どうした、驚いたか？　おまえにもオスの肉根はあるようだが、ふっ❤」", カラー_パ緑)
                                CALL COLOR_PRINTL(@"「そんな粗末なモノ、生えている意味もあるまい？　見よ、ワタクシの雄々しさに怯えているではないか❤」", カラー_パ緑)
                                PRINTW
                                PRINTFORML 女は巨根と言って申し分ない屹立を、%ANAME(CHARA_ID)%のモノと比較するように突き出してきた
                                PRINTFORML 彼女の腹部にまでそそり立っているふたなりペニスは血管のような凹凸も激しく、威圧感すら覚える……
                                PRINTW
                        ENDSELECT
                        IF IS_MALE(CHARA_ID, 1) && TALENT:CHARA_ID:ペニスサイズ >=1
                            PRINTFORML 指先で%ANAME(CHARA_ID)%の雄々しいモノの先端を弾きながら、女はどこか忌々しげに吐き捨てた
                            PRINTW
                            CALL COLOR_PRINTL(@"「それに……フン、こんなモノはおまえには過ぎた根よ」", カラー_パ緑)
                            CALL COLOR_PRINTL(@"「じきにワタクシの寵愛を与えて、憫然たる牝の幼根に堕としてくれる❤」", カラー_パ緑)
                            PRINTW
                        ENDIF
                        IF TALENT:CHARA_ID:性別 == 0 || TALENT:CHARA_ID:性別 == 3
                            PRINTFORML そうして腕の中の%ANAME(CHARA_ID)%の肢体を撫で回す女は、どこか残念そうでもあった
                            PRINTW
                            CALL COLOR_PRINTL(@"「それにしても、芳しさは申し分ないが……その身はまだ無粋なオスのものか」", カラー_パ緑)
                            CALL COLOR_PRINTL(@"「しかしそれも良い、おまえをこれからワタクシ好みの牝に変えてやるのも一興だ❤」", カラー_パ緑)
                            PRINTW
                        ENDIF
                    ELSE
                        CALL COLOR_PRINTL(@"「フフフ……どうした、驚いたか？　これでおまえを孕ませてやることもできるぞ❤」", カラー_パ緑)
                        CALL COLOR_PRINTL(@"「しかし呆けたおまえを犯しても無粋というもの。まずはおまえを嬲ってやろう……コレでな❤」", カラー_パ緑)
                        PRINTW
                    ENDIF
                    PRINTFORML やがて%ANAME(CHARA_ID)%の目の前に触手のようにひとりでに動く蔓草が現れた
                    PRINTFORML 幾重にも枝分かれした先端が蠢く様はまるで人の手指のようだ
                    PRINTFORML ぬるぬるとした粘液が滴るほどに全体が濡れていて、見るものの生理的嫌悪感を煽ってくる
                    PRINTW
                    CALL COLOR_PRINTL(@"「我が牝たる蕾よ、せいぜい良い声で鳴くのだぞ❤」", カラー_パ緑)
                    PRINTW
                    CALL QST_QUEST40_CREATE_UNIQUE_調教初期設定(12, 0, CHARA_ID)
                    CALL QST_QUEST40_CREATE_UNIQUE_ドライアド(IS_MALE(CHARA_ID))
                    CALL QST_QUEST40_CREATE_UNIQUE_ぬめった指蔓
                    CALL QST_ENQUEUE_TRAIN_EXIT_EVENT(派生イベントID)
            ENDSELECT
        ELSE
            PRINTFORML %ANAME(CHARA_ID)%が前に出ると、しかし女は不服そうに鼻を鳴らした
            PRINTW
            CALL COLOR_PRINTL(@"「ふん……おまえは花となるには芳しくない。戻れ、おまえには唆られん」", カラー_パ緑)
            PRINTW
            PRINTFORML 不遜な態度で吐き捨てられたにも関わらず、女に従って%ANAME(CHARA_ID)%は素直に下がっていた
            PRINTFORML ……どういうわけか彼女には逆らえそうにない
            PRINTL
            CALL COLOR_PRINTL(@"性技スキル：誘蛾の色香LV2以上が必要", カラー_警告)
            PRINTW
            GOTO ONE_PETAL
        ENDIF
        CALL QST_DEACTIVATE_THIS_EVENT()
    ELSEIF RESULT == 1
        CALL QST_PARTY_ROLL("観察", 500, 1, 2)
        CHARA_ID = RESULT:1
        IF RESULT == 1
            PRINTFORMW %ANAME(CHARA_ID)%は場違いな花畑に違和感を抱いた
            PRINTFORML 頭がぼんやりとしてくるのに、肉体は昂ぶってくるような感覚がある
            PRINTFORML ……おそらく辺りに立ち籠めた芳香の作用だろう
            PRINTW
            CALL COLOR_PRINTL(@"この花畑自体が獲物を誘き寄せるための罠なのではないだろうか……", カラー_注意)
            PRINTW
            CALL QST_SET_EVENT_FLAG(EVENT_ID, 1)
            GOTO AFTER_OBS
        ELSEIF RESULT == 0
            PRINTFORMW %ANAME(CHARA_ID)%は花畑に不審な点はないか、よく観察してみた
            PRINTFORML ……疲れのせいか思考がぼんやりとしてよくわからないが、異常はないように思える
            PRINTFORML ……安らぎを感じる芳香は、気のせいか身体に奇妙な活力も与えてくれるようだ
            PRINTW
            PRINTFORMW ……………………
            PRINTFORMW ………………
            PRINTFORML …………
            PRINTW
            PRINTFORMW ……少しの間、ぼーっとしてしまっていたようだ
            PRINTFORML ……やはり疲れているのかもしれない
            PRINTFORML ……%ANAME(CHARA_ID)%はここで休憩していくべきだと強く感じた
            PRINTW
            CALL QST_SET_EVENT_FLAG(EVENT_ID, 2)
            GOTO AFTER_OBS
        ENDIF
    ELSEIF RESULT == 2 && EVENT_FLAG == 2
        PRINTFORMW 一度は踵を返そうとするも、やはり%QST_LEADER_NAME()%はここから立ち去るべきではないと感じた
        PRINTFORML ……辺りをよく観察している間に、心地良い花の香りから離れ難くなってしまった
        PRINTFORML ……是非ともここで休憩していくべきだ
        PRINTW
        GOTO AFTER_OBS
    ENDIF
ELSE
    PRINTFORMW %QST_LEADER_NAME()%は花畑に足を踏み入れようとした
    PRINTFORML ――が、途端に周囲の樹の枝が伸びてきて前を塞いでしまった！
    PRINTW
    PRINTFORMW 驚いている間に、太い枝や蔓がさらに幾重にも張り巡らされていく……
    PRINTFORML 出来上がった枝蔓の壁は分厚く、これを破って花畑へ入るのは難しいだろう
    PRINTFORML どうやら道を塞ぐだけで%QST_LEADER_NAME()%を襲う気はないらしいが……
    PRINTW
    PRINTFORML 諦めて立ち去る以外に出来ることはなさそうだ
    PRINTW
    CALL QST_DEACTIVATE_THIS_EVENT()
ENDIF

repo_name: napo/erafl

license: unknown


code:
;-------------------------------------------------
;クエスト定義ファイル
;QUEST_41:家庭教師
;-------------------------------------------------
@QST_TITLE_QUEST_41
RESULTS '= "家庭教師"

;クエストメニュー右上段の概要欄。10行まで
@QST_SUMALLY1_QUEST_41
RESULTS:0 '= "腕利きの冒険者として、また商売人として評判がある程度知られるようになるにつれ、"
RESULTS:1 '= @"%ANAME(MASTER)%を取り巻く関係も変化が見られるようになった"
RESULTS:2 '= "具体的にはこれまで縁もゆかりもなかった中、上流階級の人々と接点が生まれたことだ"
RESULTS:4 '= "今回の依頼は商取引を通じて知り合ったとある地方貴族からの依頼である"
RESULTS:5 '= @"彼は%ANAME(MASTER)%の文武両道の経験を高く買っており、その豊富な経験を活かして"
RESULTS:6 '= "短期の間、一人娘の講師役を買って出て欲しいと考えているようだ"
RESULTS:7 '= "世間知らずな娘の見聞を広めるには適任、とのことらしい"

;クエストメニュー右下段の備考欄。難易度や条件、報酬等を記述。7行まで
@QST_SUMALLY2_QUEST_41
RESULTS:0 '= @"難易度：@C:{カラー_注意}@命の危険はない@/C@"
RESULTS:1 '= "報酬：20000ディナリ＋α"
RESULTS:2 '= "推奨パーティ人数:1人"
RESULTS:3 '= @"@C:{カラー_選択不可}@「貴族様直々のご指名とはまぁ、お前さんも上手くやったもんだ」@/C@"
RESULTS:4 '= @"@C:{カラー_選択不可}@「……しかしまぁ、くれぐれも変な気は起こしてくれるなよ？」@/C@"
RESULTS:4 '= @"@C:{カラー_選択不可}@「ギルドの評判に傷がついてはかなわんからな……」@/C@"

; ;-------------------------------------------------
; ;クエストの実行可能条件を定義
; ;3期に一度
; ;-------------------------------------------------
; @QST_AVAILABLE_QUEST_41(QUEST_ID)
; #DIM QUEST_ID
; ;前提として野盗討伐の攻略が必要
; SIF QST_SV_QUEST_FLAG:12 != 1
;     RETURN 0
; ;クエストのクールタイム。完了時に加算され、期終了時に減算される
; SIF QST_COOLTIME:QUEST_ID
;     RETURN 0
; RETURN 1

; @QST_CAN_START_QUEST_41(QUEST_ID)
; #DIM QUEST_ID
; IF LIST_COUNT(_LIST_QST_PARTY) >= 2
;     CALLF TAG_PRINT(@"@C:{カラー_注意}@一人のみ参加可能です@/C@", 1)
;     WAIT
;     RETURN 0
; ENDIF
; RETURN 1

; ;-------------------------------------------------
; ;マップデータ定義
; ;-------------------------------------------------
; @QST_SET_MAPDATA_QUEST_41(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: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: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: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:200][ROOM_PATH:][ROOM_NAME:受付][EVENT_LIST:1,3,]"
; _DIC_HO_MAPDATA:MAP_ID:13  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"
; _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:41  '= "[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: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: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:0][MODULE_SLOT:][ROOM_PATH:]"
; _DIC_HO_MAPDATA:MAP_ID:24  '= "[ROOM_ID:0][MODULE_SLOT:][ROOM_PATH:]"

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

; ;-------------------------------------------------
; ;クエスト固有の初期化処理
; ;-------------------------------------------------
; @QST_INIT_QUEST_41
; FLAG:クエスト_中断を許可 = 1

; ;-------------------------------------------------
; ;クエスト中断時の処理
; ;-------------------------------------------------
; @QST_QUEST_41_ABORT
; #DIM DYNAMIC REWARD_MONEY
; #DIM DYNAMIC REWARD_PRESTEAGE

; PRINTL
; PRINTFORMW %QST_LEADER_NAME()%は闘技場を後にした…

; QST_COOLTIME:QST_有効クエストID += 3

; ;-------------------------------------------------
; ;QST_INTRO_QUEST_n はQUEST開始前に呼ばれる
; ;クエストの導入文などを記述
; ;"DIALOGUE"型のクエストは当該関数のCALLのみ行う
; ;-------------------------------------------------
; @QST_INTRO_QUEST_41
; CALL PRINT_TITLE("アリーナ", "QUEST")
; IF !QST_SV_QUEST_FLAG:41
;     PRINTFORML 東方辺境随一の歓楽街があることで知られるここソドミアの、市街地の中心には巨大な円形の闘技場が立っている
;     PRINTFORMW 乳白色の石灰岩で建築された闘技場は、この街がかつて古帝国時代の植民市の一つであったことを物語っている
;     PRINTL
;     PRINTFORMW かつての皇帝を模した石像が並び立つ門をくぐると、観覧席がけたたましく沸くのが聞こえた
;     PRINTFORMW 帝国が滅亡し、剣闘の習慣が廃れていった後も、この街では相変わらず流血を好む市民の娯楽として愛され続けているようだ
;     PRINTL
;     PRINTFORML あなたが観覧席に立つと、アリーナの左手の門から奴隷や囚人が引き立てられて来るのが見えた
;     PRINTFORMW 皆ボロボロの粗末な衣服を身に纏い、頼りのない朽ちた剣や棒切れを持たされている
;     PRINTFORML
;     PRINTFORMW 右手の門が開くと、ずしりと腹に響く足音が鳴り響く
;     PRINTFORMW 現れたのは象ほどの体格もある獣だ。しかしその巨体以上に、特異な見た目が目を引いた
;     PRINTFORMW それは獅子と山羊、竜に似た三つの頭を持ち、目の前に集う憐れな一団を睥睨している
;     PRINTFORML
;     PRINTFORMW 「さぁさぁご覧あれ！　西門に集うは不運な奴隷に犯罪者！神に愛されぬ憐れで卑小な者たち」
;     PRINTFORMW 「彼らが奇跡的にも勝利すれば、その勇気に免じて富と自由が与えられるでしょう！」
;     PRINTFORML
;     PRINTFORMW 「しかし、しかし、父なる神の慈悲とは高く付くもの。彼らに与えられたる試練の名はキマイラ！」
;     PRINTFORMW 「南方大陸に轟くかの魔獣の恐ろしさは……言うまでもありますまい！」
;     PRINTFORML
;     PRINTFORMW 観衆は口々に奴隷や罪人を嘲り、囃し立てる。誰も彼も憐れな挑戦者が焼かれ、八つ裂きにされる様を見たがっていた
;     PRINTFORMW 一方、アリーナに立つ彼らは皆キマイラの威に圧倒され、震え立ち竦んでいる
;     PRINTL
;     PRINTFORMW しかし犬人の一人が意を決したように剣を握り締め、雄叫びを上げなかばがむしゃらにキマイラに斬り掛かった！
;     PRINTL
;     CALL CC_INIT()
;     CALL CC_ADDMOB_FROM_TABLE("ATTACKER", "ならず者", "犬人奴隷１")
;     CALL CC_ADDMOB_FROM_TABLE("ATTACKER", "ならず者", "犬人奴隷２")
;     CALL CC_ADDMOB_FROM_TABLE("ATTACKER", "ならず者", "盗賊１")
;     CALL CC_ADDMOB_FROM_TABLE("ATTACKER", "ならず者", "盗賊２")
;     CALL CC_ADDMOB_FROM_TABLE("ATTACKER", "ならず者", "脱走兵１")
;     CALL CC_ADDMOB_FROM_TABLE("ATTACKER", "ならず者", "脱走兵２")
;     CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "キマイラ・本体", "キマイラ・獅子の首『三つ首の肉挽』")
;     CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "キマイラ・山羊の首", "キマイラ・山羊の首")
;     CALL CC_ADDMOB_FROM_TABLE("DEFENDER", "キマイラ・竜の首", "キマイラ・竜の首")
;     CALL CLOSE_COMBAT()
;     PRINTL
;     PRINTFORMW 飢えたキマイラはその獰猛さを如何なく発揮した
;     PRINTFORMW 山羊の胴体から振り下ろされる巨大な蹄は、決死の抵抗を図った犬人を呆気なく、容赦なく踏み潰した
;     PRINTFORMW 飛び散る鮮血と臓物がアリーナの乾いた砂を濡らし、観衆たちは熱狂の声を上げる
;     PRINTFORML
;     PRINTFORML なけなしの士気を打ち砕かれ逃げ惑う囚人たちを竜の頭から放たれた猛炎が襲い、肉の焼ける匂いがあなたの鼻をつく
;     PRINTFORMW 後は……ただただ一方的な鏖殺であった
;     PRINTFORML
;     PRINTFORML
;     PRINTFORMW ひとしきり続いた見世物の殺戮の後もなお、闘技場は狂気的な熱狂の最中にある
;     PRINTFORML あなた達冒険者はこの狂った祭宴に闘士として参加することも出来るし、この場を後にしても良い
;     PRINTFORMW もしも勝利することができれば大金と名誉を得られるだろう
;     PRINTFORMW しかし敗北すれば……見ての通りだ。闘士としてアリーナに立つ限り、振るうにせよ振るわれるにせよ、あらゆる暴力は正当化される
;     PRINTFORML
;     PRINTFORMW ――敗北は、あるいは死よりも屈辱的な結果を生むかもしれない
; ELSE
;     PRINTFORMW %QST_LEADER_NAME()%は再びアリーナを訪れた
;     PRINTFORMW 市街の中心に立つ闘技場からは割れるような歓声と怒号、そして悲鳴が聞こえてくる…
; ENDIF
; PRINTL
; PRINTL
; CALL COLOR_PRINTW(@"このクエストは撤退可能だ。限界を感じたら[撤退]コマンドを実行して引き上げよう", カラー_注意)
; QST_SV_QUEST_FLAG:41 = 1
; CALL QST_QUEST_41_SET_ENEMY()
; CALL QST_QUEST_41_PRINT_LOG()
; ;-------------------------------------------------
; ;EV0
; ;-------------------------------------------------
; @QST_ADD_EVENT_QUEST_41_EVENT_0
; ; #region EV0
; #DIMS EVENT_TRIGGER = "ENTER_ROOM"
; #DIMS EVENT_TYPE = ""
; RESULTS:0 = %EVENT_TRIGGER%
; RESULTS:2 = %EVENT_TYPE%

; @QST_QUEST_41_EVENT_0
; ; #endregion

; ;-------------------------------------------------
; ;EV1
; ;-------------------------------------------------
; @QST_ADD_EVENT_QUEST_41_EVENT_1
; ; #region EV1
; #DIMS EVENT_TRIGGER = "EVENT_SLOT"
; #DIMS EVENT_SLOT_NAME = "受付係の女性"
; RESULTS:0 = %EVENT_TRIGGER%
; RESULTS:1 = %EVENT_SLOT_NAME%

; @QST_QUEST_41_EVENT_1
; PRINTFORMW %QST_LEADER_NAME()%はアリーナの受付に足を運んだ
; PRINTFORMW 受付では猫人族の女性が眠たげな顔をしてカウンターに頬杖をついている
; CALL QST_GET_SV_EVENT_FLAG(QST_NOWEV)
; ;初対面
; IF !RESULT
;     PRINTFORMW %QST_LEADER_NAME()%が声を掛けると引きつった笑みを浮かべて応じる
;     PRINTL
;     PRINTFORMW 「いらっしゃいませニャン♪」
;     PRINTL
;     PRINTL
;     PRINTFORMW 「……あー無理。無理だー……やっぱりこのキャラ作りは無理だぁ……」
;     PRINTL
;     PRINTFORMW 「……というわけでいらっしゃいませー。見ての通りここは闘技場の受付だよー。地獄への片道直行便だよー」
;     PRINTL
;     PRINTFORMW 「アナタ%QST_PARTYNUM > 1 ? "たち" # ""%、結構まともなナリしているけれど、もうこんなところで命を粗末にしたくなっちゃったの？」
;     PRINTFORMW 「世の中わからないもんだねー。まぁ知ったこっちゃないけどねー」
;     PRINTL
;     PRINTFORMW 猫人族の女性は始終気怠げで眠たげな態度で応対を続ける
;     PRINTL
;     PRINTFORMW 「早く殺りたくて犯りたくて仕方ないんだろうけどさ、とりあえずルールは聞いていってね。そんなに難しくないからさ」
;     PRINTL
;     PRINTFORMW 「ルールは簡単、カードを組まれた相手と金を賭けて闘って、あらゆる手段でぶちのしたりぶちのめされたりするの。それだけ」
;     PRINTFORMW 「勝てばお互いの掛け金と名誉が手に入るし、負ければどちらも失う。簡単でしょう？」
;     PRINTL
;     PRINTFORMW 「それと……試合中に殺したり殺されたりするのは勝手にやっていいけれど、降参した相手を殺すのはダメ。これは絶対に守ってね」
;     PRINTFORMW 「……まぁ無闇矢鱈に殺されちゃうとさー、こっちも興行が成立しなくなっちゃうんだよね」
;     PRINTL
;     PRINTFORMW 「殺さなければまぁ……ご自由に。ヤろうが嬲ろうがお好きにどうぞ」
;     PRINTFORMW 「安全な高みで見物してるあの悪趣味な連中を大いに喜ばせてあげてね～」
;     PRINTL
;     PRINTFORMW 「……それと、負けちゃえば……どうなるかはもちろん想像つくよね？」
;     PRINTFORMW 「まぁさっさと降参すれば死にはしないはずだからさ。どっちに転んでも場を盛り上げてね。んじゃ頑張ってー」
;     PRINTL
;     CALL PRINT_NOTICE("アリーナの試合には一日三回まで出場することが出来る。連勝すればその分報酬も増えるようだ")
;     PRINTL
;     PRINTL
;     PRINTFORMW 「あ、いい忘れてたけれど、勝てそうもない相手だなって思ったら対戦相手を変えることもできるよー。お金はもらうけど」
;     PRINTFORMW 「怖くなっちゃったら話しかけてね～」

;     CALL QST_SET_SV_EVENT_FLAG(QST_NOWEV, 1)
;     RETURN
;     ;二回目以降
; ELSE
;     CALL QST_GET_EVENT_FLAG(1)
;     IF RESULT >= 3
;         PRINTL
;         PRINTFORMW 「本日はもうお開きだよー、ほら帰った帰った。遊びたくなったらまた来てねー」
;         PRINTFORMW 猫人族の女性は大きく欠伸をし、手の甲で%QST_LEADER_NAME()%を払った
;         PRINTL
;         RETURN
;     ELSE
;         PRINTL
;         PRINTFORMW 「んあー……何か用？見ての通りすごーく忙しいんだよねー」
;         PRINTFORMW 猫人族の女性はカウンターに頬を付き、酷く気怠げな調子で応じる
;         PRINTL
;     ENDIF
; ENDIF
; PRINTL
; CALL ASK_YN("対戦相手を変更したい", "特に何も")
; IF RESULT
;     PRINTFORMW 「冷やかしかー……。冷やかしは止めてほしいにゃー」
;     RETURN
; ENDIF
; $LOTO
; PRINTFORMW 「選り好みかーいいご身分だねー」
; PRINTFORMW 「対戦相手の変更は1,000ディナリもらうよ。構わないね？」
; PRINTL
; CALL ASK_YN("支払う", "やっぱりやめる")
; IF RESULT
;     PRINTFORMW 「うんうん、お姉さんも好き嫌いは良くないと思うよー」
;     RETURN
; ENDIF
; IF MONEY < 3000
;     PRINTFORMW 「足りないにゃー。冷やかしは止めてほしいにゃー」
;     RETURN
; ENDIF
; CALL QST_CHANGE_ITEM("MONEY,-1000,")
; PRINTL
; PRINTFORMW 「はい、ガラガラポン」
; PRINTL
; CALL QST_QUEST_41_SET_ENEMY()
; CALL PRINT_NOTICE(@"次の対戦相手が%RESULTS%に変更された")
; CALL QST_QUEST_41_PRINT_LOG()
; PRINTL
; PRINTFORMW 「ご満足？」
; PRINTL
; CALL ASK_YN("もう一度くじを引く", "これでいい")
; PRINTL
; SIF !RESULT
;     GOTO LOTO
; PRINTFORMW 「それじゃあ頑張ってー」

; ; #endregion


code:
;露店の商品在庫(商品在庫を管理・セーブする必要がない場合は、ERHへの定義は控えた方が良い)
#DIMS SAVEDATA QUEST_42_DIC_SHOP_STOCK_0, 10

;スキュラクイーンのセリフ色
#DIM CONST QUEST_42_SCYLLA_QUEEN_MESSAGE_COLOR = カラー_パ青