path: root/npc/014-4/thorn.txt

// TMW2 scripts.
// Authors:
//    Jesusalva
// Description:
//    Spring Quest, disabled during Easter
//    Sighly inspired with Soren and Demure relationship, I guess
//
//    SQuest_Spring
//      0 - Not Assigned
//      1 -

014-4,149,98,0	script	Thorn	NPC_THORN_NPC,{
    if (season() != SPRING && !$@GM_OVERRIDE)
        goto L_OutOfSeason;
    if ($EVENT$ == "Easter")
        goto L_QuestDisabled;

    .@q=getq(SQuest_Spring);
    mesn;
    mesq l("Blossom, blossom, why you do this to me...");
    if (.@q < 1)
        goto L_SpringQuest;

L_Main:
    close;

L_OutOfSeason:
    mesn;
    mesq l("Maybe on spring Blossom will look at me... For now, my wose part is withering.");
    goto L_Main;

L_QuestDisabled:
    mesn;
    mesq l("Happy Easter!");
    mesc l("The @@ quest is disabled during Easter event.", getitemlink(Wreath));
    next;
    goto L_Main;

L_SpringQuest:
    next;
    mesn;
    mesq l("Hey, you! Help me!");
    next;
    mesn;
    mesq l("My waifu Blossom has me trapped here, and she won't even look at me, because I'm part-Wose!");
    next;
    mesn;
    mesq l("But it is spring! Perhaps, if you bring me some flowers and fruits which only grow at Spring, I could impress her!");
    next;
    mesn;
    mes l("What about you bring me:");
    mes l("@@/50 @@", countitem(Rose), getitemlink(Rose));
    mes l("@@/50 @@", countitem(Tulip), getitemlink(Tulip));
    mes l("@@/50 @@", countitem(Blueberries), getitemlink(Blueberries));
    mes l("@@/10 @@", countitem(GrassSeeds), getitemlink(GrassSeeds));

    mes l("@@/80 @@", countitem(MauveHerb), getitemlink(MauveHerb));
    mes l("@@/80 @@", countitem(GambogeHerb), getitemlink(GambogeHerb));
    mes l("@@/80 @@", countitem(CobaltHerb), getitemlink(CobaltHerb));
    mes l("@@/70 @@", countitem(AlizarinHerb), getitemlink(AlizarinHerb));
    next;
    select
        l("Not now, thanks"),
        l("To be honest, I have that with me!");

    mes "";
    if (@menu == 1)
        goto L_Main;
    if (@menu == 2) {
        if (
            countitem(Rose)             < 50 ||
            countitem(Tulip)            < 50 ||
            countitem(Blueberries)      < 50 ||
            countitem(GrassSeeds)       < 10 ||
            countitem(MauveHerb)        < 80 ||
            countitem(GambogeHerb)      < 80 ||
            countitem(CobaltHerb)       < 80 ||
            countitem(AlizarinHerb)     < 70
            ) goto L_Lying;

        inventoryplace Wreath, 1;
        delitem Rose, 50;
        delitem Tulip, 50;
        delitem Blueberries, 50;
        delitem GrassSeeds, 50;
        delitem MauveHerb, 50;
        delitem GambogeHerb, 50;
        delitem CobaltHerb, 50;
        delitem AlizarinHerb, 50;
        getitem Wreath, 1;
        getexp 6500, 120;
        setq1 SQuest_Spring, 1;
        mesn;
        mesq l("Many thanks! If I let my wose side blossom, I'm sure she'll look at me!");
        next;
        mesn;
        mesq l("Here, take the reward as promised!");
        goto L_Main;
    }

    close;

L_Lying:
    mesn;
    mesq l("Please don't lie to me...") + " </3";
    goto L_Main;

OnInit:
    .sex=G_MALE;
    .distance=4;
	end;

}