From: cohrs <cohrs>
Date: Mon, 14 Oct 2002 00:20:38 +0000 (+0000)
Subject: debug commands: lightsources and monpolycontrol
X-Git-Tag: MOVE2GIT~2369
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=db73f34150cc0a9db2ba2dad76eef1fb88738185;p=nethack

debug commands: lightsources and monpolycontrol
Given no objections to Pat's suggestion, putting back in the change to make
the newest debug commands consistent with the others, removing the space
from the former and the underscore from the latter.
---

diff --git a/dat/wizhelp b/dat/wizhelp
index fd81c6939..788ececba 100644
--- a/dat/wizhelp
+++ b/dat/wizhelp
@@ -11,8 +11,8 @@ Debug-Mode Quick Reference:
 ^X  ==  show attributes including intrinsic attributes.
 
 #levelchange == change experience level
-#light sources == show mobile light sources
-#monpoly_control == control monster polymorphs
+#lightsources == show mobile light sources
+#monpolycontrol == control monster polymorphs
 #panic == panic test
 #poly == polymorph self
 #seenv == show seen vectors
diff --git a/doc/fixes34.1 b/doc/fixes34.1
index 7e4550723..bdff0262d 100644
--- a/doc/fixes34.1
+++ b/doc/fixes34.1
@@ -278,6 +278,8 @@ don't display the "intones:" prefix when !soundok since the message suffix
 	won't be displayed in this case
 document "sound" option in Guidebook
 destroy traps that are buried by boulders dropped in water
+renamed debug commands: light sources -> lightsources,
+	monpoly_control -> monpolycontrol
 
 
 Platform- and/or Interface-Specific Fixes
diff --git a/src/cmd.c b/src/cmd.c
index e600477ec..247981363 100644
--- a/src/cmd.c
+++ b/src/cmd.c
@@ -1486,8 +1486,8 @@ struct ext_func_tab extcmdlist[] = {
 #if defined(WIZARD)
 static const struct ext_func_tab debug_extcmdlist[] = {
 	{"levelchange", "change experience level", wiz_level_change, TRUE},
-	{"light sources", "show mobile light sources", wiz_light_sources, TRUE},
-	{"monpoly_control", "control monster polymorphs", wiz_mon_polycontrol, TRUE},
+	{"lightsources", "show mobile light sources", wiz_light_sources, TRUE},
+	{"monpolycontrol", "control monster polymorphs", wiz_mon_polycontrol, TRUE},
 	{"panic", "test panic routine (fatal to game)", wiz_panic, TRUE},
 	{"poly", "polymorph self", wiz_polyself, TRUE},
 	{"seenv", "show seen vectors", wiz_show_seenv, TRUE},