summaryrefslogtreecommitdiff
path: root/npc/001-1/tinris.txt
blob: 1e23ad512ead434001b217072c6a4b1307453ea7 (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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
001-1,69,29,0	script	Tinris	NPC160,{
    @cake_exp = 50;
    @sweater_exp = 400;

    @slime_amount1 = 6;
    @slime_amount2 = 4;
    @bugleg_amount1 = 4;
    @bugleg_amount2 = 5;
    @stinger_amount1 = 3;
    @stinger_amount2 = 2;
    @ash_amount1 = 1;
    @ash_amount2 = 2;
    @cactusp_amount = 1;

    if (.@q >= 12) goto L_Done;
    if (.@q == 11) goto L_GiveGift;
    if (.@q == 9) goto L_FertilizerDone;
    if (.@q >= 7) goto L_Eomie;
    if (.@q == 6) goto L_SecondTry;
    if (.@q >= 4) goto L_FirstTryDone;
    if (.@q == 3) goto L_FirstTry;
    if (.@q == 2) goto L_Annual;

    mesn;
    mes "\"This is a magic school. I'm a student here and focus on ways to magically enhance growth of plants.";
    mes "That topic is very important in a desert area.\"";
    if (.@q != 1)
        goto L_close;
    menu
        "The farmer Anwar sent me to ask for exactly that! Can you give me something for his field?",L_Next;

L_Next:
    mesn;
    mes "\"Well... in principle yes. I can try to prepare something for him. But...\"";
    next;
    mes "\"The thing is, my girlfriend and I have our anniversary today. And the teachers won't let me leave the campus to get something for her!";
    mes "Please go to the bakery and buy a Chocolate Cake for me. She loves Chocolate Cakes.\"";
    next;
    mes "\"When I have a present for her I can focus on creating some magic fertilizer.\"";
    .@q = 2;
    goto L_close;

L_Annual: // .@q == 2
    mesn;
    mes "\"Hello, did you get the Chocolate Cake for my girlfriend? After that I can focus on creating some magic fertilizer for you.\"";
    menu
        "Fresh from the bakery!",L_FreshFrom,
        "I didn't get it yet.",L_close;

L_FreshFrom:
    if (countitem("ChocolateCake") < 1)
        goto L_NoItem;
    delitem "ChocolateCake", 1;
    getexp @cake_exp, 0;
    .@q = 3;
    mesn;
    mes "\"Oh, thank you! You saved me!";
    mes "All right, now we can start with the magic fertilizer.\"";
    next;
    goto L_FirstTry;

L_FirstTry:
    // .@q == 3
    mesn;
    mes "\"You need to bring me some ingredients.";
    mes "The ingredients are " + @slime_amount1 + " Maggot Slimes, " + @bugleg_amount1 + " Bug Legs, " + @stinger_amount1 + " Scorpion Stingers and " + @ash_amount1 + " Piles of Ash.\"";
    menu
        "I have it.",L_Continue,
        "Ok, I'll go and get it.",L_close;

L_Continue:
    if ((countitem("MaggotSlime") < @slime_amount1) || (countitem("BugLeg") < @bugleg_amount1) || (countitem("ScorpionStinger") < @stinger_amount1) || (countitem("PileOfAsh") < @ash_amount1))
        goto L_NoItem;
    delitem "MaggotSlime", @slime_amount1;
    delitem "BugLeg", @bugleg_amount1;
    delitem "ScorpionStinger", @stinger_amount1;
    delitem "PileOfAsh", @ash_amount1;
    .@q = 4;
    mes "Tinris takes the things and starts to mix them together while mumbling some invocations.";
    misceffect sfx_magic_nature;
    next;
    mesn;
    mes "\"Ok. This should do it. But I'm not sure. I'm still researching this topic.";
    mes "Here, bring this to Anwar.\"";
    mes "He gives you a bottle with the magic fertilizer. You put it away in a separate pocket, so it doesn't get mixed with your inventory.";
    goto L_close;

L_FirstTryDone: // .@q >= 4 but below 6
    mesn;
    mes "\"Bring the fertilizer to Anwar and let me know if it worked.\"";
    if (.@q != 5)
        goto L_close;
    menu
        "I did, the plants went brown and shriveled.",L_More;

L_More:
    .@q = 6;
    goto L_SecondTry;

L_SecondTry:
    // .@q == 6
    mesn;
    mes "\"Oh no! All right, we need to do another try.";
    mes "Bring me " + @slime_amount2 + " Maggot Slimes, " + @bugleg_amount2 + " Bug Legs, " + @stinger_amount2 + " Scorpion Stingers, " + @ash_amount2 + " Piles of Ash and " + @cactusp_amount + " Cactus Potion.\"";
    menu
        "Here it is.",L_HereItIs,
        "Ok, I'll go and get it.",L_close;

L_HereItIs:
    if ((countitem("MaggotSlime") < @slime_amount2) || (countitem("BugLeg") < @bugleg_amount2) || (countitem("ScorpionStinger") < @stinger_amount2) || (countitem("PileOfAsh") < @ash_amount2) || (countitem("CactusPotion") < @cactusp_amount))
        goto L_NoItem;
    delitem "MaggotSlime", @slime_amount2;
    delitem "BugLeg", @bugleg_amount2;
    delitem "ScorpionStinger", @stinger_amount2;
    delitem "PileOfAsh", @ash_amount2;
    delitem "CactusPotion", @cactusp_amount;
    .@q = 7;
    mes "Tinris takes the things and starts to mix and mumble again.";
    misceffect sfx_magic_nature;
    next;
    mes "It takes quite a while.";
    next;
    mes "He looks rather stressed while working on the mixture.";
    next;
    mes "He sighs.";
    mesn;
    mes "\"Mh, I think the mixture itself is good. But I can't get the spells right. Maybe you should ask Professor Eomie to cast it; she's a genius with nature magic.\"";
    mes "He gives you the bottle with the magic fertilizer.";
    goto L_close;

L_Eomie:
    // .@q >= 7 but below 9
    mesn;
    mes "\"I did the best I could, but it seems I'm not experienced enough to cast the spells correctly. Better ask Professor Eomie for help.\"";
    goto L_close;

L_FertilizerDone:
    // .@q == 9
    mesn;
    mes "\"I heard Eomie cast the spell? I really hope it'll work this time. Bring the magic fertilizer to Anwar now.\"";
    goto L_close;

L_GiveGift:
    // .@q == 11
    mesn;
    mes "\"Ah, did Anwar try the new fertilizer?\"";
    menu
        "Yes, it works great and he asked me to give you this Green V-Neck Sweater he made.",L_ItWorksGreat,
        "Not yet.",L_close;

L_ItWorksGreat:
    if (countitem("GreenVNeckSweater") < 1)
        goto L_NoItem;
    delitem "GreenVNeckSweater", 1;
    getexp @sweater_exp, 0;
    .@q = 12;
    mesn;
    mes "\"Hey, that's really nice. Tell him my thanks.\"";
    goto L_close;

L_Done:
    // .@q >= 12
    mesn;
    mes "\"My girlfriend was delighted with the Chocolate Cake and Professor Eomie was happy with my work on the magic fertilizer.\"";
    mes "He twinkles.";
    mesn;
    mes "\"We're a good team.\"";
    goto L_close;

L_NoItem:
    mesn;
    mes "\"You don't have it!\"";
    goto L_close;

L_close:
    @slime_amount1 = 0;
    @slime_amount2 = 0;
    @bugleg_amount1 = 0;
    @bugleg_amount2 = 0;
    @stinger_amount1 = 0;
    @stinger_amount2 = 0;
    @ash_amount1 = 0;
    @ash_amount2 = 0;
    @cactusp_amount = 0;
    close;
}