Making quests on 019-1 seasonal.

2 files changed, 77 insertions, 28 deletions

diff --git a/world/map/npc/019-1/santa_helper.txt b/world/map/npc/019-1/santa_helper.txt
index c383c93c..9c148407 100644
--- a/world/map/npc/019-1/santa_helper.txt
+++ b/world/map/npc/019-1/santa_helper.txt
@@ -1,5 +1,25 @@
+// Author: accoring to git history probably Jaxad
+// quest made seasonal and adapted to new scripting standards by Jenalya
+
 019-1.gat,74,75,0|script|Santa's Helper|105,{
     if (ChristmasQuest2 == 1) goto L_Done;
+
+    if ($@month == 12) goto L_Quest;
+
+    mes "[Santa's Helper]";
+    mes "\"Ah, isn't it peaceful here? Around Christmas time we always have problems with some slimy monsters.";
+    mes "They steal the presents boxes. I think they feel attracted by the spiritual power of the Christmas presents.\"";
+    next;
+    mes "He smiles happily.";
+    mes "[Santa's Helper]";
+    mes "\"But at this time of the year everything's calm and relaxing.\"";
+    goto L_Close;
+
+L_Quest:
+    set @purple_amount, 25;
+    set @blue_amount, 20;
+    set @green_amount, 5;
+
     mes "[Santa's Helper]";
     mes "\"Hello my young friend.";
     mes "Would you like to help me?\"";
@@ -19,51 +39,57 @@ L_Y:
     mes "[Santa's Helper]";
     mes "\"Hmm, let me check what you have.\"";
     next;
-    if (countitem("PurplePresentBox") < 25)
+    if (countitem("PurplePresentBox") < @purple_amount)
         goto L_NoItem;
-    if (countitem("BluePresentBox") < 20)
+    if (countitem("BluePresentBox") < @blue_amount)
         goto L_NoItem;
-    if (countitem("GreenPresentBox") < 5)
+    if (countitem("GreenPresentBox") < @green_amount)
         goto L_NoItem;
     getinventorylist;
     if (@inventorylist_count > 99)
         goto L_TooMany;
     mes "[Santa's Helper]";
     mes "\"Great! Here is something for you\"";
-    delitem "PurplePresentBox", 25;
-    delitem "BluePresentBox", 20;
-    delitem "GreenPresentBox", 5;
+    delitem "PurplePresentBox", @purple_amount;
+    delitem "BluePresentBox", @blue_amount;
+    delitem "GreenPresentBox", @green_amount;
     getitem "TurtleneckSweater", 1;
     set ChristmasQuest2,1;
-    close;
+    goto L_Close;
 
 L_R:
     mes "[Santa's Helper]";
     mes "\"I need:";
-    mes "25 Purple Present Boxes";
-    mes "20 Blue Present Boxes";
-    mes "5 Green Present Boxes\"";
+    mes @purple_amount + " Purple Present Boxes";
+    mes @blue_amount + " Blue Present Boxes";
+    mes @green_amount + " Green Present Boxes\"";
     next;
     goto L_M;
 
 L_N:
     mes "[Santa's Helper]";
     mes "\"Enjoy your holidays and I wish you a happy Christmas!\"";
-    close;
+    goto L_Close;
 
 L_NoItem:
     mes "[Santa's Helper]";
     mes "\"You dont seem to have enough presents.\"";
-    close;
+    goto L_Close;
 
 L_Done:
     mes "[Santa's Helper]";
     mes "\"All the children got their Christmas presents.";
     mes "Thank you for your help.\"";
-    close;
+    goto L_Close;
 
 L_TooMany:
     mes "[Santa's Helper]";
     mes "\"It doesn't look like you have room for this. Come back later.\"";
+    goto L_Close;
+
+L_Close:
+    set @purple_amount, 0;
+    set @blue_amount, 0;
+    set @green_amount, 0;
     close;
 }
diff --git a/world/map/npc/019-1/snowman.txt b/world/map/npc/019-1/snowman.txt
index 28f030f4..08513eae 100644
--- a/world/map/npc/019-1/snowman.txt
+++ b/world/map/npc/019-1/snowman.txt
@@ -1,10 +1,26 @@
-//
+// Author: accoring to git history probably Jaxad
+// quest made seasonal and adapted to new scripting standards by Jenalya
 
 019-1.gat,77,44,0|script|Snowman|129,{
     if( ChristmasQuest == 1) goto L_Done;
 
+    if ($@month == 12 || $@month == 1 || $@month == 2) goto L_Quest;
+
+    mes "A beautiful snowman. It looks almost alive.";
+    mes "Maybe the magic of Christmas time will breath life into it?";
+    goto L_Close;
+
+L_Quest:
+    if (Sex == 0)
+        set @sex$, "lady";
+    if (Sex == 1)
+        set @sex$, "man";
+    set @candy_amount, 15;
+    set @chocolate_amount, 10;
+    set @cactus_amount, 5;
+
     mes "[Snowman]";
-    mes "\"Hello there young man.";
+    mes "\"Hello there young " + @sex$ + ".";
     mes "Would you like a Christmas hat?\"";
     next;
 
@@ -15,52 +31,59 @@ L_Menu:
         "What do you need?", L_Need;
     mes "[Snowman]";
     mes "\"Well, thats too bad, but make sure to have the holiday spirit!\"";
-    close;
+    goto L_Close;
 
 L_Sure:
     mes "[Snowman]";
     mes "\"Hmm, let me see what you have.\"";
     next;
-    if(countitem("Candy") < 15)
+    if(countitem("Candy") < @candy_amount)
         goto L_NoItem;
-    if(countitem("ChocolateBar") < 10)
+    if(countitem("ChocolateBar") < @chocolate_amount)
         goto L_NoItem;
-    if(countitem("CactusPotion") < 5)
+    if(countitem("CactusPotion") < @cactus_amount)
         goto L_NoItem;
     getinventorylist;
     if (@inventorylist_count > 99)
         goto L_TooMany;
-    delitem "Candy", 15;
-    delitem "ChocolateBar", 10;
-    delitem "CactusPotion", 5;
+    delitem "Candy", @candy_amount;
+    delitem "ChocolateBar", @chocolate_amount;
+    delitem "CactusPotion", @cactus_amount;
     mes "[Snowman]";
     mes "\"Here you go, enjoy your new hat!\"";
     getitem "SantaHat", 1;
     set ChristmasQuest, 1;
-    close;
+    goto L_Close;
 
 L_Need:
     mes "[Snowman]";
     mes "\"For this special hat, I need a pint of magic and a little help.";
     mes "Just kidding. I would like to get some food:";
-    mes "15 pieces of Candy";
-    mes "10 Chocolate Bars";
-    mes "5 Cactus Potions\"";
+    mes @candy_amount + " pieces of Candy";
+    mes @chocolate_amount + " Chocolate Bars";
+    mes @cactus_amount + " Cactus Potions\"";
     next;
     goto L_Menu;
 
 L_NoItem:
     mes "[Snowman]";
     mes "\"Well, I am interested in some food and you don't have enought to get a hat.\"";
-    close;
+    goto L_Close;
 
 L_Done:
     mes "[Snowman]";
     mes "\"Thank you for your help!\"";
-    close;
+    goto L_Close;
 
 L_TooMany:
     mes "[Snowman]";
     mes "\"It doesn't look like you have room for this. Come back later.\"";
+    goto L_Close;
+
+L_Close:
+    set @sex$, "";
+    set @candy_amount, 0;
+    set @chocolate_amount, 0;
+    set @cactus_amount, 0;
     close;
 }