![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to hack.do.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.do.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / hack |
1.1 root 1: /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
2: /* hack.do.c - version 1.0.3 */
3:
4: /* Contains code for 'd', 'D' (drop), '>', '<' (up, down) and 't' (throw) */
5:
6: #include "hack.h"
7:
8: extern struct obj *splitobj(), *addinv();
9: extern boolean hmon();
10: extern boolean level_exists[];
11: extern struct monst youmonst;
12: extern char *Doname();
13: extern char *nomovemsg;
14:
15: dodrop() {
16: return(drop(getobj("0$#", "drop")));
17: }
18:
19: static
20: drop(obj) register struct obj *obj; {
21: if(!obj) return(0);
22: if(obj->olet == '$') { /* pseudo object */
23: register long amount = OGOLD(obj);
24:
25: if(amount == 0)
26: pline("You didn't drop any gold pieces.");
27: else {
28: mkgold(amount, u.ux, u.uy);
29: pline("You dropped %ld gold piece%s.",
30: amount, plur(amount));
31: if(Invisible) newsym(u.ux, u.uy);
32: }
33: free((char *) obj);
34: return(1);
35: }
36: if(obj->owornmask & (W_ARMOR | W_RING)){
37: pline("You cannot drop something you are wearing.");
38: return(0);
39: }
40: if(obj == uwep) {
41: if(uwep->cursed) {
42: pline("Your weapon is welded to your hand!");
43: return(0);
44: }
45: setuwep((struct obj *) 0);
46: }
47: pline("You dropped %s.", doname(obj));
48: dropx(obj);
49: return(1);
50: }
51:
52: /* Called in several places - should not produce texts */
53: dropx(obj)
54: register struct obj *obj;
55: {
56: freeinv(obj);
57: dropy(obj);
58: }
59:
60: dropy(obj)
61: register struct obj *obj;
62: {
63: if(obj->otyp == CRYSKNIFE)
64: obj->otyp = WORM_TOOTH;
65: obj->ox = u.ux;
66: obj->oy = u.uy;
67: obj->nobj = fobj;
68: fobj = obj;
69: if(Invisible) newsym(u.ux,u.uy);
70: subfrombill(obj);
71: stackobj(obj);
72: }
73:
74: /* drop several things */
75: doddrop() {
76: return(ggetobj("drop", drop, 0));
77: }
78:
79: dodown()
80: {
81: if(u.ux != xdnstair || u.uy != ydnstair) {
82: pline("You can't go down here.");
83: return(0);
84: }
85: if(u.ustuck) {
86: pline("You are being held, and cannot go down.");
87: return(1);
88: }
89: if(Levitation) {
90: pline("You're floating high above the stairs.");
91: return(0);
92: }
93:
94: goto_level(dlevel+1, TRUE);
95: return(1);
96: }
97:
98: doup()
99: {
100: if(u.ux != xupstair || u.uy != yupstair) {
101: pline("You can't go up here.");
102: return(0);
103: }
104: if(u.ustuck) {
105: pline("You are being held, and cannot go up.");
106: return(1);
107: }
108: if(!Levitation && inv_weight() + 5 > 0) {
109: pline("Your load is too heavy to climb the stairs.");
110: return(1);
111: }
112:
113: goto_level(dlevel-1, TRUE);
114: return(1);
115: }
116:
117: goto_level(newlevel, at_stairs)
118: register int newlevel;
119: register boolean at_stairs;
120: {
121: register fd;
122: register boolean up = (newlevel < dlevel);
123:
124: if(newlevel <= 0) done("escaped"); /* in fact < 0 is impossible */
125: if(newlevel > MAXLEVEL) newlevel = MAXLEVEL; /* strange ... */
126: if(newlevel == dlevel) return; /* this can happen */
127:
128: glo(dlevel);
129: fd = creat(lock, FMASK);
130: if(fd < 0) {
131: /*
132: * This is not quite impossible: e.g., we may have
133: * exceeded our quota. If that is the case then we
134: * cannot leave this level, and cannot save either.
135: * Another possibility is that the directory was not
136: * writable.
137: */
138: pline("A mysterious force prevents you from going %s.",
139: up ? "up" : "down");
140: return;
141: }
142:
143: if(Punished) unplacebc();
144: u.utrap = 0; /* needed in level_tele */
145: u.ustuck = 0; /* idem */
146: keepdogs();
147: seeoff(1);
148: if(u.uswallow) /* idem */
149: u.uswldtim = u.uswallow = 0;
150: flags.nscrinh = 1;
151: u.ux = FAR; /* hack */
152: (void) inshop(); /* probably was a trapdoor */
153:
154: savelev(fd,dlevel);
155: (void) close(fd);
156:
157: dlevel = newlevel;
158: if(maxdlevel < dlevel)
159: maxdlevel = dlevel;
160: glo(dlevel);
161:
162: if(!level_exists[dlevel])
163: mklev();
164: else {
165: extern int hackpid;
166:
167: if((fd = open(lock,0)) < 0) {
168: pline("Cannot open %s .", lock);
169: pline("Probably someone removed it.");
170: done("tricked");
171: }
172: getlev(fd, hackpid, dlevel);
173: (void) close(fd);
174: }
175:
176: if(at_stairs) {
177: if(up) {
178: u.ux = xdnstair;
179: u.uy = ydnstair;
180: if(!u.ux) { /* entering a maze from below? */
181: u.ux = xupstair; /* this will confuse the player! */
182: u.uy = yupstair;
183: }
184: if(Punished && !Levitation){
185: pline("With great effort you climb the stairs.");
186: placebc(1);
187: }
188: } else {
189: u.ux = xupstair;
190: u.uy = yupstair;
191: if(inv_weight() + 5 > 0 || Punished){
192: pline("You fall down the stairs."); /* %% */
193: losehp(rnd(3), "fall");
194: if(Punished) {
195: if(uwep != uball && rn2(3)){
196: pline("... and are hit by the iron ball.");
197: losehp(rnd(20), "iron ball");
198: }
199: placebc(1);
200: }
201: selftouch("Falling, you");
202: }
203: }
204: { register struct monst *mtmp = m_at(u.ux, u.uy);
205: if(mtmp)
206: mnexto(mtmp);
207: }
208: } else { /* trapdoor or level_tele */
209: do {
210: u.ux = rnd(COLNO-1);
211: u.uy = rn2(ROWNO);
212: } while(levl[u.ux][u.uy].typ != ROOM ||
213: m_at(u.ux,u.uy));
214: if(Punished){
215: if(uwep != uball && !up /* %% */ && rn2(5)){
216: pline("The iron ball falls on your head.");
217: losehp(rnd(25), "iron ball");
218: }
219: placebc(1);
220: }
221: selftouch("Falling, you");
222: }
223: (void) inshop();
224: initrack();
225:
226: losedogs();
227: { register struct monst *mtmp;
228: if(mtmp = m_at(u.ux, u.uy)) mnexto(mtmp); /* riv05!a3 */
229: }
230: flags.nscrinh = 0;
231: setsee();
232: seeobjs(); /* make old cadavers disappear - riv05!a3 */
233: docrt();
234: pickup(1);
235: read_engr_at(u.ux,u.uy);
236: }
237:
238: donull() {
239: return(1); /* Do nothing, but let other things happen */
240: }
241:
242: dopray() {
243: nomovemsg = "You finished your prayer.";
244: nomul(-3);
245: return(1);
246: }
247:
248: struct monst *bhit(), *boomhit();
249: dothrow()
250: {
251: register struct obj *obj;
252: register struct monst *mon;
253: register tmp;
254:
255: obj = getobj("#)", "throw"); /* it is also possible to throw food */
256: /* (or jewels, or iron balls ... ) */
257: if(!obj || !getdir(1)) /* ask "in what direction?" */
258: return(0);
259: if(obj->owornmask & (W_ARMOR | W_RING)){
260: pline("You can't throw something you are wearing.");
261: return(0);
262: }
263:
264: u_wipe_engr(2);
265:
266: if(obj == uwep){
267: if(obj->cursed){
268: pline("Your weapon is welded to your hand.");
269: return(1);
270: }
271: if(obj->quan > 1)
272: setuwep(splitobj(obj, 1));
273: else
274: setuwep((struct obj *) 0);
275: }
276: else if(obj->quan > 1)
277: (void) splitobj(obj, 1);
278: freeinv(obj);
279: if(u.uswallow) {
280: mon = u.ustuck;
281: bhitpos.x = mon->mx;
282: bhitpos.y = mon->my;
283: } else if(u.dz) {
284: if(u.dz < 0) {
285: pline("%s hits the ceiling, then falls back on top of your head.",
286: Doname(obj)); /* note: obj->quan == 1 */
287: if(obj->olet == POTION_SYM)
288: potionhit(&youmonst, obj);
289: else {
290: if(uarmh) pline("Fortunately, you are wearing a helmet!");
291: losehp(uarmh ? 1 : rnd((int)(obj->owt)), "falling object");
292: dropy(obj);
293: }
294: } else {
295: pline("%s hits the floor.", Doname(obj));
296: if(obj->otyp == EXPENSIVE_CAMERA) {
297: pline("It is shattered in a thousand pieces!");
298: obfree(obj, Null(obj));
299: } else if(obj->otyp == EGG) {
300: pline("\"Splash!\"");
301: obfree(obj, Null(obj));
302: } else if(obj->olet == POTION_SYM) {
303: pline("The flask breaks, and you smell a peculiar odor ...");
304: potionbreathe(obj);
305: obfree(obj, Null(obj));
306: } else {
307: dropy(obj);
308: }
309: }
310: return(1);
311: } else if(obj->otyp == BOOMERANG) {
312: mon = boomhit(u.dx, u.dy);
313: if(mon == &youmonst) { /* the thing was caught */
314: (void) addinv(obj);
315: return(1);
316: }
317: } else {
318: if(obj->otyp == PICK_AXE && shkcatch(obj))
319: return(1);
320:
321: mon = bhit(u.dx, u.dy, (obj->otyp == ICE_BOX) ? 1 :
322: (!Punished || obj != uball) ? 8 : !u.ustuck ? 5 : 1,
323: obj->olet,
324: (int (*)()) 0, (int (*)()) 0, obj);
325: }
326: if(mon) {
327: /* awake monster if sleeping */
328: wakeup(mon);
329:
330: if(obj->olet == WEAPON_SYM) {
331: tmp = -1+u.ulevel+mon->data->ac+abon();
332: if(obj->otyp < ROCK) {
333: if(!uwep ||
334: uwep->otyp != obj->otyp+(BOW-ARROW))
335: tmp -= 4;
336: else {
337: tmp += uwep->spe;
338: }
339: } else
340: if(obj->otyp == BOOMERANG) tmp += 4;
341: tmp += obj->spe;
342: if(u.uswallow || tmp >= rnd(20)) {
343: if(hmon(mon,obj,1) == TRUE){
344: /* mon still alive */
345: #ifndef NOWORM
346: cutworm(mon,bhitpos.x,bhitpos.y,obj->otyp);
347: #endif NOWORM
348: } else mon = 0;
349: /* weapons thrown disappear sometimes */
350: if(obj->otyp < BOOMERANG && rn2(3)) {
351: /* check bill; free */
352: obfree(obj, (struct obj *) 0);
353: return(1);
354: }
355: } else miss(objects[obj->otyp].oc_name, mon);
356: } else if(obj->otyp == HEAVY_IRON_BALL) {
357: tmp = -1+u.ulevel+mon->data->ac+abon();
358: if(!Punished || obj != uball) tmp += 2;
359: if(u.utrap) tmp -= 2;
360: if(u.uswallow || tmp >= rnd(20)) {
361: if(hmon(mon,obj,1) == FALSE)
362: mon = 0; /* he died */
363: } else miss("iron ball", mon);
364: } else if(obj->olet == POTION_SYM && u.ulevel > rn2(15)) {
365: potionhit(mon, obj);
366: return(1);
367: } else {
368: if(cansee(bhitpos.x,bhitpos.y))
369: pline("You miss %s.",monnam(mon));
370: else pline("You miss it.");
371: if(obj->olet == FOOD_SYM && mon->data->mlet == 'd')
372: if(tamedog(mon,obj)) return(1);
373: if(obj->olet == GEM_SYM && mon->data->mlet == 'u' &&
374: !mon->mtame){
375: if(obj->dknown && objects[obj->otyp].oc_name_known){
376: if(objects[obj->otyp].g_val > 0){
377: u.uluck += 5;
378: goto valuable;
379: } else {
380: pline("%s is not interested in your junk.",
381: Monnam(mon));
382: }
383: } else { /* value unknown to @ */
384: u.uluck++;
385: valuable:
386: if(u.uluck > LUCKMAX) /* dan@ut-ngp */
387: u.uluck = LUCKMAX;
388: pline("%s graciously accepts your gift.",
389: Monnam(mon));
390: mpickobj(mon, obj);
391: rloc(mon);
392: return(1);
393: }
394: }
395: }
396: }
397: /* the code following might become part of dropy() */
398: if(obj->otyp == CRYSKNIFE)
399: obj->otyp = WORM_TOOTH;
400: obj->ox = bhitpos.x;
401: obj->oy = bhitpos.y;
402: obj->nobj = fobj;
403: fobj = obj;
404: /* prevent him from throwing articles to the exit and escaping */
405: /* subfrombill(obj); */
406: stackobj(obj);
407: if(Punished && obj == uball &&
408: (bhitpos.x != u.ux || bhitpos.y != u.uy)){
409: freeobj(uchain);
410: unpobj(uchain);
411: if(u.utrap){
412: if(u.utraptype == TT_PIT)
413: pline("The ball pulls you out of the pit!");
414: else {
415: register long side =
416: rn2(3) ? LEFT_SIDE : RIGHT_SIDE;
417: pline("The ball pulls you out of the bear trap.");
418: pline("Your %s leg is severely damaged.",
419: (side == LEFT_SIDE) ? "left" : "right");
420: set_wounded_legs(side, 500+rn2(1000));
421: losehp(2, "thrown ball");
422: }
423: u.utrap = 0;
424: }
425: unsee();
426: uchain->nobj = fobj;
427: fobj = uchain;
428: u.ux = uchain->ox = bhitpos.x - u.dx;
429: u.uy = uchain->oy = bhitpos.y - u.dy;
430: setsee();
431: (void) inshop();
432: }
433: if(cansee(bhitpos.x, bhitpos.y)) prl(bhitpos.x,bhitpos.y);
434: return(1);
435: }
436:
437: /* split obj so that it gets size num */
438: /* remainder is put in the object structure delivered by this call */
439: struct obj *
440: splitobj(obj, num) register struct obj *obj; register int num; {
441: register struct obj *otmp;
442: otmp = newobj(0);
443: *otmp = *obj; /* copies whole structure */
444: otmp->o_id = flags.ident++;
445: otmp->onamelth = 0;
446: obj->quan = num;
447: obj->owt = weight(obj);
448: otmp->quan -= num;
449: otmp->owt = weight(otmp); /* -= obj->owt ? */
450: obj->nobj = otmp;
451: if(obj->unpaid) splitbill(obj,otmp);
452: return(otmp);
453: }
454:
455: more_experienced(exp,rexp)
456: register int exp, rexp;
457: {
458: extern char pl_character[];
459:
460: u.uexp += exp;
461: u.urexp += 4*exp + rexp;
462: if(exp) flags.botl = 1;
463: if(u.urexp >= ((pl_character[0] == 'W') ? 1000 : 2000))
464: flags.beginner = 0;
465: }
466:
467: set_wounded_legs(side, timex)
468: register long side;
469: register int timex;
470: {
471: if(!Wounded_legs || (Wounded_legs & TIMEOUT))
472: Wounded_legs |= side + timex;
473: else
474: Wounded_legs |= side;
475: }
476:
477: heal_legs()
478: {
479: if(Wounded_legs) {
480: if((Wounded_legs & BOTH_SIDES) == BOTH_SIDES)
481: pline("Your legs feel somewhat better.");
482: else
483: pline("Your leg feels somewhat better.");
484: Wounded_legs = 0;
485: }
486: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.