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
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
|
//===== eAthena Script =======================================
//= Item Quest NPCs located in Comodo
//===== By: ==================================================
//= kobra_k88
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//= 'Cross Hat', 'Bulb Hairband', 'Striped Hairband', 'Blue Hairband' Quests.
//= 'Mine Helmet', 'Parcel Hat', 'Money Loser's Grief',
//= 'Phantom of the Opera Mask' Quests.
//===== Additional Comments: =================================
//= Fully working
//============================================================
//============================================================================================//
// Hair Ornament Girl
//============================================================================================//
// Cross Hat, Bulb Hairband, Striped Hairband, Blue Hairband
//==================================================
comodo.gat,227,158,4 script Hair Ornament Girl 700,{
mes "[Hair Ornament Girl]";
if(sex==1)mes "Oh, hi. Do you need to buy a present for a friend, your mother, or maybe your girl friend? Then get her a Hair Band! It's the best gift you can get her.";
if(sex==0)mes "Oh, hi. Do you need to buy a present for a friend, your mother, or maybe yourself? Then get a Hair Band! It's the best gift you can give, or get.";
next;
mes "[Hair Ornament Girl]";
mes "Just by bringing me a few simple items, I can make you a gorgeous Hair Band! Here, take a look at these....";
M_Menu:
next;
menu "-Crosss Hat Hairband",M_Cross, "-Bulb Hairband",M_Bulb, "-Striped Hairband",M_Striped, "-Blue Hairband",M_Blue, "-End Conversation",M_End;
M_Cross:
set @BAND$, "Cross Hat Hairband";
set @ITEMS$, " ^5555FF1 Rosary^000000 and ^5555FF500 Destroyed Armors^000000.";
if (countitem(2608)>=1 && countitem(7069)>=500) set @GETBAND, 1;
goto sL_0;
M_Bulb:
set @BAND$, "Bulb Hairband";
set @ITEMS$, "^5555FF1 Slotted Circlet^000000 and ^5555FF20 Glass Beads^000000.";
if (countitem(2233)>=1 && countitem(746)>=20) set @GETBAND, 2;
goto sL_0;
M_Striped:
set @BAND$, "Striped Hairband";
set @ITEMS$, "^5555FF1500 Worn-out Prison Uniforms^000000.";
if (countitem(1099)>=1500) set @GETBAND, 3;
goto sL_0;
M_Blue:
set @BAND$, "Blue Hairband";
set @ITEMS$, "^5555FF1 Bandana^000000, ^5555FF1 Cobaltblue Dyestuffs^000000, and ^5555FF300 Anolian Skins^000000.";
if (countitem(2211)>=1 && countitem(978)>=1 && countitem(7003)>=300) set @GETBAND, 4;
sL_0:
mes "[Hair Ornament Girl]";
mes "So you're interested in the "+@BAND$+" huh? Here are the items you'll need for the "+@BAND$+":";
mes @ITEMS$;
next;
if (@GETBAND > 0) goto sL_GetBand;
mes "[Hair Ornament Girl]";
mes "Bring me all of these items and I will be able to make you a "+@BAND$+".";
goto M_Menu;
sL_GetBand:
mes "[Hair Ornament Girl]";
mes "I see that you have enough items for a "+@BAND$+". Would you like me to make you one?";
next;
menu "Yes, I would.",sM_Yes, "No thank you.",M_End;
sM_Yes:
if (@GETBAND == 1) goto ssL_Cross;
if (@GETBAND == 2) goto ssL_Bulb;
if (@GETBAND == 3) goto ssL_Striped;
if (@GETBAND == 4) goto ssL_Blue;
ssL_Cross:
delitem 2608,1;
delitem 7069,500;
getitem 5036,1;
goto ssL_End;
ssL_Bulb:
delitem 2233,1;
delitem 746,20;
getitem 5034,1;
goto ssL_End;
ssL_Striped:
delitem 1099,1500;
getitem 5049,1;
goto ssL_End;
ssL_Blue:
delitem 2211,1;
delitem 978,1;
delitem 7003,300;
getitem 5052,1;
ssL_End:
mes "[Hair Ornament Girl]";
mes "Here is your "+@BAND$+". Thank you.";
set @GETBAND, 0;
close;
M_End:
mes "[Hair Ornament Girl]";
mes "Hope to see you again soon.";
close;
}
//===================================================================================================//
// Mari Isac
//===================================================================================================//
// 'Mine Helmet', 'Parcel Hat', 'Money Loser's Grief', 'Phantom of the Opera Mask'
//===============================================================//
comodo.gat,274,137,5 script Mari Isac 702,{
mes "[Mari Isac]";
mes "I travel all over the world and get to hear many interesting stories from the people I meet.";
mes "Sometimes they even teach me how to make special items";
next;
mes "[Mari Isac]";
mes "Would you be interested in some of the items I've learned to make?";
M_Menu:
next;
menu "Tell me about them.",M_0, "Make me one.",M_1;
M_0:
menu "-Mine Helmet",sM_Mine, "-Parcel Hat",sM_Parcel, "-Money Loser's Grief",sM_Money, "-Phantom of the Opera Mask",sM_Phantom;
sM_Mine:
mes "[Mari Isac]";
mes "I learned how to make the Mine Helmet when I traveled to the old coal mines near Geffen.";
next;
mes "[Mari Isac]";
mes "The 2 most important things a miner needs are light, and head protection.";
mes "A very inventive miner was able to create something that dealt with both issues.";
next;
mes "[Mari Isac]";
mes "He attached a light to his safety helmet and called it a Mine Helmet.";
mes "This meant that miners no longer had to worry about carrying around lamps and could work more efficiently.";
next;
mes "[Mari Isac]";
mes "Anyways, if you want me to make you a Mine Helmet you'll need to bring me these items:";
mes "^5555FF1 Safety Helmet^000000,";
mes "^5555FF1 Candle^000000,";
mes "^5555FF1 Crystal Mirror^000000,";
mes "^5555FF25 Steel^000000.";
next;
goto M_0;
sM_Parcel:
mes "[Mari Isac]";
mes "I learned how to make the Parcel Hat when I traveled to Alberta. There they have a unique way of distributing mail and goods.";
next;
mes "[Mari Isac]";
mes "Instead of using a pouch or a sack to carry items for delivery, they use a special kind of hat, called a Parcel Hat.";
mes "This hat allows the delivery personel to carry numerous items on their heads. Of course they have to have good balance to use it.";
next;
mes "[Mari Isac]";
mes "Anyways, if you want me to make you a Parcel Hat, you'll need to bring me these items.";
mes "^5555FF150 Fabric^000000,";
mes "^5555FF100 Resin^000000,";
mes "^5555FF1 Cobaltblue Dyestuffs^000000.";
next;
goto M_0;
sM_Money:
mes "[Mari Isac]";
mes "I learned how to make the Money Loser's Grief when I traveled to Morroc.";
next;
mes "[Mari Isac]";
mes "A long time ago an honest merchant got into a conflict with a crooked guild.";
mes "Unlike the dirty guild, the merchant did not scam or cheat people.";
next;
mes "[Mari Isac]";
mes "Because of this they attacked the merchants shop and took all of his goods.";
next;
mes "[Mari Isac]";
mes "The merchant was devastated by the loss of his shop.";
mes "In his sadness he used the bits and pieces that were left from his shop to create a new item.";
next;
mes "[Mari Isac]";
mes "He created the Money Loser's Grief, a symbol of his great sadness. When people see it, they can't help but feel sympathetic to the wearer.";
next;
mes "[Mari Isac]";
mes "Many merchants now wear it to help themselves get more business. Of course it is also a reminder of the honest merchants sad tale.";
next;
mes "[Mari Isac]";
mes "Anyways, if you want me to make you a Money Losers Grief, you'll need to bring me these items.";
mes "^5555FF1 Circlet with a single slott^000000,";
mes "^5555FF1 Gold^000000,";
mes "^5555FF20 Steel^000000,";
mes "^5555FF80 Feathers^000000,";
mes "^5555FF800 Sticky Mucus^000000.";
next;
goto M_0;
sM_Phantom:
mes "[Mari Isac]";
mes "I learned how to make the Phantom of the Opera Mask when I traveled to Al De Baran.";
mes "The story behind this item is that of a man's pure love........";
next;
mes "[Mari Isac]";
mes "There once was a man who was in love with a beautiful opera singer.";
mes "Unfortunately the man had a terribly disfigured face which forced to him to wear a mask.";
next;
mes "[Mari Isac]";
mes "He was ashamed of his appearance and could never bring himself to face the singer.";
mes "The man instead, watched her from a far, admiring every nuance of her beauty and grace.";
next;
mes "[Mari Isac]";
mes "He lurked in the bowles of the opera house and from time to time he would sing his sad love song.";
mes "Many people heard it and believed that there was a phantom haunting the opera house.";
next;
mes "[Mari Isac]";
mes "The singer also heard his song, and through it she was able to feel his pain and his love for her.";
mes "The two eventually met, and when they did she was able to look past his appereance and accept him for who he was.";
next;
mes "[Mari Isac]";
mes "Too this day, the tale of the masked 'phantom' is still romantacised.";
next;
mes "[Mari Isac]";
mes "Anyways, if you want me to make you a Phantom of the Opera Mask, you'll need to bring me these items.";
mes "^5555FF1 Opera Masque^000000,";
mes "^5555FF50 Horrendous Hairs^000000.";
goto M_0;
M_1:
menu "-Mine Helmet",sM_MakeMine, "-Parcel Hat",sM_MakePar, "-Money Loser's Grief",sM_MakeMon, "-Phantom of the Opera Mask",sM_MakePhan;
sM_MakeMine:
if (countitem(5009)<1 || countitem(5028)<1 || countitem(747)<1 || countitem(999)<25) goto ssL_NoItems;
mes "[Mari Isac]";
mes "Here you go. Enjoy your Mine Helmet!";
delitem 5009, 1;
delitem 5028, 1;
delitem 747, 1;
delitem 999, 25;
getitem 5031,1;
close;
sM_MakePar:
if (countitem(1059)<150 || countitem(907)<100 || countitem(978)<1) goto ssL_NoItems;
mes "[Mari Isac]";
mes "Here you go. Enjoy your Parcel Hat!";
delitem 1059, 150;
delitem 907, 100;
delitem 978, 1;
getitem 5023,1;
close;
sM_MakeMon:
if (countitem(2233)<1 || countitem(969)<1 || countitem(999)<20 || countitem(949)<80 || countitem(938)<800) goto ssL_NoItems;
mes "[Mari Isac]";
mes "Here you go. Enjoy your Money Loser's Grief!";
delitem 2233, 1;
delitem 969, 1;
delitem 999, 20;
delitem 949, 80;
delitem 938, 800;
getitem 5021,1;
close;
sM_MakePhan:
if (countitem(2281)<1 || countitem(1048)<50) goto ssL_NoItems;
mes "[Mari Isac]";
mes "Here you go. Enjoy your Phantom of the Opera Mask!";
delitem 2281,1;
delitem 1048, 50;
getitem 5043, 1;
close;
ssL_NoItems:
mes "[Mari Isac]";
mes "You don't seem to have enough items for me to make that hat. Please come back when you do.";
close;
}
|
