Additional island, the Soul Menhirs, etc.

It'll be publicy available on Friday, the Valentine Day (14/02/2020).
During the first event day (13/02/2020) not everyone can attend, so it have
less spawns available than on the weekend. Also concentrate more players.

Note: Subject to change. We could also restrict 001-12 based on online player
count, or not restrict it at all.
Note 2: Hey @Micksha look at this, A lone Whirly Bird during Valentine Day! \o/

1 files changed, 10 insertions, 1 deletions

diff --git a/npc/001-11/event_soulmenhir.txt b/npc/001-11/event_soulmenhir.txt
index a694eda7b..5f091756c 100644
--- a/npc/001-11/event_soulmenhir.txt
+++ b/npc/001-11/event_soulmenhir.txt
@@ -7,11 +7,16 @@
 001-11,37,31,0	script	Soul Stone#001-11	NPC_SOUL_CLEAN,{
     mesn;
     mes l("(A mystical aura surrounds this stone. It probably can return you home. What do you do?)");
+    if (is_staff())
+        mesc l("Current date: %d", numdate()), 9;
+    if (numdate() < 20200214)
+        mesc l("Additional Hunting Island will be released on Valentine Day!");
 
     menu
         l("Touch it."), L_Warp,
         rif(!#VALENTINE_EQUIPMENT2020 && gettime(GETTIME_YEAR) == 2020, l("Obtain event equipment")), L_EVTC2020,
-        rif(getusers(1) >= 6, l("Warp to a mirror island.")), L_WarpMirror,
+        rif($@GM_OVERRIDE && getusers(1) >= 6, l("Warp to a mirror island.")), L_WarpMirror,
+        rif(numdate() >= 20200214, l("Warp to extra island!")), L_WarpEnchanted,
         l("Leave it alone."), -;
     close;
 
@@ -19,6 +24,10 @@ L_Warp:
     warp "Save", 0, 0;
     close;
 
+L_WarpEnchanted:
+    warp "001-12", 56, 20;
+    close;
+
 // Done for multiple players
 // FIXME This obviously will not work
 L_WarpMirror: