Christmas Event 2011

1 files changed, 163 insertions, 0 deletions

diff --git a/world/map/npc/xmas/2011/doll.txt b/world/map/npc/xmas/2011/doll.txt
new file mode 100644
index 00000000..a436c4bf
--- /dev/null
+++ b/world/map/npc/xmas/2011/doll.txt
@@ -0,0 +1,163 @@
+// This file is part of Christmas Event 2011
+// author: Jenalya
+// Doll states:
+// 1: got order from Taito
+// 2: Raimo said that he needs more material
+// 3: Raimo created the Doll
+// 4: gave Doll to the bad guy
+// 5: delivered the Doll without giving it to the bad guy
+// 6: delivered fake present instead of Doll
+
+030-2.gat,37,85,0|script|Taito|328,{
+
+    if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day))
+        goto L_NoEvent;
+    if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day))
+        goto L_RewardTime;
+
+    set @doll, (xmas11 & $@xmas11_DollMask) >> $@xmas11_DollShift;
+
+    if (@doll > 0) goto L_Ordered;
+    if (xmas11 & $@xmas11_talkedToChief) goto L_Helping;
+
+    mes "This helper is very concentrated on his paperworks.";
+    mes "[Busy Helper]";
+    mes "\"Ah! You startled me! I need to do some paperwork, please don't sneak up on me like that!\"";
+    goto L_Close;
+
+L_Helping:
+    mes "[Taito]";
+    mes "\"Hm? Oh, you're here to help? Very good, I have something you could do.\"";
+    mes "He gives you some piece of paper. It looks very confusing to you.";
+    next;
+    mes "[Taito]";
+    mes "\"Please bring this to Raimo.\"";
+    set @doll, 1;
+    set xmas11, (xmas11 & ~($@xmas11_DollMask) | (@doll << $@xmas11_DollShift));
+    goto L_Close;
+
+L_Ordered:
+    mes "[Taito]";
+    mes "\"Oh? I'm sorry I was very concentrated. I don't have more tasks for you.\"";
+    goto L_Close;
+
+L_NoEvent:
+    mes "[Taito]";
+    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 "Taito is fallen asleep on his desk.";
+    goto L_Close;
+
+L_Close:
+    set @doll, 0;
+    close;
+}
+
+030-2.gat,153,39,0|script|Raimo|329,{
+
+    if (!(gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_start_day))
+        goto L_NoEvent;
+    if ((gettime(7) == $@xmas2011_year && gettime(6) == 12 && gettime(5) >= $@xmas2011_reward_start_day))
+        goto L_RewardTime;
+
+    set @doll, (xmas11 & $@xmas11_DollMask) >> $@xmas11_DollShift;
+    set @cotton_amount, 2;
+    set @dye_amount, 2;
+    set @spike_amount, 2;
+
+    if (@doll >= 3) goto L_DollDone;
+    if (@doll == 2) goto L_Doll;
+    if (xmas11 & $@xmas11_talkedToChief) goto L_Helping;
+
+    mes "The helper is busy sorting some tools and materials.";
+    goto L_Close;
+
+L_Helping:
+    mes "[Raimo]";
+    mes "\"Oh, hello. Do you have something to do? Because I don't have. We're only allowed to create toys that were ordered!";
+    mes "And now I'm sitting here with nothing to do but sorting my tools. Which are already sorted.\"";
+    mes "He sighs.";
+    if (@doll == 0)
+        goto L_Close;
+    next;
+    menu
+        "Taito gave me this paper for you.",-,
+        "Oh, that's not nice.", L_Close;
+    mes "[Raimo]";
+    mes "\"Ah, let's see! Mh, a doll. I think there are some materials missing.";
+    mes "Could you bring me " + @cotton_amount + " Cotton Cloths,  " + @dye_amount + " Light Blue Dyes and " + @spike_amount + " Hard Spikes?";
+    set @doll, 2;
+    callsub S_Update_Var;
+    goto L_Close;
+
+L_Doll:
+    mes "[Raimo]";
+    mes "\"I need " + @cotton_amount + " Cotton Cloths,  " + @dye_amount + " Light Blue Dyes and " + @spike_amount + " Hard Spikes for the Doll.\"";
+    menu
+        "Here it is.",-,
+        "I don't have it yet.",L_Close;
+    if ((countitem("CottonCloth") < @cotton_amount) || (countitem("LightBlueDye") < @dye_amount) || (countitem("HardSpike") < @spikes_amount))
+        goto L_NoItems;
+    delitem "CottonCloth", @cotton_amount;
+    delitem "LightBlueDye", @dye_amount;
+    delitem "HardSpike", @spikes_amount;
+    set @doll, 3;
+    callsub S_Update_Var;
+    getitem "Doll", 1;
+    mes "[Raimo]";
+    mes "\"Alright, let's start.\"";
+    mes "He takes your items and start to many different things.";
+    mes "He dyes the Cotton Cloths and while waiting for it to dry, he takes out a doll without hair, clothes and face from his workbench.";
+    mes "It seems he already prepared that. He rummages in another drawer of his workbench and pulls out a ball of red wool.";
+    mes "While attaching strings of wool to the dolls head, he talks to you.";
+    next;
+    mes "[Raimo]";
+    mes "\"You know, usually it's really fun to be one of Santa's helpers. But this year something's going really wrong. I wonder what's the reason for this.";
+    mes "All kind of material deliveries went wrong, the guys up in the office are all roused up because their paperwork got mixed up and I heard some of the Reinboos are lost!\"";
+    next;
+    mes "\"It's kind of odd, isn't it?\"";
+    mes "While he was talking, he finished attaching the hair and got to tailor a cute little dress from the dyed Cotton Cloths.";
+    mes "He carefully puts on the dressand takes the Hard Spikes you gave him.";
+    next;
+    mes "[Raimo]";
+    mes "\"These spikes are excellent for making eyes, have a look.\"";
+    mes "He takes a sharp knife and starts carving them. After a short while he has managed to bring them in a round shape, with a gap on the backside part. He takes a needle and sewing thread and attches them to the dolls face.";
+    next;
+    mes "[Raimo]";
+    mes "\"Alright, it's done. Could you please bring it to Aaron?\"";
+    goto L_Close;
+
+L_DollDone:
+    mes "[Raimo]";
+    mes "\"Do you have another order for me? I'm bored.\"";
+    goto L_Close;
+
+L_NoEvent:
+    mes "[Raimo]";
+    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 "[Raimo]";
+    mes "\"Ah, we're finally done for this year.\"";
+    goto L_Close;
+
+L_NoItems:
+    mes "[Raimo]";
+    mes "\"You don't have it!\"";
+    goto L_Close;
+
+L_Close:
+    set @cotton_amount, 0;
+    set @fur_amount, 0;
+    set @doll, 0;
+    close;
+
+S_Update_Var:
+    set xmas11, (xmas11 & ~($@xmas11_DollMask) | (@doll << $@xmas11_DollShift));
+    return;
+}