Trigger for Worker Day, untested, unreviewed

1 files changed, 7 insertions, 0 deletions

diff --git a/npc/functions/soul_menhir.txt b/npc/functions/soul_menhir.txt
index 865d5a6a1..831451e89 100644
--- a/npc/functions/soul_menhir.txt
+++ b/npc/functions/soul_menhir.txt
@@ -6,6 +6,7 @@ function	script	SoulMenhir	{
         l("Touch it."), L_Bind,
         rif($@GM_EVENT, l("Send soul to the Mana Plane for GM events")), L_Aeros,
         rif($EVENT$ == "Easter", l("[Easter] Send soul to the Mana Forest!")), L_Easter,
+        rif($EVENT$ == "Worker Day", l("[Worker Day] Send soul to the Contributor Cave!")), L_Worker,
         l("Leave it alone."), L_Return;
 
 //L_Towel:
@@ -50,6 +51,12 @@ L_Easter:
     message strcharinfo(0), l("You are now at the Mana Plane of Existence, at the Magical Forest.");
     close;
 
+L_Worker:
+    if ($EVENT$ != "Worker Day") goto L_DontPanic;
+    warp "001-5", 22, 79;
+    message strcharinfo(0), l("You are now at the Mana Plane of Existence, at the Contributor's Cave.");
+    close;
+
 L_DontPanic:
     message strcharinfo(0), l("(A strange barrier keeps you from touching the stone at this time.)");
     goto L_Return;