wizmode level teleport via menu

If you answer '?' to the level teleport prompt
in debug mode, you get a menu to choose
from, similar to the control-O print_dungeon
display.

diff --git a/doc/fixes34.2 b/doc/fixes34.2
index c114b1ed3abdde56f5739979d4f83f3fbccdab13..9e240079969cac337d50a0dbaf150939717d9723 100644 (file)
--- a/doc/fixes34.2
+++ b/doc/fixes34.2
@@ -157,6 +157,7 @@ unix: better error message for .nethackrc access problems
 
 General New Features
 --------------------
+debug mode level teleport menu via '?'
 
 
 Platform- and/or Interface-Specific New Features

diff --git a/include/extern.h b/include/extern.h
index 0e16dd5790b3daf003daf248de42e36fb19dde8f..056d92c1f752bf8908ac39dbc50943fe2ad3b3e0 100644 (file)
--- a/include/extern.h
+++ b/include/extern.h
@@ -505,7 +505,7 @@ E boolean FDECL(Invocation_lev, (d_level *));
 E xchar NDECL(level_difficulty);
 E schar FDECL(lev_by_name, (const char *));
 #ifdef WIZARD
-E void NDECL(print_dungeon);
+E schar FDECL(print_dungeon, (BOOLEAN_P));
 #endif
 
 /* ### eat.c ### */

diff --git a/include/wintype.h b/include/wintype.h
index 2491d0ec1e2ae2b95519783c8658b6ae5226879b..b7a4aa12bb08df41ab6e899352195d707923efab 100644 (file)
--- a/include/wintype.h
+++ b/include/wintype.h
@@ -13,6 +13,7 @@ typedef union any {
     struct obj *a_obj;
     int  a_int;
     char a_char;
+    schar a_schar;
     /* add types as needed */
 } anything;
 #define ANY_P union any /* avoid typedef in prototypes */

diff --git a/src/cmd.c b/src/cmd.c
index 6ffe9699bd81e945e5f2ac9281ab5f27c2d534ca..ee4796d4bb095b27173a4fb0e4f6a31a4481eb6b 100644 (file)
--- a/src/cmd.c
+++ b/src/cmd.c
@@ -555,7 +555,7 @@ wiz_genesis()
 STATIC_PTR int
 wiz_where()
 {
-       if (wizard) print_dungeon();
+       if (wizard) (void) print_dungeon(FALSE);
        else        pline("Unavailable command '^O'.");
        return 0;
 }

diff --git a/src/dungeon.c b/src/dungeon.c
index 815d1dbb9c1ffa695fdc1a2c05a34caf879c9ed9..9a2bec38824cebf3515cd7bf5979c37c00389424 100644 (file)
--- a/src/dungeon.c
+++ b/src/dungeon.c
@@ -44,7 +44,7 @@ STATIC_DCL xchar FDECL(pick_level, (boolean *, int));
 STATIC_DCL boolean FDECL(place_level, (int, struct proto_dungeon *));
 #ifdef WIZARD
 STATIC_DCL const char *FDECL(br_string, (int));
-STATIC_DCL void FDECL(print_branch, (winid, int, int, int));
+STATIC_DCL void FDECL(print_branch, (winid, int, int, int, BOOLEAN_P, char *));
 #endif
 
 #ifdef DEBUG
@@ -1519,7 +1519,6 @@ const char *nam;
     return lev;
 }
 
-
 #ifdef WIZARD
 
 /* Convert a branch type to a string usable by print_dungeon(). */
@@ -1538,14 +1537,17 @@ br_string(type)
 
 /* Print all child branches between the lower and upper bounds. */
 STATIC_OVL void
-print_branch(win, dnum, lower_bound, upper_bound)
+print_branch(win, dnum, lower_bound, upper_bound, bymenu, menuletter)
     winid win;
     int   dnum;
     int   lower_bound;
     int   upper_bound;
+    boolean bymenu;
+    char *menuletter;
 {
     branch *br;
     char buf[BUFSZ];
+    anything any;
 
     /* This assumes that end1 is the "parent". */
     for (br = branches; br; br = br->next) {
@@ -1555,14 +1557,25 @@ print_branch(win, dnum, lower_bound, upper_bound)
                    br_string(br->type),
                    dungeons[br->end2.dnum].dname,
                    depth(&br->end1));
-           putstr(win, 0, buf);
+           if (bymenu) {
+               schar lev = depth(&br->end1);
+               any.a_void = 0;
+               if (lev >= 0) any.a_schar = lev + 1;
+               else any.a_schar = lev;
+               add_menu(win, NO_GLYPH, &any, *menuletter,
+                               0, ATR_NONE, buf, MENU_UNSELECTED);
+               if (*menuletter == 'z') *menuletter = 'A';
+               else *menuletter += 1;
+           } else
+               putstr(win, 0, buf);
        }
     }
 }
 
 /* Print available dungeon information. */
