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/

4 files changed, 42 insertions, 3 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:
diff --git a/npc/001-12/_import.txt b/npc/001-12/_import.txt
index 7ce184ff6..33a1ed381 100644
--- a/npc/001-12/_import.txt
+++ b/npc/001-12/_import.txt
@@ -1,3 +1,4 @@
-// Map 001-12: Enchanted Forest
+// Map 001-12: Southeast Enchanted Forest
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
 "npc/001-12/_mobs.txt",
+"npc/001-12/event_soulmenhir.txt",
diff --git a/npc/001-12/_mobs.txt b/npc/001-12/_mobs.txt
index d42ae3a76..c5c1f4a3a 100644
--- a/npc/001-12/_mobs.txt
+++ b/npc/001-12/_mobs.txt
@@ -1,5 +1,5 @@
 // This file is generated automatically. All manually added changes will be removed when running the Converter.
-// Map 001-12: Enchanted Forest mobs
+// Map 001-12: Southeast Enchanted Forest mobs
 001-12,99,98,23,23	monster	Clover Field	1028,2,90000,120000
 001-12,90,88,70,68	monster	Lovely Fluffy	1050,40,22000,1000
 001-12,22,89,6,69	monster	Duck	1029,4,60000,120000
diff --git a/npc/001-12/event_soulmenhir.txt b/npc/001-12/event_soulmenhir.txt
new file mode 100644
index 000000000..27a563cc1
--- /dev/null
+++ b/npc/001-12/event_soulmenhir.txt
@@ -0,0 +1,29 @@
+// TMW2 scripts.
+// Author:
+//    Jesusalva
+// Description:
+//    Special Soul Menhir which only allows leaving the map.
+
+001-12,54,16,0	script	Soul Stone#001-12	NPC_SOUL_CLEAN,{
+    mesn;
+    mes l("(A mystical aura surrounds this stone. It probably can return you home. What do you do?)");
+
+    menu
+        l("Touch it."), L_Warp,
+        l("Return to main island."), L_WarpEnchanted,
+        l("Leave it alone."), -;
+    close;
+
+L_Warp:
+    warp "Save", 0, 0;
+    close;
+
+L_WarpEnchanted:
+    warp "001-11", 37, 31;
+    close;
+
+OnInit:
+    .distance = 10;
+    end;
+}
+