Allow GM to override season drop

1 files changed, 17 insertions, 0 deletions

diff --git a/npc/functions/seasons.txt b/npc/functions/seasons.txt
index 08e93e481..be49e80f7 100644
--- a/npc/functions/seasons.txt
+++ b/npc/functions/seasons.txt
@@ -33,6 +33,23 @@ function	script	season	{
     return (.@current_month / 3 + .@is_after_season_day) % 4;
 }
 
+
+function	script	SeasonControl	{
+    do
+    {
+        select
+            "Summer Start",
+            "Summer End",
+            "Abort";
+
+        switch (@menu) {
+            case 1: donpcevent("#SeasonCore::OnSummerStart"); break;
+            case 2: donpcevent("#SeasonCore::OnSummerEnd"); break;
+        }
+    } while (@menu != 3);
+    return;
+}
+
 000-0,0,0,0	script	#SeasonCore	NPC_HIDDEN,{
     end;