Clear some unused debug stuff

3 files changed, 17 insertions, 270 deletions

diff --git a/npc/commands/debug-look.txt b/npc/commands/debug-look.txt
index 869616e2f..c22140bde 100644
--- a/npc/commands/debug-look.txt
+++ b/npc/commands/debug-look.txt
@@ -96,7 +96,4 @@ OnCall:
     BarberDebug;
     closedialog;
     end;
-
-OnInit:
-    bindatcmd "look", "@look::OnCall", 99, 99, 0;
 }
diff --git a/npc/commands/debug-preset.txt b/npc/commands/debug-preset.txt
deleted file mode 100644
index 92d9314b8..000000000
--- a/npc/commands/debug-preset.txt
+++ /dev/null
@@ -1,247 +0,0 @@
-// Preset / routine system
-// Author:
-//    gumi
-// Description:
-//    allows to execute multiple commands in a single step
-//    to ease testing and debugging
-//
-// usage: @pre [options] <instruction>[, <instruction>...]
-// usage: DoRoutine "[options] <instruction>[, <instruction>...]";
-//
-// example: @pre -s a22 v14
-//          resets all stats, gives 22 agi, gives 14 vit
-//
-// ^ actual documentation may come one day, when I feel like it
-//   *hides*
-// Note from Jesusalva: I do not trust this script works well for TMW2.
-
-function	script	DoRoutine	{
-
-    function parsev {
-        // parsev(base, patterns{, min{, max}}) => value
-        .@value = getarg(0, 0);
-        .@raw$ = getarg(1, "");
-        .@patterns = explode(.@patterns$, .@raw$, "|");
-
-        for (.@pattern = 0; .@pattern < .@patterns; ++.@pattern)
-        {
-            .@pattern$ = .@patterns$[.@pattern];
-            .@len = getstrlen(.@pattern$);
-
-            if (charat(.@pattern$, 0) == "=" && .@len >= 2)
-            {
-                .@value = atoi(delchar(.@pattern$, 0));
-                break;
-            }
-
-            else if (charat(.@pattern$, 0) == "+" && .@len >= 2)
-            {
-                if (charat(.@pattern$, 1) == "+" && getargcount() >= 4)
-                    .@value = getarg(3);
-                else
-                    .@value += atoi(delchar(.@pattern$, 0));
-            }
-
-            else if (charat(.@pattern$, 0) == "-" && .@len >= 2)
-            {
-                if (charat(.@pattern$, 1) == "-" && getargcount() >= 3)
-                    .@value = getarg(2);
-                else
-                    .@value -= atoi(delchar(.@pattern$, 0));
-            }
-
-            else if (charat(.@pattern$, 0) == ">" && .@len >= 2)
-            {
-                if (charat(.@pattern$, 1) == "=" && .@len >= 3)
-                    .@value = max(atoi(substr(.@pattern$, 2, .@len - 1)), .@value);
-                else
-                    .@value = max(atoi(delchar(.@pattern$, 0)) + 1, .@value);
-            }
-
-            else if (charat(.@pattern$, 0) == "<" && .@len >= 2)
-            {
-                if (charat(.@pattern$, 1) == "=" && .@len >= 3)
-                    .@value = min(atoi(substr(.@pattern$, 2, .@len - 1)), .@value);
-                else
-                    .@value = min(atoi(delchar(.@pattern$, 0)) - 1, .@value);
-            }
-
-            else if (.@len >= 1)
-            {
-                .@value = atoi(.@pattern$);
-                break;
-            }
-        }
-
-        if (getargcount() >= 3)
-            .@value = max(getarg(2), .@value);
-
-        if (getargcount() >= 4)
-            .@value = min(getarg(3), .@value);
-
-        return .@value;
-    }
-
-    .@routine$ = strip(getarg(0,""));
-    .@m = explode(.@routine$[0], .@routine$, " "); // prep the base array
-
-    if (charat(.@routine$[0], 0) == "-")
-    {
-        if (compare(.@routine$[0], "t"))
-        {
-            clearitem;
-        }
-
-        if (compare(.@routine$[0], "e"))
-        {
-            nude;
-        }
-
-        if (compare(.@routine$[0], "k"))
-        {
-            resetskill;
-        }
-
-        if (compare(.@routine$[0], "s"))
-        {
-            resetstatus;
-        }
-
-        if (compare(.@routine$[0], "x"))
-        {
-            resetlvl 2;
-        }
-
-        if (compare(.@routine$[0], "q"))
-        {
-            //doevent "::OnGlobalQuestReset"; // executes in all quest npcs // FIXME: maybe have a `resetquest` buildin?
-            // FIXME: ^ need a buildin that can run *right now* instead of on script end
-        }
-
-        if (compare(.@routine$[0], "n"))
-        {
-            closeclientdialog;
-        }
-
-        .@i = 1;
-    }
-
-    for (; .@i < .@m; ++.@i)
-    {
-        .@type = ord(charat(strip(.@routine$[.@i]), 0));
-
-        if (.@type > 0)
-        {
-            .@raw$ = delchar(.@routine$[.@i], 0);
-            .@args = explode(.@args$, .@raw$, ",");
-            .@a = atoi(.@args$[0]);
-            .@b = atoi(.@args$[1]);
-            .@c = atoi(.@args$[2]);
-            .@d = atoi(.@args$[3]);
-            .@e = atoi(.@args$[4]);
-
-            switch (.@type)
-            {
-            case 97: /* a => Agi */
-                .@base = readparam(bAgi);
-                statusup2 bAgi, parsev(.@base, .@args$[0], 1, 99) - .@base;
-                break;
-            /* (b) */
-            case 99: /* c => job */
-                jobchange max(0, min(6, .@a));
-                break;
-            case 100: /* d => Dex */
-                .@base = readparam(bDex);
-                statusup2 bDex, parsev(.@base, .@args$[0], 1, 99) - .@base;
-                break;
-            case 101: /* e => equip */
-                equip max(1, min(32767, .@a));
-                break;
-            /* (f) */
-            /* (g) => gender (reserved) */
-            /* (h) */
-            case 105: /* i => Int */
-                .@base = readparam(bInt);
-                statusup2 bInt, parsev(.@base, .@args$[0], 1, 99) - .@base;
-                break;
-            /* (j) */
-            case 107: /* k => skill */
-                .@k = max(1, min(32767, .@a));
-                skill .@k, parsev(getskilllv(.@k), .@args$[1], 0, 10), 0;
-                break;
-            case 108: /* l => luk */
-                .@base = readparam(bLuk);
-                statusup2 bLuk, parsev(.@base, .@args$[0], 1, 99) - .@base;
-                break;
-            /* (m) => mercenary (reserved) */
-            /* (n) => talk to npc (reserved) */
-            /* (o) */
-            case 112: /* p => pet */
-                makepet max(1002, min(32767, .@a));
-                break;
-            case 113: /* q => quest */
-                .@q = max(0, min(32767, .@a));
-                setq .@q, parsev(getq(.@q), .@args$[1]),
-                          parsev(getq2(.@q), .@args$[2]),
-                          parsev(getq3(.@q), .@args$[3]),
-                          parsev(getqtime(.@q), .@args$[4]);
-                break;
-            /* (r) */
-            case 115: /* s => Str */
-                .@base = readparam(bStr);
-                statusup2 bStr, parsev(.@base, .@args$[0], 1, 99) - .@base;
-                break;
-            case 116: /* t => item */
-                .@t = max(1, min(32767, .@a));
-                .@c = countitem(.@t);
-                .@v = parsev(.@c, .@args$[1], 0, 32767);
-                if (.@c > .@v)
-                    delitem .@t, .@c - .@v;
-                else if (.@c < .@v)
-                    getitem .@t, .@v - .@c;
-                break;
-            /* (u) */
-            case 118: /* v => vit */
-                .@base = readparam(bVit);
-                statusup2 bVit, parsev(.@base, .@args$[0], 1, 99) - .@base;
-                break;
-            case 119: /* w => warp */
-                warp .@args$[0], .@b, .@c;
-                break;
-            case 120: /* x => base level */
-                BaseLevel = parsev(BaseLevel, .@args$[0], 1, 99);
-                BaseExp = parsev(BaseExp, .@args$[1], 0);
-                break;
-            case 121: /* y => job level */
-                JobLevel = parsev(JobLevel, .@args$[0], 1, 255);
-                JobExp = parsev(JobExp, .@args$[1], 0);
-                break;
-            case 122: /* z => zeny */
-                Zeny = parsev(Zeny, .@args$[0], 0, 0x7FFFFFFE);
-                BankVault = parsev(BankVault, .@args$[1], 0, MAX_BANK_ZENY);
-                break;
-            }
-        }
-    }
-
-    return;
-}
-
--	script	@pre	32767,{
-    end;
-
-OnCall:
-    if (!debug && !is_admin())
-    {
-        end;
-    }
-    if (.@atcmd_parameters$[0] != "")
-    {
-        .@atcmd_parameters$[0] = implode(.@atcmd_parameters$[0], " ");
-    }
-    DoRoutine strip(.@atcmd_parameters$[0]);
-    end;
-
-OnInit:
-    bindatcmd "pre", "@pre::OnCall", 99, 99, 1;
-}
diff --git a/npc/commands/debug.txt b/npc/commands/debug.txt
index 4d04cb99a..5bca29129 100644
--- a/npc/commands/debug.txt
+++ b/npc/commands/debug.txt
@@ -5,8 +5,7 @@ function	script	GlobalDebugMenu	{
             resetskill;
             resetlvl 1;
             dispbottom l("Reset done!");
-            if (getarg(0,0) == 3)
-            {
+            if (getarg(0,0) == 3) {
                 closedialog;
                 doevent "::OnGlobalQuestReset"; // executes in all quest npcs // FIXME: maybe have a `resetquest` buildin?
                 Zeny = 0;
@@ -21,13 +20,12 @@ function	script	GlobalDebugMenu	{
         setnpcdialogtitle l("Debug - Reset");
         mes l("What do you want to reset?");
         select
-            menuimage("actions/abort", l("Abort")),
-            menuimage("actions/reset", l("Reset stats, skills, level")),
-            menuimage("actions/nuke", l("Reset EVERYTHING")),
-            menuimage("actions/back", l("Return to Debug menu"));
+            l("Abort"),
+            l("Reset stats, skills, level"),
+            l("Reset EVERYTHING"),
+            l("Return to Debug menu");
 
-        switch (@menu)
-        {
+        switch (@menu) {
             case 2:
             case 3: doReset @menu;
         }
@@ -96,15 +94,15 @@ function	script	GlobalDebugMenu	{
         mes "";
         mes l("What do you want to do?");
         select
-            menuimage("actions/manage", l("Change my level")),
-            menuimage("actions/manage", l("Change my stats")),
-            menuimage("actions/manage", l("Change my skills")),
-            menuimage("actions/manage", l("Change my appearance")),
-            menuimage("actions/add", l("Create items")),
-            menuimage("actions/add", l("Get money")),
-            menuimage("actions/edit", l("Change my quests")),
-            menuimage("actions/reset", l("Reset")),
-            rif(getarg(0,0), menuimage("actions/home", l("Return to Super Menu")));
+            l("Change my level"),
+            l("Change my stats"),
+            l("Change my skills"),
+            l("Change my appearance"),
+            l("Create items"),
+            l("Get money"),
+            l("Change my quests"),
+            l("Reset"),
+            rif(getarg(0,0), l("Return to Super Menu"));
 
         .@c = getarg(0,0) ? 2 : 1;
 
@@ -115,7 +113,7 @@ function	script	GlobalDebugMenu	{
             case 3: GlobalSkillDebug .@c; break;
             case 4: BarberDebug .@c; break;
             case 5: closedialog; clientcommand "createitems"; end;
-            case 6: Zeny = 0x7FFFFFFE; break;
+            case 6: dispbottom l("Use ##B@zeny##b instead!"); break;
             case 7: GlobalQuestDebug .@c; break;
             case 8: resetAll; break;
             case 9: return;
@@ -129,8 +127,7 @@ function	script	GlobalDebugMenu	{
     end;
 
 OnCall:
-    if (!debug && !is_admin())
-    {
+    if (!debug && !is_admin()) {
         end;
     }
     GlobalDebugMenu;