+++ /dev/null
-/*!
- * @file obj_kind.c
- * @brief ¥Ù¡¼¥¹¥¢¥¤¥Æ¥à¤Î¼ÂÁõ
- * @date 2014/01/10
- * @author
- * 2014 Deskull rearranged comment for Doxygen.
- */
-
-#include "angband.h"
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬Ìô¤Ç¤¢¤ë¤«¤òÊÖ¤¹
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return ¥ª¥Ö¥¸¥§¥¯¥È¤¬Ìô¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_potion(object_type *o_ptr)
-{
- return (k_info[o_ptr->k_idx].tval == TV_POTION);
-}
-
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬¾Þ¶â¼ó¤ÎÊó½·Âоݤˤʤ뤫¤òÊÖ¤¹
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return ¥ª¥Ö¥¸¥§¥¯¥È¤¬Êó½·Âоݤˤʤë¤Ê¤éTRUE¤òÊÖ¤¹
- */
-bool object_is_shoukinkubi(object_type *o_ptr)
-{
- int i;
-
- /* Require corpse or skeleton */
- if (o_ptr->tval != TV_CORPSE) return FALSE;
-
- /* No wanted monsters in vanilla town */
- if (vanilla_town) return FALSE;
-
- /* Today's wanted */
- if (p_ptr->today_mon > 0 && (streq(r_name + r_info[o_ptr->pval].name, r_name + r_info[today_mon].name))) return TRUE;
-
- /* Tsuchinoko */
- if (o_ptr->pval == MON_TSUCHINOKO) return TRUE;
-
- /* Unique monster */
- for (i = 0; i < MAX_KUBI; i++)
- if (o_ptr->pval == kubi_r_idx[i]) break;
- if (i < MAX_KUBI) return TRUE;
-
- /* Not wanted */
- return FALSE;
-}
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬¥×¥ì¥¤¥ä¡¼¤Î¿¦¶È¤Ë±þ¤¸¤¿Å¬ÀµÉð´ï¤«Èݤ«¤òÊÖ¤¹ / Favorite weapons
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return ¥ª¥Ö¥¸¥§¥¯¥È¤¬Å¬ÀµÉð´ï¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_favorite(object_type *o_ptr)
-{
- /* Only melee weapons match */
- if (!(o_ptr->tval == TV_POLEARM ||
- o_ptr->tval == TV_SWORD ||
- o_ptr->tval == TV_DIGGING ||
- o_ptr->tval == TV_HAFTED))
- {
- return FALSE;
- }
-
- /* Favorite weapons are varied depend on the class */
- switch (p_ptr->pclass)
- {
- case CLASS_PRIEST:
- {
- u32b flgs[TR_FLAG_SIZE];
- object_flags_known(o_ptr, flgs);
-
- if (!have_flag(flgs, TR_BLESSED) &&
- !(o_ptr->tval == TV_HAFTED))
- return FALSE;
- break;
- }
-
- case CLASS_MONK:
- case CLASS_FORCETRAINER:
- /* Icky to wield? */
- if (!(s_info[p_ptr->pclass].w_max[o_ptr->tval-TV_WEAPON_BEGIN][o_ptr->sval]))
- return FALSE;
- break;
-
- case CLASS_BEASTMASTER:
- case CLASS_CAVALRY:
- {
- u32b flgs[TR_FLAG_SIZE];
- object_flags_known(o_ptr, flgs);
-
- /* Is it known to be suitable to using while riding? */
- if (!(have_flag(flgs, TR_RIDING)))
- return FALSE;
-
- break;
- }
-
- case CLASS_NINJA:
- /* Icky to wield? */
- if (s_info[p_ptr->pclass].w_max[o_ptr->tval-TV_WEAPON_BEGIN][o_ptr->sval] <= WEAPON_EXP_BEGINNER)
- return FALSE;
- break;
-
- default:
- /* All weapons are okay for non-special classes */
- return TRUE;
- }
-
- return TRUE;
-}
-
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬¥ì¥¢¥¢¥¤¥Æ¥à¤«¤É¤¦¤«¤òÊÖ¤¹ /
- * Rare weapons/aromors including Blade of Chaos, Dragon armors, etc.
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return ¥ì¥¢¥¢¥¤¥Æ¥à¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_rare(object_type *o_ptr)
-{
- switch(o_ptr->tval)
- {
- case TV_HAFTED:
- if (o_ptr->sval == SV_MACE_OF_DISRUPTION ||
- o_ptr->sval == SV_WIZSTAFF) return TRUE;
- break;
-
- case TV_POLEARM:
- if (o_ptr->sval == SV_SCYTHE_OF_SLICING ||
- o_ptr->sval == SV_DEATH_SCYTHE) return TRUE;
- break;
-
- case TV_SWORD:
- if (o_ptr->sval == SV_BLADE_OF_CHAOS ||
- o_ptr->sval == SV_DIAMOND_EDGE ||
- o_ptr->sval == SV_DOKUBARI ||
- o_ptr->sval == SV_HAYABUSA) return TRUE;
- break;
-
- case TV_SHIELD:
- if (o_ptr->sval == SV_DRAGON_SHIELD ||
- o_ptr->sval == SV_MIRROR_SHIELD) return TRUE;
- break;
-
- case TV_HELM:
- if (o_ptr->sval == SV_DRAGON_HELM) return TRUE;
- break;
-
- case TV_BOOTS:
- if (o_ptr->sval == SV_PAIR_OF_DRAGON_GREAVE) return TRUE;
- break;
-
- case TV_CLOAK:
- if (o_ptr->sval == SV_ELVEN_CLOAK ||
- o_ptr->sval == SV_ETHEREAL_CLOAK ||
- o_ptr->sval == SV_SHADOW_CLOAK) return TRUE;
- break;
-
- case TV_GLOVES:
- if (o_ptr->sval == SV_SET_OF_DRAGON_GLOVES) return TRUE;
- break;
-
- case TV_SOFT_ARMOR:
- if (o_ptr->sval == SV_KUROSHOUZOKU ||
- o_ptr->sval == SV_ABUNAI_MIZUGI) return TRUE;
- break;
-
- case TV_DRAG_ARMOR:
- return TRUE;
-
- default:
- break;
- }
-
- /* Any others are not "rare" objects. */
- return FALSE;
-}
-
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬Éð´ï¤È¤·¤ÆÁõÈ÷¤Ç¤¤ë¤«¤É¤¦¤«¤òÊÖ¤¹ / Check if an object is weapon (including bows and ammo)
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return Éð´ï¤È¤·¤Æ»È¤¨¤ë¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_weapon(object_type *o_ptr)
-{
- if (TV_WEAPON_BEGIN <= o_ptr->tval && o_ptr->tval <= TV_WEAPON_END) return TRUE;
-
- return FALSE;
-}
-
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬Éð´ï¤äÌðÃƤȤ·¤Æ»ÈÍѤǤ¤ë¤«¤òÊÖ¤¹ / Check if an object is weapon (including bows and ammo)
- * Rare weapons/aromors including Blade of Chaos, Dragon armors, etc.
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return Éð´ï¤äÌðÃƤȤ·¤Æ»È¤¨¤ë¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_weapon_ammo(object_type *o_ptr)
-{
- if (TV_MISSILE_BEGIN <= o_ptr->tval && o_ptr->tval <= TV_WEAPON_END) return TRUE;
-
- return FALSE;
-}
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬ÌðÃƤȤ·¤Æ»ÈÍѤǤ¤ë¤«¤É¤¦¤«¤òÊÖ¤¹ / Check if an object is ammo
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return ÌðÃƤȤ·¤Æ»È¤¨¤ë¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_ammo(object_type *o_ptr)
-{
- if (TV_MISSILE_BEGIN <= o_ptr->tval && o_ptr->tval <= TV_MISSILE_END) return TRUE;
-
- return FALSE;
-}
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬Ëɶñ¤È¤·¤ÆÁõÈ÷¤Ç¤¤ë¤«¤É¤¦¤«¤òÊÖ¤¹ / Check if an object is armour
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return ÌðÃƤȤ·¤Æ»È¤¨¤ë¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_armour(object_type *o_ptr)
-{
- if (TV_ARMOR_BEGIN <= o_ptr->tval && o_ptr->tval <= TV_ARMOR_END) return TRUE;
-
- return FALSE;
-}
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬Éð´ï¡¢Ëɶñ¡¢ÌðÃƤȤ·¤Æ»ÈÍѤǤ¤ë¤«¤òÊÖ¤¹ / Check if an object is weapon, armour or ammo
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return Éð´ï¡¢Ëɶñ¡¢ÌðÃƤȤ·¤Æ»È¤¨¤ë¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_weapon_armour_ammo(object_type *o_ptr)
-{
- if (object_is_weapon_ammo(o_ptr) || object_is_armour(o_ptr)) return TRUE;
-
- return FALSE;
-}
-
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬¶áÀÜÉð´ï¤È¤·¤ÆÁõÈ÷¤Ç¤¤ë¤«¤òÊÖ¤¹ / Melee weapons
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return ¶áÀÜÉð´ï¤È¤·¤Æ»È¤¨¤ë¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_melee_weapon(object_type *o_ptr)
-{
- if (TV_DIGGING <= o_ptr->tval && o_ptr->tval <= TV_SWORD) return TRUE;
-
- return FALSE;
-}
-
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬ÁõÈ÷²Äǽ¤Ç¤¢¤ë¤«¤òÊÖ¤¹ / Wearable including all weapon, all armour, bow, light source, amulet, and ring
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return ÁõÈ÷²Äǽ¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_wearable(object_type *o_ptr)
-{
- if (TV_WEARABLE_BEGIN <= o_ptr->tval && o_ptr->tval <= TV_WEARABLE_END) return TRUE;
-
- return FALSE;
-}
-
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬ÁõÈ÷ÉʤǤ¢¤ë¤«¤òÊÖ¤¹(object_is_wearable¤ËÌðÃƤò´Þ¤à) / Equipment including all wearable objects and ammo
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return ÁõÈ÷Éʤʤé¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_is_equipment(object_type *o_ptr)
-{
- if (TV_EQUIP_BEGIN <= o_ptr->tval && o_ptr->tval <= TV_EQUIP_END) return TRUE;
-
- return FALSE;
-}
-
-
-/*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬¶¯²½ÉÔǽÉð´ï¤Ç¤¢¤ë¤«¤òÊÖ¤¹ / Poison needle can not be enchanted
- * @param o_ptr ÂоݤΥª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΥݥ¤¥ó¥¿
- * @return ¶¯²½ÉÔǽ¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
- */
-bool object_refuse_enchant_weapon(object_type *o_ptr)
-{
- if (o_ptr->tval == TV_SWORD && o_ptr->sval == SV_DOKUBARI) return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Check if an object is weapon (including bows and ammo) and allows enchantment
- */
-bool object_allow_enchant_weapon(object_type *o_ptr)
-{
- if (object_is_weapon_ammo(o_ptr) && !object_refuse_enchant_weapon(o_ptr)) return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Check if an object is melee weapon and allows enchantment
- */
-bool object_allow_enchant_melee_weapon(object_type *o_ptr)
-{
- if (object_is_melee_weapon(o_ptr) && !object_refuse_enchant_weapon(o_ptr)) return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Check if an object is made by a smith's special ability
- */
-bool object_is_smith(object_type *o_ptr)
-{
- if (object_is_weapon_armour_ammo(o_ptr) && o_ptr->xtra3) return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Check if an object is artifact
- */
-bool object_is_artifact(object_type *o_ptr)
-{
- if (object_is_fixed_artifact(o_ptr) || o_ptr->art_name) return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Check if an object is random artifact
- */
-bool object_is_random_artifact(object_type *o_ptr)
-{
- if (object_is_artifact(o_ptr) && !object_is_fixed_artifact(o_ptr)) return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Check if an object is neither artifact, ego, nor 'smith' object
- */
-bool object_is_nameless(object_type *o_ptr)
-{
- if (!object_is_artifact(o_ptr) && !object_is_ego(o_ptr) && !object_is_smith(o_ptr))
- return TRUE;
-
- return FALSE;
-}
-
-
-/*
- * Check if an object is melee weapon and allows wielding with two-hands
- */
-bool object_allow_two_hands_wielding(object_type *o_ptr)
-{
- if (object_is_melee_weapon(o_ptr) && ((o_ptr->weight > 99) || (o_ptr->tval == TV_POLEARM))) return TRUE;
-
- return FALSE;
-}