payon_in01.gat,174,113,2	script	Marx Hansen	86,{

MAINMENU:
if (Event_Juicemaking == 3) goto JUICEROOT;
mes "[Marx Hansen]";
mes "What can I do for you?";
next;
menu "What do you do here?",INFOTEXT,"I'm just looking around.",CLOSEOUT;

JUICEROOT:
mes "[Marx Hansen]";
mes "Welcome to my shop! What can I do for you?";
next;
menu "I'd like to make some juice!",JUICEMENU,"What are your prices?",PRICELIST,"I'm just looking around.",CLOSEOUT;

JUICEMENU:
mes "[Marx Hansen]";
mes "Well, what kind of juice would you like?";
next;
menu "Apple Juice",APPLE,"Banana Juice",BANANA,"Carrot Juice",CARROT,"Grape Juice",GRAPE,"None, actually.",CLOSEOUT;

APPLE:
set @ingred,512;
set @product,531;
goto PROCESS;

BANANA:
set @ingred,513;
set @product,532;
goto PROCESS;

CARROT:
set @ingred,515;
set @product,534;
goto PROCESS;

GRAPE:
set @ingred,514;
set @product,533;
goto PROCESS;

PROCESS:
mes "[Marx Hansen]";
if ((countitem(@ingred) < 1) || (countitem(713) < 1) || (zeny < 3)) goto DENYMAKE
mes "How many would you like me to make?"
next;
menu "As many as you can!",MAKELOOP,"(Tell him a number)",MAKENUM,"None, I changed my mind.",CLOSEOUT;

MAKELOOP:
delitem @ingred,1;
delitem 713,1;
set zeny,zeny-3;
set @productcount,@productcount+1;
if ((countitem(@ingred) < 1) || (countitem(713) < 1) || (zeny < 3)) goto RECEIVE;
goto MAKELOOP;

MAKENUM:
input;
if (script_num_flag == 0) goto CLOSEOUT;
if ((countitem(@ingred) < script_num_flag) || (countitem(713) < script_num_flag) || (zeny < 3 * script_num_flag)) goto DENYMAKENUM;
delitem @ingred,script_num_flag;
delitem 713,script_num_flag;
set zeny,zeny - 3 * script_num_flag;
set @productcount,script_num_flag;
goto RECEIVE;

RECEIVE:
mes "[Marx Hansen]";
mes "Here's your juice! Drink to your health, and enjoy!";
geitem @product,@productcount;
close;

DENYMAKE:
mes "You don't have enough materials to make any right now, sorry.";
close;

DENYMAKENUM:
mes "You don't have enough materials to make that many right now, sorry.";
close;

PRICELIST:
mes "Apple Juice - 1 Apple, 1 Bottle, 3 zeny.";
mes "Banane Juice - 1 Banana, 1 Bottle, 3 zeny.";
mes "Carrot Juice - 1 Carrot, 1 Bottle, 3 zeny.";
mes "Grape Juice - 1 Grapes, 1 Bottle, 3 zeny.";
goto JUICEROOT;

INFOTEXT:
if (Event_JuiceMaking != 1) set Event_Juicemaking,Event_Juicemaking + 1;
mes "[Marx Hansen]";
mes "Before the start of civilization, there was little for human beings to eat besides fruit. Everyone had to gather fruit in order to survive. In those days, people thanked Mother Nature for making food so easily available.";
next;
mes "[Marx Hansen]";
mes "In this busy, modern world, children don't seem to care for fruit like they used to. I wanted to show them how good fruit is for their health, and I realized that juices made from fruit are tastier and easier to enjoy.";
next;
mes "[Marx Hansen]";
mes "It's an interesting idea, don't you think?"
next;
goto MAINMENU;

CLOSEOUT:
mes "[Marx Hansen]";
mes "Okay, then. See you later.";
close;

}