/*
* Mark an object as sensed.
*/
void object_notice_sensing(object_type *o_ptr)
{
artifact_type *a_ptr = artifact_of(o_ptr);
if (object_was_sensed(o_ptr))
return;
if (a_ptr)
{
a_ptr->seen = a_ptr->everseen = TRUE;
o_ptr->ident |= IDENT_NAME;
}
object_notice_curses(o_ptr);
if (object_add_ident_flags(o_ptr, IDENT_SENSE))
object_check_for_ident(o_ptr);
}
/*
* Wield or wear a single item from the pack or floor
*/
void wield_item(object_type *o_ptr, int item, int slot)
{
object_type object_type_body;
object_type *i_ptr = &object_type_body;
const char *fmt;
char o_name[80];
bool combined_ammo = FALSE;
bool track_wielded_item = FALSE;
int num = 1;
/* If we are stacking ammo in the quiver */
if (obj_is_ammo(o_ptr))
{
num = o_ptr->number;
combined_ammo = object_similar(o_ptr, &p_ptr->inventory[slot],
OSTACK_QUIVER);
}
/* Take a turn */
p_ptr->energy_use = 100;
/* Obtain local object */
object_copy(i_ptr, o_ptr);
/* Modify quantity */
i_ptr->number = num;
/* Update object_idx if necessary, once object is in slot */
if (p_ptr->object_idx == item)
{
track_wielded_item = TRUE;
}
/* Decrease the item (from the pack) */
if (item >= 0)
{
inven_item_increase(item, -num);
inven_item_optimize(item);
}
/* Decrease the item (from the floor) */
else
{
floor_item_increase(0 - item, -num);
floor_item_optimize(0 - item);
}
/* Get the wield slot */
o_ptr = &p_ptr->inventory[slot];
if (combined_ammo)
{
/* Add the new ammo to the already-quiver-ed ammo */
object_absorb(o_ptr, i_ptr);
}
else
{
/* Take off existing item */
if (o_ptr->kind)
(void)inven_takeoff(slot, 255);
/* If we are wielding ammo we may need to "open" the slot by shifting
* later ammo up the quiver; this is because we already called the
* inven_item_optimize() function. */
if (slot >= QUIVER_START)
open_quiver_slot(slot);
/* Wear the new stuff */
object_copy(o_ptr, i_ptr);
/* Increment the equip counter by hand */
p_ptr->equip_cnt++;
}
/* Increase the weight */
p_ptr->total_weight += i_ptr->weight * num;
/* Track object if necessary */
if (track_wielded_item)
{
track_object(slot);
}
/* Do any ID-on-wield */
object_notice_on_wield(o_ptr);
/* Where is the item now */
if (slot == INVEN_WIELD)
fmt = "You are wielding %s (%c).";
else if (slot == INVEN_BOW)
fmt = "You are shooting with %s (%c).";
else if (slot == INVEN_LIGHT)
fmt = "Your light source is %s (%c).";
else if (combined_ammo)
fmt = "You combine %s in your quiver (%c).";
else if (slot >= QUIVER_START && slot < QUIVER_END)
fmt = "You add %s to your quiver (%c).";
else
fmt = "You are wearing %s (%c).";
/* Describe the result */
object_desc(o_name, sizeof(o_name), o_ptr, ODESC_PREFIX | ODESC_FULL);
/* Message */
msgt(MSG_WIELD, fmt, o_name, index_to_label(slot));
/* Cursed! */
if (cursed_p(o_ptr->flags))
{
/* Warn the player */
msgt(MSG_CURSED, "Oops! It feels deathly cold!");
/* Sense the object */
object_notice_curses(o_ptr);
}
/* Save quiver size */
save_quiver_size(p_ptr);
/* See if we have to overflow the pack */
pack_overflow();
/* Recalculate bonuses, torch, mana */
p_ptr->notice |= PN_SORT_QUIVER;
p_ptr->update |= (PU_BONUS | PU_TORCH | PU_MANA);
p_ptr->redraw |= (PR_INVEN | PR_EQUIP);
}
/**
* Wield or wear a single item from the pack or floor
*/
void inven_wield(struct object *obj, int slot)
{
struct object *wielded, *old = player->body.slots[slot].obj;
const char *fmt;
char o_name[80];
/* Increase equipment counter if empty slot */
if (old == NULL)
player->upkeep->equip_cnt++;
/* Take a turn */
player->upkeep->energy_use = z_info->move_energy;
/* Split off a new object if necessary */
if (obj->number > 1) {
/* Split off a new single object */
wielded = object_split(obj, 1);
/* If it's a gear object, give the split item a list entry */
if (pile_contains(player->gear, obj)) {
wielded->next = obj->next;
obj->next = wielded;
wielded->prev = obj;
if (wielded->next)
(wielded->next)->prev = wielded;
}
} else
wielded = obj;
/* Carry floor items, don't allow combining */
if (square_holds_object(cave, player->py, player->px, wielded)) {
square_excise_object(cave, player->py, player->px, wielded);
inven_carry(player, wielded, FALSE, FALSE);
}
/* Wear the new stuff */
player->body.slots[slot].obj = wielded;
/* Do any ID-on-wield */
object_notice_on_wield(wielded);
/* Where is the item now */
if (tval_is_melee_weapon(wielded))
fmt = "You are wielding %s (%c).";
else if (wielded->tval == TV_BOW)
fmt = "You are shooting with %s (%c).";
else if (tval_is_light(wielded))
fmt = "Your light source is %s (%c).";
else
fmt = "You are wearing %s (%c).";
/* Describe the result */
object_desc(o_name, sizeof(o_name), wielded, ODESC_PREFIX | ODESC_FULL);
/* Message */
msgt(MSG_WIELD, fmt, o_name, I2A(slot));
/* Cursed! */
if (cursed_p(wielded->flags)) {
/* Warn the player */
msgt(MSG_CURSED, "Oops! It feels deathly cold!");
/* Sense the object */
object_notice_curses(wielded);
}
/* See if we have to overflow the pack */
combine_pack();
pack_overflow(old);
/* Recalculate bonuses, torch, mana, gear */
player->upkeep->notice |= (PN_IGNORE);
player->upkeep->update |= (PU_BONUS | PU_INVEN);
player->upkeep->redraw |= (PR_INVEN | PR_EQUIP | PR_ARMOR);
player->upkeep->redraw |= (PR_STATS | PR_HP | PR_MANA | PR_SPEED);
/* Disable repeats */
cmd_disable_repeat();
}
/*
* Sense the inventory
*/
void sense_inventory(void)
{
int i;
char o_name[80];
unsigned int rate;
/* No ID when confused in a bad state */
if (p_ptr->timed[TMD_CONFUSED]) return;
/* Notice some things after a while */
if (turn >= (object_last_wield + 3000))
{
object_notice_after_time();
object_last_wield = 0;
}
/* Get improvement rate */
if (player_has(PF_PSEUDO_ID_IMPROV))
rate = cp_ptr->sense_base / (p_ptr->lev * p_ptr->lev + cp_ptr->sense_div);
else
rate = cp_ptr->sense_base / (p_ptr->lev + cp_ptr->sense_div);
if (!one_in_(rate)) return;
/* Check everything */
for (i = 0; i < ALL_INVEN_TOTAL; i++)
{
const char *text = NULL;
object_type *o_ptr = &p_ptr->inventory[i];
obj_pseudo_t feel;
bool cursed;
bool okay = FALSE;
/* Skip empty slots */
if (!o_ptr->k_idx) continue;
/* Valid "tval" codes */
switch (o_ptr->tval)
{
case TV_SHOT:
case TV_ARROW:
case TV_BOLT:
case TV_BOW:
case TV_DIGGING:
case TV_HAFTED:
case TV_POLEARM:
case TV_SWORD:
case TV_BOOTS:
case TV_GLOVES:
case TV_HELM:
case TV_CROWN:
case TV_SHIELD:
case TV_CLOAK:
case TV_SOFT_ARMOR:
case TV_HARD_ARMOR:
case TV_DRAG_ARMOR:
{
okay = TRUE;
break;
}
}
/* Skip non-sense machines */
if (!okay) continue;
/* It is known, no information needed */
if (object_is_known(o_ptr)) continue;
/* It has already been sensed, do not sense it again */
if (object_was_sensed(o_ptr))
{
/* Small chance of wielded, sensed items getting complete ID */
if (!o_ptr->name1 && (i >= INVEN_WIELD) && one_in_(1000))
do_ident_item(i, o_ptr);
continue;
}
/* Occasional failure on inventory items */
if ((i < INVEN_WIELD) && one_in_(5)) continue;
/* Sense the object */
object_notice_sensing(o_ptr);
cursed = object_notice_curses(o_ptr);
/* Get the feeling */
feel = object_pseudo(o_ptr);
/* Stop everything */
disturb(0, 0);
if (cursed)
text = "cursed";
else
text = inscrip_text[feel];
object_desc(o_name, sizeof(o_name), o_ptr, ODESC_BASE);
/* Average pseudo-ID means full ID */
if (feel == INSCRIP_AVERAGE)
{
object_notice_everything(o_ptr);
message_format(MSG_PSEUDOID, 0,
"You feel the %s (%c) %s %s average...",
o_name, index_to_label(i),((i >= INVEN_WIELD) ? "you are using" : "in your pack"),
((o_ptr->number == 1) ? "is" : "are"));
}
else
{
if (i >= INVEN_WIELD)
{
message_format(MSG_PSEUDOID, 0, "You feel the %s (%c) you are %s %s %s...",
o_name, index_to_label(i), describe_use(i),
((o_ptr->number == 1) ? "is" : "are"),
text);
}
else
{
message_format(MSG_PSEUDOID, 0, "You feel the %s (%c) in your pack %s %s...",
o_name, index_to_label(i),
((o_ptr->number == 1) ? "is" : "are"),
text);
}
}
/* Set squelch flag as appropriate */
if (i < INVEN_WIELD)
p_ptr->notice |= PN_SQUELCH;
/* Combine / Reorder the pack (later) */
p_ptr->notice |= (PN_COMBINE | PN_REORDER | PN_SORT_QUIVER);
/* Redraw stuff */
p_ptr->redraw |= (PR_INVEN | PR_EQUIP);
}
}
