view arogue7/wear.c @ 182:1fe660009fd3

rogue4: don't try to close the scorefile if it isn't open. The MSVC library uses a debug assertion to prevent closing file descriptors that are negative. This is always the case with the scoreboard file descriptor if the scoreboard has been compiled out.
author John "Elwin" Edwards
date Fri, 31 Jul 2015 20:12:33 -0400
parents cadff8f047a1
children f9ef86cf22b2
line wrap: on
line source

/*
 * wear.c  -  functions for dealing with armor
 *
 * Advanced Rogue
 * Copyright (C) 1984, 1985, 1986 Michael Morgan, Ken Dalka and AT&T
 * All rights reserved.
 *
 * Based on "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.
 */

/*
 * This file contains misc functions for dealing with armor
 */

#include <stdlib.h>
#include "curses.h"
#include "rogue.h"


/*
 * take_off:
 *	Get the armor off of the players back
 */

take_off()
{
    register struct object *obj;
    register struct linked_list *item;

    /* It takes time to take things off */
    if (player.t_action != C_TAKEOFF) {
	/* What does player want to take off? */
	if ((item = get_item(pack, "take off", REMOVABLE, FALSE, FALSE))==NULL)
	    return;

	obj = OBJPTR(item);
	if (!is_current(obj)) {
	    msg("Not wearing %c) %s", pack_char(pack, obj),inv_name(obj, TRUE));
	    return;
	}

	player.t_using = item;	/* Remember what it is */
	player.t_action = C_TAKEOFF;	/* We are taking something off */

	/* Cursed items take almost no time */
	if (obj->o_flags & ISCURSED) player.t_no_move = movement(&player);
	else player.t_no_move = dress_units(item) * movement(&player);
	return;
    }

    /* We have waited our time, let's take off our item */
    item = player.t_using;
    player.t_using = NULL;
    player.t_action = A_NIL;

    obj = OBJPTR(item);
    if (!is_current(obj)) {	/* Just to be on the safe side */
	msg("Not wearing %c) %s", pack_char(pack, obj),inv_name(obj, TRUE));
	return;
    }

    /* Can the player remove the item? */
    if (!dropcheck(obj)) return;
    updpack(TRUE, &player);

    msg("Was wearing %c) %s", pack_char(pack, obj),inv_name(obj,TRUE));
}

/*
 * wear:
 *	The player wants to wear something, so let him/her put it on.
 */

