Early Roguelike Collection: rogue5/things.c annotate

annotate rogue5/things.c @ 244:ded75a57405c

Rogue V4, V5: fix messages when viewing the identified items. The functions for displaying the list of identified items begin by prompting for the category of item, using msg(). Rogue V4 left this prompt on the screen after displaying the discovery list. Rogue V5 erased the message window even if the process of printing the list created another message which the player had not read. Messages are now cleared in endline(), which is capable of checking whether clearing should be done.

author	John "Elwin" Edwards
date	Sun, 24 Apr 2016 13:33:17 -0400
parents	f502bf60e6e4
children

rev	line source
33 f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	1 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	2 * Contains functions for dealing with things like potions, scrolls,
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	3 * and other items.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	4 *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	5 * @(#)things.c 4.53 (Berkeley) 02/05/99
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	6 *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	7 * Rogue: Exploring the Dungeons of Doom
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	8 * Copyright (C) 1980-1983, 1985, 1999 Michael Toy, Ken Arnold and Glenn Wichman
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	9 * All rights reserved.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	10 *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	11 * See the file LICENSE.TXT for full copyright and licensing information.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	12 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	13
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	14 #include <stdlib.h>
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	15 #include <curses.h>
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	16 #include <string.h>
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	17 #include <ctype.h>
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	18 #include "rogue.h"
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	19
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	20 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	21 * inv_name:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	22 * Return the name of something as it would appear in an
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	23 * inventory.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	24 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	25 char *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	26 inv_name(const THING *obj, int drop)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	27 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	28 char *pb;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	29 struct obj_info *op;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	30 const char *sp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	31 int which;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	32
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	33 pb = prbuf;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	34 which = obj->o_which;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	35 switch (obj->o_type)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	36 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	37 case POTION:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	38 nameit(obj, "potion", p_colors[which], &pot_info[which], nullstr);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	39 when RING:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	40 nameit(obj, "ring", r_stones[which], &ring_info[which], ring_num);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	41 when STICK:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	42 nameit(obj, ws_type[which], ws_made[which], &ws_info[which], charge_str);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	43 when SCROLL:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	44 if (obj->o_count == 1)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	45 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	46 strcpy(pb, "A scroll ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	47 pb = &prbuf[9];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	48 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	49 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	50 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	51 sprintf(pb, "%d scrolls ", obj->o_count);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	52 pb = &prbuf[strlen(prbuf)];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	53 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	54 op = &scr_info[which];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	55 if (op->oi_know)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	56 sprintf(pb, "of %s", op->oi_name);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	57 else if (op->oi_guess)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	58 sprintf(pb, "called %s", op->oi_guess);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	59 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	60 sprintf(pb, "titled '%s'", s_names[which]);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	61 when FOOD:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	62 if (which == 1)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	63 if (obj->o_count == 1)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	64 sprintf(pb, "A%s %s", vowelstr(fruit), fruit);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	65 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	66 sprintf(pb, "%d %ss", obj->o_count, fruit);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	67 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	68 if (obj->o_count == 1)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	69 strcpy(pb, "Some food");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	70 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	71 sprintf(pb, "%d rations of food", obj->o_count);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	72 when WEAPON:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	73 sp = weap_info[which].oi_name;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	74 if (obj->o_count > 1)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	75 sprintf(pb, "%d ", obj->o_count);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	76 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	77 sprintf(pb, "A%s ", vowelstr(sp));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	78 pb = &prbuf[strlen(prbuf)];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	79 if (obj->o_flags & ISKNOW)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	80 sprintf(pb, "%s %s", num(obj->o_hplus,obj->o_dplus,WEAPON), sp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	81 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	82 sprintf(pb, "%s", sp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	83 if (obj->o_count > 1)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	84 strcat(pb, "s");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	85 if (obj->o_label != NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	86 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	87 pb = &prbuf[strlen(prbuf)];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	88 sprintf(pb, " called %s", obj->o_label);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	89 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	90 when ARMOR:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	91 sp = arm_info[which].oi_name;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	92 if (obj->o_flags & ISKNOW)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	93 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	94 sprintf(pb, "%s %s [",
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	95 num(a_class[which] - obj->o_arm, 0, ARMOR), sp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	96 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	97 strcat(pb, "protection ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	98 pb = &prbuf[strlen(prbuf)];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	99 sprintf(pb, "%d]", 10 - obj->o_arm);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	100 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	101 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	102 sprintf(pb, "%s", sp);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	103 if (obj->o_label != NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	104 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	105 pb = &prbuf[strlen(prbuf)];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	106 sprintf(pb, " called %s", obj->o_label);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	107 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	108 when AMULET:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	109 strcpy(pb, "The Amulet of Yendor");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	110 when GOLD:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	111 sprintf(prbuf, "%d Gold pieces", obj->o_goldval);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	112 #ifdef MASTER
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	113 otherwise:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	114 debug("Picked up something funny %s", unctrl(obj->o_type));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	115 sprintf(pb, "Something bizarre %s", unctrl(obj->o_type));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	116 #endif
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	117 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	118 if (inv_describe)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	119 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	120 if (obj == cur_armor)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	121 strcat(pb, " (being worn)");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	122 if (obj == cur_weapon)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	123 strcat(pb, " (weapon in hand)");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	124 if (obj == cur_ring[LEFT])
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	125 strcat(pb, " (on left hand)");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	126 else if (obj == cur_ring[RIGHT])
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	127 strcat(pb, " (on right hand)");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	128 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	129 if (drop && isupper((int)prbuf[0]))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	130 prbuf[0] = (char) tolower(prbuf[0]);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	131 else if (!drop && islower((int)*prbuf))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	132 prbuf = (char) toupper(prbuf);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	133 prbuf[MAXSTR-1] = '\0';
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	134 return prbuf;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	135 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	136
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	137 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	138 * drop:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	139 * Put something down
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	140 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	141
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	142 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	143 drop(void)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	144 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	145 int ch;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	146 THING *obj;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	147
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	148 ch = chat(hero.y, hero.x);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	149 if (ch != FLOOR && ch != PASSAGE)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	150 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	151 after = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	152 msg("there is something there already");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	153 return;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	154 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	155 if ((obj = get_item("drop", 0)) == NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	156 return;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	157 if (!dropcheck(obj))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	158 return;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	159 obj = leave_pack(obj, TRUE, !ISMULT(obj->o_type));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	160 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	161 * Link it into the level object list
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	162 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	163 attach(lvl_obj, obj);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	164 chat(hero.y, hero.x) = obj->o_type;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	165 flat(hero.y, hero.x) \|= F_DROPPED;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	166 obj->o_pos = hero;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	167 if (obj->o_type == AMULET)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	168 amulet = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	169 msg("dropped %s", inv_name(obj, TRUE));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	170 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	171
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	172 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	173 * dropcheck:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	174 * Do special checks for dropping or unweilding\|unwearing\|unringing
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	175 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	176 int
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	177 dropcheck(const THING *obj)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	178 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	179 if (obj == NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	180 return TRUE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	181 if (obj != cur_armor && obj != cur_weapon
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	182 && obj != cur_ring[LEFT] && obj != cur_ring[RIGHT])
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	183 return TRUE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	184 if (obj->o_flags & ISCURSED)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	185 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	186 msg("you can't. It appears to be cursed");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	187 return FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	188 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	189 if (obj == cur_weapon)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	190 cur_weapon = NULL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	191 else if (obj == cur_armor)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	192 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	193 waste_time();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	194 cur_armor = NULL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	195 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	196 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	197 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	198 cur_ring[obj == cur_ring[LEFT] ? LEFT : RIGHT] = NULL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	199 switch (obj->o_which)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	200 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	201 case R_ADDSTR:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	202 chg_str(-obj->o_arm);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	203 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	204 case R_SEEINVIS:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	205 unsee();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	206 extinguish(unsee);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	207 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	208 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	209 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	210 return TRUE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	211 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	212
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	213 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	214 * new_thing:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	215 * Return a new thing
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	216 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	217 THING *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	218 new_thing(void)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	219 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	220 THING *cur;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	221 int r;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	222
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	223 cur = new_item();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	224 cur->o_hplus = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	225 cur->o_dplus = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	226 strncpy(cur->o_damage, "0x0", sizeof(cur->o_damage));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	227 strncpy(cur->o_hurldmg, "0x0", sizeof(cur->o_hurldmg));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	228 cur->o_arm = 11;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	229 cur->o_count = 1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	230 cur->o_group = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	231 cur->o_flags = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	232 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	233 * Decide what kind of object it will be
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	234 * If we haven't had food for a while, let it be food.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	235 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	236 switch (no_food > 3 ? 2 : pick_one(things, NUMTHINGS))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	237 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	238 case 0:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	239 cur->o_type = POTION;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	240 cur->o_which = pick_one(pot_info, MAXPOTIONS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	241 when 1:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	242 cur->o_type = SCROLL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	243 cur->o_which = pick_one(scr_info, MAXSCROLLS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	244 when 2:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	245 cur->o_type = FOOD;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	246 no_food = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	247 if (rnd(10) != 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	248 cur->o_which = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	249 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	250 cur->o_which = 1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	251 when 3:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	252 init_weapon(cur, pick_one(weap_info, MAXWEAPONS));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	253 if ((r = rnd(100)) < 10)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	254 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	255 cur->o_flags \|= ISCURSED;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	256 cur->o_hplus -= rnd(3) + 1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	257 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	258 else if (r < 15)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	259 cur->o_hplus += rnd(3) + 1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	260 when 4:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	261 cur->o_type = ARMOR;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	262 cur->o_which = pick_one(arm_info, MAXARMORS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	263 cur->o_arm = a_class[cur->o_which];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	264 if ((r = rnd(100)) < 20)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	265 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	266 cur->o_flags \|= ISCURSED;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	267 cur->o_arm += rnd(3) + 1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	268 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	269 else if (r < 28)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	270 cur->o_arm -= rnd(3) + 1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	271 when 5:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	272 cur->o_type = RING;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	273 cur->o_which = pick_one(ring_info, MAXRINGS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	274 switch (cur->o_which)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	275 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	276 case R_ADDSTR:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	277 case R_PROTECT:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	278 case R_ADDHIT:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	279 case R_ADDDAM:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	280 if ((cur->o_arm = rnd(3)) == 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	281 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	282 cur->o_arm = -1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	283 cur->o_flags \|= ISCURSED;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	284 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	285 when R_AGGR:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	286 case R_TELEPORT:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	287 cur->o_flags \|= ISCURSED;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	288 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	289 when 6:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	290 cur->o_type = STICK;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	291 cur->o_which = pick_one(ws_info, MAXSTICKS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	292 fix_stick(cur);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	293 #ifdef MASTER
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	294 otherwise:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	295 debug("Picked a bad kind of object");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	296 wait_for(stdscr, ' ');
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	297 #endif
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	298 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	299 return cur;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	300 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	301
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	302 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	303 * pick_one:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	304 * Pick an item out of a list of nitems possible objects
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	305 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	306 int
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	307 pick_one(const struct obj_info *info, int nitems)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	308 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	309 const struct obj_info *end;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	310 const struct obj_info *start;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	311 int i;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	312
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	313 start = info;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	314 for (end = &info[nitems], i = rnd(100); info < end; info++)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	315 if (i < info->oi_prob)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	316 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	317 if (info == end)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	318 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	319 #ifdef MASTER
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	320 if (wizard)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	321 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	322 msg("bad pick_one: %d from %d items", i, nitems);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	323 for (info = start; info < end; info++)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	324 msg("%s: %d%%", info->oi_name, info->oi_prob);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	325 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	326 #endif
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	327 info = start;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	328 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	329 return (int)(info - start);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	330 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	331
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	332 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	333 * discovered:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	334 * list what the player has discovered in this game of a certain type
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	335 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	336 static int line_cnt = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	337
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	338 static int newpage = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	339
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	340 static const char lastfmt, lastarg;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	341
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	342
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	343 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	344 discovered(void)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	345 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	346 int ch;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	347 int disc_list;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	348
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	349 do {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	350 disc_list = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	351 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	352 addmsg("for ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	353 addmsg("what type");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	354 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	355 addmsg(" of object do you want a list");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	356 msg("? (* for all)");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	357 ch = readchar();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	358 switch (ch)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	359 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	360 case ESCAPE:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	361 msg("");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	362 return;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	363 case POTION:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	364 case SCROLL:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	365 case RING:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	366 case STICK:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	367 case '*':
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	368 disc_list = TRUE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	369 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	370 default:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	371 if (terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	372 msg("Not a type");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	373 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	374 msg("Please type one of %c%c%c%c (ESCAPE to quit)", POTION, SCROLL, RING, STICK);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	375 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	376 } while (!disc_list);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	377 if (ch == '*')
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	378 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	379 print_disc(POTION);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	380 add_line("", NULL);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	381 print_disc(SCROLL);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	382 add_line("", NULL);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	383 print_disc(RING);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	384 add_line("", NULL);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	385 print_disc(STICK);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	386 end_line();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	387 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	388 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	389 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	390 print_disc(ch);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	391 end_line();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	392 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	393 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	394
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	395 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	396 * print_disc:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	397 * Print what we've discovered of type 'type'
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	398 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	399
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	400 #define MAX4(a,b,c,d) (a > b ? (a > c ? (a > d ? a : d) : (c > d ? c : d)) : (b > c ? (b > d ? b : d) : (c > d ? c : d)))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	401
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	402
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	403 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	404 print_disc(int type)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	405 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	406 struct obj_info *info = NULL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	407 int i, maxnum = 0, num_found;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	408 THING obj;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	409 int order[MAX4(MAXSCROLLS, MAXPOTIONS, MAXRINGS, MAXSTICKS)];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	410
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	411 switch (type)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	412 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	413 case SCROLL:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	414 maxnum = MAXSCROLLS;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	415 info = scr_info;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	416 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	417 case POTION:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	418 maxnum = MAXPOTIONS;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	419 info = pot_info;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	420 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	421 case RING:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	422 maxnum = MAXRINGS;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	423 info = ring_info;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	424 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	425 case STICK:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	426 maxnum = MAXSTICKS;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	427 info = ws_info;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	428 break;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	429 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	430 set_order(order, maxnum);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	431 obj.o_count = 1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	432 obj.o_flags = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	433 num_found = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	434 for (i = 0; i < maxnum; i++)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	435 if (info[order[i]].oi_know \|\| info[order[i]].oi_guess)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	436 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	437 obj.o_type = type;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	438 obj.o_which = order[i];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	439 add_line("%s", inv_name(&obj, FALSE));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	440 num_found++;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	441 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	442 if (num_found == 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	443 add_line(nothing(type), NULL);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	444 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	445
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	446 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	447 * set_order:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	448 * Set up order for list
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	449 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	450
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	451 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	452 set_order(int *order, int numthings)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	453 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	454 int i, r, t;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	455
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	456 for (i = 0; i< numthings; i++)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	457 order[i] = i;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	458
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	459 for (i = numthings; i > 0; i--)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	460 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	461 r = rnd(i);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	462 t = order[i - 1];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	463 order[i - 1] = order[r];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	464 order[r] = t;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	465 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	466 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	467
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	468 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	469 * add_line:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	470 * Add a line to the list of discoveries
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	471 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	472 /* VARARGS1 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	473 int
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	474 add_line(const char fmt, const char arg)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	475 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	476 WINDOW tw, sw;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	477 int x, y;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	478 char *prompt = "--Press space to continue--";
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	479 static int maxlen = -1;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	480
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	481 if (line_cnt == 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	482 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	483 wclear(hw);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	484 if (inv_type == INV_SLOW)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	485 mpos = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	486 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	487 if (inv_type == INV_SLOW)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	488 {
244 ded75a57405c Rogue V4, V5: fix messages when viewing the identified items. John "Elwin" Edwards parents: 33 diff changeset	489 if (fmt != NULL && *fmt != '\0')
33 f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	490 if (msg(fmt, arg) == ESCAPE)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	491 return ESCAPE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	492 line_cnt++;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	493 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	494 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	495 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	496 if (maxlen < 0)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	497 maxlen = (int) strlen(prompt);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	498 if (line_cnt >= LINES - 1 \|\| fmt == NULL)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	499 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	500 if (inv_type == INV_OVER && fmt == NULL && !newpage)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	501 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	502 msg("");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	503 refresh();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	504 tw = newwin(line_cnt + 1, maxlen + 2, 0, COLS - maxlen - 3);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	505 sw = subwin(tw, line_cnt + 1, maxlen + 1, 0, COLS - maxlen - 2);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	506 for (y = 0; y <= line_cnt; y++)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	507 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	508 wmove(sw, y, 0);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	509 for (x = 0; x <= maxlen; x++)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	510 waddch(sw, mvwinch(hw, y, x));
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	511 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	512 wmove(tw, line_cnt, 1);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	513 waddstr(tw, prompt);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	514 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	515 * if there are lines below, use 'em
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	516 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	517 if (LINES > NUMLINES)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	518 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	519 if (NUMLINES + line_cnt > LINES)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	520 mvwin(tw, LINES - (line_cnt + 1), COLS - maxlen - 3);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	521 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	522 mvwin(tw, NUMLINES, 0);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	523 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	524 touchwin(tw);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	525 wrefresh(tw);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	526 wait_for(tw, ' ');
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	527 if (md_hasclreol())
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	528 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	529 werase(tw);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	530 leaveok(tw, TRUE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	531 wrefresh(tw);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	532 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	533 delwin(tw);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	534 touchwin(stdscr);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	535 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	536 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	537 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	538 wmove(hw, LINES - 1, 0);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	539 waddstr(hw, prompt);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	540 wrefresh(hw);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	541 wait_for(hw, ' ');
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	542 clearok(curscr, TRUE);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	543 wclear(hw);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	544 touchwin(stdscr);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	545 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	546 newpage = TRUE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	547 line_cnt = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	548 maxlen = (int) strlen(prompt);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	549 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	550 if (fmt != NULL && !(line_cnt == 0 && *fmt == '\0'))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	551 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	552 mvwprintw(hw, line_cnt++, 0, fmt, arg);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	553 getyx(hw, y, x);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	554 if (maxlen < x)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	555 maxlen = x;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	556 lastfmt = fmt;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	557 lastarg = arg;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	558 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	559 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	560 return ~ESCAPE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	561 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	562
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	563 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	564 * end_line:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	565 * End the list of lines
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	566 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	567
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	568 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	569 end_line(void)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	570 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	571 if (inv_type != INV_SLOW)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	572 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	573 if (line_cnt == 1 && !newpage)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	574 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	575 mpos = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	576 msg(lastfmt, lastarg);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	577 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	578 else
244 ded75a57405c Rogue V4, V5: fix messages when viewing the identified items. John "Elwin" Edwards parents: 33 diff changeset	579 {
33 f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	580 add_line(NULL, NULL);
244 ded75a57405c Rogue V4, V5: fix messages when viewing the identified items. John "Elwin" Edwards parents: 33 diff changeset	581 msg("");
ded75a57405c Rogue V4, V5: fix messages when viewing the identified items. John "Elwin" Edwards parents: 33 diff changeset	582 }
33 f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	583 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	584 line_cnt = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	585 newpage = FALSE;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	586 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	587
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	588 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	589 * nothing:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	590 * Set up prbuf so that message for "nothing found" is there
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	591 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	592 const char *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	593 nothing(int type)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	594 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	595 char sp, tystr = NULL;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	596
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	597 if (terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	598 sprintf(prbuf, "Nothing");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	599 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	600 sprintf(prbuf, "Haven't discovered anything");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	601 if (type != '*')
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	602 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	603 sp = &prbuf[strlen(prbuf)];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	604 switch (type)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	605 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	606 case POTION: tystr = "potion";
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	607 when SCROLL: tystr = "scroll";
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	608 when RING: tystr = "ring";
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	609 when STICK: tystr = "stick";
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	610 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	611 sprintf(sp, " about any %ss", tystr);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	612 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	613 return prbuf;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	614 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	615
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	616 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	617 * nameit:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	618 * Give the proper name to a potion, stick, or ring
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	619 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	620
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	621 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	622 nameit(const THING obj, const char type, const char which, const struct obj_info op,
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	623 const char (prfunc)(const THING *))
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	624 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	625 char *pb;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	626
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	627 if (op->oi_know \|\| op->oi_guess)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	628 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	629 if (obj->o_count == 1)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	630 sprintf(prbuf, "A %s ", type);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	631 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	632 sprintf(prbuf, "%d %ss ", obj->o_count, type);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	633 pb = &prbuf[strlen(prbuf)];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	634 if (op->oi_know)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	635 sprintf(pb, "of %s%s(%s)", op->oi_name, (*prfunc)(obj), which);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	636 else if (op->oi_guess)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	637 sprintf(pb, "called %s%s(%s)", op->oi_guess, (*prfunc)(obj), which);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	638 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	639 else if (obj->o_count == 1)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	640 sprintf(prbuf, "A%s %s %s", vowelstr(which), which, type);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	641 else
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	642 sprintf(prbuf, "%d %s %ss", obj->o_count, which, type);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	643 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	644
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	645 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	646 * nullstr:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	647 * Return a pointer to a null-length string
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	648 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	649 const char *
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	650 nullstr(const THING *ignored)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	651 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	652 NOOP(ignored);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	653 return "";
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	654 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	655
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	656 # ifdef MASTER
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	657 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	658 * pr_list:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	659 * List possible potions, scrolls, etc. for wizard.
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	660 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	661
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	662 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	663 pr_list(void)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	664 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	665 int ch;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	666
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	667 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	668 addmsg("for ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	669 addmsg("what type");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	670 if (!terse)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	671 addmsg(" of object do you want a list");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	672 msg("? ");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	673 ch = readchar();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	674 msg("");
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	675 switch (ch)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	676 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	677 case POTION:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	678 pr_spec(pot_info, MAXPOTIONS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	679 when SCROLL:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	680 pr_spec(scr_info, MAXSCROLLS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	681 when RING:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	682 pr_spec(ring_info, MAXRINGS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	683 when STICK:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	684 pr_spec(ws_info, MAXSTICKS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	685 when ARMOR:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	686 pr_spec(arm_info, MAXARMORS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	687 when WEAPON:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	688 pr_spec(weap_info, MAXWEAPONS);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	689 otherwise:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	690 return;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	691 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	692 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	693
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	694 /*
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	695 * pr_spec:
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	696 * Print specific list of possible items to choose from
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	697 */
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	698
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	699 void
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	700 pr_spec(const struct obj_info *info, int nitems)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	701 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	702 const struct obj_info *endp;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	703 int i, lastprob;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	704
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	705 endp = &info[nitems];
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	706 lastprob = 0;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	707 for (i = '0'; info < endp; i++)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	708 {
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	709 if (i == '9' + 1)
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	710 i = 'a';
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	711 sprintf(prbuf, "%c: %%s (%d%%%%)", i, info->oi_prob - lastprob);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	712 lastprob = info->oi_prob;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	713 add_line(prbuf, info->oi_name);
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	714 info++;
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	715 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	716 end_line();
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	717 }
f502bf60e6e4 Import Rogue 5.4 from the Roguelike Restoration Project (r1490) elwin parents: diff changeset	718 # endif /* MASTER */

Mercurial > hg > early-roguelike

annotate rogue5/things.c @ 244:ded75a57405c