Easter 2012

Story: prsm, TheKandiman
Scripting: alastrim
Prepare for release and testing: Jenalya

1 files changed, 145 insertions, 0 deletions

diff --git a/world/map/npc/010-2/chef.txt b/world/map/npc/010-2/chef.txt
index f5a6e8d5..393a2d35 100644
--- a/world/map/npc/010-2/chef.txt
+++ b/world/map/npc/010-2/chef.txt
@@ -9,6 +9,12 @@
 // if (gettime(6) == @month && gettime(5) >= @start_day && gettime(5) <= @end_day && QUEST_Easter11 == 8) goto L_MakeJellyBean;
 // if (gettime(6) == @month && gettime(5) >= @start_day && gettime(5) <= @end_day && QUEST_Easter11 == 9) goto L_SeeBunny;
 
+    if (!(gettime(6) == 3 && gettime(5) >= $@easter2012_start_day) && !(gettime(6) == 4 && gettime(5) <= $@easter2012_reward_end_day)) goto L_Begin;
+    if (QUEST_Easter12 == 6) goto L_Easter2012_Begin;
+    if (QUEST_Easter12 == 7) goto L_Easter2012_Wait;
+    if (QUEST_Easter12 == 8) goto L_Easter2012Foolplayers;
+    if (QUEST_Easter12 == 9) goto OnEaster2012Out;
+
 L_Begin:
     mes "[Chef]";
     mes "";
@@ -195,4 +201,143 @@ L_SeeBunny:
     next;
     goto L_Begin;
     close;
