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