summaryrefslogtreecommitdiff
path: root/npc/014-4/thorn.txt
blob: 6a06704df0b320adabdb157342bac91ebafce240 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
// 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:
    next;
    .@q=getq(HurnscaldQuest_Thorn);
    if (.@q == 0) {
        mesn;
        mesq l("I'm actually half-wose. This means part of me is tree.");
        next;
        mesn;
        mesq l("I can walk, I'm just... Trapped here. That's why I need someone to help me to cultivate my wose part!");
        next;
        mesn;
        mesq l("Could you please bring me @@ @@ and @@ @@? I'll give you a bunch of herbs if you help me!", 12, getitemlink(Root), 35, getitemlink(Acorn));
        next;
        mesc l("Give him the materials he asked for?");
        if (askyesno() == ASK_YES) {
            inventoryplace ShadowHerb, 20, ArtichokeHerb, 20;
            if (!transcheck(Root, 12, Acorn, 35))
                close;
            getitem ShadowHerb, 20;
            getitem ArtichokeHerb, 20;
            getexp 600, 120; // Reference: Level 20
            mesn;
            mesq l("Thanks for helping me out. I know this is nothing, but please accept these herbs I've collected.");
            setq HurnscaldQuest_Thorn, 1;
            next;
        }
    }
    closeclientdialog;
    goodbye;
    end;

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("@@/55 @@", countitem(Rose), getitemlink(Rose));
    mes l("@@/55 @@", 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("@@/80 @@", 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)             < 55 ||
            countitem(Tulip)            < 55 ||
            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, 55;
        delitem Tulip, 55;
        delitem Blueberries, 50;
        delitem GrassSeeds, 10;
        delitem MauveHerb, 80;
        delitem GambogeHerb, 80;
        delitem CobaltHerb, 80;
        delitem AlizarinHerb, 80;
        getitem Wreath, 1;
        getexp (210*BaseLevel), 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;

}