From e5b2352f872148d5e89922b9d19399308c10963c Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Wed, 29 Apr 2020 23:57:22 -0300
Subject: Add a debug for Kamelot

---
 npc/014-4/kamelot.txt | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++
 npc/042-2/boss.txt    |  1 +
 2 files changed, 58 insertions(+)

diff --git a/npc/014-4/kamelot.txt b/npc/014-4/kamelot.txt
index a233be4da..b075ad165 100644
--- a/npc/014-4/kamelot.txt
+++ b/npc/014-4/kamelot.txt
@@ -113,5 +113,62 @@ OnTouch:
     if (is_admin())
         warp "042-0@"+.@g, any(59, 60), 80;
     end;
+
+// Debug is only allowed if server is in override mode
+OnDebug:
+    if (!$@GM_OVERRIDE) end;
+    .@g=getcharid(2);
+    if (.@g < 1) end;
+    mes "Kamelot Debug";
+    select
+        l("Abort"),
+        l("Reset"),
+        l("Reset & Destroy"),
+        l("Quest: Skip Weapons Room"),
+        l("Quest: Skip Krukan fight"),
+        "",
+        "",
+        "",
+        "",
+        l("Warp: Jump to Entrance"), // 10
+        l("Warp: Jump to Weapon Room"),
+        l("Warp: Jump to Basement"),
+        l("Warp: Jump to Jail");
+    mes "";
+    switch (@menu) {
+        case 2:
+            KamelotCleanup(.@g);
+            break;
+        case 3:
+            instance_destroy($@KAMELOT_ID[.@g]);
+            KamelotCleanup(.@g);
+            break;
+        case 4:
+            $KAMELOT_KEYMASK[.@g]=$KAMELOT_KEYMASK[.@g]|16;
+            break;
+        case 5:
+            // FIXME: Can a variable really be named "$@GTEMP_042-2@10"?
+            .@m$=("042-2@"+.@g);
+            setd("$@GTEMP_"+.@m$, 0);
+            setd("$@GTEMP_HP_"+.@m$, 0);
+            setd("$@GTEMP_PC_"+.@m$, 0);
+            setd("$@GTEMP_MX_"+.@m$, 0);
+            $KAMELOT_QUEST[.@g]=$KAMELOT_QUEST[.@g]|4;
+            mes "WARNING: This skips jail as well.";
+            break;
+        case 10:
+            warp "042-0@"+.@g, 60, 40; break;
+        case 11:
+            warp "042-1@"+.@g, 40, 65; break;
+        case 12:
+            warp "042-2@"+.@g, 44, 45; break;
+        case 13:
+            warp "042-3@"+.@g, 60, 130; break;
+    }
+    close;
+
+OnInit:
+    bindatcmd "kamelotdebug", "#KamelotEnter::OnDebug", 99, 100, 1;
+    end;
 }
 
diff --git a/npc/042-2/boss.txt b/npc/042-2/boss.txt
index 7681afc0c..7a3ef4599 100644
--- a/npc/042-2/boss.txt
+++ b/npc/042-2/boss.txt
@@ -190,6 +190,7 @@ OnKillMob:
     end;
 
 OnKillBoss:
+    .@m$=instance_mapname("042-2");
     setd("$@GTEMP_"+.@m$, 0);
     setd("$@GTEMP_HP_"+.@m$, 0);
     setd("$@GTEMP_PC_"+.@m$, 0);
-- 
cgit v1.2.3-60-g2f50