-/* NetHack 3.6 do_name.c $NHDT-Date: 1519420054 2018/02/23 21:07:34 $ $NHDT-Branch: NetHack-3.6.0 $:$NHDT-Revision: 1.128 $ */
+/* NetHack 3.6 do_name.c $NHDT-Date: 1674864731 2023/01/28 00:12:11 $ $NHDT-Branch: NetHack-3.6 $:$NHDT-Revision: 1.154 $ */
/* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
/*-Copyright (c) Pasi Kallinen, 2018. */
/* NetHack may be freely redistributed. See license for details. */
/* JNetHack Copyright */
/* (c) Issei Numata, Naoki Hamada, Shigehiro Miyashita, 1994-2000 */
-/* For 3.4-, Copyright (c) SHIRAKATA Kentaro, 2002-2016 */
+/* For 3.4-, Copyright (c) SHIRAKATA Kentaro, 2002-2023 */
/* JNetHack may be freely redistributed. See license for details. */
#include "hack.h"
STATIC_DCL void FDECL(getpos_help, (BOOLEAN_P, const char *));
STATIC_DCL int FDECL(CFDECLSPEC cmp_coord_distu, (const void *, const void *));
STATIC_DCL boolean FDECL(gather_locs_interesting, (int, int, int));
+STATIC_DCL char *FDECL(name_from_player, (char *, const char *, const char *));
STATIC_DCL void FDECL(gather_locs, (coord **, int *, int));
STATIC_DCL int FDECL(gloc_filter_floodfill_matcharea, (int, int));
STATIC_DCL void FDECL(auto_describe, (int, int));
getpos_getvalid = gp_getvalidf;
}
-const char *const gloc_descr[NUM_GLOCS][4] = {
- { "any monsters", "monster", "next monster", "monsters" },
- { "any items", "item", "next object", "objects" },
- { "any doors", "door", "next door or doorway", "doors or doorways" },
+/*JP:
+ [0] "cannot see %s"
+ [1] "pick a %s"
+ [2] "use XXX to move the cursor to %s"
+ */
+static const char *const gloc_descr[NUM_GLOCS][4] = {
+#if 0 /*JP:T*/
+ { "any monsters", "monster", "next/previous monster", "monsters" },
+ { "any items", "item", "next/previous object", "objects" },
+ { "any doors", "door", "next/previous door or doorway", "doors or doorways" },
{ "any unexplored areas", "unexplored area", "unexplored location",
"unexplored locations" },
{ "anything interesting", "interesting thing", "anything interesting",
- "anything interesting" }
+ "anything interesting" },
+ { "any valid locations", "valid location", "valid location",
+ "valid locations" }
+#else
+ { "\89ö\95¨", "\89ö\95¨", "\89ö\95¨\82Ì\97×", "\89ö\95¨" },
+ { "\95¨", "\95¨", "\95¨\82Ì\97×", "\95¨" },
+ { "\94à", "\94à", "\94à\82â\8fo\93ü\82è\8cû\82Ì\97×", "\94à\82â\8fo\93ü\82è\8cû" },
+ { "\96¢\92T\8dõ\95\94\95ª", "\96¢\92T\8dõ\95\94\95ª", "\96¢\92T\8dõ\82Ì\88Ê\92u", "\96¢\92T\8dõ\82Ì\88Ê\92u" },
+ { "\8aÖ\90S\82Ì\82 \82é\82à\82Ì", "\8aÖ\90S\82Ì\82 \82é\82à\82Ì", "\8aÖ\90S\82Ì\82 \82é\82à\82Ì", "\8aÖ\90S\82Ì\82 \82é\82à\82Ì" },
+ { "\97L\8cø\82È\88Ê\92u", "\97L\8cø\82È\88Ê\92u", "\97L\8cø\82È\88Ê\92u", "\97L\8cø\82È\88Ê\92u" },
+#endif
};
-const char *const gloc_filtertxt[NUM_GFILTER] = {
+static const char *const gloc_filtertxt[NUM_GFILTER] = {
+#if 0 /*JP:T*/
"",
" in view",
" in this area"
+#else
+ "",
+ "\8e\8b\8aE\82Ì\92\86\82Ì",
+ "\82±\82Ì\83G\83\8a\83A\82Ì"
+#endif
};
void
{
char sbuf[BUFSZ];
- Sprintf(sbuf, "Use '%s' or '%s' to %s%s%s.",
+#if 0 /*JP:T*/
+ Sprintf(sbuf, "Use '%s'/'%s' to %s%s%s.",
k1, k2,
iflags.getloc_usemenu ? "get a menu of "
: "move the cursor to ",
gloc_descr[gloc][2 + iflags.getloc_usemenu],
gloc_filtertxt[iflags.getloc_filter]);
+#else
+ Sprintf(sbuf, "'%s'\82©'%s'\82Å%s%s%s\81D",
+ k1, k2,
+ gloc_filtertxt[iflags.getloc_filter],
+ gloc_descr[gloc][2 + iflags.getloc_usemenu],
+ iflags.getloc_usemenu ? "\82Ì\83\81\83j\83\85\81[\82ð\8fo\82·"
+ : "\82É\83J\81[\83\\83\8b\82ð\93®\82©\82·");
+#endif
putstr(tmpwin, 0, sbuf);
}
boolean force;
const char *goal;
{
+#if 0 /*JP:T*/
+ static const char *const fastmovemode[2] = { "8 units at a time",
+ "skipping same glyphs" };
+#else
+ static const char *const fastmovemode[2] = { "\88ê\93x\82É8\83}\83X",
+ "\93¯\82¶\92n\8c`\82ð\94ò\82Î\82µ\82Ä" };
+#endif
char sbuf[BUFSZ];
boolean doing_what_is;
winid tmpwin = create_nhwindow(NHW_MENU);
-#if 0 /*JP*/
- const char *const fastmovemode[2] = { "8 units at a time",
- "skipping same glyphs" };
-#else
- const char *const fastmovemode[2] = { "\88ê\93x\82É8\95à",
- "\93¯\82¶\92n\8c`\82ð\94ò\82Î\82µ\82Ä" };
-#endif
+#if 0 /*JP:T*/
Sprintf(sbuf,
-#if 0 /*JP*/
"Use '%c', '%c', '%c', '%c' to move the cursor to %s.", /* hjkl */
+ Cmd.move_W, Cmd.move_S, Cmd.move_N, Cmd.move_E, goal);
#else
+ Sprintf(sbuf,
"[%c%c%c%c]\82Å%s\82Ö\88Ú\93®\82Å\82«\82é\81D",
-#endif
Cmd.move_W, Cmd.move_S, Cmd.move_N, Cmd.move_E, goal);
+#endif
putstr(tmpwin, 0, sbuf);
-#if 0 /*JP*/
+#if 0 /*JP:T*/
Sprintf(sbuf,
"Use 'H', 'J', 'K', 'L' to fast-move the cursor, %s.",
fastmovemode[iflags.getloc_moveskip]);
putstr(tmpwin, 0, "Or enter a background symbol (ex. '<').");
*/
putstr(tmpwin, 0, "\94w\8ci\82Ì\83V\83\93\83{\83\8b\82ð\93ü\97Í\82·\82é\82Æ\82»\82Ì\88Ê\92u\82É\88Ú\93®\82·\82é(\97á\81F'<')\81D");
-#if 0 /*JP*/
+#if 0 /*JP:T*/
Sprintf(sbuf, "Use '%s' to move the cursor on yourself.",
visctrl(Cmd.spkeys[NHKF_GETPOS_SELF]));
#else
visctrl(Cmd.spkeys[NHKF_GETPOS_INTERESTING_PREV]),
GLOC_INTERESTING);
}
+#if 0 /*JP:T*/
Sprintf(sbuf, "Use '%s' to change fast-move mode to %s.",
visctrl(Cmd.spkeys[NHKF_GETPOS_MOVESKIP]),
fastmovemode[!iflags.getloc_moveskip]);
+#else
+ Sprintf(sbuf, "'%s'\82Å\8d\82\91¬\88Ú\93®\83\82\81[\83h\82ð%s\88Ú\93®\82É\82·\82é\81D",
+ visctrl(Cmd.spkeys[NHKF_GETPOS_MOVESKIP]),
+ fastmovemode[!iflags.getloc_moveskip]);
+#endif
putstr(tmpwin, 0, sbuf);
if (!iflags.terrainmode || (iflags.terrainmode & TER_DETECT) == 0) {
+#if 0 /*JP:T*/
Sprintf(sbuf, "Use '%s' to toggle menu listing for possible targets.",
visctrl(Cmd.spkeys[NHKF_GETPOS_MENU]));
+#else
+ Sprintf(sbuf, "'%s'\82Å\89Â\94\\82È\83^\81[\83Q\83b\83g\82Ì\83\81\83j\83\85\81[\95\\8e¦\82ð\90Ø\82è\91Ö\82¦\82é\81D",
+ visctrl(Cmd.spkeys[NHKF_GETPOS_MENU]));
+#endif
putstr(tmpwin, 0, sbuf);
+#if 0 /*JP:T*/
Sprintf(sbuf,
"Use '%s' to change the mode of limiting possible targets.",
visctrl(Cmd.spkeys[NHKF_GETPOS_LIMITVIEW]));
+#else
+ Sprintf(sbuf,
+ "'%s'\82Å\90§\8cÀ\82³\82ê\82½\89Â\94\\82È\83^\81[\83Q\83b\83g\82Ì\83\82\81[\83h\82ð\90Ø\82è\91Ö\82¦\82é\81D",
+ visctrl(Cmd.spkeys[NHKF_GETPOS_LIMITVIEW]));
+#endif
putstr(tmpwin, 0, sbuf);
}
if (!iflags.terrainmode) {
char kbuf[BUFSZ];
if (getpos_getvalid) {
+#if 0 /*JP:T*/
Sprintf(sbuf, "Use '%s' or '%s' to move to valid locations.",
visctrl(Cmd.spkeys[NHKF_GETPOS_VALID_NEXT]),
visctrl(Cmd.spkeys[NHKF_GETPOS_VALID_PREV]));
+#else
+ Sprintf(sbuf, "'%s'\82©'%s'\82Å\90³\93\96\82È\88Ê\92u\82É\88Ú\93®\82·\82é\81D",
+ visctrl(Cmd.spkeys[NHKF_GETPOS_VALID_NEXT]),
+ visctrl(Cmd.spkeys[NHKF_GETPOS_VALID_PREV]));
+#endif
putstr(tmpwin, 0, sbuf);
}
if (getpos_hilitefunc) {
#endif
putstr(tmpwin, 0, sbuf);
if (iflags.cmdassist) { /* assisting the '/' command, I suppose... */
+#if 0 /*JP:T*/
Sprintf(sbuf,
(iflags.getpos_coords == GPCOORDS_NONE)
? "(Set 'whatis_coord' option to include coordinates with '%s' text.)"
: "(Reset 'whatis_coord' option to omit coordinates from '%s' text.)",
visctrl(Cmd.spkeys[NHKF_GETPOS_AUTODESC]));
+#else
+ Sprintf(sbuf,
+ (iflags.getpos_coords == GPCOORDS_NONE)
+ ? "('%s'\82É\8dÀ\95W\82ð\8aÜ\82Þ\82É\82Í'whatis_coord'\83I\83v\83V\83\87\83\93\82ð\83I\83\93\82É\82·\82é\81D)"
+ : "('%s'\82©\82ç\8dÀ\95W\82ð\8f\9c\82\82É\82Í'whatis_coord'\83I\83v\83V\83\87\83\93\82ð\83I\83t\82É\82·\82é\81D)",
+ visctrl(Cmd.spkeys[NHKF_GETPOS_AUTODESC]));
+#endif
}
/* disgusting hack; the alternate selection characters work for any
getpos call, but only matter for dowhatis (and doquickwhatis) */
- doing_what_is = (goal == what_is_an_unknown_object);
+ doing_what_is = (goal == what_is_an_unknown_object);
if (doing_what_is) {
+#if 0 /*JP:T*/
Sprintf(kbuf, "'%s' or '%s' or '%s' or '%s'",
visctrl(Cmd.spkeys[NHKF_GETPOS_PICK]),
visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_Q]),
visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_O]),
visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_V]));
+#else
+ Sprintf(kbuf, "'%s'\82©'%s'\82©'%s'\82©'%s'",
+ visctrl(Cmd.spkeys[NHKF_GETPOS_PICK]),
+ visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_Q]),
+ visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_O]),
+ visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_V]));
+#endif
} else {
Sprintf(kbuf, "'%s'", visctrl(Cmd.spkeys[NHKF_GETPOS_PICK]));
}
#endif
putstr(tmpwin, 0, sbuf);
if (doing_what_is) {
+#if 0 /*JP:T*/
Sprintf(sbuf,
" '%s' describe current spot, show 'more info', move to another spot.",
visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_V]));
+#else
+ Sprintf(sbuf,
+ " '%s'\82Í\8c»\8dÝ\82Ì\88Ê\92u\82ð\90à\96¾\82µ\81A\92Ç\89Á\8fî\95ñ\82ð\95\\8e¦\82µ\81A\8e\9f\82Ì\88Ê\92u\82É\88Ú\93®\82·\82é\81D",
+ visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_V]));
+#endif
putstr(tmpwin, 0, sbuf);
+#if 0 /*JP:T*/
Sprintf(sbuf,
" '%s' describe current spot,%s move to another spot;",
visctrl(Cmd.spkeys[NHKF_GETPOS_PICK]),
flags.help ? " prompt if 'more info'," : "");
+#else
+ Sprintf(sbuf,
+ " '%s'\82Í\8c»\8dÝ\82Ì\88Ê\92u\82ð\90à\96¾\82µ\81C%s\8e\9f\82Ì\88Ê\92u\82É\88Ú\93®\82·\82é;",
+ visctrl(Cmd.spkeys[NHKF_GETPOS_PICK]),
+ flags.help ? "\92Ç\89Á\8fî\95ñ\82ª\82 \82ê\82Î\8am\94F\82µ\81C" : "");
+#endif
putstr(tmpwin, 0, sbuf);
+#if 0 /*JP:T*/
Sprintf(sbuf,
" '%s' describe current spot, move to another spot;",
visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_Q]));
+#else
+ Sprintf(sbuf,
+ " '%s'\82Í\8c»\8dÝ\82Ì\88Ê\92u\82ð\90à\96¾\82µ\81C\8e\9f\82Ì\88Ê\92u\82É\88Ú\93®\82·\82é;",
+ visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_Q]));
+#endif
putstr(tmpwin, 0, sbuf);
+#if 0 /*JP:T*/
Sprintf(sbuf,
" '%s' describe current spot, stop looking at things;",
visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_O]));
+#else
+ Sprintf(sbuf,
+ " '%s'\82Í\8c»\8dÝ\82Ì\88Ê\92u\82ð\90à\96¾\82µ\81C\8c©\82é\82Ì\82ð\82â\82ß\82é;",
+ visctrl(Cmd.spkeys[NHKF_GETPOS_PICK_O]));
+#endif
putstr(tmpwin, 0, sbuf);
}
}
}
STATIC_OVL int
-gloc_filter_floodfill_matcharea(x,y)
-int x,y;
+gloc_filter_floodfill_matcharea(x, y)
+int x, y;
{
int glyph = back_to_glyph(x, y);
{
if (iflags.getloc_filter == GFILTER_AREA) {
if (!gloc_filter_map) {
- gloc_filter_map = selection_opvar(NULL);
+ gloc_filter_map = selection_opvar((char *) 0);
}
/* special case: if we're in a doorway, try to figure out which
direction we're moving, and use that side of the doorway */
} else {
gloc_filter_floodfill(u.ux, u.uy);
}
-
-
}
}
{
if (gloc_filter_map) {
opvar_free_x(gloc_filter_map);
- gloc_filter_map = NULL;
+ gloc_filter_map = (struct opvar *) 0;
}
}
|| IS_UNEXPLORED_LOC(x - 1, y)
|| IS_UNEXPLORED_LOC(x, y + 1)
|| IS_UNEXPLORED_LOC(x, y - 1)));
+ case GLOC_VALID:
+ if (getpos_getvalid)
+ return (*getpos_getvalid)(x,y);
+ /*FALLTHRU*/
case GLOC_INTERESTING:
return gather_locs_interesting(x,y, GLOC_DOOR)
|| !(glyph_is_cmap(glyph)
|| glyph_to_cmap(glyph) == S_darkroom
|| glyph_to_cmap(glyph) == S_corr
|| glyph_to_cmap(glyph) == S_litcorr));
- case GLOC_VALID:
- return (getpos_getvalid && getpos_getvalid(x,y));
}
/*NOTREACHED*/
return FALSE;
int dst;
if (!dx && !dy) {
+/*JP
Sprintf(buf, "here");
+*/
+ Sprintf(buf, "\82±\82±");
} else if ((dst = xytod(dx, dy)) != -1) {
/* explicit direction; 'one step' is implicit */
Sprintf(buf, "%s", directionname(dst));
} else {
- const char *dirnames[4][2] = {
+ static const char *dirnames[4][2] = {
+#if 0 /*JP:T*/
{ "n", "north" },
{ "s", "south" },
{ "w", "west" },
{ "e", "east" } };
+#else
+ { "n", "\96k" },
+ { "s", "\93ì" },
+ { "w", "\90¼" },
+ { "e", "\93\8c" } };
+#endif
buf[0] = '\0';
/* 9999: protect buf[] against overflow caused by invalid values */
if (dy) {
coord cc;
int sym = 0;
char tmpbuf[BUFSZ];
+/*JP
const char *firstmatch = "unknown";
+*/
+ const char *firstmatch = "\95s\96¾";
cc.x = cx;
cc.y = cy;
- if (do_screen_description(cc, TRUE, sym, tmpbuf, &firstmatch)) {
+ if (do_screen_description(cc, TRUE, sym, tmpbuf, &firstmatch,
+ (struct permonst **) 0)) {
(void) coord_desc(cx, cy, tmpbuf, iflags.getpos_coords);
+#if 0 /*JP:T*/
custompline(SUPPRESS_HISTORY,
"%s%s%s%s%s", firstmatch, *tmpbuf ? " " : "", tmpbuf,
(iflags.autodescribe
- && getpos_getvalid && !getpos_getvalid(cx, cy))
+ && getpos_getvalid && !(*getpos_getvalid)(cx, cy))
? " (illegal)" : "",
(iflags.getloc_travelmode && !is_valid_travelpt(cx, cy))
? " (no travel path)" : "");
+#else
+ custompline(SUPPRESS_HISTORY,
+ "%s%s%s%s%s", firstmatch, *tmpbuf ? " " : "", tmpbuf,
+ (iflags.autodescribe
+ && getpos_getvalid && !getpos_getvalid(cx, cy))
+ ? " (\95s\90³)" : "",
+ (iflags.getloc_travelmode && !is_valid_travelpt(cx, cy))
+ ? " (\8co\98H\82È\82µ)" : "");
+#endif
curs(WIN_MAP, cx, cy);
flush_screen(0);
}
if (gcount < 2) { /* gcount always includes the hero */
free((genericptr_t) garr);
+#if 0 /*JP:T*/
You("cannot %s %s.",
iflags.getloc_filter == GFILTER_VIEW ? "see" : "detect",
gloc_descr[gloc][0]);
+#else
+ You("%s\82ð%s\82±\82Æ\82ª\82Å\82«\82È\82¢\81D",
+ gloc_descr[gloc][0],
+ iflags.getloc_filter == GFILTER_VIEW ? "\8c©\82é" : "\8c©\82Â\82¯\82é");
+#endif
return FALSE;
}
for (i = 1; i < gcount; i++) {
char fullbuf[BUFSZ];
coord tmpcc;
+/*JP
const char *firstmatch = "unknown";
+*/
+ const char *firstmatch = "\95s\96¾";
int sym = 0;
+
any.a_int = i + 1;
tmpcc.x = garr[i].x;
tmpcc.y = garr[i].y;
- if (do_screen_description(tmpcc, TRUE, sym, tmpbuf, &firstmatch)) {
+ if (do_screen_description(tmpcc, TRUE, sym, tmpbuf,
+ &firstmatch, (struct permonst **)0)) {
(void) coord_desc(garr[i].x, garr[i].y, tmpbuf,
iflags.getpos_coords);
Sprintf(fullbuf, "%s%s%s", firstmatch,
}
}
- Sprintf(tmpbuf, "Pick a target %s%s%s",
- gloc_descr[gloc][1],
+#if 0 /*JP:T*/
+ Sprintf(tmpbuf, "Pick %s%s%s",
+ an(gloc_descr[gloc][1]),
gloc_filtertxt[iflags.getloc_filter],
- iflags.getloc_travelmode ? " for travel" : "");
+ iflags.getloc_travelmode ? " for travel destination" : "");
+#else
+ Sprintf(tmpbuf, "%s%s\82Å\96Ú\95W\82Æ\82·\82é%s\82ð\91I\91ð\82µ\82Ä\82\82¾\82³\82¢",
+ iflags.getloc_travelmode ? "\88Ú\93®\82Ì\82½\82ß\82É" : "",
+ gloc_filtertxt[iflags.getloc_filter],
+ gloc_descr[gloc][1]);
+#endif
end_menu(tmpwin, tmpbuf);
pick_cnt = select_menu(tmpwin, PICK_ONE, &picks);
destroy_nhwindow(tmpwin);
const char *goal;
{
const char *cp;
- struct {
+ static struct {
int nhkf, ret;
} const pick_chars_def[] = {
{ NHKF_GETPOS_PICK, LOOK_TRADITIONAL },
{ NHKF_GETPOS_PICK_O, LOOK_ONCE },
{ NHKF_GETPOS_PICK_V, LOOK_VERBOSE }
};
- const int mMoOdDxX_def[] = {
+ static const int mMoOdDxX_def[] = {
NHKF_GETPOS_MON_NEXT,
NHKF_GETPOS_MON_PREV,
NHKF_GETPOS_OBJ_NEXT,
*/
goal = "\96Ú\93I\92n";
if (flags.verbose) {
-#if 0 /*JP*/
+#if 0 /*JP:T*/
pline("(For instructions type a '%s')",
visctrl(Cmd.spkeys[NHKF_GETPOS_HELP]));
#else
msg_given = TRUE;
goto nxtc;
} else if (c == Cmd.spkeys[NHKF_GETPOS_LIMITVIEW]) {
- const char *const view_filters[NUM_GFILTER] = {
+ static const char *const view_filters[NUM_GFILTER] = {
+#if 0 /*JP:T*/
"Not limiting targets",
- "Limiting targets to in sight",
- "Limiting targets to in same area"
+ "Limiting targets to those in sight",
+ "Limiting targets to those in same area"
+#else
+ "\83^\81[\83Q\83b\83g\82ð\90§\8cÀ\82µ\82È\82¢",
+ "\8e\8b\8aE\93à\82É\83^\81[\83Q\83b\83g\82ð\90§\8cÀ\82·\82é",
+ "\93¯\82¶\83G\83\8a\83A\82É\83^\81[\83Q\83b\83g\82ð\90§\8cÀ\82·\82é"
+#endif
};
+
iflags.getloc_filter = (iflags.getloc_filter + 1) % NUM_GFILTER;
for (i = 0; i < NUM_GLOCS; i++) {
if (garr[i]) {
}
gidx[i] = gcount[i] = 0;
}
+/*JP
pline("%s.", view_filters[iflags.getloc_filter]);
+*/
+ pline("%s\81D", view_filters[iflags.getloc_filter]);
msg_given = TRUE;
goto nxtc;
} else if (c == Cmd.spkeys[NHKF_GETPOS_MENU]) {
iflags.getloc_usemenu = !iflags.getloc_usemenu;
- pline("%s a menu to show possible targets.",
- iflags.getloc_usemenu ? "Using" : "Not using");
+#if 0 /*JP:T*/
+ pline("%s a menu to show possible targets%s.",
+ iflags.getloc_usemenu ? "Using" : "Not using",
+ iflags.getloc_usemenu
+ ? " for 'm|M', 'o|O', 'd|D', and 'x|X'" : "");
+#else
+ pline("\89Â\94\\82È\83^\81[\83Q\83b\83g\82ð\8c©\82é\82Ì\82É\83\81\83j\83\85\81[\82ð\8eg%s\81D%s",
+ iflags.getloc_usemenu ? "\82¤" : "\82í\82È\82¢",
+ iflags.getloc_usemenu
+ ? "('m|M', 'o|O', 'd|D', 'x|X'\97p)" : "");
+#endif
msg_given = TRUE;
goto nxtc;
} else if (c == Cmd.spkeys[NHKF_GETPOS_SELF]) {
goto nxtc;
} else if (c == Cmd.spkeys[NHKF_GETPOS_MOVESKIP]) {
iflags.getloc_moveskip = !iflags.getloc_moveskip;
+#if 0 /*JP:T*/
pline("%skipping over similar terrain when fastmoving the cursor.",
iflags.getloc_moveskip ? "S" : "Not s");
+#else
+ pline("\83J\81[\83\\83\8b\82ð\8d\82\91¬\88Ú\93®\82³\82¹\82é\82Æ\82«\82É\8e\97\82½\82æ\82¤\82È\92n\8c`\82ð\94ò\82Î%s\81D",
+ iflags.getloc_moveskip ? "\82·" : "\82³\82È\82¢");
+#endif
} else if ((cp = index(mMoOdDxX, c)) != 0) { /* 'm|M', 'o|O', &c */
/* nearest or farthest monster or object or door or unexplored */
int gtmp = (int) (cp - mMoOdDxX), /* 0..7 */
if (iflags.getloc_usemenu) {
coord tmpcrd;
+
if (getpos_menu(&tmpcrd, gloc)) {
cx = tmpcrd.x;
cy = tmpcrd.y;
*/
Strcpy(note, "\92\86\92f\82µ\82½");
else /* hjkl */
-#if 0 /*JP*/
+#if 0 /*JP:T*/
Sprintf(note, "use '%c', '%c', '%c', '%c' or '%s'",
Cmd.move_W, Cmd.move_S, Cmd.move_N, Cmd.move_E,
visctrl(Cmd.spkeys[NHKF_GETPOS_PICK]));
return "";
}
+/* get a name for a monster or an object from player;
+ truncate if longer than PL_PSIZ, then return it */
+static char *
+name_from_player(outbuf, prompt, defres)
+char *outbuf; /* output buffer, assumed to be at least BUFSZ long;
+ * anything longer than PL_PSIZ will be truncated */
+const char *prompt;
+const char *defres; /* only used if EDIT_GETLIN is enabled; only useful
+ * if windowport xxx's xxx_getlin() supports that */
+{
+ outbuf[0] = '\0';
+#ifdef EDIT_GETLIN
+ if (defres && *defres)
+ Strcpy(outbuf, defres); /* default response from getlin() */
+#else
+ nhUse(defres);
+#endif
+ getlin(prompt, outbuf);
+ if (!*outbuf || *outbuf == '\033')
+ return NULL;
+
+ /* strip leading and trailing spaces, condense internal sequences */
+ (void) mungspaces(outbuf);
+ if (strlen(outbuf) >= PL_PSIZ)
+ outbuf[PL_PSIZ - 1] = '\0';
+ return outbuf;
+}
+
/* historical note: this returns a monster pointer because it used to
allocate a new bigger block of memory to hold the monster and its name */
struct monst *
/* catch trying to name "the {priest,Angel} of Crom" as "Crom" */
|| ((p = strstri(monnambuf, " of ")) != 0
&& fuzzymatch(usrbuf, p + 4, " -_", TRUE))) {
+#if 0 /*JP:T*/
pline("%s is already called %s.",
upstart(strcpy(pronounbuf, mhe(mtmp))), monnambuf);
+#else
+ pline("%s\82Í\8aù\82É%s\82Æ\8cÄ\82Î\82ê\82Ä\82¢\82é\81D",
+ upstart(strcpy(pronounbuf, mhe(mtmp))), monnambuf);
+#endif
return TRUE;
+#if 0 /*JP*//*\93ú\96{\8cê\82Å\82Í\8eg\82í\82È\82¢*/
} else if (mtmp->data == &mons[PM_JUIBLEX]
&& strstri(monnambuf, "Juiblex")
&& !strcmpi(usrbuf, "Jubilex")) {
pline("%s doesn't like being called %s.", upstart(monnambuf), usrbuf);
return TRUE;
+#endif
}
return FALSE;
}
STATIC_OVL void
do_mname()
{
- char buf[BUFSZ] = DUMMY, monnambuf[BUFSZ], qbuf[QBUFSZ];
+ char buf[BUFSZ], monnambuf[BUFSZ], qbuf[QBUFSZ];
coord cc;
int cx, cy;
struct monst *mtmp = 0;
if (getpos(&cc, FALSE, "the monster you want to name") < 0
*/
if (getpos(&cc, FALSE, "\82 \82È\82½\82ª\96¼\82Ã\82¯\82½\82¢\89ö\95¨") < 0
- || (cx = cc.x) < 0)
+ || !isok(cc.x, cc.y))
return;
- cy = cc.y;
+ cx = cc.x, cy = cc.y;
if (cx == u.ux && cy == u.uy) {
if (u.usteed && canspotmon(u.usteed)) {
if (!mtmp
|| (!sensemon(mtmp)
&& (!(cansee(cx, cy) || see_with_infrared(mtmp))
- || mtmp->mundetected || mtmp->m_ap_type == M_AP_FURNITURE
- || mtmp->m_ap_type == M_AP_OBJECT
+ || mtmp->mundetected || M_AP_TYPE(mtmp) == M_AP_FURNITURE
+ || M_AP_TYPE(mtmp) == M_AP_OBJECT
|| (mtmp->minvis && !See_invisible)))) {
/*JP
pline("I see no monster there.");
*/
Sprintf(qbuf, "%s\82ð\89½\82Æ\8cÄ\82Ñ\82Ü\82·\82©\81H",
distant_monnam(mtmp, ARTICLE_THE, monnambuf));
- getlin(qbuf, buf);
- if (!*buf || *buf == '\033')
+ /* use getlin() to get a name string from the player */
+ if (!name_from_player(buf, qbuf, has_mname(mtmp) ? MNAME(mtmp) : NULL))
return;
- /* strip leading and trailing spaces; unnames monster if all spaces */
- (void) mungspaces(buf);
/* Unique monsters have their own specific names or titles.
* Shopkeepers, temple priests and other minions use alternate
*
* Don't say the name is being rejected if it happens to match
* the existing name.
+ *
+ * TODO: should have an alternate message when the attempt is to
+ * remove existing name without assigning a new one.
*/
if ((mtmp->data->geno & G_UNIQ) && !mtmp->ispriest) {
if (!alreadynamed(mtmp, monnambuf, buf))
/*JP
- pline("%s doesn't like being called names!", upstart(monnambuf));
+ pline("%s doesn't like being called names!", upstart(monnambuf));
*/
- pline("%s\82Í\82 \82¾\96¼\82Å\8cÄ\82Î\82ê\82é\82Ì\82ª\8c\99\82¢\82È\82æ\82¤\82¾\81I", Monnam(mtmp));
+ pline("%s\82Í\82 \82¾\96¼\82Å\8cÄ\82Î\82ê\82é\82Ì\82ª\8c\99\82¢\82È\82æ\82¤\82¾\81I", Monnam(mtmp));
} else if (mtmp->isshk
&& !(Deaf || mtmp->msleeping || !mtmp->mcanmove
|| mtmp->data->msound <= MS_ANIMAL)) {
if (!alreadynamed(mtmp, monnambuf, buf))
/*JP
- verbalize("I'm %s, not %s.", shkname(mtmp), buf);
+ verbalize("I'm %s, not %s.", shkname(mtmp), buf);
*/
- verbalize("\8e\84\82Í%s\82¾\81C%s\82Å\82Í\82È\82¢\81D", shkname(mtmp), buf);
+ verbalize("\8e\84\82Í%s\82¾\81C%s\82Å\82Í\82È\82¢\81D", shkname(mtmp), buf);
} else if (mtmp->ispriest || mtmp->isminion || mtmp->isshk) {
if (!alreadynamed(mtmp, monnambuf, buf))
/*JP
- pline("%s will not accept the name %s.", upstart(monnambuf), buf);
+ pline("%s will not accept the name %s.", upstart(monnambuf), buf);
*/
- pline("%s\82Í%s\82Æ\82¢\82¤\96¼\91O\82ð\8eó\82¯\82¢\82ê\82È\82©\82Á\82½\81D", monnambuf, buf);
+ pline("%s\82Í%s\82Æ\82¢\82¤\96¼\91O\82ð\8eó\82¯\82¢\82ê\82È\82©\82Á\82½\81D", monnambuf, buf);
} else
(void) christen_monst(mtmp, buf);
}
do_oname(obj)
register struct obj *obj;
{
- char *bufp, buf[BUFSZ] = DUMMY, bufcpy[BUFSZ], qbuf[QBUFSZ];
+ char *bufp, buf[BUFSZ], bufcpy[BUFSZ], qbuf[QBUFSZ];
const char *aname;
short objtyp;
-#if 1 /*JP*/
- boolean is_japanese = FALSE;
-#endif
/* Do this now because there's no point in even asking for a name */
if (obj->otyp == SPE_NOVEL) {
return;
}
-#if 0 /*JP*/
+#if 0 /*JP:T*/
Sprintf(qbuf, "What do you want to name %s ",
is_plural(obj) ? "these" : "this");
(void) safe_qbuf(qbuf, qbuf, "?", obj, xname, simpleonames, "item");
#else
- (void) safe_qbuf(qbuf, "", "\82ð\89½\82Æ\96¼\82Ã\82¯\82Ü\82·\82©\81H", obj, xname, simpleonames, "item");
+ (void) safe_qbuf(qbuf, "", "\82ð\89½\82Æ\96¼\82Ã\82¯\82Ü\82·\82©\81H", obj, xname,
+ simpleonames, "\82»\82ê");
#endif
- getlin(qbuf, buf);
- if (!*buf || *buf == '\033')
+ /* use getlin() to get a name string from the player */
+ if (!name_from_player(buf, qbuf, safe_oname(obj)))
return;
- /* strip leading and trailing spaces; unnames item if all spaces */
- (void) mungspaces(buf);
/*
* We don't violate illiteracy conduct here, although it is
/* relax restrictions over proper capitalization for artifacts */
if ((aname = artifact_name(buf, &objtyp)) != 0 && objtyp == obj->otyp)
-#if 0 /*JP*/
- Strcpy(buf, aname);
-#else
- {
- is_japanese = is_kanji(*buf);
Strcpy(buf, aname);
- }
-#endif
if (obj->oartifact) {
/*JP
/* for "the Foo of Bar", only scuff "Foo of Bar" part */
bufp = !strncmpi(bufcpy, "the ", 4) ? (buf + 4) : buf;
do {
- wipeout_text(bufp, rnd(2), (unsigned) 0);
+ wipeout_text(bufp, rn2_on_display_rng(2), (unsigned) 0);
} while (!strcmp(buf, bufcpy));
/*JP
pline("While engraving, your %s slips.", body_part(HAND));
docall(obj)
struct obj *obj;
{
- char buf[BUFSZ] = DUMMY, qbuf[QBUFSZ];
+ char buf[BUFSZ], qbuf[QBUFSZ];
char **str1;
if (!obj->dknown)
return; /* probably blind */
+ flush_screen(1); /* buffered updates might matter to player's response */
if (obj->oclass == POTION_CLASS && obj->fromsink)
/* kludge, meaning it's sink water */
Sprintf(qbuf, "%s\89t\91Ì:",
OBJ_DESCR(objects[obj->otyp]));
else
-#if 0 /*JP*/
+#if 0 /*JP:T*/
(void) safe_qbuf(qbuf, "Call ", ":", obj,
docall_xname, simpleonames, "thing");
#else
(void) safe_qbuf(qbuf, "", "\82É\89½\82Æ\96¼\91O\82ð\95t\82¯\82é\81H", obj,
docall_xname, simpleonames, "\82±\82ê");
#endif
- getlin(qbuf, buf);
- if (!*buf || *buf == '\033')
+ /* pointer to old name */
+ str1 = &(objects[obj->otyp].oc_uname);
+ /* use getlin() to get a name string from the player */
+ if (!name_from_player(buf, qbuf, *str1))
return;
/* clear old name */
- str1 = &(objects[obj->otyp].oc_uname);
if (*str1)
free((genericptr_t) *str1);
int glyph;
char buf[BUFSZ];
struct obj *obj = 0;
+#if 0 /*JP*/
boolean fakeobj = FALSE, use_plural;
+#else
+ boolean fakeobj = FALSE;
+#endif
cc.x = u.ux, cc.y = u.uy;
/* "dot for under/over you" only makes sense when the cursor hasn't
been moved off the hero's '@' yet, but there's no way to adjust
the help text once getpos() has started */
+#if 0 /*JP:T*/
Sprintf(buf, "object on map (or '.' for one %s you)",
(u.uundetected && hides_under(youmonst.data)) ? "over" : "under");
+#else
+ Strcpy(buf, "\92n\90}\8fã\82Ì\95¨\91Ì(\82 \82é\82¢\82Í'.'\82Å\82 \82È\82½\82Ì\82¢\82é\8fê\8f\8a");
+#endif
if (getpos(&cc, FALSE, buf) < 0 || cc.x <= 0)
return;
if (cc.x == u.ux && cc.y == u.uy) {
}
if (!obj) {
/* "under you" is safe here since there's no object to hide under */
-#if 0 /*JP*/
+#if 0 /*JP:T*/
pline("There doesn't seem to be any object %s.",
(cc.x == u.ux && cc.y == u.uy) ? "under you" : "there");
#else
#endif
return;
}
- /* note well: 'obj' might be as instance of STRANGE_OBJECT if target
+ /* note well: 'obj' might be an instance of STRANGE_OBJECT if target
is a mimic; passing that to xname (directly or via simpleonames)
would yield "glorkum" so we need to handle it explicitly; it will
always fail the Hallucination test and pass the !callable test,
Strcpy(buf, (obj->otyp != STRANGE_OBJECT)
? simpleonames(obj)
: obj_descr[STRANGE_OBJECT].oc_name);
+#if 0 /*JP*/
use_plural = (obj->quan > 1L);
+#endif
if (Hallucination) {
const char *unames[6];
char tmpbuf[BUFSZ];
unames[0] = ((Upolyd ? u.mfemale : flags.female) && urole.name.f)
? urole.name.f
: urole.name.m;
- /* random rank title for hero's role */
- unames[1] = rank_of(rnd(30), Role_switch, flags.female);
+ /* random rank title for hero's role
+
+ note: the 30 is hardcoded in xlev_to_rank, so should be
+ hardcoded here too */
+ unames[1] = rank_of(rn2_on_display_rng(30) + 1,
+ Role_switch, flags.female);
/* random fake monster */
unames[2] = bogusmon(tmpbuf, (char *) 0);
/* increased chance for fake monster */
unames[5] = "Wibbly Wobbly";
*/
unames[5] = "\82¤\82ë\82¤\82ë";
-#if 0 /*JP*/
+#if 0 /*JP:T*/
pline("%s %s to call you \"%s.\"",
The(buf), use_plural ? "decide" : "decides",
- unames[rn2(SIZE(unames))]);
+ unames[rn2_on_display_rng(SIZE(unames))]);
#else
pline("%s\82Í\82 \82È\82½\82ð\81u%s\81v\82Æ\8cÄ\82Ô\82±\82Æ\82É\8c\88\82ß\82½\81D",
buf,
- unames[rn2(SIZE(unames))]);
+ unames[rn2_on_display_rng(SIZE(unames))]);
#endif
} else if (!objtyp_is_callable(obj->otyp)) {
-#if 0 /*JP*/
+#if 0 /*JP:T*/
pline("%s %s can't be assigned a type name.",
use_plural ? "Those" : "That", buf);
#else
buf);
#endif
} else if (!obj->dknown) {
-#if 0 /*JP*/
+#if 0 /*JP:T*/
You("don't know %s %s well enough to name %s.",
use_plural ? "those" : "that", buf, use_plural ? "them" : "it");
#else
} else {
docall(obj);
}
- if (fakeobj)
+ if (fakeobj) {
+ obj->where = OBJ_FREE; /* object_from_map() sets it to OBJ_FLOOR */
dealloc_obj(obj);
+ }
}
static const char *const ghostnames[] = {
*/
Strcat(buf, "\88Æ\82Ì\82Â\82¢\82Ä\82¢\82é");
#if 0 /*JP*/
- if (buf[0] != 0)
- has_adjectives = TRUE;
- else
- has_adjectives = FALSE;
+ has_adjectives = (buf[0] != '\0');
#endif
- /* Put the actual monster name or type into the buffer now */
- /* Be sure to remember whether the buffer starts with a name */
+ /* Put the actual monster name or type into the buffer now.
+ Remember whether the buffer starts with a personal name. */
if (do_hallu) {
char rnamecode;
char *rname = rndmonnam(&rnamecode);
its own obfuscation) */
if (mon->data == &mons[PM_HIGH_PRIEST] && !Hallucination
&& Is_astralevel(&u.uz) && distu(mon->mx, mon->my) > 2) {
-#if 0 /*JP*/
+#if 0 /*JP:T*/
Strcpy(outbuf, article == ARTICLE_THE ? "the " : "");
Strcat(outbuf, mon->female ? "high priestess" : "high priest");
#else
return outbuf;
}
+/* returns mon_nam(mon) relative to other_mon; normal name unless they're
+ the same, in which case the reference is to {him|her|it} self */
+char *
+mon_nam_too(mon, other_mon)
+struct monst *mon, *other_mon;
+{
+ char *outbuf;
+
+ if (mon != other_mon) {
+ outbuf = mon_nam(mon);
+ } else {
+ outbuf = nextmbuf();
+#if 0 /*JP*/
+ switch (pronoun_gender(mon, FALSE)) {
+ case 0:
+ Strcpy(outbuf, "himself");
+ break;
+ case 1:
+ Strcpy(outbuf, "herself");
+ break;
+ default:
+ Strcpy(outbuf, "itself");
+ break;
+ }
+#else
+ Strcpy(outbuf, "\8e©\95ª\8e©\90g");
+#endif
+ }
+ return outbuf;
+}
+
+/* for debugging messages, where data might be suspect and we aren't
+ taking what the hero does or doesn't know into consideration */
+char *
+minimal_monnam(mon, ckloc)
+struct monst *mon;
+boolean ckloc;
+{
+ struct permonst *ptr;
+ char *outbuf = nextmbuf();
+
+ if (!mon) {
+ Strcpy(outbuf, "[Null monster]");
+ } else if ((ptr = mon->data) == 0) {
+ Strcpy(outbuf, "[Null mon->data]");
+ } else if (ptr < &mons[0]) {
+ Sprintf(outbuf, "[Invalid mon->data %s < %s]",
+ fmt_ptr((genericptr_t) mon->data),
+ fmt_ptr((genericptr_t) &mons[0]));
+ } else if (ptr >= &mons[NUMMONS]) {
+ Sprintf(outbuf, "[Invalid mon->data %s >= %s]",
+ fmt_ptr((genericptr_t) mon->data),
+ fmt_ptr((genericptr_t) &mons[NUMMONS]));
+ } else if (ckloc && ptr == &mons[PM_LONG_WORM]
+ && level.monsters[mon->mx][mon->my] != mon) {
+ Sprintf(outbuf, "%s <%d,%d>",
+ mons[PM_LONG_WORM_TAIL].mname, mon->mx, mon->my);
+ } else {
+ Sprintf(outbuf, "%s%s <%d,%d>",
+ mon->mtame ? "tame " : mon->mpeaceful ? "peaceful " : "",
+ mon->data->mname, mon->mx, mon->my);
+ if (mon->cham != NON_PM)
+ Sprintf(eos(outbuf), "{%s}", mons[mon->cham].mname);
+ }
+ return outbuf;
+}
+
/* fake monsters used to be in a hard-coded array, now in a data file */
STATIC_OVL char *
bogusmon(buf, code)
char *buf, *code;
{
+ static const char bogon_codes[] = "-_+|="; /* see dat/bonusmon.txt */
char *mname = buf;
- get_rnd_text(BOGUSMONFILE, buf);
- /* strip prefix if present */
- if (!letter(*mname)) {
+ if (code)
+ *code = '\0';
+ /* might fail (return empty buf[]) if the file isn't available */
+ get_rnd_text(BOGUSMONFILE, buf, rn2_on_display_rng);
+ if (!*mname) {
+ Strcpy(buf, "bogon");
+ } else if (index(bogon_codes, *mname)) { /* strip prefix if present */
if (code)
*code = *mname;
++mname;
- } else {
- if (code)
- *code = '\0';
}
return mname;
}
*code = '\0';
do {
- name = rn1(SPECIAL_PM + BOGUSMONSIZE - LOW_PM, LOW_PM);
+ name = rn2_on_display_rng(SPECIAL_PM + BOGUSMONSIZE - LOW_PM) + LOW_PM;
} while (name < SPECIAL_PM
&& (type_is_pname(&mons[name]) || (mons[name].geno & G_NOGEN)));
return i + 5;
}
}
+ /*JP:Rogue\82Ì\8aJ\94\8eÒ\82Ì\96¼\91O*/
return rn2(3) ? (rn2(2) ? "Michael Toy" : "Kenneth Arnold")
: "Glenn Wichman";
}
static NEARDATA const char *const hcolors[] = {
-#if 0 /*JP*/
+#if 0 /*JP:T*/
"ultraviolet", "infrared", "bluish-orange", "reddish-green", "dark white",
"light black", "sky blue-pink", "salty", "sweet", "sour", "bitter",
"striped", "spiral", "swirly", "plaid", "checkered", "argyle", "paisley",
hcolor(colorpref)
const char *colorpref;
{
- return (Hallucination || !colorpref) ? hcolors[rn2(SIZE(hcolors))]
- : colorpref;
+ return (Hallucination || !colorpref)
+ ? hcolors[rn2_on_display_rng(SIZE(hcolors))]
+ : colorpref;
}
/* return a random real color unless hallucinating */
}
static NEARDATA const char *const hliquids[] = {
+#if 0 /*JP:T*/
"yoghurt", "oobleck", "clotted blood", "diluted water", "purified water",
"instant coffee", "tea", "herbal infusion", "liquid rainbow",
"creamy foam", "mulled wine", "bouillon", "nectar", "grog", "flubber",
"ketchup", "slow light", "oil", "vinaigrette", "liquid crystal", "honey",
- "caramel sauce", "ink", "aqueous humour", "milk substitute", "fruit juice",
- "glowing lava", "gastric acid", "mineral water", "cough syrup", "quicksilver",
- "sweet vitriol", "grey goo", "pink slime",
+ "caramel sauce", "ink", "aqueous humour", "milk substitute",
+ "fruit juice", "glowing lava", "gastric acid", "mineral water",
+ "cough syrup", "quicksilver", "sweet vitriol", "grey goo", "pink slime",
+#else
+ "\83\88\81[\83O\83\8b\83g", "\83E\81[\83u\83\8c\83b\83N", "\8c\8c\8cÐ", "\8fö\97¯\90\85", "\90¸\90»\90\85",
+ "\83C\83\93\83X\83^\83\93\83g\83R\81[\83q\81[", "\8dg\92\83", "\83n\81[\83u\89t", "\89t\91Ì\82Ì\93ø",
+ "\83N\83\8a\81[\83~\81[\83t\83H\81[\83\80", "\83z\83b\83g\83\8f\83C\83\93", "\83u\83C\83\88\83\93", "\89Ê\8f`", "\83O\83\8d\83b\83O", "\83t\83\89\83o\81[",
+ "\83P\83`\83\83\83b\83v", "\92á\91¬\8cõ", "\96û", "\83r\83l\83O\83\8c\83b\83g\83\\81[\83X", "\89t\91Ì\90\85\8f»", "\96I\96¨",
+ "\83J\83\89\83\81\83\8b\83\\81[\83X", "\83C\83\93\83N", "\96[\90\85", "\91ã\97p\93û",
+ "\83t\83\8b\81[\83c\83W\83\85\81[\83X", "\97¬\82ê\82é\97n\8aâ", "\88Ý\8e_", "\83~\83l\83\89\83\8b\83E\83H\81[\83^\81[",
+ "\8aP\8e~\82ß\83V\83\8d\83b\83v", "\90\85\8bâ", "\83W\83G\83`\83\8b\83G\81[\83e\83\8b", "\83O\83\8c\83C\83O\81[", "\83s\83\93\83N\83X\83\89\83C\83\80",
+#endif
};
const char *
const char *liquidpref;
{
return (Hallucination || !liquidpref) ? hliquids[rn2(SIZE(hliquids))]
- : liquidpref;
+ : liquidpref;
}
/* Aliases for road-runner nemesis
return buf;
}
+char *
+rndorcname(s)
+char *s;
+{
+ static const char *v[] = { "a", "ai", "og", "u" };
+ static const char *snd[] = { "gor", "gris", "un", "bane", "ruk",
+ "oth","ul", "z", "thos","akh","hai" };
+ int i, iend = rn1(2, 3), vstart = rn2(2);
+
+ if (s) {
+ *s = '\0';
+ for (i = 0; i < iend; ++i) {
+ vstart = 1 - vstart; /* 0 -> 1, 1 -> 0 */
+ Sprintf(eos(s), "%s%s", (i > 0 && !rn2(30)) ? "-" : "",
+ vstart ? v[rn2(SIZE(v))] : snd[rn2(SIZE(snd))]);
+ }
+ }
+ return s;
+}
+
+struct monst *
+christen_orc(mtmp, gang, other)
+struct monst *mtmp;
+const char *gang, *other;
+{
+ int sz = 0;
+ char buf[BUFSZ], buf2[BUFSZ], *orcname;
+
+ orcname = rndorcname(buf2);
+ sz = (int) strlen(orcname);
+ if (gang)
+ sz += (int) (strlen(gang) + sizeof " of " - sizeof "");
+ else if (other)
+ sz += (int) strlen(other);
+
+ if (sz < BUFSZ) {
+ char gbuf[BUFSZ];
+ boolean nameit = FALSE;
+
+ if (gang && orcname) {
+ Sprintf(buf, "%s of %s", upstart(orcname),
+ upstart(strcpy(gbuf, gang)));
+ nameit = TRUE;
+ } else if (other && orcname) {
+ Sprintf(buf, "%s%s", upstart(orcname), other);
+ nameit = TRUE;
+ }
+ if (nameit)
+ mtmp = christen_monst(mtmp, buf);
+ }
+ return mtmp;
+}
+
/* make sure "The Colour of Magic" remains the first entry in here */
static const char *const sir_Terry_novels[] = {
"The Colour of Magic", "The Light Fantastic", "Equal Rites", "Mort",