Valentine Day not working yet

1 files changed, 7 insertions, 0 deletions

diff --git a/npc/functions/soul_menhir.txt b/npc/functions/soul_menhir.txt
index d08e09b71..52452e7d3 100644
--- a/npc/functions/soul_menhir.txt
+++ b/npc/functions/soul_menhir.txt
@@ -9,6 +9,7 @@ function	script	SoulMenhir	{
     menu
         l("Touch it."), L_Bind,
         rif($@GM_EVENT, l("Send soul to the Mana Plane for GM events")), L_Aeros,
+        rif($EVENT$ == "Valentine", l("[Valentine Day] Send soul to the Valentine Cliff!")), L_Valentine,
         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,
         rif($EVENT$ == "Christmas", l("[Christmas] Send soul to the Christmas Workshop!")), L_Xmas, // TODO: In future there'll be an event map
@@ -68,6 +69,12 @@ L_Aeros:
     message strcharinfo(0), l("You are now at the Mana Plane of Existence, at the Floating Island of Aeros.");
     close;
 
+L_Valentine:
+    if ($EVENT$ != "Valentine") goto L_DontPanic;
+    warp "001-11", 38, 32;
+    message strcharinfo(0), l("You are now at the Valentine Cliff. Death penalty is active.");
+    close;
+
 L_Easter:
     if ($EVENT$ != "Easter") goto L_DontPanic;
     warp "001-4", 151, 157;