Fix some bugs (registercmd), improve a bit debug menu

1 files changed, 22 insertions, 3 deletions

diff --git a/npc/commands/debug.txt b/npc/commands/debug.txt
index e61858be..ad56d904 100644
--- a/npc/commands/debug.txt
+++ b/npc/commands/debug.txt
@@ -86,6 +86,8 @@ L_FocusSkills:
         l("Back"), -3,
         l("Focus Skill +"), -2,
         rif(getskilllv(SKILL_POOL), l("Focus Skill -")), -1,
+        l("Add all focus skills"), 0,
+        l("Remove all focus skills"), -4,
         ("Toggle Focus - Mallards Eye"), SKILL_MALLARDS_EYE,
         ("Toggle Focus - Brawling"), SKILL_BRAWLING,
         ("Toggle Focus - Speed"), SKILL_SPEED,
@@ -99,6 +101,23 @@ L_FocusSkills:
         skill SKILL_POOL, @pool+1, 0; break;
     case -1:
         skill SKILL_POOL, max(0, @pool-1), 0; break;
+    case 0:
+        addtoskill SKILL_MALLARDS_EYE, 9;
+        addtoskill SKILL_BRAWLING, 9;
+        addtoskill SKILL_SPEED, 9;
+        addtoskill SKILL_RESIST_POISON, 9;
+        addtoskill SKILL_ASTRAL_SOUL, 9;
+        addtoskill SKILL_RAGING, 9;
+        break;
+    case -4:
+        skill SKILL_POOL, 0, 0; break;
+        addtoskill SKILL_MALLARDS_EYE, 0;
+        addtoskill SKILL_BRAWLING, 0;
+        addtoskill SKILL_SPEED, 0;
+        addtoskill SKILL_RESIST_POISON, 0;
+        addtoskill SKILL_ASTRAL_SOUL, 0;
+        addtoskill SKILL_RAGING, 0;
+        break;
     default:
         if (FOCUSING & getpoolskillFID(@menuret)) {
             unpoolskill(@menuret);
@@ -669,15 +688,15 @@ L_close:
 }
 
 -	script	Debug Spell	NPC32767,{
-    if(!debug && getgmlevel() < CMD_DEBUG) end;
+OnDebug:
+    if (!debug && getgmlevel() < CMD_DEBUG) end;
     callfunc "Debug";
     end;
 OnDeprecated:
     message strcharinfo(0), "Debug : ##3The #debug spell has been superseded by the ##B@debug##b command.";
     end;
 OnInit:
-    registercmd "@debug", "Debug Spell";
-    registercmd "#debug", "Debug Spell::OnDeprecated";
+    registercmd "@debug", "Debug Spell::OnDebug";
     end;
 }