wear()
{
    register struct linked_list *item;
    register struct object *obj;
    register int i;

    /* It takes time to put things on */
    if (player.t_action != C_WEAR) {
	/* What does player want to wear? */
	if ((item = get_item(pack, "wear", WEARABLE, FALSE, FALSE)) == NULL)
	    return;

	obj = OBJPTR(item);

	switch (obj->o_type) {
	    case ARMOR:
		if (cur_armor != NULL) {
		    addmsg("You are already wearing armor");
		    if (!terse) addmsg(".  You'll have to take it off first.");
		    endmsg();
		    after = FALSE;
		    return;
		}
		if (player.t_ctype == C_MONK) {
		    msg("Monks can't wear armor!");
		    return;
		}
		if (cur_misc[WEAR_BRACERS] != NULL) {
		    msg("You can't wear armor with bracers of defense.");
		    return;
		}
		if (cur_misc[WEAR_CLOAK] != NULL || cur_relic[EMORI_CLOAK]) {
		    msg("You can't wear armor with a cloak.");
		    return;
		}
		if (player.t_ctype == C_THIEF	&&
		    (obj->o_which != LEATHER    &&
		     obj->o_which != STUDDED_LEATHER)) {
		    if (terse) msg("Thieves can't wear that type of armor");
		    else
		 msg("Thieves can only wear leather or studded leather armor");
		    return;
		}
		if (player.t_ctype == C_ASSASIN	&&
		    (obj->o_which != LEATHER    &&
		     obj->o_which != STUDDED_LEATHER)) {
		    if (terse) msg("Assassins can't wear that type of armor");
		    else
		 msg("Assassins can only wear leather or studded leather armor");
		    return;
		}

	    when MM:
		switch (obj->o_which) {
		/*
		 * when wearing the boots of elvenkind the player will not
		 * set off any traps
		 */
		case MM_ELF_BOOTS:
		    if (cur_misc[WEAR_BOOTS] != NULL) {
			msg("Already wearing a pair of boots");
			return;
		    }
		/*
		 * when wearing the boots of dancing the player will dance
		 * uncontrollably
		 */
		when MM_DANCE:
		    if (cur_misc[WEAR_BOOTS] != NULL) {
			msg("Already wearing a pair of boots");
			return;
		    }
		/*
		 * bracers give the hero protection in he same way armor does.
		 * they cannot be used with armor but can be used with cloaks
		 */
		when MM_BRACERS:
		    if (cur_misc[WEAR_BRACERS] != NULL) {
			msg("Already wearing bracers");
			return;
		    }
		    else {
			if (cur_armor != NULL) {
			   msg("You can't wear bracers of defense with armor.");
			   return;
			}
		    }

		/*
		 * The robe (cloak) of powerlessness disallows any spell casting
		 */
		when MM_R_POWERLESS:
		/*
		 * the cloak of displacement gives the hero an extra +2 on AC
		 * and saving throws. Cloaks cannot be used with armor.
		 */
		case MM_DISP:
		/*
		 * the cloak of protection gives the hero +n on AC and saving
		 * throws with a max of +3 on saves
		 */
		case MM_PROTECT:
		    if (cur_misc[WEAR_CLOAK] != NULL ||
			cur_relic[EMORI_CLOAK]) {
			msg("%slready wearing a cloak.", terse ? "A"
							       : "You are a");
			return;
		    }
		    else {
			if (cur_armor != NULL) {
			    msg("You can't wear a cloak with armor.");
			    return;
			}
		    }
		/*
		 * the gauntlets of dexterity give the hero a dexterity of 18
		 * the gauntlets of ogre power give the hero a strength of 18
		 * the gauntlets of fumbling cause the hero to drop his weapon
		 */
		when MM_G_DEXTERITY:
		case MM_G_OGRE:
		case MM_FUMBLE:
		    if (cur_misc[WEAR_GAUNTLET] != NULL) {
			msg("Already wearing a pair of gauntlets.");
			return;
		    }
		/*
		 * the jewel of attacks does an aggavate monster
		 */
		when MM_JEWEL:
		    if (cur_misc[WEAR_JEWEL] != NULL	||
			cur_relic[YENDOR_AMULET]	||
			cur_relic[STONEBONES_AMULET]) {
			msg("Already wearing an amulet.");
			return;
		    }
		/*
		 * the necklace of adaption makes the hero immune to
		 * chlorine gas
		 */
		when MM_ADAPTION:
		    if (cur_misc[WEAR_NECKLACE] != NULL) {
			msg("Already wearing a necklace");
			return;
		    }
		/*
		 * the necklace of stragulation will try to strangle the
		 * hero to death
		 */
		when MM_STRANGLE:
		    if (cur_misc[WEAR_NECKLACE] != NULL) {
			msg("Already wearing a necklace");
			return;
		    }
		otherwise:
		    msg("what a strange item you have!");
		    return;
		}

	    when RING:
		if (cur_misc[WEAR_GAUNTLET] != NULL) {
		    msg ("You have to remove your gauntlets first!");
		    return;
		}

		/* Is there room to put the ring on */
		for (i=0; i<NUM_FINGERS; i++)
		    if (cur_ring[i] == NULL) {
			break;
		    }
		if (i == NUM_FINGERS) {	/* No room */
		    if (terse) msg("Wearing enough rings");
		    else msg("You already have on eight rings");
		    return;
		}
	}

	player.t_using = item;	/* Remember what it is */
	player.t_action = C_WEAR;	/* We are taking something off */
	player.t_no_move = dress_units(item) * movement(&player);
	return;
    }

    /* We have waited our time, let's put on our item */
    item = player.t_using;
    player.t_using = NULL;
    player.t_action = A_NIL;

    obj = OBJPTR(item);

    switch (obj->o_type) {
	case ARMOR:
	    obj->o_flags |= ISKNOW;
	    cur_armor = obj;
	    addmsg(terse ? "W" : "You are now w");
	    msg("earing %s.", armors[obj->o_which].a_name);

	when MM:
	    switch (obj->o_which) {
	    /*
	     * when wearing the boots of elvenkind the player will not
	     * set off any traps
	     */
	    case MM_ELF_BOOTS:
		msg("Wearing %s",inv_name(obj,TRUE));
		cur_misc[WEAR_BOOTS] = obj;
	    /*
	     * when wearing the boots of dancing the player will dance
	     * uncontrollably
	     */
	    when MM_DANCE:
		msg("Wearing %s",inv_name(obj,TRUE));
		cur_misc[WEAR_BOOTS] = obj;
		msg("You begin to dance uncontrollably!");
		turn_on(player, ISDANCE);
	    /*
	     * bracers give the hero protection in he same way armor does.
	     * they cannot be used with armor but can be used with cloaks
	     */
	    when MM_BRACERS:
		msg("wearing %s",inv_name(obj,TRUE));
		cur_misc[WEAR_BRACERS] = obj;

	    /*
	     * The robe (cloak) of powerlessness disallows any spell casting
	     */
	    when MM_R_POWERLESS:
	    /*
	     * the cloak of displacement gives the hero an extra +2 on AC
	     * and saving throws. Cloaks cannot be used with armor.
	     */
	    case MM_DISP:
	    /*
	     * the cloak of protection gives the hero +n on AC and saving
	     * throws with a max of +3 on saves
	     */
	    case MM_PROTECT:
		msg("wearing %s",inv_name(obj,TRUE));
		cur_misc[WEAR_CLOAK] = obj;
	    /*
	     * the gauntlets of dexterity give the hero a dexterity of 18
	     * the gauntlets of ogre power give the hero a strength of 18
	     * the gauntlets of fumbling cause the hero to drop his weapon
	     */
	    when MM_G_DEXTERITY:
	    case MM_G_OGRE:
	    case MM_FUMBLE:
		msg("Wearing %s", inv_name(obj,TRUE));
		cur_misc[WEAR_GAUNTLET] = obj;
		if (obj->o_which == MM_FUMBLE)
		    start_daemon(fumble, 0, AFTER);
	    /*
	     * the jewel of attacks does an aggavate monster
	     */
	    when MM_JEWEL:
		msg("Wearing %s",inv_name(obj,TRUE));
		cur_misc[WEAR_JEWEL] = obj;
		aggravate(TRUE, TRUE);
	    /*
	     * the necklace of adaption makes the hero immune to
	     * chlorine gas
	     */
	    when MM_ADAPTION:
		msg("Wearing %s",inv_name(obj,TRUE));
		cur_misc[WEAR_NECKLACE] = obj;
		turn_on(player, NOGAS);
	    /*
	     * the necklace of stragulation will try to strangle the
	     * hero to death
	     */
	    when MM_STRANGLE:
		msg("Wearing %s",inv_name(obj,TRUE));
		cur_misc[WEAR_NECKLACE] = obj;
		msg("The necklace is beginning to strangle you!");
		start_daemon(strangle, 0, AFTER);
	    otherwise:
		msg("What a strange item you have!");
	    }
	    status(FALSE);
	    if (m_know[obj->o_which] && m_guess[obj->o_which]) {
		free(m_guess[obj->o_which]);
		m_guess[obj->o_which] = NULL;
	    }
	    else if (!m_know[obj->o_which] && 
		     askme &&
		     (obj->o_flags & ISKNOW) == 0 &&
		     m_guess[obj->o_which] == NULL) {
		nameitem(item, FALSE);
	    }

	when RING:
	    /* If there is room, put on the ring */
	    for (i=0; i<NUM_FINGERS; i++)
	        if (cur_ring[i] == NULL) {
		    cur_ring[i] = obj;
		    break;
		}
	    if (i == NUM_FINGERS) {	/* No room */
		if (terse) msg("Wearing enough rings");
		else msg("You already have on eight rings");
		return;
	    }

	    /* Calculate the effect of the ring */
	    ring_on(item);
    }
    updpack(TRUE, &player);
}

/*
 * dress_units:
 *	How many movements periods does it take to put on or remove the
 *	given item of "clothing"?
 */
dress_units(item)
struct linked_list *item;
{
    register struct object *obj;

    obj = OBJPTR(item);

    switch (obj->o_type) {
	case ARMOR:
	    return(10-armors[obj->o_which].a_class);
	when RING:
	    return(2);
	when MM:
	    switch (obj->o_which) {
		case MM_ELF_BOOTS:
		case MM_DANCE:
		    /* Boots */
		    return(4);
		when MM_R_POWERLESS:
		case MM_DISP:
		case MM_PROTECT:
		    /* Robes */
		    return(4);
		when MM_BRACERS:
		case MM_G_DEXTERITY:
		case MM_G_OGRE:
		case MM_FUMBLE:
		    /* Hand garments */
		    return(3);
		when MM_JEWEL:
		case MM_ADAPTION:
		case MM_STRANGLE:
		    /* Jewelry */
		    return(2);
		otherwise:
		    return(1);	/* What is it? */
	}
	otherwise:
	    return(1);	/* What is it? */
    }
}