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 * @(#)pack.c 8.1 (Berkeley) 5/31/93
37 * $FreeBSD: src/games/rogue/pack.c,v 1.8 1999/11/30 03:49:25 billf Exp $
38 * $DragonFly: src/games/rogue/pack.c,v 1.4 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
56 const char *curse_message = "you can't, it appears to be cursed";
58 extern short levitate;
60 static object *check_duplicate(object *, object *);
61 static int next_avail_ichar(void);
62 static boolean mask_pack(const object *, unsigned short);
63 static boolean is_pack_letter(short *, unsigned short *);
66 add_to_pack(object *obj, object *pack, int condense)
71 if ((op = check_duplicate(obj, pack))) {
75 obj->ichar = next_avail_ichar();
78 if (pack->next_object == 0) {
79 pack->next_object = obj;
81 op = pack->next_object;
83 while (op->next_object) {
86 op->next_object = obj;
93 take_from_pack(object *obj, object *pack)
95 while (pack->next_object != obj) {
96 pack = pack->next_object;
98 pack->next_object = pack->next_object->next_object;
101 /* Note: *status is set to 0 if the rogue attempts to pick up a scroll
102 * of scare-monster and it turns to dust. *status is otherwise set to 1.
106 pick_up(int row, int col, short *status)
113 message("you're floating in the air!", 0);
116 obj = object_at(&level_objects, row, col);
118 message("pick_up(): inconsistent", 1);
121 if ( (obj->what_is == SCROL) &&
122 (obj->which_kind == SCARE_MONSTER) &&
124 message("the scroll turns to dust as you pick it up", 0);
125 dungeon[row][col] &= (~OBJECT);
126 vanish(obj, 0, &level_objects);
128 if (id_scrolls[SCARE_MONSTER].id_status == UNIDENTIFIED) {
129 id_scrolls[SCARE_MONSTER].id_status = IDENTIFIED;
133 if (obj->what_is == GOLD) {
134 rogue.gold += obj->quantity;
135 dungeon[row][col] &= ~(OBJECT);
136 take_from_pack(obj, &level_objects);
137 print_stats(STAT_GOLD);
138 return(obj); /* obj will be free_object()ed in caller */
140 if (pack_count(obj) >= MAX_PACK_COUNT) {
141 message("pack too full", 1);
144 dungeon[row][col] &= ~(OBJECT);
145 take_from_pack(obj, &level_objects);
146 obj = add_to_pack(obj, &rogue.pack, 1);
158 if (dungeon[rogue.row][rogue.col] & (OBJECT | STAIRS | TRAP)) {
159 message("there's already something there", 0);
162 if (!rogue.pack.next_object) {
163 message("you have nothing to drop", 0);
166 if ((ch = pack_letter("drop what?", ALL_OBJECTS)) == CANCEL) {
169 if (!(obj = get_letter_object(ch))) {
170 message("no such item.", 0);
173 if (obj->in_use_flags & BEING_WIELDED) {
174 if (obj->is_cursed) {
175 message(curse_message, 0);
178 unwield(rogue.weapon);
179 } else if (obj->in_use_flags & BEING_WORN) {
180 if (obj->is_cursed) {
181 message(curse_message, 0);
186 print_stats(STAT_ARMOR);
187 } else if (obj->in_use_flags & ON_EITHER_HAND) {
188 if (obj->is_cursed) {
189 message(curse_message, 0);
194 obj->row = rogue.row;
195 obj->col = rogue.col;
197 if ((obj->quantity > 1) && (obj->what_is != WEAPON)) {
199 new = alloc_object();
205 take_from_pack(obj, &rogue.pack);
207 place_at(obj, rogue.row, rogue.col);
208 strcpy(desc, "dropped ");
209 get_desc(obj, desc+8);
215 check_duplicate(object *obj, object *pack)
219 if (!(obj->what_is & (WEAPON | FOOD | SCROL | POTION))) {
222 if ((obj->what_is == FOOD) && (obj->which_kind == FRUIT)) {
225 op = pack->next_object;
228 if ((op->what_is == obj->what_is) &&
229 (op->which_kind == obj->which_kind)) {
231 if ((obj->what_is != WEAPON) ||
232 ((obj->what_is == WEAPON) &&
233 ((obj->which_kind == ARROW) ||
234 (obj->which_kind == DAGGER) ||
235 (obj->which_kind == DART) ||
236 (obj->which_kind == SHURIKEN)) &&
237 (obj->quiver == op->quiver))) {
238 op->quantity += obj->quantity;
242 op = op->next_object;
248 next_avail_ichar(void)
254 for (i = 0; i < 26; i++) {
257 obj = rogue.pack.next_object;
259 ichars[(obj->ichar - 'a')] = 1;
260 obj = obj->next_object;
262 for (i = 0; i < 26; i++) {
273 if (!isatty(0) || !isatty(1))
275 while (rgetchar() != ' ') ;
279 pack_letter(const char *prompt, unsigned short mask)
282 unsigned short tmask = mask;
284 if (!mask_pack(&rogue.pack, mask)) {
285 message("nothing appropriate", 0);
294 if (!is_pack_letter(&ch, &mask)) {
304 inventory(&rogue.pack, mask);
321 if (rogue.armor->is_cursed) {
322 message(curse_message, 0);
327 strcpy(desc, "was wearing ");
328 get_desc(obj, desc+12);
330 print_stats(STAT_ARMOR);
334 message("not wearing any", 0);
346 message("you're already wearing some", 0);
349 ch = pack_letter("wear what?", ARMOR);
354 if (!(obj = get_letter_object(ch))) {
355 message("no such item.", 0);
358 if (obj->what_is != ARMOR) {
359 message("you can't wear that", 0);
363 strcpy(desc, "wearing ");
364 get_desc(obj, desc + 8);
367 print_stats(STAT_ARMOR);
375 obj->in_use_flags &= (~BEING_WORN);
384 obj->in_use_flags |= BEING_WORN;
395 if (rogue.weapon && rogue.weapon->is_cursed) {
396 message(curse_message, 0);
399 ch = pack_letter("wield what?", WEAPON);
404 if (!(obj = get_letter_object(ch))) {
405 message("No such item.", 0);
408 if (obj->what_is & (ARMOR | RING)) {
409 sprintf(desc, "you can't wield %s",
410 ((obj->what_is == ARMOR) ? "armor" : "rings"));
414 if (obj->in_use_flags & BEING_WIELDED) {
415 message("in use", 0);
417 unwield(rogue.weapon);
418 strcpy(desc, "wielding ");
419 get_desc(obj, desc + 9);
427 do_wield(object *obj)
430 obj->in_use_flags |= BEING_WIELDED;
437 obj->in_use_flags &= (~BEING_WIELDED);
448 char buf[MAX_TITLE_LENGTH+2];
450 ch = pack_letter("call what?", (SCROL | POTION | WAND | RING));
455 if (!(obj = get_letter_object(ch))) {
456 message("no such item.", 0);
459 if (!(obj->what_is & (SCROL | POTION | WAND | RING))) {
460 message("surely you already know what that's called", 0);
463 id_table = get_id_table(obj);
465 if (get_input_line("call it:","",buf,id_table[obj->which_kind].title,1,1)) {
466 id_table[obj->which_kind].id_status = CALLED;
467 strcpy(id_table[obj->which_kind].title, buf);
472 pack_count(const object *new_obj)
477 obj = rogue.pack.next_object;
480 if (obj->what_is != WEAPON) {
481 count += obj->quantity;
482 } else if (!new_obj) {
484 } else if ((new_obj->what_is != WEAPON) ||
485 ((obj->which_kind != ARROW) &&
486 (obj->which_kind != DAGGER) &&
487 (obj->which_kind != DART) &&
488 (obj->which_kind != SHURIKEN)) ||
489 (new_obj->which_kind != obj->which_kind) ||
490 (obj->quiver != new_obj->quiver)) {
493 obj = obj->next_object;
499 mask_pack(const object *pack, unsigned short mask)
501 while (pack->next_object) {
502 pack = pack->next_object;
503 if (pack->what_is & mask) {
511 is_pack_letter(short *c, unsigned short *mask)
513 if (((*c == '?') || (*c == '!') || (*c == ':') || (*c == '=') ||
514 (*c == ')') || (*c == ']') || (*c == '/') || (*c == ','))) {
544 return(((*c >= 'a') && (*c <= 'z')) || (*c == CANCEL) || (*c == LIST));
550 return(mask_pack(&rogue.pack, AMULET));
560 if (!(dungeon[rogue.row][rogue.col] & OBJECT)) {
561 message("nothing here", 0);
563 if ((obj = pick_up(rogue.row, rogue.col, &stat))) {
565 if (obj->what_is == GOLD) {
571 desc[n+1] = obj->ichar;
577 if (obj || (!stat)) {