Making quests on 019-1 seasonal.

1 files changed, 38 insertions, 15 deletions

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;
 }