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
|
// TMW2 Script
// Author:
// Saulc
// Jesusalva
// Description:
// Part of Anwar Field quest
003-1,66,30,0 script Tinris NPC_ELF,{
.@q=getq(TulimsharQuest_AnwarField);
// Results: 6 - nothing. 7- bug feast.
// On status 7, you need to talk to Eomie.
// Then Eomie will finish stuff for you, and it's reward time.
if (.@q == 7) goto L_Success;
if (.@q == 6) goto L_Fail;
if (.@q == 4) goto L_Craft;
if (.@q == 3) goto L_Back;
if (.@q == 2) goto L_Start;
if (.@q == 1) goto L_Refuse;
// Placeholder dialog
mesn;
mesq l("We elves have greater affinity for magic than humans.");
next;
mesq l("However, our skill growth rate is much smaller than those of humans.");
next;
mesq l("In the end, elves would have quite the age to rivalize with human wizards.");
close;
// READ THE HOLY DIALOGS!!
L_Refuse:
mesn strcharinfo(0);
mesq l("Hello! Anwar sent me to get fertilizer to save Tulimshar from famine, could you help me?");
next;
mesn;
mesq l("No.");
close;
L_Start:
mesn strcharinfo(0);
mesq l("Hello, could I help you in exchanger of fertilizer?");
next;
mesn;
mesq l("I like people like you, straight to the subject.");
next;
mesn;
mesq l("The birthday of me and my girlfriend is coming up. Bring me 12 @@ and I'll make the fertilizer for you.", getitemlink(CherryCake));
setq TulimsharQuest_AnwarField, 3;
close;
L_Back:
mesn;
mesq l("So, did you brought me the cherry cakes?");
mes "";
mesn strcharinfo(0);
if (askyesno() != ASK_YES) {
close;
}
mes "";
if (countitem("CherryCake") < 12)
goto L_Lying;
delitem CherryCake, 12;
getexp 300, 10;
setq TulimsharQuest_AnwarField, 4;
mesn;
mesq l("Okay, that is very useful. However, I do need a few reagents to make it.");
next;
mesn;
mesq l("Please, come back later. I'll see whatever I can fetch for that.");
close;
L_Craft:
mesn;
mesq l("So, for the fertilizer. The thing is, all that thing is unstable.");
next;
mesn;
mesq l("This fertilizer is projected to protect the plants from plagues, bugs, scorpions and maggots, trying to don't be a plague on itself.");
next;
mesn;
mesq l("That's very, very risky. I need 3 @@ and 10 @@ to make a Potion to you, and I won't warrant it will work.", getitemlink(Plushroom), getitemlink(MaggotSlime));
next;
mesn;
mesq l("Give that to whoever needs them, and see if it works. Then come tell me the result. Do you have the reagents?");
if (askyesno() != ASK_YES)
close;
mes "";
if (countitem(Plushroom) < 3||
countitem(MaggotSlime) < 10)
goto L_Lying;
delitem Plushroom, 3;
delitem MaggotSlime, 10;
setq1 TulimsharQuest_AnwarField, 5;
mesn;
mesq l("Here it is. Come back to report the results.");
close;
L_Fail:
setq1 TulimsharQuest_AnwarField, 4;
.@q2=getq2(TulimsharQuest_AnwarField);
if (.@q2 < 10)
getexp 180-(.@q2*10), 0;
else
getexp 80, 0;
mesn;
mesq l("Well, that could fail, I said. Here is some experience.");
next;
mesn;
mesq l("Now go, and fetch the materials again. I'll make another fertilizer for you.");
close;
L_Success:
mesn;
mesq l("WHAT? The farm is plagued with insects?!");
next;
mesn;
mesq l("Quick, tell that to Eomie. She knows how to do Bug Bombs which won't harm the plants!");
close;
L_Lying:
mesn;
mesq l("Ah, so you think you can fool me?");
next;
percentheal -5, -5;
warp "Save", 0, 0;
dispbottom l("Ah... Was I warped?");
closedialog;
close;
OnInit:
.@npcId = getnpcid(0, .name$);
//setunitdata(.@npcId, UDT_HEADTOP, 2929); // TODO: This NPC is an Elf and therefore, CANNOT use NPCEyes.
setunitdata(.@npcId, UDT_HEADMIDDLE, ForestArmor);
setunitdata(.@npcId, UDT_HEADBOTTOM, CottonTrousers);
setunitdata(.@npcId, UDT_WEAPON, DeepBlackBoots); // Boots
setunitdata(.@npcId, UDT_HAIRSTYLE, 3);
setunitdata(.@npcId, UDT_HAIRCOLOR, 19);
.sex = G_MALE;
.distance = 5;
end;
}
|
