![[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] / 43BSDReno / games / hack|
Return to hack.steal.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / 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.