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 * @(#)spec_hit.c 8.1 (Berkeley) 5/31/93
37 * $FreeBSD: src/games/rogue/spec_hit.c,v 1.4 1999/11/30 03:49:28 billf Exp $
38 * $DragonFly: src/games/rogue/spec_hit.c,v 1.3 2006/09/02 19:31:07 pavalos 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
58 extern short cur_level, max_level, blind, levitate, ring_exp;
59 extern long level_points[];
60 extern boolean detect_monster, mon_disappeared;
61 extern boolean sustain_strength, maintain_armor;
62 extern char *you_can_move_again;
64 static void freeze(object *);
65 static void steal_gold(object *);
66 static void steal_item(object *);
67 static void disappear(object *);
68 static boolean try_to_cough(short, short, object *);
69 static boolean gold_at(short, short);
70 static void sting(object *);
71 static void drop_level(void);
72 static void drain_life(void);
73 static short get_dir(short, short, short, short);
76 special_hit(object *monster)
78 if ((monster->m_flags & CONFUSED) && rand_percent(66)) {
81 if (monster->m_flags & RUSTS) {
84 if ((monster->m_flags & HOLDS) && !levitate) {
87 if (monster->m_flags & FREEZES) {
90 if (monster->m_flags & STINGS) {
93 if (monster->m_flags & DRAINS_LIFE) {
96 if (monster->m_flags & DROPS_LEVEL) {
99 if (monster->m_flags & STEALS_GOLD) {
101 } else if (monster->m_flags & STEALS_ITEM) {
107 rust(object *monster)
109 if ((!rogue.armor) || (get_armor_class(rogue.armor) <= 1) ||
110 (rogue.armor->which_kind == LEATHER)) {
113 if ((rogue.armor->is_protected) || maintain_armor) {
114 if (monster && (!(monster->m_flags & RUST_VANISHED))) {
115 message("the rust vanishes instantly", 0);
116 monster->m_flags |= RUST_VANISHED;
119 rogue.armor->d_enchant--;
120 message("your armor weakens", 0);
121 print_stats(STAT_ARMOR);
126 freeze(object *monster)
128 short freeze_percent = 99;
131 if (rand_percent(12)) {
134 freeze_percent -= (rogue.str_current+(rogue.str_current / 2));
135 freeze_percent -= ((rogue.exp + ring_exp) * 4);
136 freeze_percent -= (get_armor_class(rogue.armor) * 5);
137 freeze_percent -= (rogue.hp_max / 3);
139 if (freeze_percent > 10) {
140 monster->m_flags |= FREEZING_ROGUE;
141 message("you are frozen", 1);
144 for (i = 0; i < n; i++) {
147 if (rand_percent(freeze_percent)) {
148 for (i = 0; i < 50; i++) {
151 killed_by(NULL, HYPOTHERMIA);
153 message(you_can_move_again, 1);
154 monster->m_flags &= (~FREEZING_ROGUE);
159 steal_gold(object *monster)
163 if ((rogue.gold <= 0) || rand_percent(10)) {
167 amount = get_rand((cur_level * 10), (cur_level * 30));
169 if (amount > rogue.gold) {
172 rogue.gold -= amount;
173 message("your purse feels lighter", 0);
174 print_stats(STAT_GOLD);
179 steal_item(object *monster)
184 boolean has_something = 0;
186 if (rand_percent(15)) {
189 obj = rogue.pack.next_object;
195 if (!(obj->in_use_flags & BEING_USED)) {
199 obj = obj->next_object;
201 if (!has_something) {
204 n = get_rand(0, MAX_PACK_COUNT);
205 obj = rogue.pack.next_object;
207 for (i = 0; i <= n; i++) {
208 obj = obj->next_object;
209 while ((!obj) || (obj->in_use_flags & BEING_USED)) {
211 obj = rogue.pack.next_object;
213 obj = obj->next_object;
217 strcpy(desc, "she stole ");
218 if (obj->what_is != WEAPON) {
222 get_desc(obj, desc+10);
225 obj->quantity = ((obj->what_is != WEAPON) ? t : 1);
227 vanish(obj, 0, &rogue.pack);
233 disappear(object *monster)
240 dungeon[row][col] &= ~MONSTER;
241 if (rogue_can_see(row, col)) {
242 mvaddch(row, col, get_dungeon_char(row, col));
244 take_from_pack(monster, &level_monsters);
245 free_object(monster);
250 cough_up(object *monster)
253 short row, col, i, n;
255 if (cur_level < max_level) {
259 if (monster->m_flags & STEALS_GOLD) {
260 obj = alloc_object();
262 obj->quantity = get_rand((cur_level * 15), (cur_level * 30));
264 if (!rand_percent((int) monster->drop_percent)) {
272 for (n = 0; n <= 5; n++) {
273 for (i = -n; i <= n; i++) {
274 if (try_to_cough(row+n, col+i, obj)) {
277 if (try_to_cough(row-n, col+i, obj)) {
281 for (i = -n; i <= n; i++) {
282 if (try_to_cough(row+i, col-n, obj)) {
285 if (try_to_cough(row+i, col+n, obj)) {
294 try_to_cough(short row, short col, object *obj)
296 if ((row < MIN_ROW) || (row > (DROWS-2)) || (col < 0) || (col>(DCOLS-1))) {
299 if ((!(dungeon[row][col] & (OBJECT | STAIRS | TRAP))) &&
300 (dungeon[row][col] & (TUNNEL | FLOOR | DOOR))) {
301 place_at(obj, row, col);
302 if (((row != rogue.row) || (col != rogue.col)) &&
303 (!(dungeon[row][col] & MONSTER))) {
304 mvaddch(row, col, get_dungeon_char(row, col));
312 seek_gold(object *monster)
316 if ((rn = get_room_number(monster->row, monster->col)) < 0) {
319 for (i = rooms[rn].top_row+1; i < rooms[rn].bottom_row; i++) {
320 for (j = rooms[rn].left_col+1; j < rooms[rn].right_col; j++) {
321 if ((gold_at(i, j)) && !(dungeon[i][j] & MONSTER)) {
322 monster->m_flags |= CAN_FLIT;
323 s = mon_can_go(monster, i, j);
324 monster->m_flags &= (~CAN_FLIT);
326 move_mon_to(monster, i, j);
327 monster->m_flags |= ASLEEP;
328 monster->m_flags &= (~(WAKENS | SEEKS_GOLD));
331 monster->m_flags &= (~SEEKS_GOLD);
332 monster->m_flags |= CAN_FLIT;
333 mv_1_monster(monster, i, j);
334 monster->m_flags &= (~CAN_FLIT);
335 monster->m_flags |= SEEKS_GOLD;
344 gold_at(short row, short col)
346 if (dungeon[row][col] & OBJECT) {
349 if ((obj = object_at(&level_objects, row, col)) &&
350 (obj->what_is == GOLD)) {
358 check_gold_seeker(object *monster)
360 monster->m_flags &= (~SEEKS_GOLD);
364 check_imitator(object *monster)
368 if (monster->m_flags & IMITATES) {
371 mvaddch(monster->row, monster->col,
372 get_dungeon_char(monster->row, monster->col));
374 sprintf(msg, "wait, that's a %s!", mon_name(monster));
383 imitating(short row, short col)
385 if (dungeon[row][col] & MONSTER) {
388 if ((monster = object_at(&level_monsters, row, col))) {
389 if (monster->m_flags & IMITATES) {
398 sting(object *monster)
400 short sting_chance = 35;
403 if ((rogue.str_current <= 3) || sustain_strength) {
406 sting_chance += (6 * (6 - get_armor_class(rogue.armor)));
408 if ((rogue.exp + ring_exp) > 8) {
409 sting_chance -= (6 * ((rogue.exp + ring_exp) - 8));
411 if (rand_percent(sting_chance)) {
412 sprintf(msg, "the %s's bite has weakened you",
416 print_stats(STAT_STRENGTH);
425 if (rand_percent(80) || (rogue.exp <= 5)) {
428 rogue.exp_points = level_points[rogue.exp-2] - get_rand(9, 29);
431 if ((rogue.hp_current -= hp) <= 0) {
432 rogue.hp_current = 1;
434 if ((rogue.hp_max -= hp) <= 0) {
445 if (rand_percent(60) || (rogue.hp_max <= 30) || (rogue.hp_current < 10)) {
448 n = get_rand(1, 3); /* 1 Hp, 2 Str, 3 both */
450 if ((n != 2) || (!sustain_strength)) {
451 message("you feel weaker", 0);
459 if ((rogue.str_current > 3) && (!sustain_strength)) {
466 print_stats((STAT_STRENGTH | STAT_HP));
470 m_confuse(object *monster)
474 if (!rogue_can_see(monster->row, monster->col)) {
477 if (rand_percent(45)) {
478 monster->m_flags &= (~CONFUSES); /* will not confuse the rogue */
481 if (rand_percent(55)) {
482 monster->m_flags &= (~CONFUSES);
483 sprintf(msg, "the gaze of the %s has confused you", mon_name(monster));
492 flame_broil(object *monster)
496 if ((!mon_sees(monster, rogue.row, rogue.col)) || coin_toss()) {
499 row = rogue.row - monster->row;
500 col = rogue.col - monster->col;
507 if (((row != 0) && (col != 0) && (row != col)) ||
508 ((row > 7) || (col > 7))) {
511 dir = get_dir(monster->row, monster->col, row, col);
512 bounce(FIRE, dir, monster->row, monster->col, 0);
518 get_dir(short srow, short scol, short drow, short dcol)
534 if ((srow > drow) && (scol > dcol)) {
537 if ((srow < drow) && (scol < dcol)) {
540 if ((srow < drow) && (scol > dcol)) {
543 /*if ((srow > drow) && (scol < dcol)) {*/