![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hack.steal.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack|
Return to hack.steal.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack |
1.1 ! root 1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */ ! 2: /* hack.steal.c - version 1.0.3 */ ! 3: ! 4: #include "hack.h" ! 5: ! 6: long /* actually returns something that fits in an int */ ! 7: somegold(){ ! 8: return( (u.ugold < 100) ? u.ugold : ! 9: (u.ugold > 10000) ? rnd(10000) : rnd((int) u.ugold) ); ! 10: } ! 11: ! 12: stealgold(mtmp) register struct monst *mtmp; { ! 13: register struct gold *gold = g_at(u.ux, u.uy); ! 14: register long tmp; ! 15: if(gold && ( !u.ugold || gold->amount > u.ugold || !rn2(5))) { ! 16: mtmp->mgold += gold->amount; ! 17: freegold(gold); ! 18: if(Invisible) newsym(u.ux, u.uy); ! 19: pline("%s quickly snatches some gold from between your feet!", ! 20: Monnam(mtmp)); ! 21: if(!u.ugold || !rn2(5)) { ! 22: rloc(mtmp); ! 23: mtmp->mflee = 1; ! 24: } ! 25: } else if(u.ugold) { ! 26: u.ugold -= (tmp = somegold()); ! 27: pline("Your purse feels lighter."); ! 28: mtmp->mgold += tmp; ! 29: rloc(mtmp); ! 30: mtmp->mflee = 1; ! 31: flags.botl = 1; ! 32: } ! 33: } ! 34: ! 35: /* steal armor after he finishes taking it off */ ! 36: unsigned stealoid; /* object to be stolen */ ! 37: unsigned stealmid; /* monster doing the stealing */ ! 38: stealarm(){ ! 39: register struct monst *mtmp; ! 40: register struct obj *otmp; ! 41: ! 42: for(otmp = invent; otmp; otmp = otmp->nobj) ! 43: if(otmp->o_id == stealoid) { ! 44: for(mtmp = fmon; mtmp; mtmp = mtmp->nmon) ! 45: if(mtmp->m_id == stealmid) { ! 46: if(dist(mtmp->mx,mtmp->my) < 3) { ! 47: freeinv(otmp); ! 48: pline("%s steals %s!", Monnam(mtmp), doname(otmp)); ! 49: mpickobj(mtmp,otmp); ! 50: mtmp->mflee = 1; ! 51: rloc(mtmp); ! 52: } ! 53: break; ! 54: } ! 55: break; ! 56: } ! 57: stealoid = 0; ! 58: } ! 59: ! 60: /* returns 1 when something was stolen */ ! 61: /* (or at least, when N should flee now) */ ! 62: /* avoid stealing the object stealoid */ ! 63: steal(mtmp) ! 64: struct monst *mtmp; ! 65: { ! 66: register struct obj *otmp; ! 67: register tmp; ! 68: register named = 0; ! 69: ! 70: if(!invent){ ! 71: if(Blind) ! 72: pline("Somebody tries to rob you, but finds nothing to steal."); ! 73: else ! 74: pline("%s tries to rob you, but she finds nothing to steal!", ! 75: Monnam(mtmp)); ! 76: return(1); /* let her flee */ ! 77: } ! 78: tmp = 0; ! 79: for(otmp = invent; otmp; otmp = otmp->nobj) if(otmp != uarm2) ! 80: tmp += ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1); ! 81: tmp = rn2(tmp); ! 82: for(otmp = invent; otmp; otmp = otmp->nobj) if(otmp != uarm2) ! 83: if((tmp -= ((otmp->owornmask & (W_ARMOR | W_RING)) ? 5 : 1)) ! 84: < 0) break; ! 85: if(!otmp) { ! 86: impossible("Steal fails!"); ! 87: return(0); ! 88: } ! 89: if(otmp->o_id == stealoid) ! 90: return(0); ! 91: if((otmp->owornmask & (W_ARMOR | W_RING))){ ! 92: switch(otmp->olet) { ! 93: case RING_SYM: ! 94: ringoff(otmp); ! 95: break; ! 96: case ARMOR_SYM: ! 97: if(multi < 0 || otmp == uarms){ ! 98: setworn((struct obj *) 0, otmp->owornmask & W_ARMOR); ! 99: break; ! 100: } ! 101: { int curssv = otmp->cursed; ! 102: otmp->cursed = 0; ! 103: stop_occupation(); ! 104: pline("%s seduces you and %s off your %s.", ! 105: Amonnam(mtmp, Blind ? "gentle" : "beautiful"), ! 106: otmp->cursed ? "helps you to take" ! 107: : "you start taking", ! 108: (otmp == uarmg) ? "gloves" : ! 109: (otmp == uarmh) ? "helmet" : "armor"); ! 110: named++; ! 111: (void) armoroff(otmp); ! 112: otmp->cursed = curssv; ! 113: if(multi < 0){ ! 114: extern char *nomovemsg; ! 115: extern int (*afternmv)(); ! 116: /* ! 117: multi = 0; ! 118: nomovemsg = 0; ! 119: afternmv = 0; ! 120: */ ! 121: stealoid = otmp->o_id; ! 122: stealmid = mtmp->m_id; ! 123: afternmv = stealarm; ! 124: return(0); ! 125: } ! 126: break; ! 127: } ! 128: default: ! 129: impossible("Tried to steal a strange worn thing."); ! 130: } ! 131: } ! 132: else if(otmp == uwep) ! 133: setuwep((struct obj *) 0); ! 134: if(otmp->olet == CHAIN_SYM) { ! 135: impossible("How come you are carrying that chain?"); ! 136: } ! 137: if(Punished && otmp == uball){ ! 138: Punished = 0; ! 139: freeobj(uchain); ! 140: free((char *) uchain); ! 141: uchain = (struct obj *) 0; ! 142: uball->spe = 0; ! 143: uball = (struct obj *) 0; /* superfluous */ ! 144: } ! 145: freeinv(otmp); ! 146: pline("%s stole %s.", named ? "She" : Monnam(mtmp), doname(otmp)); ! 147: mpickobj(mtmp,otmp); ! 148: return((multi < 0) ? 0 : 1); ! 149: } ! 150: ! 151: mpickobj(mtmp,otmp) ! 152: register struct monst *mtmp; ! 153: register struct obj *otmp; ! 154: { ! 155: otmp->nobj = mtmp->minvent; ! 156: mtmp->minvent = otmp; ! 157: } ! 158: ! 159: stealamulet(mtmp) ! 160: register struct monst *mtmp; ! 161: { ! 162: register struct obj *otmp; ! 163: ! 164: for(otmp = invent; otmp; otmp = otmp->nobj) { ! 165: if(otmp->olet == AMULET_SYM) { ! 166: /* might be an imitation one */ ! 167: if(otmp == uwep) setuwep((struct obj *) 0); ! 168: freeinv(otmp); ! 169: mpickobj(mtmp,otmp); ! 170: pline("%s stole %s!", Monnam(mtmp), doname(otmp)); ! 171: return(1); ! 172: } ! 173: } ! 174: return(0); ! 175: } ! 176: ! 177: /* release the objects the killed animal has stolen */ ! 178: relobj(mtmp,show) ! 179: register struct monst *mtmp; ! 180: register show; ! 181: { ! 182: register struct obj *otmp, *otmp2; ! 183: ! 184: for(otmp = mtmp->minvent; otmp; otmp = otmp2){ ! 185: otmp->ox = mtmp->mx; ! 186: otmp->oy = mtmp->my; ! 187: otmp2 = otmp->nobj; ! 188: otmp->nobj = fobj; ! 189: fobj = otmp; ! 190: stackobj(fobj); ! 191: if(show & cansee(mtmp->mx,mtmp->my)) ! 192: atl(otmp->ox,otmp->oy,otmp->olet); ! 193: } ! 194: mtmp->minvent = (struct obj *) 0; ! 195: if(mtmp->mgold || mtmp->data->mlet == 'L') { ! 196: register long tmp; ! 197: ! 198: tmp = (mtmp->mgold > 10000) ? 10000 : mtmp->mgold; ! 199: mkgold((long)(tmp + d(dlevel,30)), mtmp->mx, mtmp->my); ! 200: if(show & cansee(mtmp->mx,mtmp->my)) ! 201: atl(mtmp->mx,mtmp->my,'$'); ! 202: } ! 203: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.