Dream Tower Event. Will begin this monday. Obviously poorly tested.

And balance-wise broken as ****** but whatever - it is done.
And it is 05:37, any issues can be addressed after waking up.

1 files changed, 8 insertions, 0 deletions

diff --git a/npc/functions/soul_menhir.txt b/npc/functions/soul_menhir.txt
index c192b5f66..2b2b1a897 100644
--- a/npc/functions/soul_menhir.txt
+++ b/npc/functions/soul_menhir.txt
@@ -21,6 +21,7 @@ function	script	SoulMenhir	{
         rif($EVENT$ == "Easter", l("[Easter] Send soul to the Mana Forest!")), L_Easter,
         rif($EVENT$ == "Worker", l("[Worker Day] Send soul to the Contributor Cave!")), L_Worker,
         rif($EVENT$ == "Christmas" && BaseLevel >= 20, l("[Christmas] Send soul to the Christmas Workshop!")), L_Xmas, // TODO: In future there'll be an event map
+        rif($EVENT$ == "Tower" && countitem(EventDreamTicket), l("Dream Tower")), L_Tower,
         l("Leave it alone."), -;
 
     return;
@@ -91,6 +92,13 @@ L_Xmas:
     message strcharinfo(0), l("You are now at the Christmas Workshop.");
     close;
 
+// FIXME: Dream Tower Warp
+L_Tower:
+    if ($EVENT$ != "Tower") goto L_DontPanic;
+    if (!countitem(EventDreamTicket)) goto L_DontPanic;
+    doevent "sDreamTower::OnWarpTo";
+    close;
+
 L_DontPanic:
     message strcharinfo(0), l("(A strange barrier keeps you from touching the stone at this time.)");
     return;