Add a debug for Kamelot

1 files changed, 57 insertions, 0 deletions

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;
 }