Update version for Lilica

1 files changed, 13 insertions, 2 deletions

diff --git a/npc/001-4/lilica.txt b/npc/001-4/lilica.txt
index b5858258d..325b0b504 100644
--- a/npc/001-4/lilica.txt
+++ b/npc/001-4/lilica.txt
@@ -45,7 +45,7 @@ L_Leader:
     close;
 
 L_Quest:
-    setarray .@Seasonal, BlackCottonDye, SilverCottonDye, EggshellHat, OrangeCottonDye, TealCottonDye, RedCottonDye;
+    setarray .@Seasonal, EggshellHat, EggshellHat, GreenEggshellHat, OrangeEggshellHat, EggshellHat, EggshellHat;
     .@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));
@@ -60,9 +60,10 @@ L_Quest:
 
 L_QuestDone:
     inventoryplace .@Hat, 1;
-    EASTER_EVENT=gettime(7);
     delitem GoldenEasteregg, 30;
     delitem SilverEasteregg, 10;
+    if (rand(0, 10000) < 1000) goto L_Unlucky;
+    EASTER_EVENT=gettime(7);
     // 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));
@@ -70,6 +71,16 @@ L_QuestDone:
     mesq l("Here you go! Happy easter! Bhop bhop!");
     close;
 
+L_Unlucky:
+    getitem StrangeCoin, 15;
+    mesn;
+    mes l("\"Oh... Sorry, @@.", strcharinfo(0));
+    mes l("But in accordance to [@@https://tmw2.org/forums/viewtopic.php?pid=8|Community Decision@@], you were unlucky.");
+    mes l("This means ##BAll items were lost##b, and you need to collect EVERYTHING, again, to get the hat.");
+    mes l("But hey, it is Easter and the poll is still open, so here are 15 @@ as a consolation prize.", getitemlink(StrangeCoin));
+    mes l("Better luck next time!\"");
+    close;
+
 OnInit:
     .sex = G_OTHER;
     .distance = 5;