home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Usenet 1994 October
/
usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso
/
games
/
volume14
/
umoria4
/
part07
< prev
next >
Wrap
Internet Message Format
|
1992-08-31
|
57KB
Path: uunet!zephyr.ens.tek.com!master!saab!billr
From: billr@saab.CNA.TEK.COM (Bill Randle)
Newsgroups: comp.sources.games
Subject: v14i039: umoria4 - single player dungeon simulation (ver. 5.5), Part07/39
Message-ID: <3397@master.CNA.TEK.COM>
Date: 20 Aug 92 18:02:59 GMT
Sender: news@master.CNA.TEK.COM
Lines: 2254
Approved: billr@saab.CNA.TEK.COM
Submitted-by: grabiner@math.harvard.edu (David Grabiner)
Posting-number: Volume 14, Issue 39
Archive-name: umoria4/Part07
Supersedes: umoria3: Volume 9, Issue 55-97; Volume 10, Issue 15-17
Environment: Curses, Unix, Mac, MS-DOS, Atari-ST, Amiga, VMS
#! /bin/sh
# This is a shell archive. Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file". To overwrite existing
# files, type "sh file -c". You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g.. If this archive is complete, you
# will see the following message at the end:
# "End of archive 7 (of 39)."
# Contents: source/moria1.c util/mc/mon.inf
# Wrapped by billr@saab on Thu Aug 20 09:11:27 1992
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'source/moria1.c' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'source/moria1.c'\"
else
echo shar: Extracting \"'source/moria1.c'\" \(45054 characters\)
sed "s/^X//" >'source/moria1.c' <<'END_OF_FILE'
X/* source/moria1.c: misc code, mainly handles player movement, inventory, etc
X
X Copyright (c) 1989-92 James E. Wilson, Robert A. Koeneke
X
X This software may be copied and distributed for educational, research, and
X not for profit purposes provided that this copyright and statement are
X included in all such copies. */
X
X#ifdef __TURBOC__
X#include <stdlib.h>
X#endif
X
X#include <stdio.h>
X#include <ctype.h>
X
X#include "config.h"
X#include "constant.h"
X#include "types.h"
X#include "externs.h"
X
X#ifdef USG
X#ifndef ATARIST_MWC
X#include <string.h>
X#else
Xchar *strcat();
Xint strlen();
X#endif
X#else
X#include <strings.h>
X#endif
X
X#if defined(LINT_ARGS)
Xstatic void inven_screen(int);
Xstatic char map_roguedir(char);
Xstatic void sub1_move_light(int, int, int, int);
Xstatic void sub3_move_light(int, int, int, int);
X#endif
X
X#ifdef ATARIST_TC
X/* Include this to get prototypes for standard library functions. */
X#include <stdlib.h>
X#endif
X
X/* Changes speed of monsters relative to player -RAK- */
X/* Note: When the player is sped up or slowed down, I simply */
X/* change the speed of all the monsters. This greatly */
X/* simplified the logic. */
Xvoid change_speed(num)
Xregister int num;
X{
X register int i;
X#ifdef ATARIST_MWC
X int32u holder;
X#endif
X
X py.flags.speed += num;
X#ifdef ATARIST_MWC
X py.flags.status |= (holder = PY_SPEED);
X#else
X py.flags.status |= PY_SPEED;
X#endif
X for (i = mfptr - 1; i >= MIN_MONIX; i--)
X m_list[i].cspeed += num;
X}
X
X
X/* Player bonuses -RAK- */
X/* When an item is worn or taken off, this re-adjusts the player */
X/* bonuses. Factor=1 : wear; Factor=-1 : removed */
X/* Only calculates properties with cumulative effect. Properties that
X depend on everything being worn are recalculated by calc_bonuses() -CJS- */
Xvoid py_bonuses(t_ptr, factor)
Xregister inven_type *t_ptr;
Xregister int factor;
X{
X register int i, amount;
X#ifdef ATARIST_MWC
X int32u holder;
X#endif
X
X amount = t_ptr->p1 * factor;
X if (t_ptr->flags & TR_STATS)
X {
X for(i = 0; i < 6; i++)
X if ((1 << i) & t_ptr->flags)
X bst_stat(i, amount);
X }
X if (TR_SEARCH & t_ptr->flags)
X {
X py.misc.srh += amount;
X py.misc.fos -= amount;
X }
X if (TR_STEALTH & t_ptr->flags)
X py.misc.stl += amount;
X if (TR_SPEED & t_ptr->flags)
X change_speed(-amount);
X#ifdef ATARIST_MWC
X if (((holder = TR_BLIND) & t_ptr->flags) && (factor > 0))
X py.flags.blind += 1000;
X if (((holder = TR_TIMID) & t_ptr->flags) && (factor > 0))
X py.flags.afraid += 50;
X if ((holder = TR_INFRA) & t_ptr->flags)
X py.flags.see_infra += amount;
X#else
X if ((TR_BLIND & t_ptr->flags) && (factor > 0))
X py.flags.blind += 1000;
X if ((TR_TIMID & t_ptr->flags) && (factor > 0))
X py.flags.afraid += 50;
X if (TR_INFRA & t_ptr->flags)
X py.flags.see_infra += amount;
X#endif
X}
X
X/* Recalculate the effect of all the stuff we use. -CJS- */
Xvoid calc_bonuses()
X{
X register int32u item_flags;
X#if defined(ATARIST_MWC)
X int32u holder; /* to avoid a compiler bug */
X#endif
X int old_dis_ac;
X register struct flags *p_ptr;
X register struct misc *m_ptr;
X register inven_type *i_ptr;
X register int i;
X
X p_ptr = &py.flags;
X m_ptr = &py.misc;
X if (p_ptr->slow_digest)
X p_ptr->food_digested++;
X if (p_ptr->regenerate)
X p_ptr->food_digested -= 3;
X p_ptr->see_inv = FALSE;
X p_ptr->teleport = FALSE;
X p_ptr->free_act = FALSE;
X p_ptr->slow_digest = FALSE;
X p_ptr->aggravate = FALSE;
X p_ptr->sustain_str = FALSE;
X p_ptr->sustain_int = FALSE;
X p_ptr->sustain_wis = FALSE;
X p_ptr->sustain_con = FALSE;
X p_ptr->sustain_dex = FALSE;
X p_ptr->sustain_chr = FALSE;
X p_ptr->fire_resist = FALSE;
X p_ptr->acid_resist = FALSE;
X p_ptr->cold_resist = FALSE;
X p_ptr->regenerate = FALSE;
X p_ptr->lght_resist = FALSE;
X p_ptr->ffall = FALSE;
X
X old_dis_ac = m_ptr->dis_ac;
X m_ptr->ptohit = tohit_adj(); /* Real To Hit */
X m_ptr->ptodam = todam_adj(); /* Real To Dam */
X m_ptr->ptoac = toac_adj(); /* Real To AC */
X m_ptr->pac = 0; /* Real AC */
X m_ptr->dis_th = m_ptr->ptohit; /* Display To Hit */
X m_ptr->dis_td = m_ptr->ptodam; /* Display To Dam */
X m_ptr->dis_ac = 0; /* Display AC */
X m_ptr->dis_tac = m_ptr->ptoac; /* Display To AC */
X for (i = INVEN_WIELD; i < INVEN_LIGHT; i++)
X {
X i_ptr = &inventory[i];
X if (i_ptr->tval != TV_NOTHING)
X {
X m_ptr->ptohit += i_ptr->tohit;
X if (i_ptr->tval != TV_BOW) /* Bows can't damage. -CJS- */
X m_ptr->ptodam += i_ptr->todam;
X m_ptr->ptoac += i_ptr->toac;
X m_ptr->pac += i_ptr->ac;
X if (known2_p(i_ptr))
X {
X m_ptr->dis_th += i_ptr->tohit;
X if (i_ptr->tval != TV_BOW)
X m_ptr->dis_td += i_ptr->todam; /* Bows can't damage. -CJS- */
X m_ptr->dis_tac += i_ptr->toac;
X m_ptr->dis_ac += i_ptr->ac;
X }
X else if (! (TR_CURSED & i_ptr->flags))
X /* Base AC values should always be visible, as long as the item
X is not cursed. */
X m_ptr->dis_ac += i_ptr->ac;
X }
X }
X m_ptr->dis_ac += m_ptr->dis_tac;
X
X if (weapon_heavy)
X m_ptr->dis_th += (py.stats.use_stat[A_STR] * 15 -
X inventory[INVEN_WIELD].weight);
X
X /* Add in temporary spell increases */
X if (p_ptr->invuln > 0)
X {
X m_ptr->pac += 100;
X m_ptr->dis_ac += 100;
X }
X if (p_ptr->blessed > 0)
X {
X m_ptr->pac += 2;
X m_ptr->dis_ac += 2;
X }
X if (p_ptr->detect_inv > 0)
X p_ptr->see_inv = TRUE;
X
X /* can't print AC here because might be in a store */
X if (old_dis_ac != m_ptr->dis_ac)
X#ifdef ATARIST_MWC
X p_ptr->status |= (holder = PY_ARMOR);
X#else
X p_ptr->status |= PY_ARMOR;
X#endif
X
X item_flags = 0;
X i_ptr = &inventory[INVEN_WIELD];
X for (i = INVEN_WIELD; i < INVEN_LIGHT; i++)
X {
X item_flags |= i_ptr->flags;
X i_ptr++;
X }
X#if !defined(ATARIST_MWC)
X if (TR_SLOW_DIGEST & item_flags)
X p_ptr->slow_digest = TRUE;
X if (TR_AGGRAVATE & item_flags)
X p_ptr->aggravate = TRUE;
X if (TR_TELEPORT & item_flags)
X p_ptr->teleport = TRUE;
X if (TR_REGEN & item_flags)
X p_ptr->regenerate = TRUE;
X if (TR_RES_FIRE & item_flags)
X p_ptr->fire_resist = TRUE;
X if (TR_RES_ACID & item_flags)
X p_ptr->acid_resist = TRUE;
X if (TR_RES_COLD & item_flags)
X p_ptr->cold_resist = TRUE;
X if (TR_FREE_ACT & item_flags)
X p_ptr->free_act = TRUE;
X if (TR_SEE_INVIS & item_flags)
X p_ptr->see_inv = TRUE;
X if (TR_RES_LIGHT & item_flags)
X p_ptr->lght_resist = TRUE;
X if (TR_FFALL & item_flags)
X p_ptr->ffall = TRUE;
X#else
X /* this avoids a bug in the Mark Williams C compiler for the Atari ST */
X holder = TR_SLOW_DIGEST;
X if (holder & item_flags)
X p_ptr->slow_digest = TRUE;
X holder = TR_AGGRAVATE;
X if (holder & item_flags)
X p_ptr->aggravate = TRUE;
X holder = TR_TELEPORT;
X if (holder & item_flags)
X p_ptr->teleport = TRUE;
X holder = TR_REGEN;
X if (holder & item_flags)
X p_ptr->regenerate = TRUE;
X holder = TR_RES_FIRE;
X if (holder & item_flags)
X p_ptr->fire_resist = TRUE;
X holder = TR_RES_ACID;
X if (holder & item_flags)
X p_ptr->acid_resist = TRUE;
X holder = TR_RES_COLD;
X if (holder & item_flags)
X p_ptr->cold_resist = TRUE;
X holder = TR_FREE_ACT;
X if (holder & item_flags)
X p_ptr->free_act = TRUE;
X holder = TR_SEE_INVIS;
X if (holder & item_flags)
X p_ptr->see_inv = TRUE;
X holder = TR_RES_LIGHT;
X if (holder & item_flags)
X p_ptr->lght_resist = TRUE;
X holder = TR_FFALL;
X if (holder & item_flags)
X p_ptr->ffall = TRUE;
X#endif
X
X i_ptr = &inventory[INVEN_WIELD];
X for (i = INVEN_WIELD; i < INVEN_LIGHT; i++)
X {
X#ifdef ATARIST_MWC
X if ((holder = TR_SUST_STAT) & i_ptr->flags)
X#else
X if (TR_SUST_STAT & i_ptr->flags)
X#endif
X switch(i_ptr->p1)
X {
X case 1: p_ptr->sustain_str = TRUE; break;
X case 2: p_ptr->sustain_int = TRUE; break;
X case 3: p_ptr->sustain_wis = TRUE; break;
X case 4: p_ptr->sustain_con = TRUE; break;
X case 5: p_ptr->sustain_dex = TRUE; break;
X case 6: p_ptr->sustain_chr = TRUE; break;
X default: break;
X }
X i_ptr++;
X }
X
X if (p_ptr->slow_digest)
X p_ptr->food_digested--;
X if (p_ptr->regenerate)
X p_ptr->food_digested += 3;
X}
X
X
X/* Displays inventory items from r1 to r2 -RAK- */
X/* Designed to keep the display as far to the right as possible. The -CJS-
X parameter col gives a column at which to start, but if the display does
X not fit, it may be moved left. The return value is the left edge used. */
X/* If mask is non-zero, then only display those items which have a non-zero
X entry in the mask array. */
Xint show_inven(r1, r2, weight, col, mask)
Xregister int r1, r2;
Xint weight, col;
Xchar *mask;
X{
X register int i;
X int total_weight, len, l, lim, current_line;
X bigvtype tmp_val;
X vtype out_val[23];
X
X len = 79 - col;
X if (weight)
X lim = 68;
X else
X lim = 76;
X
X for (i = r1; i <= r2; i++) /* Print the items */
X {
X if (mask == CNIL || mask[i])
X {
X objdes(tmp_val, &inventory[i], TRUE);
X tmp_val[lim] = 0; /* Truncate if too long. */
X (void) sprintf(out_val[i], " %c) %s", 'a'+i, tmp_val);
X l = strlen(out_val[i]);
X if (weight)
X l += 9;
X if (l > len)
X len = l;
X }
X }
X
X col = 79 - len;
X if (col < 0)
X col = 0;
X
X current_line = 1;
X for (i = r1; i <= r2; i++)
X {
X if (mask == CNIL || mask[i])
X {
X /* don't need first two spaces if in first column */
X if (col == 0)
X prt(&out_val[i][2], current_line, col);
X else
X prt(out_val[i], current_line, col);
X if (weight)
X {
X total_weight = inventory[i].weight*inventory[i].number;
X (void) sprintf (tmp_val, "%3d.%d lb",
X (total_weight) / 10, (total_weight) % 10);
X prt (tmp_val, current_line, 71);
X }
X current_line++;
X }
X }
X return col;
X}
X
X
X/* Return a string describing how a given equipment item is carried. -CJS- */
Xchar *describe_use(i)
Xregister int i;
X{
X register char *p;
X
X switch(i)
X {
X case INVEN_WIELD:
X p = "wielding"; break;
X case INVEN_HEAD:
X p = "wearing on your head"; break;
X case INVEN_NECK:
X p = "wearing around your neck"; break;
X case INVEN_BODY:
X p = "wearing on your body"; break;
X case INVEN_ARM:
X p = "wearing on your arm"; break;
X case INVEN_HANDS:
X p = "wearing on your hands"; break;
X case INVEN_RIGHT:
X p = "wearing on your right hand"; break;
X case INVEN_LEFT:
X p = "wearing on your left hand"; break;
X case INVEN_FEET:
X p = "wearing on your feet"; break;
X case INVEN_OUTER:
X p = "wearing about your body"; break;
X case INVEN_LIGHT:
X p = "using to light the way"; break;
X case INVEN_AUX:
X p = "holding ready by your side"; break;
X default:
X p = "carrying in your pack"; break;
X }
X return p;
X}
X
X
X/* Displays equipment items from r1 to end -RAK- */
X/* Keep display as far right as possible. -CJS- */
Xint show_equip(weight, col)
Xint weight, col;
X{
X register int i, line;
X int total_weight, l, len, lim;
X register char *prt1;
X bigvtype prt2;
X vtype out_val[INVEN_ARRAY_SIZE-INVEN_WIELD];
X register inven_type *i_ptr;
X
X line = 0;
X len = 79 - col;
X if (weight)
X lim = 52;
X else
X lim = 60;
X for (i = INVEN_WIELD; i < INVEN_ARRAY_SIZE; i++) /* Range of equipment */
X {
X i_ptr = &inventory[i];
X if (i_ptr->tval != TV_NOTHING)
X {
X switch(i) /* Get position */
X {
X case INVEN_WIELD:
X if (py.stats.use_stat[A_STR]*15 < i_ptr->weight)
X prt1 = "Just lifting";
X else
X prt1 = "Wielding";
X break;
X case INVEN_HEAD:
X prt1 = "On head"; break;
X case INVEN_NECK:
X prt1 = "Around neck"; break;
X case INVEN_BODY:
X prt1 = "On body"; break;
X case INVEN_ARM:
X prt1 = "On arm"; break;
X case INVEN_HANDS:
X prt1 = "On hands"; break;
X case INVEN_RIGHT:
X prt1 = "On right hand"; break;
X case INVEN_LEFT:
X prt1 = "On left hand"; break;
X case INVEN_FEET:
X prt1 = "On feet"; break;
X case INVEN_OUTER:
X prt1 = "About body"; break;
X case INVEN_LIGHT:
X prt1 = "Light source"; break;
X case INVEN_AUX:
X prt1 = "Spare weapon"; break;
X default:
X prt1 = "Unknown value"; break;
X }
X objdes(prt2, &inventory[i], TRUE);
X prt2[lim] = 0; /* Truncate if necessary */
X (void) sprintf(out_val[line], " %c) %-14s: %s", line+'a',
X prt1, prt2);
X l = strlen(out_val[line]);
X if (weight)
X l += 9;
X if (l > len)
X len = l;
X line++;
X }
X }
X col = 79 - len;
X if (col < 0)
X col = 0;
X
X line = 0;
X for (i = INVEN_WIELD; i < INVEN_ARRAY_SIZE; i++) /* Range of equipment */
X {
X i_ptr = &inventory[i];
X if (i_ptr->tval != TV_NOTHING)
X {
X /* don't need first two spaces when using whole screen */
X if (col == 0)
X prt(&out_val[line][2], line+1, col);
X else
X prt(out_val[line], line+1, col);
X if (weight)
X {
X total_weight = i_ptr->weight*i_ptr->number;
X (void) sprintf(prt2, "%3d.%d lb",
X (total_weight) / 10, (total_weight) % 10);
X prt(prt2, line+1, 71);
X }
X line++;
X }
X }
X erase_line(line+1, col);
X return col;
X}
X
X/* Remove item from equipment list -RAK- */
Xvoid takeoff(item_val, posn)
Xint item_val, posn;
X{
X register char *p;
X bigvtype out_val, prt2;
X register inven_type *t_ptr;
X#ifdef ATARIST_MWC
X int32u holder;
X#endif
X
X equip_ctr--;
X t_ptr = &inventory[item_val];
X inven_weight -= t_ptr->weight*t_ptr->number;
X#ifdef ATARIST_MWC
X py.flags.status |= (holder = PY_STR_WGT);
X#else
X py.flags.status |= PY_STR_WGT;
X#endif
X
X if (item_val == INVEN_WIELD || item_val == INVEN_AUX)
X p = "Was wielding ";
X else if (item_val == INVEN_LIGHT)
X p = "Light source was ";
X else
X p = "Was wearing ";
X
X objdes(prt2, t_ptr, TRUE);
X if (posn >= 0)
X (void) sprintf(out_val, "%s%s (%c)", p, prt2, 'a'+posn);
X else
X (void) sprintf(out_val, "%s%s", p, prt2);
X msg_print(out_val);
X if (item_val != INVEN_AUX) /* For secondary weapon */
X py_bonuses(t_ptr, -1);
X invcopy(t_ptr, OBJ_NOTHING);
X}
X
X
X/* Used to verify if this really is the item we wish to -CJS-
X wear or read. */
Xint verify(prompt, item)
Xchar *prompt;
Xint item;
X{
X bigvtype out_str, object;
X
X objdes(object, &inventory[item], TRUE);
X object[strlen(object)-1] = '?'; /* change the period to a question mark */
X (void) sprintf(out_str, "%s %s", prompt, object);
X return get_check(out_str);
X}
X
X
X/* All inventory commands (wear, exchange, take off, drop, inventory and
X equipment) are handled in an alternative command input mode, which accepts
X any of the inventory commands.
X
X It is intended that this function be called several times in succession,
X as some commands take up a turn, and the rest of moria must proceed in the
X interim. A global variable is provided, doing_inven, which is normally
X zero; however if on return from inven_command it is expected that
X inven_command should be called *again*, (being still in inventory command
X input mode), then doing_inven is set to the inventory command character
X which should be used in the next call to inven_command.
X
X On return, the screen is restored, but not flushed. Provided no flush of
X the screen takes place before the next call to inven_command, the inventory
X command screen is silently redisplayed, and no actual output takes place at
X all. If the screen is flushed before a subsequent call, then the player is
X prompted to see if we should continue. This allows the player to see any
X changes that take place on the screen during inventory command input.
X
X The global variable, screen_change, is cleared by inven_command, and set
X when the screen is flushed. This is the means by which inven_command tell
X if the screen has been flushed.
X
X The display of inventory items is kept to the right of the screen to
X minimize the work done to restore the screen afterwards. -CJS-*/
X
X/* Inventory command screen states. */
X#define BLANK_SCR 0
X#define EQUIP_SCR 1
X#define INVEN_SCR 2
X#define WEAR_SCR 3
X#define HELP_SCR 4
X#define WRONG_SCR 5
X
X/* Keep track of the state of the inventory screen. */
Xstatic int scr_state, scr_left, scr_base;
Xstatic int wear_low, wear_high;
X
X/* Draw the inventory screen. */
Xstatic void inven_screen(new_scr)
Xint new_scr;
X{
X register int line;
X
X if (new_scr != scr_state)
X {
X scr_state = new_scr;
X switch(new_scr)
X {
X case BLANK_SCR:
X line = 0;
X break;
X case HELP_SCR:
X if (scr_left > 52)
X scr_left = 52;
X prt(" ESC: exit", 1, scr_left);
X prt(" w : wear or wield object", 2, scr_left);
X prt(" t : take off item", 3, scr_left);
X prt(" d : drop object", 4, scr_left);
X prt(" x : exchange weapons", 5, scr_left);
X prt(" i : inventory of pack", 6, scr_left);
X prt(" e : list used equipment", 7, scr_left);
X line = 7;
X break;
X case INVEN_SCR:
X scr_left = show_inven(0, inven_ctr - 1, show_weight_flag, scr_left,
X CNIL);
X line = inven_ctr;
X break;
X case WEAR_SCR:
X scr_left = show_inven(wear_low, wear_high, show_weight_flag,
X scr_left, CNIL);
X line = wear_high - wear_low + 1;
X break;
X case EQUIP_SCR:
X scr_left = show_equip(show_weight_flag, scr_left);
X line = equip_ctr;
X break;
X }
X if (line >= scr_base)
X {
X scr_base = line + 1;
X erase_line(scr_base, scr_left);
X }
X else
X {
X while (++line <= scr_base)
X erase_line(line, scr_left);
X }
X }
X}
X
X/* This does all the work. */
Xvoid inven_command(command)
Xchar command;
X{
X register int slot, item;
X int tmp, tmp2, selecting, from, to;
X char *prompt, *swap, *disp, *string;
X char which, query;
X bigvtype prt1, prt2;
X register inven_type *i_ptr;
X inven_type tmp_obj;
X#ifdef ATARIST_MWC
X int32u holder;
X#endif
X
X free_turn_flag = TRUE;
X save_screen();
X /* Take up where we left off after a previous inventory command. -CJS- */
X if (doing_inven)
X {
X /* If the screen has been flushed, we need to redraw. If the command is
X a simple ' ' to recover the screen, just quit. Otherwise, check and
X see what the user wants. */
X if (screen_change)
X {
X if (command == ' ' || !get_check("Continuing with inventory command?"))
X {
X doing_inven = FALSE;
X return;
X }
X scr_left = 50;
X scr_base = 0;
X }
X tmp = scr_state;
X scr_state = WRONG_SCR;
X inven_screen(tmp);
X }
X else
X {
X scr_left = 50;
X scr_base = 0;
X /* this forces exit of inven_command() if selecting is not set true */
X scr_state = BLANK_SCR;
X }
X do
X {
X if (isupper((int)command))
X command = tolower((int)command);
X
X /* Simple command getting and screen selection. */
X selecting = FALSE;
X switch(command)
X {
X case 'i': /* Inventory */
X if (inven_ctr == 0)
X msg_print("You are not carrying anything.");
X else
X inven_screen(INVEN_SCR);
X break;
X case 'e': /* Equipment */
X if (equip_ctr == 0)
X msg_print("You are not using any equipment.");
X else
X inven_screen(EQUIP_SCR);
X break;
X case 't': /* Take off */
X if (equip_ctr == 0)
X msg_print("You are not using any equipment.");
X /* don't print message restarting inven command after taking off
X something, it is confusing */
X else if (inven_ctr >= INVEN_WIELD && !doing_inven)
X msg_print("You will have to drop something first.");
X else
X {
X if (scr_state != BLANK_SCR)
X inven_screen(EQUIP_SCR);
X selecting = TRUE;
X }
X break;
X case 'd': /* Drop */
X if (inven_ctr == 0 && equip_ctr == 0)
X msg_print("But you're not carrying anything.");
X else if (cave[char_row][char_col].tptr != 0)
X msg_print("There's no room to drop anything here.");
X else
X {
X selecting = TRUE;
X if ((scr_state == EQUIP_SCR && equip_ctr > 0) || inven_ctr == 0)
X {
X if (scr_state != BLANK_SCR)
X inven_screen(EQUIP_SCR);
X command = 'r'; /* Remove - or take off and drop. */
X }
X else if (scr_state != BLANK_SCR)
X inven_screen(INVEN_SCR);
X }
X break;
X case 'w': /* Wear/wield */
X for (wear_low = 0;
X wear_low < inven_ctr && inventory[wear_low].tval > TV_MAX_WEAR;
X wear_low++)
X ;
X for(wear_high = wear_low;
X wear_high < inven_ctr && inventory[wear_high].tval >=TV_MIN_WEAR;
X wear_high++)
X ;
X wear_high--;
X if (wear_low > wear_high)
X msg_print("You have nothing to wear or wield.");
X else
X {
X if (scr_state != BLANK_SCR && scr_state != INVEN_SCR)
X inven_screen(WEAR_SCR);
X selecting = TRUE;
X }
X break;
X case 'x':
X if (inventory[INVEN_WIELD].tval == TV_NOTHING &&
X inventory[INVEN_AUX].tval == TV_NOTHING)
X msg_print("But you are wielding no weapons.");
X#ifdef ATARIST_MWC
X else if ((holder = TR_CURSED) & inventory[INVEN_WIELD].flags)
X#else
X else if (TR_CURSED & inventory[INVEN_WIELD].flags)
X#endif
X {
X objdes(prt1, &inventory[INVEN_WIELD], FALSE);
X (void) sprintf(prt2,
X "The %s you are wielding appears to be cursed.", prt1);
X msg_print(prt2);
X }
X else
X {
X free_turn_flag = FALSE;
X tmp_obj = inventory[INVEN_AUX];
X inventory[INVEN_AUX] = inventory[INVEN_WIELD];
X inventory[INVEN_WIELD] = tmp_obj;
X if (scr_state == EQUIP_SCR)
X scr_left = show_equip(show_weight_flag, scr_left);
X py_bonuses(&inventory[INVEN_AUX], -1); /* Subtract bonuses */
X py_bonuses(&inventory[INVEN_WIELD], 1); /* Add bonuses */
X if (inventory[INVEN_WIELD].tval != TV_NOTHING)
X {
X (void) strcpy(prt1, "Primary weapon : ");
X objdes(prt2, &inventory[INVEN_WIELD], TRUE);
X msg_print(strcat(prt1, prt2));
X }
X else
X msg_print("No primary weapon.");
X /* this is a new weapon, so clear the heavy flag */
X weapon_heavy = FALSE;
X check_strength();
X }
X break;
X case ' ': /* Dummy command to return again to main prompt. */
X break;
X case '?':
X inven_screen(HELP_SCR);
X break;
X default:
X /* Nonsense command */
X bell();
X break;
X }
X
X /* Clear the doing_inven flag here, instead of at beginning, so that
X can use it to control when messages above appear. */
X doing_inven = 0;
X
X /* Keep looking for objects to drop/wear/take off/throw off */
X which = 'z';
X while (selecting && free_turn_flag)
X {
X swap = "";
X if (command == 'w')
X {
X from = wear_low;
X to = wear_high;
X prompt = "Wear/Wield";
X }
X else
X {
X from = 0;
X if (command == 'd')
X {
X to = inven_ctr - 1;
X prompt = "Drop";
X if (equip_ctr > 0)
X swap = ", / for Equip";
X }
X else
X {
X to = equip_ctr - 1;
X if (command == 't')
X prompt = "Take off";
X else /* command == 'r' */
X {
X prompt = "Throw off";
X if (inven_ctr > 0)
X swap = ", / for Inven";
X }
X }
X }
X if (from > to)
X selecting = FALSE;
X else
X {
X if (scr_state == BLANK_SCR)
X disp = ", * to list";
X else
X disp = "";
X (void) sprintf(prt1,
X "(%c-%c%s%s, space to break, ESC to exit) %s which one?",
X from+'a', to+'a', disp, swap, prompt);
X
X /* Abort everything. */
X if (!get_com(prt1, &which))
X {
X selecting = FALSE;
X which = ESCAPE;
X }
X /* Draw the screen and maybe exit to main prompt. */
X else if (which == ' ' || which == '*')
X {
X if (command == 't' || command == 'r')
X inven_screen(EQUIP_SCR);
X else if (command == 'w' && scr_state != INVEN_SCR)
X inven_screen(WEAR_SCR);
X else
X inven_screen(INVEN_SCR);
X if (which == ' ')
X selecting = FALSE;
X }
X /* Swap screens (for drop) */
X else if (which == '/' && swap[0])
X {
X if (command == 'd')
X command = 'r';
X else
X command = 'd';
X if (scr_state == EQUIP_SCR)
X inven_screen(INVEN_SCR);
X else if (scr_state == INVEN_SCR)
X inven_screen(EQUIP_SCR);
X }
X else if ((which < from + 'a' || which > to + 'a')
X && (which < from + 'A' || which > to + 'A'))
X bell();
X else /* Found an item! */
X {
X if (isupper((int)which))
X item = which - 'A';
X else
X item = which - 'a';
X if (command == 'r' || command == 't')
X {
X /* Get its place in the equipment list. */
X tmp = item;
X item = 21;
X do
X {
X item++;
X if (inventory[item].tval != TV_NOTHING)
X tmp--;
X }
X while (tmp >= 0);
X if (isupper((int)which) && !verify(prompt, item))
X item = -1;
X#ifdef ATARIST_MWC
X else if ((holder = TR_CURSED) & inventory[item].flags)
X#else
X else if (TR_CURSED & inventory[item].flags)
X#endif
X {
X msg_print("Hmmm, it seems to be cursed.");
X item = -1;
X }
X else if (command == 't' &&
X !inven_check_num(&inventory[item]))
X {
X if (cave[char_row][char_col].tptr != 0)
X {
X msg_print("You can't carry it.");
X item = -1;
X }
X else if (get_check("You can't carry it. Drop it?"))
X command = 'r';
X else
X item = -1;
X }
X if (item >= 0)
X {
X if (command == 'r')
X {
X inven_drop(item, TRUE);
X /* As a safety measure, set the player's inven
X weight to 0, when the last object is dropped*/
X if (inven_ctr == 0 && equip_ctr == 0)
X inven_weight = 0;
X }
X else
X {
X slot = inven_carry(&inventory[item]);
X takeoff(item, slot);
X }
X check_strength();
X free_turn_flag = FALSE;
X if (command == 'r')
X selecting = FALSE;
X }
X }
X else if (command == 'w')
X {
X /* Wearing. Go to a bit of trouble over replacing
X existing equipment. */
X if (isupper((int)which) && !verify(prompt, item))
X item = -1;
X else switch(inventory[item].tval)
X { /* Slot for equipment */
X case TV_SLING_AMMO: case TV_BOLT: case TV_ARROW:
X case TV_BOW: case TV_HAFTED: case TV_POLEARM:
X case TV_SWORD: case TV_DIGGING: case TV_SPIKE:
X slot = INVEN_WIELD; break;
X case TV_LIGHT: slot = INVEN_LIGHT; break;
X case TV_BOOTS: slot = INVEN_FEET; break;
X case TV_GLOVES: slot = INVEN_HANDS; break;
X case TV_CLOAK: slot = INVEN_OUTER; break;
X case TV_HELM: slot = INVEN_HEAD; break;
X case TV_SHIELD: slot = INVEN_ARM; break;
X case TV_HARD_ARMOR: case TV_SOFT_ARMOR:
X slot = INVEN_BODY; break;
X case TV_AMULET: slot = INVEN_NECK; break;
X case TV_RING:
X if (inventory[INVEN_RIGHT].tval == TV_NOTHING)
X slot = INVEN_RIGHT;
X else if (inventory[INVEN_LEFT].tval == TV_NOTHING)
X slot = INVEN_LEFT;
X else
X {
X slot = 0;
X /* Rings. Give some choice over where they go. */
X do
X {
X if (!get_com(
X "Put ring on which hand (l/r/L/R)?", &query))
X {
X item = -1;
X slot = -1;
X }
X else if (query == 'l')
X slot = INVEN_LEFT;
X else if (query == 'r')
X slot = INVEN_RIGHT;
X else
X {
X if (query == 'L')
X slot = INVEN_LEFT;
X else if (query == 'R')
X slot = INVEN_RIGHT;
X else
X bell();
X if (slot && !verify("Replace", slot))
X slot = 0;
X }
X }
X while(slot == 0);
X }
X break;
X default:
X msg_print("IMPOSSIBLE: I don't see how you can use that.");
X item = -1;
X break;
X }
X if (item >= 0 && inventory[slot].tval != TV_NOTHING)
X {
X#ifdef ATARIST_MWC
X if ((holder = TR_CURSED) & inventory[slot].flags)
X#else
X if (TR_CURSED & inventory[slot].flags)
X#endif
X {
X objdes(prt1, &inventory[slot], FALSE);
X (void) sprintf(prt2, "The %s you are ", prt1);
X if (slot == INVEN_HEAD)
X (void) strcat(prt2, "wielding ");
X else
X (void) strcat(prt2, "wearing ");
X msg_print(strcat(prt2, "appears to be cursed."));
X item = -1;
X }
X else if (inventory[item].subval == ITEM_GROUP_MIN &&
X inventory[item].number > 1 &&
X !inven_check_num(&inventory[slot]))
X {
X /* this can happen if try to wield a torch, and
X have more than one in your inventory */
X msg_print("You will have to drop something first.");
X item = -1;
X }
X }
X if (item >= 0)
X {
X /* OK. Wear it. */
X free_turn_flag = FALSE;
X
X /* first remove new item from inventory */
X tmp_obj = inventory[item];
X i_ptr = &tmp_obj;
X
X wear_high--;
X /* Fix for torches */
X if (i_ptr->number > 1
X && i_ptr->subval <= ITEM_SINGLE_STACK_MAX)
X {
X i_ptr->number = 1;
X wear_high++;
X }
X inven_weight += i_ptr->weight*i_ptr->number;
X inven_destroy(item); /* Subtracts weight */
X
X /* second, add old item to inv and remove from
X equipment list, if necessary */
X i_ptr = &inventory[slot];
X if (i_ptr->tval != TV_NOTHING)
X {
X tmp2 = inven_ctr;
X tmp = inven_carry(i_ptr);
X /* if item removed did not stack with anything in
X inventory, then increment wear_high */
X if (inven_ctr != tmp2)
X wear_high++;
X takeoff(slot, tmp);
X }
X
X /* third, wear new item */
X *i_ptr = tmp_obj;
X equip_ctr++;
X py_bonuses(i_ptr, 1);
X if (slot == INVEN_WIELD)
X string = "You are wielding";
X else if (slot == INVEN_LIGHT)
X string = "Your light source is";
X else
X string = "You are wearing";
X objdes(prt2, i_ptr, TRUE);
X /* Get the right equipment letter. */
X tmp = INVEN_WIELD;
X item = 0;
X while (tmp != slot)
X if (inventory[tmp++].tval != TV_NOTHING)
X item++;
X
X (void) sprintf(prt1, "%s %s (%c)", string, prt2,
X 'a'+item);
X msg_print(prt1);
X /* this is a new weapon, so clear the heavy flag */
X if (slot == INVEN_WIELD)
X weapon_heavy = FALSE;
X check_strength();
X#ifdef ATARIST_MWC
X if (i_ptr->flags & (holder = TR_CURSED))
X#else
X if (i_ptr->flags & TR_CURSED)
X#endif
X {
X msg_print("Oops! It feels deathly cold!");
X add_inscribe(i_ptr, ID_DAMD);
X /* To force a cost of 0, even if unidentified. */
X i_ptr->cost = -1;
X }
X }
X }
X else /* command == 'd' */
X {
X if (inventory[item].number > 1)
X {
X objdes(prt1, &inventory[item], TRUE);
X prt1[strlen(prt1)-1] = '?';
X (void) sprintf(prt2, "Drop all %s [y/n]", prt1);
X prt1[strlen(prt1)-1] = '.';
X prt(prt2, 0, 0);
X query = inkey();
X if (query != 'y' && query != 'n')
X {
X if (query != ESCAPE)
X bell();
X erase_line(MSG_LINE, 0);
X item = -1;
X }
X }
X else if (isupper((int)which) && !verify(prompt, item))
X item = -1;
X else
X query = 'y';
X if (item >= 0)
X {
X free_turn_flag = FALSE; /* Player turn */
X inven_drop(item, query == 'y');
X check_strength();
X }
X selecting = FALSE;
X /* As a safety measure, set the player's inven weight
X to 0, when the last object is dropped. */
X if (inven_ctr == 0 && equip_ctr == 0)
X inven_weight = 0;
X }
X if (free_turn_flag == FALSE && scr_state == BLANK_SCR)
X selecting = FALSE;
X }
X }
X }
X if (which == ESCAPE || scr_state == BLANK_SCR)
X command = ESCAPE;
X else if (!free_turn_flag)
X {
X /* Save state for recovery if they want to call us again next turn.*/
X if (selecting)
X doing_inven = command;
X else
X doing_inven = ' '; /* A dummy command to recover screen. */
X /* flush last message before clearing screen_change and exiting */
X msg_print(CNIL);
X screen_change = FALSE;/* This lets us know if the world changes */
X command = ESCAPE;
X }
X else
X {
X /* Put an appropriate header. */
X if (scr_state == INVEN_SCR)
X {
X if (! show_weight_flag || inven_ctr == 0)
X (void) sprintf(prt1,
X "You are carrying %d.%d pounds. In your pack there is %s",
X inven_weight / 10, inven_weight % 10,
X (inven_ctr == 0 ? "nothing." : "-"));
X else
X (void) sprintf (prt1,
X "You are carrying %d.%d pounds. Your capacity is %d.%d pounds. %s",
X inven_weight / 10, inven_weight % 10,
X weight_limit () / 10, weight_limit () % 10,
X "In your pack is -");
X prt(prt1, 0, 0);
X }
X else if (scr_state == WEAR_SCR)
X {
X if (wear_high < wear_low)
X prt("You have nothing you could wield.", 0, 0);
X else
X prt("You could wield -", 0, 0);
X }
X else if (scr_state == EQUIP_SCR)
X {
X if (equip_ctr == 0)
X prt("You are not using anything.", 0, 0);
X else
X prt("You are using -", 0, 0);
X }
X else
X prt("Allowed commands:", 0, 0);
X erase_line(scr_base, scr_left);
X put_buffer("e/i/t/w/x/d/?/ESC:", scr_base, 60);
X command = inkey();
X erase_line(scr_base, scr_left);
X }
X }
X while (command != ESCAPE);
X if (scr_state != BLANK_SCR)
X restore_screen();
X calc_bonuses();
X}
X
X
X/* Get the ID of an item and return the CTR value of it -RAK- */
Xint get_item(com_val, pmt, i, j, mask, message)
Xint *com_val;
Xchar *pmt;
Xint i, j;
Xchar *mask;
Xchar *message;
X{
X vtype out_val;
X char which;
X register int test_flag, item;
X int full, i_scr, redraw;
X
X item = FALSE;
X redraw = FALSE;
X *com_val = 0;
X i_scr = 1;
X if (j > INVEN_WIELD)
X {
X full = TRUE;
X if (inven_ctr == 0)
X {
X i_scr = 0;
X j = equip_ctr - 1;
X }
X else
X j = inven_ctr - 1;
X }
X else
X full = FALSE;
X
X if (inven_ctr > 0 || (full && equip_ctr > 0))
X {
X do
X {
X if (redraw)
X {
X if (i_scr > 0)
X (void) show_inven (i, j, FALSE, 80, mask);
X else
X (void) show_equip (FALSE, 80);
X }
X if (full)
X (void) sprintf(out_val,
X "(%s: %c-%c,%s / for %s, or ESC) %s",
X (i_scr > 0 ? "Inven" : "Equip"), i+'a', j+'a',
X (redraw ? "" : " * to see,"),
X (i_scr > 0 ? "Equip" : "Inven"), pmt);
X else
X (void) sprintf(out_val,
X "(Items %c-%c,%s ESC to exit) %s", i+'a', j+'a',
X (redraw ? "" : " * for inventory list,"), pmt);
X test_flag = FALSE;
X prt(out_val, 0, 0);
X do
X {
X which = inkey();
X switch(which)
X {
X case ESCAPE:
X test_flag = TRUE;
X free_turn_flag = TRUE;
X i_scr = -1;
X break;
X case '/':
X if (full)
X {
X if (i_scr > 0)
X {
X if (equip_ctr == 0)
X {
X prt("But you're not using anything -more-",0,0);
X (void) inkey();
X }
X else
X {
X i_scr = 0;
X test_flag = TRUE;
X if (redraw)
X {
X j = equip_ctr;
X while (j < inven_ctr)
X {
X j++;
X erase_line(j, 0);
X }
X }
X j = equip_ctr - 1;
X }
X prt(out_val, 0, 0);
X }
X else
X {
X if (inven_ctr == 0)
X {
X prt("But you're not carrying anything -more-",0,0);
X (void) inkey();
X }
X else
X {
X i_scr = 1;
X test_flag = TRUE;
X if (redraw)
X {
X j = inven_ctr;
X while (j < equip_ctr)
X {
X j++;
X erase_line (j, 0);
X }
X }
X j = inven_ctr - 1;
X }
X }
X }
X break;
X case '*':
X if (!redraw)
X {
X test_flag = TRUE;
X save_screen();
X redraw = TRUE;
X }
X break;
X default:
X if (isupper((int)which))
X *com_val = which - 'A';
X else
X *com_val = which - 'a';
X if ((*com_val >= i) && (*com_val <= j)
X && (mask == CNIL || mask[*com_val]))
X {
X if (i_scr == 0)
X {
X i = 21;
X j = *com_val;
X do
X {
X while (inventory[++i].tval == TV_NOTHING);
X j--;
X }
X while (j >= 0);
X *com_val = i;
X }
X if (isupper((int)which) && !verify("Try", *com_val))
X {
X test_flag = TRUE;
X free_turn_flag = TRUE;
X i_scr = -1;
X break;
X }
X test_flag = TRUE;
X item = TRUE;
X i_scr = -1;
X }
X else if (message)
X {
X msg_print (message);
X /* Set test_flag to force redraw of the question. */
X test_flag = TRUE;
X }
X else
X bell();
X break;
X }
X }
X while (!test_flag);
X }
X while (i_scr >= 0);
X if (redraw)
X restore_screen();
X erase_line(MSG_LINE, 0);
X }
X else
X prt("You are not carrying anything.", 0, 0);
X return(item);
X}
X
X/* I may have written the town level code, but I'm not exactly */
X/* proud of it. Adding the stores required some real slucky */
X/* hooks which I have not had time to re-think. -RAK- */
X
X/* Returns true if player has no light -RAK- */
Xint no_light()
X{
X register cave_type *c_ptr;
X
X c_ptr = &cave[char_row][char_col];
X if (!c_ptr->tl && !c_ptr->pl)
X return TRUE;
X return FALSE;
X}
X
X
X/* map rogue_like direction commands into numbers */
Xstatic char map_roguedir(comval)
Xregister char comval;
X{
X switch(comval)
X {
X case 'h':
X comval = '4';
X break;
X case 'y':
X comval = '7';
X break;
X case 'k':
X comval = '8';
X break;
X case 'u':
X comval = '9';
X break;
X case 'l':
X comval = '6';
X break;
X case 'n':
X comval = '3';
X break;
X case 'j':
X comval = '2';
X break;
X case 'b':
X comval = '1';
X break;
X case '.':
X comval = '5';
X break;
X }
X return(comval);
X}
X
X
X/* Prompts for a direction -RAK- */
X/* Direction memory added, for repeated commands. -CJS */
Xint get_dir(prompt, dir)
Xchar *prompt;
Xint *dir;
X{
X char command;
X int save;
X static char prev_dir; /* Direction memory. -CJS- */
X
X if (default_dir) /* used in counted commands. -CJS- */
X {
X *dir = prev_dir;
X return TRUE;
X }
X if (prompt == CNIL)
X prompt = "Which direction?";
X for (;;)
X {
X save = command_count; /* Don't end a counted command. -CJS- */
X#ifdef MAC
X if (!get_comdir(prompt, &command))
X#else
X if (!get_com(prompt, &command))
X#endif
X {
X free_turn_flag = TRUE;
X return FALSE;
X }
X command_count = save;
X if (rogue_like_commands)
X command = map_roguedir(command);
X if (command >= '1' && command <= '9' && command != '5')
X {
X prev_dir = command - '0';
X *dir = prev_dir;
X return TRUE;
X }
X bell();
X }
X}
X
X
X
X/* Similar to get_dir, except that no memory exists, and it is -CJS-
X allowed to enter the null direction. */
Xint get_alldir(prompt, dir)
Xchar *prompt;
Xint *dir;
X{
X char command;
X
X for(;;)
X {
X#ifdef MAC
X if (!get_comdir(prompt, &command))
X#else
X if (!get_com(prompt, &command))
X#endif
X {
X free_turn_flag = TRUE;
X return FALSE;
X }
X if (rogue_like_commands)
X command = map_roguedir(command);
X if (command >= '1' && command <= '9')
X {
X *dir = command - '0';
X return TRUE;
X }
X bell();
X }
X}
X
X
X/* Moves creature record from one space to another -RAK- */
Xvoid move_rec(y1, x1, y2, x2)
Xregister int y1, x1, y2, x2;
X{
X int tmp;
X
X /* this always works correctly, even if y1==y2 and x1==x2 */
X tmp = cave[y1][x1].cptr;
X cave[y1][x1].cptr = 0;
X cave[y2][x2].cptr = tmp;
X}
X
X
X/* Room is lit, make it appear -RAK- */
Xvoid light_room(y, x)
Xint y, x;
X{
X register int i, j, start_col, end_col;
X int tmp1, tmp2, start_row, end_row;
X register cave_type *c_ptr;
X int tval;
X
X tmp1 = (SCREEN_HEIGHT/2);
X tmp2 = (SCREEN_WIDTH /2);
X start_row = (y/tmp1)*tmp1;
X start_col = (x/tmp2)*tmp2;
X end_row = start_row + tmp1 - 1;
X end_col = start_col + tmp2 - 1;
X for (i = start_row; i <= end_row; i++)
X for (j = start_col; j <= end_col; j++)
X {
X c_ptr = &cave[i][j];
X if (c_ptr->lr && ! c_ptr->pl)
X {
X c_ptr->pl = TRUE;
X if (c_ptr->fval == DARK_FLOOR)
X c_ptr->fval = LIGHT_FLOOR;
X if (! c_ptr->fm && c_ptr->tptr != 0)
X {
X tval = t_list[c_ptr->tptr].tval;
X if (tval >= TV_MIN_VISIBLE && tval <= TV_MAX_VISIBLE)
X c_ptr->fm = TRUE;
X }
X print(loc_symbol(i, j), i, j);
X }
X }
X}
X
X
X/* Lights up given location -RAK- */
Xvoid lite_spot(y, x)
Xregister int y, x;
X{
X if (panel_contains(y, x))
X print(loc_symbol(y, x), y, x);
X}
X
X
X/* Normal movement */
X/* When FIND_FLAG, light only permanent features */
Xstatic void sub1_move_light(y1, x1, y2, x2)
Xregister int x1, x2;
Xint y1, y2;
X{
X register int i, j;
X register cave_type *c_ptr;
X int tval, top, left, bottom, right;
X
X if (light_flag)
X {
X for (i = y1-1; i <= y1+1; i++) /* Turn off lamp light */
X for (j = x1-1; j <= x1+1; j++)
X cave[i][j].tl = FALSE;
X if (find_flag && !find_prself)
X light_flag = FALSE;
X }
X else if (!find_flag || find_prself)
X light_flag = TRUE;
X
X for (i = y2-1; i <= y2+1; i++)
X for (j = x2-1; j <= x2+1; j++)
X {
X c_ptr = &cave[i][j];
X /* only light up if normal movement */
X if (light_flag)
X c_ptr->tl = TRUE;
X if (c_ptr->fval >= MIN_CAVE_WALL)
X c_ptr->pl = TRUE;
X else if (!c_ptr->fm && c_ptr->tptr != 0)
X {
X tval = t_list[c_ptr->tptr].tval;
X if ((tval >= TV_MIN_VISIBLE) && (tval <= TV_MAX_VISIBLE))
X c_ptr->fm = TRUE;
X }
X }
X
X /* From uppermost to bottom most lines player was on. */
X if (y1 < y2)
X {
X top = y1 - 1;
X bottom = y2 + 1;
X }
X else
X {
X top = y2 - 1;
X bottom = y1 + 1;
X }
X if (x1 < x2)
X {
X left = x1 - 1;
X right = x2 + 1;
X }
X else
X {
X left = x2 - 1;
X right = x1 + 1;
X }
X for (i = top; i <= bottom; i++)
X for (j = left; j <= right; j++) /* Leftmost to rightmost do*/
X print(loc_symbol(i, j), i, j);
X}
X
X
X/* When blinded, move only the player symbol. */
X/* With no light, movement becomes involved. */
Xstatic void sub3_move_light(y1, x1, y2, x2)
Xregister int y1, x1;
Xint y2, x2;
X{
X register int i, j;
X
X if (light_flag)
X {
X for (i = y1-1; i <= y1+1; i++)
X for (j = x1-1; j <= x1+1; j++)
X {
X cave[i][j].tl = FALSE;
X print(loc_symbol(i, j), i, j);
X }
X light_flag = FALSE;
X }
X else if (!find_flag || find_prself)
X print(loc_symbol(y1, x1), y1, x1);
X
X if (!find_flag || find_prself)
X print('@', y2, x2);
X}
X
X
X/* Package for moving the character's light about the screen */
X/* Four cases : Normal, Finding, Blind, and Nolight -RAK- */
Xvoid move_light(y1, x1, y2, x2)
Xint y1, x1, y2, x2;
X{
X if (py.flags.blind > 0 || !player_light)
X sub3_move_light(y1, x1, y2, x2);
X else
X sub1_move_light(y1, x1, y2, x2);
X}
X
X
X/* Something happens to disturb the player. -CJS-
X The first arg indicates a major disturbance, which affects search.
X The second arg indicates a light change. */
Xvoid disturb(s, l)
Xint s, l;
X{
X command_count = 0;
X if (s && (py.flags.status & PY_SEARCH))
X search_off();
X if (py.flags.rest != 0)
X rest_off();
X if (l || find_flag)
X {
X find_flag = FALSE;
X check_view();
X }
X flush();
X}
X
X
X/* Search Mode enhancement -RAK- */
Xvoid search_on()
X{
X change_speed(1);
X py.flags.status |= PY_SEARCH;
X prt_state();
X prt_speed();
X py.flags.food_digested++;
X}
X
Xvoid search_off()
X{
X#ifdef ATARIST_MWC
X int32u holder;
X#endif
X
X check_view();
X change_speed(-1);
X#ifdef ATARIST_MWC
X py.flags.status &= ~(holder = PY_SEARCH);
X#else
X py.flags.status &= ~PY_SEARCH;
X#endif
X prt_state();
X prt_speed();
X py.flags.food_digested--;
X}
X
X
X/* Resting allows a player to safely restore his hp -RAK- */
Xvoid rest()
X{
X int rest_num;
X vtype rest_str;
X
X if (command_count > 0)
X {
X rest_num = command_count;
X command_count = 0;
X }
X else
X {
X prt("Rest for how long? ", 0, 0);
X rest_num = 0;
X if (get_string(rest_str, 0, 19, 5))
X {
X if (rest_str[0] == '*')
X rest_num = -MAX_SHORT;
X else
X rest_num = atoi(rest_str);
X }
X }
X /* check for reasonable value, must be positive number in range of a
X short, or must be -MAX_SHORT */
X if ((rest_num == -MAX_SHORT)
X || (rest_num > 0) && (rest_num < MAX_SHORT))
X {
X if (py.flags.status & PY_SEARCH)
X search_off();
X py.flags.rest = rest_num;
X py.flags.status |= PY_REST;
X prt_state();
X py.flags.food_digested--;
X prt ("Press any key to stop resting...", 0, 0);
X put_qio();
X }
X else
X {
X if (rest_num != 0)
X msg_print ("Invalid rest count.");
X erase_line(MSG_LINE, 0);
X free_turn_flag = TRUE;
X }
X}
X
Xvoid rest_off()
X{
X#ifdef ATARIST_MWC
X int32u holder;
X#endif
X
X py.flags.rest = 0;
X#ifdef ATARIST_MWC
X py.flags.status &= ~(holder = PY_REST);
X#else
X py.flags.status &= ~PY_REST;
X#endif
X prt_state();
X msg_print(CNIL); /* flush last message, or delete "press any key" message */
X py.flags.food_digested++;
X}
X
X
X/* Attacker's level and plusses, defender's AC -RAK- */
Xint test_hit(bth, level, pth, ac, attack_type)
Xint bth, level, pth, ac, attack_type;
X{
X register int i, die;
X
X disturb (1, 0);
X i = bth + pth * BTH_PLUS_ADJ
X + (level * class_level_adj[py.misc.pclass][attack_type]);
X /* pth could be less than 0 if player wielding weapon too heavy for him */
X /* always miss 1 out of 20, always hit 1 out of 20 */
X die = randint (20);
X if ((die != 1) && ((die == 20)
X || ((i > 0) && (randint (i) > ac)))) /* normal hit */
X return TRUE;
X else
X return FALSE;
X}
X
X
X/* Decreases players hit points and sets death flag if necessary*/
X/* -RAK- */
Xvoid take_hit(damage, hit_from)
Xint damage;
Xchar *hit_from;
X{
X if (py.flags.invuln > 0) damage = 0;
X py.misc.chp -= damage;
X if (py.misc.chp < 0)
X {
X if (!death)
X {
X death = TRUE;
X (void) strcpy(died_from, hit_from);
X total_winner = FALSE;
X }
X new_level_flag = TRUE;
X }
X else
X prt_chp();
X}
END_OF_FILE
if test 45054 -ne `wc -c <'source/moria1.c'`; then
echo shar: \"'source/moria1.c'\" unpacked with wrong size!
fi
# end of 'source/moria1.c'
fi
if test -f 'util/mc/mon.inf' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'util/mc/mon.inf'\"
else
echo shar: Extracting \"'util/mc/mon.inf'\" \(7711 characters\)
sed "s/^X//" >'util/mc/mon.inf' <<'END_OF_FILE'
Xclass antlion {
X speed: 1;
X move: move_normal, random_20;
X defense: animal, frost, fire;
X cchar: "A";
X treasure: ~carry_obj;
X sleep: 40;
X special: eats_other;
X};
X
Xcreature "Giant Grey Ant Lion": antlion {
X level: 26; xp: 90; hd: 19 d 8;
X radius: 10; ac: 40;
X attack: bites for 2 d 12 of normal_damage;
X};
X
Xcreature "Giant White Ant Lion": antlion {
X level: 30; xp: 175; hd: 20 d 8;
X radius: 12; ac: 45;
X attack: bites for 3 d 10 of cold_damage;
X defense: ~frost;
X};
X
Xcreature "Giant Black Ant Lion": antlion {
X level: 31; xp: 170; hd: 23 d 8;
X radius: 14; ac: 45;
X attack: bites for 2 d 12 of normal_damage,
X spits for 3 d 6 of acid_damage;
X};
X
Xcreature "Giant Red Ant Lion": antlion {
X level: 35; xp: 350; hd: 23 d 8;
X radius: 14; ac: 48;
X attack: bites for 3 d 12 of fire_damage;
X defense: ~fire, infra;
X};
X
Xcreature "Giant Mottled Ant Lion": antlion {
X level: 36; xp: 350; hd: 24 d 8;
X radius: 14; ac: 50;
X attack: bites for 2 d 10 of normal_damage;
X};
X
Xclass ant {
X speed: 1;
X move: move_normal;
X defense: animal;
X cchar: "a";
X treasure: ~carry_obj;
X};
X
Xcreature "Giant Black Ant": ant {
X level: 2; xp: 8; hd: 3 d 6;
X radius: 14; ac: 20; sleep: 40;
X move: random_20;
X attack: bites for 1 d 4 of normal_damage;
X};
X
Xcreature "Giant White Ant": ant {
X level: 3; xp: 7; hd: 3 d 6;
X radius: 8; ac: 16; sleep: 80;
X attack: hits for 1 d 4 of normal_damage;
X};
X
Xcreature "Giant Red Ant": ant {
X level: 9; xp: 22; hd: 4 d 8;
X radius: 12; ac: 34; sleep: 60;
X attack: bites for 1 d 4 of normal_damage,
X stings for 1 d 4 of lose_str;
X};
X
Xcreature "Giant Clear Ant": ant {
X level: 12; xp: 24; hd: 3 d 7;
X radius: 12; ac: 18; sleep: 60;
X special: invisible;
X attack: bites for 1 d 4 of normal_damage;
X};
X
Xcreature "Giant Ebony Ant": ant {
X level: 15; xp: 3; hd: 3 d 4;
X radius: 12; ac: 24; sleep: 60;
X attack: bites for 2 d 3 of normal_damage;
X special: multiply;
X};
X
Xcreature "Giant Silver Ant": ant {
X level: 23; xp: 45; hd: 6 d 8;
X radius: 15; ac: 38; sleep: 60;
X move: random_20;
X attack: bites for 4 d 4 of acid_damage;
X};
X
Xcreature "Giant Static Ant": ant {
X level: 30; xp: 80; hd: 8 d 8;
X radius: 10; ac: 40; sleep: 60;
X move: random_20;
X attack: bites for 5 d 5 of lightning_damage;
X};
X
Xcreature "Giant Hunter Ant": ant {
X level: 32; xp: 150; hd: 12 d 8;
X radius: 16; ac: 40; sleep: 1;
X attack: bites for 4 d 8 of normal_damage;
X};
X
Xclass centipede {
X speed: 1;
X move: move_normal;
X defense: ~animal;
X cchar: "c";
X treasure: ~carry_obj;
X sleep: 50;
X};
X
Xcreature "Giant Yellow Centipede" : centipede {
X level: 1;
X xp: 2;
X ac: 12;
X radius: 8;
X hd: 2 d 6;
X attack: bites for 1 d 3 of normal_damage,
X bites for 1 d 3 of normal_damage;
X};
X
Xcreature "Giant White Centipede" : centipede {
X level: 1;
X xp: 2;
X ac: 10;
X radius: 7;
X hd: 3 d 5;
X move: random_20;
X attack: bites for 1 d 2 of normal_damage,
X bites for 1 d 2 of normal_damage;
X};
X
Xcreature "Metallic Green Centipede" : centipede {
X speed: 2;
X level: 2;
X xp: 3;
X ac: 4;
X radius: 5;
X hd: 4 d 4;
X move: random_40;
X attack: crawls_on for 1 d 1 of normal_damage;
X};
X
Xcreature "Metallic Blue Centipede" : centipede {
X speed: 2;
X level: 3;
X xp: 7;
X ac: 6;
X radius: 6;
X hd: 4 d 5;
X move: random_40;
X attack: crawls_on for 1 d 2 of normal_damage;
X};
X
Xcreature "Metallic Red Centipede" : centipede {
X speed: 2;
X level: 3;
X xp: 12;
X ac: 9;
X radius: 9;
X hd: 4 d 8;
X move: random_20;
X attack: crawls_on for 1 d 2 of normal_damage;
X};
X
Xcreature "Giant Black Centipede" : centipede {
X level: 4;
X xp: 11;
X ac: 20;
X radius: 8;
X hd: 5 d 8;
X move: random_75;
X attack: bites for 1 d 2 of normal_damage,
X stings for 1 d 2 of normal_damage;
X};
X
Xcreature "Giant Blue Centipede" : centipede {
X level: 4;
X xp: 10;
X ac: 20;
X radius: 8;
X hd: 4 d 8;
X attack: bites for 1 d 3 of normal_damage,
X stings for 1 d 4 of normal_damage;
X};
X
Xcreature "Giant Red Centipede" : centipede {
X level: 10;
X speed: 2;
X xp: 24;
X ac: 26;
X radius: 12;
X hd: 3 d 8;
X attack: bites for 1 d 2 of normal_damage,
X stings for 1 d 2 of poison;
X};
X
X#
X# here be the dragons
X#
X
Xclass dragon {
X defense: evil, dragon, infra;
X treasure: carry_obj, carry_gold, has_random_60,
X has_random_90, has_1d2_obj;
X spell: fear;
X move: move_normal, random_20;
X radius: 20;
X sleep: 50;
X};
X
Xclass young_dragon: dragon {
X ac: 50; spell 10%:; speed: 1; cchar: "d";
X attack: claws for 1 d 4 of normal_damage,
X claws for 1 d 4 of normal_damage,
X bites for 1 d 6 of normal_damage;
X};
X
Xclass mature_dragon: dragon {
X spell 10%:; speed: 1; cchar: "d";
X defense: max_hp;
X treasure: ~has_1d2_obj, has_2d2_obj;
X};
X
Xcreature "Young Blue Dragon": young_dragon {
X level: 29; xp: 300; hd: 33 d 8;
X breath: light;
X};
X
Xcreature "Young White Dragon": young_dragon {
X level: 29; xp: 275; hd: 32 d 8;
X defense: fire;
X breath: frost;
X};
X
Xcreature "Young Green Dragon": young_dragon {
X level: 29; xp: 290; hd: 32 d 8;
X breath: gas;
X};
X
Xcreature "Young Black Dragon" : young_dragon {
X level: 35; xp: 600; hd: 32 d 8; ac: 55;
X defense: max_hp;
X breath: acid;
X attack: claws for 1 d 5 of normal_damage,
X claws for 1 d 5 of normal_damage,
X bites for 1 d 6 of normal_damage;
X};
X
Xcreature "Young Red Dragon" : young_dragon {
X level: 35; xp: 650; hd: 36 d 8; ac: 60;
X defense: max_hp, frost;
X breath: fire;
X attack: claws for 1 d 8 of normal_damage,
X claws for 1 d 8 of normal_damage,
X bites for 2 d 8 of normal_damage;
X};
X
Xcreature "Mature White Dragon" : mature_dragon {
X level: 35; xp: 1000; hd: 48 d 8; ac: 65;
X attack: claws for 1 d 8 of normal_damage,
X claws for 1 d 8 of normal_damage,
X bites for 2 d 8 of normal_damage;
X};
X
Xclass ghost {
X move: move_normal;
X defense: undead, evil, no_sleep;
X cchar: "G";
X spell 7%:;
X special: invisible, phase, picks_up;
X treasure: carry_obj, carry_gold;
X};
X
Xcreature "Poltergeist": ghost {
X level: 3; xp: 6; hd: 2 d 5;
X treasure: has_random_60, has_random_90;
X move: random_75, random_40, random_20;
X spell: tel_short;
X sleep: 75; radius: 8; ac: 15; speed: 3;
X attack: hits for 1 d 1 of cause_fear;
X};
X
Xcreature "Green Glutton Ghost": ghost {
X level: 5; xp: 15; hd: 3 d 6;
X treasure: has_random_60, has_random_90;
X move: random_75, random_40;
X spell: tel_short, tel_long;
X sleep: 10; radius: 10; ac: 20; speed: 3;
X attack: slimes for 1 d 1 of eat_food;
X};
X
Xcreature "Lost Soul": ghost {
X level: 7; xp: 18; hd: 2 d 8;
X treasure: has_random_60, has_random_90;
X move: random_40, random_20;
X spell: drain_mana, tel_long;
X sleep: 10; radius: 4; ac: 10; speed: 1;
X attack: hits for 2 d 2 of normal_damage,
X touches for 0 d 0 of lose_wis;
X};
X
Xcreature "Moaning Spirit": ghost {
X level: 12; xp: 44; hd: 4 d 8;
X treasure: has_random_60, has_random_90;
X move: random_40, random_20;
X spell: drain_mana, tel_long;
X sleep: 30; radius: 6; ac: 20; speed: 1;
X attack: wails for 0 d 0 of cause_fear,
X touches for 1 d 8 of lose_dex;
X};
X
Xcreature "Banshee": ghost {
X level: 24; xp: 60; hd: 6 d 8;
X treasure: has_random_60, has_random_90;
X move: random_40;
X spell: drain_mana, tel_long;
X sleep: 10; radius: 20; ac: 24; speed: 2;
X attack: wails for 0 d 0 of cause_fear,
X touches for 14 d 8 of lose_exp;
X};
X
Xcreature "Ghost": ghost {
X level: 31; xp: 350; hd: 13 d 8;
X treasure: has_1d2_obj, has_random_60;
X move: random_20;
X spell: drain_mana, tel_long;
X sleep: 10; radius: 20; ac: 30; speed: 2;
X defense: max_hp;
X attack: wails for 0 d 0 of cause_fear,
X touches for 22 d 8 of lose_exp,
X claws for 1 d 10 of lose_int;
X};
X
Xcreature "Spirit Troll": ghost {
X level: 34; xp: 425; hd: 15 d 8;
X treasure: has_1d2_obj, has_random_60;
X move: random_20;
X spell: drain_mana, tel_long;
X sleep: 10; radius: 20; ac: 56; speed: 1;
X defense: max_hp;
X attack: claws for 1 d 5 of normal_damage,
X claws for 1 d 5 of normal_damage,
X bites for 1 d 6 of normal_damage,
X touches for 0 d 0 of lose_wis;
X};
END_OF_FILE
if test 7711 -ne `wc -c <'util/mc/mon.inf'`; then
echo shar: \"'util/mc/mon.inf'\" unpacked with wrong size!
fi
# end of 'util/mc/mon.inf'
fi
echo shar: End of archive 7 \(of 39\).
cp /dev/null ark7isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 39 archives.
echo "Now run "bldfiles.sh" to build split files"
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0
