Wikia

Wikihack

Source:NetHack 3.1.0/do name.c

2,032pages on
this wiki
Talk0

Below is the full text to do_name.c from the source code of NetHack 3.1.0. To link to a particular line, write [[NetHack 3.1.0/do_name.c#line123]], for example.

Warning! This is the source code from an old release. For the latest release, see Source code

The NetHack General Public License applies to screenshots, source code and other content from NetHack.
1.    /*	SCCS Id: @(#)do_name.c	3.1	92/12/29	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
5.    #include "hack.h"
6.    
7.    #ifdef OVLB
8.    
9.    static void FDECL(do_oname, (struct obj *));
10.   
11.   void
12.   getpos(cc,force,goal)
13.   coord	*cc;
14.   boolean force;
15.   const char *goal;
16.   {
17.       register int cx, cy, i, c;
18.       int sidx, tx, ty;
19.       int lastc, lastx, lasty;
20.       const char *sdp = flags.num_pad ? ndir : sdir;
21.   
22.       if(flags.verbose) pline("(For instructions type a ?)");
23.       cx = cc->x;
24.       cy = cc->y;
25.       lastc = -1;
26.       lastx = lasty = 0;
27.   #ifdef CLIPPING
28.       cliparound(cx, cy);
29.   #endif
30.       curs(WIN_MAP, cx,cy);
31.       flush_screen(0);
32.       while((c = nh_poskey(&tx, &ty, &sidx)) != '.') {
33.           if(c == '\033') {
34.               cc->x = -10;
35.   	    clear_nhwindow(WIN_MESSAGE);
36.               return;
37.           }
38.   	if(c == 0) {
39.   	    /* a mouse click event, just assign and return */
40.   	    cx = tx;
41.   	    cy = ty;
42.   	    break;
43.   	}
44.   	for(i=0; i<8; i++)
45.   	    if (sdp[i] == c) {
46.   		if (1 <= cx + xdir[i] && cx + xdir[i] < COLNO)
47.   		    cx += xdir[i];
48.   		if (0 <= cy + ydir[i] && cy + ydir[i] < ROWNO)
49.   		    cy += ydir[i];
50.   		goto nxtc;
51.   	    } else if (sdp[i] == lowc((char)c)) {
52.   		cx += xdir[i]*8;
53.   		cy += ydir[i]*8;
54.   		if(cx < 1) cx = 1;
55.   		if(cx > COLNO-1) cx = COLNO-1;
56.   		if(cy < 0) cy = 0;
57.   		if(cy > ROWNO-1) cy = ROWNO-1;
58.   		goto nxtc;
59.   	    }
60.   
61.   	if(c == '?'){
62.   	    char sbuf[80];
63.   	    winid tmpwin = create_nhwindow(NHW_MENU);
64.   	    Sprintf(sbuf, "Use [%s] to move the cursor to %s.",
65.   		  flags.num_pad ? "2468" : "hjkl", goal);
66.   	    putstr(tmpwin, 0, sbuf);
67.   	    putstr(tmpwin, 0,
68.   		   "Use [HJKL] to move the cursor 8 units at a time.");
69.   	    putstr(tmpwin, 0, "Or enter a background symbol (ex. <).");
70.   	    putstr(tmpwin, 0, "Type a . when you are at the right place.");
71.   	    if(!force)
72.   		putstr(tmpwin, 0, "Type Space or Escape when you're done.");
73.   	    putstr(tmpwin, 0, "");
74.   	    display_nhwindow(tmpwin, TRUE);
75.   	    destroy_nhwindow(tmpwin);
76.   	} else {
77.   	    if (!index(quitchars, c)) {
78.   		for(sidx = 1; sidx < sizeof(showsyms); sidx++)
79.   		    if(defsyms[sidx].sym == c) {
80.   			/* sidx = cmap_to_glyph(sidx); */
81.   			if(sidx != lastc) {
82.   			    lasty = 0;
83.   			    lastx = 1;
84.   			}
85.   			lastc = sidx;
86.   		    loopback:
87.   			for (ty = lasty; ty < ROWNO; ty++) {
88.   			    for (tx = lastx; tx < COLNO; tx++) {
89.   				if ((IS_POOL(levl[tx][ty].typ) ||
90.   				     IS_FURNITURE(levl[tx][ty].typ)) &&
91.   	 defsyms[sidx].sym == defsyms[glyph_to_cmap(levl[tx][ty].glyph)].sym) {
92.   				    cx = tx;
93.   				    lastx = tx+1;
94.   				    cy = ty;
95.   				    lasty = ty;
96.   				    goto nxtc;
97.   				}
98.   			    }
99.   			    lastx = 1;
100.  			}
101.  			if(lasty != 0) {
102.  			    lasty = 0;
103.  			    lastx = 1;
104.  			    goto loopback;
105.  			}
106.  			pline("Can't find dungeon feature '%c'", c);
107.  			goto nxtc;
108.  		    }
109.  
110.  		pline("Unknown direction: '%s' (%s).",
111.  		      visctrl((char)c),
112.  		      force ?
113.  		      flags.num_pad ? "use 2468 or ." :
114.  		      "use hjkl or ." :
115.  		      "aborted");
116.  	    }
117.  	    if(force) goto nxtc;
118.  	    pline("Done.");
119.  	    cc->x = -1;
120.  	    cc->y = 0;
121.  	    return;
122.  	}
123.      nxtc:	;
124.  #ifdef CLIPPING
125.  	cliparound(cx, cy);
126.  #endif
127.  	curs(WIN_MAP,cx,cy);
128.  	flush_screen(0);
129.      }
130.      cc->x = cx;
131.      cc->y = cy;
132.      return;
133.  }
134.  
135.  struct monst *
136.  christen_monst(mtmp, name)
137.  struct monst *mtmp;
138.  const char *name;
139.  {
140.  	register int lth,i;
141.  	register struct monst *mtmp2;
142.  
143.  	/* dogname and catname are 63-character arrays; the generic naming
144.  	 * function do_mname() below also cut names off at 63 characters */
145.  	lth = strlen(name)+1;
146.  	if(lth > 63){
147.  		lth = 63;
148.  	}
149.  	mtmp2 = newmonst(mtmp->mxlth + lth);
150.  	*mtmp2 = *mtmp;
151.  	for(i=0; i<mtmp->mxlth; i++)
152.  		((char *) mtmp2->mextra)[i] = ((char *) mtmp->mextra)[i];
153.  	mtmp2->mnamelth = lth;
154.  	(void)strncpy(NAME(mtmp2), name, lth);
155.  	NAME(mtmp2)[lth-1] = 0;
156.  	replmon(mtmp,mtmp2);
157.  	return(mtmp2);
158.  }
159.  
160.  int
161.  do_mname()
162.  {
163.  	char buf[BUFSZ];
164.  	coord cc;
165.  	register int cx,cy;
166.  	register struct monst *mtmp;
167.  	register char *curr;
168.  	boolean blank;
169.  	char qbuf[QBUFSZ];
170.  
171.  	if (Hallucination) {
172.  		You("would never recognize it anyway.");
173.  		return 0;
174.  	}
175.  	cc.x = u.ux;
176.  	cc.y = u.uy;
177.  	getpos(&cc, FALSE, "the monster you want to name");
178.  	cx = cc.x;
179.  	cy = cc.y;
180.  	if(cx < 0) return(0);
181.  	if (cx == u.ux && cy == u.uy) {
182.  		pline("This %s creature is called %s and cannot be renamed.",
183.  		ACURR(A_CHA) > 14 ?
184.  		(flags.female ? "beautiful" : "handsome") :
185.  		"ugly",
186.  		plname);
187.  		return(0);
188.  	}
189.  	mtmp = m_at(cx, cy);
190.  	if (!mtmp || (!sensemon(mtmp) &&
191.  			(!cansee(cx,cy) || mtmp->mundetected
192.  			|| mtmp->m_ap_type == M_AP_FURNITURE
193.  			|| mtmp->m_ap_type == M_AP_OBJECT
194.  			|| (mtmp->minvis && !See_invisible)))) {
195.  		pline("I see no monster there.");
196.  		return(0);
197.  	}
198.  	Sprintf(qbuf, "What do you want to call %s?", x_monnam(mtmp, 0,
199.  		(char *)0, 1));
200.  	getlin(qbuf,buf);
201.  	clear_nhwindow(WIN_MESSAGE);
202.  	if(!*buf || *buf == '\033') return(0);
203.  
204.  	/* unnames monster if all spaces */
205.  	for (curr = buf, blank = 1; *curr; blank = (*curr++ == ' '));
206.  	if(blank) *buf = '\0';
207.  
208.   	if(type_is_pname(mtmp->data))
209.   	    pline("%s doesn't like being called names!", Monnam(mtmp));
210.  	else (void) christen_monst(mtmp, buf);
211.  	return(0);
212.  }
213.  
214.  /*
215.   * This routine changes the address of obj. Be careful not to call it
216.   * when there might be pointers around in unknown places. For now: only
217.   * when obj is in the inventory.
218.   */
219.  static
220.  void
221.  do_oname(obj)
222.  register struct obj *obj;
223.  {
224.  	char buf[BUFSZ], qbuf[QBUFSZ];
225.  	register char *curr;
226.  
227.  	Sprintf(qbuf, "What do you want to name %s?", doname(obj));
228.  	getlin(qbuf, buf);
229.  	clear_nhwindow(WIN_MESSAGE);
230.  	if(!*buf || *buf == '\033')	return;
231.  
232.  	/* strip trailing spaces; unnames item if all spaces */
233.  	for (curr = eos(buf); curr > buf; )
234.  		if (*--curr == ' ') *curr = '\0'; else break;
235.  
236.  	if(obj->oartifact)
237.  		pline("The artifact seems to resist the attempt.");
238.  	else if (restrict_name(obj, buf) || exist_artifact(obj->otyp, buf)) {
239.  		int n = rn2((int)strlen(buf));
240.  		register char c1, c2;
241.  
242.  		c1 = lowc(buf[n]);
243.  		do c2 = 'a' + rn2('z'-'a'); while (c1 == c2);
244.  		buf[n] = (buf[n] == c1) ? c2 : highc(c2);  /* keep same case */
245.  		pline("While engraving your %s slips.", body_part(HAND));
246.  		display_nhwindow(WIN_MESSAGE, FALSE);
247.  		You("engrave: \"%s\".",buf);
248.  		(void)oname(obj, buf, 1);
249.  	}
250.  	else
251.  		(void)oname(obj, buf, 1);
252.  }
253.  
254.  struct obj *
255.  oname(obj, buf, ininv)
256.  register struct obj *obj;
257.  const char	*buf;
258.  register int ininv;
259.  {
260.  	register struct obj *otmp, *otmp2;
261.  	register int	lth;
262.  
263.  	lth = *buf ? strlen(buf)+1 : 0;
264.  	if(lth > 63){
265.  		lth = 63;
266.  	}
267.  	/* if already properly named */
268.  	if(lth == obj->onamelth && (!lth || !strcmp(ONAME(obj),buf)))
269.  		return obj;
270.  
271.  	/* If named artifact exists in the game, do not create another.
272.  	 * Also trying to create an artifact shouldn't de-artifact
273.  	 * it (e.g. Excalibur from prayer). In this case the object
274.  	 * will retain its current name. */
275.  	if (obj->oartifact || exist_artifact(obj->otyp, buf))
276.  		return obj;
277.  
278.  	otmp2 = newobj(lth);
279.  	*otmp2 = *obj;	/* the cobj pointer is copied to otmp2 */
280.  	otmp2->onamelth = lth;
281.  	artifact_exists(otmp2, buf, TRUE);
282.  
283.  #ifdef __GNUC__
284.  	/* Avoid an old compiler bug (always gave empty name otherwise). */
285.  	if (buf) (void)donull();
286.  #endif
287.  	if(lth) {
288.  		(void)strncpy(ONAME(otmp2), buf, lth);
289.  		ONAME(otmp2)[lth-1] = 0;
290.  	}
291.  	if (obj->owornmask) {
292.  		/* Note: dying by burning in Hell causes problems if you
293.  		 * try doing this when owornmask isn't set.
294.  		 */
295.  		setworn((struct obj *)0, obj->owornmask);
296.  		setworn(otmp2, otmp2->owornmask);
297.  	}
298.  
299.  	if (ininv) {
300.  		/* do freeinv(obj); etc. by hand in order to preserve
301.  		   the position of this object in the inventory */
302.  		if(obj == invent) invent = otmp2;
303.  		else for(otmp = invent; ; otmp = otmp->nobj){
304.  			if(!otmp)
305.  				panic("oname: cannot find obj.");
306.  			if(otmp->nobj == obj){
307.  				otmp->nobj = otmp2;
308.  				break;
309.  			}
310.  		}
311.  	}
312.  	/* obfree(obj, otmp2);	/* now unnecessary: no pointers on bill */
313.  	dealloc_obj(obj);	/* let us hope nobody else saved a pointer */
314.  	return otmp2;
315.  }
316.  
317.  static const char NEARDATA callable[] = {
318.  	SCROLL_CLASS, POTION_CLASS, WAND_CLASS, RING_CLASS, AMULET_CLASS,
319.  	GEM_CLASS, SPBOOK_CLASS, ARMOR_CLASS, TOOL_CLASS, 0 };
320.  
321.  int
322.  ddocall()
323.  {
324.  	register struct obj *obj;
325.  #ifdef REDO
326.  	char	ch;
327.  #endif
328.  	char allow_all[2];
329.  
330.  	switch(
331.  #ifdef REDO
332.  		ch = 
333.  #endif
334.  		ynq("Name an individual object?")) {
335.  	case 'q':
336.  		break;
337.  	case 'y':
338.  #ifdef REDO
339.  		savech(ch);
340.  #endif
341.  		allow_all[0] = ALL_CLASSES; allow_all[1] = '\0';
342.  		obj = getobj(allow_all, "name");
343.  		if(obj) do_oname(obj);
344.  		break;
345.  	default :
346.  #ifdef REDO
347.  		savech(ch);
348.  #endif
349.  		obj = getobj(callable, "call");
350.  		if (obj) {
351.  			if (!obj->dknown) {
352.  				You("would never recognize another one.");
353.  				return 0;
354.  			}
355.  			docall(obj);
356.  		}
357.  		break;
358.  	}
359.  	return 0;
360.  }
361.  
362.  void
363.  docall(obj)
364.  register struct obj *obj;
365.  {
366.  	char buf[BUFSZ], qbuf[QBUFSZ];
367.  	struct obj otemp;
368.  	register char **str1;
369.  	register char *str;
370.  	boolean blank;
371.  
372.  	if (!obj->dknown) return; /* probably blind */
373.  	otemp = *obj;
374.  	otemp.quan = 1L;
375.  	otemp.onamelth = 0;
376.  	if (objects[otemp.otyp].oc_class == POTION_CLASS && otemp.corpsenm) {
377.  		/* kludge, meaning it's sink water */
378.  		Sprintf(qbuf,"Call a stream of %s fluid:",
379.  				OBJ_DESCR(objects[otemp.otyp]));
380.  	} else
381.  		Sprintf(qbuf, "Call %s:", an(xname(&otemp)));
382.  	getlin(qbuf, buf);
383.  	clear_nhwindow(WIN_MESSAGE);
384.  	if(!*buf || *buf == '\033')
385.  		return;
386.  
387.  	/* clear old name */
388.  	str1 = &(objects[obj->otyp].oc_uname);
389.  	if(*str1) free((genericptr_t)*str1);
390.  
391.  	/* uncalls item if all spaces */
392.  	for (str = buf, blank = 1; *str; blank = (*str++ == ' '));
393.  	if(blank) *buf = '\0';
394.  	if (!*buf) {
395.  		if (*str1)	/* had name, so possibly remove from disco[] */
396.  			undiscover_object(obj->otyp),  *str1 = NULL;
397.  	} else {
398.  		*str1 = strcpy((char *) alloc((unsigned)strlen(buf)+1), buf);
399.  		discover_object(obj->otyp, FALSE); /* possibly add to disco[] */
400.  	}
401.  }
402.  
403.  #endif /*OVLB*/
404.  #ifdef OVL0
405.  
406.  static const char *ghostnames[] = {
407.  	/* these names should have length < PL_NSIZ */
408.  	/* Capitalize the names for aesthetics -dgk */
409.  	"Adri", "Andries", "Andreas", "Bert", "David", "Dirk", "Emile",
410.  	"Frans", "Fred", "Greg", "Hether", "Jay", "John", "Jon", "Karnov",
411.  	"Kay", "Kenny", "Kevin", "Maud", "Michiel", "Mike", "Peter", "Robert",
412.  	"Ron", "Tom", "Wilmar", "Nick Danger", "Phoenix", "Jiro", "Mizue",
413.  	"Stephan", "Lance Braccus", "Shadowhawk"
414.  };
415.  
416.  /* Monster naming functions:
417.   * x_monnam is the generic monster-naming function.
418.   * mon_nam: the rust monster  it  the invisible orc  Fido
419.   * l_monnam:  rust monster    it  invisible orc      dog called fido
420.   * Monnam:    The rust monster    It  The invisible orc  Fido
421.   * Adjmonnam: The poor rust monster  It   The poor invisible orc  The poor Fido
422.   * Amonnam:   A rust monster      It  An invisible orc   Fido
423.   * a_monnam:  a rust monster      it  an invisible orc   Fido
424.   */
425.  
426.  char *
427.  x_monnam(mtmp, article, adjective, called)
428.  register struct monst *mtmp;
429.  /* Articles:
430.   * 0: "the" in front of everything except names and "it"
431.   * 1: "the" in front of everything except "it"; looks bad for names unless you
432.   *    are also using an adjective.
433.   * 2: "a" in front of everything except "it".
434.   * 3: no article at all.
435.   */
436.  int article, called;
437.  const char *adjective;
438.  {
439.  #ifdef LINT	/* static char buf[BUFSZ]; */
440.  	char buf[BUFSZ];
441.  #else
442.  	static char buf[BUFSZ];
443.  #endif
444.  	char *name = (mtmp->mnamelth && !Hallucination && !mtmp->isshk) ?
445.  	                          NAME(mtmp) : 0;
446.  	int force_the = (!Hallucination && mtmp->data ==
447.  		&mons[PM_WIZARD_OF_YENDOR]);
448.  
449.  	buf[0] = '\0';
450.  	if(mtmp->ispriest || mtmp->isminion) {
451.  		name = priestname(mtmp);
452.  		if (article == 3 && !strncmp(name, "the ", 4)) name += 4;
453.  		return name;
454.  	}
455.  	if(!canseemon(mtmp) && !sensemon(mtmp) &&
456.  					!(u.uswallow && mtmp == u.ustuck)) {
457.  	    if(!mtmp->wormno || (mtmp != m_at(bhitpos.x, bhitpos.y)) ||
458.  	       !(cansee(bhitpos.x, bhitpos.y) && mon_visible(mtmp))) {
459.  		Strcpy(buf, "it");
460.  		return (buf);
461.  	    }
462.  	}
463.  	if (mtmp->isshk) {
464.  		Strcpy(buf, shkname(mtmp));
465.  		if (mtmp->data == &mons[PM_SHOPKEEPER] && !mtmp->minvis)
466.  		    return(buf);
467.  		/* For normal shopkeepers, just 'Asidonhopo'.
468.  		 * For unusual ones, 'Asidonhopo the invisible shopkeeper'
469.  		 * or 'Asidonhopo the blue dragon'.
470.  		 */
471.  		Strcat(buf, " ");
472.  	}
473.  	if (force_the ||
474.  	       ((article == 1 || ((!name || called) && article == 0)) &&
475.  		   (Hallucination || !type_is_pname(mtmp->data))))
476.  		Strcat(buf, "the ");
477.  	if (adjective) {
478.  		Strcat(buf, adjective);
479.  		Strcat(buf, " ");
480.  	}
481.  	if (mtmp->minvis)
482.  		Strcat(buf, "invisible ");
483.  	if (name && !called) {
484.  		Strcat(buf, name);
485.  		goto bot_nam;
486.  	}
487.  	if (mtmp->data == &mons[PM_GHOST] && !Hallucination) {
488.  		register const char *gn = (const char *) mtmp->mextra;
489.  		if(!*gn) {		/* might also look in scorefile */
490.  		    gn = ghostnames[rn2(SIZE(ghostnames))];
491.  		    Strcpy((char *) mtmp->mextra, !rn2(5) ? 
492.  			                   (const char *)plname : gn);
493.  		}
494.  		Sprintf(buf, "%s ghost", s_suffix((char *) mtmp->mextra));
495.  	} else {
496.  	        if(Hallucination)
497.  		    Strcat(buf, rndmonnam());
498.  		else {
499.  		    if(is_mplayer(mtmp->data) && !In_endgame(&u.uz)) { 
500.  		        char pbuf[BUFSZ];
501.  	                Strcpy(pbuf, rank_of((unsigned)mtmp->m_lev,
502.  		                              highc(mtmp->data->mname[0]), 
503.  			                      (boolean)mtmp->female));
504.  			Strcat(buf, lcase(pbuf));
505.  		    } else
506.  		        Strcat(buf, mtmp->data->mname);
507.  		}
508.  	}
509.  	if(name) {
510.  		Strcat(buf, " called ");
511.  		Strcat(buf, NAME(mtmp));
512.  	}
513.  bot_nam:
514.  	if (article == 2 && !force_the && (!name || called) &&
515.  	    (Hallucination || !type_is_pname(mtmp->data)))
516.  		return an(buf);
517.  	else
518.  		return(buf);
519.  }
520.  
521.  #endif /* OVL0 */
522.  #ifdef OVLB
523.  
524.  char *
525.  l_monnam(mtmp)
526.  register struct monst *mtmp;
527.  {
528.  	return(x_monnam(mtmp, 3, (char *)0, 1));
529.  }
530.  
531.  #endif /* OVLB */
532.  #ifdef OVL0
533.  
534.  char *
535.  mon_nam(mtmp)
536.  register struct monst *mtmp;
537.  {
538.  	return(x_monnam(mtmp, 0, (char *)0, 0));
539.  }
540.  
541.  char *
542.  Monnam(mtmp)
543.  register struct monst *mtmp;
544.  {
545.  	register char *bp = mon_nam(mtmp);
546.  
547.  	*bp = highc(*bp);
548.  	return(bp);
549.  }
550.  
551.  #endif /* OVL0 */
552.  #ifdef OVLB
553.  
554.  char *
555.  Adjmonnam(mtmp, adj)
556.  register struct monst *mtmp;
557.  register const char *adj;
558.  {
559.  	register char *bp = x_monnam(mtmp,1,adj,0);
560.  
561.  	*bp = highc(*bp);
562.  	return(bp);
563.  }
564.  
565.  char *
566.  a_monnam(mtmp)
567.  register struct monst *mtmp;
568.  {
569.  	return x_monnam(mtmp, 2, (char *)0, 0);
570.  }
571.  
572.  char *
573.  Amonnam(mtmp)
574.  register struct monst *mtmp;
575.  {
576.  	register char *bp = a_monnam(mtmp);
577.  
578.  	*bp = highc(*bp);
579.  	return(bp);
580.  }
581.  
582.  static const char NEARDATA *bogusmons[] = {
583.  	"jumbo shrimp", "giant pigmy", "gnu", "killer penguin", 
584.  	"giant cockroach", "giant slug", "maggot", "pterodactyl",
585.  	"tyrannosaurus rex", "basilisk", "beholder", "nightmare",
586.  	"efreeti", "marid", "rot grub", "bookworm", "doppelganger",
587.  	"shadow", "hologram", "jester", "attorney", "sleazoid",
588.  	"killer tomato", "amazon", "robot", "battlemech",
589.  	"rhinovirus", "harpy", "lion-dog", "rat-ant",
590.  						/* misc. */
591.  	"grue", "Christmas-tree monster", "luck sucker", "paskald",
592.  	"brogmoid", "dornbeast",		/* Quendor (Zork, &c.) */
593.  	"Ancient Multi-Hued Dragon", "Evil Iggy",
594.  						/* Moria */
595.  	"emu", "kestrel", "xeroc", "venus flytrap",
596.  						/* Rogue */
597.  	"creeping coins",			/* Wizardry */
598.  	"hydra", "siren",			/* Greek legend */
599.  	"killer bunny",				/* Monty Python */
600.  	"rodent of unusual size",		/* The Princess Bride */
601.  	"Smokey the bear",	/* "Only you can prevent forest fires!" */
602.  	"Luggage",				/* Discworld */
603.  	"Ent", 					/* Lord of the Rings */
604.  	"tangle tree", "nickelpede", "wiggle",	/* Xanth */
605.  	"white rabbit", "snark",		/* Lewis Carroll */
606.  	"pushmi-pullyu",			/* Dr. Doolittle */
607.  	"smurf",				/* The Smurfs */
608.  	"tribble", "Klingon", "Borg",		/* Star Trek */
609.  	"Ewok", 				/* Star Wars */
610.  	"Totoro",				/* Tonari no Totoro */
611.  	"ohmu", 				/* Nausicaa */
612.  	"Godzilla", "King Kong",		/* monster movies */
613.  	"earthquake beast",			/* old L of SH */
614.  	"Invid",				/* Robotech */
615.  	"Terminator",				/* The Terminator */
616.  	"boomer",				/* Bubblegum Crisis */
617.  	"Dalek",				/* Dr. Who ("Exterminate!") */
618.  	"microscopic space fleet", "Ravenous Bugblatter Beast of Traal",
619.  						/* HGttG */
620.  	"teenage mutant ninja turtle",		/* TMNT */
621.  	"samurai rabbit",			/* Usagi Yojimbo */
622.  	"aardvark",				/* Cerebus */
623.  	"Audrey II",				/* Little Shop of Horrors */
624.  	"witch doctor", "one-eyed one-horned flying purple people eater"
625.  						/* 50's rock 'n' roll */
626.  };
627.  
628.  const char *
629.  rndmonnam() {  /* Random name of monster type, if hallucinating */
630.  	int name;
631.  
632.  	do {
633.  		name = rn2(PM_ARCHEOLOGIST + SIZE(bogusmons));
634.  		/* archeologist: 1 past last valid monster */
635.  	} while(name < PM_ARCHEOLOGIST &&
636.  	    (type_is_pname(&mons[name]) || (mons[name].geno & G_NOGEN)));
637.  	if (name >= PM_ARCHEOLOGIST) return bogusmons[name-PM_ARCHEOLOGIST];
638.  	return(mons[name].mname);
639.  }
640.  
641.  #ifdef OVL2
642.  
643.  static const char NEARDATA *hcolors[] = {
644.  	"ultraviolet", "infrared", "bluish-orange",
645.  	"reddish-green", "dark white", "light black", "sky blue-pink",
646.  	"salty", "sweet", "sour", "bitter",
647.  	"striped", "spiral", "swirly", "plaid", "checkered", "argyle",
648.  	"paisley", "blotchy", "guernsey-spotted", "polka-dotted",
649.  	"square", "round", "triangular",
650.  	"cabernet", "sangria", "fuchsia", "wisteria",
651.  	"lemon-lime", "strawberry-banana", "peppermint",
652.  	"romantic", "incandescent"
653.  };
654.  
655.  const char *
656.  hcolor()
657.  {
658.  	return hcolors[rn2(SIZE(hcolors))];
659.  }
660.  #endif /* OVL2 */
661.  
662.  const char *pronoun_pairs[][2] = {
663.  	{"him", "her"}, {"Him", "Her"}, {"his", "her"}, {"His", "Her"},
664.  	{"he", "she"}, {"He", "She"},
665.  	{0, 0}
666.  };
667.  
668.  char *
669.  self_pronoun(str, pronoun)
670.  const char *str;
671.  const char *pronoun;
672.  {
673.  	static char NEARDATA buf[BUFSZ];
674.  	register int i;
675.  
676.  	for(i=0; pronoun_pairs[i][0]; i++) {
677.  		if(!strncmp(pronoun, pronoun_pairs[i][0], 3)) {
678.  			Sprintf(buf, str, pronoun_pairs[i][flags.female]);
679.  			return buf;
680.  		}
681.  	}
682.  	impossible("never heard of pronoun %s?", pronoun);
683.  	Sprintf(buf, str, pronoun_pairs[i][0]);
684.  	return buf;
685.  }
686.  
687.  #ifdef REINCARNATION
688.  const char *
689.  roguename() /* Name of a Rogue player */
690.  {
691.  	char *i, *opts;
692.  
693.  	if(opts = getenv("ROGUEOPTS")) {
694.  		for(i=opts; *i; i++)
695.  			if (!strncmp("name=",i,5)) {
696.  				char *j;
697.  				if (j=index(i+5,','))
698.  					*j = (char)0;
699.  				return i+5;
700.  			}
701.  	}
702.  	return rn2(3) ? (rn2(2) ? "Michael Toy" : "Kenneth Arnold")
703.  		: "Glenn Wichman";
704.  }
705.  #endif
706.  
707.  #endif /* OVLB */
708.  
709.  /*do_name.c*/

Around Wikia's network

Random Wiki