+
+L_Easter2012_Begin:
+    mes "[Chef]";
+    mes "\"Ahh, " + strcharinfo(0) + "! I really need to talk to you. Did the Easter Bunny give you a very thick and heavy pan?\"";
+    menu
+        "Yes, he did. Why?", -;
+
+    mes "[Chef]";
+    mes "\"Good to know! I am asking because now you are my only hope. I invented the ultimate culinary wonder, a recipe for the most incredibly tasty food you can imagine!\"";
+    next;
+    mes "\"But here is the problem, to complete this recipe I need a very resistent pan, because in the process I need to use a very strong acid solution based on yeti saliva!\"";
+    next;
+    mes "\"Can you believe I ruined ALL of my pans and 17 infantry helmets while trying to cook it? That is why I am asking for this favor. Could you lend me your pan? I promise I will give you a jar of the final product.\"";
+    next;
+    mes "\"Oh, and I will need to keep it with me for a while, as the ingredients need to rest in the acid solution for a long time, but you can always come here to see how it is going.\"";
+    menu
+        "Ok, but I want my pan back when it is done!", L_Accept_Cooking,
+        "No way, I won't let you fill my hat with corrosive yeti saliva!", -;
+
+    mes "[Chef]";
+    mes "\"Ahh, don't say that! Please, think about it and come back if you change your mind.\"";
+    close;
+
+L_Accept_Cooking:
+    mes "[Chef]";
+    mes "\"Great! But I can't promise anything regarding your hat. What I can promise is: IF it works, you will eat the most spetacular food of all time! I won't say what it is, but it is going to be great! What do you say, are you sure?\"";
+    menu
+        "Ahh, just take the pan and do your thing.", -,
+        "No way!", L_Close;
+    if (countitem("PanHat") < 1)
+        goto L_No_PanHat;
+    delitem "PanHat", 1;
+    set QUEST_Easter12, 7;
+    mes "\"Very good! Now I just need to put the basic ingredients inside a metal pan filled with water, yeti saliva, a little bit of salt and finally... The secret ingredient!\"";
+    next;
+    mes "The chef turns his back to you so he can hide what he is using. But you can clearly distinguish a smell of coal...";
+    mes "\"HahaHhh! And now we wait!\"";
+    close;
+
+L_Easter2012_Wait:
+    if ((gettime(6) == 4 && gettime(5) >= $@easter2012_reward_start_day))
+        goto L_Easter2012_Result;
+    mes "[Chef]";
+    mes "\"Be patient... The basic ingredients are not ready yet.\"";
+    close;
+
+L_Easter2012_Result:
+    set @temp, rand(99);
+    mes "[Chef]";
+    mes "\"Hey! I have some good news and some bad news... Which one do you want to hear first?\"";
+    menu
+        "The good one.", -,
+        "The bad one.", -,
+        "Oh no, I don't even want to hear!", L_Close;
+    if (@temp < 15) goto L_Easter2012_Lucky;
+    if (@temp >= 15) goto L_Easter2012_Unlucky;
+    close;
+
+L_Easter2012_Lucky:
+    mes "[Chef]";
+    mes "\"Wait! Did I mention bad news? I must be crazy... There is no bad news my friend! The ultimate pickled beets is now ready AND your pan is intact!\"";
+    next;
+    mes "\"Here! Take your pan back and a jar of the best pickled beets of the mana world!\"";
+    set QUEST_Easter12, 10;
+    getitem "PickledBeets", 1;
+    getitem "PanHat", 1;
+    close;
+
+L_Easter2012_Unlucky:
+    mes "[Chef]";
+    mes "\"Ahh, actually, it doesn't matter! The important thing is that the recipe was a success! I just can't believe how something can be so tasty!\"";
+    next;
+    menu
+        "Nice! Now, what about my hat?", -;
+    mes "\"Oh, that... Ehh, unfortunately, the pan is not anymore. It was completely destroyed by the time the pickled beets were ready! But don't worry, I will keep my promise and give you a jar of this culinary masterpiece!\"";
+    next;
+    menu
+        "Wait, wait... Are you saying I lost my hat?", -;
+    mes "[Chef]";
+    mes "\"Hmm, yes. But I must say I really appreciate your effort to help me! You sacrificed your cool hat in the name of the culinary arts, only a great person would do that!\"";
+    next;
+    menu
+        "But... I... My hat...", -;
+    mes "[Chef]";
+    mes "\"Here, take your pickled beets!\"";
+    getitem "PickledBeets", 1;
+    set QUEST_Easter12, 8;
+    close;
+
+OnEaster2012Out:
+    if (QUEST_Easter12 == 8)
+        set QUEST_Easter12, 9;
+    mes "[Chef]";
+    mes "\"Hey, I coudn't help but noticed your sadness... You really like these silly hats, don't you? Well, since your hat is completely destroyed, just like all my pans, I can give you one of these nice cooking hats. But only if you give my jar of pickled beets back. What do you say?\"";
+    menu
+        "A chef hat for a jar of pickled beets? Of course I want!", L_GetChefhat,
+        "Ahh, keep you silly hat! The pickled beets are way better!", L_KeepBeets;
+    close;
+
+L_GetChefhat:
+    if (countitem("PickledBeets") < 1)
+        goto L_No_Pickledbeets;
+    mes "[Chef]";
+    mes "\"Really? Well, if you are sure about that... Here is your hat!\"";
+    delitem "PickledBeets", 1;
+    getitem "ChefHat", 1;
+    set QUEST_Easter12, 10;
+    close;
+
+L_KeepBeets:
+    mes "[Chef]";
+    mes "\"Hmm, I see that at least you are a wise person. See you later!\"";
+    set QUEST_Easter12, 10;
+    close;
+
+L_No_PanHat:
+    mes "[Chef]";
+    mes "\"So? You said you have the pan, where is it?\"";
+    close;
+
+L_No_Pickledbeets:
+    mes "[Chef]";
+    mes "\"Hey, no pickled beets means no chef hat.\"";
+    close;
+
+L_Easter2012Foolplayers:
+    mes "The chef can't hear you. He keeps looking and feeling the scent of his new recipe.";
+    close;
+
+L_Close:
+    close;
+}
+
+010-2.gat,28,31,0|script|#chefproposition|32767,0,0{
+OnTouch:
+    if (gettime(7) != $@easter2012_year || QUEST_Easter12 != 8 || !((gettime(6) == 4 && gettime(5) >= $@easter2012_reward_start_day) && (gettime(6) == 4 && gettime(5) <= $@easter2012_reward_end_day)))
+        end;
+    doevent "Chef::OnEaster2012Out";
+    end;
 }