abort declaration is not just implicit but incompatibly implicit, so make it explicit.
[rogue-pphs.git] / weapons.c
1 /*
2 * Functions for dealing with problems brought about by weapons
3 *
4 * @(#)weapons.c 3.17 (Berkeley) 6/15/81
5 *
6 * Rogue: Exploring the Dungeons of Doom
7 * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
8 * All rights reserved.
9 *
10 * See the file LICENSE.TXT for full copyright and licensing information.
11 */
12
13 #include "curses.h"
14 #include <ctype.h>
15 #include <string.h>
16 #include "rogue.h"
17
18 #define NONE 100
19
20 char *w_names[MAXWEAPONS] = {
21 "mace",
22 "long sword",
23 "short bow",
24 "arrow",
25 "dagger",
26 "rock",
27 "two handed sword",
28 "sling",
29 "dart",
30 "crossbow",
31 "crossbow bolt",
32 "spear",
33 };
34
35 static struct init_weps {
36 char *iw_dam;
37 char *iw_hrl;
38 char iw_launch;
39 int iw_flags;
40 } init_dam[MAXWEAPONS] = {
41 "2d4", "1d3", NONE, 0, /* Mace */
42 "1d10", "1d2", NONE,0, /* Long sword */
43 "1d1", "1d1", NONE, 0, /* Bow */
44 "1d1", "1d6", BOW, ISMANY|ISMISL, /* Arrow */
45 "1d6", "1d4", NONE, ISMISL, /* Dagger */
46 "1d2", "1d4", SLING,ISMANY|ISMISL, /* Rock */
47 "3d6", "1d2", NONE, 0, /* 2h sword */
48 "0d0", "0d0", NONE, 0, /* Sling */
49 "1d1", "1d3", NONE, ISMANY|ISMISL, /* Dart */
50 "1d1", "1d1", NONE, 0, /* Crossbow */
51 "1d2", "1d10", CROSSBOW, ISMANY|ISMISL,/* Crossbow bolt */
52 "1d8", "1d6", NONE, ISMISL, /* Spear */
53 };
54
55 /*
56 * missile:
57 * Fire a missile in a given direction
58 */
59
60 missile(ydelta, xdelta)
61 int ydelta, xdelta;
62 {
63 register struct object *obj;
64 register struct linked_list *item, *nitem;
65
66 /*
67 * Get which thing we are hurling
68 */
69 if ((item = get_item("throw", WEAPON)) == NULL)
70 return;
71 obj = (struct object *) ldata(item);
72 if (!dropcheck(obj) || is_current(obj))
73 return;
74 /*
75 * Get rid of the thing. If it is a non-multiple item object, or
76 * if it is the last thing, just drop it. Otherwise, create a new
77 * item with a count of one.
78 */
79 if (obj->o_count < 2)
80 {
81 detach(pack, item);
82 inpack--;
83 }
84 else
85 {
86 obj->o_count--;
87 if (obj->o_group == 0)
88 inpack--;
89 nitem = (struct linked_list *) new_item(sizeof *obj);
90 obj = (struct object *) ldata(nitem);
91 *obj = *((struct object *) ldata(item));
92 obj->o_count = 1;
93 item = nitem;
94 }
95 do_motion(obj, ydelta, xdelta);
96 /*
97 * AHA! Here it has hit something. If it is a wall or a door,
98 * or if it misses (combat) the mosnter, put it on the floor
99 */
100 if (!isupper(mvwinch(mw, obj->o_pos.y, obj->o_pos.x))
101 || !hit_monster(unc(obj->o_pos), obj))
102 fall(item, TRUE);
103 mvwaddch(cw, hero.y, hero.x, PLAYER);
104 }
105
106 /*
107 * do the actual motion on the screen done by an object traveling
108 * across the room
109 */
110 do_motion(obj, ydelta, xdelta)
111 register struct object *obj;
112 register int ydelta, xdelta;
113 {
114 /*
115 * Come fly with us ...
116 */
117 obj->o_pos = hero;
118 for (;;)
119 {
120 register int ch;
121
122 /*
123 * Erase the old one
124 */
125 if (!ce(obj->o_pos, hero) && cansee(unc(obj->o_pos)) &&
126 mvwinch(cw, obj->o_pos.y, obj->o_pos.x) != ' ')
127 mvwaddch(cw, obj->o_pos.y, obj->o_pos.x,
128 show(obj->o_pos.y, obj->o_pos.x));
129 /*
130 * Get the new position
131 */
132 obj->o_pos.y += ydelta;
133 obj->o_pos.x += xdelta;
134 if (step_ok(ch = winat(obj->o_pos.y, obj->o_pos.x)) && ch != DOOR)
135 {
136 /*
137 * It hasn't hit anything yet, so display it
138 * If it alright.
139 */
140 if (cansee(unc(obj->o_pos)) &&
141 mvwinch(cw, obj->o_pos.y, obj->o_pos.x) != ' ')
142 {
143 mvwaddch(cw, obj->o_pos.y, obj->o_pos.x, obj->o_type);
144 draw(cw);
145 }
146 continue;
147 }
148 break;
149 }
150 }
151
152 /*
153 * fall:
154 * Drop an item someplace around here.
155 */
156
157 fall(item, pr)
158 register struct linked_list *item;
159 bool pr;
160 {
161 register struct object *obj;
162 register struct room *rp;
163 static coord fpos;
164
165 obj = (struct object *) ldata(item);
166 if (fallpos(&obj->o_pos, &fpos, TRUE))
167 {
168 mvaddch(fpos.y, fpos.x, obj->o_type);
169 obj->o_pos = fpos;
170 if ((rp = roomin(&hero)) != NULL && !(rp->r_flags & ISDARK))
171 {
172 light(&hero);
173 mvwaddch(cw, hero.y, hero.x, PLAYER);
174 }
175 attach(lvl_obj, item);
176 return;
177 }
178 if (pr)
179 if (obj->o_type == WEAPON) /* BUGFUX: Identification trick */
180 msg("Your %s vanishes as it hits the ground.", w_names[obj->o_which]);
181 else
182 msg("%s vanishes as it hits the ground.", inv_name(obj,TRUE));
183 discard(item);
184 }
185
186 /*
187 * init_weapon:
188 * Set up the initial goodies for a weapon
189 */
190
191 init_weapon(weap, type)
192 register struct object *weap;
193 char type;
194 {
195 register struct init_weps *iwp;
196
197 iwp = &init_dam[type];
198 strcpy(weap->o_damage,iwp->iw_dam);
199 strcpy(weap->o_hurldmg,iwp->iw_hrl);
200 weap->o_launch = iwp->iw_launch;
201 weap->o_flags = iwp->iw_flags;
202 if (weap->o_flags & ISMANY)
203 {
204 weap->o_count = rnd(8) + 8;
205 weap->o_group = newgrp();
206 }
207 else
208 weap->o_count = 1;
209 }
210
211 /*
212 * Does the missile hit the monster
213 */
214
215 hit_monster(y, x, obj)
216 register int y, x;
217 struct object *obj;
218 {
219 static coord mp;
220
221 mp.y = y;
222 mp.x = x;
223 return fight(&mp, winat(y, x), obj, TRUE);
224 }
225
226 /*
227 * num:
228 * Figure out the plus number for armor/weapons
229 */
230
231 char *
232 num(n1, n2)
233 register int n1, n2;
234 {
235 static char numbuf[80];
236
237 if (n1 == 0 && n2 == 0)
238 return "+0";
239 if (n2 == 0)
240 sprintf(numbuf, "%s%d", n1 < 0 ? "" : "+", n1);
241 else
242 sprintf(numbuf, "%s%d,%s%d",
243 n1 < 0 ? "" : "+", n1, n2 < 0 ? "" : "+", n2);
244 return numbuf;
245 }
246
247 /*
248 * wield:
249 * Pull out a certain weapon
250 */
251
252 wield()
253 {
254 register struct linked_list *item;
255 register struct object *obj, *oweapon;
256
257 oweapon = cur_weapon;
258 if (!dropcheck(cur_weapon))
259 {
260 cur_weapon = oweapon;
261 return;
262 }
263 cur_weapon = oweapon;
264 if ((item = get_item("wield", WEAPON)) == NULL)
265 {
266 bad:
267 after = FALSE;
268 return;
269 }
270
271 obj = (struct object *) ldata(item);
272 if (obj->o_type == ARMOR)
273 {
274 msg("You can't wield armor");
275 goto bad;
276 }
277 if (is_current(obj))
278 goto bad;
279
280 if (terse)
281 addmsg("W");
282 else
283 addmsg("You are now w");
284 msg("ielding %s", inv_name(obj, TRUE));
285 cur_weapon = obj;
286 }
287
288 /*
289 * pick a random position around the give (y, x) coordinates
290 */
291 fallpos(pos, newpos, passages)
292 register coord *pos, *newpos;
293 register bool passages;
294 {
295 register int y, x, cnt, ch;
296
297 cnt = 0;
298 for (y = pos->y - 1; y <= pos->y + 1; y++)
299 for (x = pos->x - 1; x <= pos->x + 1; x++)
300 {
301 /*
302 * check to make certain the spot is empty, if it is,
303 * put the object there, set it in the level list
304 * and re-draw the room if he can see it
305 */
306 if (y == hero.y && x == hero.x)
307 continue;
308 if (((ch = winat(y, x)) == FLOOR || (passages && ch == PASSAGE))
309 && rnd(++cnt) == 0)
310 {
311 newpos->y = y;
312 newpos->x = x;
313 }
314 }
315 return (cnt != 0);
316 }