305 lines
9.5 KiB
Plaintext
305 lines
9.5 KiB
Plaintext
//===== eAthena Script =======================================
|
|
//= Juice Maker Quest
|
|
//===== By: ==================================================
|
|
//= kobra_k88
|
|
//===== Current Version: =====================================
|
|
//= 1.3a
|
|
//===== 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]
|
|
//= 1.3a Turned the juice making part of the Juicer npc into a
|
|
//= subfunc. Changed fruit amount needed to 1.[kobra_k88]
|
|
//============================================================
|
|
|
|
|
|
// Morrison ------------------------------------------------
|
|
prt_in.gat,47,173,2 script Morrison 97,{
|
|
mes "[Little Morrison]";
|
|
if(MEAT > 10) goto L_Candy;
|
|
if(MARIANNE == 1) goto L_GoAway;
|
|
|
|
mes "Wahhhhh!!! Wahh... NO more! NO more!";
|
|
mes "I won't... eat anymore stupid ^0000ffFruit^000000 things!!";
|
|
emotion 28;
|
|
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! They";
|
|
mes "taste so SOUR..... I have to PEEL them before I can eat them.....";
|
|
mes "they feel sticky and squishy...... it's really ANNOYING!!!!";
|
|
emotion 16;
|
|
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???";
|
|
emotion 5;
|
|
next;
|
|
mes "[Little Morrison]";
|
|
mes "Do you have some ^ff0000Meat^000000?!!!~(drools)~";
|
|
mes "Umm... that yummy smell is making me SOOO HUNGRYYYY!!!l";
|
|
emotion 37;
|
|
next;
|
|
mes "[Little Morrison]";
|
|
mes "... Umm... excuse me..... could you give me some of that meat PLEEAASSSE?";
|
|
emotion 28;
|
|
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...";
|
|
emotion 38;
|
|
close;
|
|
|
|
sM_Ignore:
|
|
set MORRISON,2;
|
|
mes "[Little Morrison]";
|
|
mes "Boo...";
|
|
mes "Boo... Fine... Alright, Alright~!!! Selfish meanie!";
|
|
emotion 36;
|
|
close;
|
|
M_End:
|
|
mes "[Little Morrison]";
|
|
mes "Wahhhh!!! No matter how hard I try, I just can't eat Vegetables";
|
|
mes "or ^0000ffFruit^000000! They're plain disgusting!!";
|
|
emotion 28;
|
|
close;
|
|
|
|
L_GoAway:
|
|
mes "Pffff... Leave me alone! You DON'T CARE about me! I'm gonna DIE";
|
|
mes "because of these stupid Veggies and Fuits so MIND your own business!";
|
|
emotion 32;
|
|
close;
|
|
|
|
L_Candy:
|
|
mes "Ah..I am full now. You don't have to feed me any more. I think I";
|
|
mes "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";
|
|
mes "you gave me some Meat, I will give you some candy." ;
|
|
close;
|
|
|
|
}
|
|
|
|
// Housewife Marianne ---------------------------------------------------
|
|
prt_in.gat,49,172,2 script Housewife Marianne 53,{
|
|
mes "[Housewife Marianne]";
|
|
if(MORRISON == 1) goto L_GaveMeat;
|
|
if(MORRISON == 2) goto L_Juice;
|
|
|
|
mes "Morrison!! Please eat some fruit will ya? Fruit~!";
|
|
mes "*Sob*~!! Like father like son...";
|
|
emotion 28;
|
|
next;
|
|
menu "Talk",M_Talk,"Cancel",M_Cancel;
|
|
close;
|
|
|
|
M_Talk:
|
|
mes "[Housewife Marianne]";
|
|
mes "(~Sigh~)...This is Morrison... My one and only son. He's going";
|
|
mes "through some kinda faze and doesn't want to eat any ^0000ffFruits^000000 or";
|
|
mes "vegetables.";
|
|
emotion 40;
|
|
next;
|
|
mes "[Housewife Marianne]";
|
|
mes "Look at his face..., it turns sour just hearing about ^0000ffFruit^000000...";
|
|
next;
|
|
mes "[Housewife Marianne]";
|
|
mes "All he wants to eat is but ^ff0000Meat^000000... (sigh)...he needs";
|
|
mes "^0000ffFruits^000000 and vegetables for a proper diet.";
|
|
next;
|
|
|
|
M_Cancel:
|
|
mes "[Housewife Marianne]";
|
|
mes "Morrison!! I will get mad at you if you keep doing this!";
|
|
emotion 36;
|
|
close;
|
|
|
|
L_GaveMeat:
|
|
set MORRISON,0;
|
|
mes "Oh MY GOD!!... Oh lord...";
|
|
emotion 23;
|
|
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!!!!!!";
|
|
emotion 32;
|
|
close;
|
|
|
|
L_Juice:
|
|
set MORRISON,0;
|
|
set MARIANNE,1;
|
|
mes "Thank you for not giving my son any meat. I'm trying to feed him";
|
|
mes "^0000ffFruits^000000 and vegetables, but this child doesn't want to eat";
|
|
mes "anything except Meat...";
|
|
next;
|
|
mes "[Housewife Marianne]";
|
|
mes "What if I could turn ^0000ffFruits^000000 into a ^0000ffJuice^000000... for example...Orange";
|
|
mes "juice... Would my child like it?";
|
|
emotion 20;
|
|
next;
|
|
mes "[Housewife Marianne]";
|
|
mes "Ah! Now I remember..There is a town where you can get a variety of";
|
|
mes "^0000ffFruit^000000 turned into ^0000ffFruit Juices^000000.";
|
|
emotion 5;
|
|
next;
|
|
mes "[Housewife Marianne]";
|
|
mes "... Was is it...^ff0000Payon^000000...or ^ff0000Morroc^000000...?";
|
|
emotion 20;
|
|
next;
|
|
close;
|
|
|
|
}
|
|
|
|
// Juicer Marx Hansen ---------------------------------------------------------
|
|
payon_in01.gat,5,48,7 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. Are you here to process Fruits like everyone else?";
|
|
next;
|
|
menu "Yes, I am.",M_1a, "How do you make fruit juice?",M_1b, "Nope.",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,"None.",M_1End;
|
|
|
|
sM_1a:
|
|
callsub sF_Make, 512, "apples", 531;
|
|
goto M_1a;
|
|
sM_1b:
|
|
callsub sF_Make, 513, "bananas", 532;
|
|
goto M_1a;
|
|
sM_1c:
|
|
callsub sF_Make, 514, "grapes", 533;
|
|
goto M_1a;
|
|
sM_1d:
|
|
callsub sF_Make, 515, "carrots", 534;
|
|
goto M_1a;
|
|
M_1b:
|
|
mes "[Juicer Marx Hansen]";
|
|
mes "# Fruit Juice Info #";
|
|
mes "- ^FF3355Apple^000000 Juice - Apple x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
|
|
mes "- ^D5A500Banana^000000 Juice - Banana x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
|
|
mes "- ^FF8800Carrot^000000 Juice - Carrot x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
|
|
mes "- ^AA00AAGrape^000000 Juice - Grape x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
|
|
close;
|
|
M_1End:
|
|
mes "[Juicer Marx Hansen]";
|
|
mes "Oh well... see you next time.";
|
|
close;
|
|
|
|
// Subfunction for making juice
|
|
//----------------------------------
|
|
sF_Make:
|
|
mes "[Juicer Marx Hansen]";
|
|
mes "How many bottles would you like?";
|
|
next;
|
|
menu "I'll tell you.",M_Tell, "As many as possible",-, "I've changed my mind.",M_1End;
|
|
|
|
set @amount,1000; //max possible amount of Juice
|
|
//calc max possible # juices
|
|
if(Zeny/3 < @amount) set @ipnut, Zeny/3;
|
|
if(countitem(getarg(0)) < @amount) set @amount, countitem(getarg(0));
|
|
if(countitem(713) < @amount) set @amount, countitem(713);
|
|
if(@amount > 0) goto L_Make;
|
|
mes "[Juicer Marx Hansen]";
|
|
mes "Doh! You don't have enough ingredients for a single bottle of juice.";
|
|
emotion 0;
|
|
close;
|
|
|
|
M_Tell:
|
|
mes "[Juicer Marx Hansen]";
|
|
mes "Very well then. Enter 0 if you don't want any. Also you cannot";
|
|
mes "buy more than 1000 at a time.";
|
|
next;
|
|
input @amount;
|
|
if(@amount < 1 || @amount > 1000) return;
|
|
if(countitem(getarg(0)) < @amount) goto sL_NoFruits;
|
|
if(countitem(713) < @amount) goto sL_NoBottles;
|
|
if(Zeny < @amount * 3) goto sL_NoZeny;
|
|
|
|
L_Make:
|
|
delitem getarg(0), @amount; //del Fruit
|
|
delitem 713, @amount; //del Empty Bottle
|
|
set Zeny, Zeny - @amount * 3;
|
|
getitem getarg(2), @amount; //get Juice
|
|
mes "[Juicer Marx Hansen]";
|
|
mes "Here you are. Take it.";
|
|
close;
|
|
|
|
sL_NoFruits:
|
|
mes "[Juicer Marx Hansen]";
|
|
mes "You don't have enough fruit.";
|
|
mes "You need " +@amount+ " " +getarg(1)+ " to make that much juice.";
|
|
next;
|
|
return;
|
|
sL_NoBottles:
|
|
mes "[Juicer Marx Hansen]";
|
|
mes "You don't have enough bottles. You need "+@amount+" empty bottle(s) to make that many juice drinks.";
|
|
next;
|
|
return;
|
|
sL_NoZeny:
|
|
mes "[Juicer Marx Hansen]";
|
|
mes "You don't have enough zeny. You need " +(@amount*3)+ " zeny, to make that many juice drinks.";
|
|
next;
|
|
return;
|
|
}
|