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
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
|
//===== eAthena Script =======================================
//= Juice Maker Quest
//===== By: ==================================================
//= kobra_k88
//===== Current Version: =====================================
//= 1.3
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//=
//===== Additional Comments: =================================
//= Fully working
//= 1.1 fixed input number check [Lupus]
//= 1.2 fixed misplaced Grape<->Carrot juices [Lupus]
//= 1.3 added a loopless menu 'as many as possible' [Lupus]
//============================================================
// Morrison ------------------------------------------------
prt_in.gat,47,173,2 script Morrison 97,
{
if(MEAT > 10) goto L_Candy;
if(MARIANNE == 10) goto L_GoAway;
mes "[Little Morrison]";
mes "Wahhhhh!!! Wahh... NO more! NO more!";
mes "I won't... eat anymore stupid ^0000ffFruit^000000 things!!";
next;
menu "Talk",M_Talk,"Cancel",M_End;
M_Talk:
if(countitem(517) > 0) goto L_Meat; //Meat
mes "[Little Morrison]";
mes "Arhhggg!! I'VE HAD ENOUGH!!! I can't eat anymore ^0000ffFruits^000000!";
mes "They taste so SOUR..... I have to PEEL them before I can eat them.....they feel sticky and squishy...... it's really ANNOYING!!!!";
next;
mes "[LIttle Morrison]";
mes "I just HATE FRUIT! I can't even get full off of the stuff.(~sigh~)";
mes "Give me something more edible..... give me some...... ^ff0000MEAT^000000!!!";
close;
L_Meat:
mes "[Little Morrison]";
mes "...(sniff)....(sniff)(sniff).... Oh! Is that ^ff0000Meat^000000???";
next;
mes "[Little Morrison]";
mes "Do you have some ^ff0000Meat^000000?!!!~(drools)~";
mes "Umm... that yummy smell is making me SOOO HUNGRYYYY!!!l";
next;
mes "[Little Morrison]";
mes "... Umm... excuse me..... could you give me some of that meat PLEEAASSSE?";
next;
menu "Give him some",sM_Give,"Ignore him",sM_Ignore;
sM_Give:
set MORRISON,1;
set MEAT,MEAT + 1;
delitem 517,1; //Meat
mes "[Little Morrison]";
mes "Whoah~!!! It's real Meat, Meat!";
mes "Mmmm! It makes my mouth water.";
mes "Oh thank you. Now I feel happy. Yum Yum...";
close;
sM_Ignore:
set MORRISON,2;
mes "[Little Morrison]";
mes "Boo...";
mes "Boo... Fine... Alright, Alright~!!! Selfish meanie!";
close;
M_End:
mes "[Little Morrison]";
mes "Wahhhhh!!! No matter how hard I try, I just can't eat Vegetables or ^0000ffFruit^000000! They're plain disgusting!!";
close;
L_GoAway:
mes "[Little Morrison]";
mes "Pffff... Leave me alone! You DON'T CARE about me! I'm gonna DIE because of these stupid Veggies and Fuits so MIND your own business!";
close;
L_Candy:
mes "[Little Morrison]";
mes "Ah..I am full now.";
mes "You don't have to feed me any more. I think I am gonna BURST if i keep eating more.";
next;
mes "[Little Morrison]";
mes "And... um... Take this.";
next;
getitem 529,3;
getitem 530,1;
set MEAT,0;
mes "[Little Morrison]";
mes "It is from my secret stash of Candy that I hide from my Mom. Since you gave me some Meat, I will give you some candy." ;
close;
}
// Housewife Marianne ---------------------------------------------------
prt_in.gat,49,172,2 script Housewife Marianne 53,
{
if(MORRISON == 1) goto L_GaveMeat;
if(MORRISON == 2) goto L_Juice;
mes "[Housewife Marianne]";
mes "Morrison!! Please eat some fruit will ya? Fruit~!";
mes "*Sob*~!! Like father like son...";
next;
menu "Talk",M_Talk,"Cancel",M_Cancel;
close;
M_Talk:
mes "[Housewife Marianne]";
mes "(~Sigh~)...This is Morrison... My one and only son.";
mes "He's going through some kinda faze and doesn't want to eat any ^0000ffFruits^000000 or vegetables. Look at his face, it turns sour just hearing about ^0000fffFruit^000000...";
next;
mes "[Housewife Marianne]";
mes "All he wants to eat is but ^ff0000Meat^000000... (sigh)...he needs ^0000ffFruits^000000 and vegetables for a proper diet.";
next;
close;
M_Cancel:
mes "[Housewife Marianne]";
mes "Morrison!! I will get mad at you if you keep doing this!";
close;
L_GaveMeat:
set MORRISON,0;
mes "[Housewife Marianne]";
mes "Oh MY GOD!!... Oh lord...";
next;
mes "[Housewife Marianne]";
mes "WHAT ARE YOU DOING!! HOW DARE YOU feed my son!! And ^ff0000MEAT^000000 of all things!!!";
next;
mes "[Housewife Marianne]";
mes "Arrrgh~~!! Get Lost right now!!!!!!";
close;
L_Juice:
set MORRISON,0;
set MARIANNE,1;
mes "[Housewife Marianne]";
mes "Thank you for not giving my son any meat. I'm trying to feed him ^0000ffFruits^000000 and vegetables, but this child doesn't want to eat anything except Meat...";
next;
mes "[Housewife Marianne]";
mes "What if I could turn ^0000ffFruits^000000 into a ^0000ffJuice^000000... for example...Orange juice... Would my child like it?";
next;
mes "[Housewife Marianne]";
mes "Ah! Now I remember..There is a town where you can get a variety of ^0000ffFruit^000000 turned into ^0000ffFruit Juices^000000.";
next;
mes "[Housewife Marianne]";
mes "... Was is it...^ff0000Payon^000000...or ^ff0000Morroc^000000...?";
next;
close;
}
// Juicer Marx Hansen -----------------------------------------------------------------------
payon_in01.gat,5,48,3 script Juicer Marx Hansen 86,
{
mes "[Juicer Marx Hansen]";
if(MARIANNE == 1) goto L_Juice;
mes "Welcome to my shop. What brings you here?";
next;
menu "Conversation",M_0a,"I am just looking around",M_0b;
M_0a:
mes "[Juicer Marx Hansen]";
mes "In the earliest years of humanity, fruits were the only substanace availble for people to eat.";
mes "Fruits were vital for survival and without them people faced certain death.";
mes "During that time Mother Nature was worshiped for her generous offerering.";
next;
mes "[Juicer Marx Hansen]";
mes "Nowadays food is plentifull and it comes in a variety of flavors and forms.";
mes "With so many other things to eat, fruits aren't consumed as much as they used to be.";
mes "This is especially true among kids who'd rather eat pizza and candy.";
next;
mes "[Juicer Marx Hansen]";
mes "Because of this I wanted to find a way to make young people realize the importance of fuit.";
mes "I found that when fruits were turned into juices, they became more digestive and even tasty enough for kids.";
close;
M_0b:
mes "[Juicer Marx Hansen]";
mes "Ok then.";
close;
L_Juice:
mes "Welcome to my shop. Do you come here to process Fruits like the rest?";
next;
menu "Yes, I do.",M_1a,"How do you make fruit juice?",M_1b,"No, I don't.",M_1End;
M_1a:
mes "[Juicer Marx Hansen]";
mes "So what kind of fruit juice would you like to process?";
next;
menu "Apple Juice",sM_1a,"Banana Juice",sM_1b,"Grape Juice",sM_1c,"Carrot Juice",sM_1d,"Nope, I'm fine.",sM_1End;
sM_1a:
set @FRUIT,512;
set @JUICE,531;
goto sL_Make;
sM_1b:
set @FRUIT,513;
set @JUICE,532;
goto sL_Make;
sM_1c:
set @FRUIT,514;
set @JUICE,533;
goto sL_Make;
sM_1d:
set @FRUIT,515;
set @JUICE,534;
sL_Make:
mes "[Juicer Marx Hansen]";
mes "How many bottles would you like?";
next;
menu "I'll tell you.",sL_Make_InputN, "As many as possible",-, "I've changed my mind.",sM_1End;
set @FRUITNUM,100; //max possible amount of Juice
//calc max possible # juices
if(Zeny/3 < @FRUITNUM) set @FRUITNUM,Zeny/3;
if(countitem(@FRUIT) < @FRUITNUM) set @FRUITNUM,countitem(@FRUIT);
if(countitem(713) < @FRUITNUM) set @FRUITNUM,countitem(713);
if(@FRUITNUM > 0) goto sL_Make_Max;
mes "[Juicer Marx Hansen]";
mes "Doh! You don't have enough ingredients for a single bottle of juice.";
emotion 0;
close;
sL_Make_Max:
delitem @FRUIT,@FRUITNUM; //del Fruit
delitem 713,@FRUITNUM; //del Empty Bottle
set Zeny,Zeny-@FRUITNUM*3;
getitem @JUICE,@FRUITNUM; //get Juice
goto sL_Make_Got;
sL_Make_InputN:
mes "[Juicer Marx Hansen]";
mes "Very well then. How many bottles would you like?";
mes "Enter 0 if you don't want any.";
next;
input @input;
if(@input < 1) goto sM_1End;
set @FRUITNUM,(3*@input);
set @ZENYNUM,(3*@input);
if(countitem(@FRUIT) < @FRUITNUM) goto sl_Fruits;
if(countitem(713) < @input) goto sl_Bottles;
if(Zeny < @ZENYNUM) goto sl_Zeny;
delitem @FRUIT,@FRUITNUM; //del Fruit
delitem 713,@input; //del Empty Bottle
set Zeny,Zeny - @ZENYUM; //get Juice
getitem @JUICE,@input;
sL_Make_Got:
mes "[Juicer Marx Hansen]";
mes "Here you are. Take it.";
close;
sl_Fruits:
mes "[Juicer Marx Hansen]";
mes "You don't have enough fruit.";
if (@FRUIT == 512) mes "You need "+@FRUITNUM+" apples to make that much apple juice.";
if (@FRUIT == 513) mes "You need "+@FRUITNUM+" bannanas to make that much bannana juice.";
if (@FRUIT == 514) mes "You need "+@FRUITNUM+" grapes to make that much grape juice.";
if (@FRUIT == 515) mes "You need "+@FRUITNUM+" carrots to make that much carrot juice.";
next;
goto M_1a;
close;
sl_Bottles:
mes "[Juicer Marx Hansen]";
mes "You don't have enough bottles. You need "+@input+" empty bottle(s) to make that many juice drinks.";
next;
goto M_1a;
sl_Zeny:
mes "[Juicer Marx Hansen]";
mes "You don't have enough zeny. You need "+@ZENYNUM+" zeny, to make that many juice drinks.";
next;
goto M_1a;
sM_1End:
mes "[Juicer Marx Hansen]";
mes "Oh well... see you next time.";
close;
M_1b:
mes "[Juicer Marx Hansen]";
mes "# Fruit Juice Info #";
mes "Apple Juice - Apple x 3 ea, Empty Bottle x 1 ea, 3 zeny.";
mes "Banane Juice - Banana x 3 ea, Empty Bottle x 1 ea, 3 zeny.";
mes "Carrot Juice - Carrot x 3 ea, Empty Bottle x 1 ea, 3 zeny.";
mes "Grape Juice - Grape x 3 ea, Empty Bottle x 1 ea, 3 zeny.";
close;
M_1End:
close;
}
|
