2 * Copyright (c) 1988, 1993
3 * The Regents of the University of California. All rights reserved.
5 * This code is derived from software contributed to Berkeley by
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. All advertising materials mentioning features or use of this software
17 * must display the following acknowledgement:
18 * This product includes software developed by the University of
19 * California, Berkeley and its contributors.
20 * 4. Neither the name of the University nor the names of its contributors
21 * may be used to endorse or promote products derived from this software
22 * without specific prior written permission.
24 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
25 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
26 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
27 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
28 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
29 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
30 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
31 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
32 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
33 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 * @(#)throw.c 8.1 (Berkeley) 5/31/93
37 * $FreeBSD: src/games/rogue/throw.c,v 1.3 1999/11/30 03:49:28 billf Exp $
38 * $DragonFly: src/games/rogue/throw.c,v 1.2 2003/06/17 04:25:25 dillon Exp $
44 * This source herein may be modified and/or distributed by anybody who
45 * so desires, with the following restrictions:
46 * 1.) No portion of this notice shall be removed.
47 * 2.) Credit shall not be taken for the creation of this source.
48 * 3.) This code is not to be traded, sold, or used for personal
55 extern short cur_room;
56 extern char *curse_message;
57 extern char hit_message[];
62 boolean first_miss = 1;
67 while (!is_direction(dir = rgetchar(), &d)) {
70 message("direction? ", 0);
78 if ((wch = pack_letter("throw what?", WEAPON)) == CANCEL) {
83 if (!(weapon = get_letter_object(wch))) {
84 message("no such item.", 0);
87 if ((weapon->in_use_flags & BEING_USED) && weapon->is_cursed) {
88 message(curse_message, 0);
91 row = rogue.row; col = rogue.col;
93 if ((weapon->in_use_flags & BEING_WIELDED) && (weapon->quantity <= 1)) {
94 unwield(rogue.weapon);
95 } else if (weapon->in_use_flags & BEING_WORN) {
98 print_stats(STAT_ARMOR);
99 } else if (weapon->in_use_flags & ON_EITHER_HAND) {
102 monster = get_thrown_at_monster(weapon, d, &row, &col);
103 mvaddch(rogue.row, rogue.col, rogue.fchar);
106 if (rogue_can_see(row, col) && ((row != rogue.row) || (col != rogue.col))){
107 mvaddch(row, col, get_dungeon_char(row, col));
111 check_gold_seeker(monster);
113 if (!throw_at_monster(monster, weapon)) {
114 flop_weapon(weapon, row, col);
117 flop_weapon(weapon, row, col);
119 vanish(weapon, 1, &rogue.pack);
122 throw_at_monster(monster, weapon)
123 object *monster, *weapon;
125 short damage, hit_chance;
128 hit_chance = get_hit_chance(weapon);
129 damage = get_weapon_damage(weapon);
130 if ((weapon->which_kind == ARROW) &&
131 (rogue.weapon && (rogue.weapon->which_kind == BOW))) {
132 damage += get_weapon_damage(rogue.weapon);
133 damage = ((damage * 2) / 3);
134 hit_chance += (hit_chance / 3);
135 } else if ((weapon->in_use_flags & BEING_WIELDED) &&
136 ((weapon->which_kind == DAGGER) ||
137 (weapon->which_kind == SHURIKEN) ||
138 (weapon->which_kind == DART))) {
139 damage = ((damage * 3) / 2);
140 hit_chance += (hit_chance / 3);
142 t = weapon->quantity;
143 weapon->quantity = 1;
144 sprintf(hit_message, "the %s", name_of(weapon));
145 weapon->quantity = t;
147 if (!rand_percent(hit_chance)) {
148 (void) strcat(hit_message, "misses ");
152 (void) strcat(hit_message, "hit ");
153 (void) mon_damage(monster, damage);
158 get_thrown_at_monster(obj, dir, row, col)
166 orow = *row; ocol = *col;
168 ch = get_mask_char(obj->what_is);
170 for (i = 0; i < 24; i++) {
171 get_dir_rc(dir, row, col, 0);
172 if ( (((*col <= 0) || (*col >= DCOLS-1)) ||
173 (dungeon[*row][*col] == NOTHING)) ||
174 ((dungeon[*row][*col] & (HORWALL | VERTWALL | HIDDEN)) &&
175 (!(dungeon[*row][*col] & TRAP)))) {
180 if ((i != 0) && rogue_can_see(orow, ocol)) {
181 mvaddch(orow, ocol, get_dungeon_char(orow, ocol));
183 if (rogue_can_see(*row, *col)) {
184 if (!(dungeon[*row][*col] & MONSTER)) {
185 mvaddch(*row, *col, ch);
189 orow = *row; ocol = *col;
190 if (dungeon[*row][*col] & MONSTER) {
191 if (!imitating(*row, *col)) {
192 return(object_at(&level_monsters, *row, *col));
195 if (dungeon[*row][*col] & TUNNEL) {
202 flop_weapon(weapon, row, col)
206 object *new_weapon, *monster;
213 while ((i < 9) && dungeon[row][col] & ~(FLOOR | TUNNEL | DOOR | MONSTER)) {
214 rand_around(i++, &row, &col);
215 if ((row > (DROWS-2)) || (row < MIN_ROW) ||
216 (col > (DCOLS-1)) || (col < 0) || (!dungeon[row][col]) ||
217 (dungeon[row][col] & ~(FLOOR | TUNNEL | DOOR | MONSTER))) {
224 if (found || (i == 0)) {
225 new_weapon = alloc_object();
226 *new_weapon = *weapon;
227 new_weapon->in_use_flags = NOT_USED;
228 new_weapon->quantity = 1;
229 new_weapon->ichar = 'L';
230 place_at(new_weapon, row, col);
231 if (rogue_can_see(row, col) &&
232 ((row != rogue.row) || (col != rogue.col))) {
233 mon = dungeon[row][col] & MONSTER;
234 dungeon[row][col] &= (~MONSTER);
235 dch = get_dungeon_char(row, col);
237 mch = mvinch(row, col);
238 if (monster = object_at(&level_monsters, row, col)) {
239 monster->trail_char = dch;
241 if ((mch < 'A') || (mch > 'Z')) {
242 mvaddch(row, col, dch);
245 mvaddch(row, col, dch);
247 dungeon[row][col] |= mon;
252 t = weapon->quantity;
253 weapon->quantity = 1;
254 sprintf(msg, "the %svanishes as it hits the ground",
256 weapon->quantity = t;
264 static char pos[] = "\010\007\001\003\004\005\002\006\0";
265 static short row, col;
276 for (j = 0; j < 5; j++) {
284 switch((short)pos[i]) {