Basic framework for Eggshell hat. Lots of missing and broken items.

1 files changed, 59 insertions, 8 deletions

diff --git a/npc/001-4/lilica.txt b/npc/001-4/lilica.txt
index a2242f904..b5858258d 100644
--- a/npc/001-4/lilica.txt
+++ b/npc/001-4/lilica.txt
@@ -6,14 +6,16 @@
 
 001-4,139,151,0	script	Lilica#easter	NPC_EASTER,{
     mesn;
-    mesq lg("Ah, traveller! I am Lilica the Scary Bunny! I exchange many @@ for neat rewards!","Ah, traveller! I am Lilica the Scary Bunny! I exchange many @@ for neat rewards!", getitemlink(SilverEasteregg));
+    mesq lg("Ah, traveller! I am Lilica the Scary Bunny! I exchange many @@ and @@ for neat rewards!","Ah, traveller! I am Lilica the Scary Bunny! I exchange many @@ and @@ for neat rewards!", getitemlink(SilverEasteregg), getitemlink(GoldenEasteregg));
     next;
     mesn;
-    mesq l("Golden Eggs are used for the grand collectioner prize. Ah, I love Easter! I loooooooove it!");
+    mesq l("Golden Eggs are used for the grand collector prize. Ah, I love Easter! I loooooooove it!");
 
     menu
         l("Scary..........."), -,
         l("Trade Silver Eggs"), L_Silver,
+        l("Trade Golden Eggs"), L_Golden,
+        rif(EASTER_EVENT != gettime(7),l("I want an Eggshell Hat!")), L_Quest,
         l("View LeaderBoard"), L_Leader;
     close;
 
@@ -22,6 +24,11 @@ L_Silver:
     closedialog;
     close;
 
+L_Golden:
+    openshop "#eastershop2";
+    closedialog;
+    close;
+
 L_Leader:
 	.@nb = query_sql("SELECT c.name, i.amount FROM `inventory` AS i, `char` AS c WHERE i.nameid=834 AND i.char_id=c.char_id ORDER BY i.amount DESC LIMIT 10", .@name$, .@value);
 
@@ -35,7 +42,32 @@ L_Leader:
 	mes("8."+.@name$[7]+" ("+.@value[7]+")");
 	mes("9."+.@name$[8]+" ("+.@value[8]+")");
 	mes("10."+.@name$[9]+" ("+.@value[9]+")");
+    close;
 
+L_Quest:
+    setarray .@Seasonal, BlackCottonDye, SilverCottonDye, EggshellHat, OrangeCottonDye, TealCottonDye, RedCottonDye;
+    .@Hat=.@Seasonal[gettime(7)%6]; // Magically choose the hat from the array
+    mesn;
+    mesq l("Good choice! This year we're having a @@!", getitemlink(.@Hat));
+    next;
+    mesn;
+    mesq l("As usual, you can get only one hat yearly, for the symbolic amount of 30 @@ and 10 @@!", getitemlink(GoldenEasteregg), getitemlink(SilverEasteregg));
+    next;
+    menu
+        l("Maybe later."), -,
+        rif(countitem(GoldenEasteregg) >= 30 && countitem(SilverEasteregg) >= 10, l("Deal.")), L_QuestDone;
+    close;
+
+L_QuestDone:
+    inventoryplace .@Hat, 1;
+    EASTER_EVENT=gettime(7);
+    delitem GoldenEasteregg, 30;
+    delitem SilverEasteregg, 10;
+    // The code below not allow hat to leave user account. A bad idea here so I left commented.
+    //getitembound(.@Hat, 1, 1);
+    getnameditem(.@Hat, strcharinfo(0));
+    mesn;
+    mesq l("Here you go! Happy easter! Bhop bhop!");
     close;
 
 OnInit:
@@ -51,13 +83,10 @@ OnInit:
 OnInit:
 	tradertype(NST_CUSTOM);
 
-    // Rare Items
-	sellitem BunnyEars,2500;
-
-	sellitem GoldenEasteregg,50;
-
+	sellitem GoldenEasteregg,25;
 	sellitem StrangeCoin,20;
-	sellitem EasterEgg,5;
+	sellitem ChocolateMouboo,6;
+	sellitem EasterEgg,3;
     end;
 
 OnCountFunds:
@@ -70,7 +99,29 @@ OnPayFunds:
 	delitem SilverEasteregg,@price;
 	purchaseok();
 	end;
+}
+// Golden Easter Egg exchange.
+001-4,139,151,0	trader	#eastershop2	NPC_HIDDEN,{
+    end;
+
+OnInit:
+	tradertype(NST_CUSTOM);
+
+    // Rare Items
+	sellitem BunnyEars,50;
+	sellitem StrangeCoin,2;
+	sellitem SilverEasteregg,1;
+    end;
 
+OnCountFunds:
+	setcurrency(countitem(GoldenEasteregg));
+	end;
 
+OnPayFunds:
+	if( countitem(GoldenEasteregg) < @price )
+		end;
+	delitem GoldenEasteregg,@price;
+	purchaseok();
+	end;
 }