?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Merge commit 'crater/master'
[dragonfly.git] / games / rogue / object.c
blobb50a0f37fd560a5638bbb1d6ac8ddc4b41843d45
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. 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.
23 *
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
34 * SUCH DAMAGE.
35 *
36 * @(#)object.c 8.1 (Berkeley) 5/31/93
37 * $FreeBSD: src/games/rogue/object.c,v 1.5 1999/11/30 03:49:25 billf Exp $
38 * $DragonFly: src/games/rogue/object.c,v 1.4 2006/09/02 19:31:07 pavalos Exp $
39 */
40
41 /*
42 * object.c
43 *
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
49 * gain or profit.
50 *
51 */
52
53 #include "rogue.h"
54
55 object level_objects;
56 unsigned short dungeon[DROWS][DCOLS];
57 short foods = 0;
58 object *free_list = NULL;
59 char *fruit = NULL;
60
61 fighter rogue = {
62 INIT_AW, /* armor, weapon */
63 INIT_RINGS, /* rings */
64 INIT_HP,INIT_HP,/* Hp current,max */
65 INIT_STR, /* Str current,max */
66 INIT_PACK, /* pack */
67 INIT_GOLD, /* gold */
68 INIT_EXP, /* exp level,points */
69 0, 0, /* row, col */
70 INIT_CHAR, /* char */
71 INIT_MOVES /* moves */
72 };
73
74 struct id id_potions[POTIONS] = {
75 {100, "blue \0 ", "of increase strength ", 0},
76 {250, "red \0 ", "of restore strength ", 0},
77 {100, "green \0 ", "of healing ", 0},
78 {200, "grey \0 ", "of extra healing ", 0},
79 {10, "brown \0 ", "of poison ", 0},
80 {300, "clear \0 ", "of raise level ", 0},
81 {10, "pink \0 ", "of blindness ", 0},
82 {25, "white \0 ", "of hallucination ", 0},
83 {100, "purple \0 ", "of detect monster ", 0},
84 {100, "black \0 ", "of detect things ", 0},
85 {10, "yellow \0 ", "of confusion ", 0},
86 {80, "plaid \0 ", "of levitation ", 0},
87 {150, "burgundy \0 ", "of haste self ", 0},
88 {145, "beige \0 ", "of see invisible ", 0}
89 };
90
91 struct id id_scrolls[SCROLS] = {
92 {505, " ", "of protect armor ", 0},
93 {200, " ", "of hold monster ", 0},
94 {235, " ", "of enchant weapon ", 0},
95 {235, " ", "of enchant armor ", 0},
96 {175, " ", "of identify ", 0},
97 {190, " ", "of teleportation ", 0},
98 {25, " ", "of sleep ", 0},
99 {610, " ", "of scare monster ", 0},
100 {210, " ", "of remove curse ", 0},
101 {80, " ", "of create monster ",0},
102 {25, " ", "of aggravate monster ",0},
103 {180, " ", "of magic mapping ", 0},
104 {90, " ", "of confuse monster ", 0}
105 };
106
107 struct id id_weapons[WEAPONS] = {
108 {150, "short bow ", "", 0},
109 {8, "darts ", "", 0},
110 {15, "arrows ", "", 0},
111 {27, "daggers ", "", 0},
112 {35, "shurikens ", "", 0},
113 {360, "mace ", "", 0},
114 {470, "long sword ", "", 0},
115 {580, "two-handed sword ", "", 0}
116 };
117
118 struct id id_armors[ARMORS] = {
119 {300, "leather armor ", "", (UNIDENTIFIED)},
120 {300, "ring mail ", "", (UNIDENTIFIED)},
121 {400, "scale mail ", "", (UNIDENTIFIED)},
122 {500, "chain mail ", "", (UNIDENTIFIED)},
123 {600, "banded mail ", "", (UNIDENTIFIED)},
124 {600, "splint mail ", "", (UNIDENTIFIED)},
125 {700, "plate mail ", "", (UNIDENTIFIED)}
126 };
127
128 struct id id_wands[WANDS] = {
129 {25, " ", "of teleport away ",0},
130 {50, " ", "of slow monster ", 0},
131 {8, " ", "of invisibility ",0},
132 {55, " ", "of polymorph ",0},
133 {2, " ", "of haste monster ",0},
134 {20, " ", "of magic missile ",0},
135 {20, " ", "of cancellation ",0},
136 {0, " ", "of do nothing ",0},
137 {35, " ", "of drain life ",0},
138 {20, " ", "of cold ",0},
139 {20, " ", "of fire ",0}
140 };
141
142 struct id id_rings[RINGS] = {
143 {250, " ", "of stealth ",0},
144 {100, " ", "of teleportation ", 0},
145 {255, " ", "of regeneration ",0},
146 {295, " ", "of slow digestion ",0},
147 {200, " ", "of add strength ",0},
148 {250, " ", "of sustain strength ",0},
149 {250, " ", "of dexterity ",0},
150 {25, " ", "of adornment ",0},
151 {300, " ", "of see invisible ",0},
152 {290, " ", "of maintain armor ",0},
153 {270, " ", "of searching ",0},
154 };
155
156 extern short cur_level, max_level;
157 extern short party_room;
158 extern boolean is_wood[];
159
160 static void put_gold(void);
161 static void plant_gold(short, short, boolean);
162 static unsigned short gr_what_is(void);
163 static void gr_scroll(object *);
164 static void gr_potion(object *);
165 static void gr_weapon(object *, int);
166 static void gr_armor(object *);
167 static void gr_wand(object *);
168 static void make_party(void);
169 static void rand_place(object *);
170
171 void
172 put_objects(void)
173 {
174 short i, n;
175 object *obj;
176
177 if (cur_level < max_level) {
178 return;
179 }
180 n = coin_toss() ? get_rand(2, 4) : get_rand(3, 5);
181 while (rand_percent(33)) {
182 n++;
183 }
184 if (party_room != NO_ROOM) {
185 make_party();
186 }
187 for (i = 0; i < n; i++) {
188 obj = gr_object();
189 rand_place(obj);
190 }
191 put_gold();
192 }
193
194 static void
195 put_gold(void)
196 {
197 short i, j;
198 short row,col;
199 boolean is_maze, is_room;
200
201 for (i = 0; i < MAXROOMS; i++) {
202 is_maze = (rooms[i].is_room & R_MAZE) ? 1 : 0;
203 is_room = (rooms[i].is_room & R_ROOM) ? 1 : 0;
204
205 if (!(is_room || is_maze)) {
206 continue;
207 }
208 if (is_maze || rand_percent(GOLD_PERCENT)) {
209 for (j = 0; j < 50; j++) {
210 row = get_rand(rooms[i].top_row+1,
211 rooms[i].bottom_row-1);
212 col = get_rand(rooms[i].left_col+1,
213 rooms[i].right_col-1);
214 if ((dungeon[row][col] == FLOOR) ||
215 (dungeon[row][col] == TUNNEL)) {
216 plant_gold(row, col, is_maze);
217 break;
218 }
219 }
220 }
221 }
222 }
223
224 static void
225 plant_gold(short row, short col, boolean is_maze)
226 {
227 object *obj;
228
229 obj = alloc_object();
230 obj->row = row; obj->col = col;
231 obj->what_is = GOLD;
232 obj->quantity = get_rand((2 * cur_level), (16 * cur_level));
233 if (is_maze) {
234 obj->quantity += obj->quantity / 2;
235 }
236 dungeon[row][col] |= OBJECT;
237 add_to_pack(obj, &level_objects, 0);
238 }
239
240 void
241 place_at(object *obj, int row, int col)
242 {
243 obj->row = row;
244 obj->col = col;
245 dungeon[row][col] |= OBJECT;
246 add_to_pack(obj, &level_objects, 0);
247 }
248
249 object *
250 object_at(object *pack, short row, short col)
251 {
252 object *obj = NULL;
253
254 if (dungeon[row][col] & (MONSTER | OBJECT)) {
255 obj = pack->next_object;
256
257 while (obj && ((obj->row != row) || (obj->col != col))) {
258 obj = obj->next_object;
259 }
260 if (!obj) {
261 message("object_at(): inconsistent", 1);
262 }
263 }
264 return(obj);
265 }
266
267 object *
268 get_letter_object(int ch)
269 {
270 object *obj;
271
272 obj = rogue.pack.next_object;
273
274 while (obj && (obj->ichar != ch)) {
275 obj = obj->next_object;
276 }
277 return(obj);
278 }
279
280 void
281 free_stuff(object *objlist)
282 {
283 object *obj;
284
285 while (objlist->next_object) {
286 obj = objlist->next_object;
287 objlist->next_object =
288 objlist->next_object->next_object;
289 free_object(obj);
290 }
291 }
292
293 const char *
294 name_of(const object *obj)
295 {
296 const char *retstring;
297
298 switch(obj->what_is) {
299 case SCROL:
300 retstring = obj->quantity > 1 ? "scrolls " : "scroll ";
301 break;
302 case POTION:
303 retstring = obj->quantity > 1 ? "potions " : "potion ";
304 break;
305 case FOOD:
306 if (obj->which_kind == RATION) {
307 retstring = "food ";
308 } else {
309 retstring = fruit;
310 }
311 break;
312 case WAND:
313 retstring = is_wood[obj->which_kind] ? "staff " : "wand ";
314 break;
315 case WEAPON:
316 switch(obj->which_kind) {
317 case DART:
318 retstring=obj->quantity > 1 ? "darts " : "dart ";
319 break;
320 case ARROW:
321 retstring=obj->quantity > 1 ? "arrows " : "arrow ";
322 break;
323 case DAGGER:
324 retstring=obj->quantity > 1 ? "daggers " : "dagger ";
325 break;
326 case SHURIKEN:
327 retstring=obj->quantity > 1?"shurikens ":"shuriken ";
328 break;
329 default:
330 retstring = id_weapons[obj->which_kind].title;
331 }
332 break;
333 case ARMOR:
334 retstring = "armor ";
335 break;
336 case RING:
337 retstring = "ring ";
338 break;
339 case AMULET:
340 retstring = "amulet ";
341 break;
342 default:
343 retstring = "unknown ";
344 break;
345 }
346 return(retstring);
347 }
348
349 object *
350 gr_object(void)
351 {
352 object *obj;
353
354 obj = alloc_object();
355
356 if (foods < (cur_level / 3)) {
357 obj->what_is = FOOD;
358 foods++;
359 } else {
360 obj->what_is = gr_what_is();
361 }
362 switch(obj->what_is) {
363 case SCROL:
364 gr_scroll(obj);
365 break;
366 case POTION:
367 gr_potion(obj);
368 break;
369 case WEAPON:
370 gr_weapon(obj, 1);
371 break;
372 case ARMOR:
373 gr_armor(obj);
374 break;
375 case WAND:
376 gr_wand(obj);
377 break;
378 case FOOD:
379 get_food(obj, 0);
380 break;
381 case RING:
382 gr_ring(obj, 1);
383 break;
384 }
385 return(obj);
386 }
387
388 static unsigned short
389 gr_what_is(void)
390 {
391 short percent;
392 unsigned short what_is;
393
394 percent = get_rand(1, 91);
395
396 if (percent <= 30) {
397 what_is = SCROL;
398 } else if (percent <= 60) {
399 what_is = POTION;
400 } else if (percent <= 64) {
401 what_is = WAND;
402 } else if (percent <= 74) {
403 what_is = WEAPON;
404 } else if (percent <= 83) {
405 what_is = ARMOR;
406 } else if (percent <= 88) {
407 what_is = FOOD;
408 } else {
409 what_is = RING;
410 }
411 return(what_is);
412 }
413
414 static void
415 gr_scroll(object *obj)
416 {
417 short percent;
418
419 percent = get_rand(0, 91);
420
421 obj->what_is = SCROL;
422
423 if (percent <= 5) {
424 obj->which_kind = PROTECT_ARMOR;
425 } else if (percent <= 10) {
426 obj->which_kind = HOLD_MONSTER;
427 } else if (percent <= 20) {
428 obj->which_kind = CREATE_MONSTER;
429 } else if (percent <= 35) {
430 obj->which_kind = IDENTIFY;
431 } else if (percent <= 43) {
432 obj->which_kind = TELEPORT;
433 } else if (percent <= 50) {
434 obj->which_kind = SLEEP;
435 } else if (percent <= 55) {
436 obj->which_kind = SCARE_MONSTER;
437 } else if (percent <= 64) {
438 obj->which_kind = REMOVE_CURSE;
439 } else if (percent <= 69) {
440 obj->which_kind = ENCH_ARMOR;
441 } else if (percent <= 74) {
442 obj->which_kind = ENCH_WEAPON;
443 } else if (percent <= 80) {
444 obj->which_kind = AGGRAVATE_MONSTER;
445 } else if (percent <= 86) {
446 obj->which_kind = CON_MON;
447 } else {
448 obj->which_kind = MAGIC_MAPPING;
449 }
450 }
451
452 static void
453 gr_potion(object *obj)
454 {
455 short percent;
456
457 percent = get_rand(1, 118);
458
459 obj->what_is = POTION;
460
461 if (percent <= 5) {
462 obj->which_kind = RAISE_LEVEL;
463 } else if (percent <= 15) {
464 obj->which_kind = DETECT_OBJECTS;
465 } else if (percent <= 25) {
466 obj->which_kind = DETECT_MONSTER;
467 } else if (percent <= 35) {
468 obj->which_kind = INCREASE_STRENGTH;
469 } else if (percent <= 45) {
470 obj->which_kind = RESTORE_STRENGTH;
471 } else if (percent <= 55) {
472 obj->which_kind = HEALING;
473 } else if (percent <= 65) {
474 obj->which_kind = EXTRA_HEALING;
475 } else if (percent <= 75) {
476 obj->which_kind = BLINDNESS;
477 } else if (percent <= 85) {
478 obj->which_kind = HALLUCINATION;
479 } else if (percent <= 95) {
480 obj->which_kind = CONFUSION;
481 } else if (percent <= 105) {
482 obj->which_kind = POISON;
483 } else if (percent <= 110) {
484 obj->which_kind = LEVITATION;
485 } else if (percent <= 114) {
486 obj->which_kind = HASTE_SELF;
487 } else {
488 obj->which_kind = SEE_INVISIBLE;
489 }
490 }
491
492 static void
493 gr_weapon(object *obj, int assign_wk)
494 {
495 short percent;
496 short i;
497 short blessing, increment;
498
499 obj->what_is = WEAPON;
500 if (assign_wk) {
501 obj->which_kind = get_rand(0, (WEAPONS - 1));
502 }
503 if ((obj->which_kind == ARROW) || (obj->which_kind == DAGGER) ||
504 (obj->which_kind == SHURIKEN) | (obj->which_kind == DART)) {
505 obj->quantity = get_rand(3, 15);
506 obj->quiver = get_rand(0, 126);
507 } else {
508 obj->quantity = 1;
509 }
510 obj->hit_enchant = obj->d_enchant = 0;
511
512 percent = get_rand(1, 96);
513 blessing = get_rand(1, 3);
514
515 if (percent <= 16) {
516 increment = 1;
517 } else if (percent <= 32) {
518 increment = -1;
519 obj->is_cursed = 1;
520 }
521 if (percent <= 32) {
522 for (i = 0; i < blessing; i++) {
523 if (coin_toss()) {
524 obj->hit_enchant += increment;
525 } else {
526 obj->d_enchant += increment;
527 }
528 }
529 }
530 switch(obj->which_kind) {
531 case BOW:
532 case DART:
533 obj->damage = "1d1";
534 break;
535 case ARROW:
536 obj->damage = "1d2";
537 break;
538 case DAGGER:
539 obj->damage = "1d3";
540 break;
541 case SHURIKEN:
542 obj->damage = "1d4";
543 break;
544 case MACE:
545 obj->damage = "2d3";
546 break;
547 case LONG_SWORD:
548 obj->damage = "3d4";
549 break;
550 case TWO_HANDED_SWORD:
551 obj->damage = "4d5";
552 break;
553 }
554 }
555
556 static void
557 gr_armor(object *obj)
558 {
559 short percent;
560 short blessing;
561
562 obj->what_is = ARMOR;
563 obj->which_kind = get_rand(0, (ARMORS - 1));
564 obj->class = obj->which_kind + 2;
565 if ((obj->which_kind == PLATE) || (obj->which_kind == SPLINT)) {
566 obj->class--;
567 }
568 obj->is_protected = 0;
569 obj->d_enchant = 0;
570
571 percent = get_rand(1, 100);
572 blessing = get_rand(1, 3);
573
574 if (percent <= 16) {
575 obj->is_cursed = 1;
576 obj->d_enchant -= blessing;
577 } else if (percent <= 33) {
578 obj->d_enchant += blessing;
579 }
580 }
581
582 static void
583 gr_wand(object *obj)
584 {
585 obj->what_is = WAND;
586 obj->which_kind = get_rand(0, (WANDS - 1));
587 obj->class = get_rand(3, 7);
588 }
589
590 void
591 get_food(object *obj, boolean force_ration)
592 {
593 obj->what_is = FOOD;
594
595 if (force_ration || rand_percent(80)) {
596 obj->which_kind = RATION;
597 } else {
598 obj->which_kind = FRUIT;
599 }
600 }
601
602 void
603 put_stairs(void)
604 {
605 short row, col;
606
607 gr_row_col(&row, &col, (FLOOR | TUNNEL));
608 dungeon[row][col] |= STAIRS;
609 }
610
611 short
612 get_armor_class(const object *obj)
613 {
614 if (obj) {
615 return(obj->class + obj->d_enchant);
616 }
617 return(0);
618 }
619
620 object *
621 alloc_object(void)
622 {
623 object *obj;
624
625 if (free_list) {
626 obj = free_list;
627 free_list = free_list->next_object;
628 } else if (!(obj = (object *) md_malloc(sizeof(object)))) {
629 message("cannot allocate object, saving game", 0);
630 save_into_file(error_file);
631 }
632 obj->quantity = 1;
633 obj->ichar = 'L';
634 obj->picked_up = obj->is_cursed = 0;
635 obj->in_use_flags = NOT_USED;
636 obj->identified = UNIDENTIFIED;
637 obj->damage = "1d1";
638 return(obj);
639 }
640
641 void
642 free_object(object *obj)
643 {
644 obj->next_object = free_list;
645 free_list = obj;
646 }
647
648 static void
649 make_party(void)
650 {
651 short n;
652
653 party_room = gr_room();
654
655 n = rand_percent(99) ? party_objects(party_room) : 11;
656 if (rand_percent(99)) {
657 party_monsters(party_room, n);
658 }
659 }
660
661 void
662 show_objects(void)
663 {
664 object *obj;
665 short mc, rc, row, col;
666 object *monster;
667
668 obj = level_objects.next_object;
669
670 while (obj) {
671 row = obj->row;
672 col = obj->col;
673
674 rc = get_mask_char(obj->what_is);
675
676 if (dungeon[row][col] & MONSTER) {
677 if ((monster = object_at(&level_monsters, row, col))) {
678 monster->trail_char = rc;
679 }
680 }
681 mc = mvinch(row, col);
682 if (((mc < 'A') || (mc > 'Z')) &&
683 ((row != rogue.row) || (col != rogue.col))) {
684 mvaddch(row, col, rc);
685 }
686 obj = obj->next_object;
687 }
688
689 monster = level_monsters.next_object;
690
691 while (monster) {
692 if (monster->m_flags & IMITATES) {
693 mvaddch(monster->row, monster->col, (int) monster->disguise);
694 }
695 monster = monster->next_monster;
696 }
697 }
698
699 void
700 put_amulet(void)
701 {
702 object *obj;
703
704 obj = alloc_object();
705 obj->what_is = AMULET;
706 rand_place(obj);
707 }
708
709 static void
710 rand_place(object *obj)
711 {
712 short row, col;
713
714 gr_row_col(&row, &col, (FLOOR | TUNNEL));
715 place_at(obj, row, col);
716 }
717
718 void
719 c_object_for_wizard(void)
720 {
721 short ch, max = 0, wk;
722 object *obj;
723 char buf[80];
724
725 if (pack_count(NULL) >= MAX_PACK_COUNT) {
726 message("pack full", 0);
727 return;
728 }
729 message("type of object?", 0);
730
731 while (r_index("!?:)]=/,\033", (ch = rgetchar()), 0) == -1) {
732 sound_bell();
733 }
734 check_message();
735
736 if (ch == '\033') {
737 return;
738 }
739 obj = alloc_object();
740
741 switch(ch) {
742 case '!':
743 obj->what_is = POTION;
744 max = POTIONS - 1;
745 break;
746 case '?':
747 obj->what_is = SCROL;
748 max = SCROLS - 1;
749 break;
750 case ',':
751 obj->what_is = AMULET;
752 break;
753 case ':':
754 get_food(obj, 0);
755 break;
756 case ')':
757 gr_weapon(obj, 0);
758 max = WEAPONS - 1;
759 break;
760 case ']':
761 gr_armor(obj);
762 max = ARMORS - 1;
763 break;
764 case '/':
765 gr_wand(obj);
766 max = WANDS - 1;
767 break;
768 case '=':
769 max = RINGS - 1;
770 obj->what_is = RING;
771 break;
772 }
773 if ((ch != ',') && (ch != ':')) {
774 GIL:
775 if (get_input_line("which kind?", "", buf, "", 0, 1)) {
776 wk = get_number(buf);
777 if ((wk >= 0) && (wk <= max)) {
778 obj->which_kind = (unsigned short) wk;
779 if (obj->what_is == RING) {
780 gr_ring(obj, 0);
781 }
782 } else {
783 sound_bell();
784 goto GIL;
785 }
786 } else {
787 free_object(obj);
788 return;
789 }
790 }
791 get_desc(obj, buf);
792 message(buf, 0);
793 add_to_pack(obj, &rogue.pack, 1);
794 }
DragonFly BSD