// This file is part of Christmas Event 2011
// author: Jenalya
// Leather Ball states:
// 1: got order from Tarmo
// 2: Iivo said that he needs more material
// 3: Iivo created the Leather Ball
// 4: gave Leather Ball to the bad guy
// 5: delivered the Leather Ball without giving it to the bad guy
// 6: delivered fake present instead of Leather Ball
030-2.gat,37,81,0|script|Tarmo|328,{
if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day)
&& !(gettime(7) == ($@xmas2011_year + 1) && gettime(6) == 1 && gettime(5) <= $@xmas2011_reward_end_day))
goto L_NoEvent;
if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day)
|| (gettime(7) == ($@xmas2011_year + 1) && gettime(6) == 1 && gettime(5) <= $@xmas2011_reward_end_day))
goto L_RewardTime;
set @ball, (xmas11 & $@xmas11_BallMask) >> $@xmas11_BallShift;
if (@ball > 0) goto L_Ordered;
if (xmas11 & $@xmas11_talkedToChief) goto L_Helping;
mes "[Busy Helper]";
mes "\"Oh, hello. I'm very sorry, I can't help you. I need to work on all these papers here.\"";
goto L_Close;
L_Helping:
mes "[Tarmo]";
mes "\"Mh? Oh, are you new? Well, I suppose it's a good idea to hire more helpers.";
mes "Listen, I have this ordering form. Can you bring it to Iivo for me?\"";
set @ball, 1;
set xmas11, (xmas11 & ~($@xmas11_BallMask) | (@ball << $@xmas11_BallShift));
menu
"Sure, I'll do that.",L_Close,
"What is it?",-;
mes "[Tarmo]";
mes "\"The form? It's an order for a toy. We have a shortage on material this year. Some things went wrong with the delivery of it.";
mes "That's why we are producing only explicitly ordered toys this year.\"";
goto L_Close;
L_Ordered:
mes "[Tarmo]";
mes "\"Ah, hello. Please bring the order to Iivo.";
mes "I don't have anything else for you to do.\"";
goto L_Close;
L_NoEvent:
mes "[Tarmo]";
mes "\"How did you come in? At this time of the year the door should be locked!\"";
warp "030-1.gat", 99, 55;
goto L_Close;
L_RewardTime:
mes "[Tarmo]";
mes "\"Given all the misfortunes, we did a pretty good job I think.\"";
goto L_Close;
L_Close:
set @ball, 0;
close;
}
030-2.gat,154,33,0|script|Iivo|329,{
if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day)
&& !(gettime(7) == ($@xmas2011_year + 1) && gettime(6) == 1 && gettime(5) <= $@xmas2011_reward_end_day))
goto L_NoEvent;
if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day)
|| (gettime(7) == ($@xmas2011_year + 1) && gettime(6) == 1 && gettime(5) <= $@xmas2011_reward_end_day))
goto L_RewardTime;
set @ball, (xmas11 & $@xmas11_BallMask) >> $@xmas11_BallShift;
set @leather_amount, 1;
set @maggotslime_amount, 10;
if (@ball >= 3) goto L_LeatherBallDone;
if (@ball == 2) goto L_LeatherBall;
if (@ball == 1) goto L_Order;
if (xmas11 & $@xmas11_talkedToChief) goto L_Helping;
mes "[Busy Helper]";
mes "\"Hello there. I hope you have a good time visiting Santa's home.";
mes "We're usually more hospitable, but this year... I don't know why, but everything is going wrong.\"";
goto L_Close;
L_Helping:
mes "[Iivo]";
mes "\"Hi there. I'm a bit bored because we're nearly out of material.";
mes "I need an order to make some toys.\"";
if (@ball == 0)
goto L_Close;
L_Order:
mes "[Iivo]";
mes "\"I wish the guys up there in the office would send me something to do.\"";
menu
"Tarmo gave me an order for a Leather Ball.",-,
"Yeah, it's a shame.", L_Close;
mes "[Iivo]";
mes "\"Really? That's great! Let me see.";
mes "Ah, there are some things missing. I need " + @leather_amount + " Leather Patch?";
mes "I need also about " + @maggotslime_amount + " Maggot Slimes. It's an ingredient for the lotion that is used to imbue the leather.\"";
set @ball, 2;
callsub S_Update_Var;
goto L_Close;
L_LeatherBall:
mes "[Iivo]";
mes "\"I need " + @leather_amount + " Leather Patch and " + @maggotslime_amount + " Maggot Slimes for the Leather Ball.\"";
menu
"Here it is.",-,
"I don't have it yet.",L_Close;
if ((countitem("LeatherPatch") < @leather_amount) || (countitem("MaggotSlime") < @maggotslime_amount))
goto L_NoItems;
getinventorylist;
if (@inventorylist_count == 100)
goto L_Full_Inv;
delitem "LeatherPatch", @leather_amount;
delitem "MaggotSlime", @maggotslime_amount;
set @ball, 3;
callsub S_Update_Var;
getitem "LeatherBall", 1;
mes "[Iivo]";
mes "\"Great!\"";
mes "He takes the material and starts to cut the leather in pieces. Afterwards he seams them together.";
mes "It seems to be hard to stitch the leather and takes a while.";
next;
mes "You get distracted and start daydreaming.";
mes "[Iivo]";
mes "\"Alright! Now the impregnation.\"";
mes "You startle out of your daydream as he speaks.";
next;
mes "Iivo mixes the maggot slimes with some other ingredients you can't exactly identify and rubs the ball with it.";
mes "[Iivo]";
mes "\"Very good. It's done. Can you take it to Aaron to get it packed?\"";
goto L_Close;
L_LeatherBallDone:
mes "[Iivo]";
mes "\"I hope the kids will have fun with the ball I made. Did you already bring it to Aaron?\"";
goto L_Close;
L_NoEvent:
mes "[Iivo]";
mes "\"How did you come in? At this time of the year the door should be locked!\"";
warp "030-1.gat", 99, 55;
goto L_Close;
L_RewardTime:
mes "[Iivo]";
mes "\"This year's Christmas preparations really were chaotic. I hope we'll do better next year.\"";
goto L_Close;
L_NoItems:
mes "[Iivo]";
mes "\"You don't have it!\"";
goto L_Close;
L_Full_Inv:
mes "[Iivo]";
mes "\"You have a full backpack! Come back when you're carrying less things.\"";
goto L_Close;
L_Close:
set @cotton_amount, 0;
set @fur_amount, 0;
set @ball, 0;
set @inventorylist_count, 0;
close;
S_Update_Var:
set xmas11, (xmas11 & ~($@xmas11_BallMask) | (@ball << $@xmas11_BallShift));
return;
}
