73fee6f1906aac74dbaa6733b56f64afe0be7601
[dragonfly.git] / games / rogue / use.c
1 /*-
2  * Copyright (c) 1988, 1993
3  *      The Regents of the University of California.  All rights reserved.
4  *
5  * This code is derived from software contributed to Berkeley by
6  * Timothy C. Stoehr.
7  *
8  * Redistribution and use in source and binary forms, with or without
9  * modification, are permitted provided that the following conditions
10  * are met:
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. Neither the name of the University nor the names of its contributors
17  *    may be used to endorse or promote products derived from this software
18  *    without specific prior written permission.
19  *
20  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
30  * SUCH DAMAGE.
31  *
32  * @(#)use.c    8.1 (Berkeley) 5/31/93
33  * $FreeBSD: src/games/rogue/use.c,v 1.4 1999/11/30 03:49:29 billf Exp $
34  * $DragonFly: src/games/rogue/use.c,v 1.4 2006/09/02 19:31:07 pavalos Exp $
35  */
36
37 /*
38  * use.c
39  *
40  * This source herein may be modified and/or distributed by anybody who
41  * so desires, with the following restrictions:
42  *    1.)  No portion of this notice shall be removed.
43  *    2.)  Credit shall not be taken for the creation of this source.
44  *    3.)  This code is not to be traded, sold, or used for personal
45  *         gain or profit.
46  *
47  */
48
49 #include "rogue.h"
50
51 short halluc = 0;
52 short blind = 0;
53 short confused = 0;
54 short levitate = 0;
55 short haste_self = 0;
56 boolean see_invisible = 0;
57 short extra_hp = 0;
58 boolean detect_monster = 0;
59 boolean con_mon = 0;
60 const char *strange_feeling = "you have a strange feeling for a moment, then it passes";
61
62 extern short bear_trap;
63 extern short cur_room;
64 extern long level_points[];
65 extern boolean being_held;
66 extern char *fruit, *you_can_move_again;
67 extern boolean sustain_strength;
68
69 static const char *get_ench_color(void);
70 static void go_blind(void);
71 static void hold_monster(void);
72 static void idntfy(void);
73 static void potion_heal(boolean);
74 static void uncurse_all(void);
75
76 void
77 quaff(void)
78 {
79         short ch;
80         char buf[80];
81         object *obj;
82
83         ch = pack_letter("quaff what?", POTION);
84
85         if (ch == CANCEL) {
86                 return;
87         }
88         if (!(obj = get_letter_object(ch))) {
89                 message("no such item.", 0);
90                 return;
91         }
92         if (obj->what_is != POTION) {
93                 message("you can't drink that", 0);
94                 return;
95         }
96         switch(obj->which_kind) {
97                 case INCREASE_STRENGTH:
98                         message("you feel stronger now, what bulging muscles!",
99                         0);
100                         rogue.str_current++;
101                         if (rogue.str_current > rogue.str_max) {
102                                 rogue.str_max = rogue.str_current;
103                         }
104                         break;
105                 case RESTORE_STRENGTH:
106                         rogue.str_current = rogue.str_max;
107                         message("this tastes great, you feel warm all over", 0);
108                         break;
109                 case HEALING:
110                         message("you begin to feel better", 0);
111                         potion_heal(0);
112                         break;
113                 case EXTRA_HEALING:
114                         message("you begin to feel much better", 0);
115                         potion_heal(1);
116                         break;
117                 case POISON:
118                         if (!sustain_strength) {
119                                 rogue.str_current -= get_rand(1, 3);
120                                 if (rogue.str_current < 1) {
121                                         rogue.str_current = 1;
122                                 }
123                         }
124                         message("you feel very sick now", 0);
125                         if (halluc) {
126                                 unhallucinate();
127                         }
128                         break;
129                 case RAISE_LEVEL:
130                         rogue.exp_points = level_points[rogue.exp - 1];
131                         message("you suddenly feel much more skillful", 0);
132                         add_exp(1, 1);
133                         break;
134                 case BLINDNESS:
135                         go_blind();
136                         break;
137                 case HALLUCINATION:
138                         message("oh wow, everything seems so cosmic", 0);
139                         halluc += get_rand(500, 800);
140                         break;
141                 case DETECT_MONSTER:
142                         show_monsters();
143                         if (!(level_monsters.next_monster)) {
144                                 message(strange_feeling, 0);
145                         }
146                         break;
147                 case DETECT_OBJECTS:
148                         if (level_objects.next_object) {
149                                 if (!blind) {
150                                         show_objects();
151                                 }
152                         } else {
153                                 message(strange_feeling, 0);
154                         }
155                         break;
156                 case CONFUSION:
157                         message((halluc ? "what a trippy feeling" :
158                         "you feel confused"), 0);
159                         cnfs();
160                         break;
161                 case LEVITATION:
162                         message("you start to float in the air", 0);
163                         levitate += get_rand(15, 30);
164                         bear_trap = being_held = 0;
165                         break;
166                 case HASTE_SELF:
167                         message("you feel yourself moving much faster", 0);
168                         haste_self += get_rand(11, 21);
169                         if (!(haste_self % 2)) {
170                                 haste_self++;
171                         }
172                         break;
173                 case SEE_INVISIBLE:
174                         sprintf(buf, "hmm, this potion tastes like %sjuice", fruit);
175                         message(buf, 0);
176                         if (blind) {
177                                 unblind();
178                         }
179                         see_invisible = 1;
180                         relight();
181                         break;
182         }
183         print_stats((STAT_STRENGTH | STAT_HP));
184         if (id_potions[obj->which_kind].id_status != CALLED) {
185                 id_potions[obj->which_kind].id_status = IDENTIFIED;
186         }
187         vanish(obj, 1, &rogue.pack);
188 }
189
190 void
191 read_scroll(void)
192 {
193         short ch;
194         object *obj;
195         char msg[DCOLS];
196
197         ch = pack_letter("read what?", SCROL);
198
199         if (ch == CANCEL) {
200                 return;
201         }
202         if (!(obj = get_letter_object(ch))) {
203                 message("no such item.", 0);
204                 return;
205         }
206         if (obj->what_is != SCROL) {
207                 message("you can't read that", 0);
208                 return;
209         }
210         switch(obj->which_kind) {
211                 case SCARE_MONSTER:
212                         message("you hear a maniacal laughter in the distance",
213                         0);
214                         break;
215                 case HOLD_MONSTER:
216                         hold_monster();
217                         break;
218                 case ENCH_WEAPON:
219                         if (rogue.weapon) {
220                                 if (rogue.weapon->what_is == WEAPON) {
221                                         sprintf(msg, "your %sglow%s %sfor a moment",
222                                         name_of(rogue.weapon),
223                                         ((rogue.weapon->quantity <= 1) ? "s" : ""),
224                                         get_ench_color());
225                                         message(msg, 0);
226                                         if (coin_toss()) {
227                                                 rogue.weapon->hit_enchant++;
228                                         } else {
229                                                 rogue.weapon->d_enchant++;
230                                         }
231                                 }
232                                 rogue.weapon->is_cursed = 0;
233                         } else {
234                                 message("your hands tingle", 0);
235                         }
236                         break;
237                 case ENCH_ARMOR:
238                         if (rogue.armor) {
239                                 sprintf(msg, "your armor glows %sfor a moment",
240                                 get_ench_color());
241                                 message(msg, 0);
242                                 rogue.armor->d_enchant++;
243                                 rogue.armor->is_cursed = 0;
244                                 print_stats(STAT_ARMOR);
245                         } else {
246                                 message("your skin crawls", 0);
247                         }
248                         break;
249                 case IDENTIFY:
250                         message("this is a scroll of identify", 0);
251                         obj->identified = 1;
252                         id_scrolls[obj->which_kind].id_status = IDENTIFIED;
253                         idntfy();
254                         break;
255                 case TELEPORT:
256                         tele();
257                         break;
258                 case SLEEP:
259                         message("you fall asleep", 0);
260                         take_a_nap();
261                         break;
262                 case PROTECT_ARMOR:
263                         if (rogue.armor) {
264                                 message( "your armor is covered by a shimmering gold shield",0);
265                                 rogue.armor->is_protected = 1;
266                                 rogue.armor->is_cursed = 0;
267                         } else {
268                                 message("your acne seems to have disappeared", 0);
269                         }
270                         break;
271                 case REMOVE_CURSE:
272                                 message((!halluc) ?
273                                         "you feel as though someone is watching over you" :
274                                         "you feel in touch with the universal oneness", 0);
275                         uncurse_all();
276                         break;
277                 case CREATE_MONSTER:
278                         create_monster();
279                         break;
280                 case AGGRAVATE_MONSTER:
281                         aggravate();
282                         break;
283                 case MAGIC_MAPPING:
284                         message("this scroll seems to have a map on it", 0);
285                         draw_magic_map();
286                         break;
287                 case CON_MON:
288                         con_mon = 1;
289                         sprintf(msg, "your hands glow %sfor a moment", get_ench_color());
290                         message(msg, 0);
291                         break;
292         }
293         if (id_scrolls[obj->which_kind].id_status != CALLED) {
294                 id_scrolls[obj->which_kind].id_status = IDENTIFIED;
295         }
296         vanish(obj, (obj->which_kind != SLEEP), &rogue.pack);
297 }
298
299 /* vanish() does NOT handle a quiver of weapons with more than one
300  *  arrow (or whatever) in the quiver.  It will only decrement the count.
301  */
302
303 void
304 vanish(object *obj, short rm, object *pack)
305 {
306         if (obj->quantity > 1) {
307                 obj->quantity--;
308         } else {
309                 if (obj->in_use_flags & BEING_WIELDED) {
310                         unwield(obj);
311                 } else if (obj->in_use_flags & BEING_WORN) {
312                         unwear(obj);
313                 } else if (obj->in_use_flags & ON_EITHER_HAND) {
314                         un_put_on(obj);
315                 }
316                 take_from_pack(obj, pack);
317                 free_object(obj);
318         }
319         if (rm) {
320                 reg_move();
321         }
322 }
323
324 static void
325 potion_heal(boolean extra)
326 {
327         float ratio;
328         short add;
329
330         rogue.hp_current += rogue.exp;
331
332         ratio = ((float)rogue.hp_current) / rogue.hp_max;
333
334         if (ratio >= 1.00) {
335                 rogue.hp_max += (extra ? 2 : 1);
336                 extra_hp += (extra ? 2 : 1);
337                 rogue.hp_current = rogue.hp_max;
338         } else if (ratio >= 0.90) {
339                 rogue.hp_max += (extra ? 1 : 0);
340                 extra_hp += (extra ? 1 : 0);
341                 rogue.hp_current = rogue.hp_max;
342         } else {
343                 if (ratio < 0.33) {
344                         ratio = 0.33;
345                 }
346                 if (extra) {
347                         ratio += ratio;
348                 }
349                 add = (short)(ratio * ((float)rogue.hp_max - rogue.hp_current));
350                 rogue.hp_current += add;
351                 if (rogue.hp_current > rogue.hp_max) {
352                         rogue.hp_current = rogue.hp_max;
353                 }
354         }
355         if (blind) {
356                 unblind();
357         }
358         if (confused && extra) {
359                 unconfuse();
360         } else if (confused) {
361                 confused = (confused / 2) + 1;
362         }
363         if (halluc && extra) {
364                 unhallucinate();
365         } else if (halluc) {
366                 halluc = (halluc / 2) + 1;
367         }
368 }
369
370 static void
371 idntfy(void)
372 {
373         short ch;
374         object *obj;
375         struct id *id_table;
376         char desc[DCOLS];
377 AGAIN:
378         ch = pack_letter("what would you like to identify?", ALL_OBJECTS);
379
380         if (ch == CANCEL) {
381                 return;
382         }
383         if (!(obj = get_letter_object(ch))) {
384                 message("no such item, try again", 0);
385                 message("", 0);
386                 check_message();
387                 goto AGAIN;
388         }
389         obj->identified = 1;
390         if (obj->what_is & (SCROL | POTION | WEAPON | ARMOR | WAND | RING)) {
391                 id_table = get_id_table(obj);
392                 id_table[obj->which_kind].id_status = IDENTIFIED;
393         }
394         get_desc(obj, desc);
395         message(desc, 0);
396 }
397
398 void
399 eat(void)
400 {
401         short ch;
402         short moves;
403         object *obj;
404         char buf[70];
405
406         ch = pack_letter("eat what?", FOOD);
407
408         if (ch == CANCEL) {
409                 return;
410         }
411         if (!(obj = get_letter_object(ch))) {
412                 message("no such item.", 0);
413                 return;
414         }
415         if (obj->what_is != FOOD) {
416                 message("you can't eat that", 0);
417                 return;
418         }
419         if ((obj->which_kind == FRUIT) || rand_percent(60)) {
420                 moves = get_rand(950, 1150);
421                 if (obj->which_kind == RATION) {
422                         message("yum, that tasted good", 0);
423                 } else {
424                         sprintf(buf, "my, that was a yummy %s", fruit);
425                         message(buf, 0);
426                 }
427         } else {
428                 moves = get_rand(750, 950);
429                 message("yuk, that food tasted awful", 0);
430                 add_exp(2, 1);
431         }
432         rogue.moves_left /= 3;
433         rogue.moves_left += moves;
434         hunger_str[0] = 0;
435         print_stats(STAT_HUNGER);
436
437         vanish(obj, 1, &rogue.pack);
438 }
439
440 static void
441 hold_monster(void)
442 {
443         short i, j;
444         short mcount = 0;
445         object *monster;
446         short row, col;
447
448         for (i = -2; i <= 2; i++) {
449                 for (j = -2; j <= 2; j++) {
450                         row = rogue.row + i;
451                         col = rogue.col + j;
452                         if ((row < MIN_ROW) || (row > (DROWS-2)) || (col < 0) ||
453                                  (col > (DCOLS-1))) {
454                                 continue;
455                         }
456                         if (dungeon[row][col] & MONSTER) {
457                                 monster = object_at(&level_monsters, row, col);
458                                 monster->m_flags |= ASLEEP;
459                                 monster->m_flags &= (~WAKENS);
460                                 mcount++;
461                         }
462                 }
463         }
464         if (mcount == 0) {
465                 message("you feel a strange sense of loss", 0);
466         } else if (mcount == 1) {
467                 message("the monster freezes", 0);
468         } else {
469                 message("the monsters around you freeze", 0);
470         }
471 }
472
473 void
474 tele(void)
475 {
476         mvaddch(rogue.row, rogue.col, get_dungeon_char(rogue.row, rogue.col));
477
478         if (cur_room >= 0) {
479                 darken_room(cur_room);
480         }
481         put_player(get_room_number(rogue.row, rogue.col));
482         being_held = 0;
483         bear_trap = 0;
484 }
485
486 void
487 hallucinate(void)
488 {
489         object *obj, *monster;
490         short ch;
491
492         if (blind) return;
493
494         obj = level_objects.next_object;
495
496         while (obj) {
497                 ch = mvinch(obj->row, obj->col);
498                 if (((ch < 'A') || (ch > 'Z')) &&
499                         ((obj->row != rogue.row) || (obj->col != rogue.col)))
500                 if ((ch != ' ') && (ch != '.') && (ch != '#') && (ch != '+')) {
501                         addch(gr_obj_char());
502                 }
503                 obj = obj->next_object;
504         }
505         monster = level_monsters.next_monster;
506
507         while (monster) {
508                 ch = mvinch(monster->row, monster->col);
509                 if ((ch >= 'A') && (ch <= 'Z')) {
510                         addch(get_rand('A', 'Z'));
511                 }
512                 monster = monster->next_monster;
513         }
514 }
515
516 void
517 unhallucinate(void)
518 {
519         halluc = 0;
520         relight();
521         message("everything looks SO boring now", 1);
522 }
523
524 void
525 unblind(void)
526 {
527         blind = 0;
528         message("the veil of darkness lifts", 1);
529         relight();
530         if (halluc) {
531                 hallucinate();
532         }
533         if (detect_monster) {
534                 show_monsters();
535         }
536 }
537
538 void
539 relight(void)
540 {
541         if (cur_room == PASSAGE) {
542                 light_passage(rogue.row, rogue.col);
543         } else {
544                 light_up_room(cur_room);
545         }
546         mvaddch(rogue.row, rogue.col, rogue.fchar);
547 }
548
549 void
550 take_a_nap(void)
551 {
552         short i;
553
554         i = get_rand(2, 5);
555         md_sleep(1);
556
557         while (i--) {
558                 mv_mons();
559         }
560         md_sleep(1);
561         message(you_can_move_again, 0);
562 }
563
564 static void
565 go_blind(void)
566 {
567         short i, j;
568
569         if (!blind) {
570                 message("a cloak of darkness falls around you", 0);
571         }
572         blind += get_rand(500, 800);
573
574         if (detect_monster) {
575                 object *monster;
576
577                 monster = level_monsters.next_monster;
578
579                 while (monster) {
580                         mvaddch(monster->row, monster->col, monster->trail_char);
581                         monster = monster->next_monster;
582                 }
583         }
584         if (cur_room >= 0) {
585                 for (i = rooms[cur_room].top_row + 1;
586                          i < rooms[cur_room].bottom_row; i++) {
587                         for (j = rooms[cur_room].left_col + 1;
588                                  j < rooms[cur_room].right_col; j++) {
589                                 mvaddch(i, j, ' ');
590                         }
591                 }
592         }
593         mvaddch(rogue.row, rogue.col, rogue.fchar);
594 }
595
596 static const char *
597 get_ench_color(void)
598 {
599         if (halluc) {
600                 return(id_potions[get_rand(0, POTIONS-1)].title);
601         } else if (con_mon) {
602                 return("red ");
603         }
604         return("blue ");
605 }
606
607 void
608 cnfs(void)
609 {
610         confused += get_rand(12, 22);
611 }
612
613 void
614 unconfuse(void)
615 {
616         char msg[80];
617
618         confused = 0;
619         sprintf(msg, "you feel less %s now", (halluc ? "trippy" : "confused"));
620         message(msg, 1);
621 }
622
623 static void
624 uncurse_all(void)
625 {
626         object *obj;
627
628         obj = rogue.pack.next_object;
629
630         while (obj) {
631                 obj->is_cursed = 0;
632                 obj = obj->next_object;
633         }
634 }