Wikia

Wikihack

Source:NetHack 3.1.0/dothrow.c

2,032pages on
this wiki
Talk0

Below is the full text to dothrow.c from the source code of NetHack 3.1.0. To link to a particular line, write [[NetHack 3.1.0/dothrow.c#line123]], for example.

Warning! This is the source code from an old release. For the latest release, see Source code

The NetHack General Public License applies to screenshots, source code and other content from NetHack.
1.    /*	SCCS Id: @(#)dothrow.c	3.1	92/12/10	*/
2.    /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
3.    /* NetHack may be freely redistributed.  See license for details. */
4.    
5.    /* Contains code for 't' (throw) */
6.    
7.    #include "hack.h"
8.    
9.    static void FDECL(hitfloor, (struct obj *));
10.   static int FDECL(gem_accept, (struct monst *, struct obj *));
11.   static int FDECL(throw_gold, (struct obj *));
12.   static void FDECL(check_shop_obj, (struct obj *,XCHAR_P,XCHAR_P,BOOLEAN_P));
13.   
14.   static const char NEARDATA toss_objs[] =
15.   	{ ALLOW_COUNT, GOLD_CLASS, ALL_CLASSES, WEAPON_CLASS, 0 };
16.   extern boolean notonhead;	/* for long worms */
17.   
18.   int
19.   dothrow()
20.   {
21.   	register struct obj *obj;
22.   
23.   	if(check_capacity(NULL)) return(0);
24.   	obj = getobj(toss_objs, "throw");
25.   	/* it is also possible to throw food */
26.   	/* (or jewels, or iron balls... ) */
27.   
28.   	if(!obj || !getdir(NULL)) {       /* ask "in what direction?" */
29.   		if (obj && obj->oclass == GOLD_CLASS) {
30.   		    u.ugold += obj->quan;
31.   		    flags.botl = 1;
32.   		    dealloc_obj(obj);
33.   		}
34.   		return(0);
35.   	}
36.   
37.   	if(obj->oclass == GOLD_CLASS) return(throw_gold(obj));
38.   
39.   	if(!canletgo(obj,"throw"))
40.   		return(0);
41.   	if (obj->oartifact == ART_MJOLLNIR && obj != uwep) {
42.   		You("must be wielding %s in order to throw it.", xname(obj));
43.   		return(0);
44.   	}
45.   	if ((obj->oartifact == ART_MJOLLNIR && ACURR(A_STR) != 125)
46.   	   || (obj->otyp == BOULDER
47.   #ifdef POLYSELF
48.   					&& !throws_rocks(uasmon)
49.   #endif
50.   								)) {
51.   		pline("It's too heavy.");
52.   		return(1);
53.   	}
54.   	if(!u.dx && !u.dy && !u.dz) {
55.   		You("cannot throw an object at yourself.");
56.   		return(0);
57.   	}
58.   	u_wipe_engr(2);
59.   
60.   	if(obj == uwep) {
61.   	    if(welded(obj)) {
62.   		weldmsg(obj, FALSE);
63.   		return(1);
64.   	    }
65.   	    if(obj->quan > 1L)
66.   		setuwep(splitobj(obj, 1L));
67.   	    else {
68.   		setuwep((struct obj *)0);
69.   		if (uwep) return(1); /* unwielded, died, rewielded */
70.   	    }
71.   	}
72.   	else if(obj->quan > 1L)
73.   		(void) splitobj(obj, 1L);
74.   	freeinv(obj);
75.   	return(throwit(obj));
76.   }
77.   
78.   static void
79.   hitfloor(obj)
80.   register struct obj *obj;
81.   {
82.   	if (IS_SOFT(levl[u.ux][u.uy].typ) || u.uinwater) {
83.   		dropy(obj);
84.   		if(*u.ushops)
85.   		    check_shop_obj(obj, obj->ox, obj->oy, FALSE);
86.   		return;
87.   	}
88.   	if (IS_ALTAR(levl[u.ux][u.uy].typ)) doaltarobj(obj);
89.   	else
90.   		pline("%s hits the floor.", Doname2(obj));
91.   	if (breaks(obj, TRUE)) return;
92.   	else if(obj->oclass == POTION_CLASS) {
93.   		pline("The flask breaks, and you smell a peculiar odor...");
94.   		potionbreathe(obj);
95.   		if(*u.ushops)
96.   		    check_shop_obj(obj, u.ux, u.uy, TRUE);
97.   		obfree(obj, (struct obj *)0);
98.   	} else {
99.   		if(ship_object(obj, u.ux, u.uy, FALSE)) 
100.  		    return;
101.  		dropy(obj);
102.  		if(*u.ushops)
103.  		    check_shop_obj(obj, obj->ox, obj->oy, FALSE);
104.  	}
105.  }
106.  
107.  /*
108.   * The player moves through the air for a few squares as a result of
109.   * throwing or kicking something.  To simplify matters, bumping into monsters
110.   * won't cause damage but will wake them and make them angry.
111.   * Auto-pickup isn't done, since you don't have control over your movements
112.   * at the time.
113.   * dx and dy should be the direction of the hurtle, not of the original
114.   * kick or throw.
115.   */
116.  void
117.  hurtle(dx, dy, range)
118.      int dx, dy, range;
119.  {
120.      register struct monst *mon;
121.      struct obj *obj;
122.      int nx, ny;
123.  
124.      if(!range || (!dx && !dy) || u.ustuck) return; /* paranoia */
125.  
126.      nomul(-range);
127.      You("%s in the opposite direction.", range > 1 ? "hurtle" : "float");
128.      while(range--) {
129.  	nx = u.ux + dx;
130.  	ny = u.uy + dy;
131.  
132.  	if(!isok(nx,ny)) break;
133.  	if(IS_ROCK(levl[nx][ny].typ) || closed_door(nx,ny)) {
134.  	    pline("Ouch!");
135.  	    losehp(rnd(2+range), IS_ROCK(levl[nx][ny].typ) ?
136.  		   "bumping to a wall" : "bumping into a door", KILLED_BY);
137.  	    break;
138.  	}
139.  
140.  	if (obj = sobj_at(BOULDER,nx,ny)) {
141.  	    You("bump into a %s.  Ouch!", xname(obj));
142.  	    losehp(rnd(2+range), "bumping to a boulder", KILLED_BY);
143.  	    break;
144.  	}
145.  
146.  	u.ux = nx;
147.  	u.uy = ny;
148.  	newsym(u.ux - dx, u.uy - dy);
149.  	if(mon = m_at(u.ux, u.uy)) {
150.  	    You("bump into %s.", a_monnam(mon));
151.  	    wakeup(mon);
152.  	    if(Is_airlevel(&u.uz))
153.  		mnexto(mon);
154.  	    else {
155.  		/* sorry, not ricochets */
156.  		u.ux -= dx;
157.  		u.uy -= dy;
158.  	    }
159.  	    range = 0;
160.  	}
161.  
162.  	newsym(u.ux, u.uy);
163.  
164.  	if(range) {
165.  	    flush_screen(1);
166.  	    delay_output();
167.  	}
168.      }
169.  }
170.  
171.  static void
172.  check_shop_obj(obj, x, y, broken)
173.  register struct obj *obj;
174.  register xchar x, y;
175.  register boolean broken;
176.  {
177.  	register struct monst *shkp = 
178.  			shop_keeper(*in_rooms(u.ux, u.uy, SHOPBASE));
179.  
180.  	if(!shkp) return;
181.  	if(!inside_shop(u.ux, u.uy)) return;
182.  
183.  	if(broken) {
184.  	        if(obj->unpaid) {
185.  		    (void)stolen_value(obj, u.ux, u.uy, 
186.  				 (shkp && shkp->mpeaceful), FALSE);
187.  		    subfrombill(obj, shkp);
188.  		}
189.  		return;
190.  	}
191.  
192.          if(!costly_spot(x, y) ||
193.  	           *in_rooms(u.ux, u.uy, 0) != *in_rooms(x, y, 0)) { 
194.  	        if(!inside_shop(x, y) && obj->unpaid) {
195.  		    (void)stolen_value(obj, u.ux, u.uy, 
196.  				 (shkp && shkp->mpeaceful), FALSE);
197.  		    subfrombill(obj, shkp);
198.  		}
199.  	} else
200.  	        if(costly_spot(u.ux, u.uy) && costly_spot(x, y)) {
201.  		    if(obj->unpaid) subfrombill(obj, shkp);
202.  		    else if(!(x == shkp->mx && y == shkp->my))
203.  		            sellobj(obj, x, y);
204.  		}
205.  }
206.  
207.  
208.  int
209.  throwit(obj)
210.  register struct obj *obj;
211.  {
212.  	register struct monst *mon;
213.  	register int range, urange;
214.  	boolean impaired = (Confusion || Stunned || Blind ||
215.  			   Hallucination || Fumbling);
216.  	int do_death = 0;
217.  
218.  	if (obj->cursed && (u.dx || u.dy) && !rn2(7)) {
219.  		boolean slipok = TRUE;
220.  	    if ((obj->oclass == WEAPON_CLASS || obj->oclass == GEM_CLASS)
221.  		&& uwep && (objects[obj->otyp].w_propellor > 0) &&
222.  		(objects[obj->otyp].w_propellor ==
223.                                               -objects[uwep->otyp].w_propellor))
224.  		pline("The %s misfires!", xname(obj));
225.  	    else {
226.  		/* only slip if it's meant to be thrown */
227.  		if((obj->otyp >= DART && obj->otyp <= JAVELIN) ||
228.  		   (obj->otyp >= DAGGER && obj->otyp <= CRYSKNIFE &&
229.  		    obj->otyp != ATHAME) || obj->otyp == WAR_HAMMER)
230.  		    pline("The %s slips as you throw it!", xname(obj));
231.  		else slipok = FALSE;
232.  	    }
233.  	    if (slipok) {
234.  		u.dx = rn2(3)-1;
235.  		u.dy = rn2(3)-1;
236.  		if (!u.dx && !u.dy) u.dz = 1;
237.  		impaired = TRUE;
238.  	    }
239.  	}
240.  
241.  	if(u.uswallow) {
242.  		mon = u.ustuck;
243.  		bhitpos.x = mon->mx;
244.  		bhitpos.y = mon->my;
245.  	} else if(u.dz) {
246.  	  if (u.dz < 0 && pl_character[0] == 'V' &&
247.  	      obj->oartifact == ART_MJOLLNIR && !impaired) {
248.  	      pline("%s hits the ceiling and returns to your hand!",
249.  		    The(xname(obj)));
250.  	      obj = addinv(obj);
251.  	      setuwep(obj);
252.  	      return(1);
253.  	  }
254.  	  if (u.dz < 0 && !Is_airlevel(&u.uz) && !Underwater && !Is_waterlevel(&u.uz)) {
255.  	    pline("%s hits the ceiling, then falls back on top of your %s.",
256.  		Doname2(obj),		/* note: obj->quan == 1 */
257.  		body_part(HEAD));
258.  	    if(obj->oclass == POTION_CLASS)
259.  		potionhit(&youmonst, obj);
260.  	    else {
261.  	        int dmg = rnd((int)(obj->owt));
262.  	      
263.  		if (uarmh) {
264.  		    if(is_metallic(uarmh)) {
265.  		        pline("Fortunately, you are wearing a hard helmet.");
266.  			dmg = 1;
267.  		    } else if (flags.verbose)
268.  		        Your("%s does not protect you.", xname(uarmh));
269.  		} else if (obj->otyp == CORPSE &&
270.  				obj->corpsenm == PM_COCKATRICE) {
271.  #ifdef POLYSELF
272.  		    if(!resists_ston(uasmon))
273.  			if(!(poly_when_stoned(uasmon) &&
274.  					polymon(PM_STONE_GOLEM))) {
275.  #endif
276.  			killer = doname(obj);
277.  			You("turn to stone.");
278.  			do_death = STONING;
279.  #ifdef POLYSELF
280.  		    }
281.  #endif
282.  		}
283.  
284.  		if (!breaks(obj, TRUE)) {
285.  		    if(!ship_object(obj, u.ux, u.uy, FALSE)) {
286.  			dropy(obj);
287.  			if(*u.ushops)
288.  			    check_shop_obj(obj, obj->ox, obj->oy, FALSE);
289.  		    }
290.  		}
291.  		if (do_death == STONING)
292.  		    done(STONING);
293.  		else
294.  		    losehp(dmg, "falling object", KILLED_BY_AN);
295.  	    }
296.  	  } else hitfloor(obj);
297.  	  return(1);
298.  
299.  	} else if(obj->otyp == BOOMERANG && !Underwater) {
300.  		if(Is_airlevel(&u.uz) || Levitation) hurtle(-u.dx, -u.dy, 1);
301.  		mon = boomhit(u.dx, u.dy);
302.  		if(mon == &youmonst) {		/* the thing was caught */
303.  			exercise(A_DEX, TRUE);
304.  			(void) addinv(obj);
305.  			return(1);
306.  		}
307.  	} else {
308.  		urange = (int)(ACURRSTR)/2;
309.  		range = urange - (int)(obj->owt/40);
310.  		if (obj == uball) {
311.  			if (u.ustuck) range = 1;
312.  			else if (range >= 5) range = 5;
313.  		}
314.  		if (range < 1) range = 1;
315.  
316.  		if ((obj->oclass == WEAPON_CLASS || obj->oclass == GEM_CLASS)
317.                      && uwep && objects[obj->otyp].w_propellor) {
318.  		    if (objects[obj->otyp].w_propellor ==
319.  			                     -objects[uwep->otyp].w_propellor)
320.  			range++;
321.  		    else
322.  			range /= 2;
323.  		}
324.  
325.  		if (Is_airlevel(&u.uz) || Levitation) {
326.  		    /* action, reaction... */
327.  		    urange -= range;
328.  		    if(urange < 1) urange = 1;
329.  		    range -= urange;
330.  		    if(range < 1) range = 1;
331.  		}
332.  
333.  #ifdef POLYSELF
334.  		if (obj->otyp == BOULDER) range = 20;
335.  #endif
336.  		if (obj == uball && u.utrap && u.utraptype == TT_INFLOOR)
337.  		    range = 1;
338.  
339.  		if (Underwater) range = 1;
340.  
341.  		mon = bhit(u.dx,u.dy,range,THROWN_WEAPON,
342.  			   (int (*)()) 0,(int (*)()) 0,obj);
343.  
344.  		/* have to do this after bhit() so u.ux & u.uy are correct */
345.  		if(Is_airlevel(&u.uz) || Levitation)
346.  		    hurtle(-u.dx, -u.dy, urange);
347.  	}
348.  	if(mon) {
349.  		if(mon->isshk && (!inside_shop(u.ux, u.uy) ||
350.  		   !index(in_rooms(mon->mx, mon->my, SHOPBASE), *u.ushops))) { 
351.  		    if(obj->otyp == PICK_AXE) {
352.  		        register struct obj *otmp;
353.  
354.  			/* check if the pick axe was caught through  */
355.  			/* a successful call to shkcatch() in bhit() */
356.  	                for (otmp = mon->minvent; otmp; otmp = otmp->nobj)
357.  		             if (otmp == obj) return(1);
358.  		    }
359.  		    wakeup(mon);
360.  		    hot_pursuit(mon);
361.  		}
362.  		(void) snuff_candle(obj);
363.  		/* awake monster if sleeping */
364.  		wakeup(mon);
365.  		notonhead = (bhitpos.x != mon->mx || bhitpos.y != mon->my);
366.  		if(thitmonst(mon, obj)) return(1);
367.  	}
368.  	if(!u.uswallow) {
369.  		/* the code following might become part of dropy() */
370.  		int obj_glyph = obj_to_glyph(obj);
371.  		boolean gone = FALSE;
372.  
373.  		if (obj->oartifact == ART_MJOLLNIR && pl_character[0] == 'V') {
374.  		    /* we must be wearing Gauntlets of Power to get here */
375.  		    int x = bhitpos.x - u.dx, y = bhitpos.y - u.dy;
376.  
377.  		    tmp_at(DISP_FLASH, obj_glyph);
378.  		    while(x != u.ux || y != u.uy) {
379.  			tmp_at(x, y);
380.  			delay_output();
381.  			x -= u.dx; y -= u.dy;
382.  		    }
383.  		    tmp_at(DISP_END, 0);
384.  
385.  		    if(!impaired) {
386.  			pline("%s returns to your hand!", The(xname(obj)));
387.  			obj = addinv(obj);
388.  			setuwep(obj);
389.  			if(cansee(bhitpos.x, bhitpos.y))
390.  			    newsym(bhitpos.x,bhitpos.y);
391.  		    } else {
392.  			int dmg = rnd(4);
393.  			if (Blind)
394.  			    pline("%s hits your %s!",
395.  				  The(xname(obj)), body_part(ARM));
396.  			else
397.  			    pline("%s flies back toward you, hitting your %s!",
398.  				  The(xname(obj)), body_part(ARM));
399.  			(void) artifact_hit((struct monst *) 0, &youmonst,
400.  					    obj, &dmg, 0);
401.  			losehp(dmg, xname(obj), KILLED_BY);
402.  			if(ship_object(obj, u.ux, u.uy, FALSE)) 
403.  		            return (1);
404.  			dropy(obj);
405.  		    }
406.  		    return (1);
407.  		}
408.  		if (!IS_SOFT(levl[bhitpos.x][bhitpos.y].typ) && !u.uinwater &&
409.  		    obj->oclass == POTION_CLASS && rn2(2)) {
410.  		    if(distu(bhitpos.x, bhitpos.y) < 3 && rn2(5)) {
411.  			pline("The flask breaks, and you smell a peculiar odor...");
412.  			potionbreathe(obj);
413.  		    } else if(!Blind)
414.  			pline("The flask breaks.");
415.  		    else pline("Crash!");
416.  		    if(*u.ushops)
417.  		        check_shop_obj(obj, bhitpos.x, bhitpos.y, TRUE);
418.  		    obfree(obj, (struct obj *)0);
419.  		    gone = TRUE;
420.  		}
421.  		if (gone || (!IS_SOFT(levl[bhitpos.x][bhitpos.y].typ) &&
422.  			     breaks(obj, TRUE))) {
423.  		    tmp_at(DISP_FLASH, obj_glyph);
424.  		    tmp_at(bhitpos.x, bhitpos.y);
425.  		    delay_output();
426.  		    tmp_at(DISP_END, 0);
427.  		    return(1);
428.  		}
429.  		if(flooreffects(obj,bhitpos.x,bhitpos.y,"fall")) return(1);
430.  		if(obj->otyp == CRYSKNIFE)
431.  			obj->otyp = WORM_TOOTH;
432.  	        if(mon && mon->isshk && obj->otyp == PICK_AXE) {
433.  		        mpickobj(mon, obj);
434.  			if(*u.ushops)
435.  			    check_shop_obj(obj, bhitpos.x, bhitpos.y, FALSE);
436.  			return(1);
437.  		}
438.  		(void) snuff_candle(obj);
439.  		if(!mon && obj != uball) {
440.  		    if(ship_object(obj, bhitpos.x, bhitpos.y, FALSE))
441.  		        return(1);
442.  		}
443.  		obj->nobj = fobj;
444.  		fobj = obj;
445.  		place_object(obj, bhitpos.x, bhitpos.y);
446.  		if(*u.ushops && obj != uball)
447.  		    check_shop_obj(obj, bhitpos.x, bhitpos.y, FALSE);
448.  		stackobj(obj);
449.  		if (obj == uball) drop_ball(bhitpos.x, bhitpos.y);
450.  		if(cansee(bhitpos.x, bhitpos.y)) newsym(bhitpos.x,bhitpos.y);
451.  	} else {
452.  		/* ball is not picked up by monster */
453.  		if (obj != uball) mpickobj(u.ustuck,obj);
454.  	}
455.  	return(1);
456.  }
457.  
458.  int
459.  thitmonst(mon, obj)
460.  register struct monst *mon;
461.  register struct obj   *obj;
462.  {
463.  	register int	tmp; /* Base chance to hit */
464.  	register int	disttmp; /* distance modifier */
465.  
466.  	/* Differences from melee weapons:
467.  	 *
468.  	 * Dex still gives a bonus, but strength does not.
469.  	 * Polymorphed players lacking attacks may still throw.
470.  	 * There's a base -1 to hit.
471.  	 * No bonuses for fleeing or stunned targets (they don't dodge
472.  	 *    melee blows as readily, but dodging arrows is hard anyway).
473.  	 * Not affected by traps, etc.
474.  	 * Certain items which don't in themselves do damage ignore tmp.
475.  	 * Distance and monster size affect chance to hit.
476.  	 */
477.  	tmp = -1 + Luck + find_mac(mon);
478.  #ifdef POLYSELF
479.  	if (u.umonnum >= 0) tmp += uasmon->mlevel;
480.  	else
481.  #endif
482.  		tmp += u.ulevel;
483.  	if(ACURR(A_DEX) < 4) tmp -= 3;
484.  	else if(ACURR(A_DEX) < 6) tmp -= 2;
485.  	else if(ACURR(A_DEX) < 8) tmp -= 1;
486.  	else if(ACURR(A_DEX) >= 14) tmp += (ACURR(A_DEX) - 14);
487.  
488.  	/* modify to-hit depending on distance; but keep it sane */
489.  	disttmp = 3 - distmin(u.ux, u.uy, mon->mx, mon->my);
490.  	if(disttmp < -4) disttmp = -4;
491.  	tmp += disttmp;
492.  
493.  	/* it's easier to hit a larger target */
494.  	if(bigmonst(mon->data)) tmp++;
495.  
496.  	if(mon->msleep) {
497.  		mon->msleep = 0;
498.  		tmp += 2;
499.  	}
500.  	if(!mon->mcanmove || !mon->data->mmove) {
501.  		tmp += 4;
502.  		if(!rn2(10)) {
503.  			mon->mcanmove = 1;
504.  			mon->mfrozen = 0;
505.  		}
506.  	}
507.  	if (is_orc(mon->data) && pl_character[0]=='E') tmp++;
508.  	if (u.uswallow && mon == u.ustuck) tmp += 1000; /* Guaranteed hit */
509.  
510.  	if(obj->oclass == GEM_CLASS && mon->data->mlet == S_UNICORN) {
511.  		if (mon->mtame) {
512.  			pline("%s catches and drops %s.",
513.  				Monnam(mon), the(xname(obj)));
514.  			return(0);
515.  		} else {
516.  			pline("%s catches %s.", Monnam(mon), the(xname(obj)));
517.  			return(gem_accept(mon, obj));
518.  		}
519.  	}
520.  	if(obj->oclass == WEAPON_CLASS || obj->otyp == PICK_AXE ||
521.  	   obj->otyp == UNICORN_HORN || obj->oclass == GEM_CLASS) {
522.  		if(obj->otyp < DART || obj->oclass == GEM_CLASS) {
523.  		    if (!uwep ||
524.  			objects[obj->otyp].w_propellor !=
525.  			-objects[uwep->otyp].w_propellor) {
526.  			tmp -= 4;
527.  		    } else {
528.  			tmp += uwep->spe - uwep->oeroded;
529.  			/*
530.  			 * Elves and Samurais are highly trained w/bows,
531.  			 * especially their own special types of bow.
532.  			 * Polymorphing won't make you a bow expert.
533.  			 */
534.  			if ((pl_character[0] == 'E' || pl_character[0] == 'S')
535.  			     && -objects[uwep->otyp].w_propellor == WP_BOW)
536.  			    tmp++;
537.  			if (pl_character[0] == 'E' && uwep->otyp == ELVEN_BOW)
538.  			    tmp++;
539.  			if (pl_character[0] == 'S' && uwep->otyp == YUMI)
540.  			    tmp++;
541.  		    }
542.  		} else if(obj->otyp == BOOMERANG) tmp += 4;
543.  		tmp += obj->spe;
544.  		tmp += hitval(obj, mon->data);
545.  		if(tmp >= rnd(20)) {
546.  			if(hmon(mon,obj,1)){
547.  			  /* mon still alive */
548.  			  cutworm(mon, bhitpos.x, bhitpos.y, obj);
549.  			}
550.  			exercise(A_DEX, TRUE);
551.  			/* projectiles thrown disappear sometimes */
552.  			if((obj->otyp < BOOMERANG || obj->oclass == GEM_CLASS)
553.  								&& rn2(3)) {
554.  			        if(*u.ushops)
555.  		                     check_shop_obj(obj, bhitpos.x, 
556.  						           bhitpos.y, TRUE);
557.  				/* check bill; free */
558.  				obfree(obj, (struct obj *)0);
559.  				return(1);
560.  			}
561.  		} else miss(xname(obj), mon);
562.  	} else if(obj->otyp == HEAVY_IRON_BALL) {
563.  		if(obj != uball) tmp += 2;
564.  		exercise(A_STR, TRUE);
565.  		if(tmp >= rnd(20)) {
566.  			(void) hmon(mon,obj,1);
567.  			exercise(A_DEX, TRUE);
568.  		} else miss(xname(obj), mon);
569.  	} else if (obj->otyp == BOULDER) {
570.  		tmp += 6;  /* Likely to hit! */
571.  		exercise(A_STR, TRUE);
572.  		if(tmp >= rnd(20)) {
573.  			(void) hmon(mon,obj,1);
574.  			exercise(A_DEX, TRUE);
575.  		} else miss(xname(obj), mon);
576.  	} else if((obj->otyp == CREAM_PIE
577.  #ifdef POLYSELF
578.  			|| obj->otyp == BLINDING_VENOM
579.  #endif
580.  					) && ACURR(A_DEX) >= rnd(10)) {
581.  		(void) hmon(mon,obj,1); /* can't die from it */
582.  #ifdef POLYSELF
583.  	} else if(obj->otyp == ACID_VENOM && ACURR(A_DEX) >= rnd(10)) {
584.  		(void) hmon(mon,obj,1);
585.  #endif
586.  	} else if(obj->oclass == POTION_CLASS && ACURR(A_DEX) >= rnd(15)) {
587.  		potionhit(mon, obj);
588.  		return(1);
589.  	} else {
590.  		pline("%s misses %s.", The(xname(obj)), mon_nam(mon));
591.  		if(obj->oclass == FOOD_CLASS && is_domestic(mon->data))
592.  			if(tamedog(mon,obj)) return(1);
593.  	}
594.  	return(0);
595.  }
596.  
597.  static int
598.  gem_accept(mon, obj)
599.  register struct monst *mon;
600.  register struct obj *obj;
601.  {
602.  	char buf[BUFSZ];
603.  	boolean is_buddy = sgn(mon->data->maligntyp) == sgn(u.ualign.type);
604.  	boolean is_gem = objects[obj->otyp].oc_material == GEMSTONE;
605.  	int ret = 0;
606.  	static const char NEARDATA nogood[] = " is not interested in your junk.";
607.  	static const char NEARDATA acceptgift[] = " accepts your gift.";
608.  	static const char NEARDATA maybeluck[] = " hesitatingly";
609.  	static const char NEARDATA noluck[] = " graciously";
610.  	static const char NEARDATA addluck[] = " gratefully";
611.  
612.  	Strcpy(buf,Monnam(mon));
613.  
614.  	mon->mpeaceful = 1;
615.  
616.  	/* object properly identified */
617.  	if(obj->dknown && objects[obj->otyp].oc_name_known) {
618.  		if(is_gem) {
619.  			if(is_buddy) {
620.  				Strcat(buf,addluck);
621.  				change_luck(5);
622.  			} else {
623.  				Strcat(buf,maybeluck);
624.  				change_luck(rn2(7)-3);
625.  			}
626.  		} else {
627.  			Strcat(buf,nogood);
628.  			goto nopick;
629.  		}
630.  	/* making guesses */
631.  	} else if(obj->onamelth || objects[obj->otyp].oc_uname) {
632.  		if(is_gem) {
633.  			if(is_buddy) {
634.  				Strcat(buf,addluck);
635.  				change_luck(2);
636.  			} else {
637.  				Strcat(buf,maybeluck);
638.  				change_luck(rn2(3)-1);
639.  			}
640.  		} else {
641.  			Strcat(buf,nogood);
642.  			goto nopick;
643.  		}
644.  	/* value completely unknown to @ */
645.  	} else {
646.  		if(is_gem) {
647.  			if(is_buddy) {
648.  				Strcat(buf,addluck);
649.  				change_luck(1);
650.  			} else {
651.  				Strcat(buf,maybeluck);
652.  				change_luck(rn2(3)-1);
653.  			}
654.  		} else {
655.  			Strcat(buf,noluck);
656.  		}
657.  	}
658.   	Strcat(buf,acceptgift);
659.  	mpickobj(mon, obj);
660.  	if(*u.ushops) check_shop_obj(obj, mon->mx, mon->my, TRUE);
661.  	ret = 1;
662.  
663.  nopick:
664.  	if(!Blind) pline(buf);
665.  	rloc(mon);
666.  	return(ret);
667.  }
668.  
669.  /* returns 0 if object doesn't break	*/
670.  /* returns 1 if object broke 		*/
671.  int
672.  breaks(obj, loose)
673.  register struct obj   *obj;
674.  register boolean loose;		/* if not loose, obj is in fobj chain */
675.  {
676.  	switch(obj->otyp) {
677.  		case MIRROR:
678.  			change_luck(-2);	/* and fall through */
679.  		case CRYSTAL_BALL:
680.  #ifdef TOURIST
681.  		case EXPENSIVE_CAMERA:
682.  #endif
683.  			if(!Blind)
684.  			    pline("%s shatters into a thousand pieces!",
685.  				Doname2(obj));
686.  			else You("hear something shatter!");
687.  			break;
688.  		case EGG:
689.  			pline("Splat!");
690.  			break;
691.  		case CREAM_PIE:
692.  			pline("What a mess!");
693.  			break;
694.  		case ACID_VENOM:
695.  		case BLINDING_VENOM:
696.  			pline("Splash!");
697.  			break;
698.  		default:
699.  			return 0;
700.  	}
701.  
702.  	/* it is currently assumed that 'loose' is co-extensive
703.  	 * with 'thrown'.  if this changes, an explicit 'thrown'
704.  	 * arg must be added to breaks() to ensure proper 
705.  	 * treatment of shop objs.
706.  	 */
707.  	if(loose) {
708.  		newsym(obj->ox,obj->oy);
709.  		if(*u.ushops) 
710.  	            check_shop_obj(obj, obj->ox, obj->oy, TRUE);
711.  		obfree(obj, (struct obj *)0);
712.  	} else {
713.  	        /* it is assumed that the obj is a floor-object */ 
714.  	        register struct monst *shkp;
715.  	        boolean costly, insider;
716.  		long loss = 0L;
717.  
718.  #ifdef GCC_WARN
719.  		shkp = (struct monst *) 0;
720.  #endif
721.  
722.  		costly = (costly_spot(obj->ox, obj->oy) && 
723.  				   (shkp = shop_keeper(*in_rooms(obj->ox,
724.  				  obj->oy, SHOPBASE))) != (struct monst *)0);
725.  		insider = (*u.ushops && inside_shop(u.ux, u.uy) &&
726.  			 *in_rooms(obj->ox, obj->oy, SHOPBASE) == *u.ushops);
727.  
728.  		if(costly)
729.  		    loss = stolen_value(obj, u.ux, u.uy, 
730.  				 (shkp && shkp->mpeaceful), FALSE);
731.  		if(loss && !insider)
732.  		    make_angry_shk(shkp, obj->ox, obj->oy);
733.  
734.  		delobj(obj);
735.  	}
736.  	return(1);
737.  }
738.  
739.  /*
740.   *  Note that the gold object is *not* attached to the fobj chain.
741.   */
742.  static int
743.  throw_gold(obj)
744.  struct obj *obj;
745.  {
746.  	int range, odx, ody;
747.  	long zorks = obj->quan;
748.  	register struct monst *mon;
749.  
750.  	if(u.uswallow) {
751.  		pline(is_animal(u.ustuck->data) ?
752.  			"%s in the %s's entrails." : "%s into %s.",
753.  			"The gold disappears", mon_nam(u.ustuck));
754.  		u.ustuck->mgold += zorks;
755.  		dealloc_obj(obj);
756.  		return(1);
757.  	}
758.  
759.  	if(u.dz) {
760.  	  	if(u.dz < 0 && !Is_airlevel(&u.uz) && !Underwater && !Is_waterlevel(&u.uz)) {
761.  	pline("The gold hits the ceiling, then falls back on top of your %s.",
762.  		    body_part(HEAD));
763.  		    /* some self damage? */
764.  		    if(uarmh) pline("Fortunately, you are wearing a helmet!");
765.  		}
766.  		if(flooreffects(obj,u.ux,u.uy,"fall")) return(1);
767.  		if(u.dz > 0) pline("The gold hits the floor.");
768.  		obj->nobj = fobj;	/* add the gold to the object list */
769.  		fobj = obj;
770.  		place_object(obj,u.ux,u.uy);
771.                  if(*u.ushops) sellobj(obj, u.ux, u.uy);
772.  		stackobj(obj);
773.  		newsym(u.ux,u.uy);
774.  		return 1;
775.  	}
776.  
777.  	/* consistent with range for normal objects */
778.  	range = (int)((ACURRSTR)/2 - obj->owt/40);
779.  
780.  	/* see if the gold has a place to move into */
781.  	odx = u.ux + u.dx;
782.  	ody = u.uy + u.dy;
783.  	if(!ZAP_POS(levl[odx][ody].typ) || closed_door(odx, ody)) {
784.  		bhitpos.x = u.ux;
785.  		bhitpos.y = u.uy;
786.  	} else {
787.  		mon = bhit(u.dx, u.dy, range, THROWN_WEAPON,
788.  			       (int (*)()) 0, (int (*)()) 0, obj);
789.  		if(mon) {
790.  		    if (ghitm(mon, obj))	/* was it caught? */
791.  			return 1;
792.  		} else {
793.  		    if(ship_object(obj, bhitpos.x, bhitpos.y, FALSE)) 
794.  		        return 1;
795.  		}
796.  	}
797.  
798.  	if(flooreffects(obj,bhitpos.x,bhitpos.y,"fall")) return(1);
799.  	obj->nobj = fobj;	/* add the gold to the object list */
800.  	fobj = obj;
801.  	place_object(obj,bhitpos.x,bhitpos.y);
802.          if(*u.ushops) sellobj(obj, bhitpos.x, bhitpos.y);
803.  	stackobj(obj);
804.  	newsym(bhitpos.x,bhitpos.y);
805.  	return(1);
806.  }
807.  
808.  /*dothrow.c*/

Around Wikia's network

Random Wiki