-void
-print_dungeon()
+schar
+print_dungeon(bymenu)
+boolean bymenu;
 {
     int     i, last_level, nlev;
     char    buf[BUFSZ];
@@ -1570,7 +1583,14 @@ print_dungeon()
     s_level *slev;
     dungeon *dptr;
     branch  *br;
+
+    anything any;
+    char mlet;
     winid   win = create_nhwindow(NHW_MENU);
+    if (bymenu) {
+       start_menu(win);
+       mlet = 'a';
+    }
 
     for (i = 0, dptr = dungeons; i < n_dgns; i++, dptr++) {
        nlev = dptr->num_dunlevs;
@@ -1588,7 +1608,11 @@ print_dungeon()
                Sprintf(eos(buf), ", entrance on %d",
                        dptr->depth_start + dptr->entry_lev - 1);
        }
-       putstr(win, 0, buf);
+       if (bymenu) {
+           any.a_void = 0;
+           add_menu(win, NO_GLYPH, &any, 0, 0, ATR_BOLD, buf, MENU_UNSELECTED);
+       } else
+           putstr(win, 0, buf);
 
        /*
         * Circle through the special levels to find levels that are in
@@ -1598,32 +1622,71 @@ print_dungeon()
            if (slev->dlevel.dnum != i) continue;
 
            /* print any branches before this level */
-           print_branch(win, i, last_level, slev->dlevel.dlevel);
+           print_branch(win, i, last_level, slev->dlevel.dlevel, bymenu, &mlet);
 
            Sprintf(buf, "   %s: %d", slev->proto, depth(&slev->dlevel));
            if (Is_stronghold(&slev->dlevel))
                Sprintf(eos(buf), " (tune %s)", tune);
-           putstr(win, 0, buf);
+           if (bymenu) {
+               schar lev = depth(&slev->dlevel);
+               any.a_void = 0;
+               if (lev >= 0) any.a_schar = lev + 1;
+               else any.a_schar = lev;
+               add_menu(win, NO_GLYPH, &any, mlet, 0, ATR_NONE, buf, MENU_UNSELECTED);
+               if (mlet == 'z') mlet = 'A';
+               else mlet++;
+           } else
+               putstr(win, 0, buf);
 
            last_level = slev->dlevel.dlevel;
        }
        /* print branches after the last special level */
-       print_branch(win, i, last_level, MAXLEVEL);
+       print_branch(win, i, last_level, MAXLEVEL, bymenu, &mlet);
     }
 
     /* Print out floating branches (if any). */
     for (first = TRUE, br = branches; br; br = br->next) {
        if (br->end1.dnum == n_dgns) {
            if (first) {
-               putstr(win, 0, "");
-               putstr(win, 0, "Floating branches");
+               if (bymenu) {
+                   any.a_void = 0;
+                   add_menu(win, NO_GLYPH, &any, 0, 0, ATR_BOLD,
+                               "Floating branches", MENU_UNSELECTED);
+               } else {
+                   putstr(win, 0, "");
+                   putstr(win, 0, "Floating branches");
+               }
                first = FALSE;
            }
            Sprintf(buf, "   %s to %s",
                        br_string(br->type), dungeons[br->end2.dnum].dname);
-           putstr(win, 0, buf);
+           if (bymenu) {
+               schar lev = lev_by_name(dungeons[br->end2.dnum].dname);
+               any.a_void = 0;
+               if (lev >= 0) any.a_schar = lev + 1;
+               else any.a_schar = lev;
+               add_menu(win, NO_GLYPH, &any, mlet, 0, ATR_NONE, buf, MENU_UNSELECTED);
+               if (mlet == 'z') mlet = 'A';
+               else mlet++;
+           } else
+               putstr(win, 0, buf);
        }
     }
+    if (bymenu) {
+       int n;
+       menu_item *selected;
+       schar lev = 0;
+
+       end_menu(win, "Level teleport to where:");
+       n = select_menu(win, PICK_ONE, &selected);
+       destroy_nhwindow(win);
+       if (n > 0) {
+               lev = selected[0].item.a_schar;
+               if (lev > 0) lev--;
+               free((genericptr_t)selected);
+       }
+       return lev;
+    }
 
     /* I hate searching for the invocation pos while debugging. -dean */
     if (Invocation_lev(&u.uz)) {
@@ -1654,6 +1717,7 @@ print_dungeon()
 
     display_nhwindow(win, TRUE);
     destroy_nhwindow(win);
+    return 0;
 }
 #endif /* WIZARD */
 

diff --git a/src/teleport.c b/src/teleport.c
index 83edabefcdd80044109eef204d7ae0e961938958..2a8fd250ea4f6e4daa6c346986d471cd4bde50d2 100644 (file)
--- a/src/teleport.c
+++ b/src/teleport.c
@@ -606,6 +606,11 @@ level_tele()
                    pline("Oops...");
                    goto random_levtport;
                }
+#ifdef WIZARD
+               if (wizard && !strcmp(buf,"?")) {
+                   newlev = print_dungeon(TRUE);
+               } else
+#endif
                if ((newlev = lev_by_name(buf)) == 0) newlev = atoi(buf);
            } while (!newlev && !digit(buf[0]) &&
                     (buf[0] != '-' || !digit(buf[1])) &&