unnethack/src/shknam.c

351 nameshk(shk, nlp)  in nameshk()  argument
352 struct monst *shk;  in nameshk()
365 	    shk->female = FALSE;
370 	    shk->female = TRUE;
381 	    shk->female = name_wanted & 1;
389 		    shk->female = (*shname == '_');
390 		    if (shk->female) shname++;
393 		    shk->female = (*shname == '_');
394 		    if (shk->female) shname++;
405 		    shname = shk->female ? "Lucrezia" : "Dirk";
410 		    if (DEADMONSTER(mtmp) || (mtmp == shk) || !mtmp->isshk) continue;
417 	(void) strncpy(ESHK(shk)->shknam, shname, PL_NSIZ);
418 	ESHK(shk)->shknam[PL_NSIZ-1] = 0;
427 	struct monst *shk;  local
481 	shk = 0;
483 	  shk = makemon(&mons[PM_BLACK_MARKETEER], sx, sy, NO_MM_FLAGS);
485 	if (!shk) {
486 	  if(!(shk = makemon(&mons[PM_SHOPKEEPER], sx, sy, NO_MM_FLAGS)))
490 	if(!(shk = makemon(&mons[PM_SHOPKEEPER], sx, sy, NO_MM_FLAGS)))
494 	shk->isshk = shk->mpeaceful = 1;
495 	set_malign(shk);
496 	shk->msleeping = 0;
497 	shk->mtrapseen = ~0;	/* we know all the traps already */
498 	ESHK(shk)->shoproom = (sroom - rooms) + ROOMOFFSET;
499 	sroom->resident = shk;
500 	ESHK(shk)->shoptype = sroom->rtype;
501 	assign_level(&(ESHK(shk)->shoplevel), &u.uz);
502 	ESHK(shk)->shd = doors[sh];
503 	ESHK(shk)->shk.x = sx;
504 	ESHK(shk)->shk.y = sy;
505 	ESHK(shk)->robbed = 0L;
506 	ESHK(shk)->credit = 0L;
507 	ESHK(shk)->debit = 0L;
508 	ESHK(shk)->loan = 0L;
509 	ESHK(shk)->visitct = 0;
510 	ESHK(shk)->following = 0;
511 	ESHK(shk)->cheapskate = (rn2(3)==0) ? TRUE : FALSE;
512 	ESHK(shk)->billct = 0;
513 	ESHK(shk)->bill_p = &ESHK(shk)->bill[0];
521 	    (void) mongets(shk, TOUCHSTONE);
522 	nameshk(shk, shp->shknms);
533 	shk->mgold = shkmoney;
535   mkmonmoney(shk, shkmoney);
542 	  shk->data->maligntyp = -1;
546 	  mpickobj(shk, otmp);
549 	  mpickobj(shk, otmp);
552 	  mpickobj(shk, otmp);
555 	  mpickobj(shk, otmp);
558 	  mpickobj(shk, otmp);
560 	  m_dowear(shk, TRUE);
562 	  mpickobj(shk, otmp);