Accept custom level annotations at the level teleport prompt

via UnNetHack, original implementation by aaxelb

src/dungeon.c

@@ -62,6 +62,7 @@ STATIC_DCL void FDECL(print_branch, (winid, int, int, int, BOOLEAN_P,
 STATIC_DCL mapseen *FDECL(load_mapseen, (int));
 STATIC_DCL void FDECL(save_mapseen, (int, mapseen *));
 STATIC_DCL mapseen *FDECL(find_mapseen, (d_level *));
+STATIC_DCL mapseen *FDECL(find_mapseen_by_str, (const char *));
 STATIC_DCL void FDECL(print_mapseen, (winid, mapseen *, int, int, BOOLEAN_P));
 STATIC_DCL boolean FDECL(interest_mapseen, (mapseen *));
 STATIC_DCL void FDECL(traverse_mapseenchn, (BOOLEAN_P, winid,
@@ -1642,25 +1643,35 @@ const char *nam;
     const char *p;
     int idx, idxtoo;
     char buf[BUFSZ];
+    mapseen *mseen;
 
-    /* allow strings like "the oracle level" to find "oracle" */
+    /* look at the player's custom level annotations first */
-    if (!strncmpi(nam, "the ", 4))
+    if ((mseen = find_mapseen_by_str(nam)) != 0) {
-        nam += 4;
+        dlev = mseen->lev;
-    if ((p = strstri(nam, " level")) != 0 && p == eos((char *) nam) - 6) {
+    } else {
-        nam = strcpy(buf, nam);
+        /* no matching annotation, check whether they used a name we know */
-        *(eos(buf) - 6) = '\0';
+
-    }
+        /* allow strings like "the oracle level" to find "oracle" */
-    /* hell is the old name, and wouldn't match; gehennom would match its
+        if (!strncmpi(nam, "the ", 4))
-       branch, yielding the castle level instead of the valley of the dead */
+            nam += 4;
-    if (!strcmpi(nam, "gehennom") || !strcmpi(nam, "hell")) {
+        if ((p = strstri(nam, " level")) != 0 && p == eos((char *) nam) - 6) {
-        if (In_V_tower(&u.uz))
+            nam = strcpy(buf, nam);
-            nam = " to Vlad's tower"; /* branch to... */
+            *(eos(buf) - 6) = '\0';
-        else
+        }
-            nam = "valley";
+        /* hell is the old name, and wouldn't match; gehennom would match its
+           branch, yielding the castle level instead of the valley of the dead */
+        if (!strcmpi(nam, "gehennom") || !strcmpi(nam, "hell")) {
+            if (In_V_tower(&u.uz))
+                nam = " to Vlad's tower"; /* branch to... */
+            else
+                nam = "valley";
+        }
+
+        if ((slev = find_level(nam)) != 0)
+            dlev = slev->dlevel;
     }
 
-    if ((slev = find_level(nam)) != 0) {
+    if (mseen || slev) {
-        dlev = slev->dlevel;
         idx = ledger_no(&dlev);
         if ((dlev.dnum == u.uz.dnum
              /* within same branch, or else main dungeon <-> gehennom */
@@ -1672,7 +1683,7 @@ const char *nam;
                 wizard
                 || (level_info[idx].flags & (FORGOTTEN | VISITED))
                        == VISITED)) {
-            lev = depth(&slev->dlevel);
+            lev = depth(&dlev);
         }
     } else { /* not a specific level; try branch names */
         idx = find_branch(nam, (struct proto_dungeon *) 0);
@@ -2055,6 +2066,20 @@ d_level *lev;
     return mptr;
 }
 
+STATIC_OVL mapseen *
+find_mapseen_by_str(s)
+const char *s;
+{
+    mapseen *mptr;
+
+    for (mptr = mapseenchn; mptr; mptr = mptr->next)
+        if (mptr->custom && !strcmpi(s, mptr->custom))
+            break;
+
+    return mptr;
+}
+
+
 void
 forget_mapseen(ledger_num)
 int ledger_num;

src/teleport.c

@@ -609,9 +609,9 @@ level_tele()
         do {
             if (++trycnt == 2) {
                 if (wizard)
-                    Strcat(qbuf, " [type a number or ? for a menu]");
+                    Strcat(qbuf, " [type a number, name, or ? for a menu]");
                 else
-                    Strcat(qbuf, " [type a number]");
+                    Strcat(qbuf, " [type a number or name]");
             }
             getlin(qbuf, buf);
             if (!strcmp(buf, "\033")) { /* cancelled */