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
|
009-2,181,56,0 script Nahrec NPC311,{
mes "[Nahrec]";
mes "\"Ah, hello! It is good to see another traveler in this town!\"";
next;
menu
"Really? Where are you from?", L_Story,
"It's good to see you too, do you happen to be able to make stuff?", L_Makestuff,
"Alright.", L_close;
L_Story:
mes "[Nahrec]";
mes "\"I came from Thermin, a town in the Kazei area.\"";
next;
mes "\"I'm an experienced weapon master helping this smithy here, but I am new in this town. I am best at smithing armor.\"";
next;
menu
"'Best'? So you can make other things?", L_Makestuff,
"Good to know.", L_close;
L_Makestuff:
mes "[Nahrec]";
mes "\"Yes, I can craft many things. In addition to plating and improving armor, I can craft smaller items made of gold and other metals.\"";
menu
"Can you make a monocle for me? I want that...classy look...", L_Monocle,
"Can you improve my Warlord Plate for me?", L_Goldenwplate,
"Can you improve my Light Platemail for me?", L_Goldenlplate,
"Can you craft Savior Pants?", L_Saviorpants,
"Do you know something about 'Mylarin Dust'?", L_Mylarin,
"Nevermind, bye!", L_close;
L_Mylarin:
if (countitem("MylarinDust") == 0) goto L_No_Mylarin;
mes "[Nahrec]";
mes "\"Mylarin dust?! Where did you get that? That's amazing!\"";
next;
mes "\"I can craft you an amazingly strong armor with that - uhm, well, I first need to set up my smithy here.\"";
next;
mes "\"Please come back, when I'm ready with that. Mylarin dust... amazing.\"";
goto L_close;
L_No_Mylarin:
mes "[Nahrec]";
mes "\"Mylarin dust!? I do indeed, but I don't suppose you have any.\"";
next;
mes "Nahrec sighs.";
mes "\"Ah well, I'm not prepared to work with Mylarin right now anyways. I suppose I should get back to setting up my forge.\"";
goto L_close;
L_Goldenwplate:
mes "[Nahrec]";
mes "\"I can plate that armor in gold if you so wish, I will need 30 gold ore and 450,000gp.\"";
if (countitem("Gold") < 30) goto L_Missing;
if (countitem("WarlordPlate") < 1) goto L_Missing;
if (Zeny < 450000) goto L_NotEnoughMoney;
getinventorylist;
if (@inventorylist_count == 100 && countitem("Gold") > 30) goto L_Full;
delitem "Gold", 30;
delitem "WarlordPlate", 1;
Zeny = Zeny - 450000;
getitem "GoldenWarlordPlate", 1;
mes "[Nahrec]";
mes "\"There you go!\"";
goto L_close;
L_Goldenlplate:
mes "[Nahrec]";
mes "\"I can plate that armor in gold if you so wish, I will need 20 gold ore and 250,000gp.\"";
if (countitem("Gold") < 20) goto L_Missing;
if (countitem("LightPlatemail") < 1) goto L_Missing;
if (Zeny < 250000) goto L_NotEnoughMoney;
getinventorylist;
if (@inventorylist_count == 100 && countitem("gold") > 20) goto L_Full;
delitem "Gold", 20;
delitem "LightPlatemail", 1;
Zeny = Zeny - 250000;
getitem "GoldenPlatemail", 1;
mes "[Nahrec]";
mes "\"There you go!\"";
goto L_close;
L_Monocle:
mes "[Nahrec]";
mes "\"Yes, I can craft a monocle. For this, I would need you to bring me a Standard Headband, 5 gold ore, and 50,000gp\"";
menu
"I have the items you need.", L_Monocle2,
"I can have those soon...", L_Beback,
"That's lame.", L_close;
L_Monocle2:
if (countitem("Gold") < 5) goto L_Missing;
if (countitem("StandardHeadband") < 1) goto L_Missing;
if (Zeny < 50000) goto L_NotEnoughMoney;
getinventorylist;
if (@inventorylist_count == 100 && countitem("Gold") > 5) goto L_Full;
delitem "Gold", 5;
delitem "StandardHeadband", 1;
Zeny = Zeny - 50000;
getitem "Monocle", 1;
mes "[Nahrec]";
mes "\"There you go!\"";
goto L_close;
L_Saviorpants:
mes "[Nahrec]";
mes "\"I can craft Savior Pants. I'll need 30 gold ore, 1 pair of cotton trousers, and 200,000gp.\"";
menu
"I have what you need.", L_Saviorpants2,
"I'll be back with those items..", L_Beback,
"That's crazy!", L_close;
L_Saviorpants2:
if (countitem("Gold") < 30 || countitem("CottonTrousers") < 1) goto L_Missing;
if (Zeny < 200000) goto L_NotEnoughMoney;
getinventorylist;
if (@inventorylist_count == 100 && countitem("Gold") > 30) goto L_Full;
delitem "Gold", 30;
delitem "CottonTrousers", 1;
Zeny = Zeny - 200000;
getitem "SaviorPants", 1;
mes "[Nahrec]";
mes "\"There you go!\"";
goto L_close;
L_Full:
mes "[Nahrec]";
mes "\"It looks like you don't have room for this item. Come back when you have more room!\"";
goto L_close;
L_Beback:
mes "[Nahrec]";
mes "\"Be back soon with the items I need!\"";
goto L_close;
L_Missing:
mes "[Nahrec]";
mes "\"It looks like you're missing some items. Please come back when you have what I need!\"";
goto L_close;
L_NotEnoughMoney:
mes "[Nahrec]";
mes "\"You don't have enough money, come back later!\"";
goto L_close;
L_close:
close;
}
|
