monster_hook_type get_monster_hook2(int y, int x)
{
feature_type *f_ptr = &f_info[cave[y][x].feat];
/* Set the monster list */
/* Water */
if (have_flag(f_ptr->flags, FF_WATER))
{
/* Deep water */
if (have_flag(f_ptr->flags, FF_DEEP))
{
return (monster_hook_type)mon_hook_deep_water;
}
/* Shallow water */
else
{
return (monster_hook_type)mon_hook_shallow_water;
}
}
/* Lava */
else if (have_flag(f_ptr->flags, FF_LAVA))
{
return (monster_hook_type)mon_hook_lava;
}
else return (monster_hook_type)mon_hook_floor;
}
int res_ct_known(int which)
{
int ct = p_ptr->resist[which];
int hidden = 0;
int flg = res_get_object_flag(which);
int i;
/* Life is a bit hard at the moment since "player flags"
may account for multiple resistances. Really, the entire
flag based approach to resistance is just wrong, but I'm
too lazy to fix ...
*/
for (i = 0; i < equip_count(); i++)
{
int slot = EQUIP_BEGIN + i;
object_type *o_ptr = equip_obj(slot);
u32b flgs[TR_FLAG_SIZE];
u32b flgs_known[TR_FLAG_SIZE];
if (!o_ptr) continue;
object_flags(o_ptr, flgs);
object_flags_known(o_ptr, flgs_known);
if (have_flag(flgs, flg) && !have_flag(flgs_known, flg))
hidden++;
}
ct -= hidden;
return ct;
}
/*!
* @brief 指定された地点の地形IDを変更する /
* Create desired feature
* @return なし
*/
static void do_cmd_wiz_create_feature(void)
{
static int prev_feat = 0;
static int prev_mimic = 0;
cave_type *c_ptr;
feature_type *f_ptr;
char tmp_val[160];
int tmp_feat, tmp_mimic;
int y, x;
if (!tgt_pt(&x, &y)) return;
c_ptr = &cave[y][x];
/* Default */
sprintf(tmp_val, "%d", prev_feat);
/* Query */
if (!get_string(_("地形: ", "Feature: "), tmp_val, 3)) return;
/* Extract */
tmp_feat = atoi(tmp_val);
if (tmp_feat < 0) tmp_feat = 0;
else if (tmp_feat >= max_f_idx) tmp_feat = max_f_idx - 1;
/* Default */
sprintf(tmp_val, "%d", prev_mimic);
/* Query */
if (!get_string(_("地形 (mimic): ", "Feature (mimic): "), tmp_val, 3)) return;
/* Extract */
tmp_mimic = atoi(tmp_val);
if (tmp_mimic < 0) tmp_mimic = 0;
else if (tmp_mimic >= max_f_idx) tmp_mimic = max_f_idx - 1;
cave_set_feat(y, x, tmp_feat);
c_ptr->mimic = tmp_mimic;
f_ptr = &f_info[get_feat_mimic(c_ptr)];
if (have_flag(f_ptr->flags, FF_GLYPH) ||
have_flag(f_ptr->flags, FF_MINOR_GLYPH))
c_ptr->info |= (CAVE_OBJECT);
else if (have_flag(f_ptr->flags, FF_MIRROR))
c_ptr->info |= (CAVE_GLOW | CAVE_OBJECT);
/* Notice */
note_spot(y, x);
/* Redraw */
lite_spot(y, x);
/* Update some things */
p_ptr->update |= (PU_FLOW);
prev_feat = tmp_feat;
prev_mimic = tmp_mimic;
}
/*
* Favorite weapons
*/
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;
}
/*
* Returns random co-ordinates for player/monster/object
*/
bool new_player_spot(void)
{
int y = 0, x = 0;
int max_attempts = 10000;
cave_type *c_ptr;
feature_type *f_ptr;
/* Place the player */
while (max_attempts--)
{
/* Pick a legal spot */
y = rand_range(1, cur_hgt - 2);
x = rand_range(1, cur_wid - 2);
c_ptr = &cave[y][x];
/* Must be a "naked" floor grid */
if (c_ptr->m_idx) continue;
if (dun_level)
{
f_ptr = &f_info[c_ptr->feat];
if (max_attempts > 5000) /* Rule 1 */
{
if (!have_flag(f_ptr->flags, FF_FLOOR)) continue;
}
else /* Rule 2 */
{
if (!have_flag(f_ptr->flags, FF_MOVE)) continue;
if (have_flag(f_ptr->flags, FF_HIT_TRAP)) continue;
}
/* Refuse to start on anti-teleport grids in dungeon */
if (!have_flag(f_ptr->flags, FF_TELEPORTABLE)) continue;
}
if (!player_can_enter(c_ptr->feat, 0)) continue;
if (!in_bounds(y, x)) continue;
/* Refuse to start on anti-teleport grids */
if (c_ptr->info & (CAVE_ICKY)) continue;
/* Done */
break;
}
if (max_attempts < 1) /* Should be -1, actually if we failed... */
return FALSE;
/* Save the new player grid */
py = y;
px = x;
return TRUE;
}
static bool _absorb(object_type *o_ptr)
{
bool result = FALSE;
int i;
int div = 1;
object_kind *k_ptr = &k_info[o_ptr->k_idx];
u32b flags[TR_FLAG_SIZE];
object_flags(o_ptr, flags);
if (o_ptr->curse_flags & TRC_AGGRAVATE)
div++;
if (o_ptr->curse_flags & (TRC_TY_CURSE | TRC_HEAVY_CURSE))
div++;
if (!have_flag(flags, TR_ORDER) && !have_flag(flags, TR_WILD))
{
if (_add_essence(_ESSENCE_XTRA_DICE, (o_ptr->ds - k_ptr->ds)/1/*div?*/))
result = TRUE;
if (_add_essence(_ESSENCE_XTRA_DICE, (o_ptr->dd - k_ptr->dd)/1/*div?*/))
result = TRUE;
}
for (i = 0; i < TR_FLAG_MAX; i++)
{
if (_skip_flag(i)) continue;
if (have_flag(flags, i))
{
if (is_pval_flag(i))
{
if (_add_essence(i, o_ptr->pval/div))
result = TRUE;
}
else
{
_essences[i]++;
result = TRUE;
}
}
}
if (_add_essence(_ESSENCE_AC, o_ptr->to_a/div))
result = TRUE;
if (_add_essence(_ESSENCE_TO_HIT, o_ptr->to_h/div))
result = TRUE;
if (_add_essence(_ESSENCE_TO_DAM, o_ptr->to_d/div))
result = TRUE;
if (result)
{
p_ptr->update |= PU_BONUS;
msg_print("You grow stronger!");
}
return result;
}
void res_calc_bonuses(u32b flgs[TR_FLAG_SIZE])
{
int i;
for (i = RES_BEGIN; i < RES_END; i++)
{
_res_info_t m = _resist_map[i];
if (m.flg != TR_INVALID && have_flag(flgs, m.flg))
res_add(i);
if (m.vuln_flg != TR_INVALID && have_flag(flgs, m.vuln_flg))
res_add_vuln(i);
if (m.im_flg != TR_INVALID && have_flag(flgs, m.im_flg))
res_add_immune(i);
}
}
bool is_mirror_grid(cave_type *c_ptr)
{
if ((c_ptr->info & CAVE_OBJECT) && have_flag(f_info[c_ptr->mimic].flags, FF_MIRROR))
return TRUE;
else
return FALSE;
}
/*
* ! \brief unescape ASCII string into UTF-8. * counterpart to escape_path
* * usually used for path-names only. * * This function allocates memory
* which must be freed by the caller.
*/
char *unescape_path(const char *path, const char *flags)
{
char *unescaped_path;
int processedBytes;
if (serverInfo.LogLevel < LL_DEBUG)
fprintf(serverInfo.LogFile, "unescape_path: got path %s\n",
path);
if (have_flag("U") || serverInfo.do_encode) {
unescaped_path = malloc(MAX_FILENAME_LEN * sizeof(char));
if (unescaped_path == NULL) {
fprintf(serverInfo.LogFile, "%s:%d:: malloc error.",
__FILE__, __LINE__);
return NULL;
}
processedBytes =
u8_unescape(unescaped_path, MAX_FILENAME_LEN, (char *)path);
if (serverInfo.LogLevel < LL_DEBUG)
fprintf(serverInfo.LogFile,
"unescape_path: path=\"%s\", processedBytes=%d, strlen=%zd\n",
path, processedBytes, strlen(path));
return unescaped_path;
}
return (char *)path;
}
/*!
* @brief 装備への呪い付加判定と付加処理 /
* @param chance 呪いの基本確率
* @param heavy_chance 重い呪いを選択肢に入れるか否か。
* @return なし
*/
void curse_equipment(int chance, int heavy_chance)
{
bool changed = FALSE;
int curse_power = 0;
u32b new_curse;
u32b oflgs[TR_FLAG_SIZE];
object_type *o_ptr = &inventory[INVEN_RARM + randint0(12)];
char o_name[MAX_NLEN];
if (randint1(100) > chance) return;
if (!o_ptr->k_idx) return;
object_flags(o_ptr, oflgs);
object_desc(o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
/* Extra, biased saving throw for blessed items */
if (have_flag(oflgs, TR_BLESSED) && (randint1(888) > chance))
{
#ifdef JP
msg_format("%sは呪いを跳ね返した！", o_name,
#else
msg_format("Your %s resist%s cursing!", o_name,
#endif
((o_ptr->number > 1) ? "" : "s"));
/* Hmmm -- can we wear multiple items? If not, this is unnecessary */
return;
}
bool res_has_bonus(u32b flgs[TR_FLAG_SIZE])
{
int i;
for (i = RES_BEGIN; i < RES_END; i++)
{
_res_info_t m = _resist_map[i];
int net = 0;
if (m.im_flg != TR_INVALID && have_flag(flgs, m.im_flg))
return TRUE;
if (m.flg != TR_INVALID && have_flag(flgs, m.flg))
net++;
if (m.vuln_flg != TR_INVALID && have_flag(flgs, m.vuln_flg))
net--;
if (net)
return TRUE;
}
return FALSE;
}
static bool _fire_p(object_type *o_ptr)
{
u32b flgs[TR_FLAG_SIZE];
if (object_is_artifact(o_ptr)) return FALSE;
if (o_ptr->tval != TV_SCROLL && o_ptr->tval != TV_STAFF) return FALSE;
object_flags(o_ptr, flgs);
if (have_flag(flgs, TR_IGNORE_FIRE)) return FALSE;
return TRUE;
}
/*
* Set boundary mimic and add "solid" perma-wall
*/
static void set_bound_perm_wall(cave_type *c_ptr)
{
if (bound_walls_perm)
{
/* Clear boundary mimic */
c_ptr->mimic = 0;
}
else
{
feature_type *f_ptr = &f_info[c_ptr->feat];
/* Hack -- Decline boundary walls with known treasure */
if ((have_flag(f_ptr->flags, FF_HAS_GOLD) || have_flag(f_ptr->flags, FF_HAS_ITEM)) &&
!have_flag(f_ptr->flags, FF_SECRET))
c_ptr->feat = feat_state(c_ptr->feat, FF_ENSECRET);
/* Set boundary mimic */
c_ptr->mimic = c_ptr->feat;
}
/* Add "solid" perma-wall */
place_solid_perm_grid(c_ptr);
}
static bool _air_p(object_type *o_ptr)
{
u32b flgs[TR_FLAG_SIZE];
if (object_is_artifact(o_ptr)) return FALSE;
if ( o_ptr->tval != TV_RING
&& o_ptr->tval != TV_AMULET
&& o_ptr->tval != TV_WAND
&& o_ptr->tval != TV_ROD)
{
return FALSE;
}
object_flags(o_ptr, flgs);
if (have_flag(flgs, TR_IGNORE_ELEC)) return FALSE;
return TRUE;
}
static bool _create_shots(void)
{
int x, y, dir, slot;
cave_type *c_ptr;
object_type forge;
if (!get_rep_dir(&dir, FALSE))
return FALSE;
y = py + ddy[dir];
x = px + ddx[dir];
c_ptr = &cave[y][x];
if (!have_flag(f_info[get_feat_mimic(c_ptr)].flags, FF_CAN_DIG))
{
msg_print("You need pile of rubble.");
return FALSE;
}
if (!cave_have_flag_grid(c_ptr, FF_CAN_DIG) || !cave_have_flag_grid(c_ptr, FF_HURT_ROCK))
{
msg_print("You failed to make ammo.");
return FALSE;
}
object_prep(&forge, lookup_kind(TV_SHOT, m_bonus(1, p_ptr->lev) + 1));
forge.number = (byte)rand_range(15,30);
apply_magic(&forge, p_ptr->lev, AM_NO_FIXED_ART);
obj_identify(&forge);
forge.discount = 99;
msg_print("You make some ammo.");
slot = inven_carry(&forge);
if (slot >= 0)
autopick_alter_item(slot, FALSE);
cave_alter_feat(y, x, FF_HURT_ROCK);
p_ptr->update |= PU_FLOW;
return TRUE;
}
static void _water_process_world(void)
{
int inven_ct = 0;
int equip_ct = 0;
int chance = 15;
int i;
for (i = 0; i < INVEN_TOTAL; i++)
{
object_type *o_ptr = &inventory[i];
u32b flgs[TR_FLAG_SIZE];
char o_name[MAX_NLEN];
if (!o_ptr->k_idx) continue;
if (!object_is_armour(o_ptr)) continue;
if (randint0(1000) >= chance) continue;
if (o_ptr->ac + o_ptr->to_a <= 0) continue;
object_flags(o_ptr, flgs);
if (have_flag(flgs, TR_IGNORE_ACID)) continue;
object_desc(o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
msg_format("Your watery touch corrodes your %s!", o_name);
o_ptr->to_a--;
if (i >= EQUIP_BEGIN) ++equip_ct;
else ++inven_ct;
}
if (equip_ct)
{
p_ptr->update |= PU_BONUS;
p_ptr->window |= PW_EQUIP | PW_PLAYER;
}
if (equip_ct + inven_ct)
disturb(1, 0);
}
static void _calc_weapon_bonuses(object_type *o_ptr, weapon_info_t *info_ptr)
{
if (o_ptr->tval == TV_SWORD || o_ptr->tval == TV_POLEARM)
{
u32b flgs[OF_ARRAY_SIZE];
obj_flags(o_ptr, flgs);
if (have_flag(flgs, OF_BLESSED))
{
}
else if (is_evil_realm(p_ptr->realm1))
{
}
else
{
info_ptr->to_h -= 2;
info_ptr->dis_to_h -= 2;
info_ptr->to_d -= 2;
info_ptr->dis_to_d -= 2;
info_ptr->icky_wield = TRUE;
}
}
}
int main(int argc, char **argv) {
bench_inv_t data;
if (have_flag(argc, argv, "scalar") || have_flag(argc, argv, "add")) run_benchmark("scalar_add", bench_scalar_add, bench_setup, NULL, &data, 10, 2000000);
if (have_flag(argc, argv, "scalar") || have_flag(argc, argv, "negate")) run_benchmark("scalar_negate", bench_scalar_negate, bench_setup, NULL, &data, 10, 2000000);
if (have_flag(argc, argv, "scalar") || have_flag(argc, argv, "sqr")) run_benchmark("scalar_sqr", bench_scalar_sqr, bench_setup, NULL, &data, 10, 200000);
if (have_flag(argc, argv, "scalar") || have_flag(argc, argv, "mul")) run_benchmark("scalar_mul", bench_scalar_mul, bench_setup, NULL, &data, 10, 200000);
#ifdef USE_ENDOMORPHISM
if (have_flag(argc, argv, "scalar") || have_flag(argc, argv, "split")) run_benchmark("scalar_split", bench_scalar_split, bench_setup, NULL, &data, 10, 20000);
#endif
if (have_flag(argc, argv, "scalar") || have_flag(argc, argv, "inverse")) run_benchmark("scalar_inverse", bench_scalar_inverse, bench_setup, NULL, &data, 10, 2000);
if (have_flag(argc, argv, "scalar") || have_flag(argc, argv, "inverse")) run_benchmark("scalar_inverse_var", bench_scalar_inverse_var, bench_setup, NULL, &data, 10, 2000);
if (have_flag(argc, argv, "field") || have_flag(argc, argv, "normalize")) run_benchmark("field_normalize", bench_field_normalize, bench_setup, NULL, &data, 10, 2000000);
if (have_flag(argc, argv, "field") || have_flag(argc, argv, "normalize")) run_benchmark("field_normalize_weak", bench_field_normalize_weak, bench_setup, NULL, &data, 10, 2000000);
if (have_flag(argc, argv, "field") || have_flag(argc, argv, "sqr")) run_benchmark("field_sqr", bench_field_sqr, bench_setup, NULL, &data, 10, 200000);
if (have_flag(argc, argv, "field") || have_flag(argc, argv, "mul")) run_benchmark("field_mul", bench_field_mul, bench_setup, NULL, &data, 10, 200000);
if (have_flag(argc, argv, "field") || have_flag(argc, argv, "inverse")) run_benchmark("field_inverse", bench_field_inverse, bench_setup, NULL, &data, 10, 20000);
if (have_flag(argc, argv, "field") || have_flag(argc, argv, "inverse")) run_benchmark("field_inverse_var", bench_field_inverse_var, bench_setup, NULL, &data, 10, 20000);
if (have_flag(argc, argv, "field") || have_flag(argc, argv, "sqrt")) run_benchmark("field_sqrt_var", bench_field_sqrt_var, bench_setup, NULL, &data, 10, 20000);
if (have_flag(argc, argv, "group") || have_flag(argc, argv, "double")) run_benchmark("group_double_var", bench_group_double_var, bench_setup, NULL, &data, 10, 200000);
if (have_flag(argc, argv, "group") || have_flag(argc, argv, "add")) run_benchmark("group_add_var", bench_group_add_var, bench_setup, NULL, &data, 10, 200000);
if (have_flag(argc, argv, "group") || have_flag(argc, argv, "add")) run_benchmark("group_add_affine", bench_group_add_affine, bench_setup, NULL, &data, 10, 200000);
if (have_flag(argc, argv, "group") || have_flag(argc, argv, "add")) run_benchmark("group_add_affine_var", bench_group_add_affine_var, bench_setup, NULL, &data, 10, 200000);
if (have_flag(argc, argv, "ecmult") || have_flag(argc, argv, "wnaf")) run_benchmark("wnaf_const", bench_wnaf_const, bench_setup, NULL, &data, 10, 20000);
if (have_flag(argc, argv, "ecmult") || have_flag(argc, argv, "wnaf")) run_benchmark("ecmult_wnaf", bench_ecmult_wnaf, bench_setup, NULL, &data, 10, 20000);
if (have_flag(argc, argv, "hash") || have_flag(argc, argv, "sha256")) run_benchmark("hash_sha256", bench_sha256, bench_setup, NULL, &data, 10, 20000);
if (have_flag(argc, argv, "hash") || have_flag(argc, argv, "hmac")) run_benchmark("hash_hmac_sha256", bench_hmac_sha256, bench_setup, NULL, &data, 10, 20000);
if (have_flag(argc, argv, "hash") || have_flag(argc, argv, "rng6979")) run_benchmark("hash_rfc6979_hmac_sha256", bench_rfc6979_hmac_sha256, bench_setup, NULL, &data, 10, 20000);
if (have_flag(argc, argv, "context") || have_flag(argc, argv, "verify")) run_benchmark("context_verify", bench_context_verify, bench_setup, NULL, &data, 10, 20);
if (have_flag(argc, argv, "context") || have_flag(argc, argv, "sign")) run_benchmark("context_sign", bench_context_sign, bench_setup, NULL, &data, 10, 200);
return 0;
}
static bool _lite_is_darkness(object_type *lite)
{
if (lite->name2 == EGO_LITE_DARKNESS || have_flag(lite->art_flags, TR_DARKNESS))
return TRUE;
return FALSE;
}
/*
* Drop an item
*/
void do_cmd_drop(void)
{
int item, amt = 1;
object_type *o_ptr;
cptr q, s;
if (p_ptr->special_defense & KATA_MUSOU)
{
set_action(ACTION_NONE);
}
item_tester_no_ryoute = TRUE;
/* Get an item */
q = "Drop which item? ";
s = "You have nothing to drop.";
if (!get_item(&item, q, s, (USE_EQUIP | USE_INVEN))) return;
/* Get the item (in the pack) */
if (item >= 0)
{
o_ptr = &inventory[item];
/* Ugly hack! */
if ( object_is_melee_weapon(o_ptr)
&& equip_is_valid_slot(item)
&& p_ptr->pclass == CLASS_PSION
&& psion_weapon_graft() )
{
msg_print("Failed! Your weapon is currently grafted to your arm!");
return;
}
}
/* Get the item (on the floor) */
else
{
o_ptr = &o_list[0 - item];
}
/* Hack -- Cannot remove cursed items */
if (equip_is_valid_slot(item))
{
if (object_is_cursed(o_ptr))
{
msg_print("Hmmm, it seems to be cursed.");
return;
}
if (have_flag(o_ptr->art_flags, TR_NO_REMOVE))
{
msg_print("You can't drop yourself, silly!");
return;
}
}
if (o_ptr->tval == TV_POTION && o_ptr->sval == SV_POTION_BLOOD)
{
msg_print("You can't do that! Your blood will go sour!");
return;
}
/* See how many items */
if (o_ptr->number > 1)
{
/* Get a quantity */
amt = get_quantity(NULL, o_ptr->number);
/* Allow user abort */
if (amt <= 0) return;
}
/* Take a partial turn */
energy_use = 50;
/* Drop (some of) the item */
inven_drop(item, amt);
if (equip_is_valid_slot(item))
calc_android_exp();
p_ptr->redraw |= (PR_EQUIPPY);
}
bool mut_present(int mut_idx)
{
if (mut_idx < 0 || mut_idx >= MAX_MUTATIONS) return FALSE;
return have_flag(p_ptr->muta, mut_idx);
}
bool mut_locked(int mut_idx)
{
if (mut_idx < 0 || mut_idx >= MAX_MUTATIONS) return FALSE;
return have_flag(p_ptr->muta_lock, mut_idx);
}
static void _shooter_info_aux(doc_ptr doc, object_type *bow, object_type *arrow, int ct)
{
char o_name[MAX_NLEN];
u32b flgs[TR_FLAG_SIZE];
int mult;
int to_h = 0;
int to_d = 0;
int to_h_bow = 0;
int to_d_bow = 0;
int to_h_xtra = p_ptr->shooter_info.dis_to_h;
int to_d_xtra = p_ptr->shooter_info.dis_to_d;
int dd = arrow->dd;
int ds = arrow->ds;
critical_t crit = {0};
int num_fire = 0;
doc_ptr cols[2] = {0};
cols[0] = doc_alloc(60);
cols[1] = doc_alloc(10);
missile_flags_known(arrow, flgs);
mult = bow_mult(bow);
if (object_is_artifact(arrow))
num_fire = 100;
else if (p_ptr->shooter_info.num_fire)
num_fire = p_ptr->shooter_info.num_fire * 100 * 100 / bow_energy(bow->sval);
if (object_is_known(bow))
{
to_h_bow = bow->to_h;
to_d_bow = bow->to_d;
if (weaponmaster_is_(WEAPONMASTER_CROSSBOWS) && p_ptr->lev >= 15)
to_d_bow += 1 + p_ptr->lev/10;
}
if (object_is_known(arrow))
{
to_h = arrow->to_h;
to_d = arrow->to_d;
}
if (p_ptr->big_shot)
dd *= 2;
{
const int ct = 10 * 1000;
int i;
/* Compute Average Effects of Criticals by sampling */
for (i = 0; i < ct; i++)
{
critical_t tmp = critical_shot(arrow->weight, arrow->to_h);
if (tmp.desc)
{
crit.mul += tmp.mul;
crit.to_d += tmp.to_d;
}
else
crit.mul += 100;
}
crit.mul = crit.mul / ct;
crit.to_d = crit.to_d * 100 / ct;
}
/* First Column */
object_desc(o_name, arrow, OD_OMIT_INSCRIPTION | OD_COLOR_CODED);
doc_printf(cols[0], "<color:u> Ammo #%-2d</color>: <indent><style:indent>%s</style></indent>\n", ct, o_name);
doc_printf(cols[0], " %-8.8s: %d.%d lbs\n", "Weight", arrow->weight/10, arrow->weight%10);
doc_printf(cols[0], " %-8.8s: %d + %d = %d\n", "To Hit", to_h, to_h_bow + to_h_xtra, to_h + to_h_bow + to_h_xtra);
doc_printf(cols[0], " %-8.8s: %d + %d = %d (%s)\n", "To Dam", to_d, to_d_bow, to_d + to_d_bow, "Multiplier Applies");
doc_printf(cols[0], " <color:G>%-8.8s</color>\n", "Damage");
if (crit.to_d)
{
doc_printf(cols[0], " %-8.8s: %d.%02dx + %d.%02d\n", "Crits",
crit.mul/100, crit.mul%100, crit.to_d/100, crit.to_d%100);
}
else
{
doc_printf(cols[0], " %-8.8s: %d.%02dx\n", "Crits",
crit.mul/100, crit.mul%100);
}
to_d = to_d + to_d_bow;
mult = mult * crit.mul / 100;
to_d_xtra = to_d_xtra + crit.to_d/100;
_display_missile_slay(mult, 100, num_fire, dd, ds, to_d, to_d_xtra, "Normal", TERM_WHITE, cols[0]);
if (p_ptr->tim_force && p_ptr->csp > (p_ptr->msp / 30))
{
mult = mult * 3 / 2;
_display_missile_slay(mult, 100, num_fire, dd, ds, to_d, to_d_xtra, "Force", TERM_L_BLUE, cols[0]);
}
if (have_flag(flgs, TR_KILL_ANIMAL))
_display_missile_slay(mult, 270, num_fire, dd, ds, to_d, to_d_xtra, "Animals", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_ANIMAL))
_display_missile_slay(mult, 170, num_fire, dd, ds, to_d, to_d_xtra, "Animals", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_EVIL))
_display_missile_slay(mult, 250, num_fire, dd, ds, to_d, to_d_xtra, "Evil", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_EVIL))
_display_missile_slay(mult, 150, num_fire, dd, ds, to_d, to_d_xtra, "Evil", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_HUMAN))
_display_missile_slay(mult, 270, num_fire, dd, ds, to_d, to_d_xtra, "Human", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_HUMAN))
_display_missile_slay(mult, 170, num_fire, dd, ds, to_d, to_d_xtra, "Human", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_UNDEAD))
_display_missile_slay(mult, 300, num_fire, dd, ds, to_d, to_d_xtra, "Undead", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_UNDEAD))
_display_missile_slay(mult, 200, num_fire, dd, ds, to_d, to_d_xtra, "Undead", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_DEMON))
_display_missile_slay(mult, 300, num_fire, dd, ds, to_d, to_d_xtra, "Demons", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_DEMON))
_display_missile_slay(mult, 200, num_fire, dd, ds, to_d, to_d_xtra, "Demons", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_ORC))
_display_missile_slay(mult, 300, num_fire, dd, ds, to_d, to_d_xtra, "Orcs", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_ORC))
_display_missile_slay(mult, 200, num_fire, dd, ds, to_d, to_d_xtra, "Orcs", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_TROLL))
_display_missile_slay(mult, 300, num_fire, dd, ds, to_d, to_d_xtra, "Trolls", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_TROLL))
_display_missile_slay(mult, 200, num_fire, dd, ds, to_d, to_d_xtra, "Trolls", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_GIANT))
_display_missile_slay(mult, 300, num_fire, dd, ds, to_d, to_d_xtra, "Giants", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_GIANT))
_display_missile_slay(mult, 200, num_fire, dd, ds, to_d, to_d_xtra, "Giants", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_DRAGON))
_display_missile_slay(mult, 300, num_fire, dd, ds, to_d, to_d_xtra, "Dragons", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_DRAGON))
_display_missile_slay(mult, 200, num_fire, dd, ds, to_d, to_d_xtra, "Dragons", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_BRAND_ACID))
_display_missile_slay(mult, 170, num_fire, dd, ds, to_d, to_d_xtra, "Acid", TERM_RED, cols[0]);
if (have_flag(flgs, TR_BRAND_ELEC))
_display_missile_slay(mult, 170, num_fire, dd, ds, to_d, to_d_xtra, "Elec", TERM_RED, cols[0]);
if (have_flag(flgs, TR_BRAND_FIRE))
_display_missile_slay(mult, 170, num_fire, dd, ds, to_d, to_d_xtra, "Fire", TERM_RED, cols[0]);
if (have_flag(flgs, TR_BRAND_COLD))
_display_missile_slay(mult, 170, num_fire, dd, ds, to_d, to_d_xtra, "Cold", TERM_RED, cols[0]);
if (have_flag(flgs, TR_BRAND_POIS))
_display_missile_slay(mult, 170, num_fire, dd, ds, to_d, to_d_xtra, "Poison", TERM_RED, cols[0]);
/* Second Column */
to_h = to_h + to_h_bow + to_h_xtra;
doc_insert(cols[1], " <color:G>AC Hit</color>\n");
doc_printf(cols[1], "%3d %2d%%\n", 25, bow_hit_chance(bow->sval, to_h, 25));
doc_printf(cols[1], "%3d %2d%%\n", 50, bow_hit_chance(bow->sval, to_h, 50));
doc_printf(cols[1], "%3d %2d%%\n", 100, bow_hit_chance(bow->sval, to_h, 100));
doc_printf(cols[1], "%3d %2d%%\n", 150, bow_hit_chance(bow->sval, to_h, 150));
doc_printf(cols[1], "%3d %2d%%\n", 175, bow_hit_chance(bow->sval, to_h, 175));
doc_printf(cols[1], "%3d %2d%%\n", 200, bow_hit_chance(bow->sval, to_h, 200));
doc_insert_cols(doc, cols, 2, 1);
doc_free(cols[0]);
doc_free(cols[1]);
}
/*
* Place a random type of door at the given location
*/
void place_random_door(int y, int x, bool room)
{
int tmp, type;
s16b feat = feat_none;
cave_type *c_ptr = &cave[y][x];
/* Initialize mimic info */
c_ptr->mimic = 0;
/* if (dungeon_type == DUNGEON_ARENA)
{
place_rubble_bold(y, x);
return;
}*/
if (d_info[dungeon_type].flags1 & DF1_NO_DOORS)
{
place_floor_bold(y, x);
return;
}
type = ((d_info[dungeon_type].flags1 & DF1_CURTAIN) &&
one_in_((d_info[dungeon_type].flags1 & DF1_NO_CAVE) ? 16 : 256)) ? DOOR_CURTAIN :
((d_info[dungeon_type].flags1 & DF1_GLASS_DOOR) ? DOOR_GLASS_DOOR : DOOR_DOOR);
/* Choose an object */
tmp = randint0(1000);
/* Open doors (300/1000) */
if (tmp < 300)
{
/* Create open door */
feat = feat_door[type].open;
}
/* Broken doors (100/1000) */
else if (tmp < 400)
{
/* Create broken door */
feat = feat_door[type].broken;
}
/* Secret doors (200/1000) */
else if (tmp < 600)
{
/* Create secret door */
place_closed_door(y, x, type);
if (type != DOOR_CURTAIN)
{
/* Hide. If on the edge of room, use outer wall. */
c_ptr->mimic = room ? feat_wall_outer : fill_type[randint0(100)];
/* Floor type terrain cannot hide a door */
if (feat_supports_los(c_ptr->mimic) && !feat_supports_los(c_ptr->feat))
{
if (have_flag(f_info[c_ptr->mimic].flags, FF_MOVE) || have_flag(f_info[c_ptr->mimic].flags, FF_CAN_FLY))
{
c_ptr->feat = one_in_(2) ? c_ptr->mimic : floor_type[randint0(100)];
}
c_ptr->mimic = 0;
}
}
}
/* Closed, locked, or stuck doors (400/1000) */
else place_closed_door(y, x, type);
if (tmp < 400)
{
if (feat != feat_none)
{
set_cave_feat(y, x, feat);
}
else
{
place_floor_bold(y, x);
}
}
delete_monster(y, x);
}
/*!
* @brief 現在のフロアを離れるに伴って行なわれる保存処理
* / Maintain quest monsters, mark next floor_id at stairs, save current floor, and prepare to enter next floor.
* @return なし
*/
void leave_floor(void)
{
cave_type *c_ptr = NULL;
feature_type *f_ptr;
saved_floor_type *sf_ptr;
int quest_r_idx = 0;
DUNGEON_IDX i;
/* Preserve pets and prepare to take these to next floor */
preserve_pet();
/* Remove all mirrors without explosion */
remove_all_mirrors(FALSE);
if (p_ptr->special_defense & NINJA_S_STEALTH) set_superstealth(FALSE);
/* New floor is not yet prepared */
new_floor_id = 0;
/* Temporary get a floor_id (for Arena) */
if (!p_ptr->floor_id &&
(change_floor_mode & CFM_SAVE_FLOORS) &&
!(change_floor_mode & CFM_NO_RETURN))
{
/* Get temporal floor_id */
p_ptr->floor_id = get_new_floor_id();
}
/* Search the quest monster index */
for (i = 0; i < max_q_idx; i++)
{
if ((quest[i].status == QUEST_STATUS_TAKEN) &&
((quest[i].type == QUEST_TYPE_KILL_LEVEL) ||
(quest[i].type == QUEST_TYPE_RANDOM)) &&
(quest[i].level == dun_level) &&
(dungeon_type == quest[i].dungeon) &&
!(quest[i].flags & QUEST_FLAG_PRESET))
{
quest_r_idx = quest[i].r_idx;
}
}
/* Maintain quest monsters */
for (i = 1; i < m_max; i++)
{
monster_race *r_ptr;
monster_type *m_ptr = &m_list[i];
/* Skip dead monsters */
if (!m_ptr->r_idx) continue;
/* Only maintain quest monsters */
if (quest_r_idx != m_ptr->r_idx) continue;
/* Extract real monster race */
r_ptr = real_r_ptr(m_ptr);
/* Ignore unique monsters */
if ((r_ptr->flags1 & RF1_UNIQUE) ||
(r_ptr->flags7 & RF7_NAZGUL)) continue;
/* Delete non-unique quest monsters */
delete_monster_idx(i);
}
/* Check if there is a same item */
for (i = 0; i < INVEN_PACK; i++)
{
object_type *o_ptr = &inventory[i];
/* Skip dead objects */
if (!o_ptr->k_idx) continue;
/* Delete old memorized location of the artifact */
if (object_is_fixed_artifact(o_ptr))
{
a_info[o_ptr->name1].floor_id = 0;
}
}
/* Extract current floor info or NULL */
sf_ptr = get_sf_ptr(p_ptr->floor_id);
/* Choose random stairs */
if ((change_floor_mode & CFM_RAND_CONNECT) && p_ptr->floor_id)
{
locate_connected_stairs(sf_ptr);
}
/* Extract new dungeon level */
if (change_floor_mode & CFM_SAVE_FLOORS)
{
/* Extract stair position */
c_ptr = &cave[p_ptr->y][p_ptr->x];
f_ptr = &f_info[c_ptr->feat];
/* Get back to old saved floor? */
if (c_ptr->special && !have_flag(f_ptr->flags, FF_SPECIAL) && get_sf_ptr(c_ptr->special))
{
/* Saved floor is exist. Use it. */
new_floor_id = c_ptr->special;
}
/* Mark shaft up/down */
if (have_flag(f_ptr->flags, FF_STAIRS) && have_flag(f_ptr->flags, FF_SHAFT))
{
prepare_change_floor_mode(CFM_SHAFT);
}
}
/* Climb up/down some sort of stairs */
if (change_floor_mode & (CFM_DOWN | CFM_UP))
{
int move_num = 0;
/* Extract level movement number */
if (change_floor_mode & CFM_DOWN) move_num = 1;
else if (change_floor_mode & CFM_UP) move_num = -1;
/* Shafts are deeper than normal stairs */
if (change_floor_mode & CFM_SHAFT)
move_num += SGN(move_num);
/* Get out from or Enter the dungeon */
if (change_floor_mode & CFM_DOWN)
{
if (!dun_level)
move_num = d_info[dungeon_type].mindepth;
}
else if (change_floor_mode & CFM_UP)
{
if (dun_level + move_num < d_info[dungeon_type].mindepth)
move_num = -dun_level;
}
dun_level += move_num;
}
/* Leaving the dungeon to town */
if (!dun_level && dungeon_type)
{
p_ptr->leaving_dungeon = TRUE;
if (!vanilla_town && !lite_town)
{
p_ptr->wilderness_y = d_info[dungeon_type].dy;
p_ptr->wilderness_x = d_info[dungeon_type].dx;
}
p_ptr->recall_dungeon = dungeon_type;
dungeon_type = 0;
/* Reach to the surface -- Clear all saved floors */
change_floor_mode &= ~CFM_SAVE_FLOORS;
}
/* Kill some old saved floors */
if (!(change_floor_mode & CFM_SAVE_FLOORS))
{
/* Kill all saved floors */
for (i = 0; i < MAX_SAVED_FLOORS; i++)
kill_saved_floor(&saved_floors[i]);
/* Reset visit_mark count */
latest_visit_mark = 1;
}
else if (change_floor_mode & CFM_NO_RETURN)
{
/* Kill current floor */
kill_saved_floor(sf_ptr);
}
/* No current floor -- Left/Enter dungeon etc... */
if (!p_ptr->floor_id)
{
/* No longer need to save current floor */
return;
}
/* Mark next floor_id on the previous floor */
if (!new_floor_id)
{
/* Get new id */
new_floor_id = get_new_floor_id();
/* Connect from here */
if (c_ptr && !feat_uses_special(c_ptr->feat))
{
c_ptr->special = new_floor_id;
}
}
/* Fix connection -- level teleportation or trap door */
if (change_floor_mode & CFM_RAND_CONNECT)
{
if (change_floor_mode & CFM_UP)
sf_ptr->upper_floor_id = new_floor_id;
else if (change_floor_mode & CFM_DOWN)
sf_ptr->lower_floor_id = new_floor_id;
}
/* If you can return, you need to save previous floor */
if ((change_floor_mode & CFM_SAVE_FLOORS) &&
!(change_floor_mode & CFM_NO_RETURN))
{
/* Get out of the my way! */
get_out_monster();
/* Record the last visit turn of current floor */
sf_ptr->last_visit = turn;
/* Forget the lite */
forget_lite();
/* Forget the view */
forget_view();
/* Forget the view */
clear_mon_lite();
/* Save current floor */
if (!save_floor(sf_ptr, 0))
{
/* Save failed -- No return */
prepare_change_floor_mode(CFM_NO_RETURN);
/* Kill current floor */
kill_saved_floor(get_sf_ptr(p_ptr->floor_id));
}
}
}
/*
* Wield or wear a single item from the pack or floor
*/
void do_cmd_wield(void)
{
int i, item, slot;
object_type forge;
object_type *q_ptr;
object_type *o_ptr;
cptr act;
char o_name[MAX_NLEN];
cptr q, s;
int need_switch_wielding = 0;
if (p_ptr->special_defense & KATA_MUSOU)
{
set_action(ACTION_NONE);
}
/* Restrict the choices */
item_tester_hook = item_tester_hook_wear;
/* Get an item */
#ifdef JP
q = "どれを装備しますか? ";
s = "装備可能なアイテムがない。";
#else
q = "Wear/Wield which item? ";
s = "You have nothing you can wear or wield.";
#endif
if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR))) return;
/* Get the item (in the pack) */
if (item >= 0)
{
o_ptr = &inventory[item];
}
/* Get the item (on the floor) */
else
{
o_ptr = &o_list[0 - item];
}
/* Check the slot */
slot = wield_slot(o_ptr);
/* Ugly hack! */
if ( object_is_melee_weapon(o_ptr)
&& p_ptr->pclass == CLASS_PSION
&& psion_weapon_graft() )
{
msg_print("Failed! Your weapon is currently grafted to your arm!");
return;
}
switch (o_ptr->tval)
{
/* Shields and some misc. items */
case TV_CAPTURE:
case TV_SHIELD:
case TV_CARD:
/* Dual wielding */
if (buki_motteruka(INVEN_RARM) && buki_motteruka(INVEN_LARM))
{
/* Restrict the choices */
item_tester_hook = item_tester_hook_melee_weapon;
item_tester_no_ryoute = TRUE;
/* Choose a weapon from the equipment only */
#ifdef JP
q = "どちらの武器と取り替えますか?";
s = "おっと。";
#else
q = "Replace which weapon? ";
s = "Oops.";
#endif
if (!get_item(&slot, q, s, (USE_EQUIP))) return;
if (slot == INVEN_RARM) need_switch_wielding = INVEN_LARM;
}
else if (buki_motteruka(INVEN_LARM)) slot = INVEN_RARM;
/* Both arms are already used by non-weapon */
else if (inventory[INVEN_RARM].k_idx && !object_is_melee_weapon(&inventory[INVEN_RARM]) &&
inventory[INVEN_LARM].k_idx && !object_is_melee_weapon(&inventory[INVEN_LARM]))
{
/* Restrict the choices */
item_tester_hook = item_tester_hook_mochikae;
/* Choose a hand */
#ifdef JP
q = "どちらの手に装備しますか?";
s = "おっと。";
#else
q = "Equip which hand? ";
s = "Oops.";
#endif
if (!get_item(&slot, q, s, (USE_EQUIP))) return;
}
break;
/* Melee weapons */
case TV_DIGGING:
case TV_HAFTED:
case TV_POLEARM:
case TV_SWORD:
/* Asking for dual wielding */
if (slot == INVEN_LARM)
{
#ifdef JP
if (!get_check("二刀流で戦いますか？")) slot = INVEN_RARM;
#else
if (!get_check("Dual wielding? ")) slot = INVEN_RARM;
#endif
}
else if (!inventory[INVEN_RARM].k_idx && buki_motteruka(INVEN_LARM))
{
#ifdef JP
if (!get_check("二刀流で戦いますか？")) slot = INVEN_LARM;
#else
if (!get_check("Dual wielding? ")) slot = INVEN_LARM;
#endif
}
/* Both arms are already used */
else if (inventory[INVEN_LARM].k_idx && inventory[INVEN_RARM].k_idx)
{
/* Restrict the choices */
item_tester_hook = item_tester_hook_mochikae;
/* Choose a hand */
#ifdef JP
q = "どちらの手に装備しますか?";
s = "おっと。";
#else
q = "Equip which hand? ";
s = "Oops.";
#endif
if (!get_item(&slot, q, s, (USE_EQUIP))) return;
if ((slot == INVEN_LARM) && !buki_motteruka(INVEN_RARM))
need_switch_wielding = INVEN_RARM;
}
break;
/* Rings */
case TV_RING:
/* Choose a ring slot */
if (inventory[INVEN_LEFT].k_idx && inventory[INVEN_RIGHT].k_idx)
{
#ifdef JP
q = "どちらの指輪と取り替えますか?";
#else
q = "Replace which ring? ";
#endif
}
else
{
#ifdef JP
q = "どちらの手に装備しますか?";
#else
q = "Equip which hand? ";
#endif
}
#ifdef JP
s = "おっと。";
#else
s = "Oops.";
#endif
/* Restrict the choices */
select_ring_slot = TRUE;
item_tester_no_ryoute = TRUE;
if (!get_item(&slot, q, s, (USE_EQUIP)))
{
select_ring_slot = FALSE;
return;
}
select_ring_slot = FALSE;
break;
}
/* Prevent wielding into a cursed slot */
if (object_is_cursed(&inventory[slot]))
{
/* Describe it */
object_desc(o_name, &inventory[slot], (OD_OMIT_PREFIX | OD_NAME_ONLY));
/* Message */
#ifdef JP
msg_format("%s%sは呪われているようだ。",
describe_use(slot) , o_name );
#else
msg_format("The %s you are %s appears to be cursed.",
o_name, describe_use(slot));
#endif
/* Cancel the command */
return;
}
if (have_flag(inventory[slot].art_flags, TR_SIGNATURE))
{
object_desc(o_name, &inventory[slot], (OD_OMIT_PREFIX | OD_NAME_ONLY));
msg_format("The %s you are %s is your signature item and may not be removed.",
o_name, describe_use(slot));
return;
}
if (confirm_wear &&
((object_is_cursed(o_ptr) && object_is_known(o_ptr)) ||
((o_ptr->ident & IDENT_SENSE) &&
(FEEL_BROKEN <= o_ptr->feeling) && (o_ptr->feeling <= FEEL_CURSED))))
{
char dummy[MAX_NLEN+80];
/* Describe it */
object_desc(o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
#ifdef JP
sprintf(dummy, "本当に%s{呪われている}を使いますか？", o_name);
#else
sprintf(dummy, "Really use the %s {cursed}? ", o_name);
#endif
if (!get_check(dummy)) return;
}
if ((o_ptr->name1 == ART_STONEMASK) && object_is_known(o_ptr) && (p_ptr->prace != RACE_VAMPIRE) && (p_ptr->prace != RACE_ANDROID) && (p_ptr->pclass != CLASS_BLOOD_KNIGHT))
{
char dummy[MAX_NLEN+80];
/* Describe it */
object_desc(o_name, o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
#ifdef JP
sprintf(dummy, "%sを装備すると吸血鬼になります。よろしいですか？", o_name);
#else
msg_format("%s will transforms you into a vampire permanently when equiped.", o_name);
sprintf(dummy, "Do you become a vampire?");
#endif
if (!get_check(dummy)) return;
}
if (need_switch_wielding && !object_is_cursed(&inventory[need_switch_wielding]))
{
object_type *slot_o_ptr = &inventory[slot];
object_type *switch_o_ptr = &inventory[need_switch_wielding];
object_type object_tmp;
object_type *otmp_ptr = &object_tmp;
char switch_name[MAX_NLEN];
object_desc(switch_name, switch_o_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
object_copy(otmp_ptr, switch_o_ptr);
object_copy(switch_o_ptr, slot_o_ptr);
object_copy(slot_o_ptr, otmp_ptr);
#ifdef JP
msg_format("%sを%sに構えなおした。", switch_name, (slot == INVEN_RARM) ? (left_hander ? "左手" : "右手") : (left_hander ? "右手" : "左手"));
#else
msg_format("You wield %s at %s hand.", switch_name, (slot == INVEN_RARM) ? (left_hander ? "left" : "right") : (left_hander ? "right" : "left"));
#endif
slot = need_switch_wielding;
}
/* Check if completed a quest */
for (i = 0; i < max_quests; i++)
{
if ((quest[i].type == QUEST_TYPE_FIND_ARTIFACT) &&
(quest[i].status == QUEST_STATUS_TAKEN) &&
(quest[i].k_idx == o_ptr->name1 || quest[i].k_idx == o_ptr->name3))
{
if (record_fix_quest) do_cmd_write_nikki(NIKKI_FIX_QUEST_C, i, NULL);
quest[i].status = QUEST_STATUS_COMPLETED;
quest[i].complev = (byte)p_ptr->lev;
#ifdef JP
msg_print("クエストを達成した！");
#else
msg_print("You completed the quest!");
#endif
msg_print(NULL);
}
}
if (p_ptr->personality == PERS_MUNCHKIN)
{
identify_item(o_ptr);
/* Auto-inscription */
autopick_alter_item(item, FALSE);
}
/* Take a turn */
energy_use = weaponmaster_wield_hack(o_ptr);
/* Get local object */
q_ptr = &forge;
/* Obtain local object */
object_copy(q_ptr, o_ptr);
/* Modify quantity */
q_ptr->number = 1;
/* Decrease the item (from the pack) */
if (item >= 0)
{
inven_item_increase(item, -1);
inven_item_optimize(item);
}
/* Decrease the item (from the floor) */
else
{
floor_item_increase(0 - item, -1);
floor_item_optimize(0 - item);
}
/* Access the wield slot */
o_ptr = &inventory[slot];
/* Take off existing item */
if (o_ptr->k_idx)
{
/* Take off existing item */
(void)inven_takeoff(slot, 255);
}
/* Wear the new stuff */
object_copy(o_ptr, q_ptr);
/* Player touches it */
o_ptr->marked |= OM_TOUCHED;
/* Increase the weight */
p_ptr->total_weight += q_ptr->weight;
/* Increment the equip counter by hand */
equip_cnt++;
#ifdef JP
#define STR_WIELD_RARM "%s(%c)を右手に装備した。"
#define STR_WIELD_LARM "%s(%c)を左手に装備した。"
#define STR_WIELD_ARMS "%s(%c)を両手で構えた。"
#else
#define STR_WIELD_RARM "You are wielding %s (%c) in your right hand."
#define STR_WIELD_LARM "You are wielding %s (%c) in your left hand."
#define STR_WIELD_ARMS "You are wielding %s (%c) with both hands."
#endif
/* Where is the item now */
switch (slot)
{
case INVEN_RARM:
if (object_allow_two_hands_wielding(o_ptr) && (empty_hands(FALSE) == EMPTY_HAND_LARM) && CAN_TWO_HANDS_WIELDING())
act = STR_WIELD_ARMS;
else
act = (left_hander ? STR_WIELD_LARM : STR_WIELD_RARM);
break;
case INVEN_LARM:
if (object_allow_two_hands_wielding(o_ptr) && (empty_hands(FALSE) == EMPTY_HAND_RARM) && CAN_TWO_HANDS_WIELDING())
act = STR_WIELD_ARMS;
else
act = (left_hander ? STR_WIELD_RARM : STR_WIELD_LARM);
break;
case INVEN_BOW:
#ifdef JP
act = "%s(%c)を射撃用に装備した。";
#else
act = "You are shooting with %s (%c).";
#endif
break;
case INVEN_LITE:
#ifdef JP
act = "%s(%c)を光源にした。";
#else
act = "Your light source is %s (%c).";
#endif
break;
default:
#ifdef JP
act = "%s(%c)を装備した。";
#else
act = "You are wearing %s (%c).";
#endif
break;
}
/* Describe the result */
object_desc(o_name, o_ptr, 0);
/* Message */
msg_format(act, o_name, index_to_label(slot));
/* Cursed! */
if (object_is_cursed(o_ptr))
{
/* Warn the player */
#ifdef JP
msg_print("うわ！ すさまじく冷たい！");
#else
msg_print("Oops! It feels deathly cold!");
#endif
chg_virtue(V_HARMONY, -1);
/* Note the curse */
o_ptr->ident |= (IDENT_SENSE);
}
if (o_ptr->name1 == ART_HAND_OF_VECNA)
{
msg_print("You chop off your own hand to wield the Hand of Vecna!");
set_cut(CUT_MORTAL_WOUND, FALSE);
}
if (o_ptr->name1 == ART_EYE_OF_VECNA)
{
msg_print("You pluck out your own eye to wield the Eye of Vecna!");
set_cut(CUT_MORTAL_WOUND, FALSE);
}
/* The Stone Mask make the player turn into a vampire! */
if ((o_ptr->name1 == ART_STONEMASK) && (p_ptr->prace != RACE_VAMPIRE) && (p_ptr->prace != RACE_ANDROID) && (p_ptr->pclass != CLASS_BLOOD_KNIGHT) && (p_ptr->pclass != CLASS_BLOOD_MAGE))
{
/* Turn into a vampire */
change_race(RACE_VAMPIRE, "");
}
/* Recalculate bonuses */
p_ptr->update |= (PU_BONUS);
/* Recalculate torch */
p_ptr->update |= (PU_TORCH);
/* Recalculate mana */
p_ptr->update |= (PU_MANA);
p_ptr->redraw |= (PR_EQUIPPY);
/* Window stuff */
p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_PLAYER);
calc_android_exp();
}
void display_weapon_info(doc_ptr doc, int hand)
{
object_type *o_ptr = equip_obj(p_ptr->weapon_info[hand].slot);
char o_name[MAX_NLEN];
u32b flgs[TR_FLAG_SIZE];
int dd;
int ds;
int to_d = 0;
int to_h = 0;
int mult;
critical_t crit = {0};
int crit_pct = 0;
int num_blow = NUM_BLOWS(hand);
bool force = FALSE;
doc_ptr cols[2] = {0};
if (p_ptr->weapon_info[hand].wield_how == WIELD_NONE) return;
if (!o_ptr) return;
dd = o_ptr->dd + p_ptr->weapon_info[hand].to_dd;
ds = o_ptr->ds + p_ptr->weapon_info[hand].to_ds;
if (object_is_known(o_ptr))
{
to_d = o_ptr->to_d;
to_h = o_ptr->to_h;
}
switch (display_weapon_mode)
{
case MAULER_STUNNING_BLOW:
case MAULER_CRITICAL_BLOW:
case MAULER_CRUSHING_BLOW:
case MAULER_KNOCKBACK:
num_blow = 100;
break;
case MAULER_KNOCKOUT_BLOW:
num_blow = 100;
to_h -= 50;
break;
case PY_POWER_ATTACK:
to_h += 10;
to_d += p_ptr->lev / 2;
break;
}
weapon_flags_known(hand, flgs);
if ( (have_flag(flgs, TR_FORCE_WEAPON) || p_ptr->tim_force)
&& (p_ptr->csp > o_ptr->dd*o_ptr->ds/5) )
{
force = TRUE;
}
if (weaponmaster_get_toggle() == TOGGLE_SHIELD_BASH && object_is_shield(o_ptr))
{
dd = 3 + p_ptr->weapon_info[hand].to_dd;
ds = o_ptr->ac + p_ptr->weapon_info[hand].to_ds;
if (object_is_known(o_ptr))
{
to_h = o_ptr->to_a;
to_d = o_ptr->to_a;
to_h += 2*o_ptr->to_h;
to_d += 2*o_ptr->to_d;
}
}
mult = 100;
if (have_flag(flgs, TR_VORPAL2))
mult = mult * 5 / 3;
else if (have_flag(flgs, TR_VORPAL))
mult = mult * 11 / 9;
mult += mult * p_ptr->weapon_info[hand].to_mult / 100;
if (display_weapon_mode == MAULER_CRUSHING_BLOW)
{
int d = p_ptr->lev/5;
int n = 10*(1 + d)/2; /* scale by 10 */
mult = mult * (50 + n)/30;
}
if (!have_flag(flgs, TR_ORDER))
{
const int attempts = 10 * 1000;
int i;
int crits = 0;
/* Compute Average Effects of Criticals by sampling */
for (i = 0; i < attempts; i++)
{
critical_t tmp = critical_norm(o_ptr->weight, to_h, p_ptr->weapon_info[hand].to_h, display_weapon_mode, hand);
if (tmp.desc)
{
crit.mul += tmp.mul;
crit.to_d += tmp.to_d;
crits++;
}
else
crit.mul += 100;
}
crit.mul = crit.mul / attempts;
crit.to_d = crit.to_d * 100 / attempts;
crit_pct = crits * 1000 / attempts;
}
else
crit.mul = 100;
/* Display in 2 columns, side by side */
cols[0] = doc_alloc(60);
cols[1] = doc_alloc(10);
/* Column #1 */
object_desc(o_name, o_ptr, OD_COLOR_CODED | OD_NAME_AND_ENCHANT);
if (prace_is_(RACE_MON_SWORD))
doc_printf(cols[0], "<color:y> You :</color> <indent><style:indent>%s</style></indent>\n", o_name);
else
doc_printf(cols[0], "<color:y> Hand #%d:</color> <indent><style:indent>%s</style></indent>\n", hand+1, o_name);
doc_printf(cols[0], " %-7.7s: %d.%d lbs\n", "Weight", o_ptr->weight/10, o_ptr->weight%10);
if (weaponmaster_get_toggle() == TOGGLE_SHIELD_BASH)
{
assert(o_ptr->tval == TV_SHIELD);
doc_printf(cols[0], " %-7.7s: %dd%d (%+d,%+d)\n", "Bash", dd, ds, to_h, to_d);
doc_printf(cols[0], " %-7.7s: %s (%+d To Hit)\n",
"Profic",
skills_shield_describe_current(o_ptr->sval),
skills_shield_calc_bonus(o_ptr->sval));
}
else
{
doc_printf(cols[0], " %-7.7s: %s (%+d To Hit)\n",
"Profic",
skills_weapon_describe_current(o_ptr->tval, o_ptr->sval),
skills_weapon_calc_bonus(o_ptr->tval, o_ptr->sval));
}
doc_printf(cols[0], " %-7.7s: %d + %d = %d\n", "To Hit", to_h, p_ptr->weapon_info[hand].to_h, to_h + p_ptr->weapon_info[hand].to_h);
doc_printf(cols[0], " %-7.7s: %d + %d = %d\n", "To Dam", to_d, p_ptr->weapon_info[hand].to_d, to_d + p_ptr->weapon_info[hand].to_d);
doc_printf(cols[0], " %-7.7s: %d.%2.2d\n", "Blows", num_blow/100, num_blow%100);
if (p_ptr->weapon_info[hand].dual_wield_pct < 1000)
{
doc_printf(cols[0], " %-7.7s: %d.%d%%\n", "Skill",
p_ptr->weapon_info[hand].dual_wield_pct/ 10,
p_ptr->weapon_info[hand].dual_wield_pct % 10);
}
mult = mult * crit.mul / 100;
to_d = to_d + crit.to_d/100 + p_ptr->weapon_info[hand].to_d;
doc_printf(cols[0], "<color:G> %-7.7s</color>\n", "Damage");
if (!have_flag(flgs, TR_ORDER))
{
if (crit.to_d)
{
doc_printf(cols[0], " %-7.7s: %d.%02dx + %d.%02d\n", "Crits",
crit.mul/100, crit.mul%100, crit.to_d/100, crit.to_d%100);
}
else
{
doc_printf(cols[0], " %-7.7s: %d.%02dx (%d.%d%%)\n", "Crits",
crit.mul/100, crit.mul%100, crit_pct / 10, crit_pct % 10);
}
}
if (p_ptr->weapon_info[hand].to_mult)
{
int m = 100 + p_ptr->weapon_info[hand].to_mult;
doc_printf(cols[0], " %-7.7s: %d.%02dx\n", "Mauler", m / 100, m % 100);
}
_display_weapon_slay(mult, 100, FALSE, num_blow, dd, ds, to_d, "Normal", TERM_WHITE, cols[0]);
if (force)
_display_weapon_slay(mult, 100, force, num_blow, dd, ds, to_d, "Force", TERM_L_BLUE, cols[0]);
if (p_ptr->tim_slay_sentient)
_display_weapon_slay(mult, 200, force, num_blow, dd, ds, to_d, "Sent.", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_ANIMAL))
_display_weapon_slay(mult, 400, force, num_blow, dd, ds, to_d, "Animals", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_ANIMAL))
_display_weapon_slay(mult, 250, force, num_blow, dd, ds, to_d, "Animals", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_EVIL))
_display_weapon_slay(mult, 350, force, num_blow, dd, ds, to_d, "Evil", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_EVIL))
_display_weapon_slay(mult, 200, force, num_blow, dd, ds, to_d, "Evil", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_SLAY_GOOD))
_display_weapon_slay(mult, 200, force, num_blow, dd, ds, to_d, "Good", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_SLAY_LIVING))
_display_weapon_slay(mult, 200, force, num_blow, dd, ds, to_d, "Living", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_HUMAN))
_display_weapon_slay(mult, 400, force, num_blow, dd, ds, to_d, "Human", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_HUMAN))
_display_weapon_slay(mult, 250, force, num_blow, dd, ds, to_d, "Human", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_UNDEAD))
_display_weapon_slay(mult, 500, force, num_blow, dd, ds, to_d, "Undead", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_UNDEAD))
_display_weapon_slay(mult, 300, force, num_blow, dd, ds, to_d, "Undead", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_DEMON))
_display_weapon_slay(mult, 500, force, num_blow, dd, ds, to_d, "Demons", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_DEMON))
_display_weapon_slay(mult, 300, force, num_blow, dd, ds, to_d, "Demons", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_ORC))
_display_weapon_slay(mult, 500, force, num_blow, dd, ds, to_d, "Orcs", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_ORC))
_display_weapon_slay(mult, 300, force, num_blow, dd, ds, to_d, "Orcs", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_TROLL))
_display_weapon_slay(mult, 500, force, num_blow, dd, ds, to_d, "Trolls", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_TROLL))
_display_weapon_slay(mult, 300, force, num_blow, dd, ds, to_d, "Trolls", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_GIANT))
_display_weapon_slay(mult, 500, force, num_blow, dd, ds, to_d, "Giants", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_GIANT))
_display_weapon_slay(mult, 300, force, num_blow, dd, ds, to_d, "Giants", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_KILL_DRAGON))
_display_weapon_slay(mult, 500, force, num_blow, dd, ds, to_d, "Dragons", TERM_YELLOW, cols[0]);
else if (have_flag(flgs, TR_SLAY_DRAGON))
_display_weapon_slay(mult, 300, force, num_blow, dd, ds, to_d, "Dragons", TERM_YELLOW, cols[0]);
if (have_flag(flgs, TR_BRAND_ACID))
_display_weapon_slay(mult, 250, force, num_blow, dd, ds, to_d, "Acid", TERM_RED, cols[0]);
if (have_flag(flgs, TR_BRAND_ELEC))
_display_weapon_slay(mult, 250, force, num_blow, dd, ds, to_d, "Elec", TERM_RED, cols[0]);
if (have_flag(flgs, TR_BRAND_FIRE))
_display_weapon_slay(mult, 250, force, num_blow, dd, ds, to_d, "Fire", TERM_RED, cols[0]);
if (have_flag(flgs, TR_BRAND_COLD))
_display_weapon_slay(mult, 250, force, num_blow, dd, ds, to_d, "Cold", TERM_RED, cols[0]);
if (have_flag(flgs, TR_BRAND_POIS))
_display_weapon_slay(mult, 250, force, num_blow, dd, ds, to_d, "Poison", TERM_RED, cols[0]);
if (p_ptr->weapon_info[hand].wield_how == WIELD_TWO_HANDS)
{
if (p_ptr->weapon_info[hand].omoi)
doc_insert(cols[0], " Your weapon requires two hands to wield properly.\n");
}
if (p_ptr->weapon_info[hand].info)
{
byte a = p_ptr->weapon_info[hand].info_attr;
if (!a) a = TERM_WHITE; /* uninitialized is TERM_DARK???! */
doc_printf(cols[0], " <color:%c>%s</color>\n", attr_to_attr_char(a), p_ptr->weapon_info[hand].info);
}
/* Column #1 */
doc_insert(cols[1], "<color:G>Accuracy</color>\n");
doc_insert(cols[1], " AC Hit\n");
doc_printf(cols[1], "%3d %2d%%\n", 25, hit_chance(hand, to_h, 25));
doc_printf(cols[1], "%3d %2d%%\n", 50, hit_chance(hand, to_h, 50));
doc_printf(cols[1], "%3d %2d%%\n", 75, hit_chance(hand, to_h, 75));
doc_printf(cols[1], "%3d %2d%%\n", 100, hit_chance(hand, to_h, 100));
doc_printf(cols[1], "%3d %2d%%\n", 125, hit_chance(hand, to_h, 125));
doc_printf(cols[1], "%3d %2d%%\n", 150, hit_chance(hand, to_h, 150));
doc_printf(cols[1], "%3d %2d%%\n", 175, hit_chance(hand, to_h, 175));
doc_printf(cols[1], "%3d %2d%%\n", 200, hit_chance(hand, to_h, 200));
/* Assemble the result */
doc_insert_cols(doc, cols, 2, 1);
doc_free(cols[0]);
doc_free(cols[1]);
}
static _blow_info_t _get_blow_info(int hand)
{
_blow_info_t result = {0};
int arm = hand / 2;
object_type *o_ptr = equip_obj(p_ptr->weapon_info[hand].slot);
if (!o_ptr) return result;
/* TODO: Use race_ptr and class_ptr instead of this giant switch ... */
switch (p_ptr->pclass)
{
case CLASS_WARRIOR:
result.num = 600; result.wgt = 70; result.mul = 50 + p_ptr->lev/2;
break;
case CLASS_MAULER:
result.num = 175; result.wgt = 280; result.mul = 75; break;
case CLASS_BERSERKER:
result.num = 600; result.wgt = 70; result.mul = 75; break;
case CLASS_RAGE_MAGE:
result.num = 300; result.wgt = 70; result.mul = 30; break;
case CLASS_MAGE:
case CLASS_NECROMANCER:
case CLASS_BLOOD_MAGE:
case CLASS_HIGH_MAGE:
case CLASS_BLUE_MAGE:
result.num = 400; result.wgt = 100; result.mul = 20; break;
case CLASS_WARLOCK:
result.num = 400; result.wgt = 100; result.mul = 35;
switch (p_ptr->psubclass)
{
case WARLOCK_DRAGONS:
if ( p_ptr->riding
&& (object_is_(o_ptr, TV_POLEARM, SV_LANCE) || object_is_(o_ptr, TV_POLEARM, SV_HEAVY_LANCE)) )
{
result.mul = 65;
}
break;
case WARLOCK_ANGELS:
case WARLOCK_DEMONS:
result.num = 450;
break;
case WARLOCK_HOUNDS:
result.num = 475;
break;
case WARLOCK_GIANTS:
result.wgt = 200;
result.mul = 50 + p_ptr->lev/5;
result.num = 500;
break;
}
break;
case CLASS_PSION:
result.num = 400; result.wgt = 100; result.mul = 30; break;
case CLASS_PRIEST:
case CLASS_MAGIC_EATER:
case CLASS_MINDCRAFTER:
result.num = 500; result.wgt = 100; result.mul = 35; break;
case CLASS_DEVICEMASTER:
result.num = 400; result.wgt = 100; result.mul = 35;
if (p_ptr->psubclass == DEVICEMASTER_POTIONS || p_ptr->psubclass == DEVICEMASTER_SCROLLS)
result.num = 500;
break;
case CLASS_ROGUE:
result.num = 525; result.wgt = 40; result.mul = 30;
if (o_ptr->weight < 50) result.num = 600;
break;
case CLASS_SCOUT:
result.num = 400; result.wgt = 70; result.mul = 25; break;
case CLASS_RANGER:
result.num = 500; result.wgt = 70; result.mul = 40; break;
case CLASS_PALADIN:
case CLASS_SAMURAI:
result.num = 550; result.wgt = 70; result.mul = 45; break;
case CLASS_MYSTIC:
result.num = 100; result.wgt = 100; result.mul = 10; break;
case CLASS_WEAPONSMITH:
case CLASS_RUNE_KNIGHT:
result.num = 525; result.wgt = 150; result.mul = 55; break;
case CLASS_WEAPONMASTER:
result.num = weaponmaster_get_max_blows(o_ptr, hand);
result.wgt = 70; result.mul = 50; break;
case CLASS_WARRIOR_MAGE:
case CLASS_RED_MAGE:
result.num = 525; result.wgt = 70; result.mul = 30; break;
case CLASS_CHAOS_WARRIOR:
result.num = 550; result.wgt = 70; result.mul = 45; break;
case CLASS_MONK:
result.num = 500; result.wgt = 60; result.mul = 30; break;
case CLASS_TOURIST:
case CLASS_TIME_LORD:
result.num = 400; result.wgt = 100; result.mul = 30; break;
case CLASS_ARCHAEOLOGIST:
result.num = 400; result.wgt = 70; result.mul = 30;
if (archaeologist_is_favored_weapon(o_ptr))
{
result.num = 500;
result.mul = 40;
}
break;
case CLASS_BLOOD_KNIGHT:
result.num = 300; result.wgt = 150; result.mul = 30; break;
case CLASS_DUELIST:
result.num = 100; result.wgt = 70; result.mul = 40; break;
case CLASS_IMITATOR:
result.num = 550; result.wgt = 70; result.mul = 40; break;
case CLASS_WILD_TALENT:
result.num = 450; result.wgt = 70; result.mul = 40; break;
case CLASS_BEASTMASTER:
result.num = 500; result.wgt = 70; result.mul = 35; break;
case CLASS_CAVALRY:
{
u32b flgs[TR_FLAG_SIZE];
object_flags(o_ptr, flgs);
if (p_ptr->riding && have_flag(flgs, TR_RIDING)) {result.num = 550; result.wgt = 70; result.mul = 65;}
else {result.num = 500; result.wgt = 100; result.mul = 35;}
break;
}
case CLASS_SORCERER:
result.num = 100; result.wgt = 1; result.mul = 10; break;
case CLASS_ARCHER:
case CLASS_BARD:
result.num = 450; result.wgt = 70; result.mul = 20; break;
case CLASS_FORCETRAINER:
result.num = 400; result.wgt = 60; result.mul = 20; break;
case CLASS_MIRROR_MASTER:
case CLASS_SNIPER:
result.num = 400; result.wgt = 100; result.mul = 30; break;
case CLASS_NINJA:
result.num = 425; result.wgt = 20; result.mul = 10; break;
case CLASS_MONSTER:
result.num = 500; result.wgt = 70; result.mul = 50;
if (prace_is_(RACE_MON_LICH))
{
result.num = 400;
result.mul = 30;
}
else if (prace_is_(RACE_MON_POSSESSOR))
{
result.num = 400;
}
else if (prace_is_(RACE_MON_MIMIC))
{
result.num = 400;
}
else if (prace_is_(RACE_MON_TROLL))
{
result.num = 550;
}
else if (prace_is_(RACE_MON_GIANT))
{
result.num = 550;
result.mul = 50 + p_ptr->lev/5;
result.wgt = 200;
if (giant_is_(GIANT_HRU) && p_ptr->lev >= 40)
result.mul = 80;
}
else if ( prace_is_(RACE_MON_JELLY)
|| demon_is_(DEMON_KHORNE) )
{
result.num = 600;
result.mul = 50 + p_ptr->lev/5;
}
else if (prace_is_(RACE_MON_LEPRECHAUN))
{
result.num = 300;
result.mul = 20;
}
else if (prace_is_(RACE_MON_SWORD))
{
result.num = 525;
if (p_ptr->lev >= 45) /* Death Scythes retaliate! */
result.num = 300;
}
else if (prace_is_(RACE_MON_GOLEM))
{
result.num = 100;
}
break;
}
if (hex_spelling(HEX_XTRA_MIGHT) || hex_spelling(HEX_BUILDING) || p_ptr->tim_building_up)
{
result.wgt /= 2;
result.mul += 20;
}
/* Xorns and Mariliths have multiple sets of arms */
if (arm > 0)
result.num -= 100;
if (result.num < 100)
result.num = 100;
if (o_ptr->tval == TV_SWORD && o_ptr->sval == SV_POISON_NEEDLE)
result.num = 100;
return result;
}
void monk_display_attack_info(doc_ptr doc, int hand)
{
_attack_t counts[MAX_MA];
int i;
const int tot = 1000;
int tot_dam = 0; /* Scaled by 10 */
int tot_mul = 0;
int tot_to_d = 0; /* Scaled by 10 */
int blows = NUM_BLOWS(hand); /* Scaled by 100: 100 = 1.00 blows, 275 = 2.75 blows, etc */
int to_d = p_ptr->weapon_info[hand].to_d * 10;
critical_t crit;
doc_ptr cols[2] = {0};
cols[0] = doc_alloc(45);
cols[1] = doc_alloc(35);
/* First Column */
doc_printf(cols[0], "<color:G>%-14.14s %6s %5s %6s</color>\n", "Attack", "Dice", "Pct", "Dam");
_get_attack_counts(tot, counts, hand);
for (i = 0; i < MAX_MA; i++)
{
martial_arts *ma_ptr = &ma_blows[i];
int dd = ma_ptr->dd + p_ptr->weapon_info[hand].to_dd;
int ds = ma_ptr->ds + p_ptr->weapon_info[hand].to_ds;
char tmp[20];
int dam = dd * (ds + 1) * 10 * counts[i].count / (2 * tot);
if (counts[i].count == 0) continue;
tot_dam += dam;
tot_mul += counts[i].mul;
tot_to_d += counts[i].to_d;
sprintf(tmp, "%dd%d", dd, ds);
doc_printf(cols[0], "%-14.14s %6s %3d.%1d%% %3d.%1d\n",
ma_ptr->name, tmp,
counts[i].count/10, counts[i].count%10,
dam/10, dam%10);
}
doc_printf(cols[0], "<tab:8>%20s %3d.%1d\n", "Total:", tot_dam/10, tot_dam%10);
crit.mul = tot_mul/tot;
crit.to_d = tot_to_d*10/tot;
doc_printf(cols[0], "<tab:8>%20s %3d.%02dx\n", "Criticals:", crit.mul/100, crit.mul%100);
/* Account for criticals in all that follows ... */
tot_dam = tot_dam * crit.mul/100;
to_d += crit.to_d;
doc_printf(cols[0], "<tab:8>%20s %3d.%1d +%3d\n", "One Strike:", tot_dam/10, tot_dam%10, to_d/10);
/* Second Column */
doc_insert(cols[1], "<color:y>Your Fists</color>\n");
doc_printf(cols[1], "Number of Blows: %d.%2.2d\n", blows/100, blows%100);
doc_printf(cols[1], "To Hit: 0 50 100 150 200 (AC)\n");
doc_printf(cols[1], " %2d %2d %2d %2d %2d (%%)\n",
hit_chance(0, 0, 0),
hit_chance(0, 0, 50),
hit_chance(0, 0, 100),
hit_chance(0, 0, 150),
hit_chance(0, 0, 200)
);
doc_newline(cols[1]);
doc_insert(cols[1], "<color:y>Average Damage:</color>\n");
doc_printf(cols[1], " One Strike: %d.%1d\n", (tot_dam + to_d)/10, (tot_dam + to_d)%10);
/* Note: blows are scaled by 100. tot_dam and to_d by 10. So we divide by 1000 to recover the integer part ... */
doc_printf(cols[1], " One Attack: %d.%1d\n", blows*(tot_dam + to_d)/1000, ((blows*(tot_dam + to_d))/100)%10);
if (display_weapon_mode == MYSTIC_ACID)
{
doc_printf(cols[1], " <color:r> Acid</color>: %d.%1d\n",
blows*(tot_dam*20/10 + to_d + 50)/1000,
((blows*(tot_dam*20/10 + to_d + 50))/100)%10);
}
else if (have_flag(p_ptr->weapon_info[hand].flags, OF_BRAND_ACID))
{
doc_printf(cols[1], " <color:r> Acid</color>: %d.%1d\n",
blows*(tot_dam*17/10 + to_d)/1000,
((blows*(tot_dam*17/10 + to_d))/100)%10);
}
if (display_weapon_mode == MYSTIC_FIRE)
{
doc_printf(cols[1], " <color:r> Fire</color>: %d.%1d\n",
blows*(tot_dam*17/10 + to_d + 30)/1000,
((blows*(tot_dam*17/10 + to_d + 30))/100)%10);
}
else if (have_flag(p_ptr->weapon_info[hand].flags, OF_BRAND_FIRE))
{
doc_printf(cols[1], " <color:r> Fire</color>: %d.%1d\n",
blows*(tot_dam*17/10 + to_d)/1000,
((blows*(tot_dam*17/10 + to_d))/100)%10);
}
if (display_weapon_mode == MYSTIC_COLD)
{
doc_printf(cols[1], " <color:r> Cold</color>: %d.%1d\n",
blows*(tot_dam*17/10 + to_d + 30)/1000,
((blows*(tot_dam*17/10 + to_d + 30))/100)%10);
}
else if (have_flag(p_ptr->weapon_info[hand].flags, OF_BRAND_COLD))
{
doc_printf(cols[1], " <color:r> Cold</color>: %d.%1d\n",
blows*(tot_dam*17/10 + to_d)/1000,
((blows*(tot_dam*17/10 + to_d))/100)%10);
}
if (display_weapon_mode == MYSTIC_ELEC)
{
doc_printf(cols[1], " <color:r> Elec</color>: %d.%1d\n",
blows*(tot_dam*25/10 + to_d + 70)/1000,
((blows*(tot_dam*25/10 + to_d + 70))/100)%10);
}
else if (have_flag(p_ptr->weapon_info[hand].flags, OF_BRAND_ELEC))
{
doc_printf(cols[1], " <color:r> Elec</color>: %d.%1d\n",
blows*(tot_dam*17/10 + to_d)/1000,
((blows*(tot_dam*17/10 + to_d))/100)%10);
}
if (display_weapon_mode == MYSTIC_POIS)
{
doc_printf(cols[1], " <color:r> Pois</color>: %d.%1d\n",
blows*(tot_dam*17/10 + to_d + 30)/1000,
((blows*(tot_dam*17/10 + to_d + 30))/100)%10);
}
else if (have_flag(p_ptr->weapon_info[hand].flags, OF_BRAND_POIS))
{
doc_printf(cols[1], " <color:r> Pois</color>: %d.%1d\n",
blows*(tot_dam*17/10 + to_d)/1000,
((blows*(tot_dam*17/10 + to_d))/100)%10);
}
doc_insert_cols(doc, cols, 2, 0);
doc_free(cols[0]);
doc_free(cols[1]);
}
/*!
* @brief 新フロアに移動元フロアに繋がる階段を配置する / Virtually teleport onto the stairs that is connecting between two floors.
* @param sf_ptr 移動元の保存フロア構造体参照ポインタ
* @return なし
*/
static void locate_connected_stairs(saved_floor_type *sf_ptr)
{
int x, y, sx = 0, sy = 0;
int x_table[20];
int y_table[20];
int num = 0;
int i;
/* Search usable stairs */
for (y = 0; y < cur_hgt; y++)
{
for (x = 0; x < cur_wid; x++)
{
cave_type *c_ptr = &cave[y][x];
feature_type *f_ptr = &f_info[c_ptr->feat];
bool ok = FALSE;
if (change_floor_mode & CFM_UP)
{
if (have_flag(f_ptr->flags, FF_LESS) && have_flag(f_ptr->flags, FF_STAIRS) &&
!have_flag(f_ptr->flags, FF_SPECIAL))
{
ok = TRUE;
/* Found fixed stairs? */
if (c_ptr->special &&
c_ptr->special == sf_ptr->upper_floor_id)
{
sx = x;
sy = y;
}
}
}
else if (change_floor_mode & CFM_DOWN)
{
if (have_flag(f_ptr->flags, FF_MORE) && have_flag(f_ptr->flags, FF_STAIRS) &&
!have_flag(f_ptr->flags, FF_SPECIAL))
{
ok = TRUE;
/* Found fixed stairs */
if (c_ptr->special &&
c_ptr->special == sf_ptr->lower_floor_id)
{
sx = x;
sy = y;
}
}
}
else
{
if (have_flag(f_ptr->flags, FF_BLDG))
{
ok = TRUE;
}
}
if (ok && (num < 20))
{
x_table[num] = x;
y_table[num] = y;
num++;
}
}
}
if (sx)
{
/* Already fixed */
p_ptr->y = sy;
p_ptr->x = sx;
}
else if (!num)
{
/* No stairs found! -- No return */
prepare_change_floor_mode(CFM_RAND_PLACE | CFM_NO_RETURN);
/* Mega Hack -- It's not the stairs you enter. Disable it. */
if (!feat_uses_special(cave[p_ptr->y][p_ptr->x].feat)) cave[p_ptr->y][p_ptr->x].special = 0;
}
else
{
/* Choose random one */
i = randint0(num);
/* Point stair location */
p_ptr->y = y_table[i];
p_ptr->x = x_table[i];
}
}