World Cup is about to start, interrupt coding.

1 files changed, 37 insertions, 0 deletions

diff --git a/npc/003-10/quirino.txt b/npc/003-10/quirino.txt
index 0ebea21c8..3f845b022 100644
--- a/npc/003-10/quirino.txt
+++ b/npc/003-10/quirino.txt
@@ -5,8 +5,14 @@
 // Description:
 //    Hunger Games™ version for The Mana World Brazil v2, created by Ernando Quirino.
 //    Entrance to Hungry Quirin Arena
+// Variables:
+//      $@EQ_STATUS
+//          0: Register open
+//          1: Fight happening
+//          2: Event finished
 
 001-8,0,0,0	script	Quirin	NPC_ERNANDO,{
+    if (is_gm()) goto L_Hub;
     if ($EVENT$ != "Hunger") goto L_NoSeason;
     if ($@EQ_STATUS == 0)
         goto L_Register;
@@ -75,6 +81,37 @@ L_Full:
     mesq l("You cannot bring anything to the arena. Please put everything on the storage.");
     close;
 
+L_Hub:
+    mesn;
+    mes col("Welcome to HUNGRY QUIRIN ARENA mangment panel.", 9);
+    mes col("Current Event: "+$EVENT$,9);
+    mes col("Event stage: "+$@EQ_STATUS, 9);
+    mes l("Current player count: @@/5 must be online.", getusers(1));
+    mes l("Current arena player count: @@ on map. (Min. 3 to begin event)", getmapusers("001-8"));
+
+    // Open event? Minimum 5 connections or GM_OVERRIDE flag.
+    if ($EVENT$ != "Hunger" && (getusers(1) >= 5 || $@GM_OVERRIDE)) {
+        next;
+        mes col("Activate event?", 1);
+        if (askyesno() == ASK_YES)
+            $EVENT$="Hunger";
+        close;
+    }
+
+    // Main Control menu. Not using l() on purpose.
+
+    select
+        rif($@EQ_STATUS == 0 && (getmapusers("001-8") >= 3 || $@GM_OVERRIDE), "Start Event!"),
+        rif($@EQ_STATUS == 1, "Send wave of items and monsters!"),
+        "I'm done.";
+
+    if (@menu == 1)
+        donpcevent("#QuirinoHUB::OnStart");
+    if (@menu == 2)
+        donpcevent("#QuirinoHUB::OnSendWave");
+
+    close;
+
 OnInit:
     .sex=G_MALE;
     .distance=5;