ca1c442db2
Violet fungi (renamed venus flytraps in Rogue V5) do an increasing amount of damage each time they hit. If they miss, you still suffer the same number of HP. This worked by keeping a counter and printing new damage strings into monsters[5].m_stats.s_dmg, which is the "prototype" of that particular monster. Each individual monster has its own damage string. Apparently these were once char *, pointing to the same string as the prototype. When the s_dmg member was changed to be an internal char array, changing the prototype's damage string no longer had any effect on actual monsters. As a result, flytraps did no damage on a hit, or only one point in V5. The mechanism for doing damage on a miss continued to work. This has been fixed by overwriting the individual monster's damage string instead of the prototype's. It is now no longer necessary to reset the damage string when the flytrap is killed. The method for resetting it when the hero teleports away had to be modified. Comments referencing the long-unused xstr have been removed.
211 lines
4.2 KiB
C
211 lines
4.2 KiB
C
|
|
/*
|
|
* Special wizard commands (some of which are also non-wizard commands
|
|
* under strange circumstances)
|
|
*
|
|
* @(#)wizard.c 3.8 (Berkeley) 6/3/81
|
|
*
|
|
* Rogue: Exploring the Dungeons of Doom
|
|
* Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
|
|
* All rights reserved.
|
|
*
|
|
* See the file LICENSE.TXT for full copyright and licensing information.
|
|
*/
|
|
|
|
#include "curses.h"
|
|
#include <ctype.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
#include "machdep.h"
|
|
#include "rogue.h"
|
|
|
|
/*
|
|
* whatis:
|
|
* What a certin object is
|
|
*/
|
|
|
|
void
|
|
whatis()
|
|
{
|
|
struct object *obj;
|
|
struct linked_list *item;
|
|
|
|
if ((item = get_item("identify", 0)) == NULL)
|
|
return;
|
|
obj = (struct object *) ldata(item);
|
|
switch (obj->o_type)
|
|
{
|
|
case SCROLL:
|
|
s_know[obj->o_which] = TRUE;
|
|
if (s_guess[obj->o_which])
|
|
{
|
|
free(s_guess[obj->o_which]);
|
|
s_guess[obj->o_which] = NULL;
|
|
}
|
|
when POTION:
|
|
p_know[obj->o_which] = TRUE;
|
|
if (p_guess[obj->o_which])
|
|
{
|
|
free(p_guess[obj->o_which]);
|
|
p_guess[obj->o_which] = NULL;
|
|
}
|
|
when STICK:
|
|
ws_know[obj->o_which] = TRUE;
|
|
obj->o_flags |= ISKNOW;
|
|
if (ws_guess[obj->o_which])
|
|
{
|
|
free(ws_guess[obj->o_which]);
|
|
ws_guess[obj->o_which] = NULL;
|
|
}
|
|
when WEAPON:
|
|
case ARMOR:
|
|
obj->o_flags |= ISKNOW;
|
|
when RING:
|
|
r_know[obj->o_which] = TRUE;
|
|
obj->o_flags |= ISKNOW;
|
|
if (r_guess[obj->o_which])
|
|
{
|
|
free(r_guess[obj->o_which]);
|
|
r_guess[obj->o_which] = NULL;
|
|
}
|
|
}
|
|
msg(inv_name(obj, FALSE));
|
|
}
|
|
|
|
/*
|
|
* create_obj:
|
|
* Wizard command for getting anything he wants
|
|
*/
|
|
|
|
void
|
|
create_obj()
|
|
{
|
|
struct linked_list *item;
|
|
struct object *obj;
|
|
int bless;
|
|
int ch;
|
|
|
|
item = new_item(sizeof *obj);
|
|
obj = (struct object *) ldata(item);
|
|
msg("Type of item: ");
|
|
obj->o_type = readchar(cw);
|
|
mpos = 0;
|
|
msg("Which %c do you want? (0-f)", obj->o_type);
|
|
obj->o_which = (isdigit((ch = readchar(cw))) ? ch - '0' : ch - 'a' + 10);
|
|
obj->o_group = 0;
|
|
obj->o_count = 1;
|
|
mpos = 0;
|
|
if (obj->o_type == WEAPON || obj->o_type == ARMOR)
|
|
{
|
|
msg("Blessing? (+,-,n)");
|
|
bless = readchar(cw);
|
|
mpos = 0;
|
|
if (obj->o_type == WEAPON)
|
|
{
|
|
init_weapon(obj, obj->o_which);
|
|
if (bless == '-') {
|
|
obj->o_hplus -= rnd(3)+1;
|
|
obj->o_flags |= ISCURSED;
|
|
}
|
|
if (bless == '+')
|
|
obj->o_hplus += rnd(3)+1;
|
|
}
|
|
else
|
|
{
|
|
obj->o_ac = a_class[obj->o_which];
|
|
if (bless == '-') {
|
|
obj->o_ac += rnd(3)+1;
|
|
obj->o_flags |= ISCURSED;
|
|
}
|
|
if (bless == '+')
|
|
obj->o_ac -= rnd(3)+1;
|
|
}
|
|
}
|
|
else if (obj->o_type == RING)
|
|
switch (obj->o_which)
|
|
{
|
|
case R_PROTECT:
|
|
case R_ADDSTR:
|
|
case R_ADDHIT:
|
|
case R_ADDDAM:
|
|
msg("Blessing? (+,-,n)");
|
|
bless = readchar(cw);
|
|
mpos = 0;
|
|
if (bless == '-')
|
|
obj->o_flags |= ISCURSED;
|
|
obj->o_ac = (bless == '-' ? -1 : rnd(2) + 1);
|
|
}
|
|
else if (obj->o_type == STICK)
|
|
fix_stick(obj);
|
|
add_pack(item, FALSE);
|
|
}
|
|
|
|
/*
|
|
* telport:
|
|
* Bamf the hero someplace else
|
|
*/
|
|
|
|
int
|
|
teleport()
|
|
{
|
|
int rm;
|
|
coord c;
|
|
|
|
c = hero;
|
|
mvwaddch(cw, hero.y, hero.x, mvwinch(stdscr, hero.y, hero.x));
|
|
do
|
|
{
|
|
rm = rnd_room();
|
|
rnd_pos(&rooms[rm], &hero);
|
|
} until(winat(hero.y, hero.x) == FLOOR);
|
|
light(&c);
|
|
light(&hero);
|
|
mvwaddch(cw, hero.y, hero.x, PLAYER);
|
|
/*
|
|
* turn off ISHELD in case teleportation was done while fighting
|
|
* a Fungi
|
|
*/
|
|
if (on(player, ISHELD)) {
|
|
struct linked_list *item;
|
|
struct thing *mon;
|
|
|
|
player.t_flags &= ~ISHELD;
|
|
fung_hit = 0;
|
|
for (item = mlist; item != NULL; item = next(item)) {
|
|
mon = (struct thing *) ldata(item);
|
|
if (mon->t_type == 'F')
|
|
strcpy(mon->t_stats.s_dmg, "000d0");
|
|
}
|
|
}
|
|
count = 0;
|
|
running = FALSE;
|
|
flush_type(); /* flush typeahead */
|
|
return rm;
|
|
}
|
|
|
|
/*
|
|
* passwd:
|
|
* see if user knows password
|
|
*/
|
|
|
|
int
|
|
passwd()
|
|
{
|
|
char *sp, c;
|
|
char buf[80];
|
|
|
|
msg("Wizard's Password:");
|
|
mpos = 0;
|
|
sp = buf;
|
|
while ((c = readchar(cw)) != '\n' && c != '\r' && c != '\033')
|
|
if (c == md_killchar())
|
|
sp = buf;
|
|
else if (c == md_erasechar() && sp > buf)
|
|
sp--;
|
|
else
|
|
*sp++ = c;
|
|
if (sp == buf)
|
|
return FALSE;
|
|
*sp = '\0';
|
|
return (strcmp(PASSWD, crypt(buf, "mT")) == 0);
|
|
}
|