758c6b1bf0
fuse() now expects a pointer as the argument to a fuse function. If this is one of the functions that takes int, fuse() follows the pointer and stores that value in the f_list slot, in the integer field of the argument union. When the fuse goes off, do_fuses() recognizes the function and passes it the integer field instead of the pointer. This has the disadvantage of hard-coding the functions that require int in daemon.c, but since the int is copied into f_list, it no longer has to be in static or global memory, which simplifies several files.
434 lines
11 KiB
C
434 lines
11 KiB
C
/*
|
||
* 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
|
||
*/
|
||
|
||
void
|
||
take_off(void)
|
||
{
|
||
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.
|
||
*/
|
||
|
||
void
|
||
wear(void)
|
||
{
|
||
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, NULL, 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, NULL, 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"?
|
||
*/
|
||
int
|
||
dress_units(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? */
|
||
}
|
||
}
|