Early Roguelike Collection: rogue3/misc.c annotate

annotate rogue3/misc.c @ 315:ad2570b5b21f

Advanced Rogue 5, 7: fix some trading post messages. When attempting to buy an unaffordable object, messages were often of the form "You can't afford that a scroll of hold monster !", because the object description (stored in curpurch) was the same text used in inventory displays. This has been worked around by inspecting the contents of curpurch and using different message templates.

author	John "Elwin" Edwards
date	Sun, 24 Oct 2021 20:26:21 -0400
parents	e52a8a7ad4c5
children

rev	line source
0 527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	1 /*
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	2 * all sorts of miscellaneous routines
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	3 *
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	4 * @(#)misc.c 3.13 (Berkeley) 6/15/81
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	5 *
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	6 * Rogue: Exploring the Dungeons of Doom
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	7 * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	8 * All rights reserved.
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	9 *
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	10 * See the file LICENSE.TXT for full copyright and licensing information.
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	11 */
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	12
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	13 #include "curses.h"
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	14 #include "rogue.h"
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	15 #include <ctype.h>
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	16
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	17 /*
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	18 * tr_name:
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	19 * print the name of a trap
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	20 */
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	21
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	22 char *
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	23 tr_name(int ch)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	24 {
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	25 char *s = "";
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	26
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	27 switch (ch)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	28 {
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	29 case TRAPDOOR:
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	30 s = terse ? "A trapdoor." : "You found a trapdoor.";
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	31 when BEARTRAP:
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	32 s = terse ? "A beartrap." : "You found a beartrap.";
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	33 when SLEEPTRAP:
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	34 s = terse ? "A sleeping gas trap.":"You found a sleeping gas trap.";
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	35 when ARROWTRAP:
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	36 s = terse ? "An arrow trap." : "You found an arrow trap.";
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	37 when TELTRAP:
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	38 s = terse ? "A teleport trap." : "You found a teleport trap.";
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	39 when DARTTRAP:
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	40 s = terse ? "A dart trap." : "You found a poison dart trap.";
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	41 }
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	42 return s;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	43 }
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	44
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	45 /*
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	46 * Look:
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	47 * A quick glance all around the player
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	48 */
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	49
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	50 void
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	51 look(int wakeup)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	52 {
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	53 int x, y;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	54 int ch;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	55 int oldx, oldy;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	56 int inpass;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	57 int passcount = 0;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	58 struct room *rp;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	59 int ey, ex;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	60
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	61 getyx(cw, oldy, oldx);
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	62 if (oldrp != NULL && (oldrp->r_flags & ISDARK) && off(player, ISBLIND))
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	63 {
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	64 for (x = oldpos.x - 1; x <= oldpos.x + 1; x++)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	65 for (y = oldpos.y - 1; y <= oldpos.y + 1; y++)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	66 if ((y != hero.y \|\| x != hero.x) && show(y, x) == FLOOR)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	67 mvwaddch(cw, y, x, ' ');
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	68 }
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	69 inpass = ((rp = roomin(&hero)) == NULL);
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	70 ey = hero.y + 1;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	71 ex = hero.x + 1;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	72 for (x = hero.x - 1; x <= ex; x++)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	73 if (x >= 0 && x < COLS) for (y = hero.y - 1; y <= ey; y++)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	74 {
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	75 if (y <= 0 \|\| y >= LINES - 1)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	76 continue;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	77 if (isupper(mvwinch(mw, y, x)))
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	78 {
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	79 struct linked_list *it;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	80 struct thing *tp;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	81
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	82 if (wakeup)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	83 it = wake_monster(y, x);
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	84 else
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	85 it = find_mons(y, x);
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	86 tp = (struct thing *) ldata(it);
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	87 if ((tp->t_oldch = mvinch(y, x)) == TRAP)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	88 tp->t_oldch =
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	89 (trap_at(y,x)->tr_flags&ISFOUND) ? TRAP : FLOOR;
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	90 if (tp->t_oldch == FLOOR && (rp != NULL) && (rp->r_flags & ISDARK)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	91 && off(player, ISBLIND))
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	92 tp->t_oldch = ' ';
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	93 }
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	94 /*
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	95 * Secret doors show as walls
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	96 */
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	97 if ((ch = show(y, x)) == SECRETDOOR)
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	98 ch = secretdoor(y, x);
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	99 /*
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	100 * Don't show room walls if he is in a passage
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	101 */
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	102 if (off(player, ISBLIND))
527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	103 {
304 e52a8a7ad4c5 Fix many compiler warnings. John "Elwin" Edwards parents: 251 diff changeset	104 if ((y == hero.y && x == hero.x)
0 527e2150eaf0 Import Rogue 3.6 from the Roguelike Restoration Project (r1490) edwarj4 parents: diff changeset	105 \|\| (inpass && (ch == '-' \|\| ch == '\|')))

Mercurial > hg > early-roguelike

annotate rogue3/misc.c @ 315:ad2570b5b21f