nethack-3.4.3/src/steal.c

14 equipname(otmp)
15 register struct obj *otmp;
19 		(otmp == uarmu) ? "shirt" :
21 		(otmp == uarmf) ? "boots" :
22 		(otmp == uarms) ? "shield" :
23 		(otmp == uarmg) ? "gloves" :
24 		(otmp == uarmc) ? cloak_simple_name(otmp) :
25 		(otmp == uarmh) ? "helmet" : "armor");
149 	register struct obj *otmp;
151 	for(otmp = invent; otmp; otmp = otmp->nobj) {
152 	    if(otmp->o_id == stealoid) {
158 			if(otmp->unpaid)
159 			    subfrombill(otmp, shop_keeper(*u.ushops));
160 			freeinv(otmp);
161 			pline("%s steals %s!", Monnam(mtmp), doname(otmp));
162 			(void) mpickobj(mtmp,otmp);	/* may free otmp */
237 	struct obj *otmp;
265 	    otmp = uleft;
268 	    otmp = uright;
273 	for(otmp = invent; otmp; otmp = otmp->nobj)
274 	    if ((!uarm || otmp != uarmc) && otmp != uskin
276 				&& (!otmp->oinvis || perceives(mtmp->data))
279 		tmp += ((otmp->owornmask &
283 	for(otmp = invent; otmp; otmp = otmp->nobj)
284 	    if ((!uarm || otmp != uarmc) && otmp != uskin
286 				&& (!otmp->oinvis || perceives(mtmp->data))
289 		if((tmp -= ((otmp->owornmask &
292 	if(!otmp) {
297 	if (otmp == uarmg && uwep)
298 	    otmp = uwep;
300 	else if(otmp == uarm && uarmc) otmp = uarmc;
302 	else if(otmp == uarmu && uarmc) otmp = uarmc;
303 	else if(otmp == uarmu && uarm) otmp = uarm;
306 	if(otmp->o_id == stealoid) return(0);
313 	    if (otmp == uball)
315 	    else if (otmp == uquiver || (otmp == uswapwep && !u.twoweap))
318 		ostuck = (otmp->cursed && otmp->owornmask);
320 	    if (ostuck || !can_carry(mtmp, otmp)) {
325 		      (otmp->owornmask & W_ARMOR) ? equipname(otmp) :
326 		       cxname(otmp));
334 	if (otmp->otyp == LEASH && otmp->leashmon) {
335 	    if (monkey_business && otmp->cursed) goto cant_take;
336 	    o_unleash(otmp);
342 	if((otmp->owornmask & (W_ARMOR | W_RING | W_AMUL | W_TOOL))){
343 		switch(otmp->oclass) {
348 		    remove_worn_item(otmp, TRUE);
351 		    armordelay = objects[otmp->otyp].oc_delay;
353 		    if (donning(otmp)) {
354 			remove_worn_item(otmp, TRUE);
360 			remove_worn_item(otmp, TRUE);
363 			int curssv = otmp->cursed;
367 			otmp->cursed = 0;
376 				  equipname(otmp));
382 				  equipname(otmp));
386 			remove_worn_item(otmp, TRUE);
387 			otmp->cursed = curssv;
394 				stealoid = otmp->o_id;
403 			       otmp->oclass);
406 	else if (otmp->owornmask)
407 	    remove_worn_item(otmp, TRUE);
410 	if (objnambuf) Strcpy(objnambuf, yname(otmp));
416 	freeinv(otmp);
417 	pline("%s stole %s.", named ? "She" : Monnam(mtmp), doname(otmp));
418 	could_petrify = (otmp->otyp == CORPSE &&
419 			 touch_petrifies(&mons[otmp->corpsenm]));
420 	(void) mpickobj(mtmp,otmp);	/* may free otmp */
431 /* Returns 1 if otmp is free'd, 0 otherwise. */
433 mpickobj(mtmp,otmp)
435 register struct obj *otmp;
440     if (otmp->oclass == COIN_CLASS) {
441 	mtmp->mgold += otmp->quan;
442 	obfree(otmp, (struct obj *)0);
450     if (otmp->lamplit &&  /* hack to avoid function calls for most objs */
451       	obj_sheds_light(otmp) &&
455 	    pline("%s out.", Tobjnam(otmp, "go"));
459     carry_obj_effects(otmp);
460     /* add_to_minv() might free otmp [if merged with something else],
462     freed_otmp = add_to_minv(mtmp, otmp);
478     struct obj *otmp = (struct obj *)0;
486 	for(otmp = invent; otmp; otmp = otmp->nobj)
487 	    if(is_quest_artifact(otmp)) break;
488 	if (!otmp) return;	/* should we panic instead? */
498     if (!otmp) {
500 	for(otmp = invent; otmp; otmp = otmp->nobj)
501 	    if(otmp->otyp == real || (otmp->otyp == fake && !mtmp->iswiz))
505     if (otmp) { /* we have something to snatch */
506 	if (otmp->owornmask)
507 	    remove_worn_item(otmp, TRUE);
508 	freeinv(otmp);
509 	/* mpickobj wont merge otmp because none of the above things
511 	(void) mpickobj(mtmp,otmp);	/* may merge and free otmp */
512 	pline("%s stole %s!", Monnam(mtmp), doname(otmp));
561     struct obj *obj, *otmp;
563     for (obj = mon->minvent; obj; obj = otmp) {
564 	otmp = obj->nobj;
581 	register struct obj *otmp;
592 	while ((otmp = mtmp->minvent) != 0) {
593 		obj_extract_self(otmp);
597 		if (otmp->owornmask || otmp == wep ||
598 		    ((!item1 && otmp->otyp == PICK_AXE) ||
599 		     (!item2 && otmp->otyp == UNICORN_HORN && !otmp->cursed))) {
601 				if (otmp->otyp == PICK_AXE)
603 				if (otmp->otyp == UNICORN_HORN && !otmp->cursed)
605 				otmp->nobj = keepobj;
606 				keepobj = otmp;
610 		mdrop_obj(mtmp, otmp, is_pet && flags.verbose);
614 	while ((otmp = keepobj) != (struct obj *)0) {
615 	    keepobj = otmp->nobj;
616 	    (void) add_to_minv(mtmp, otmp);