1 /* $NetBSD: zap.c,v 1.9 2008/01/14 03:50:03 dholland Exp $ */
2
3 /*
4 * Copyright (c) 1988, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * This code is derived from software contributed to Berkeley by
8 * Timothy C. Stoehr.
9 *
10 * Redistribution and use in source and binary forms, with or without
11 * modification, are permitted provided that the following conditions
12 * are met:
13 * 1. Redistributions of source code must retain the above copyright
14 * notice, this list of conditions and the following disclaimer.
15 * 2. Redistributions in binary form must reproduce the above copyright
16 * notice, this list of conditions and the following disclaimer in the
17 * documentation and/or other materials provided with the distribution.
18 * 3. Neither the name of the University nor the names of its contributors
19 * may be used to endorse or promote products derived from this software
20 * without specific prior written permission.
21 *
22 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
23 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
24 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
25 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
26 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
27 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
28 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
29 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
30 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
31 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * SUCH DAMAGE.
33 */
34
35 #include <sys/cdefs.h>
36 #ifndef lint
37 #if 0
38 static char sccsid[] = "@(#)zap.c 8.1 (Berkeley) 5/31/93";
39 #else
40 __RCSID("$NetBSD: zap.c,v 1.9 2008/01/14 03:50:03 dholland Exp $");
41 #endif
42 #endif /* not lint */
43
44 /*
45 * zap.c
46 *
47 * This source herein may be modified and/or distributed by anybody who
48 * so desires, with the following restrictions:
49 * 1.) No portion of this notice shall be removed.
50 * 2.) Credit shall not be taken for the creation of this source.
51 * 3.) This code is not to be traded, sold, or used for personal
52 * gain or profit.
53 *
54 */
55
56 #include "rogue.h"
57
58 static object *get_zapped_monster(short, short *, short *);
59 static void tele_away(object *);
60 static void wdrain_life(object *);
61 static void zap_monster(object *, unsigned short);
62
63 boolean wizard = 0;
64
65 void
zapp(void)66 zapp(void)
67 {
68 short wch;
69 boolean first_miss = 1;
70 object *wand;
71 short dir, d, row, col;
72 object *monster;
73
74 while (!is_direction(dir = rgetchar(), &d)) {
75 sound_bell();
76 if (first_miss) {
77 messagef(0, "direction? ");
78 first_miss = 0;
79 }
80 }
81 check_message();
82 if (dir == CANCEL) {
83 return;
84 }
85 if ((wch = pack_letter("zap with what?", WAND)) == CANCEL) {
86 return;
87 }
88 check_message();
89
90 if (!(wand = get_letter_object(wch))) {
91 messagef(0, "no such item.");
92 return;
93 }
94 if (wand->what_is != WAND) {
95 messagef(0, "you can't zap with that");
96 return;
97 }
98 if (wand->class <= 0) {
99 messagef(0, "nothing happens");
100 } else {
101 wand->class--;
102 row = rogue.row; col = rogue.col;
103 if ((wand->which_kind == COLD) || (wand->which_kind == FIRE)) {
104 bounce((short)wand->which_kind, d, row, col, 0);
105 } else {
106 monster = get_zapped_monster(d, &row, &col);
107 if (wand->which_kind == DRAIN_LIFE) {
108 wdrain_life(monster);
109 } else if (monster) {
110 wake_up(monster);
111 s_con_mon(monster);
112 zap_monster(monster, wand->which_kind);
113 relight();
114 }
115 }
116 }
117 (void)reg_move();
118 }
119
120 static object *
get_zapped_monster(short dir,short * row,short * col)121 get_zapped_monster(short dir, short *row, short *col)
122 {
123 short orow, ocol;
124
125 for (;;) {
126 orow = *row; ocol = *col;
127 get_dir_rc(dir, row, col, 0);
128 if (((*row == orow) && (*col == ocol)) ||
129 (dungeon[*row][*col] & (HORWALL | VERTWALL)) ||
130 (dungeon[*row][*col] == NOTHING)) {
131 return(0);
132 }
133 if (dungeon[*row][*col] & MONSTER) {
134 if (!imitating(*row, *col)) {
135 return(object_at(&level_monsters, *row, *col));
136 }
137 }
138 }
139 }
140
141 static void
zap_monster(object * monster,unsigned short kind)142 zap_monster(object *monster, unsigned short kind)
143 {
144 short row, col;
145 object *nm;
146 short tc;
147
148 row = monster->row;
149 col = monster->col;
150
151 switch(kind) {
152 case SLOW_MONSTER:
153 if (monster->m_flags & HASTED) {
154 monster->m_flags &= (~HASTED);
155 } else {
156 monster->slowed_toggle = 0;
157 monster->m_flags |= SLOWED;
158 }
159 break;
160 case HASTE_MONSTER:
161 if (monster->m_flags & SLOWED) {
162 monster->m_flags &= (~SLOWED);
163 } else {
164 monster->m_flags |= HASTED;
165 }
166 break;
167 case TELE_AWAY:
168 tele_away(monster);
169 break;
170 case INVISIBILITY:
171 monster->m_flags |= INVISIBLE;
172 break;
173 case POLYMORPH:
174 if (monster->m_flags & HOLDS) {
175 being_held = 0;
176 }
177 nm = monster->next_monster;
178 tc = monster->trail_char;
179 (void)gr_monster(monster, get_rand(0, MONSTERS-1));
180 monster->row = row;
181 monster->col = col;
182 monster->next_monster = nm;
183 monster->trail_char = tc;
184 if (!(monster->m_flags & IMITATES)) {
185 wake_up(monster);
186 }
187 break;
188 case MAGIC_MISSILE:
189 rogue_hit(monster, 1);
190 break;
191 case CANCELLATION:
192 if (monster->m_flags & HOLDS) {
193 being_held = 0;
194 }
195 if (monster->m_flags & STEALS_ITEM) {
196 monster->drop_percent = 0;
197 }
198 monster->m_flags &= (~(FLIES | FLITS | SPECIAL_HIT | INVISIBLE |
199 FLAMES | IMITATES | CONFUSES | SEEKS_GOLD | HOLDS));
200 break;
201 case DO_NOTHING:
202 messagef(0, "nothing happens");
203 break;
204 }
205 }
206
207 static void
tele_away(object * monster)208 tele_away(object *monster)
209 {
210 short row, col;
211
212 if (monster->m_flags & HOLDS) {
213 being_held = 0;
214 }
215 gr_row_col(&row, &col, (FLOOR | TUNNEL | STAIRS | OBJECT));
216 mvaddch(monster->row, monster->col, monster->trail_char);
217 dungeon[monster->row][monster->col] &= ~MONSTER;
218 monster->row = row; monster->col = col;
219 dungeon[row][col] |= MONSTER;
220 monster->trail_char = mvinch(row, col);
221 if (detect_monster || rogue_can_see(row, col)) {
222 mvaddch(row, col, gmc(monster));
223 }
224 }
225
226 void
wizardize(void)227 wizardize(void)
228 {
229 char buf[100];
230
231 if (wizard) {
232 wizard = 0;
233 messagef(0, "not wizard anymore");
234 } else {
235 if (get_input_line("wizard's password:", "", buf, sizeof(buf),
236 "", 0, 0)) {
237 (void)xxx(1);
238 xxxx(buf, strlen(buf));
239 if (!strncmp(buf, "\247\104\126\272\115\243\027", 7)) {
240 wizard = 1;
241 score_only = 1;
242 messagef(0, "Welcome, mighty wizard!");
243 } else {
244 messagef(0, "sorry");
245 }
246 }
247 }
248 }
249
250 static void
wdrain_life(object * monster)251 wdrain_life(object *monster)
252 {
253 short hp;
254 object *lmon, *nm;
255
256 hp = rogue.hp_current / 3;
257 rogue.hp_current = (rogue.hp_current + 1) / 2;
258
259 if (cur_room >= 0) {
260 lmon = level_monsters.next_monster;
261 while (lmon) {
262 nm = lmon->next_monster;
263 if (get_room_number(lmon->row, lmon->col) == cur_room) {
264 wake_up(lmon);
265 (void)mon_damage(lmon, hp);
266 }
267 lmon = nm;
268 }
269 } else {
270 if (monster) {
271 wake_up(monster);
272 (void)mon_damage(monster, hp);
273 }
274 }
275 print_stats(STAT_HP);
276 relight();
277 }
278
279 void
bounce(short ball,short dir,short row,short col,short r)280 bounce(short ball, short dir, short row, short col, short r)
281 {
282 short orow, ocol;
283 const char *s;
284 short i, ch, new_dir = -1, damage;
285 static short btime;
286
287 if (++r == 1) {
288 btime = get_rand(3, 6);
289 } else if (r > btime) {
290 return;
291 }
292
293 if (ball == FIRE) {
294 s = "fire";
295 } else {
296 s = "ice";
297 }
298 if (r > 1) {
299 messagef(0, "the %s bounces", s);
300 }
301 orow = row;
302 ocol = col;
303 do {
304 ch = mvinch(orow, ocol);
305 standout();
306 mvaddch(orow, ocol, ch);
307 get_dir_rc(dir, &orow, &ocol, 1);
308 } while (!( (ocol <= 0) ||
309 (ocol >= DCOLS-1) ||
310 (dungeon[orow][ocol] == NOTHING) ||
311 (dungeon[orow][ocol] & MONSTER) ||
312 (dungeon[orow][ocol] & (HORWALL | VERTWALL)) ||
313 ((orow == rogue.row) && (ocol == rogue.col))));
314 standend();
315 refresh();
316 do {
317 orow = row;
318 ocol = col;
319 ch = mvinch(row, col);
320 mvaddch(row, col, ch);
321 get_dir_rc(dir, &row, &col, 1);
322 } while (!( (col <= 0) ||
323 (col >= DCOLS-1) ||
324 (dungeon[row][col] == NOTHING) ||
325 (dungeon[row][col] & MONSTER) ||
326 (dungeon[row][col] & (HORWALL | VERTWALL)) ||
327 ((row == rogue.row) && (col == rogue.col))));
328
329 if (dungeon[row][col] & MONSTER) {
330 object *monster;
331
332 monster = object_at(&level_monsters, row, col);
333
334 wake_up(monster);
335 if (rand_percent(33)) {
336 messagef(0, "the %s misses the %s", s,
337 mon_name(monster));
338 goto ND;
339 }
340 if (ball == FIRE) {
341 if (!(monster->m_flags & RUSTS)) {
342 if (monster->m_flags & FREEZES) {
343 damage = monster->hp_to_kill;
344 } else if (monster->m_flags & FLAMES) {
345 damage = (monster->hp_to_kill / 10) + 1;
346 } else {
347 damage = get_rand((rogue.hp_current / 3), rogue.hp_max);
348 }
349 } else {
350 damage = (monster->hp_to_kill / 2) + 1;
351 }
352 messagef(0, "the %s hits the %s", s,
353 mon_name(monster));
354 (void)mon_damage(monster, damage);
355 } else {
356 damage = -1;
357 if (!(monster->m_flags & FREEZES)) {
358 if (rand_percent(33)) {
359 messagef(0, "the monster is frozen");
360 monster->m_flags |= (ASLEEP | NAPPING);
361 monster->nap_length = get_rand(3, 6);
362 } else {
363 damage = rogue.hp_current / 4;
364 }
365 } else {
366 damage = -2;
367 }
368 if (damage != -1) {
369 messagef(0, "the %s hits the %s", s,
370 mon_name(monster));
371 (void)mon_damage(monster, damage);
372 }
373 }
374 } else if ((row == rogue.row) && (col == rogue.col)) {
375 if (rand_percent(10 + (3 * get_armor_class(rogue.armor)))) {
376 messagef(0, "the %s misses", s);
377 goto ND;
378 } else {
379 damage = get_rand(3, (3 * rogue.exp));
380 if (ball == FIRE) {
381 damage = (damage * 3) / 2;
382 damage -= get_armor_class(rogue.armor);
383 }
384 rogue_damage(damage, NULL,
385 ((ball == FIRE) ? KFIRE : HYPOTHERMIA));
386 messagef(0, "the %s hits", s);
387 }
388 } else {
389 short nrow, ncol;
390
391 ND: for (i = 0; i < 10; i++) {
392 dir = get_rand(0, DIRS-1);
393 nrow = orow;
394 ncol = ocol;
395 get_dir_rc(dir, &nrow, &ncol, 1);
396 if (((ncol >= 0) && (ncol <= DCOLS-1)) &&
397 (dungeon[nrow][ncol] != NOTHING) &&
398 (!(dungeon[nrow][ncol] & (VERTWALL | HORWALL)))) {
399 new_dir = dir;
400 break;
401 }
402 }
403 if (new_dir != -1) {
404 bounce(ball, new_dir, orow, ocol, r);
405 }
406 }
407 }
408