summaryrefslogtreecommitdiff
path: root/npc/014-4
diff options
context:
space:
mode:
Diffstat (limited to 'npc/014-4')
-rw-r--r--npc/014-4/kamelot.txt57
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;
}