Home | History | Annotate | Line # | Download | only in hack
hack.eat.c revision 1.2
      1  1.2  mycroft /*
      2  1.2  mycroft  * Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985.
      3  1.2  mycroft  */
      4  1.2  mycroft 
      5  1.2  mycroft #ifndef lint
      6  1.2  mycroft static char rcsid[] = "$Id: hack.eat.c,v 1.2 1993/08/02 17:17:08 mycroft Exp $";
      7  1.2  mycroft #endif /* not lint */
      8  1.1      cgd 
      9  1.1      cgd #include	"hack.h"
     10  1.1      cgd char POISONOUS[] = "ADKSVabhks";
     11  1.1      cgd extern char *nomovemsg;
     12  1.1      cgd extern int (*afternmv)();
     13  1.1      cgd extern int (*occupation)();
     14  1.1      cgd extern char *occtxt;
     15  1.1      cgd extern struct obj *splitobj(), *addinv();
     16  1.1      cgd 
     17  1.1      cgd /* hunger texts used on bottom line (each 8 chars long) */
     18  1.1      cgd #define	SATIATED	0
     19  1.1      cgd #define NOT_HUNGRY	1
     20  1.1      cgd #define	HUNGRY		2
     21  1.1      cgd #define	WEAK		3
     22  1.1      cgd #define	FAINTING	4
     23  1.1      cgd #define FAINTED		5
     24  1.1      cgd #define STARVED		6
     25  1.1      cgd 
     26  1.1      cgd char *hu_stat[] = {
     27  1.1      cgd 	"Satiated",
     28  1.1      cgd 	"        ",
     29  1.1      cgd 	"Hungry  ",
     30  1.1      cgd 	"Weak    ",
     31  1.1      cgd 	"Fainting",
     32  1.1      cgd 	"Fainted ",
     33  1.1      cgd 	"Starved "
     34  1.1      cgd };
     35  1.1      cgd 
     36  1.1      cgd init_uhunger(){
     37  1.1      cgd 	u.uhunger = 900;
     38  1.1      cgd 	u.uhs = NOT_HUNGRY;
     39  1.1      cgd }
     40  1.1      cgd 
     41  1.1      cgd #define	TTSZ	SIZE(tintxts)
     42  1.1      cgd struct { char *txt; int nut; } tintxts[] = {
     43  1.1      cgd 	"It contains first quality peaches - what a surprise!",	40,
     44  1.1      cgd 	"It contains salmon - not bad!",	60,
     45  1.1      cgd 	"It contains apple juice - perhaps not what you hoped for.", 20,
     46  1.1      cgd 	"It contains some nondescript substance, tasting awfully.", 500,
     47  1.1      cgd 	"It contains rotten meat. You vomit.", -50,
     48  1.1      cgd 	"It turns out to be empty.",	0
     49  1.1      cgd };
     50  1.1      cgd 
     51  1.1      cgd static struct {
     52  1.1      cgd 	struct obj *tin;
     53  1.1      cgd 	int usedtime, reqtime;
     54  1.1      cgd } tin;
     55  1.1      cgd 
     56  1.1      cgd opentin(){
     57  1.1      cgd 	register int r;
     58  1.1      cgd 
     59  1.1      cgd 	if(!carried(tin.tin))		/* perhaps it was stolen? */
     60  1.1      cgd 		return(0);		/* %% probably we should use tinoid */
     61  1.1      cgd 	if(tin.usedtime++ >= 50) {
     62  1.1      cgd 		pline("You give up your attempt to open the tin.");
     63  1.1      cgd 		return(0);
     64  1.1      cgd 	}
     65  1.1      cgd 	if(tin.usedtime < tin.reqtime)
     66  1.1      cgd 		return(1);		/* still busy */
     67  1.1      cgd 
     68  1.1      cgd 	pline("You succeed in opening the tin.");
     69  1.1      cgd 	useup(tin.tin);
     70  1.1      cgd 	r = rn2(2*TTSZ);
     71  1.1      cgd 	if(r < TTSZ){
     72  1.1      cgd 	    pline(tintxts[r].txt);
     73  1.1      cgd 	    lesshungry(tintxts[r].nut);
     74  1.1      cgd 	    if(r == 1)	/* SALMON */ {
     75  1.1      cgd 		Glib = rnd(15);
     76  1.1      cgd 		pline("Eating salmon made your fingers very slippery.");
     77  1.1      cgd 	    }
     78  1.1      cgd 	} else {
     79  1.1      cgd 	    pline("It contains spinach - this makes you feel like Popeye!");
     80  1.1      cgd 	    lesshungry(600);
     81  1.1      cgd 	    if(u.ustr < 118)
     82  1.1      cgd 		u.ustr += rnd( ((u.ustr < 17) ? 19 : 118) - u.ustr);
     83  1.1      cgd 	    if(u.ustr > u.ustrmax) u.ustrmax = u.ustr;
     84  1.1      cgd 	    flags.botl = 1;
     85  1.1      cgd 	}
     86  1.1      cgd 	return(0);
     87  1.1      cgd }
     88  1.1      cgd 
     89  1.1      cgd Meatdone(){
     90  1.1      cgd 	u.usym = '@';
     91  1.1      cgd 	prme();
     92  1.1      cgd }
     93  1.1      cgd 
     94  1.1      cgd doeat(){
     95  1.1      cgd 	register struct obj *otmp;
     96  1.1      cgd 	register struct objclass *ftmp;
     97  1.1      cgd 	register tmp;
     98  1.1      cgd 
     99  1.1      cgd 	/* Is there some food (probably a heavy corpse) here on the ground? */
    100  1.1      cgd 	if(!Levitation)
    101  1.1      cgd 	for(otmp = fobj; otmp; otmp = otmp->nobj) {
    102  1.1      cgd 		if(otmp->ox == u.ux && otmp->oy == u.uy &&
    103  1.1      cgd 		   otmp->olet == FOOD_SYM) {
    104  1.1      cgd 			pline("There %s %s here; eat %s? [ny] ",
    105  1.1      cgd 				(otmp->quan == 1) ? "is" : "are",
    106  1.1      cgd 				doname(otmp),
    107  1.1      cgd 				(otmp->quan == 1) ? "it" : "one");
    108  1.1      cgd 			if(readchar() == 'y') {
    109  1.1      cgd 				if(otmp->quan != 1)
    110  1.1      cgd 					(void) splitobj(otmp, 1);
    111  1.1      cgd 				freeobj(otmp);
    112  1.1      cgd 				otmp = addinv(otmp);
    113  1.1      cgd 				addtobill(otmp);
    114  1.1      cgd 				goto gotit;
    115  1.1      cgd 			}
    116  1.1      cgd 		}
    117  1.1      cgd 	}
    118  1.1      cgd 	otmp = getobj("%", "eat");
    119  1.1      cgd 	if(!otmp) return(0);
    120  1.1      cgd gotit:
    121  1.1      cgd 	if(otmp->otyp == TIN){
    122  1.1      cgd 		if(uwep) {
    123  1.1      cgd 			switch(uwep->otyp) {
    124  1.1      cgd 			case CAN_OPENER:
    125  1.1      cgd 				tmp = 1;
    126  1.1      cgd 				break;
    127  1.1      cgd 			case DAGGER:
    128  1.1      cgd 			case CRYSKNIFE:
    129  1.1      cgd 				tmp = 3;
    130  1.1      cgd 				break;
    131  1.1      cgd 			case PICK_AXE:
    132  1.1      cgd 			case AXE:
    133  1.1      cgd 				tmp = 6;
    134  1.1      cgd 				break;
    135  1.1      cgd 			default:
    136  1.1      cgd 				goto no_opener;
    137  1.1      cgd 			}
    138  1.1      cgd 			pline("Using your %s you try to open the tin.",
    139  1.1      cgd 				aobjnam(uwep, (char *) 0));
    140  1.1      cgd 		} else {
    141  1.1      cgd 		no_opener:
    142  1.1      cgd 			pline("It is not so easy to open this tin.");
    143  1.1      cgd 			if(Glib) {
    144  1.1      cgd 				pline("The tin slips out of your hands.");
    145  1.1      cgd 				if(otmp->quan > 1) {
    146  1.1      cgd 					register struct obj *obj;
    147  1.1      cgd 					extern struct obj *splitobj();
    148  1.1      cgd 
    149  1.1      cgd 					obj = splitobj(otmp, 1);
    150  1.1      cgd 					if(otmp == uwep) setuwep(obj);
    151  1.1      cgd 				}
    152  1.1      cgd 				dropx(otmp);
    153  1.1      cgd 				return(1);
    154  1.1      cgd 			}
    155  1.1      cgd 			tmp = 10 + rn2(1 + 500/((int)(u.ulevel + u.ustr)));
    156  1.1      cgd 		}
    157  1.1      cgd 		tin.reqtime = tmp;
    158  1.1      cgd 		tin.usedtime = 0;
    159  1.1      cgd 		tin.tin = otmp;
    160  1.1      cgd 		occupation = opentin;
    161  1.1      cgd 		occtxt = "opening the tin";
    162  1.1      cgd 		return(1);
    163  1.1      cgd 	}
    164  1.1      cgd 	ftmp = &objects[otmp->otyp];
    165  1.1      cgd 	multi = -ftmp->oc_delay;
    166  1.1      cgd 	if(otmp->otyp >= CORPSE && eatcorpse(otmp)) goto eatx;
    167  1.1      cgd 	if(!rn2(7) && otmp->otyp != FORTUNE_COOKIE) {
    168  1.1      cgd 		pline("Blecch!  Rotten food!");
    169  1.1      cgd 		if(!rn2(4)) {
    170  1.1      cgd 			pline("You feel rather light headed.");
    171  1.1      cgd 			Confusion += d(2,4);
    172  1.1      cgd 		} else if(!rn2(4)&& !Blind) {
    173  1.1      cgd 			pline("Everything suddenly goes dark.");
    174  1.1      cgd 			Blind = d(2,10);
    175  1.1      cgd 			seeoff(0);
    176  1.1      cgd 		} else if(!rn2(3)) {
    177  1.1      cgd 			if(Blind)
    178  1.1      cgd 			  pline("The world spins and you slap against the floor.");
    179  1.1      cgd 			else
    180  1.1      cgd 			  pline("The world spins and goes dark.");
    181  1.1      cgd 			nomul(-rnd(10));
    182  1.1      cgd 			nomovemsg = "You are conscious again.";
    183  1.1      cgd 		}
    184  1.1      cgd 		lesshungry(ftmp->nutrition / 4);
    185  1.1      cgd 	} else {
    186  1.1      cgd 		if(u.uhunger >= 1500) {
    187  1.1      cgd 			pline("You choke over your food.");
    188  1.1      cgd 			pline("You die...");
    189  1.1      cgd 			killer = ftmp->oc_name;
    190  1.1      cgd 			done("choked");
    191  1.1      cgd 		}
    192  1.1      cgd 		switch(otmp->otyp){
    193  1.1      cgd 		case FOOD_RATION:
    194  1.1      cgd 			if(u.uhunger <= 200)
    195  1.1      cgd 				pline("That food really hit the spot!");
    196  1.1      cgd 			else if(u.uhunger <= 700)
    197  1.1      cgd 				pline("That satiated your stomach!");
    198  1.1      cgd 			else {
    199  1.1      cgd 	pline("You're having a hard time getting all that food down.");
    200  1.1      cgd 				multi -= 2;
    201  1.1      cgd 			}
    202  1.1      cgd 			lesshungry(ftmp->nutrition);
    203  1.1      cgd 			if(multi < 0) nomovemsg = "You finished your meal.";
    204  1.1      cgd 			break;
    205  1.1      cgd 		case TRIPE_RATION:
    206  1.1      cgd 			pline("Yak - dog food!");
    207  1.1      cgd 			more_experienced(1,0);
    208  1.1      cgd 			flags.botl = 1;
    209  1.1      cgd 			if(rn2(2)){
    210  1.1      cgd 				pline("You vomit.");
    211  1.1      cgd 				morehungry(20);
    212  1.1      cgd 				if(Sick) {
    213  1.1      cgd 					Sick = 0;	/* David Neves */
    214  1.1      cgd 					pline("What a relief!");
    215  1.1      cgd 				}
    216  1.1      cgd 			} else	lesshungry(ftmp->nutrition);
    217  1.1      cgd 			break;
    218  1.1      cgd 		default:
    219  1.1      cgd 			if(otmp->otyp >= CORPSE)
    220  1.1      cgd 			pline("That %s tasted terrible!",ftmp->oc_name);
    221  1.1      cgd 			else
    222  1.1      cgd 			pline("That %s was delicious!",ftmp->oc_name);
    223  1.1      cgd 			lesshungry(ftmp->nutrition);
    224  1.1      cgd 			if(otmp->otyp == DEAD_LIZARD && (Confusion > 2))
    225  1.1      cgd 				Confusion = 2;
    226  1.1      cgd 			else
    227  1.1      cgd #ifdef QUEST
    228  1.1      cgd 			if(otmp->otyp == CARROT && !Blind){
    229  1.1      cgd 				u.uhorizon++;
    230  1.1      cgd 				setsee();
    231  1.1      cgd 				pline("Your vision improves.");
    232  1.1      cgd 			} else
    233  1.1      cgd #endif QUEST
    234  1.1      cgd 			if(otmp->otyp == FORTUNE_COOKIE) {
    235  1.1      cgd 			  if(Blind) {
    236  1.1      cgd 			    pline("This cookie has a scrap of paper inside!");
    237  1.1      cgd 			    pline("What a pity, that you cannot read it!");
    238  1.1      cgd 			  } else
    239  1.1      cgd 			    outrumor();
    240  1.1      cgd 			} else
    241  1.1      cgd 			if(otmp->otyp == LUMP_OF_ROYAL_JELLY) {
    242  1.1      cgd 				/* This stuff seems to be VERY healthy! */
    243  1.1      cgd 				if(u.ustrmax < 118) u.ustrmax++;
    244  1.1      cgd 				if(u.ustr < u.ustrmax) u.ustr++;
    245  1.1      cgd 				u.uhp += rnd(20);
    246  1.1      cgd 				if(u.uhp > u.uhpmax) {
    247  1.1      cgd 					if(!rn2(17)) u.uhpmax++;
    248  1.1      cgd 					u.uhp = u.uhpmax;
    249  1.1      cgd 				}
    250  1.1      cgd 				heal_legs();
    251  1.1      cgd 			}
    252  1.1      cgd 			break;
    253  1.1      cgd 		}
    254  1.1      cgd 	}
    255  1.1      cgd eatx:
    256  1.1      cgd 	if(multi<0 && !nomovemsg){
    257  1.1      cgd 		static char msgbuf[BUFSZ];
    258  1.1      cgd 		(void) sprintf(msgbuf, "You finished eating the %s.",
    259  1.1      cgd 				ftmp->oc_name);
    260  1.1      cgd 		nomovemsg = msgbuf;
    261  1.1      cgd 	}
    262  1.1      cgd 	useup(otmp);
    263  1.1      cgd 	return(1);
    264  1.1      cgd }
    265  1.1      cgd 
    266  1.1      cgd /* called in hack.main.c */
    267  1.1      cgd gethungry(){
    268  1.1      cgd 	--u.uhunger;
    269  1.1      cgd 	if(moves % 2) {
    270  1.1      cgd 		if(Regeneration) u.uhunger--;
    271  1.1      cgd 		if(Hunger) u.uhunger--;
    272  1.1      cgd 		/* a3:  if(Hunger & LEFT_RING) u.uhunger--;
    273  1.1      cgd 			if(Hunger & RIGHT_RING) u.uhunger--;
    274  1.1      cgd 		   etc. */
    275  1.1      cgd 	}
    276  1.1      cgd 	if(moves % 20 == 0) {			/* jimt@asgb */
    277  1.1      cgd 		if(uleft) u.uhunger--;
    278  1.1      cgd 		if(uright) u.uhunger--;
    279  1.1      cgd 	}
    280  1.1      cgd 	newuhs(TRUE);
    281  1.1      cgd }
    282  1.1      cgd 
    283  1.1      cgd /* called after vomiting and after performing feats of magic */
    284  1.1      cgd morehungry(num) register num; {
    285  1.1      cgd 	u.uhunger -= num;
    286  1.1      cgd 	newuhs(TRUE);
    287  1.1      cgd }
    288  1.1      cgd 
    289  1.1      cgd /* called after eating something (and after drinking fruit juice) */
    290  1.1      cgd lesshungry(num) register num; {
    291  1.1      cgd 	u.uhunger += num;
    292  1.1      cgd 	newuhs(FALSE);
    293  1.1      cgd }
    294  1.1      cgd 
    295  1.1      cgd unfaint(){
    296  1.1      cgd 	u.uhs = FAINTING;
    297  1.1      cgd 	flags.botl = 1;
    298  1.1      cgd }
    299  1.1      cgd 
    300  1.1      cgd newuhs(incr) boolean incr; {
    301  1.1      cgd 	register int newhs, h = u.uhunger;
    302  1.1      cgd 
    303  1.1      cgd 	newhs = (h > 1000) ? SATIATED :
    304  1.1      cgd 		(h > 150) ? NOT_HUNGRY :
    305  1.1      cgd 		(h > 50) ? HUNGRY :
    306  1.1      cgd 		(h > 0) ? WEAK : FAINTING;
    307  1.1      cgd 
    308  1.1      cgd 	if(newhs == FAINTING) {
    309  1.1      cgd 		if(u.uhs == FAINTED)
    310  1.1      cgd 			newhs = FAINTED;
    311  1.1      cgd 		if(u.uhs <= WEAK || rn2(20-u.uhunger/10) >= 19) {
    312  1.1      cgd 			if(u.uhs != FAINTED && multi >= 0 /* %% */) {
    313  1.1      cgd 				pline("You faint from lack of food.");
    314  1.1      cgd 				nomul(-10+(u.uhunger/10));
    315  1.1      cgd 				nomovemsg = "You regain consciousness.";
    316  1.1      cgd 				afternmv = unfaint;
    317  1.1      cgd 				newhs = FAINTED;
    318  1.1      cgd 			}
    319  1.1      cgd 		} else
    320  1.1      cgd 		if(u.uhunger < -(int)(200 + 25*u.ulevel)) {
    321  1.1      cgd 			u.uhs = STARVED;
    322  1.1      cgd 			flags.botl = 1;
    323  1.1      cgd 			bot();
    324  1.1      cgd 			pline("You die from starvation.");
    325  1.1      cgd 			done("starved");
    326  1.1      cgd 		}
    327  1.1      cgd 	}
    328  1.1      cgd 
    329  1.1      cgd 	if(newhs != u.uhs) {
    330  1.1      cgd 		if(newhs >= WEAK && u.uhs < WEAK)
    331  1.1      cgd 			losestr(1);	/* this may kill you -- see below */
    332  1.1      cgd 		else
    333  1.1      cgd 		if(newhs < WEAK && u.uhs >= WEAK && u.ustr < u.ustrmax)
    334  1.1      cgd 			losestr(-1);
    335  1.1      cgd 		switch(newhs){
    336  1.1      cgd 		case HUNGRY:
    337  1.1      cgd 			pline((!incr) ? "You only feel hungry now." :
    338  1.1      cgd 			      (u.uhunger < 145) ? "You feel hungry." :
    339  1.1      cgd 				"You are beginning to feel hungry.");
    340  1.1      cgd 			break;
    341  1.1      cgd 		case WEAK:
    342  1.1      cgd 			pline((!incr) ? "You feel weak now." :
    343  1.1      cgd 			      (u.uhunger < 45) ? "You feel weak." :
    344  1.1      cgd 				"You are beginning to feel weak.");
    345  1.1      cgd 			break;
    346  1.1      cgd 		}
    347  1.1      cgd 		u.uhs = newhs;
    348  1.1      cgd 		flags.botl = 1;
    349  1.1      cgd 		if(u.uhp < 1) {
    350  1.1      cgd 			pline("You die from hunger and exhaustion.");
    351  1.1      cgd 			killer = "exhaustion";
    352  1.1      cgd 			done("starved");
    353  1.1      cgd 		}
    354  1.1      cgd 	}
    355  1.1      cgd }
    356  1.1      cgd 
    357  1.1      cgd #define	CORPSE_I_TO_C(otyp)	(char) ((otyp >= DEAD_ACID_BLOB)\
    358  1.1      cgd 		     ?  'a' + (otyp - DEAD_ACID_BLOB)\
    359  1.1      cgd 		     :	'@' + (otyp - DEAD_HUMAN))
    360  1.1      cgd poisonous(otmp)
    361  1.1      cgd register struct obj *otmp;
    362  1.1      cgd {
    363  1.1      cgd 	return(index(POISONOUS, CORPSE_I_TO_C(otmp->otyp)) != 0);
    364  1.1      cgd }
    365  1.1      cgd 
    366  1.1      cgd /* returns 1 if some text was printed */
    367  1.1      cgd eatcorpse(otmp) register struct obj *otmp; {
    368  1.1      cgd register char let = CORPSE_I_TO_C(otmp->otyp);
    369  1.1      cgd register tp = 0;
    370  1.1      cgd 	if(let != 'a' && moves > otmp->age + 50 + rn2(100)) {
    371  1.1      cgd 		tp++;
    372  1.1      cgd 		pline("Ulch -- that meat was tainted!");
    373  1.1      cgd 		pline("You get very sick.");
    374  1.1      cgd 		Sick = 10 + rn2(10);
    375  1.1      cgd 		u.usick_cause = objects[otmp->otyp].oc_name;
    376  1.1      cgd 	} else if(index(POISONOUS, let) && rn2(5)){
    377  1.1      cgd 		tp++;
    378  1.1      cgd 		pline("Ecch -- that must have been poisonous!");
    379  1.1      cgd 		if(!Poison_resistance){
    380  1.1      cgd 			losestr(rnd(4));
    381  1.1      cgd 			losehp(rnd(15), "poisonous corpse");
    382  1.1      cgd 		} else
    383  1.1      cgd 			pline("You don't seem affected by the poison.");
    384  1.1      cgd 	} else if(index("ELNOPQRUuxz", let) && rn2(5)){
    385  1.1      cgd 		tp++;
    386  1.1      cgd 		pline("You feel sick.");
    387  1.1      cgd 		losehp(rnd(8), "cadaver");
    388  1.1      cgd 	}
    389  1.1      cgd 	switch(let) {
    390  1.1      cgd 	case 'L':
    391  1.1      cgd 	case 'N':
    392  1.1      cgd 	case 't':
    393  1.1      cgd 		Teleportation |= INTRINSIC;
    394  1.1      cgd 		break;
    395  1.1      cgd 	case 'W':
    396  1.1      cgd 		pluslvl();
    397  1.1      cgd 		break;
    398  1.1      cgd 	case 'n':
    399  1.1      cgd 		u.uhp = u.uhpmax;
    400  1.1      cgd 		flags.botl = 1;
    401  1.1      cgd 		/* fall into next case */
    402  1.1      cgd 	case '@':
    403  1.1      cgd 		pline("You cannibal! You will be sorry for this!");
    404  1.1      cgd 		/* not tp++; */
    405  1.1      cgd 		/* fall into next case */
    406  1.1      cgd 	case 'd':
    407  1.1      cgd 		Aggravate_monster |= INTRINSIC;
    408  1.1      cgd 		break;
    409  1.1      cgd 	case 'I':
    410  1.1      cgd 		if(!Invis) {
    411  1.1      cgd 			Invis = 50+rn2(100);
    412  1.1      cgd 			if(!See_invisible)
    413  1.1      cgd 				newsym(u.ux, u.uy);
    414  1.1      cgd 		} else {
    415  1.1      cgd 			Invis |= INTRINSIC;
    416  1.1      cgd 			See_invisible |= INTRINSIC;
    417  1.1      cgd 		}
    418  1.1      cgd 		/* fall into next case */
    419  1.1      cgd 	case 'y':
    420  1.1      cgd #ifdef QUEST
    421  1.1      cgd 		u.uhorizon++;
    422  1.1      cgd #endif QUEST
    423  1.1      cgd 		/* fall into next case */
    424  1.1      cgd 	case 'B':
    425  1.1      cgd 		Confusion = 50;
    426  1.1      cgd 		break;
    427  1.1      cgd 	case 'D':
    428  1.1      cgd 		Fire_resistance |= INTRINSIC;
    429  1.1      cgd 		break;
    430  1.1      cgd 	case 'E':
    431  1.1      cgd 		Telepat |= INTRINSIC;
    432  1.1      cgd 		break;
    433  1.1      cgd 	case 'F':
    434  1.1      cgd 	case 'Y':
    435  1.1      cgd 		Cold_resistance |= INTRINSIC;
    436  1.1      cgd 		break;
    437  1.1      cgd 	case 'k':
    438  1.1      cgd 	case 's':
    439  1.1      cgd 		Poison_resistance |= INTRINSIC;
    440  1.1      cgd 		break;
    441  1.1      cgd 	case 'c':
    442  1.1      cgd 		pline("You turn to stone.");
    443  1.1      cgd 		killer = "dead cockatrice";
    444  1.1      cgd 		done("died");
    445  1.1      cgd 		/* NOTREACHED */
    446  1.1      cgd 	case 'a':
    447  1.1      cgd 	  if(Stoned) {
    448  1.1      cgd 	      pline("What a pity - you just destroyed a future piece of art!");
    449  1.1      cgd 	      tp++;
    450  1.1      cgd 	      Stoned = 0;
    451  1.1      cgd 	  }
    452  1.1      cgd 	  break;
    453  1.1      cgd 	case 'M':
    454  1.1      cgd 	  pline("You cannot resist the temptation to mimic a treasure chest.");
    455  1.1      cgd 	  tp++;
    456  1.1      cgd 	  nomul(-30);
    457  1.1      cgd 	  afternmv = Meatdone;
    458  1.1      cgd 	  nomovemsg = "You now again prefer mimicking a human.";
    459  1.1      cgd 	  u.usym = '$';
    460  1.1      cgd 	  prme();
    461  1.1      cgd 	  break;
    462  1.1      cgd 	}
    463  1.1      cgd 	return(tp);
    464  1.1      cgd }
    465