src/object1.c

   1 /* File: object1.c */
   2
   3 /*
   4  * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke
   5  *
   6  * This software may be copied and distributed for educational, research,
   7  * and not for profit purposes provided that this copyright and statement
   8  * are included in all such copies.  Other copyrights may also apply.
   9  */
  10
  11 /* Purpose: Object code, part 1 */
  12
  13 #include "angband.h"
  14
  15 #if defined(MACINTOSH) || defined(MACH_O_CARBON)
  16 #ifdef verify
  17 #undef verify
  18 #endif
  19 #endif
  20 /*
  21  * Reset the "visual" lists
  22  *
  23  * This involves resetting various things to their "default" state.
  24  *
  25  * If the "prefs" flag is TRUE, then we will also load the appropriate
  26  * "user pref file" based on the current setting of the "use_graphics"
  27  * flag.  This is useful for switching "graphics" on/off.
  28  *
  29  * The features, objects, and monsters, should all be encoded in the
  30  * relevant "font.pref" and/or "graf.prf" files.  XXX XXX XXX
  31  *
  32  * The "prefs" parameter is no longer meaningful.  XXX XXX XXX
  33  */
  34 void reset_visuals(void)
  35 {
  36         int i, j;
  37
  38         /* Extract some info about terrain features */
  39         for (i = 0; i < max_f_idx; i++)
  40         {
  41                 feature_type *f_ptr = &f_info[i];
  42
  43                 /* Assume we will use the underlying values */
  44                 for (j = 0; j < F_LIT_MAX; j++)
  45                 {
  46                         f_ptr->x_attr[j] = f_ptr->d_attr[j];
  47                         f_ptr->x_char[j] = f_ptr->d_char[j];
  48                 }
  49         }
  50
  51         /* Extract default attr/char code for objects */
  52         for (i = 0; i < max_k_idx; i++)
  53         {
  54                 object_kind *k_ptr = &k_info[i];
  55
  56                 /* Default attr/char */
  57                 k_ptr->x_attr = k_ptr->d_attr;
  58                 k_ptr->x_char = k_ptr->d_char;
  59         }
  60
  61         /* Extract default attr/char code for monsters */
  62         for (i = 0; i < max_r_idx; i++)
  63         {
  64                 monster_race *r_ptr = &r_info[i];
  65
  66                 /* Default attr/char */
  67                 r_ptr->x_attr = r_ptr->d_attr;
  68                 r_ptr->x_char = r_ptr->d_char;
  69         }
  70
  71         if (use_graphics)
  72         {
  73                 char buf[1024];
  74
  75                 /* Process "graf.prf" */
  76                 process_pref_file("graf.prf");
  77
  78                 /* Access the "character" pref file */
  79                 sprintf(buf, "graf-%s.prf", player_base);
  80
  81                 /* Process "graf-<playername>.prf" */
  82                 process_pref_file(buf);
  83         }
  84
  85         /* Normal symbols */
  86         else
  87         {
  88                 char buf[1024];
  89
  90                 /* Process "font.prf" */
  91                 process_pref_file("font.prf");
  92
  93                 /* Access the "character" pref file */
  94                 sprintf(buf, "font-%s.prf", player_base);
  95
  96                 /* Process "font-<playername>.prf" */
  97                 process_pref_file(buf);
  98         }
  99 }
 100
 101
 102 /*
 103  * Obtain the "flags" for an item
 104  */
 105 void object_flags(object_type *o_ptr, u32b flgs[TR_FLAG_SIZE])
 106 {
 107         object_kind *k_ptr = &k_info[o_ptr->k_idx];
 108         int i;
 109
 110         /* Base object */
 111         for (i = 0; i < TR_FLAG_SIZE; i++)
 112                 flgs[i] = k_ptr->flags[i];
 113
 114         /* Artifact */
 115         if (object_is_fixed_artifact(o_ptr))
 116         {
 117                 artifact_type *a_ptr = &a_info[o_ptr->name1];
 118
 119                 for (i = 0; i < TR_FLAG_SIZE; i++)
 120                         flgs[i] = a_ptr->flags[i];
 121         }
 122
 123         /* Ego-item */
 124         if (object_is_ego(o_ptr))
 125         {
 126                 ego_item_type *e_ptr = &e_info[o_ptr->name2];
 127
 128                 for (i = 0; i < TR_FLAG_SIZE; i++)
 129                         flgs[i] |= e_ptr->flags[i];
 130
 131                 if ((o_ptr->name2 == EGO_LITE_AURA_FIRE) && !o_ptr->xtra4 && (o_ptr->sval <= SV_LITE_LANTERN))
 132                 {
 133                         remove_flag(flgs, TR_SH_FIRE);
 134                 }
 135                 else if ((o_ptr->name2 == EGO_LITE_INFRA) && !o_ptr->xtra4 && (o_ptr->sval <= SV_LITE_LANTERN))
 136                 {
 137                         remove_flag(flgs, TR_INFRA);
 138                 }
 139                 else if ((o_ptr->name2 == EGO_LITE_EYE) && !o_ptr->xtra4 && (o_ptr->sval <= SV_LITE_LANTERN))
 140                 {
 141                         remove_flag(flgs, TR_RES_BLIND);
 142                         remove_flag(flgs, TR_SEE_INVIS);
 143                 }
 144         }
 145
 146         /* Random artifact ! */
 147         for (i = 0; i < TR_FLAG_SIZE; i++)
 148                 flgs[i] |= o_ptr->art_flags[i];
 149
 150         if (object_is_smith(o_ptr))
 151         {
 152                 int add = o_ptr->xtra3 - 1;
 153
 154                 if (add < TR_FLAG_MAX)
 155                 {
 156                         add_flag(flgs, add);
 157                 }
 158                 else if (add == ESSENCE_TMP_RES_ACID)
 159                 {
 160                         add_flag(flgs, TR_RES_ACID);
 161                         add_flag(flgs, TR_ACTIVATE);
 162                 }
 163                 else if (add == ESSENCE_TMP_RES_ELEC)
 164                 {
 165                         add_flag(flgs, TR_RES_ELEC);
 166                         add_flag(flgs, TR_ACTIVATE);
 167                 }
 168                 else if (add == ESSENCE_TMP_RES_FIRE)
 169                 {
 170                         add_flag(flgs, TR_RES_FIRE);
 171                         add_flag(flgs, TR_ACTIVATE);
 172                 }
 173                 else if (add == ESSENCE_TMP_RES_COLD)
 174                 {
 175                         add_flag(flgs, TR_RES_COLD);
 176                         add_flag(flgs, TR_ACTIVATE);
 177                 }
 178                 else if (add == ESSENCE_SH_FIRE)
 179                 {
 180                         add_flag(flgs, TR_RES_FIRE);
 181                         add_flag(flgs, TR_SH_FIRE);
 182                 }
 183                 else if (add == ESSENCE_SH_ELEC)
 184                 {
 185                         add_flag(flgs, TR_RES_ELEC);
 186                         add_flag(flgs, TR_SH_ELEC);
 187                 }
 188                 else if (add == ESSENCE_SH_COLD)
 189                 {
 190                         add_flag(flgs, TR_RES_COLD);
 191                         add_flag(flgs, TR_SH_COLD);
 192                 }
 193                 else if (add == ESSENCE_RESISTANCE)
 194                 {
 195                         add_flag(flgs, TR_RES_ACID);
 196                         add_flag(flgs, TR_RES_ELEC);
 197                         add_flag(flgs, TR_RES_FIRE);
 198                         add_flag(flgs, TR_RES_COLD);
 199                 }
 200                 else if (add == TR_IMPACT)
 201                 {
 202                         add_flag(flgs, TR_ACTIVATE);
 203                 }
 204         }
 205 }
 206
 207
 208
 209 /*
 210  * Obtain the "flags" for an item which are known to the player
 211  */
 212 void object_flags_known(object_type *o_ptr, u32b flgs[TR_FLAG_SIZE])
 213 {
 214         bool spoil = FALSE;
 215         int i;
 216
 217         object_kind *k_ptr = &k_info[o_ptr->k_idx];
 218
 219         /* Clear */
 220         for (i = 0; i < TR_FLAG_SIZE; i++)
 221                 flgs[i] = 0;
 222
 223         if (!object_is_aware(o_ptr)) return;
 224
 225         /* Base object */
 226         for (i = 0; i < TR_FLAG_SIZE; i++)
 227                 flgs[i] = k_ptr->flags[i];
 228
 229         /* Must be identified */
 230         if (!object_is_known(o_ptr)) return;
 231
 232         /* Ego-item (known basic flags) */
 233         if (object_is_ego(o_ptr))
 234         {
 235                 ego_item_type *e_ptr = &e_info[o_ptr->name2];
 236
 237                 for (i = 0; i < TR_FLAG_SIZE; i++)
 238                         flgs[i] |= e_ptr->flags[i];
 239
 240                 if ((o_ptr->name2 == EGO_LITE_AURA_FIRE) && !o_ptr->xtra4 && (o_ptr->sval <= SV_LITE_LANTERN))
 241                 {
 242                         remove_flag(flgs, TR_SH_FIRE);
 243                 }
 244                 else if ((o_ptr->name2 == EGO_LITE_INFRA) && !o_ptr->xtra4 && (o_ptr->sval <= SV_LITE_LANTERN))
 245                 {
 246                         remove_flag(flgs, TR_INFRA);
 247                 }
 248                 else if ((o_ptr->name2 == EGO_LITE_EYE) && !o_ptr->xtra4 && (o_ptr->sval <= SV_LITE_LANTERN))
 249                 {
 250                         remove_flag(flgs, TR_RES_BLIND);
 251                         remove_flag(flgs, TR_SEE_INVIS);
 252                 }
 253         }
 254
 255
 256 #ifdef SPOIL_ARTIFACTS
 257         /* Full knowledge for some artifacts */
 258         if (object_is_artifact(o_ptr)) spoil = TRUE;
 259 #endif /* SPOIL_ARTIFACTS */
 260
 261 #ifdef SPOIL_EGO_ITEMS
 262         /* Full knowledge for some ego-items */
 263         if (object_is_ego(o_ptr)) spoil = TRUE;
 264 #endif /* SPOIL_EGO_ITEMS */
 265
 266         /* Need full knowledge or spoilers */
 267         if (spoil || (o_ptr->ident & IDENT_MENTAL))
 268         {
 269                 /* Artifact */
 270                 if (object_is_fixed_artifact(o_ptr))
 271                 {
 272                         artifact_type *a_ptr = &a_info[o_ptr->name1];
 273
 274                         for (i = 0; i < TR_FLAG_SIZE; i++)
 275                                 flgs[i] = a_ptr->flags[i];
 276                 }
 277
 278                 /* Random artifact ! */
 279                 for (i = 0; i < TR_FLAG_SIZE; i++)
 280                         flgs[i] |= o_ptr->art_flags[i];
 281         }
 282
 283         if (object_is_smith(o_ptr))
 284         {
 285                 int add = o_ptr->xtra3 - 1;
 286
 287                 if (add < TR_FLAG_MAX)
 288                 {
 289                         add_flag(flgs, add);
 290                 }
 291                 else if (add == ESSENCE_TMP_RES_ACID)
 292                 {
 293                         add_flag(flgs, TR_RES_ACID);
 294                 }
 295                 else if (add == ESSENCE_TMP_RES_ELEC)
 296                 {
 297                         add_flag(flgs, TR_RES_ELEC);
 298                 }
 299                 else if (add == ESSENCE_TMP_RES_FIRE)
 300                 {
 301                         add_flag(flgs, TR_RES_FIRE);
 302                 }
 303                 else if (add == ESSENCE_TMP_RES_COLD)
 304                 {
 305                         add_flag(flgs, TR_RES_COLD);
 306                 }
 307                 else if (add == ESSENCE_SH_FIRE)
 308                 {
 309                         add_flag(flgs, TR_RES_FIRE);
 310                         add_flag(flgs, TR_SH_FIRE);
 311                 }
 312                 else if (add == ESSENCE_SH_ELEC)
 313                 {
 314                         add_flag(flgs, TR_RES_ELEC);
 315                         add_flag(flgs, TR_SH_ELEC);
 316                 }
 317                 else if (add == ESSENCE_SH_COLD)
 318                 {
 319                         add_flag(flgs, TR_RES_COLD);
 320                         add_flag(flgs, TR_SH_COLD);
 321                 }
 322                 else if (add == ESSENCE_RESISTANCE)
 323                 {
 324                         add_flag(flgs, TR_RES_ACID);
 325                         add_flag(flgs, TR_RES_ELEC);
 326                         add_flag(flgs, TR_RES_FIRE);
 327                         add_flag(flgs, TR_RES_COLD);
 328                 }
 329         }
 330 }
 331
 332
 333 static cptr item_activation_dragon_breath(object_type *o_ptr)
 334 {
 335         static char desc[256];
 336         u32b flgs[4]; /* for resistance flags */
 337         int i, n = 0;
 338
 339         object_flags(o_ptr, flgs);
 340         strcpy(desc, _("", "breath "));
 341
 342         for (i = 0; dragonbreath_info[i].flag != 0; i++)
 343         {
 344                 if (have_flag(flgs, dragonbreath_info[i].flag))
 345                 {
 346                         if (n > 0) strcat(desc, _("¡¢", ", "));
 347                         strcat(desc, dragonbreath_info[i].name);
 348                         n++;
 349                 }
 350         }
 351
 352         strcat(desc, _("¤Î¥Ö¥ì¥¹(250)", ""));
 353
 354         return (desc);
 355 }
 356
 357 static cptr item_activation_aux(object_type *o_ptr)
 358 {
 359         static char activation_detail[256];
 360         cptr desc;
 361         char timeout[32];
 362         int constant, dice;
 363         const activation_type* const act_ptr = find_activation_info(o_ptr);
 364
 365         if (!act_ptr) return _("Ì¤ÄêµÁ", "something undefined");
 366
 367         desc = act_ptr->desc;
 368
 369         /* Overwrite description if it is special */
 370         switch (act_ptr->index) {
 371         case ACT_BR_FIRE:
 372                 if ((o_ptr->tval == TV_RING) && (o_ptr->sval == SV_RING_FLAMES))
 373                         desc = _("²Ð±ê¤Î¥Ö¥ì¥¹ (200) ¤È²Ð¤Ø¤ÎÂÑÀ", "breath of fire (200) and resist fire");
 374                 break;
 375         case ACT_BR_COLD:
 376                 if ((o_ptr->tval == TV_RING) && (o_ptr->sval == SV_RING_ICE))
 377                         desc = _("Îäµ¤¤Î¥Ö¥ì¥¹ (200) ¤ÈÎäµ¤¤Ø¤ÎÂÑÀ", "breath of cold (200) and resist cold");
 378                 break;
 379         case ACT_BR_DRAGON:
 380                 desc = item_activation_dragon_breath(o_ptr);
 381                 break;
 382         case ACT_AGGRAVATE:
 383                 if (o_ptr->name1 == ART_HYOUSIGI)
 384                         desc = _("Çï»ÒÌÚ¤òÂÇ¤Á¤Ê¤é¤¹", "beat wooden clappers");
 385                 break;
 386         case ACT_RESIST_ACID:
 387                 if (((o_ptr->tval == TV_RING) && (o_ptr->sval == SV_RING_ACID)) || (o_ptr->name2 == EGO_BRAND_ACID))
 388                         desc = _("¥¢¥·¥Ã¥É¡¦¥Ü¡¼¥ë (100) ¤È»À¤Ø¤ÎÂÑÀ", "ball of acid (100) and resist acid");
 389                 break;
 390         case ACT_RESIST_FIRE:
 391                 if (((o_ptr->tval == TV_RING) && (o_ptr->sval == SV_RING_FLAMES)) || (o_ptr->name2 == EGO_BRAND_FIRE))
 392                         desc = _("¥Õ¥¡¥¤¥¢¡¦¥Ü¡¼¥ë (100) ¤È²Ð¤Ø¤ÎÂÑÀ", "ball of fire (100) and resist fire");
 393                 break;
 394         case ACT_RESIST_COLD:
 395                 if (((o_ptr->tval == TV_RING) && (o_ptr->sval == SV_RING_ICE)) || (o_ptr->name2 == EGO_BRAND_COLD))
 396                         desc = _("¥¢¥¤¥¹¡¦¥Ü¡¼¥ë (100) ¤ÈÎäµ¤¤Ø¤ÎÂÑÀ", "ball of cold (100) and resist cold");
 397                 break;
 398         case ACT_RESIST_ELEC:
 399                 if (((o_ptr->tval == TV_RING) && (o_ptr->sval == SV_RING_ELEC)) || (o_ptr->name2 == EGO_BRAND_ELEC))
 400                         desc = _("¥µ¥ó¥À¡¼¡¦¥Ü¡¼¥ë (100) ¤ÈÅÅ·â¤Ø¤ÎÂÑÀ", "ball of elec (100) and resist elec");
 401                 break;
 402         case ACT_RESIST_POIS:
 403                 if (o_ptr->name2 == EGO_BRAND_POIS)
 404                         desc = _("°½±À (100) ¤ÈÆÇ¤Ø¤ÎÂÑÀ", "ball of poison (100) and resist elec");
 405                 break;
 406         }
 407
 408         /* Timeout description */
 409         constant = act_ptr->timeout.constant;
 410         dice = act_ptr->timeout.dice;
 411         if (constant == 0 && dice == 0) {
 412                 /* We can activate it every turn */
 413                 strcpy(timeout, _("¤¤¤Ä¤Ç¤â", "every turn"));
 414         } else if (constant < 0) {
 415                 /* Activations that have special timeout */
 416                 switch (act_ptr->index) {
 417                 case ACT_BR_FIRE:
 418                         sprintf(timeout, _("%d ¥¿¡¼¥óËè", "every %d turns"),
 419                                 ((o_ptr->tval == TV_RING) && (o_ptr->sval == SV_RING_FLAMES)) ? 200 : 250);
 420                         break;
 421                 case ACT_BR_COLD:
 422                         sprintf(timeout, _("%d ¥¿¡¼¥óËè", "every %d turns"),
 423                                 ((o_ptr->tval == TV_RING) && (o_ptr->sval == SV_RING_ICE)) ? 200 : 250);
 424                         break;
 425                 case ACT_TERROR:
 426                         strcpy(timeout, _("3*(¥ì¥Ù¥ë+10) ¥¿¡¼¥óËè", "every 3 * (level+10) turns"));
 427                         break;
 428                 case ACT_MURAMASA:
 429                         strcpy(timeout, _("³ÎÎ¨50%¤Ç²õ¤ì¤ë", "(destroyed 50%)"));
 430                         break;
 431                 default:
 432                         strcpy(timeout, "undefined");
 433                         break;
 434                 }
 435         } else {
 436                 /* Normal timeout activations */
 437                 char constant_str[16], dice_str[16];
 438                 sprintf(constant_str, "%d", constant);
 439                 sprintf(dice_str, "d%d", dice);
 440                 sprintf(timeout, _("%s%s%s ¥¿¡¼¥óËè", "every %s%s%s turns"),
 441                         (constant > 0) ? constant_str : "",
 442                         (constant > 0 && dice > 0) ? "+" : "",
 443                         (dice > 0) ? dice_str : "");
 444         }
 445
 446         /* Build detail activate description */
 447         sprintf(activation_detail, _("%s : %s", "%s %s"), desc, timeout);
 448
 449         return activation_detail;
 450 }
 451
 452 /*
 453  * Determine the "Activation" (if any) for an artifact
 454  * Return a string, or NULL for "no activation"
 455  */
 456 cptr item_activation(object_type *o_ptr)
 457 {
 458         u32b flgs[TR_FLAG_SIZE];
 459
 460         /* Extract the flags */
 461         object_flags(o_ptr, flgs);
 462
 463         /* Require activation ability */
 464 #ifdef JP
 465         if (!(have_flag(flgs, TR_ACTIVATE))) return ("¤Ê¤·");
 466 #else
 467         if (!(have_flag(flgs, TR_ACTIVATE))) return ("nothing");
 468 #endif
 469
 470         /* Get an explain of an activation */
 471         if (activation_index(o_ptr))
 472         {
 473                 return item_activation_aux(o_ptr);
 474         }
 475
 476         /* Special items */
 477         if (o_ptr->tval == TV_WHISTLE)
 478         {
 479 #ifdef JP
 480 return "¥Ú¥Ã¥È¸Æ¤Ó´ó¤» : 100+d100¥¿¡¼¥óËè";
 481 #else
 482                 return "call pet every 100+d100 turns";
 483 #endif
 484         }
 485
 486         if (o_ptr->tval == TV_CAPTURE)
 487         {
 488 #ifdef JP
 489 return "¥â¥ó¥¹¥¿¡¼¤òÊá¤¨¤ë¡¢Ëô¤Ï²òÊü¤¹¤ë¡£";
 490 #else
 491                 return "captures or releases a monster.";
 492 #endif
 493         }
 494
 495         /* Oops */
 496 #ifdef JP
 497         return "²¿¤âµ¯¤¤Ê¤¤";
 498 #else
 499         return "Nothing";
 500 #endif
 501 }
 502
 503
 504 /*
 505  * Describe a "fully identified" item
 506  */
 507 bool screen_object(object_type *o_ptr, u32b mode)
 508 {
 509         int                     i = 0, j, k;
 510
 511         u32b flgs[TR_FLAG_SIZE];
 512
 513         char temp[70 * 20];
 514         cptr            info[128];
 515         char o_name[MAX_NLEN];
 516         int wid, hgt;
 517
 518         int trivial_info = 0;
 519
 520         /* Extract the flags */
 521         object_flags(o_ptr, flgs);
 522
 523         /* Extract the description */
 524         {
 525                 roff_to_buf(o_ptr->name1 ? (a_text + a_info[o_ptr->name1].text) :
 526                             (k_text + k_info[o_ptr->k_idx].text),
 527                             77 - 15, temp, sizeof(temp));
 528                 for (j = 0; temp[j]; j += 1 + strlen(&temp[j]))
 529                 { info[i] = &temp[j]; i++;}
 530         }
 531
 532         if (object_is_equipment(o_ptr))
 533         {
 534                 /* Descriptions of a basic equipment is just a flavor */
 535                 trivial_info = i;
 536         }
 537
 538         /* Mega-Hack -- describe activation */
 539         if (have_flag(flgs, TR_ACTIVATE))
 540         {
 541 #ifdef JP
 542 info[i++] = "»ÏÆ°¤·¤¿¤È¤¤Î¸ú²Ì...";
 543 #else
 544                 info[i++] = "It can be activated for...";
 545 #endif
 546
 547                 info[i++] = item_activation(o_ptr);
 548 #ifdef JP
 549 info[i++] = "...¤¿¤À¤·ÁõÈ÷¤·¤Æ¤¤¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¡£";
 550 #else
 551                 info[i++] = "...if it is being worn.";
 552 #endif
 553
 554         }
 555
 556         /* Figurines, a hack */
 557         if (o_ptr->tval == TV_FIGURINE)
 558         {
 559 #ifdef JP
 560 info[i++] = "¤½¤ì¤ÏÅê¤²¤¿»þ¥Ú¥Ã¥È¤ËÊÑ²½¤¹¤ë¡£";
 561 #else
 562                 info[i++] = "It will transform into a pet when thrown.";
 563 #endif
 564
 565         }
 566
 567         /* Figurines, a hack */
 568         if (o_ptr->name1 == ART_STONEMASK)
 569         {
 570 #ifdef JP
 571 info[i++] = "¤½¤ì¤òÁõÈ÷¤·¤¿¼Ô¤ÏµÛ·ìµ´¤Ë¤Ê¤ë¡£";
 572 #else
 573                 info[i++] = "It makes you turn into a vampire permanently.";
 574 #endif
 575
 576         }
 577
 578         if ((o_ptr->tval == TV_SWORD) && (o_ptr->sval == SV_DOKUBARI))
 579         {
 580 #ifdef JP
 581 info[i++] = "¤½¤ì¤ÏÁê¼ê¤ò°ì·â¤ÇÅÝ¤¹¤³¤È¤¬¤¢¤ë¡£";
 582 #else
 583                 info[i++] = "It will attempt to kill a monster instantly.";
 584 #endif
 585
 586         }
 587
 588         if ((o_ptr->tval == TV_POLEARM) && (o_ptr->sval == SV_DEATH_SCYTHE))
 589         {
 590 #ifdef JP
 591 info[i++] = "¤½¤ì¤Ï¼«Ê¬¼«¿È¤Ë¹¶·â¤¬ÊÖ¤Ã¤Æ¤¯¤ë¤³¤È¤¬¤¢¤ë¡£";
 592 #else
 593                 info[i++] = "It causes you to strike yourself sometimes.";
 594 #endif
 595
 596 #ifdef JP
 597 info[i++] = "¤½¤ì¤ÏÌµÅ¨¤Î¥Ð¥ê¥¢¤òÀÚ¤êÎö¤¯¡£";
 598 #else
 599                 info[i++] = "It always penetrates invulnerability barriers.";
 600 #endif
 601         }
 602
 603         if (o_ptr->name2 == EGO_2WEAPON)
 604         {
 605 #ifdef JP
 606 info[i++] = "¤½¤ì¤ÏÆóÅáÎ®¤Ç¤ÎÌ¿ÃæÎ¨¤ò¸þ¾å¤µ¤»¤ë¡£";
 607 #else
 608                 info[i++] = "It affects your ability to hit when you are wielding two weapons.";
 609 #endif
 610
 611         }
 612
 613         if (have_flag(flgs, TR_EASY_SPELL))
 614         {
 615 #ifdef JP
 616 info[i++] = "¤½¤ì¤ÏËâË¡¤ÎÆñ°×ÅÙ¤ò²¼¤²¤ë¡£";
 617 #else
 618                 info[i++] = "It affects your ability to cast spells.";
 619 #endif
 620         }
 621
 622         if (o_ptr->name2 == EGO_AMU_FOOL)
 623         {
 624 #ifdef JP
 625 info[i++] = "¤½¤ì¤ÏËâË¡¤ÎÆñ°×ÅÙ¤ò¾å¤²¤ë¡£";
 626 #else
 627                 info[i++] = "It interferes with casting spells.";
 628 #endif
 629         }
 630
 631         if (o_ptr->name2 == EGO_RING_THROW)
 632         {
 633 #ifdef JP
 634 info[i++] = "¤½¤ì¤ÏÊª¤ò¶¯¤¯Åê¤²¤ë¤³¤È¤ò²ÄÇ½¤Ë¤¹¤ë¡£";
 635 #else
 636                 info[i++] = "It provides great strength when you throw an item.";
 637 #endif
 638         }
 639
 640         if (o_ptr->name2 == EGO_AMU_NAIVETY)
 641         {
 642 #ifdef JP
 643 info[i++] = "¤½¤ì¤ÏËâË¡Äñ¹³ÎÏ¤ò²¼¤²¤ë¡£";
 644 #else
 645                 info[i++] = "It decreases your magic resistance.";
 646 #endif
 647         }
 648
 649         if (o_ptr->tval == TV_STATUE)
 650         {
 651                 monster_race *r_ptr = &r_info[o_ptr->pval];
 652
 653                 if (o_ptr->pval == MON_BULLGATES)
 654 #ifdef JP
 655                         info[i++] = "¤½¤ì¤ÏÉô²°¤Ë¾þ¤ë¤ÈÃÑ¤º¤«¤·¤¤¡£";
 656 #else
 657                         info[i++] = "It is shameful.";
 658 #endif
 659                 else if ( r_ptr->flags2 & (RF2_ELDRITCH_HORROR))
 660 #ifdef JP
 661                         info[i++] = "¤½¤ì¤ÏÉô²°¤Ë¾þ¤ë¤È¶²¤¤¡£";
 662 #else
 663                 info[i++] = "It is fearful.";
 664 #endif
 665                 else
 666 #ifdef JP
 667                         info[i++] = "¤½¤ì¤ÏÉô²°¤Ë¾þ¤ë¤È³Ú¤·¤¤¡£";
 668 #else
 669                 info[i++] = "It is cheerful.";
 670 #endif
 671         }
 672
 673         /* Hack -- describe lite's */
 674         if (o_ptr->tval == TV_LITE)
 675         {
 676                 if (o_ptr->name2 == EGO_LITE_DARKNESS)
 677                 {
 678 #ifdef JP
 679                         info[i++] = "¤½¤ì¤ÏÁ´¤¯¸÷¤é¤Ê¤¤¡£";
 680 #else
 681                         info[i++] = "It provides no light.";
 682 #endif
 683
 684                         if (o_ptr->sval == SV_LITE_FEANOR)
 685                         {
 686 #ifdef JP
 687                                 info[i++] = "¤½¤ì¤ÏÌÀ¤«¤ê¤ÎÈ¾·Â¤ò¶¹¤á¤ë(È¾·Â¤Ë-3)¡£";
 688 #else
 689                                 info[i++] = "It decreases radius of light source by 3.";
 690 #endif
 691                         }
 692                         else if (o_ptr->sval == SV_LITE_LANTERN)
 693                         {
 694 #ifdef JP
 695                                 info[i++] = "¤½¤ì¤ÏÌÀ¤«¤ê¤ÎÈ¾·Â¤ò¶¹¤á¤ë(È¾·Â¤Ë-2)¡£";
 696 #else
 697                                 info[i++] = "It decreases radius of light source by 2.";
 698 #endif
 699                         }
 700                         else
 701                         {
 702 #ifdef JP
 703                                 info[i++] = "¤½¤ì¤ÏÌÀ¤«¤ê¤ÎÈ¾·Â¤ò¶¹¤á¤ë(È¾·Â¤Ë-1)¡£";
 704 #else
 705                                 info[i++] = "It decreases radius of light source by 1.";
 706 #endif
 707                         }
 708                 }
 709                 else if (object_is_fixed_artifact(o_ptr))
 710                 {
 711 #ifdef JP
 712 info[i++] = "¤½¤ì¤Ï±Ê±ó¤Ê¤ëÌÀ¤«¤ê(È¾·Â 3)¤ò¼ø¤±¤ë¡£";
 713 #else
 714                         info[i++] = "It provides light (radius 3) forever.";
 715 #endif
 716
 717                 }
 718                 else if (o_ptr->name2 == EGO_LITE_SHINE)
 719                 {
 720                         if (o_ptr->sval == SV_LITE_FEANOR)
 721                         {
 722 #ifdef JP
 723 info[i++] = "¤½¤ì¤Ï±Ê±ó¤Ê¤ëÌÀ¤«¤ê(È¾·Â 3)¤ò¼ø¤±¤ë¡£";
 724 #else
 725                                 info[i++] = "It provides light (radius 3) forever.";
 726 #endif
 727
 728                         }
 729                         else if (o_ptr->sval == SV_LITE_LANTERN)
 730                         {
 731 #ifdef JP
 732 info[i++] = "¤½¤ì¤ÏÇ³ÎÁÊäµë¤Ë¤è¤Ã¤ÆÌÀ¤«¤ê(È¾·Â 3)¤ò¼ø¤±¤ë¡£";
 733 #else
 734                                 info[i++] = "It provides light (radius 3) when fueled.";
 735 #endif
 736
 737                         }
 738                         else
 739                         {
 740 #ifdef JP
 741 info[i++] = "¤½¤ì¤ÏÇ³ÎÁÊäµë¤Ë¤è¤Ã¤ÆÌÀ¤«¤ê(È¾·Â 2)¤ò¼ø¤±¤ë¡£";
 742 #else
 743                                 info[i++] = "It provides light (radius 2) when fueled.";
 744 #endif
 745
 746                         }
 747                 }
 748                 else
 749                 {
 750                         if (o_ptr->sval == SV_LITE_FEANOR)
 751                         {
 752 #ifdef JP
 753 info[i++] = "¤½¤ì¤Ï±Ê±ó¤Ê¤ëÌÀ¤«¤ê(È¾·Â 2)¤ò¼ø¤±¤ë¡£";
 754 #else
 755                                 info[i++] = "It provides light (radius 2) forever.";
 756 #endif
 757
 758                         }
 759                         else if (o_ptr->sval == SV_LITE_LANTERN)
 760                         {
 761 #ifdef JP
 762 info[i++] = "¤½¤ì¤ÏÇ³ÎÁÊäµë¤Ë¤è¤Ã¤ÆÌÀ¤«¤ê(È¾·Â 2)¤ò¼ø¤±¤ë¡£";
 763 #else
 764                                 info[i++] = "It provides light (radius 2) when fueled.";
 765 #endif
 766
 767                         }
 768                         else
 769                         {
 770 #ifdef JP
 771 info[i++] = "¤½¤ì¤ÏÇ³ÎÁÊäµë¤Ë¤è¤Ã¤ÆÌÀ¤«¤ê(È¾·Â 1)¤ò¼ø¤±¤ë¡£";
 772 #else
 773                                 info[i++] = "It provides light (radius 1) when fueled.";
 774 #endif
 775
 776                         }
 777                 }
 778                 if (o_ptr->name2 == EGO_LITE_LONG)
 779                 {
 780 #ifdef JP
 781 info[i++] = "¤½¤ì¤ÏÄ¹¤¤¥¿¡¼¥óÌÀ¤«¤ê¤ò¼ø¤±¤ë¡£";
 782 #else
 783                         info[i++] = "It provides light for much longer time.";
 784 #endif
 785                 }
 786         }
 787
 788
 789         /* And then describe it fully */
 790
 791         if (have_flag(flgs, TR_RIDING))
 792         {
 793                 if ((o_ptr->tval == TV_POLEARM) && ((o_ptr->sval == SV_LANCE) || (o_ptr->sval == SV_HEAVY_LANCE)))
 794 #ifdef JP
 795 info[i++] = "¤½¤ì¤Ï¾èÇÏÃæ¤ÏÈó¾ï¤Ë»È¤¤¤ä¤¹¤¤¡£";
 796 #else
 797                         info[i++] = "It is made for use while riding.";
 798 #endif
 799                 else
 800                 {
 801 #ifdef JP
 802                         info[i++] = "¤½¤ì¤Ï¾èÇÏÃæ¤Ç¤â»È¤¤¤ä¤¹¤¤¡£";
 803 #else
 804                         info[i++] = "It is suitable for use while riding.";
 805 #endif
 806                         /* This information is not important enough */
 807                         trivial_info++;
 808                 }
 809         }
 810         if (have_flag(flgs, TR_STR))
 811         {
 812 #ifdef JP
 813 info[i++] = "¤½¤ì¤ÏÏÓÎÏ¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 814 #else
 815                 info[i++] = "It affects your strength.";
 816 #endif
 817
 818         }
 819         if (have_flag(flgs, TR_INT))
 820         {
 821 #ifdef JP
 822 info[i++] = "¤½¤ì¤ÏÃÎÇ½¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 823 #else
 824                 info[i++] = "It affects your intelligence.";
 825 #endif
 826
 827         }
 828         if (have_flag(flgs, TR_WIS))
 829         {
 830 #ifdef JP
 831 info[i++] = "¤½¤ì¤Ï¸¤µ¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 832 #else
 833                 info[i++] = "It affects your wisdom.";
 834 #endif
 835
 836         }
 837         if (have_flag(flgs, TR_DEX))
 838         {
 839 #ifdef JP
 840 info[i++] = "¤½¤ì¤Ï´ïÍÑ¤µ¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 841 #else
 842                 info[i++] = "It affects your dexterity.";
 843 #endif
 844
 845         }
 846         if (have_flag(flgs, TR_CON))
 847         {
 848 #ifdef JP
 849 info[i++] = "¤½¤ì¤ÏÂÑµ×ÎÏ¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 850 #else
 851                 info[i++] = "It affects your constitution.";
 852 #endif
 853
 854         }
 855         if (have_flag(flgs, TR_CHR))
 856         {
 857 #ifdef JP
 858 info[i++] = "¤½¤ì¤ÏÌ¥ÎÏ¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 859 #else
 860                 info[i++] = "It affects your charisma.";
 861 #endif
 862
 863         }
 864
 865         if (have_flag(flgs, TR_MAGIC_MASTERY))
 866         {
 867 #ifdef JP
 868 info[i++] = "¤½¤ì¤ÏËâË¡Æ»¶ñ»ÈÍÑÇ½ÎÏ¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 869 #else
 870                 info[i++] = "It affects your ability to use magic devices.";
 871 #endif
 872
 873         }
 874         if (have_flag(flgs, TR_STEALTH))
 875         {
 876 #ifdef JP
 877 info[i++] = "¤½¤ì¤Ï±£Ì©¹ÔÆ°Ç½ÎÏ¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 878 #else
 879                 info[i++] = "It affects your stealth.";
 880 #endif
 881
 882         }
 883         if (have_flag(flgs, TR_SEARCH))
 884         {
 885 #ifdef JP
 886 info[i++] = "¤½¤ì¤ÏÃµº÷Ç½ÎÏ¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 887 #else
 888                 info[i++] = "It affects your searching.";
 889 #endif
 890
 891         }
 892         if (have_flag(flgs, TR_INFRA))
 893         {
 894 #ifdef JP
 895 info[i++] = "¤½¤ì¤ÏÀÖ³°Àþ»ëÎÏ¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 896 #else
 897                 info[i++] = "It affects your infravision.";
 898 #endif
 899
 900         }
 901         if (have_flag(flgs, TR_TUNNEL))
 902         {
 903 #ifdef JP
 904 info[i++] = "¤½¤ì¤ÏºÎ·¡Ç½ÎÏ¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 905 #else
 906                 info[i++] = "It affects your ability to tunnel.";
 907 #endif
 908
 909         }
 910         if (have_flag(flgs, TR_SPEED))
 911         {
 912 #ifdef JP
 913 info[i++] = "¤½¤ì¤Ï¥¹¥Ô¡¼¥É¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 914 #else
 915                 info[i++] = "It affects your speed.";
 916 #endif
 917
 918         }
 919         if (have_flag(flgs, TR_BLOWS))
 920         {
 921 #ifdef JP
 922 info[i++] = "¤½¤ì¤ÏÂÇ·â²ó¿ô¤Ë±Æ¶Á¤òµÚ¤Ü¤¹¡£";
 923 #else
 924                 info[i++] = "It affects your attack speed.";
 925 #endif
 926
 927         }
 928
 929         if (have_flag(flgs, TR_BRAND_ACID))
 930         {
 931 #ifdef JP
 932 info[i++] = "¤½¤ì¤Ï»À¤Ë¤è¤Ã¤ÆÂç¤¤Ê¥À¥á¡¼¥¸¤òÍ¿¤¨¤ë¡£";
 933 #else
 934                 info[i++] = "It does extra damage from acid.";
 935 #endif
 936
 937         }
 938         if (have_flag(flgs, TR_BRAND_ELEC))
 939         {
 940 #ifdef JP
 941 info[i++] = "¤½¤ì¤ÏÅÅ·â¤Ë¤è¤Ã¤ÆÂç¤¤Ê¥À¥á¡¼¥¸¤òÍ¿¤¨¤ë¡£";
 942 #else
 943                 info[i++] = "It does extra damage from electricity.";
 944 #endif
 945
 946         }
 947         if (have_flag(flgs, TR_BRAND_FIRE))
 948         {
 949 #ifdef JP
 950 info[i++] = "¤½¤ì¤Ï²Ð±ê¤Ë¤è¤Ã¤ÆÂç¤¤Ê¥À¥á¡¼¥¸¤òÍ¿¤¨¤ë¡£";
 951 #else
 952                 info[i++] = "It does extra damage from fire.";
 953 #endif
 954
 955         }
 956         if (have_flag(flgs, TR_BRAND_COLD))
 957         {
 958 #ifdef JP
 959 info[i++] = "¤½¤ì¤ÏÎäµ¤¤Ë¤è¤Ã¤ÆÂç¤¤Ê¥À¥á¡¼¥¸¤òÍ¿¤¨¤ë¡£";
 960 #else
 961                 info[i++] = "It does extra damage from frost.";
 962 #endif
 963
 964         }
 965
 966         if (have_flag(flgs, TR_BRAND_POIS))
 967         {
 968 #ifdef JP
 969 info[i++] = "¤½¤ì¤ÏÅ¨¤òÆÇ¤¹¤ë¡£";
 970 #else
 971                 info[i++] = "It poisons your foes.";
 972 #endif
 973
 974         }
 975
 976         if (have_flag(flgs, TR_CHAOTIC))
 977         {
 978 #ifdef JP
 979 info[i++] = "¤½¤ì¤Ï¥«¥ª¥¹Åª¤Ê¸ú²Ì¤òµÚ¤Ü¤¹¡£";
 980 #else
 981                 info[i++] = "It produces chaotic effects.";
 982 #endif
 983
 984         }
 985
 986         if (have_flag(flgs, TR_VAMPIRIC))
 987         {
 988 #ifdef JP
 989 info[i++] = "¤½¤ì¤ÏÅ¨¤«¤é¥Ò¥Ã¥È¥Ý¥¤¥ó¥È¤òµÛ¼ý¤¹¤ë¡£";
 990 #else
 991                 info[i++] = "It drains life from your foes.";
 992 #endif
 993
 994         }
 995
 996         if (have_flag(flgs, TR_IMPACT))
 997         {
 998 #ifdef JP
 999 info[i++] = "¤½¤ì¤ÏÃÏ¿Ì¤òµ¯¤³¤¹¤³¤È¤¬¤Ç¤¤ë¡£";
1000 #else
1001                 info[i++] = "It can cause earthquakes.";
1002 #endif
1003
1004         }
1005
1006         if (have_flag(flgs, TR_VORPAL))
1007         {
1008 #ifdef JP
1009 info[i++] = "¤½¤ì¤ÏÈó¾ï¤ËÀÚ¤ìÌ£¤¬±Ô¤¯Å¨¤òÀÚÃÇ¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£";
1010 #else
1011                 info[i++] = "It is very sharp and can cut your foes.";
1012 #endif
1013
1014         }
1015
1016         if (have_flag(flgs, TR_KILL_DRAGON))
1017         {
1018 #ifdef JP
1019 info[i++] = "¤½¤ì¤Ï¥É¥é¥´¥ó¤Ë¤È¤Ã¤Æ¤ÎÅ·Å¨¤Ç¤¢¤ë¡£";
1020 #else
1021                 info[i++] = "It is a great bane of dragons.";
1022 #endif
1023
1024         }
1025         else if (have_flag(flgs, TR_SLAY_DRAGON))
1026         {
1027 #ifdef JP
1028 info[i++] = "¤½¤ì¤Ï¥É¥é¥´¥ó¤ËÂÐ¤·¤ÆÆÃ¤Ë¶²¤ë¤Ù¤ÎÏ¤òÈ¯´ø¤¹¤ë¡£";
1029 #else
1030                 info[i++] = "It is especially deadly against dragons.";
1031 #endif
1032
1033         }
1034
1035         if (have_flag(flgs, TR_KILL_ORC))
1036         {
1037 #ifdef JP
1038 info[i++] = "¤½¤ì¤Ï¥ª¡¼¥¯¤Ë¤È¤Ã¤Æ¤ÎÅ·Å¨¤Ç¤¢¤ë¡£";
1039 #else
1040                 info[i++] = "It is a great bane of orcs.";
1041 #endif
1042
1043         }
1044         if (have_flag(flgs, TR_SLAY_ORC))
1045         {
1046 #ifdef JP
1047 info[i++] = "¤½¤ì¤Ï¥ª¡¼¥¯¤ËÂÐ¤·¤ÆÆÃ¤Ë¶²¤ë¤Ù¤ÎÏ¤òÈ¯´ø¤¹¤ë¡£";
1048 #else
1049                 info[i++] = "It is especially deadly against orcs.";
1050 #endif
1051
1052         }
1053
1054         if (have_flag(flgs, TR_KILL_TROLL))
1055         {
1056 #ifdef JP
1057 info[i++] = "¤½¤ì¤Ï¥È¥í¥ë¤Ë¤È¤Ã¤Æ¤ÎÅ·Å¨¤Ç¤¢¤ë¡£";
1058 #else
1059                 info[i++] = "It is a great bane of trolls.";
1060 #endif
1061
1062         }
1063         if (have_flag(flgs, TR_SLAY_TROLL))
1064         {
1065 #ifdef JP
1066 info[i++] = "¤½¤ì¤Ï¥È¥í¥ë¤ËÂÐ¤·¤ÆÆÃ¤Ë¶²¤ë¤Ù¤ÎÏ¤òÈ¯´ø¤¹¤ë¡£";
1067 #else
1068                 info[i++] = "It is especially deadly against trolls.";
1069 #endif
1070
1071         }
1072
1073         if (have_flag(flgs, TR_KILL_GIANT))
1074         {
1075 #ifdef JP
1076 info[i++] = "¤½¤ì¤Ïµð¿Í¤Ë¤È¤Ã¤Æ¤ÎÅ·Å¨¤Ç¤¢¤ë¡£";
1077 #else
1078                 info[i++] = "It is a great bane of giants.";
1079 #endif
1080         }
1081         else if (have_flag(flgs, TR_SLAY_GIANT))
1082         {
1083 #ifdef JP
1084 info[i++] = "¤½¤ì¤Ï¥¸¥ã¥¤¥¢¥ó¥È¤ËÂÐ¤·¤ÆÆÃ¤Ë¶²¤ë¤Ù¤ÎÏ¤òÈ¯´ø¤¹¤ë¡£";
1085 #else
1086                 info[i++] = "It is especially deadly against giants.";
1087 #endif
1088
1089         }
1090
1091         if (have_flag(flgs, TR_KILL_DEMON))
1092         {
1093 #ifdef JP
1094 info[i++] = "¤½¤ì¤Ï¥Ç¡¼¥â¥ó¤Ë¤È¤Ã¤Æ¤ÎÅ·Å¨¤Ç¤¢¤ë¡£";
1095 #else
1096                 info[i++] = "It is a great bane of demons.";
1097 #endif
1098
1099         }
1100         if (have_flag(flgs, TR_SLAY_DEMON))
1101         {
1102 #ifdef JP
1103 info[i++] = "¤½¤ì¤Ï¥Ç¡¼¥â¥ó¤ËÂÐ¤·¤ÆÀ»¤Ê¤ëÎÏ¤òÈ¯´ø¤¹¤ë¡£";
1104 #else
1105                 info[i++] = "It strikes at demons with holy wrath.";
1106 #endif
1107
1108         }
1109
1110         if (have_flag(flgs, TR_KILL_UNDEAD))
1111         {
1112 #ifdef JP
1113 info[i++] = "¤½¤ì¤Ï¥¢¥ó¥Ç¥Ã¥É¤Ë¤È¤Ã¤Æ¤ÎÅ·Å¨¤Ç¤¢¤ë¡£";
1114 #else
1115                 info[i++] = "It is a great bane of undead.";
1116 #endif
1117
1118         }
1119         if (have_flag(flgs, TR_SLAY_UNDEAD))
1120         {
1121 #ifdef JP
1122 info[i++] = "¤½¤ì¤Ï¥¢¥ó¥Ç¥Ã¥É¤ËÂÐ¤·¤ÆÀ»¤Ê¤ëÎÏ¤òÈ¯´ø¤¹¤ë¡£";
1123 #else
1124                 info[i++] = "It strikes at undead with holy wrath.";
1125 #endif
1126
1127         }
1128
1129         if (have_flag(flgs, TR_KILL_EVIL))
1130         {
1131 #ifdef JP
1132 info[i++] = "¤½¤ì¤Ï¼Ù°¤Ê¤ëÂ¸ºß¤Ë¤È¤Ã¤Æ¤ÎÅ·Å¨¤Ç¤¢¤ë¡£";
1133 #else
1134                 info[i++] = "It is a great bane of evil monsters.";
1135 #endif
1136
1137         }
1138         if (have_flag(flgs, TR_SLAY_EVIL))
1139         {
1140 #ifdef JP
1141 info[i++] = "¤½¤ì¤Ï¼Ù°¤Ê¤ëÂ¸ºß¤ËÂÐ¤·¤ÆÀ»¤Ê¤ëÎÏ¤Ç¹¶·â¤¹¤ë¡£";
1142 #else
1143                 info[i++] = "It fights against evil with holy fury.";
1144 #endif
1145
1146         }
1147
1148         if (have_flag(flgs, TR_KILL_ANIMAL))
1149         {
1150 #ifdef JP
1151 info[i++] = "¤½¤ì¤Ï¼«Á³³¦¤ÎÆ°Êª¤Ë¤È¤Ã¤Æ¤ÎÅ·Å¨¤Ç¤¢¤ë¡£";
1152 #else
1153                 info[i++] = "It is a great bane of natural creatures.";
1154 #endif
1155
1156         }
1157         if (have_flag(flgs, TR_SLAY_ANIMAL))
1158         {
1159 #ifdef JP
1160 info[i++] = "¤½¤ì¤Ï¼«Á³³¦¤ÎÆ°Êª¤ËÂÐ¤·¤ÆÆÃ¤Ë¶²¤ë¤Ù¤ÎÏ¤òÈ¯´ø¤¹¤ë¡£";
1161 #else
1162                 info[i++] = "It is especially deadly against natural creatures.";
1163 #endif
1164
1165         }
1166
1167         if (have_flag(flgs, TR_KILL_HUMAN))
1168         {
1169 #ifdef JP
1170 info[i++] = "¤½¤ì¤Ï¿Í´Ö¤Ë¤È¤Ã¤Æ¤ÎÅ·Å¨¤Ç¤¢¤ë¡£";
1171 #else
1172                 info[i++] = "It is a great bane of humans.";
1173 #endif
1174
1175         }
1176         if (have_flag(flgs, TR_SLAY_HUMAN))
1177         {
1178 #ifdef JP
1179 info[i++] = "¤½¤ì¤Ï¿Í´Ö¤ËÂÐ¤·¤ÆÆÃ¤Ë¶²¤ë¤Ù¤ÎÏ¤òÈ¯´ø¤¹¤ë¡£";
1180 #else
1181                 info[i++] = "It is especially deadly against humans.";
1182 #endif
1183
1184         }
1185
1186         if (have_flag(flgs, TR_FORCE_WEAPON))
1187         {
1188 #ifdef JP
1189 info[i++] = "¤½¤ì¤Ï»ÈÍÑ¼Ô¤ÎËâÎÏ¤ò»È¤Ã¤Æ¹¶·â¤¹¤ë¡£";
1190 #else
1191                 info[i++] = "It powerfully strikes at a monster using your mana.";
1192 #endif
1193
1194         }
1195         if (have_flag(flgs, TR_DEC_MANA))
1196         {
1197 #ifdef JP
1198 info[i++] = "¤½¤ì¤ÏËâÎÏ¤Î¾ÃÈñ¤ò²¡¤µ¤¨¤ë¡£";
1199 #else
1200                 info[i++] = "It decreases your mana consumption.";
1201 #endif
1202
1203         }
1204         if (have_flag(flgs, TR_SUST_STR))
1205         {
1206 #ifdef JP
1207 info[i++] = "¤½¤ì¤Ï¤¢¤Ê¤¿¤ÎÏÓÎÏ¤ò°Ý»ý¤¹¤ë¡£";
1208 #else
1209                 info[i++] = "It sustains your strength.";
1210 #endif
1211
1212         }
1213         if (have_flag(flgs, TR_SUST_INT))
1214         {
1215 #ifdef JP
1216 info[i++] = "¤½¤ì¤Ï¤¢¤Ê¤¿¤ÎÃÎÇ½¤ò°Ý»ý¤¹¤ë¡£";
1217 #else
1218                 info[i++] = "It sustains your intelligence.";
1219 #endif
1220
1221         }
1222         if (have_flag(flgs, TR_SUST_WIS))
1223         {
1224 #ifdef JP
1225 info[i++] = "¤½¤ì¤Ï¤¢¤Ê¤¿¤Î¸¤µ¤ò°Ý»ý¤¹¤ë¡£";
1226 #else
1227                 info[i++] = "It sustains your wisdom.";
1228 #endif
1229
1230         }
1231         if (have_flag(flgs, TR_SUST_DEX))
1232         {
1233 #ifdef JP
1234 info[i++] = "¤½¤ì¤Ï¤¢¤Ê¤¿¤Î´ïÍÑ¤µ¤ò°Ý»ý¤¹¤ë¡£";
1235 #else
1236                 info[i++] = "It sustains your dexterity.";
1237 #endif
1238
1239         }
1240         if (have_flag(flgs, TR_SUST_CON))
1241         {
1242 #ifdef JP
1243 info[i++] = "¤½¤ì¤Ï¤¢¤Ê¤¿¤ÎÂÑµ×ÎÏ¤ò°Ý»ý¤¹¤ë¡£";
1244 #else
1245                 info[i++] = "It sustains your constitution.";
1246 #endif
1247
1248         }
1249         if (have_flag(flgs, TR_SUST_CHR))
1250         {
1251 #ifdef JP
1252 info[i++] = "¤½¤ì¤Ï¤¢¤Ê¤¿¤ÎÌ¥ÎÏ¤ò°Ý»ý¤¹¤ë¡£";
1253 #else
1254                 info[i++] = "It sustains your charisma.";
1255 #endif
1256
1257         }
1258
1259         if (have_flag(flgs, TR_IM_ACID))
1260         {
1261 #ifdef JP
1262 info[i++] = "¤½¤ì¤Ï»À¤ËÂÐ¤¹¤ë´°Á´¤ÊÌÈ±Ö¤ò¼ø¤±¤ë¡£";
1263 #else
1264                 info[i++] = "It provides immunity to acid.";
1265 #endif
1266
1267         }
1268         if (have_flag(flgs, TR_IM_ELEC))
1269         {
1270 #ifdef JP
1271 info[i++] = "¤½¤ì¤ÏÅÅ·â¤ËÂÐ¤¹¤ë´°Á´¤ÊÌÈ±Ö¤ò¼ø¤±¤ë¡£";
1272 #else
1273                 info[i++] = "It provides immunity to electricity.";
1274 #endif
1275
1276         }
1277         if (have_flag(flgs, TR_IM_FIRE))
1278         {
1279 #ifdef JP
1280 info[i++] = "¤½¤ì¤Ï²Ð¤ËÂÐ¤¹¤ë´°Á´¤ÊÌÈ±Ö¤ò¼ø¤±¤ë¡£";
1281 #else
1282                 info[i++] = "It provides immunity to fire.";
1283 #endif
1284
1285         }
1286         if (have_flag(flgs, TR_IM_COLD))
1287         {
1288 #ifdef JP
1289 info[i++] = "¤½¤ì¤Ï´¨¤µ¤ËÂÐ¤¹¤ë´°Á´¤ÊÌÈ±Ö¤ò¼ø¤±¤ë¡£";
1290 #else
1291                 info[i++] = "It provides immunity to cold.";
1292 #endif
1293
1294         }
1295
1296         if (have_flag(flgs, TR_THROW))
1297         {
1298 #ifdef JP
1299 info[i++] = "¤½¤ì¤ÏÅ¨¤ËÅê¤²¤ÆÂç¤¤Ê¥À¥á¡¼¥¸¤òÍ¿¤¨¤ë¤³¤È¤¬¤Ç¤¤ë¡£";
1300 #else
1301                 info[i++] = "It is perfectly balanced for throwing.";
1302 #endif
1303         }
1304
1305         if (have_flag(flgs, TR_FREE_ACT))
1306         {
1307 #ifdef JP
1308 info[i++] = "¤½¤ì¤ÏËãáã¤ËÂÐ¤¹¤ë´°Á´¤ÊÌÈ±Ö¤ò¼ø¤±¤ë¡£";
1309 #else
1310                 info[i++] = "It provides immunity to paralysis.";
1311 #endif
1312
1313         }
1314         if (have_flag(flgs, TR_HOLD_LIFE))
1315         {
1316 #ifdef JP
1317 info[i++] = "¤½¤ì¤ÏÀ¸Ì¿ÎÏµÛ¼ý¤ËÂÐ¤¹¤ëÂÑÀ¤ò¼ø¤±¤ë¡£";
1318 #else
1319                 info[i++] = "It provides resistance to life draining.";
1320 #endif
1321
1322         }
1323         if (have_flag(flgs, TR_RES_FEAR))
1324         {
1325 #ifdef JP
1326 info[i++] = "¤½¤ì¤Ï¶²ÉÝ¤Ø¤Î´°Á´¤ÊÂÑÀ¤ò¼ø¤±¤ë¡£";
1327 #else
1328                 info[i++] = "It makes you completely fearless.";
1329 #endif
1330
1331         }
1332         if (have_flag(flgs, TR_RES_ACID))
1333         {
1334 #ifdef JP
1335 info[i++] = "¤½¤ì¤Ï»À¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1336 #else
1337                 info[i++] = "It provides resistance to acid.";
1338 #endif
1339
1340         }
1341         if (have_flag(flgs, TR_RES_ELEC))
1342         {
1343 #ifdef JP
1344 info[i++] = "¤½¤ì¤ÏÅÅ·â¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1345 #else
1346                 info[i++] = "It provides resistance to electricity.";
1347 #endif
1348
1349         }
1350         if (have_flag(flgs, TR_RES_FIRE))
1351         {
1352 #ifdef JP
1353 info[i++] = "¤½¤ì¤Ï²Ð¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1354 #else
1355                 info[i++] = "It provides resistance to fire.";
1356 #endif
1357
1358         }
1359         if (have_flag(flgs, TR_RES_COLD))
1360         {
1361 #ifdef JP
1362 info[i++] = "¤½¤ì¤Ï´¨¤µ¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1363 #else
1364                 info[i++] = "It provides resistance to cold.";
1365 #endif
1366
1367         }
1368         if (have_flag(flgs, TR_RES_POIS))
1369         {
1370 #ifdef JP
1371 info[i++] = "¤½¤ì¤ÏÆÇ¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1372 #else
1373                 info[i++] = "It provides resistance to poison.";
1374 #endif
1375
1376         }
1377
1378         if (have_flag(flgs, TR_RES_LITE))
1379         {
1380 #ifdef JP
1381 info[i++] = "¤½¤ì¤ÏÁ®¸÷¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1382 #else
1383                 info[i++] = "It provides resistance to light.";
1384 #endif
1385
1386         }
1387         if (have_flag(flgs, TR_RES_DARK))
1388         {
1389 #ifdef JP
1390 info[i++] = "¤½¤ì¤Ï°Å¹õ¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1391 #else
1392                 info[i++] = "It provides resistance to dark.";
1393 #endif
1394
1395         }
1396
1397         if (have_flag(flgs, TR_RES_BLIND))
1398         {
1399 #ifdef JP
1400 info[i++] = "¤½¤ì¤ÏÌÕÌÜ¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1401 #else
1402                 info[i++] = "It provides resistance to blindness.";
1403 #endif
1404
1405         }
1406         if (have_flag(flgs, TR_RES_CONF))
1407         {
1408 #ifdef JP
1409 info[i++] = "¤½¤ì¤Ïº®Íð¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1410 #else
1411                 info[i++] = "It provides resistance to confusion.";
1412 #endif
1413
1414         }
1415         if (have_flag(flgs, TR_RES_SOUND))
1416         {
1417 #ifdef JP
1418 info[i++] = "¤½¤ì¤Ï¹ì²»¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1419 #else
1420                 info[i++] = "It provides resistance to sound.";
1421 #endif
1422
1423         }
1424         if (have_flag(flgs, TR_RES_SHARDS))
1425         {
1426 #ifdef JP
1427 info[i++] = "¤½¤ì¤ÏÇËÊÒ¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1428 #else
1429                 info[i++] = "It provides resistance to shards.";
1430 #endif
1431
1432         }
1433
1434         if (have_flag(flgs, TR_RES_NETHER))
1435         {
1436 #ifdef JP
1437 info[i++] = "¤½¤ì¤ÏÃÏ¹ö¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1438 #else
1439                 info[i++] = "It provides resistance to nether.";
1440 #endif
1441
1442         }
1443         if (have_flag(flgs, TR_RES_NEXUS))
1444         {
1445 #ifdef JP
1446 info[i++] = "¤½¤ì¤Ï°ø²Ìº®Íð¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1447 #else
1448                 info[i++] = "It provides resistance to nexus.";
1449 #endif
1450
1451         }
1452         if (have_flag(flgs, TR_RES_CHAOS))
1453         {
1454 #ifdef JP
1455 info[i++] = "¤½¤ì¤Ï¥«¥ª¥¹¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1456 #else
1457                 info[i++] = "It provides resistance to chaos.";
1458 #endif
1459
1460         }
1461         if (have_flag(flgs, TR_RES_DISEN))
1462         {
1463 #ifdef JP
1464 info[i++] = "¤½¤ì¤ÏÎô²½¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë¡£";
1465 #else
1466                 info[i++] = "It provides resistance to disenchantment.";
1467 #endif
1468
1469         }
1470
1471         if (have_flag(flgs, TR_LEVITATION))
1472         {
1473 #ifdef JP
1474 info[i++] = "¤½¤ì¤ÏÃè¤ËÉâ¤¯¤³¤È¤ò²ÄÇ½¤Ë¤¹¤ë¡£";
1475 #else
1476                 info[i++] = "It allows you to levitate.";
1477 #endif
1478
1479         }
1480         if (have_flag(flgs, TR_LITE))
1481         {
1482                 if ((o_ptr->name2 == EGO_DARK) || (o_ptr->name1 == ART_NIGHT))
1483 #ifdef JP
1484 info[i++] = "¤½¤ì¤ÏÌÀ¤«¤ê¤ÎÈ¾·Â¤ò¶¹¤á¤ë(È¾·Â¤Ë-1)¡£";
1485 #else
1486                         info[i++] = "It decreases radius of your light source by 1.";
1487 #endif
1488                 else
1489 #ifdef JP
1490 info[i++] = "¤½¤ì¤Ï±Ê±ó¤ÎÌÀ¤«¤ê¤ò¼ø¤±¤ë(È¾·Â¤Ë+1)¡£";
1491 #else
1492                         info[i++] = "It provides permanent light. (radius +1)";
1493 #endif
1494
1495         }
1496         if (have_flag(flgs, TR_SEE_INVIS))
1497         {
1498 #ifdef JP
1499 info[i++] = "¤½¤ì¤ÏÆ©ÌÀ¤Ê¥â¥ó¥¹¥¿¡¼¤ò¸«¤ë¤³¤È¤ò²ÄÇ½¤Ë¤¹¤ë¡£";
1500 #else
1501                 info[i++] = "It allows you to see invisible monsters.";
1502 #endif
1503
1504         }
1505         if (have_flag(flgs, TR_TELEPATHY))
1506         {
1507 #ifdef JP
1508 info[i++] = "¤½¤ì¤Ï¥Æ¥ì¥Ñ¥·¡¼Ç½ÎÏ¤ò¼ø¤±¤ë¡£";
1509 #else
1510                 info[i++] = "It gives telepathic powers.";
1511 #endif
1512
1513         }
1514         if (have_flag(flgs, TR_ESP_ANIMAL))
1515         {
1516 #ifdef JP
1517 info[i++] = "¤½¤ì¤Ï¼«Á³³¦¤ÎÀ¸Êª¤ò´¶ÃÎ¤¹¤ë¡£";
1518 #else
1519                 info[i++] = "It senses natural creatures.";
1520 #endif
1521
1522         }
1523         if (have_flag(flgs, TR_ESP_UNDEAD))
1524         {
1525 #ifdef JP
1526 info[i++] = "¤½¤ì¤Ï¥¢¥ó¥Ç¥Ã¥É¤ò´¶ÃÎ¤¹¤ë¡£";
1527 #else
1528                 info[i++] = "It senses undead.";
1529 #endif
1530
1531         }
1532         if (have_flag(flgs, TR_ESP_DEMON))
1533         {
1534 #ifdef JP
1535 info[i++] = "¤½¤ì¤Ï°Ëâ¤ò´¶ÃÎ¤¹¤ë¡£";
1536 #else
1537                 info[i++] = "It senses demons.";
1538 #endif
1539
1540         }
1541         if (have_flag(flgs, TR_ESP_ORC))
1542         {
1543 #ifdef JP
1544 info[i++] = "¤½¤ì¤Ï¥ª¡¼¥¯¤ò´¶ÃÎ¤¹¤ë¡£";
1545 #else
1546                 info[i++] = "It senses orcs.";
1547 #endif
1548
1549         }
1550         if (have_flag(flgs, TR_ESP_TROLL))
1551         {
1552 #ifdef JP
1553 info[i++] = "¤½¤ì¤Ï¥È¥í¥ë¤ò´¶ÃÎ¤¹¤ë¡£";
1554 #else
1555                 info[i++] = "It senses trolls.";
1556 #endif
1557
1558         }
1559         if (have_flag(flgs, TR_ESP_GIANT))
1560         {
1561 #ifdef JP
1562 info[i++] = "¤½¤ì¤Ïµð¿Í¤ò´¶ÃÎ¤¹¤ë¡£";
1563 #else
1564                 info[i++] = "It senses giants.";
1565 #endif
1566
1567         }
1568         if (have_flag(flgs, TR_ESP_DRAGON))
1569         {
1570 #ifdef JP
1571 info[i++] = "¤½¤ì¤Ï¥É¥é¥´¥ó¤ò´¶ÃÎ¤¹¤ë¡£";
1572 #else
1573                 info[i++] = "It senses dragons.";
1574 #endif
1575
1576         }
1577         if (have_flag(flgs, TR_ESP_HUMAN))
1578         {
1579 #ifdef JP
1580 info[i++] = "¤½¤ì¤Ï¿Í´Ö¤ò´¶ÃÎ¤¹¤ë¡£";
1581 #else
1582                 info[i++] = "It senses humans.";
1583 #endif
1584
1585         }
1586         if (have_flag(flgs, TR_ESP_EVIL))
1587         {
1588 #ifdef JP
1589 info[i++] = "¤½¤ì¤Ï¼Ù°¤ÊÂ¸ºß¤ò´¶ÃÎ¤¹¤ë¡£";
1590 #else
1591                 info[i++] = "It senses evil creatures.";
1592 #endif
1593
1594         }
1595         if (have_flag(flgs, TR_ESP_GOOD))
1596         {
1597 #ifdef JP
1598 info[i++] = "¤½¤ì¤ÏÁ±ÎÉ¤ÊÂ¸ºß¤ò´¶ÃÎ¤¹¤ë¡£";
1599 #else
1600                 info[i++] = "It senses good creatures.";
1601 #endif
1602
1603         }
1604         if (have_flag(flgs, TR_ESP_NONLIVING))
1605         {
1606 #ifdef JP
1607 info[i++] = "¤½¤ì¤Ï³èÆ°¤¹¤ëÌµÀ¸ÊªÂÎ¤ò´¶ÃÎ¤¹¤ë¡£";
1608 #else
1609                 info[i++] = "It senses non-living creatures.";
1610 #endif
1611
1612         }
1613         if (have_flag(flgs, TR_ESP_UNIQUE))
1614         {
1615 #ifdef JP
1616 info[i++] = "¤½¤ì¤ÏÆÃÊÌ¤Ê¶¯Å¨¤ò´¶ÃÎ¤¹¤ë¡£";
1617 #else
1618                 info[i++] = "It senses unique monsters.";
1619 #endif
1620
1621         }
1622         if (have_flag(flgs, TR_SLOW_DIGEST))
1623         {
1624 #ifdef JP
1625 info[i++] = "¤½¤ì¤Ï¤¢¤Ê¤¿¤Î¿·ÄÄÂå¼Õ¤òÃÙ¤¯¤¹¤ë¡£";
1626 #else
1627                 info[i++] = "It slows your metabolism.";
1628 #endif
1629
1630         }
1631         if (have_flag(flgs, TR_REGEN))
1632         {
1633 #ifdef JP
1634 info[i++] = "¤½¤ì¤ÏÂÎÎÏ²óÉüÎÏ¤ò¶¯²½¤¹¤ë¡£";
1635 #else
1636                 info[i++] = "It speeds your regenerative powers.";
1637 #endif
1638
1639         }
1640         if (have_flag(flgs, TR_WARNING))
1641         {
1642 #ifdef JP
1643 info[i++] = "¤½¤ì¤Ï´í¸±¤ËÂÐ¤·¤Æ·Ù¹ð¤òÈ¯¤¹¤ë¡£";
1644 #else
1645                 info[i++] = "It warns you of danger";
1646 #endif
1647
1648         }
1649         if (have_flag(flgs, TR_REFLECT))
1650         {
1651 #ifdef JP
1652 info[i++] = "¤½¤ì¤ÏÌð¤ä¥Ü¥ë¥È¤òÈ¿¼Í¤¹¤ë¡£";
1653 #else
1654                 info[i++] = "It reflects bolts and arrows.";
1655 #endif
1656
1657         }
1658         if (have_flag(flgs, TR_SH_FIRE))
1659         {
1660 #ifdef JP
1661 info[i++] = "¤½¤ì¤Ï±ê¤Î¥Ð¥ê¥¢¤òÄ¥¤ë¡£";
1662 #else
1663                 info[i++] = "It produces a fiery sheath.";
1664 #endif
1665
1666         }
1667         if (have_flag(flgs, TR_SH_ELEC))
1668         {
1669 #ifdef JP
1670 info[i++] = "¤½¤ì¤ÏÅÅµ¤¤Î¥Ð¥ê¥¢¤òÄ¥¤ë¡£";
1671 #else
1672                 info[i++] = "It produces an electric sheath.";
1673 #endif
1674
1675         }
1676         if (have_flag(flgs, TR_SH_COLD))
1677         {
1678 #ifdef JP
1679 info[i++] = "¤½¤ì¤ÏÎäµ¤¤Î¥Ð¥ê¥¢¤òÄ¥¤ë¡£";
1680 #else
1681                 info[i++] = "It produces a sheath of coldness.";
1682 #endif
1683
1684         }
1685         if (have_flag(flgs, TR_NO_MAGIC))
1686         {
1687 #ifdef JP
1688 info[i++] = "¤½¤ì¤ÏÈ¿ËâË¡¥Ð¥ê¥¢¤òÄ¥¤ë¡£";
1689 #else
1690                 info[i++] = "It produces an anti-magic shell.";
1691 #endif
1692
1693         }
1694         if (have_flag(flgs, TR_NO_TELE))
1695         {
1696 #ifdef JP
1697 info[i++] = "¤½¤ì¤Ï¥Æ¥ì¥Ý¡¼¥È¤ò¼ÙËâ¤¹¤ë¡£";
1698 #else
1699                 info[i++] = "It prevents teleportation.";
1700 #endif
1701
1702         }
1703         if (have_flag(flgs, TR_XTRA_MIGHT))
1704         {
1705 #ifdef JP
1706 info[i++] = "¤½¤ì¤ÏÌð¡¿¥Ü¥ë¥È¡¿ÃÆ¤ò¤è¤ê¶¯ÎÏ¤ËÈ¯¼Í¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£";
1707 #else
1708                 info[i++] = "It fires missiles with extra might.";
1709 #endif
1710
1711         }
1712         if (have_flag(flgs, TR_XTRA_SHOTS))
1713         {
1714 #ifdef JP
1715 info[i++] = "¤½¤ì¤ÏÌð¡¿¥Ü¥ë¥È¡¿ÃÆ¤òÈó¾ï¤ËÁá¤¯È¯¼Í¤¹¤ë¤³¤È¤¬¤Ç¤¤ë¡£";
1716 #else
1717                 info[i++] = "It fires missiles excessively fast.";
1718 #endif
1719
1720         }
1721
1722         if (have_flag(flgs, TR_BLESSED))
1723         {
1724 #ifdef JP
1725 info[i++] = "¤½¤ì¤Ï¿À¤Ë½ËÊ¡¤µ¤ì¤Æ¤¤¤ë¡£";
1726 #else
1727                 info[i++] = "It has been blessed by the gods.";
1728 #endif
1729
1730         }
1731
1732         if (object_is_cursed(o_ptr))
1733         {
1734                 if (o_ptr->curse_flags & TRC_PERMA_CURSE)
1735                 {
1736 #ifdef JP
1737 info[i++] = "¤½¤ì¤Ï±Ê±ó¤Î¼ö¤¤¤¬¤«¤±¤é¤ì¤Æ¤¤¤ë¡£";
1738 #else
1739                         info[i++] = "It is permanently cursed.";
1740 #endif
1741
1742                 }
1743                 else if (o_ptr->curse_flags & TRC_HEAVY_CURSE)
1744                 {
1745 #ifdef JP
1746 info[i++] = "¤½¤ì¤Ï¶¯ÎÏ¤Ê¼ö¤¤¤¬¤«¤±¤é¤ì¤Æ¤¤¤ë¡£";
1747 #else
1748                         info[i++] = "It is heavily cursed.";
1749 #endif
1750
1751                 }
1752                 else
1753                 {
1754 #ifdef JP
1755 info[i++] = "¤½¤ì¤Ï¼ö¤ï¤ì¤Æ¤¤¤ë¡£";
1756 #else
1757                         info[i++] = "It is cursed.";
1758 #endif
1759
1760                         /*
1761                          * It's a trivial infomation since there is
1762                          * fake inscription {cursed}
1763                          */
1764                         trivial_info++;
1765                 }
1766         }
1767
1768         if ((have_flag(flgs, TR_TY_CURSE)) || (o_ptr->curse_flags & TRC_TY_CURSE))
1769         {
1770                 info[i++] = _("¤½¤ì¤ÏÂÀ¸Å¤Î²Ò¡¹¤·¤¤±åÇ°¤¬½É¤Ã¤Æ¤¤¤ë¡£", "It carries an ancient foul curse.");
1771         }
1772         if ((have_flag(flgs, TR_AGGRAVATE)) || (o_ptr->curse_flags & TRC_AGGRAVATE))
1773         {
1774                 info[i++] = _("¤½¤ì¤ÏÉÕ¶á¤Î¥â¥ó¥¹¥¿¡¼¤òÅÜ¤é¤»¤ë¡£", "It aggravates nearby creatures.");
1775         }
1776         if ((have_flag(flgs, TR_DRAIN_EXP)) || (o_ptr->curse_flags & TRC_DRAIN_EXP))
1777         {
1778                 info[i++] = _("¤½¤ì¤Ï·Ð¸³ÃÍ¤òµÛ¤¤¼è¤ë¡£", "It drains experience.");
1779         }
1780         if (o_ptr->curse_flags & TRC_SLOW_REGEN)
1781         {
1782                 info[i++] = _("¤½¤ì¤Ï²óÉüÎÏ¤ò¼å¤á¤ë¡£", "It slows your regenerative powers.");
1783         }
1784         if ((o_ptr->curse_flags & TRC_ADD_L_CURSE) || have_flag(flgs, TR_ADD_L_CURSE))
1785         {
1786                 info[i++] = _("¤½¤ì¤Ï¼å¤¤¼ö¤¤¤òÁý¤ä¤¹¡£","It adds weak curses.");
1787         }
1788         if ((o_ptr->curse_flags & TRC_ADD_H_CURSE) || have_flag(flgs, TR_ADD_H_CURSE))
1789         {
1790                 info[i++] = _("¤½¤ì¤Ï¶¯ÎÏ¤Ê¼ö¤¤¤òÁý¤ä¤¹¡£","It adds heavy curses.");
1791         }
1792         if (o_ptr->curse_flags & TRC_CALL_ANIMAL)
1793         {
1794                 info[i++] = _("¤½¤ì¤ÏÆ°Êª¤ò¸Æ¤Ó´ó¤»¤ë¡£", "It attracts animals.");
1795         }
1796         if (o_ptr->curse_flags & TRC_CALL_DEMON)
1797         {
1798                 info[i++] = _("¤½¤ì¤Ï°Ëâ¤ò¸Æ¤Ó´ó¤»¤ë¡£", "It attracts demons.");
1799         }
1800         if (o_ptr->curse_flags & TRC_CALL_DRAGON)
1801         {
1802                 info[i++] = _("¤½¤ì¤Ï¥É¥é¥´¥ó¤ò¸Æ¤Ó´ó¤»¤ë¡£", "It attracts dragons.");
1803         }
1804         if (o_ptr->curse_flags & TRC_COWARDICE)
1805         {
1806                 info[i++] = _("¤½¤ì¤Ï¶²ÉÝ´¶¤ò°ú¤µ¯¤³¤¹¡£", "It makes you subject to cowardice.");
1807         }
1808         if ((have_flag(flgs, TR_TELEPORT)) || (o_ptr->curse_flags & TRC_TELEPORT))
1809         {
1810                 info[i++] = _("¤½¤ì¤Ï¥é¥ó¥À¥à¤Ê¥Æ¥ì¥Ý¡¼¥È¤ò°ú¤µ¯¤³¤¹¡£", "It induces random teleportation.");
1811         }
1812         if (o_ptr->curse_flags & TRC_LOW_MELEE)
1813         {
1814                 info[i++] = _("¤½¤ì¤Ï¹¶·â¤ò³°¤·¤ä¤¹¤¤¡£", "It causes you to miss blows.");
1815         }
1816         if (o_ptr->curse_flags & TRC_LOW_AC)
1817         {
1818                 info[i++] = _("¤½¤ì¤Ï¹¶·â¤ò¼õ¤±¤ä¤¹¤¤¡£", "It helps your enemies' blows.");
1819         }
1820         if (o_ptr->curse_flags & TRC_LOW_MAGIC)
1821         {
1822                 info[i++] = _("¤½¤ì¤ÏËâË¡¤ò¾§¤¨¤Ë¤¯¤¯¤¹¤ë¡£", "It encumbers you while spellcasting.");
1823         }
1824         if (o_ptr->curse_flags & TRC_FAST_DIGEST)
1825         {
1826                 info[i++] = _("¤½¤ì¤Ï¤¢¤Ê¤¿¤Î¿·ÄÄÂå¼Õ¤òÂ®¤¯¤¹¤ë¡£", "It speeds your metabolism.");
1827         }
1828         if ((have_flag(flgs, TR_DRAIN_HP)) || (o_ptr->curse_flags & TRC_DRAIN_HP))
1829         {
1830                 info[i++] = _("¤½¤ì¤Ï¤¢¤Ê¤¿¤ÎÂÎÎÏ¤òµÛ¤¤¼è¤ë¡£", "It drains you.");
1831         }
1832         if ((have_flag(flgs, TR_DRAIN_MANA)) || (o_ptr->curse_flags & TRC_DRAIN_MANA))
1833         {
1834                 info[i++] = _("¤½¤ì¤Ï¤¢¤Ê¤¿¤ÎËâÎÏ¤òµÛ¤¤¼è¤ë¡£", "It drains your mana.");
1835         }
1836
1837         /* Describe about this kind of object instead of THIS fake object */
1838         if (mode & SCROBJ_FAKE_OBJECT)
1839         {
1840                 switch (o_ptr->tval)
1841                 {
1842                 case TV_RING:
1843                         switch (o_ptr->sval)
1844                         {
1845                         case SV_RING_LORDLY:
1846 #ifdef JP
1847                                 info[i++] = "¤½¤ì¤Ï´ö¤Ä¤«¤Î¥é¥ó¥À¥à¤ÊÂÑÀ¤ò¼ø¤±¤ë¡£";
1848 #else
1849                                 info[i++] = "It provides some random resistances.";
1850 #endif
1851                                 break;
1852                         case SV_RING_WARNING:
1853 #ifdef JP
1854                                 info[i++] = "¤½¤ì¤Ï¤Ò¤È¤Ä¤ÎÄãµé¤ÊESP¤ò¼ø¤±¤ë»ö¤¬¤¢¤ë¡£";
1855 #else
1856                                 info[i++] = "It may provide a low rank ESP.";
1857 #endif
1858                                 break;
1859                         }
1860                         break;
1861
1862                 case TV_AMULET:
1863                         switch (o_ptr->sval)
1864                         {
1865                         case SV_AMULET_RESISTANCE:
1866 #ifdef JP
1867                                 info[i++] = "¤½¤ì¤ÏÆÇ¤Ø¤ÎÂÑÀ¤ò¼ø¤±¤ë»ö¤¬¤¢¤ë¡£";
1868 #else
1869                                 info[i++] = "It may provides resistance to poison.";
1870 #endif
1871 #ifdef JP
1872                                 info[i++] = "¤½¤ì¤Ï¥é¥ó¥À¥à¤ÊÂÑÀ¤ò¼ø¤±¤ë»ö¤¬¤¢¤ë¡£";
1873 #else
1874                                 info[i++] = "It may provide a random resistances.";
1875 #endif
1876                                 break;
1877                         case SV_AMULET_THE_MAGI:
1878 #ifdef JP
1879                                 info[i++] = "¤½¤ì¤ÏºÇÂç¤Ç£³¤Ä¤Þ¤Ç¤ÎÄãµé¤ÊESP¤ò¼ø¤±¤ë¡£";
1880 #else
1881                                 info[i++] = "It provides up to three low rank ESPs.";
1882 #endif
1883                                 break;
1884                         }
1885                         break;
1886                 }
1887         }
1888
1889         if (have_flag(flgs, TR_IGNORE_ACID) &&
1890             have_flag(flgs, TR_IGNORE_ELEC) &&
1891             have_flag(flgs, TR_IGNORE_FIRE) &&
1892             have_flag(flgs, TR_IGNORE_COLD))
1893         {
1894 #ifdef JP
1895                 info[i++] = "¤½¤ì¤Ï»À¡¦ÅÅ·â¡¦²Ð±ê¡¦Îäµ¤¤Ç¤Ï½ý¤Ä¤«¤Ê¤¤¡£";
1896 #else
1897                 info[i++] = "It cannot be harmed by the elements.";
1898 #endif
1899         }
1900         else
1901         {
1902                 if (have_flag(flgs, TR_IGNORE_ACID))
1903                 {
1904 #ifdef JP
1905                         info[i++] = "¤½¤ì¤Ï»À¤Ç¤Ï½ý¤Ä¤«¤Ê¤¤¡£";
1906 #else
1907                         info[i++] = "It cannot be harmed by acid.";
1908 #endif
1909                 }
1910                 if (have_flag(flgs, TR_IGNORE_ELEC))
1911                 {
1912 #ifdef JP
1913                         info[i++] = "¤½¤ì¤ÏÅÅ·â¤Ç¤Ï½ý¤Ä¤«¤Ê¤¤¡£";
1914 #else
1915                         info[i++] = "It cannot be harmed by electricity.";
1916 #endif
1917                 }
1918                 if (have_flag(flgs, TR_IGNORE_FIRE))
1919                 {
1920 #ifdef JP
1921                         info[i++] = "¤½¤ì¤Ï²Ð±ê¤Ç¤Ï½ý¤Ä¤«¤Ê¤¤¡£";
1922 #else
1923                         info[i++] = "It cannot be harmed by fire.";
1924 #endif
1925                 }
1926                 if (have_flag(flgs, TR_IGNORE_COLD))
1927                 {
1928 #ifdef JP
1929                         info[i++] = "¤½¤ì¤ÏÎäµ¤¤Ç¤Ï½ý¤Ä¤«¤Ê¤¤¡£";
1930 #else
1931                         info[i++] = "It cannot be harmed by cold.";
1932 #endif
1933                 }
1934         }
1935
1936         if (mode & SCROBJ_FORCE_DETAIL) trivial_info = 0;
1937
1938         /* No relevant informations */
1939         if (i <= trivial_info) return (FALSE);
1940
1941         /* Save the screen */
1942         screen_save();
1943
1944         /* Get size */
1945         Term_get_size(&wid, &hgt);
1946
1947         /* Display Item name */
1948         if (!(mode & SCROBJ_FAKE_OBJECT))
1949                 object_desc(o_name, o_ptr, 0);
1950         else
1951                 object_desc(o_name, o_ptr, (OD_NAME_ONLY | OD_STORE));
1952
1953         prt(o_name, 0, 0);
1954
1955         /* Erase the screen */
1956         for (k = 1; k < hgt; k++) prt("", k, 13);
1957
1958         /* Label the information */
1959         if ((o_ptr->tval == TV_STATUE) && (o_ptr->sval == SV_PHOTO))
1960         {
1961                 monster_race *r_ptr = &r_info[o_ptr->pval];
1962                 int namelen = strlen(r_name + r_ptr->name);
1963                 prt(format("%s: '", r_name + r_ptr->name), 1, 15);
1964                 Term_queue_bigchar(18 + namelen, 1, r_ptr->x_attr, r_ptr->x_char, 0, 0);
1965                 prt("'", 1, (use_bigtile ? 20 : 19) + namelen);
1966         }
1967         else
1968 #ifdef JP
1969 prt("     ¥¢¥¤¥Æ¥à¤ÎÇ½ÎÏ:", 1, 15);
1970 #else
1971         prt("     Item Attributes:", 1, 15);
1972 #endif
1973
1974         /* We will print on top of the map (column 13) */
1975         for (k = 2, j = 0; j < i; j++)
1976         {
1977                 /* Show the info */
1978                 prt(info[j], k++, 15);
1979
1980                 /* Every 20 entries (lines 2 to 21), start over */
1981                 if ((k == hgt - 2) && (j+1 < i))
1982                 {
1983 #ifdef JP
1984 prt("-- Â³¤¯ --", k, 15);
1985 #else
1986                         prt("-- more --", k, 15);
1987 #endif
1988                         inkey();
1989                         for (; k > 2; k--) prt("", k, 15);
1990                 }
1991         }
1992
1993         /* Wait for it */
1994 #ifdef JP
1995 prt("[²¿¤«¥¡¼¤ò²¡¤¹¤È¥²¡¼¥à¤ËÌá¤ê¤Þ¤¹]", k, 15);
1996 #else
1997         prt("[Press any key to continue]", k, 15);
1998 #endif
1999
2000         inkey();
2001
2002         /* Restore the screen */
2003         screen_load();
2004
2005         /* Gave knowledge */
2006         return (TRUE);
2007 }
2008
2009
2010
2011 /*
2012  * Convert an inventory index into a one character label
2013  * Note that the label does NOT distinguish inven/equip.
2014  */
2015 char index_to_label(int i)
2016 {
2017         /* Indexes for "inven" are easy */
2018         if (i < INVEN_RARM) return (I2A(i));
2019
2020         /* Indexes for "equip" are offset */
2021         return (I2A(i - INVEN_RARM));
2022 }
2023
2024
2025 /*
2026  * Convert a label into the index of an item in the "inven"
2027  * Return "-1" if the label does not indicate a real item
2028  */
2029 s16b label_to_inven(int c)
2030 {
2031         int i;
2032
2033         /* Convert */
2034         i = (islower(c) ? A2I(c) : -1);
2035
2036         /* Verify the index */
2037         if ((i < 0) || (i > INVEN_PACK)) return (-1);
2038
2039         /* Empty slots can never be chosen */
2040         if (!inventory[i].k_idx) return (-1);
2041
2042         /* Return the index */
2043         return (i);
2044 }
2045
2046
2047 /* See cmd5.c */
2048 extern bool select_ring_slot;
2049
2050
2051 static bool is_ring_slot(int i)
2052 {
2053         return (i == INVEN_RIGHT) || (i == INVEN_LEFT);
2054 }
2055
2056
2057 /*
2058  * Convert a label into the index of a item in the "equip"
2059  * Return "-1" if the label does not indicate a real item
2060  */
2061 s16b label_to_equip(int c)
2062 {
2063         int i;
2064
2065         /* Convert */
2066         i = (islower(c) ? A2I(c) : -1) + INVEN_RARM;
2067
2068         /* Verify the index */
2069         if ((i < INVEN_RARM) || (i >= INVEN_TOTAL)) return (-1);
2070
2071         if (select_ring_slot) return is_ring_slot(i) ? i : -1;
2072
2073         /* Empty slots can never be chosen */
2074         if (!inventory[i].k_idx) return (-1);
2075
2076         /* Return the index */
2077         return (i);
2078 }
2079
2080
2081
2082 /*
2083  * Determine which equipment slot (if any) an item likes
2084  */
2085 s16b wield_slot(object_type *o_ptr)
2086 {
2087         /* Slot for equipment */
2088         switch (o_ptr->tval)
2089         {
2090                 case TV_DIGGING:
2091                 case TV_HAFTED:
2092                 case TV_POLEARM:
2093                 case TV_SWORD:
2094                 {
2095                         if (!inventory[INVEN_RARM].k_idx) return (INVEN_RARM);
2096                         if (inventory[INVEN_LARM].k_idx) return (INVEN_RARM);
2097                         return (INVEN_LARM);
2098                 }
2099
2100                 case TV_CAPTURE:
2101                 case TV_CARD:
2102                 case TV_SHIELD:
2103                 {
2104                         if (!inventory[INVEN_LARM].k_idx) return (INVEN_LARM);
2105                         if (inventory[INVEN_RARM].k_idx) return (INVEN_LARM);
2106                         return (INVEN_RARM);
2107                 }
2108
2109                 case TV_BOW:
2110                 {
2111                         return (INVEN_BOW);
2112                 }
2113
2114                 case TV_RING:
2115                 {
2116                         /* Use the right hand first */
2117                         if (!inventory[INVEN_RIGHT].k_idx) return (INVEN_RIGHT);
2118
2119                         /* Use the left hand for swapping (by default) */
2120                         return (INVEN_LEFT);
2121                 }
2122
2123                 case TV_AMULET:
2124                 case TV_WHISTLE:
2125                 {
2126                         return (INVEN_NECK);
2127                 }
2128
2129                 case TV_LITE:
2130                 {
2131                         return (INVEN_LITE);
2132                 }
2133
2134                 case TV_DRAG_ARMOR:
2135                 case TV_HARD_ARMOR:
2136                 case TV_SOFT_ARMOR:
2137                 {
2138                         return (INVEN_BODY);
2139                 }
2140
2141                 case TV_CLOAK:
2142                 {
2143                         return (INVEN_OUTER);
2144                 }
2145
2146                 case TV_CROWN:
2147                 case TV_HELM:
2148                 {
2149                         return (INVEN_HEAD);
2150                 }
2151
2152                 case TV_GLOVES:
2153                 {
2154                         return (INVEN_HANDS);
2155                 }
2156
2157                 case TV_BOOTS:
2158                 {
2159                         return (INVEN_FEET);
2160                 }
2161         }
2162
2163         /* No slot available */
2164         return (-1);
2165 }
2166
2167
2168 /*
2169  * Return a string mentioning how a given item is carried
2170  */
2171 cptr mention_use(int i)
2172 {
2173         cptr p;
2174
2175         /* Examine the location */
2176         switch (i)
2177         {
2178 #ifdef JP
2179                 case INVEN_RARM:  p = p_ptr->heavy_wield[0] ? "±¿ÈÂÃæ" : ((p_ptr->ryoute && p_ptr->migite) ? " Î¾¼ê" : (left_hander ? " º¸¼ê" : " ±¦¼ê")); break;
2180 #else
2181                 case INVEN_RARM:  p = p_ptr->heavy_wield[0] ? "Just lifting" : (p_ptr->migite ? "Wielding" : "On arm"); break;
2182 #endif
2183
2184 #ifdef JP
2185                 case INVEN_LARM:  p = p_ptr->heavy_wield[1] ? "±¿ÈÂÃæ" : ((p_ptr->ryoute && p_ptr->hidarite) ? " Î¾¼ê" : (left_hander ? " ±¦¼ê" : " º¸¼ê")); break;
2186 #else
2187                 case INVEN_LARM:  p = p_ptr->heavy_wield[1] ? "Just lifting" : (p_ptr->hidarite ? "Wielding" : "On arm"); break;
2188 #endif
2189
2190 #ifdef JP
2191                 case INVEN_BOW:   p = (adj_str_hold[p_ptr->stat_ind[A_STR]] < inventory[i].weight / 10) ? "±¿ÈÂÃæ" : "¼Í·âÍÑ"; break;
2192 #else
2193                 case INVEN_BOW:   p = (adj_str_hold[p_ptr->stat_ind[A_STR]] < inventory[i].weight / 10) ? "Just holding" : "Shooting"; break;
2194 #endif
2195
2196 #ifdef JP
2197                 case INVEN_RIGHT: p = (left_hander ? "º¸¼ê»Ø" : "±¦¼ê»Ø"); break;
2198 #else
2199                 case INVEN_RIGHT: p = (left_hander ? "On left hand" : "On right hand"); break;
2200 #endif
2201
2202 #ifdef JP
2203                 case INVEN_LEFT:  p = (left_hander ? "±¦¼ê»Ø" : "º¸¼ê»Ø"); break;
2204 #else
2205                 case INVEN_LEFT:  p = (left_hander ? "On right hand" : "On left hand"); break;
2206 #endif
2207
2208 #ifdef JP
2209                 case INVEN_NECK:  p = "  ¼ó"; break;
2210 #else
2211                 case INVEN_NECK:  p = "Around neck"; break;
2212 #endif
2213
2214 #ifdef JP
2215                 case INVEN_LITE:  p = " ¸÷¸»"; break;
2216 #else
2217                 case INVEN_LITE:  p = "Light source"; break;
2218 #endif
2219
2220 #ifdef JP
2221                 case INVEN_BODY:  p = "  ÂÎ"; break;
2222 #else
2223                 case INVEN_BODY:  p = "On body"; break;
2224 #endif
2225
2226 #ifdef JP
2227                 case INVEN_OUTER: p = "ÂÎ¤Î¾å"; break;
2228 #else
2229                 case INVEN_OUTER: p = "About body"; break;
2230 #endif
2231
2232 #ifdef JP
2233                 case INVEN_HEAD:  p = "  Ƭ"; break;
2234 #else
2235                 case INVEN_HEAD:  p = "On head"; break;
2236 #endif
2237
2238 #ifdef JP
2239                 case INVEN_HANDS: p = "  ¼ê"; break;
2240 #else
2241                 case INVEN_HANDS: p = "On hands"; break;
2242 #endif
2243
2244 #ifdef JP
2245                 case INVEN_FEET:  p = "  "; break;
2246 #else
2247                 case INVEN_FEET:  p = "On feet"; break;
2248 #endif
2249
2250 #ifdef JP
2251                 default:          p = "¥¶¥Ã¥¯"; break;
2252 #else
2253                 default:          p = "In pack"; break;
2254 #endif
2255         }
2256
2257         /* Return the result */
2258         return p;
2259 }
2260
2261
2262 /*
2263  * Return a string describing how a given item is being worn.
2264  * Currently, only used for items in the equipment, not inventory.
2265  */
2266 cptr describe_use(int i)
2267 {
2268         cptr p;
2269
2270         switch (i)
2271         {
2272 #ifdef JP
2273                 case INVEN_RARM:  p = p_ptr->heavy_wield[0] ? "±¿ÈÂÃæ¤Î" : ((p_ptr->ryoute && p_ptr->migite) ? "Î¾¼ê¤ËÁõÈ÷¤·¤Æ¤¤¤ë" : (left_hander ? "º¸¼ê¤ËÁõÈ÷¤·¤Æ¤¤¤ë" : "±¦¼ê¤ËÁõÈ÷¤·¤Æ¤¤¤ë")); break;
2274 #else
2275                 case INVEN_RARM:  p = p_ptr->heavy_wield[0] ? "just lifting" : (p_ptr->migite ? "attacking monsters with" : "wearing on your arm"); break;
2276 #endif
2277
2278 #ifdef JP
2279                 case INVEN_LARM:  p = p_ptr->heavy_wield[1] ? "±¿ÈÂÃæ¤Î" : ((p_ptr->ryoute && p_ptr->hidarite) ? "Î¾¼ê¤ËÁõÈ÷¤·¤Æ¤¤¤ë" : (left_hander ? "±¦¼ê¤ËÁõÈ÷¤·¤Æ¤¤¤ë" : "º¸¼ê¤ËÁõÈ÷¤·¤Æ¤¤¤ë")); break;
2280 #else
2281                 case INVEN_LARM:  p = p_ptr->heavy_wield[1] ? "just lifting" : (p_ptr->hidarite ? "attacking monsters with" : "wearing on your arm"); break;
2282 #endif
2283
2284 #ifdef JP
2285                 case INVEN_BOW:   p = (adj_str_hold[p_ptr->stat_ind[A_STR]] < inventory[i].weight / 10) ? "»ý¤Ä¤À¤±¤ÇÀº°ìÇÕ¤Î" : "¼Í·âÍÑ¤ËÁõÈ÷¤·¤Æ¤¤¤ë"; break;
2286 #else
2287                 case INVEN_BOW:   p = (adj_str_hold[p_ptr->stat_ind[A_STR]] < inventory[i].weight / 10) ? "just holding" : "shooting missiles with"; break;
2288 #endif
2289
2290 #ifdef JP
2291                 case INVEN_RIGHT: p = (left_hander ? "º¸¼ê¤Î»Ø¤Ë¤Ï¤á¤Æ¤¤¤ë" : "±¦¼ê¤Î»Ø¤Ë¤Ï¤á¤Æ¤¤¤ë"); break;
2292 #else
2293                 case INVEN_RIGHT: p = (left_hander ? "wearing on your left hand" : "wearing on your right hand"); break;
2294 #endif
2295
2296 #ifdef JP
2297                 case INVEN_LEFT:  p = (left_hander ? "±¦¼ê¤Î»Ø¤Ë¤Ï¤á¤Æ¤¤¤ë" : "º¸¼ê¤Î»Ø¤Ë¤Ï¤á¤Æ¤¤¤ë"); break;
2298 #else
2299                 case INVEN_LEFT:  p = (left_hander ? "wearing on your right hand" : "wearing on your left hand"); break;
2300 #endif
2301
2302 #ifdef JP
2303                 case INVEN_NECK:  p = "¼ó¤Ë¤«¤±¤Æ¤¤¤ë"; break;
2304 #else
2305                 case INVEN_NECK:  p = "wearing around your neck"; break;
2306 #endif
2307
2308 #ifdef JP
2309                 case INVEN_LITE:  p = "¸÷¸»¤Ë¤·¤Æ¤¤¤ë"; break;
2310 #else
2311                 case INVEN_LITE:  p = "using to light the way"; break;
2312 #endif
2313
2314 #ifdef JP
2315                 case INVEN_BODY:  p = "ÂÎ¤ËÃå¤Æ¤¤¤ë"; break;
2316 #else
2317                 case INVEN_BODY:  p = "wearing on your body"; break;
2318 #endif
2319
2320 #ifdef JP
2321                 case INVEN_OUTER: p = "¿È¤Ë¤Þ¤È¤Ã¤Æ¤¤¤ë"; break;
2322 #else
2323                 case INVEN_OUTER: p = "wearing on your back"; break;
2324 #endif
2325
2326 #ifdef JP
2327                 case INVEN_HEAD:  p = "Æ¬¤Ë¤«¤Ö¤Ã¤Æ¤¤¤ë"; break;
2328 #else
2329                 case INVEN_HEAD:  p = "wearing on your head"; break;
2330 #endif
2331
2332 #ifdef JP
2333                 case INVEN_HANDS: p = "¼ê¤Ë¤Ä¤±¤Æ¤¤¤ë"; break;
2334 #else
2335                 case INVEN_HANDS: p = "wearing on your hands"; break;
2336 #endif
2337
2338 #ifdef JP
2339                 case INVEN_FEET:  p = "Â¤Ë¤Ï¤¤¤Æ¤¤¤ë"; break;
2340 #else
2341                 case INVEN_FEET:  p = "wearing on your feet"; break;
2342 #endif
2343
2344 #ifdef JP
2345                 default:          p = "¥¶¥Ã¥¯¤ËÆþ¤Ã¤Æ¤¤¤ë"; break;
2346 #else
2347                 default:          p = "carrying in your pack"; break;
2348 #endif
2349         }
2350
2351         /* Return the result */
2352         return p;
2353 }
2354
2355
2356 /* Hack: Check if a spellbook is one of the realms we can use. -- TY */
2357
2358 bool check_book_realm(const byte book_tval, const byte book_sval)
2359 {
2360         if (book_tval < TV_LIFE_BOOK) return FALSE;
2361         if (p_ptr->pclass == CLASS_SORCERER)
2362         {
2363                 return is_magic(tval2realm(book_tval));
2364         }
2365         else if (p_ptr->pclass == CLASS_RED_MAGE)
2366         {
2367                 if (is_magic(tval2realm(book_tval)))
2368                         return ((book_tval == TV_ARCANE_BOOK) || (book_sval < 2));
2369         }
2370         return (REALM1_BOOK == book_tval || REALM2_BOOK == book_tval);
2371 }
2372
2373
2374 /*
2375  * Check an item against the item tester info
2376  */
2377 bool item_tester_okay(object_type *o_ptr)
2378 {
2379         /* Hack -- allow listing empty slots */
2380         if (item_tester_full) return (TRUE);
2381
2382         /* Require an item */
2383         if (!o_ptr->k_idx) return (FALSE);
2384
2385         /* Hack -- ignore "gold" */
2386         if (o_ptr->tval == TV_GOLD)
2387         {
2388                 /* See xtra2.c */
2389                 extern bool show_gold_on_floor;
2390
2391                 if (!show_gold_on_floor) return (FALSE);
2392         }
2393
2394         /* Check the tval */
2395         if (item_tester_tval)
2396         {
2397                 /* Is it a spellbook? If so, we need a hack -- TY */
2398                 if ((item_tester_tval <= TV_DEATH_BOOK) &&
2399                         (item_tester_tval >= TV_LIFE_BOOK))
2400                         return check_book_realm(o_ptr->tval, o_ptr->sval);
2401                 else
2402                         if (item_tester_tval != o_ptr->tval) return (FALSE);
2403         }
2404
2405         /* Check the hook */
2406         if (item_tester_hook)
2407         {
2408                 if (!(*item_tester_hook)(o_ptr)) return (FALSE);
2409         }
2410
2411         /* Assume okay */
2412         return (TRUE);
2413 }
2414
2415
2416
2417
2418 /*
2419  * Choice window "shadow" of the "show_inven()" function
2420  */
2421 void display_inven(void)
2422 {
2423         register        int i, n, z = 0;
2424         object_type     *o_ptr;
2425         byte            attr = TERM_WHITE;
2426         char            tmp_val[80];
2427         char            o_name[MAX_NLEN];
2428         int             wid, hgt;
2429
2430         /* Get size */
2431         Term_get_size(&wid, &hgt);
2432
2433         /* Find the "final" slot */
2434         for (i = 0; i < INVEN_PACK; i++)
2435         {
2436                 o_ptr = &inventory[i];
2437
2438                 /* Skip non-objects */
2439                 if (!o_ptr->k_idx) continue;
2440
2441                 /* Track */
2442                 z = i + 1;
2443         }
2444
2445         /* Display the pack */
2446         for (i = 0; i < z; i++)
2447         {
2448                 /* Examine the item */
2449                 o_ptr = &inventory[i];
2450
2451                 /* Start with an empty "index" */
2452                 tmp_val[0] = tmp_val[1] = tmp_val[2] = ' ';
2453
2454                 /* Is this item "acceptable"? */
2455                 if (item_tester_okay(o_ptr))
2456                 {
2457                         /* Prepare an "index" */
2458                         tmp_val[0] = index_to_label(i);
2459
2460                         /* Bracket the "index" --(-- */
2461                         tmp_val[1] = ')';
2462                 }
2463
2464                 /* Display the index (or blank space) */
2465                 Term_putstr(0, i, 3, TERM_WHITE, tmp_val);
2466
2467                 /* Obtain an item description */
2468                 object_desc(o_name, o_ptr, 0);
2469
2470                 /* Obtain the length of the description */
2471                 n = strlen(o_name);
2472
2473                 /* Get a color */
2474                 attr = tval_to_attr[o_ptr->tval % 128];
2475
2476                 /* Grey out charging items */
2477                 if (o_ptr->timeout)
2478                 {
2479                         attr = TERM_L_DARK;
2480                 }
2481
2482                 /* Display the entry itself */
2483                 Term_putstr(3, i, n, attr, o_name);
2484
2485                 /* Erase the rest of the line */
2486                 Term_erase(3+n, i, 255);
2487
2488                 /* Display the weight if needed */
2489                 if (show_weights)
2490                 {
2491                         int wgt = o_ptr->weight * o_ptr->number;
2492 #ifdef JP
2493                         sprintf(tmp_val, "%3d.%1d kg", lbtokg1(wgt),lbtokg2(wgt) );
2494 #else
2495                         sprintf(tmp_val, "%3d.%1d lb", wgt / 10, wgt % 10);
2496 #endif
2497
2498                         prt(tmp_val, i, wid - 9);
2499                 }
2500         }
2501
2502         /* Erase the rest of the window */
2503         for (i = z; i < hgt; i++)
2504         {
2505                 /* Erase the line */
2506                 Term_erase(0, i, 255);
2507         }
2508 }
2509
2510
2511
2512 /*
2513  * Choice window "shadow" of the "show_equip()" function
2514  */
2515 void display_equip(void)
2516 {
2517         register        int i, n;
2518         object_type     *o_ptr;
2519         byte            attr = TERM_WHITE;
2520         char            tmp_val[80];
2521         char            o_name[MAX_NLEN];
2522         int             wid, hgt;
2523
2524         /* Get size */
2525         Term_get_size(&wid, &hgt);
2526
2527         /* Display the equipment */
2528         for (i = INVEN_RARM; i < INVEN_TOTAL; i++)
2529         {
2530                 /* Examine the item */
2531                 o_ptr = &inventory[i];
2532
2533                 /* Start with an empty "index" */
2534                 tmp_val[0] = tmp_val[1] = tmp_val[2] = ' ';
2535
2536                 /* Is this item "acceptable"? */
2537                 if (select_ring_slot ? is_ring_slot(i) : item_tester_okay(o_ptr))
2538                 {
2539                         /* Prepare an "index" */
2540                         tmp_val[0] = index_to_label(i);
2541
2542                         /* Bracket the "index" --(-- */
2543                         tmp_val[1] = ')';
2544                 }
2545
2546                 /* Display the index (or blank space) */
2547                 Term_putstr(0, i - INVEN_RARM, 3, TERM_WHITE, tmp_val);
2548
2549                 /* Obtain an item description */
2550                 if ((((i == INVEN_RARM) && p_ptr->hidarite) || ((i == INVEN_LARM) && p_ptr->migite)) && p_ptr->ryoute)
2551                 {
2552 #ifdef JP
2553                         strcpy(o_name, "(Éð´ï¤òÎ¾¼ê»ý¤Á)");
2554 #else
2555                         strcpy(o_name, "(wielding with two-hands)");
2556 #endif
2557                         attr = TERM_WHITE;
2558                 }
2559                 else
2560                 {
2561                         object_desc(o_name, o_ptr, 0);
2562                         attr = tval_to_attr[o_ptr->tval % 128];
2563                 }
2564
2565                 /* Obtain the length of the description */
2566                 n = strlen(o_name);
2567
2568                 /* Grey out charging items */
2569                 if (o_ptr->timeout)
2570                 {
2571                         attr = TERM_L_DARK;
2572                 }
2573
2574                 /* Display the entry itself */
2575                 Term_putstr(3, i - INVEN_RARM, n, attr, o_name);
2576
2577                 /* Erase the rest of the line */
2578                 Term_erase(3+n, i - INVEN_RARM, 255);
2579
2580                 /* Display the weight (if needed) */
2581                 if (show_weights)
2582                 {
2583                         int wgt = o_ptr->weight * o_ptr->number;
2584 #ifdef JP
2585                         sprintf(tmp_val, "%3d.%1d kg", lbtokg1(wgt) , lbtokg2(wgt));
2586 #else
2587                         sprintf(tmp_val, "%3d.%1d lb", wgt / 10, wgt % 10);
2588 #endif
2589
2590                         prt(tmp_val, i - INVEN_RARM, wid - (show_labels ? 28 : 9));
2591                 }
2592
2593                 /* Display the slot description (if needed) */
2594                 if (show_labels)
2595                 {
2596                         Term_putstr(wid - 20, i - INVEN_RARM, -1, TERM_WHITE, " <-- ");
2597                         prt(mention_use(i), i - INVEN_RARM, wid - 15);
2598                 }
2599         }
2600
2601         /* Erase the rest of the window */
2602         for (i = INVEN_TOTAL - INVEN_RARM; i < hgt; i++)
2603         {
2604                 /* Clear that line */
2605                 Term_erase(0, i, 255);
2606         }
2607 }
2608
2609
2610 /*
2611  * Find the "first" inventory object with the given "tag".
2612  *
2613  * A "tag" is a numeral "n" appearing as "@n" anywhere in the
2614  * inscription of an object.  Alphabetical characters don't work as a
2615  * tag in this form.
2616  *
2617  * Also, the tag "@xn" will work as well, where "n" is a any tag-char,
2618  * and "x" is the "current" command_cmd code.
2619  */
2620 static bool get_tag(int *cp, char tag, int mode)
2621 {
2622         int i, start, end;
2623         cptr s;
2624
2625         /* Extract index from mode */
2626         switch (mode)
2627         {
2628         case USE_EQUIP:
2629                 start = INVEN_RARM;
2630                 end = INVEN_TOTAL - 1;
2631                 break;
2632
2633         case USE_INVEN:
2634                 start = 0;
2635                 end = INVEN_PACK - 1;
2636                 break;
2637
2638         default:
2639                 return FALSE;
2640         }
2641
2642         /**** Find a tag in the form of {@x#} (allow alphabet tag) ***/
2643
2644         /* Check every inventory object */
2645         for (i = start; i <= end; i++)
2646         {
2647                 object_type *o_ptr = &inventory[i];
2648
2649                 /* Skip non-objects */
2650                 if (!o_ptr->k_idx) continue;
2651
2652                 /* Skip empty inscriptions */
2653                 if (!o_ptr->inscription) continue;
2654
2655                 /* Skip non-choice */
2656                 if (!item_tester_okay(o_ptr)) continue;
2657
2658                 /* Find a '@' */
2659                 s = my_strchr(quark_str(o_ptr->inscription), '@');
2660
2661                 /* Process all tags */
2662                 while (s)
2663                 {
2664                         /* Check the special tags */
2665                         if ((s[1] == command_cmd) && (s[2] == tag))
2666                         {
2667                                 /* Save the actual inventory ID */
2668                                 *cp = i;
2669
2670                                 /* Success */
2671                                 return (TRUE);
2672                         }
2673
2674                         /* Find another '@' */
2675                         s = my_strchr(s + 1, '@');
2676                 }
2677         }
2678
2679
2680         /**** Find a tag in the form of {@#} (allows only numerals)  ***/
2681
2682         /* Don't allow {@#} with '#' being alphabet */
2683         if (tag < '0' || '9' < tag)
2684         {
2685                 /* No such tag */
2686                 return FALSE;
2687         }
2688
2689         /* Check every object */
2690         for (i = start; i <= end; i++)
2691         {
2692                 object_type *o_ptr = &inventory[i];
2693
2694                 /* Skip non-objects */
2695                 if (!o_ptr->k_idx) continue;
2696
2697                 /* Skip empty inscriptions */
2698                 if (!o_ptr->inscription) continue;
2699
2700                 /* Skip non-choice */
2701                 if (!item_tester_okay(o_ptr)) continue;
2702
2703                 /* Find a '@' */
2704                 s = my_strchr(quark_str(o_ptr->inscription), '@');
2705
2706                 /* Process all tags */
2707                 while (s)
2708                 {
2709                         /* Check the normal tags */
2710                         if (s[1] == tag)
2711                         {
2712                                 /* Save the actual inventory ID */
2713                                 *cp = i;
2714
2715                                 /* Success */
2716                                 return (TRUE);
2717                         }
2718
2719                         /* Find another '@' */
2720                         s = my_strchr(s + 1, '@');
2721                 }
2722         }
2723
2724         /* No such tag */
2725         return (FALSE);
2726 }
2727
2728
2729 /*
2730  * Find the "first" floor object with the given "tag".
2731  *
2732  * A "tag" is a numeral "n" appearing as "@n" anywhere in the
2733  * inscription of an object.  Alphabetical characters don't work as a
2734  * tag in this form.
2735  *
2736  * Also, the tag "@xn" will work as well, where "n" is a any tag-char,
2737  * and "x" is the "current" command_cmd code.
2738  */
2739 static bool get_tag_floor(int *cp, char tag, int floor_list[], int floor_num)
2740 {
2741         int i;
2742         cptr s;
2743
2744         /**** Find a tag in the form of {@x#} (allow alphabet tag) ***/
2745
2746         /* Check every object in the grid */
2747         for (i = 0; i < floor_num && i < 23; i++)
2748         {
2749                 object_type *o_ptr = &o_list[floor_list[i]];
2750
2751                 /* Skip empty inscriptions */
2752                 if (!o_ptr->inscription) continue;
2753
2754                 /* Find a '@' */
2755                 s = my_strchr(quark_str(o_ptr->inscription), '@');
2756
2757                 /* Process all tags */
2758                 while (s)
2759                 {
2760                         /* Check the special tags */
2761                         if ((s[1] == command_cmd) && (s[2] == tag))
2762                         {
2763                                 /* Save the actual floor object ID */
2764                                 *cp = i;
2765
2766                                 /* Success */
2767                                 return (TRUE);
2768                         }
2769
2770                         /* Find another '@' */
2771                         s = my_strchr(s + 1, '@');
2772                 }
2773         }
2774
2775
2776         /**** Find a tag in the form of {@#} (allows only numerals)  ***/
2777
2778         /* Don't allow {@#} with '#' being alphabet */
2779         if (tag < '0' || '9' < tag)
2780         {
2781                 /* No such tag */
2782                 return FALSE;
2783         }
2784
2785         /* Check every object in the grid */
2786         for (i = 0; i < floor_num && i < 23; i++)
2787         {
2788                 object_type *o_ptr = &o_list[floor_list[i]];
2789
2790                 /* Skip empty inscriptions */
2791                 if (!o_ptr->inscription) continue;
2792
2793                 /* Find a '@' */
2794                 s = my_strchr(quark_str(o_ptr->inscription), '@');
2795
2796                 /* Process all tags */
2797                 while (s)
2798                 {
2799                         /* Check the normal tags */
2800                         if (s[1] == tag)
2801                         {
2802                                 /* Save the floor object ID */
2803                                 *cp = i;
2804
2805                                 /* Success */
2806                                 return (TRUE);
2807                         }
2808
2809                         /* Find another '@' */
2810                         s = my_strchr(s + 1, '@');
2811                 }
2812         }
2813
2814         /* No such tag */
2815         return (FALSE);
2816 }
2817
2818
2819 /*
2820  * Move around label characters with correspond tags
2821  */
2822 static void prepare_label_string(char *label, int mode)
2823 {
2824         cptr alphabet_chars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
2825         int  offset = (mode == USE_EQUIP) ? INVEN_RARM : 0;
2826         int  i;
2827
2828         /* Prepare normal labels */
2829         strcpy(label, alphabet_chars);
2830
2831         /* Move each label */
2832         for (i = 0; i < 52; i++)
2833         {
2834                 int index;
2835                 char c = alphabet_chars[i];
2836
2837                 /* Find a tag with this label */
2838                 if (get_tag(&index, c, mode))
2839                 {
2840                         /* Delete the overwritten label */
2841                         if (label[i] == c) label[i] = ' ';
2842
2843                         /* Move the label to the place of corresponding tag */
2844                         label[index - offset] = c;
2845                 }
2846         }
2847 }
2848
2849
2850 /*
2851  * Move around label characters with correspond tags (floor version)
2852  */
2853 static void prepare_label_string_floor(char *label, int floor_list[], int floor_num)
2854 {
2855         cptr alphabet_chars = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ";
2856         int  i;
2857
2858         /* Prepare normal labels */
2859         strcpy(label, alphabet_chars);
2860
2861         /* Move each label */
2862         for (i = 0; i < 52; i++)
2863         {
2864                 int index;
2865                 char c = alphabet_chars[i];
2866
2867                 /* Find a tag with this label */
2868                 if (get_tag_floor(&index, c, floor_list, floor_num))
2869                 {
2870                         /* Delete the overwritten label */
2871                         if (label[i] == c) label[i] = ' ';
2872
2873                         /* Move the label to the place of corresponding tag */
2874                         label[index] = c;
2875                 }
2876         }
2877 }
2878
2879
2880 /*
2881  * Display the inventory.
2882  *
2883  * Hack -- do not display "trailing" empty slots
2884  */
2885 int show_inven(int target_item)
2886 {
2887         int             i, j, k, l, z = 0;
2888         int             col, cur_col, len;
2889         object_type     *o_ptr;
2890         char            o_name[MAX_NLEN];
2891         char            tmp_val[80];
2892         int             out_index[23];
2893         byte            out_color[23];
2894         char            out_desc[23][MAX_NLEN];
2895         int             target_item_label = 0;
2896         int             wid, hgt;
2897         char            inven_label[52 + 1];
2898
2899         /* Starting column */
2900         col = command_gap;
2901
2902         /* Get size */
2903         Term_get_size(&wid, &hgt);
2904
2905         /* Default "max-length" */
2906         len = wid - col - 1;
2907
2908
2909         /* Find the "final" slot */
2910         for (i = 0; i < INVEN_PACK; i++)
2911         {
2912                 o_ptr = &inventory[i];
2913
2914                 /* Skip non-objects */
2915                 if (!o_ptr->k_idx) continue;
2916
2917                 /* Track */
2918                 z = i + 1;
2919         }
2920
2921         prepare_label_string(inven_label, USE_INVEN);
2922
2923         /* Display the inventory */
2924         for (k = 0, i = 0; i < z; i++)
2925         {
2926                 o_ptr = &inventory[i];
2927
2928                 /* Is this item acceptable? */
2929                 if (!item_tester_okay(o_ptr)) continue;
2930
2931                 /* Describe the object */
2932                 object_desc(o_name, o_ptr, 0);
2933
2934                 /* Save the object index, color, and description */
2935                 out_index[k] = i;
2936                 out_color[k] = tval_to_attr[o_ptr->tval % 128];
2937
2938                 /* Grey out charging items */
2939                 if (o_ptr->timeout)
2940                 {
2941                         out_color[k] = TERM_L_DARK;
2942                 }
2943
2944                 (void)strcpy(out_desc[k], o_name);
2945
2946                 /* Find the predicted "line length" */
2947                 l = strlen(out_desc[k]) + 5;
2948
2949                 /* Be sure to account for the weight */
2950                 if (show_weights) l += 9;
2951
2952                 /* Account for icon if displayed */
2953                 if (show_item_graph)
2954                 {
2955                         l += 2;
2956                         if (use_bigtile) l++;
2957                 }
2958
2959                 /* Maintain the maximum length */
2960                 if (l > len) len = l;
2961
2962                 /* Advance to next "line" */
2963                 k++;
2964         }
2965
2966         /* Find the column to start in */
2967         col = (len > wid - 4) ? 0 : (wid - len - 1);
2968
2969         /* Output each entry */
2970         for (j = 0; j < k; j++)
2971         {
2972                 /* Get the index */
2973                 i = out_index[j];
2974
2975                 /* Get the item */
2976                 o_ptr = &inventory[i];
2977
2978                 /* Clear the line */
2979                 prt("", j + 1, col ? col - 2 : col);
2980
2981                 if (use_menu && target_item)
2982                 {
2983                         if (j == (target_item-1))
2984                         {
2985 #ifdef JP
2986                                 strcpy(tmp_val, "¡Õ");
2987 #else
2988                                 strcpy(tmp_val, "> ");
2989 #endif
2990                                 target_item_label = i;
2991                         }
2992                         else strcpy(tmp_val, "  ");
2993                 }
2994                 else if (i <= INVEN_PACK)
2995                 {
2996                         /* Prepare an index --(-- */
2997                         sprintf(tmp_val, "%c)", inven_label[i]);
2998                 }
2999                 else
3000                 {
3001                         /* Prepare an index --(-- */
3002                         sprintf(tmp_val, "%c)", index_to_label(i));
3003                 }
3004
3005                 /* Clear the line with the (possibly indented) index */
3006                 put_str(tmp_val, j + 1, col);
3007
3008                 cur_col = col + 3;
3009
3010                 /* Display graphics for object, if desired */
3011                 if (show_item_graph)
3012                 {
3013                         byte  a = object_attr(o_ptr);
3014                         char c = object_char(o_ptr);
3015
3016 #ifdef AMIGA
3017                         if (a & 0x80) a |= 0x40;
3018 #endif
3019
3020                         Term_queue_bigchar(cur_col, j + 1, a, c, 0, 0);
3021                         if (use_bigtile) cur_col++;
3022
3023                         cur_col += 2;
3024                 }
3025
3026
3027                 /* Display the entry itself */
3028                 c_put_str(out_color[j], out_desc[j], j + 1, cur_col);
3029
3030                 /* Display the weight if needed */
3031                 if (show_weights)
3032                 {
3033                         int wgt = o_ptr->weight * o_ptr->number;
3034 #ifdef JP
3035                         (void)sprintf(tmp_val, "%3d.%1d kg", lbtokg1(wgt) , lbtokg2(wgt) );
3036 #else
3037                         (void)sprintf(tmp_val, "%3d.%1d lb", wgt / 10, wgt % 10);
3038 #endif
3039
3040                         prt(tmp_val, j + 1, wid - 9);
3041                 }
3042         }
3043
3044         /* Make a "shadow" below the list (only if needed) */
3045         if (j && (j < 23)) prt("", j + 1, col ? col - 2 : col);
3046
3047         /* Save the new column */
3048         command_gap = col;
3049
3050         return target_item_label;
3051 }
3052
3053
3054
3055 /*
3056  * Display the equipment.
3057  */
3058 int show_equip(int target_item)
3059 {
3060         int             i, j, k, l;
3061         int             col, cur_col, len;
3062         object_type     *o_ptr;
3063         char            tmp_val[80];
3064         char            o_name[MAX_NLEN];
3065         int             out_index[23];
3066         byte            out_color[23];
3067         char            out_desc[23][MAX_NLEN];
3068         int             target_item_label = 0;
3069         int             wid, hgt;
3070         char            equip_label[52 + 1];
3071
3072         /* Starting column */
3073         col = command_gap;
3074
3075         /* Get size */
3076         Term_get_size(&wid, &hgt);
3077
3078         /* Maximal length */
3079         len = wid - col - 1;
3080
3081
3082         /* Scan the equipment list */
3083         for (k = 0, i = INVEN_RARM; i < INVEN_TOTAL; i++)
3084         {
3085                 o_ptr = &inventory[i];
3086
3087                 /* Is this item acceptable? */
3088                 if (!(select_ring_slot ? is_ring_slot(i) : item_tester_okay(o_ptr)) &&
3089                     (!((((i == INVEN_RARM) && p_ptr->hidarite) || ((i == INVEN_LARM) && p_ptr->migite)) && p_ptr->ryoute) ||
3090                      item_tester_no_ryoute)) continue;
3091
3092                 /* Description */
3093                 object_desc(o_name, o_ptr, 0);
3094
3095                 if ((((i == INVEN_RARM) && p_ptr->hidarite) || ((i == INVEN_LARM) && p_ptr->migite)) && p_ptr->ryoute)
3096                 {
3097 #ifdef JP
3098                         (void)strcpy(out_desc[k],"(Éð´ï¤òÎ¾¼ê»ý¤Á)");
3099 #else
3100                         (void)strcpy(out_desc[k],"(wielding with two-hands)");
3101 #endif
3102                         out_color[k] = TERM_WHITE;
3103                 }
3104                 else
3105                 {
3106                         (void)strcpy(out_desc[k], o_name);
3107                         out_color[k] = tval_to_attr[o_ptr->tval % 128];
3108                 }
3109
3110                 out_index[k] = i;
3111                 /* Grey out charging items */
3112                 if (o_ptr->timeout)
3113                 {
3114                         out_color[k] = TERM_L_DARK;
3115                 }
3116
3117                 /* Extract the maximal length (see below) */
3118 #ifdef JP
3119                 l = strlen(out_desc[k]) + (2 + 1);
3120 #else
3121                 l = strlen(out_desc[k]) + (2 + 3);
3122 #endif
3123
3124
3125                 /* Increase length for labels (if needed) */
3126 #ifdef JP
3127                 if (show_labels) l += (7 + 2);
3128 #else
3129                 if (show_labels) l += (14 + 2);
3130 #endif
3131
3132
3133                 /* Increase length for weight (if needed) */
3134                 if (show_weights) l += 9;
3135
3136                 if (show_item_graph) l += 2;
3137
3138                 /* Maintain the max-length */
3139                 if (l > len) len = l;
3140
3141                 /* Advance the entry */
3142                 k++;
3143         }
3144
3145         /* Hack -- Find a column to start in */
3146 #ifdef JP
3147         col = (len > wid - 6) ? 0 : (wid - len - 1);
3148 #else
3149         col = (len > wid - 4) ? 0 : (wid - len - 1);
3150 #endif
3151
3152         prepare_label_string(equip_label, USE_EQUIP);
3153
3154         /* Output each entry */
3155         for (j = 0; j < k; j++)
3156         {
3157                 /* Get the index */
3158                 i = out_index[j];
3159
3160                 /* Get the item */
3161                 o_ptr = &inventory[i];
3162
3163                 /* Clear the line */
3164                 prt("", j + 1, col ? col - 2 : col);
3165
3166                 if (use_menu && target_item)
3167                 {
3168                         if (j == (target_item-1))
3169                         {
3170 #ifdef JP
3171                                 strcpy(tmp_val, "¡Õ");
3172 #else
3173                                 strcpy(tmp_val, "> ");
3174 #endif
3175                                 target_item_label = i;
3176                         }
3177                         else strcpy(tmp_val, "  ");
3178                 }
3179                 else if (i >= INVEN_RARM)
3180                 {
3181                         /* Prepare an index --(-- */
3182                         sprintf(tmp_val, "%c)", equip_label[i - INVEN_RARM]);
3183                 }
3184                 else /* Paranoia */
3185                 {
3186                         /* Prepare an index --(-- */
3187                         sprintf(tmp_val, "%c)", index_to_label(i));
3188                 }
3189
3190                 /* Clear the line with the (possibly indented) index */
3191                 put_str(tmp_val, j+1, col);
3192
3193                 cur_col = col + 3;
3194
3195                 /* Display graphics for object, if desired */
3196                 if (show_item_graph)
3197                 {
3198                         byte a = object_attr(o_ptr);
3199                         char c = object_char(o_ptr);
3200
3201 #ifdef AMIGA
3202                         if (a & 0x80) a |= 0x40;
3203 #endif
3204
3205                         Term_queue_bigchar(cur_col, j + 1, a, c, 0, 0);
3206                         if (use_bigtile) cur_col++;
3207
3208                         cur_col += 2;
3209                 }
3210
3211                 /* Use labels */
3212                 if (show_labels)
3213                 {
3214                         /* Mention the use */
3215 #ifdef JP
3216                         (void)sprintf(tmp_val, "%-7s: ", mention_use(i));
3217 #else
3218                         (void)sprintf(tmp_val, "%-14s: ", mention_use(i));
3219 #endif
3220
3221                         put_str(tmp_val, j+1, cur_col);
3222
3223                         /* Display the entry itself */
3224 #ifdef JP
3225                         c_put_str(out_color[j], out_desc[j], j+1, cur_col + 9);
3226 #else
3227                         c_put_str(out_color[j], out_desc[j], j+1, cur_col + 16);
3228 #endif
3229                 }
3230
3231                 /* No labels */
3232                 else
3233                 {
3234                         /* Display the entry itself */
3235                         c_put_str(out_color[j], out_desc[j], j+1, cur_col);
3236                 }
3237
3238                 /* Display the weight if needed */
3239                 if (show_weights)
3240                 {
3241                         int wgt = o_ptr->weight * o_ptr->number;
3242 #ifdef JP
3243                         (void)sprintf(tmp_val, "%3d.%1d kg", lbtokg1(wgt) , lbtokg2(wgt) );
3244 #else
3245                         (void)sprintf(tmp_val, "%3d.%d lb", wgt / 10, wgt % 10);
3246 #endif
3247
3248                         prt(tmp_val, j + 1, wid - 9);
3249                 }
3250         }
3251
3252         /* Make a "shadow" below the list (only if needed) */
3253         if (j && (j < 23)) prt("", j + 1, col ? col - 2 : col);
3254
3255         /* Save the new column */
3256         command_gap = col;
3257
3258         return target_item_label;
3259 }
3260
3261
3262
3263
3264 /*
3265  * Flip "inven" and "equip" in any sub-windows
3266  */
3267 void toggle_inven_equip(void)
3268 {
3269         int j;
3270
3271         /* Scan windows */
3272         for (j = 0; j < 8; j++)
3273         {
3274                 /* Unused */
3275                 if (!angband_term[j]) continue;
3276
3277                 /* Flip inven to equip */
3278                 if (window_flag[j] & (PW_INVEN))
3279                 {
3280                         /* Flip flags */
3281                         window_flag[j] &= ~(PW_INVEN);
3282                         window_flag[j] |= (PW_EQUIP);
3283
3284                         /* Window stuff */
3285                         p_ptr->window |= (PW_EQUIP);
3286                 }
3287
3288                 /* Flip inven to equip */
3289                 else if (window_flag[j] & (PW_EQUIP))
3290                 {
3291                         /* Flip flags */
3292                         window_flag[j] &= ~(PW_EQUIP);
3293                         window_flag[j] |= (PW_INVEN);
3294
3295                         /* Window stuff */
3296                         p_ptr->window |= (PW_INVEN);
3297                 }
3298         }
3299 }
3300
3301
3302
3303 /*
3304  * Verify the choice of an item.
3305  *
3306  * The item can be negative to mean "item on floor".
3307  */
3308 static bool verify(cptr prompt, int item)
3309 {
3310         char        o_name[MAX_NLEN];
3311         char        out_val[MAX_NLEN+20];
3312         object_type *o_ptr;
3313
3314
3315         /* Inventory */
3316         if (item >= 0)
3317         {
3318                 o_ptr = &inventory[item];
3319         }
3320
3321         /* Floor */
3322         else
3323         {
3324                 o_ptr = &o_list[0 - item];
3325         }
3326
3327         /* Describe */
3328         object_desc(o_name, o_ptr, 0);
3329
3330         /* Prompt */
3331 #ifdef JP
3332 (void)sprintf(out_val, "%s%s¤Ç¤¹¤«? ", prompt, o_name);
3333 #else
3334         (void)sprintf(out_val, "%s %s? ", prompt, o_name);
3335 #endif
3336
3337
3338         /* Query */
3339         return (get_check(out_val));
3340 }
3341
3342
3343 /*
3344  * Hack -- allow user to "prevent" certain choices
3345  *
3346  * The item can be negative to mean "item on floor".
3347  */
3348 static bool get_item_allow(int item)
3349 {
3350         cptr s;
3351
3352         object_type *o_ptr;
3353
3354         if (!command_cmd) return TRUE; /* command_cmd is no longer effective */
3355
3356         /* Inventory */
3357         if (item >= 0)
3358         {
3359                 o_ptr = &inventory[item];
3360         }
3361
3362         /* Floor */
3363         else
3364         {
3365                 o_ptr = &o_list[0 - item];
3366         }
3367
3368         /* No inscription */
3369         if (!o_ptr->inscription) return (TRUE);
3370
3371         /* Find a '!' */
3372         s = my_strchr(quark_str(o_ptr->inscription), '!');
3373
3374         /* Process preventions */
3375         while (s)
3376         {
3377                 /* Check the "restriction" */
3378                 if ((s[1] == command_cmd) || (s[1] == '*'))
3379                 {
3380                         /* Verify the choice */
3381 #ifdef JP
3382 if (!verify("ËÜÅö¤Ë", item)) return (FALSE);
3383 #else
3384                         if (!verify("Really try", item)) return (FALSE);
3385 #endif
3386
3387                 }
3388
3389                 /* Find another '!' */
3390                 s = my_strchr(s + 1, '!');
3391         }
3392
3393         /* Allow it */
3394         return (TRUE);
3395 }
3396
3397
3398
3399 /*
3400  * Auxiliary function for "get_item()" -- test an index
3401  */
3402 static bool get_item_okay(int i)
3403 {
3404         /* Illegal items */
3405         if ((i < 0) || (i >= INVEN_TOTAL)) return (FALSE);
3406
3407         if (select_ring_slot) return is_ring_slot(i);
3408
3409         /* Verify the item */
3410         if (!item_tester_okay(&inventory[i])) return (FALSE);
3411
3412         /* Assume okay */
3413         return (TRUE);
3414 }
3415
3416
3417
3418 /*
3419  * Determine whether get_item() can get some item or not
3420  * assuming mode = (USE_EQUIP | USE_INVEN | USE_FLOOR).
3421  */
3422 bool can_get_item(void)
3423 {
3424         int j, floor_list[23], floor_num = 0;
3425
3426         for (j = 0; j < INVEN_TOTAL; j++)
3427                 if (item_tester_okay(&inventory[j]))
3428                         return TRUE;
3429
3430         floor_num = scan_floor(floor_list, py, px, 0x03);
3431         if (floor_num)
3432                 return TRUE;
3433
3434         return FALSE;
3435 }
3436
3437 /*
3438  * Let the user select an item, save its "index"
3439  *
3440  * Return TRUE only if an acceptable item was chosen by the user.
3441  *
3442  * The selected item must satisfy the "item_tester_hook()" function,
3443  * if that hook is set, and the "item_tester_tval", if that value is set.
3444  *
3445  * All "item_tester" restrictions are cleared before this function returns.
3446  *
3447  * The user is allowed to choose acceptable items from the equipment,
3448  * inventory, or floor, respectively, if the proper flag was given,
3449  * and there are any acceptable items in that location.
3450  *
3451  * The equipment or inventory are displayed (even if no acceptable
3452  * items are in that location) if the proper flag was given.
3453  *
3454  * If there are no acceptable items available anywhere, and "str" is
3455  * not NULL, then it will be used as the text of a warning message
3456  * before the function returns.
3457  *
3458  * Note that the user must press "-" to specify the item on the floor,
3459  * and there is no way to "examine" the item on the floor, while the
3460  * use of "capital" letters will "examine" an inventory/equipment item,
3461  * and prompt for its use.
3462  *
3463  * If a legal item is selected from the inventory, we save it in "cp"
3464  * directly (0 to 35), and return TRUE.
3465  *
3466  * If a legal item is selected from the floor, we save it in "cp" as
3467  * a negative (-1 to -511), and return TRUE.
3468  *
3469  * If no item is available, we do nothing to "cp", and we display a
3470  * warning message, using "str" if available, and return FALSE.
3471  *
3472  * If no item is selected, we do nothing to "cp", and return FALSE.
3473  *
3474  * Global "p_ptr->command_new" is used when viewing the inventory or equipment
3475  * to allow the user to enter a command while viewing those screens, and
3476  * also to induce "auto-enter" of stores, and other such stuff.
3477  *
3478  * Global "p_ptr->command_see" may be set before calling this function to start
3479  * out in "browse" mode.  It is cleared before this function returns.
3480  *
3481  * Global "p_ptr->command_wrk" is used to choose between equip/inven listings.
3482  * If it is TRUE then we are viewing inventory, else equipment.
3483  *
3484  * We always erase the prompt when we are done, leaving a blank line,
3485  * or a warning message, if appropriate, if no items are available.
3486  */
3487 bool get_item(int *cp, cptr pmt, cptr str, int mode)
3488 {
3489         s16b this_o_idx, next_o_idx = 0;
3490
3491         char which = ' ';
3492
3493         int j, k, i1, i2, e1, e2;
3494
3495         bool done, item;
3496
3497         bool oops = FALSE;
3498
3499         bool equip = FALSE;
3500         bool inven = FALSE;
3501         bool floor = FALSE;
3502
3503         bool allow_floor = FALSE;
3504
3505         bool toggle = FALSE;
3506
3507         char tmp_val[160];
3508         char out_val[160];
3509
3510         /* See cmd5.c */
3511         extern bool select_the_force;
3512
3513         int menu_line = (use_menu ? 1 : 0);
3514         int max_inven = 0;
3515         int max_equip = 0;
3516
3517 #ifdef ALLOW_REPEAT
3518
3519         static char prev_tag = '\0';
3520         char cur_tag = '\0';
3521
3522 #endif /* ALLOW_REPEAT */
3523
3524 #ifdef ALLOW_EASY_FLOOR /* TNB */
3525
3526         if (easy_floor || use_menu) return get_item_floor(cp, pmt, str, mode);
3527
3528 #endif /* ALLOW_EASY_FLOOR -- TNB */
3529
3530         /* Extract args */
3531         if (mode & USE_EQUIP) equip = TRUE;
3532         if (mode & USE_INVEN) inven = TRUE;
3533         if (mode & USE_FLOOR) floor = TRUE;
3534
3535 #ifdef ALLOW_REPEAT
3536
3537         /* Get the item index */
3538         if (repeat_pull(cp))
3539         {
3540                 /* the_force */
3541                 if (select_the_force && (*cp == INVEN_FORCE))
3542                 {
3543                         item_tester_tval = 0;
3544                         item_tester_hook = NULL;
3545                         command_cmd = 0; /* Hack -- command_cmd is no longer effective */
3546                         return (TRUE);
3547                 }
3548
3549                 /* Floor item? */
3550                 else if (floor && (*cp < 0))
3551                 {
3552                         object_type *o_ptr;
3553
3554                         /* Special index */
3555                         k = 0 - (*cp);
3556
3557                         /* Acquire object */
3558                         o_ptr = &o_list[k];
3559
3560                         /* Validate the item */
3561                         if (item_tester_okay(o_ptr))
3562                         {
3563                                 /* Forget restrictions */
3564                                 item_tester_tval = 0;
3565                                 item_tester_hook = NULL;
3566                                 command_cmd = 0; /* Hack -- command_cmd is no longer effective */
3567
3568                                 /* Success */
3569                                 return TRUE;
3570                         }
3571                 }
3572
3573                 else if ((inven && (*cp >= 0) && (*cp < INVEN_PACK)) ||
3574                          (equip && (*cp >= INVEN_RARM) && (*cp < INVEN_TOTAL)))
3575                 {
3576                         if (prev_tag && command_cmd)
3577                         {
3578                                 /* Look up the tag and validate the item */
3579                                 if (!get_tag(&k, prev_tag, (*cp >= INVEN_RARM) ? USE_EQUIP : USE_INVEN)) /* Reject */;
3580                                 else if ((k < INVEN_RARM) ? !inven : !equip) /* Reject */;
3581                                 else if (!get_item_okay(k)) /* Reject */;
3582                                 else
3583                                 {
3584                                         /* Accept that choice */
3585                                         (*cp) = k;
3586
3587                                         /* Forget restrictions */
3588                                         item_tester_tval = 0;
3589                                         item_tester_hook = NULL;
3590                                         command_cmd = 0; /* Hack -- command_cmd is no longer effective */
3591
3592                                         /* Success */
3593                                         return TRUE;
3594                                 }
3595
3596                                 prev_tag = '\0'; /* prev_tag is no longer effective */
3597                         }
3598
3599                         /* Verify the item */
3600                         else if (get_item_okay(*cp))
3601                         {
3602                                 /* Forget restrictions */
3603                                 item_tester_tval = 0;
3604                                 item_tester_hook = NULL;
3605                                 command_cmd = 0; /* Hack -- command_cmd is no longer effective */
3606
3607                                 /* Success */
3608                                 return TRUE;
3609                         }
3610                 }
3611         }
3612
3613 #endif /* ALLOW_REPEAT */
3614
3615
3616         /* Paranoia XXX XXX XXX */
3617         msg_print(NULL);
3618
3619
3620         /* Not done */
3621         done = FALSE;
3622
3623         /* No item selected */
3624         item = FALSE;
3625
3626
3627         /* Full inventory */
3628         i1 = 0;
3629         i2 = INVEN_PACK - 1;
3630
3631         /* Forbid inventory */
3632         if (!inven) i2 = -1;
3633         else if (use_menu)
3634         {
3635                 for (j = 0; j < INVEN_PACK; j++)
3636                         if (item_tester_okay(&inventory[j])) max_inven++;
3637         }
3638
3639         /* Restrict inventory indexes */
3640         while ((i1 <= i2) && (!get_item_okay(i1))) i1++;
3641         while ((i1 <= i2) && (!get_item_okay(i2))) i2--;
3642
3643
3644         /* Full equipment */
3645         e1 = INVEN_RARM;
3646         e2 = INVEN_TOTAL - 1;
3647
3648         /* Forbid equipment */
3649         if (!equip) e2 = -1;
3650         else if (use_menu)
3651         {
3652                 for (j = INVEN_RARM; j < INVEN_TOTAL; j++)
3653                         if (select_ring_slot ? is_ring_slot(j) : item_tester_okay(&inventory[j])) max_equip++;
3654                 if (p_ptr->ryoute && !item_tester_no_ryoute) max_equip++;
3655         }
3656
3657         /* Restrict equipment indexes */
3658         while ((e1 <= e2) && (!get_item_okay(e1))) e1++;
3659         while ((e1 <= e2) && (!get_item_okay(e2))) e2--;
3660
3661         if (equip && p_ptr->ryoute && !item_tester_no_ryoute)
3662         {
3663                 if (p_ptr->migite)
3664                 {
3665                         if (e2 < INVEN_LARM) e2 = INVEN_LARM;
3666                 }
3667                 else if (p_ptr->hidarite) e1 = INVEN_RARM;
3668         }
3669
3670
3671         /* Restrict floor usage */
3672         if (floor)
3673         {
3674                 /* Scan all objects in the grid */
3675                 for (this_o_idx = cave[py][px].o_idx; this_o_idx; this_o_idx = next_o_idx)
3676                 {
3677                         object_type *o_ptr;
3678
3679                         /* Acquire object */
3680                         o_ptr = &o_list[this_o_idx];
3681
3682                         /* Acquire next object */
3683                         next_o_idx = o_ptr->next_o_idx;
3684
3685                         /* Accept the item on the floor if legal */
3686                         if (item_tester_okay(o_ptr) && (o_ptr->marked & OM_FOUND)) allow_floor = TRUE;
3687                 }
3688         }
3689
3690         /* Require at least one legal choice */
3691         if (!allow_floor && (i1 > i2) && (e1 > e2))
3692         {
3693                 /* Cancel p_ptr->command_see */
3694                 command_see = FALSE;
3695
3696                 /* Oops */
3697                 oops = TRUE;
3698
3699                 /* Done */
3700                 done = TRUE;
3701
3702                 if (select_the_force) {
3703                     *cp = INVEN_FORCE;
3704                     item = TRUE;
3705                 }
3706         }
3707
3708         /* Analyze choices */
3709         else
3710         {
3711                 /* Hack -- Start on equipment if requested */
3712                 if (command_see && command_wrk && equip)
3713                 {
3714                         command_wrk = TRUE;
3715                 }
3716
3717                 /* Use inventory if allowed */
3718                 else if (inven)
3719                 {
3720                         command_wrk = FALSE;
3721                 }
3722
3723                 /* Use equipment if allowed */
3724                 else if (equip)
3725                 {
3726                         command_wrk = TRUE;
3727                 }
3728
3729                 /* Use inventory for floor */
3730                 else
3731                 {
3732                         command_wrk = FALSE;
3733                 }
3734         }
3735
3736
3737         /*
3738          * ÄÉ²Ã¥ª¥×¥·¥ç¥ó(always_show_list)¤¬ÀßÄê¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¾ï¤Ë°ìÍ÷¤òÉ½¼¨¤¹¤ë
3739          */
3740         if ((always_show_list == TRUE) || use_menu) command_see = TRUE;
3741
3742         /* Hack -- start out in "display" mode */
3743         if (command_see)
3744         {
3745                 /* Save screen */
3746                 screen_save();
3747         }
3748
3749
3750         /* Repeat until done */
3751         while (!done)
3752         {
3753                 int get_item_label = 0;
3754
3755                 /* Show choices */
3756                 int ni = 0;
3757                 int ne = 0;
3758
3759                 /* Scan windows */
3760                 for (j = 0; j < 8; j++)
3761                 {
3762                         /* Unused */
3763                         if (!angband_term[j]) continue;
3764
3765                         /* Count windows displaying inven */
3766                         if (window_flag[j] & (PW_INVEN)) ni++;
3767
3768                         /* Count windows displaying equip */
3769                         if (window_flag[j] & (PW_EQUIP)) ne++;
3770                 }
3771
3772                 /* Toggle if needed */
3773                 if ((command_wrk && ni && !ne) ||
3774                     (!command_wrk && !ni && ne))
3775                 {
3776                         /* Toggle */
3777                         toggle_inven_equip();
3778
3779                         /* Track toggles */
3780                         toggle = !toggle;
3781                 }
3782
3783                 /* Update */
3784                 p_ptr->window |= (PW_INVEN | PW_EQUIP);
3785
3786                 /* Redraw windows */
3787                 window_stuff();
3788
3789
3790                 /* Inventory screen */
3791                 if (!command_wrk)
3792                 {
3793                         /* Redraw if needed */
3794                         if (command_see) get_item_label = show_inven(menu_line);
3795                 }
3796
3797                 /* Equipment screen */
3798                 else
3799                 {
3800                         /* Redraw if needed */
3801                         if (command_see) get_item_label = show_equip(menu_line);
3802                 }
3803
3804                 /* Viewing inventory */
3805                 if (!command_wrk)
3806                 {
3807                         /* Begin the prompt */
3808 #ifdef JP
3809                         sprintf(out_val, "»ý¤ÁÊª:");
3810 #else
3811                         sprintf(out_val, "Inven:");
3812 #endif
3813
3814                         /* Some legal items */
3815                         if ((i1 <= i2) && !use_menu)
3816                         {
3817                                 /* Build the prompt */
3818 #ifdef JP
3819                                 sprintf(tmp_val, "%c-%c,'(',')',",
3820 #else
3821                                 sprintf(tmp_val, " %c-%c,'(',')',",
3822 #endif
3823                                         index_to_label(i1), index_to_label(i2));
3824
3825                                 /* Append */
3826                                 strcat(out_val, tmp_val);
3827                         }
3828
3829                         /* Indicate ability to "view" */
3830 #ifdef JP
3831                         if (!command_see && !use_menu) strcat(out_val, " '*'°ìÍ÷,");
3832 #else
3833                         if (!command_see && !use_menu) strcat(out_val, " * to see,");
3834 #endif
3835
3836                         /* Append */
3837 #ifdef JP
3838                         if (equip) strcat(out_val, format(" %s ÁõÈ÷ÉÊ,", use_menu ? "'4'or'6'" : "'/'"));
3839 #else
3840                         if (equip) strcat(out_val, format(" %s for Equip,", use_menu ? "4 or 6" : "/"));
3841 #endif
3842                 }
3843
3844                 /* Viewing equipment */
3845                 else
3846                 {
3847                         /* Begin the prompt */
3848 #ifdef JP
3849                         sprintf(out_val, "ÁõÈ÷ÉÊ:");
3850 #else
3851                         sprintf(out_val, "Equip:");
3852 #endif
3853
3854                         /* Some legal items */
3855                         if ((e1 <= e2) && !use_menu)
3856                         {
3857                                 /* Build the prompt */
3858 #ifdef JP
3859                                 sprintf(tmp_val, "%c-%c,'(',')',",
3860 #else
3861                                 sprintf(tmp_val, " %c-%c,'(',')',",
3862 #endif
3863                                         index_to_label(e1), index_to_label(e2));
3864
3865                                 /* Append */
3866                                 strcat(out_val, tmp_val);
3867                         }
3868
3869                         /* Indicate ability to "view" */
3870 #ifdef JP
3871                         if (!command_see && !use_menu) strcat(out_val, " '*'°ìÍ÷,");
3872 #else
3873                         if (!command_see) strcat(out_val, " * to see,");
3874 #endif
3875
3876                         /* Append */
3877 #ifdef JP
3878                         if (inven) strcat(out_val, format(" %s »ý¤ÁÊª,", use_menu ? "'4'or'6'" : "'/'"));
3879 #else
3880                         if (inven) strcat(out_val, format(" %s for Inven,", use_menu ? "4 or 6" : "'/'"));
3881 #endif
3882                 }
3883
3884                 /* Indicate legality of the "floor" item */
3885 #ifdef JP
3886                 if (allow_floor) strcat(out_val, " '-'¾²¾å,");
3887                 if (select_the_force) strcat(out_val, " 'w'Îýµ¤½Ñ,");
3888 #else
3889                 if (allow_floor) strcat(out_val, " - for floor,");
3890                 if (select_the_force) strcat(out_val, " w for the Force,");
3891 #endif
3892
3893                 /* Finish the prompt */
3894                 strcat(out_val, " ESC");
3895
3896                 /* Build the prompt */
3897                 sprintf(tmp_val, "(%s) %s", out_val, pmt);
3898
3899                 /* Show the prompt */
3900                 prt(tmp_val, 0, 0);
3901
3902                 /* Get a key */
3903                 which = inkey();
3904
3905                 if (use_menu)
3906                 {
3907                 int max_line = (command_wrk ? max_equip : max_inven);
3908                 switch (which)
3909                 {
3910                         case ESCAPE:
3911                         case 'z':
3912                         case 'Z':
3913                         case '0':
3914                         {
3915                                 done = TRUE;
3916                                 break;
3917                         }
3918
3919                         case '8':
3920                         case 'k':
3921                         case 'K':
3922                         {
3923                                 menu_line += (max_line - 1);
3924                                 break;
3925                         }
3926
3927                         case '2':
3928                         case 'j':
3929                         case 'J':
3930                         {
3931                                 menu_line++;
3932                                 break;
3933                         }
3934
3935                         case '4':
3936                         case '6':
3937                         case 'h':
3938                         case 'H':
3939                         case 'l':
3940                         case 'L':
3941                         {
3942                                 /* Verify legality */
3943                                 if (!inven || !equip)
3944                                 {
3945                                         bell();
3946                                         break;
3947                                 }
3948
3949                                 /* Hack -- Fix screen */
3950                                 if (command_see)
3951                                 {
3952                                         /* Load screen */
3953                                         screen_load();
3954
3955                                         /* Save screen */
3956                                         screen_save();
3957                                 }
3958
3959                                 /* Switch inven/equip */
3960                                 command_wrk = !command_wrk;
3961                                 max_line = (command_wrk ? max_equip : max_inven);
3962                                 if (menu_line > max_line) menu_line = max_line;
3963
3964                                 /* Need to redraw */
3965                                 break;
3966                         }
3967
3968                         case 'x':
3969                         case 'X':
3970                         case '\r':
3971                         case '\n':
3972                         {
3973                                 if (command_wrk == USE_FLOOR)
3974                                 {
3975                                         /* Special index */
3976                                         (*cp) = -get_item_label;
3977                                 }
3978                                 else
3979                                 {
3980                                         /* Validate the item */
3981                                         if (!get_item_okay(get_item_label))
3982                                         {
3983                                                 bell();
3984                                                 break;
3985                                         }
3986
3987                                         /* Allow player to "refuse" certain actions */
3988                                         if (!get_item_allow(get_item_label))
3989                                         {
3990                                                 done = TRUE;
3991                                                 break;
3992                                         }
3993
3994                                         /* Accept that choice */
3995                                         (*cp) = get_item_label;
3996                                 }
3997
3998                                 item = TRUE;
3999                                 done = TRUE;
4000                                 break;
4001                         }
4002                         case 'w':
4003                         {
4004                                 if (select_the_force) {
4005                                         *cp = INVEN_FORCE;
4006                                         item = TRUE;
4007                                         done = TRUE;
4008                                         break;
4009                                 }
4010                         }
4011                 }
4012                 if (menu_line > max_line) menu_line -= max_line;
4013                 }
4014                 else
4015                 {
4016                 /* Parse it */
4017                 switch (which)
4018                 {
4019                         case ESCAPE:
4020                         {
4021                                 done = TRUE;
4022                                 break;
4023                         }
4024
4025                         case '*':
4026                         case '?':
4027                         case ' ':
4028                         {
4029                                 /* Hide the list */
4030                                 if (command_see)
4031                                 {
4032                                         /* Flip flag */
4033                                         command_see = FALSE;
4034
4035                                         /* Load screen */
4036                                         screen_load();
4037                                 }
4038
4039                                 /* Show the list */
4040                                 else
4041                                 {
4042                                         /* Save screen */
4043                                         screen_save();
4044
4045                                         /* Flip flag */
4046                                         command_see = TRUE;
4047                                 }
4048                                 break;
4049                         }
4050
4051                         case '/':
4052                         {
4053                                 /* Verify legality */
4054                                 if (!inven || !equip)
4055                                 {
4056                                         bell();
4057                                         break;
4058                                 }
4059
4060                                 /* Hack -- Fix screen */
4061                                 if (command_see)
4062                                 {
4063                                         /* Load screen */
4064                                         screen_load();
4065
4066                                         /* Save screen */
4067                                         screen_save();
4068                                 }
4069
4070                                 /* Switch inven/equip */
4071                                 command_wrk = !command_wrk;
4072
4073                                 /* Need to redraw */
4074                                 break;
4075                         }
4076
4077                         case '-':
4078                         {
4079                                 /* Use floor item */
4080                                 if (allow_floor)
4081                                 {
4082                                         /* Scan all objects in the grid */
4083                                         for (this_o_idx = cave[py][px].o_idx; this_o_idx; this_o_idx = next_o_idx)
4084                                         {
4085                                                 object_type *o_ptr;
4086
4087                                                 /* Acquire object */
4088                                                 o_ptr = &o_list[this_o_idx];
4089
4090                                                 /* Acquire next object */
4091                                                 next_o_idx = o_ptr->next_o_idx;
4092
4093                                                 /* Validate the item */
4094                                                 if (!item_tester_okay(o_ptr)) continue;
4095
4096                                                 /* Special index */
4097                                                 k = 0 - this_o_idx;
4098
4099                                                 /* Verify the item (if required) */
4100 #ifdef JP
4101 if (other_query_flag && !verify("ËÜÅö¤Ë", k)) continue;
4102 #else
4103                                                 if (other_query_flag && !verify("Try", k)) continue;
4104 #endif
4105
4106
4107                                                 /* Allow player to "refuse" certain actions */
4108                                                 if (!get_item_allow(k)) continue;
4109
4110                                                 /* Accept that choice */
4111                                                 (*cp) = k;
4112                                                 item = TRUE;
4113                                                 done = TRUE;
4114                                                 break;
4115                                         }
4116
4117                                         /* Outer break */
4118                                         if (done) break;
4119                                 }
4120
4121                                 /* Oops */
4122                                 bell();
4123                                 break;
4124                         }
4125
4126                         case '0':
4127                         case '1': case '2': case '3':
4128                         case '4': case '5': case '6':
4129                         case '7': case '8': case '9':
4130                         {
4131                                 /* Look up the tag */
4132                                 if (!get_tag(&k, which, command_wrk ? USE_EQUIP : USE_INVEN))
4133                                 {
4134                                         bell();
4135                                         break;
4136                                 }
4137
4138                                 /* Hack -- Validate the item */
4139                                 if ((k < INVEN_RARM) ? !inven : !equip)
4140                                 {
4141                                         bell();
4142                                         break;
4143                                 }
4144
4145                                 /* Validate the item */
4146                                 if (!get_item_okay(k))
4147                                 {
4148                                         bell();
4149                                         break;
4150                                 }
4151
4152                                 /* Allow player to "refuse" certain actions */
4153                                 if (!get_item_allow(k))
4154                                 {
4155                                         done = TRUE;
4156                                         break;
4157                                 }
4158
4159                                 /* Accept that choice */
4160                                 (*cp) = k;
4161                                 item = TRUE;
4162                                 done = TRUE;
4163 #ifdef ALLOW_REPEAT
4164                                 cur_tag = which;
4165 #endif /* ALLOW_REPEAT */
4166                                 break;
4167                         }
4168
4169 #if 0
4170                         case '\n':
4171                         case '\r':
4172                         {
4173                                 /* Choose "default" inventory item */
4174                                 if (!command_wrk)
4175                                 {
4176                                         k = ((i1 == i2) ? i1 : -1);
4177                                 }
4178
4179                                 /* Choose "default" equipment item */
4180                                 else
4181                                 {
4182                                         k = ((e1 == e2) ? e1 : -1);
4183                                 }
4184
4185                                 /* Validate the item */
4186                                 if (!get_item_okay(k))
4187                                 {
4188                                         bell();
4189                                         break;
4190                                 }
4191
4192                                 /* Allow player to "refuse" certain actions */
4193                                 if (!get_item_allow(k))
4194                                 {
4195                                         done = TRUE;
4196                                         break;
4197                                 }
4198
4199                                 /* Accept that choice */
4200                                 (*cp) = k;
4201                                 item = TRUE;
4202                                 done = TRUE;
4203                                 break;
4204                         }
4205 #endif
4206
4207                         case 'w':
4208                         {
4209                                 if (select_the_force) {
4210                                         *cp = INVEN_FORCE;
4211                                         item = TRUE;
4212                                         done = TRUE;
4213                                         break;
4214                                 }
4215
4216                                 /* Fall through */
4217                         }
4218
4219                         default:
4220                         {
4221                                 int ver;
4222                                 bool not_found = FALSE;
4223
4224                                 /* Look up the alphabetical tag */
4225                                 if (!get_tag(&k, which, command_wrk ? USE_EQUIP : USE_INVEN))
4226                                 {
4227                                         not_found = TRUE;
4228                                 }
4229
4230                                 /* Hack -- Validate the item */
4231                                 else if ((k < INVEN_RARM) ? !inven : !equip)
4232                                 {
4233                                         not_found = TRUE;
4234                                 }
4235
4236                                 /* Validate the item */
4237                                 else if (!get_item_okay(k))
4238                                 {
4239                                         not_found = TRUE;
4240                                 }
4241
4242                                 if (!not_found)
4243                                 {
4244                                         /* Accept that choice */
4245                                         (*cp) = k;
4246                                         item = TRUE;
4247                                         done = TRUE;
4248 #ifdef ALLOW_REPEAT
4249                                         cur_tag = which;
4250 #endif /* ALLOW_REPEAT */
4251                                         break;
4252                                 }
4253
4254                                 /* Extract "query" setting */
4255                                 ver = isupper(which);
4256                                 which = tolower(which);
4257
4258                                 /* Convert letter to inventory index */
4259                                 if (!command_wrk)
4260                                 {
4261                                         if (which == '(') k = i1;
4262                                         else if (which == ')') k = i2;
4263                                         else k = label_to_inven(which);
4264                                 }
4265
4266                                 /* Convert letter to equipment index */
4267                                 else
4268                                 {
4269                                         if (which == '(') k = e1;
4270                                         else if (which == ')') k = e2;
4271                                         else k = label_to_equip(which);
4272                                 }
4273
4274                                 /* Validate the item */
4275                                 if (!get_item_okay(k))
4276                                 {
4277                                         bell();
4278                                         break;
4279                                 }
4280
4281                                 /* Verify the item */
4282 #ifdef JP
4283 if (ver && !verify("ËÜÅö¤Ë", k))
4284 #else
4285                                 if (ver && !verify("Try", k))
4286 #endif
4287
4288                                 {
4289                                         done = TRUE;
4290                                         break;
4291                                 }
4292
4293                                 /* Allow player to "refuse" certain actions */
4294                                 if (!get_item_allow(k))
4295                                 {
4296                                         done = TRUE;
4297                                         break;
4298                                 }
4299
4300                                 /* Accept that choice */
4301                                 (*cp) = k;
4302                                 item = TRUE;
4303                                 done = TRUE;
4304                                 break;
4305                         }
4306                 }
4307                 }
4308         }
4309
4310
4311         /* Fix the screen if necessary */
4312         if (command_see)
4313         {
4314                 /* Load screen */
4315                 screen_load();
4316
4317                 /* Hack -- Cancel "display" */
4318                 command_see = FALSE;
4319         }
4320
4321
4322         /* Forget the item_tester_tval restriction */
4323         item_tester_tval = 0;
4324
4325         item_tester_no_ryoute = FALSE;
4326
4327         /* Forget the item_tester_hook restriction */
4328         item_tester_hook = NULL;
4329
4330
4331         /* Clean up  'show choices' */
4332         /* Toggle again if needed */
4333         if (toggle) toggle_inven_equip();
4334
4335         /* Update */
4336         p_ptr->window |= (PW_INVEN | PW_EQUIP);
4337
4338         /* Window stuff */
4339         window_stuff();
4340
4341
4342         /* Clear the prompt line */
4343         prt("", 0, 0);
4344
4345         /* Warning if needed */
4346         if (oops && str) msg_print(str);
4347
4348         if (item)
4349         {
4350 #ifdef ALLOW_REPEAT
4351                 repeat_push(*cp);
4352                 if (command_cmd) prev_tag = cur_tag;
4353 #endif /* ALLOW_REPEAT */
4354
4355                 command_cmd = 0; /* Hack -- command_cmd is no longer effective */
4356         }
4357
4358         /* Result */
4359         return (item);
4360 }
4361
4362
4363 #ifdef ALLOW_EASY_FLOOR
4364
4365 /*
4366  * scan_floor --
4367  *
4368  * Return a list of o_list[] indexes of items at the given cave
4369  * location. Valid flags are:
4370  *
4371  *              mode & 0x01 -- Item tester
4372  *              mode & 0x02 -- Marked items only
4373  *              mode & 0x04 -- Stop after first
4374  */
4375 int scan_floor(int *items, int y, int x, int mode)
4376 {
4377         int this_o_idx, next_o_idx;
4378
4379         int num = 0;
4380
4381         /* Sanity */
4382         if (!in_bounds(y, x)) return 0;
4383
4384         /* Scan all objects in the grid */
4385         for (this_o_idx = cave[y][x].o_idx; this_o_idx; this_o_idx = next_o_idx)
4386         {
4387                 object_type *o_ptr;
4388
4389                 /* Acquire object */
4390                 o_ptr = &o_list[this_o_idx];
4391
4392                 /* Acquire next object */
4393                 next_o_idx = o_ptr->next_o_idx;
4394
4395                 /* Item tester */
4396                 if ((mode & 0x01) && !item_tester_okay(o_ptr)) continue;
4397
4398                 /* Marked */
4399                 if ((mode & 0x02) && !(o_ptr->marked & OM_FOUND)) continue;
4400
4401                 /* Accept this item */
4402                 /* XXX Hack -- Enforce limit */
4403                 if (num < 23)
4404                         items[num] = this_o_idx;
4405
4406                 num++;
4407
4408                 /* Only one */
4409                 if (mode & 0x04) break;
4410         }
4411
4412         /* Result */
4413         return num;
4414 }
4415
4416
4417 /*
4418  * Display a list of the items on the floor at the given location.
4419  */
4420 int show_floor(int target_item, int y, int x, int *min_width)
4421 {
4422         int i, j, k, l;
4423         int col, len;
4424
4425         object_type *o_ptr;
4426
4427         char o_name[MAX_NLEN];
4428
4429         char tmp_val[80];
4430
4431         int out_index[23];
4432         byte out_color[23];
4433         char out_desc[23][MAX_NLEN];
4434         int target_item_label = 0;
4435
4436         int floor_list[23], floor_num;
4437         int wid, hgt;
4438         char floor_label[52 + 1];
4439
4440         bool dont_need_to_show_weights = TRUE;
4441
4442         /* Get size */
4443         Term_get_size(&wid, &hgt);
4444
4445         /* Default length */
4446         len = MAX((*min_width), 20);
4447
4448
4449         /* Scan for objects in the grid, using item_tester_okay() */
4450         floor_num = scan_floor(floor_list, y, x, 0x03);
4451
4452         /* Display the floor objects */
4453         for (k = 0, i = 0; i < floor_num && i < 23; i++)
4454         {
4455                 o_ptr = &o_list[floor_list[i]];
4456
4457                 /* Describe the object */
4458                 object_desc(o_name, o_ptr, 0);
4459
4460                 /* Save the index */
4461                 out_index[k] = i;
4462
4463                 /* Acquire inventory color */
4464                 out_color[k] = tval_to_attr[o_ptr->tval & 0x7F];
4465
4466                 /* Save the object description */
4467                 strcpy(out_desc[k], o_name);
4468
4469                 /* Find the predicted "line length" */
4470                 l = strlen(out_desc[k]) + 5;
4471
4472                 /* Be sure to account for the weight */
4473                 if (show_weights) l += 9;
4474
4475                 if (o_ptr->tval != TV_GOLD) dont_need_to_show_weights = FALSE;
4476
4477                 /* Maintain the maximum length */
4478                 if (l > len) len = l;
4479
4480                 /* Advance to next "line" */
4481                 k++;
4482         }
4483
4484         if (show_weights && dont_need_to_show_weights) len -= 9;
4485
4486         /* Save width */
4487         *min_width = len;
4488
4489         /* Find the column to start in */
4490         col = (len > wid - 4) ? 0 : (wid - len - 1);
4491
4492         prepare_label_string_floor(floor_label, floor_list, floor_num);
4493
4494         /* Output each entry */
4495         for (j = 0; j < k; j++)
4496         {
4497                 /* Get the index */
4498                 i = floor_list[out_index[j]];
4499
4500                 /* Get the item */
4501                 o_ptr = &o_list[i];
4502
4503                 /* Clear the line */
4504                 prt("", j + 1, col ? col - 2 : col);
4505
4506                 if (use_menu && target_item)
4507                 {
4508                         if (j == (target_item-1))
4509                         {
4510 #ifdef JP
4511                                 strcpy(tmp_val, "¡Õ");
4512 #else
4513                                 strcpy(tmp_val, "> ");
4514 #endif
4515                                 target_item_label = i;
4516                         }
4517                         else strcpy(tmp_val, "   ");
4518                 }
4519                 else
4520                 {
4521                         /* Prepare an index --(-- */
4522                         sprintf(tmp_val, "%c)", floor_label[j]);
4523                 }
4524
4525                 /* Clear the line with the (possibly indented) index */
4526                 put_str(tmp_val, j + 1, col);
4527
4528                 /* Display the entry itself */
4529                 c_put_str(out_color[j], out_desc[j], j + 1, col + 3);
4530
4531                 /* Display the weight if needed */
4532                 if (show_weights && (o_ptr->tval != TV_GOLD))
4533                 {
4534                         int wgt = o_ptr->weight * o_ptr->number;
4535 #ifdef JP
4536                         sprintf(tmp_val, "%3d.%1d kg", lbtokg1(wgt) , lbtokg2(wgt) );
4537 #else
4538                         sprintf(tmp_val, "%3d.%1d lb", wgt / 10, wgt % 10);
4539 #endif
4540
4541                         prt(tmp_val, j + 1, wid - 9);
4542                 }
4543         }
4544
4545         /* Make a "shadow" below the list (only if needed) */
4546         if (j && (j < 23)) prt("", j + 1, col ? col - 2 : col);
4547
4548         return target_item_label;
4549 }
4550
4551 /*
4552  * This version of get_item() is called by get_item() when
4553  * the easy_floor is on.
4554  */
4555 bool get_item_floor(int *cp, cptr pmt, cptr str, int mode)
4556 {
4557         char n1 = ' ', n2 = ' ', which = ' ';
4558
4559         int j, k, i1, i2, e1, e2;
4560
4561         bool done, item;
4562
4563         bool oops = FALSE;
4564
4565         /* Extract args */
4566         bool equip = (mode & USE_EQUIP) ? TRUE : FALSE;
4567         bool inven = (mode & USE_INVEN) ? TRUE : FALSE;
4568         bool floor = (mode & USE_FLOOR) ? TRUE : FALSE;
4569
4570         bool allow_equip = FALSE;
4571         bool allow_inven = FALSE;
4572         bool allow_floor = FALSE;
4573
4574         bool toggle = FALSE;
4575
4576         char tmp_val[160];
4577         char out_val[160];
4578
4579         int floor_num, floor_list[23], floor_top = 0;
4580         int min_width = 0;
4581
4582         extern bool select_the_force;
4583
4584         int menu_line = (use_menu ? 1 : 0);
4585         int max_inven = 0;
4586         int max_equip = 0;
4587
4588 #ifdef ALLOW_REPEAT
4589
4590         static char prev_tag = '\0';
4591         char cur_tag = '\0';
4592
4593         /* Get the item index */
4594         if (repeat_pull(cp))
4595         {
4596                 /* the_force */
4597                 if (select_the_force && (*cp == INVEN_FORCE))
4598                 {
4599                         item_tester_tval = 0;
4600                         item_tester_hook = NULL;
4601                         command_cmd = 0; /* Hack -- command_cmd is no longer effective */
4602                         return (TRUE);
4603                 }
4604
4605                 /* Floor item? */
4606                 else if (floor && (*cp < 0))
4607                 {
4608                         if (prev_tag && command_cmd)
4609                         {
4610                                 /* Scan all objects in the grid */
4611                                 floor_num = scan_floor(floor_list, py, px, 0x03);
4612
4613                                 /* Look up the tag */
4614                                 if (get_tag_floor(&k, prev_tag, floor_list, floor_num))
4615                                 {
4616                                         /* Accept that choice */
4617                                         (*cp) = 0 - floor_list[k];
4618
4619                                         /* Forget restrictions */
4620                                         item_tester_tval = 0;
4621                                         item_tester_hook = NULL;
4622                                         command_cmd = 0; /* Hack -- command_cmd is no longer effective */
4623
4624                                         /* Success */
4625                                         return TRUE;
4626                                 }
4627
4628                                 prev_tag = '\0'; /* prev_tag is no longer effective */
4629                         }
4630
4631                         /* Validate the item */
4632                         else if (item_tester_okay(&o_list[0 - (*cp)]))
4633                         {
4634                                 /* Forget restrictions */
4635                                 item_tester_tval = 0;
4636                                 item_tester_hook = NULL;
4637                                 command_cmd = 0; /* Hack -- command_cmd is no longer effective */
4638
4639                                 /* Success */
4640                                 return TRUE;
4641                         }
4642                 }
4643
4644                 else if ((inven && (*cp >= 0) && (*cp < INVEN_PACK)) ||
4645                          (equip && (*cp >= INVEN_RARM) && (*cp < INVEN_TOTAL)))
4646                 {
4647                         if (prev_tag && command_cmd)
4648                         {
4649                                 /* Look up the tag and validate the item */
4650                                 if (!get_tag(&k, prev_tag, (*cp >= INVEN_RARM) ? USE_EQUIP : USE_INVEN)) /* Reject */;
4651                                 else if ((k < INVEN_RARM) ? !inven : !equip) /* Reject */;
4652                                 else if (!get_item_okay(k)) /* Reject */;
4653                                 else
4654                                 {
4655                                         /* Accept that choice */
4656                                         (*cp) = k;
4657
4658                                         /* Forget restrictions */
4659                                         item_tester_tval = 0;
4660                                         item_tester_hook = NULL;
4661                                         command_cmd = 0; /* Hack -- command_cmd is no longer effective */
4662
4663                                         /* Success */
4664                                         return TRUE;
4665                                 }
4666
4667                                 prev_tag = '\0'; /* prev_tag is no longer effective */
4668                         }
4669
4670                         /* Verify the item */
4671                         else if (get_item_okay(*cp))
4672                         {
4673                                 /* Forget restrictions */
4674                                 item_tester_tval = 0;
4675                                 item_tester_hook = NULL;
4676                                 command_cmd = 0; /* Hack -- command_cmd is no longer effective */
4677
4678                                 /* Success */
4679                                 return TRUE;
4680                         }
4681                 }
4682         }
4683
4684 #endif /* ALLOW_REPEAT */
4685
4686
4687         /* Paranoia XXX XXX XXX */
4688         msg_print(NULL);
4689
4690
4691         /* Not done */
4692         done = FALSE;
4693
4694         /* No item selected */
4695         item = FALSE;
4696
4697
4698         /* Full inventory */
4699         i1 = 0;
4700         i2 = INVEN_PACK - 1;
4701
4702         /* Forbid inventory */
4703         if (!inven) i2 = -1;
4704         else if (use_menu)
4705         {
4706                 for (j = 0; j < INVEN_PACK; j++)
4707                         if (item_tester_okay(&inventory[j])) max_inven++;
4708         }
4709
4710         /* Restrict inventory indexes */
4711         while ((i1 <= i2) && (!get_item_okay(i1))) i1++;
4712         while ((i1 <= i2) && (!get_item_okay(i2))) i2--;
4713
4714
4715         /* Full equipment */
4716         e1 = INVEN_RARM;
4717         e2 = INVEN_TOTAL - 1;
4718
4719         /* Forbid equipment */
4720         if (!equip) e2 = -1;
4721         else if (use_menu)
4722         {
4723                 for (j = INVEN_RARM; j < INVEN_TOTAL; j++)
4724                         if (select_ring_slot ? is_ring_slot(j) : item_tester_okay(&inventory[j])) max_equip++;
4725                 if (p_ptr->ryoute && !item_tester_no_ryoute) max_equip++;
4726         }
4727
4728         /* Restrict equipment indexes */
4729         while ((e1 <= e2) && (!get_item_okay(e1))) e1++;
4730         while ((e1 <= e2) && (!get_item_okay(e2))) e2--;
4731
4732         if (equip && p_ptr->ryoute && !item_tester_no_ryoute)
4733         {
4734                 if (p_ptr->migite)
4735                 {
4736                         if (e2 < INVEN_LARM) e2 = INVEN_LARM;
4737                 }
4738                 else if (p_ptr->hidarite) e1 = INVEN_RARM;
4739         }
4740
4741
4742         /* Count "okay" floor items */
4743         floor_num = 0;
4744
4745         /* Restrict floor usage */
4746         if (floor)
4747         {
4748                 /* Scan all objects in the grid */
4749                 floor_num = scan_floor(floor_list, py, px, 0x03);
4750         }
4751
4752         /* Accept inventory */
4753         if (i1 <= i2) allow_inven = TRUE;
4754
4755         /* Accept equipment */
4756         if (e1 <= e2) allow_equip = TRUE;
4757
4758         /* Accept floor */
4759         if (floor_num) allow_floor = TRUE;
4760
4761         /* Require at least one legal choice */
4762         if (!allow_inven && !allow_equip && !allow_floor)
4763         {
4764                 /* Cancel p_ptr->command_see */
4765                 command_see = FALSE;
4766
4767                 /* Oops */
4768                 oops = TRUE;
4769
4770                 /* Done */
4771                 done = TRUE;
4772
4773                 if (select_the_force) {
4774                     *cp = INVEN_FORCE;
4775                     item = TRUE;
4776                 }
4777         }
4778
4779         /* Analyze choices */
4780         else
4781         {
4782                 /* Hack -- Start on equipment if requested */
4783                 if (command_see && (command_wrk == (USE_EQUIP))
4784                         && allow_equip)
4785                 {
4786                         command_wrk = (USE_EQUIP);
4787                 }
4788
4789                 /* Use inventory if allowed */
4790                 else if (allow_inven)
4791                 {
4792                         command_wrk = (USE_INVEN);
4793                 }
4794
4795                 /* Use equipment if allowed */
4796                 else if (allow_equip)
4797                 {
4798                         command_wrk = (USE_EQUIP);
4799                 }
4800
4801                 /* Use floor if allowed */
4802                 else if (allow_floor)
4803                 {
4804                         command_wrk = (USE_FLOOR);
4805                 }
4806         }
4807
4808         /*
4809          * ÄÉ²Ã¥ª¥×¥·¥ç¥ó(always_show_list)¤¬ÀßÄê¤µ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¾ï¤Ë°ìÍ÷¤òÉ½¼¨¤¹¤ë
4810          */
4811         if ((always_show_list == TRUE) || use_menu) command_see = TRUE;
4812
4813         /* Hack -- start out in "display" mode */
4814         if (command_see)
4815         {
4816                 /* Save screen */
4817                 screen_save();
4818         }
4819
4820         /* Repeat until done */
4821         while (!done)
4822         {
4823                 int get_item_label = 0;
4824
4825                 /* Show choices */
4826                 int ni = 0;
4827                 int ne = 0;
4828
4829                 /* Scan windows */
4830                 for (j = 0; j < 8; j++)
4831                 {
4832                         /* Unused */
4833                         if (!angband_term[j]) continue;
4834
4835                         /* Count windows displaying inven */
4836                         if (window_flag[j] & (PW_INVEN)) ni++;
4837
4838                         /* Count windows displaying equip */
4839                         if (window_flag[j] & (PW_EQUIP)) ne++;
4840                 }
4841
4842                 /* Toggle if needed */
4843                 if ((command_wrk == (USE_EQUIP) && ni && !ne) ||
4844                     (command_wrk == (USE_INVEN) && !ni && ne))
4845                 {
4846                         /* Toggle */
4847                         toggle_inven_equip();
4848
4849                         /* Track toggles */
4850                         toggle = !toggle;
4851                 }
4852
4853                 /* Update */
4854                 p_ptr->window |= (PW_INVEN | PW_EQUIP);
4855
4856                 /* Redraw windows */
4857                 window_stuff();
4858
4859                 /* Inventory screen */
4860                 if (command_wrk == (USE_INVEN))
4861                 {
4862                         /* Extract the legal requests */
4863                         n1 = I2A(i1);
4864                         n2 = I2A(i2);
4865
4866                         /* Redraw if needed */
4867                         if (command_see) get_item_label = show_inven(menu_line);
4868                 }
4869
4870                 /* Equipment screen */
4871                 else if (command_wrk == (USE_EQUIP))
4872                 {
4873                         /* Extract the legal requests */
4874                         n1 = I2A(e1 - INVEN_RARM);
4875                         n2 = I2A(e2 - INVEN_RARM);
4876
4877                         /* Redraw if needed */
4878                         if (command_see) get_item_label = show_equip(menu_line);
4879                 }
4880
4881                 /* Floor screen */
4882                 else if (command_wrk == (USE_FLOOR))
4883                 {
4884                         j = floor_top;
4885                         k = MIN(floor_top + 23, floor_num) - 1;
4886
4887                         /* Extract the legal requests */
4888                         n1 = I2A(j - floor_top);
4889                         n2 = I2A(k - floor_top);
4890
4891                         /* Redraw if needed */
4892                         if (command_see) get_item_label = show_floor(menu_line, py, px, &min_width);
4893                 }
4894
4895                 /* Viewing inventory */
4896                 if (command_wrk == (USE_INVEN))
4897                 {
4898                         /* Begin the prompt */
4899 #ifdef JP
4900                         sprintf(out_val, "»ý¤ÁÊª:");
4901 #else
4902                         sprintf(out_val, "Inven:");
4903 #endif
4904
4905                         if (!use_menu)
4906                         {
4907                                 /* Build the prompt */
4908 #ifdef JP
4909                                 sprintf(tmp_val, "%c-%c,'(',')',",
4910 #else
4911                                 sprintf(tmp_val, " %c-%c,'(',')',",
4912 #endif
4913                                         index_to_label(i1), index_to_label(i2));
4914
4915                                 /* Append */
4916                                 strcat(out_val, tmp_val);
4917                         }
4918
4919                         /* Indicate ability to "view" */
4920 #ifdef JP
4921                         if (!command_see && !use_menu) strcat(out_val, " '*'°ìÍ÷,");
4922 #else
4923                         if (!command_see && !use_menu) strcat(out_val, " * to see,");
4924 #endif
4925
4926                         /* Append */
4927                         if (allow_equip)
4928                         {
4929 #ifdef JP
4930                                 if (!use_menu)
4931                                         strcat(out_val, " '/' ÁõÈ÷ÉÊ,");
4932                                 else if (allow_floor)
4933                                         strcat(out_val, " '6' ÁõÈ÷ÉÊ,");
4934                                 else
4935                                         strcat(out_val, " '4'or'6' ÁõÈ÷ÉÊ,");
4936 #else
4937                                 if (!use_menu)
4938                                         strcat(out_val, " / for Equip,");
4939                                 else if (allow_floor)
4940                                         strcat(out_val, " 6 for Equip,");
4941                                 else
4942                                         strcat(out_val, " 4 or 6 for Equip,");
4943 #endif
4944                         }
4945
4946                         /* Append */
4947                         if (allow_floor)
4948                         {
4949 #ifdef JP
4950                                 if (!use_menu)
4951                                         strcat(out_val, " '-'¾²¾å,");
4952                                 else if (allow_equip)
4953                                         strcat(out_val, " '4' ¾²¾å,");
4954                                 else
4955                                         strcat(out_val, " '4'or'6' ¾²¾å,");
4956 #else
4957                                 if (!use_menu)
4958                                         strcat(out_val, " - for floor,");
4959                                 else if (allow_equip)
4960                                         strcat(out_val, " 4 for floor,");
4961                                 else
4962                                         strcat(out_val, " 4 or 6 for floor,");
4963 #endif
4964                         }
4965                 }
4966
4967                 /* Viewing equipment */
4968                 else if (command_wrk == (USE_EQUIP))
4969                 {
4970                         /* Begin the prompt */
4971 #ifdef JP
4972                         sprintf(out_val, "ÁõÈ÷ÉÊ:");
4973 #else
4974                         sprintf(out_val, "Equip:");
4975 #endif
4976
4977                         if (!use_menu)
4978                         {
4979                                 /* Build the prompt */
4980 #ifdef JP
4981                                 sprintf(tmp_val, "%c-%c,'(',')',",
4982 #else
4983                                 sprintf(tmp_val, " %c-%c,'(',')',",
4984 #endif
4985                                         index_to_label(e1), index_to_label(e2));
4986
4987                                 /* Append */
4988                                 strcat(out_val, tmp_val);
4989                         }
4990
4991                         /* Indicate ability to "view" */
4992 #ifdef JP
4993                         if (!command_see && !use_menu) strcat(out_val, " '*'°ìÍ÷,");
4994 #else
4995                         if (!command_see && !use_menu) strcat(out_val, " * to see,");
4996 #endif
4997
4998                         /* Append */
4999                         if (allow_inven)
5000                         {
5001 #ifdef JP
5002                                 if (!use_menu)
5003                                         strcat(out_val, " '/' »ý¤ÁÊª,");
5004                                 else if (allow_floor)
5005                                         strcat(out_val, " '4' »ý¤ÁÊª,");
5006                                 else
5007                                         strcat(out_val, " '4'or'6' »ý¤ÁÊª,");
5008 #else
5009                                 if (!use_menu)
5010                                         strcat(out_val, " / for Inven,");
5011                                 else if (allow_floor)
5012                                         strcat(out_val, " 4 for Inven,");
5013                                 else
5014                                         strcat(out_val, " 4 or 6 for Inven,");
5015 #endif
5016                         }
5017
5018                         /* Append */
5019                         if (allow_floor)
5020                         {
5021 #ifdef JP
5022                                 if (!use_menu)
5023                                         strcat(out_val, " '-'¾²¾å,");
5024                                 else if (allow_inven)
5025                                         strcat(out_val, " '6' ¾²¾å,");
5026                                 else
5027                                         strcat(out_val, " '4'or'6' ¾²¾å,");
5028 #else
5029                                 if (!use_menu)
5030                                         strcat(out_val, " - for floor,");
5031                                 else if (allow_inven)
5032                                         strcat(out_val, " 6 for floor,");
5033                                 else
5034                                         strcat(out_val, " 4 or 6 for floor,");
5035 #endif
5036                         }
5037                 }
5038
5039                 /* Viewing floor */
5040                 else if (command_wrk == (USE_FLOOR))
5041                 {
5042                         /* Begin the prompt */
5043 #ifdef JP
5044                         sprintf(out_val, "¾²¾å:");
5045 #else
5046                         sprintf(out_val, "Floor:");
5047 #endif
5048
5049                         if (!use_menu)
5050                         {
5051                                 /* Build the prompt */
5052 #ifdef JP
5053                                 sprintf(tmp_val, "%c-%c,'(',')',", n1, n2);
5054 #else
5055                                 sprintf(tmp_val, " %c-%c,'(',')',", n1, n2);
5056 #endif
5057
5058                                 /* Append */
5059                                 strcat(out_val, tmp_val);
5060                         }
5061
5062                         /* Indicate ability to "view" */
5063 #ifdef JP
5064                         if (!command_see && !use_menu) strcat(out_val, " '*'°ìÍ÷,");
5065 #else
5066                         if (!command_see && !use_menu) strcat(out_val, " * to see,");
5067 #endif
5068
5069                         if (use_menu)
5070                         {
5071                                 if (allow_inven && allow_equip)
5072                                 {
5073 #ifdef JP
5074                                         strcat(out_val, " '4' ÁõÈ÷ÉÊ, '6' »ý¤ÁÊª,");
5075 #else
5076                                         strcat(out_val, " 4 for Equip, 6 for Inven,");
5077 #endif
5078                                 }
5079                                 else if (allow_inven)
5080                                 {
5081 #ifdef JP
5082                                         strcat(out_val, " '4'or'6' »ý¤ÁÊª,");
5083 #else
5084                                         strcat(out_val, " 4 or 6 for Inven,");
5085 #endif
5086                                 }
5087                                 else if (allow_equip)
5088                                 {
5089 #ifdef JP
5090                                         strcat(out_val, " '4'or'6' ÁõÈ÷ÉÊ,");
5091 #else
5092                                         strcat(out_val, " 4 or 6 for Equip,");
5093 #endif
5094                                 }
5095                         }
5096                         /* Append */
5097                         else if (allow_inven)
5098                         {
5099 #ifdef JP
5100                                 strcat(out_val, " '/' »ý¤ÁÊª,");
5101 #else
5102                                 strcat(out_val, " / for Inven,");
5103 #endif
5104                         }
5105                         else if (allow_equip)
5106                         {
5107 #ifdef JP
5108                                 strcat(out_val, " '/'ÁõÈ÷ÉÊ,");
5109 #else
5110                                 strcat(out_val, " / for Equip,");
5111 #endif
5112                         }
5113
5114                         /* Append */
5115                         if (command_see && !use_menu)
5116                         {
5117 #ifdef JP
5118                                 strcat(out_val, " Enter ¼¡,");
5119 #else
5120                                 strcat(out_val, " Enter for scroll down,");
5121 #endif
5122                         }
5123                 }
5124
5125                 /* Append */
5126 #ifdef JP
5127                 if (select_the_force) strcat(out_val, " 'w'Îýµ¤½Ñ,");
5128 #else
5129                 if (select_the_force) strcat(out_val, " w for the Force,");
5130 #endif
5131
5132                 /* Finish the prompt */
5133                 strcat(out_val, " ESC");
5134
5135                 /* Build the prompt */
5136                 sprintf(tmp_val, "(%s) %s", out_val, pmt);
5137
5138                 /* Show the prompt */
5139                 prt(tmp_val, 0, 0);
5140
5141                 /* Get a key */
5142                 which = inkey();
5143
5144                 if (use_menu)
5145                 {
5146                 int max_line = 1;
5147                 if (command_wrk == USE_INVEN) max_line = max_inven;
5148                 else if (command_wrk == USE_EQUIP) max_line = max_equip;
5149                 else if (command_wrk == USE_FLOOR) max_line = MIN(23, floor_num);
5150                 switch (which)
5151                 {
5152                         case ESCAPE:
5153                         case 'z':
5154                         case 'Z':
5155                         case '0':
5156                         {
5157                                 done = TRUE;
5158                                 break;
5159                         }
5160
5161                         case '8':
5162                         case 'k':
5163                         case 'K':
5164                         {
5165                                 menu_line += (max_line - 1);
5166                                 break;
5167                         }
5168
5169                         case '2':
5170                         case 'j':
5171                         case 'J':
5172                         {
5173                                 menu_line++;
5174                                 break;
5175                         }
5176
5177                         case '4':
5178                         case 'h':
5179                         case 'H':
5180                         {
5181                                 /* Verify legality */
5182                                 if (command_wrk == (USE_INVEN))
5183                                 {
5184                                         if (allow_floor) command_wrk = USE_FLOOR;
5185                                         else if (allow_equip) command_wrk = USE_EQUIP;
5186                                         else
5187                                         {
5188                                                 bell();
5189                                                 break;
5190                                         }
5191                                 }
5192                                 else if (command_wrk == (USE_EQUIP))
5193                                 {
5194                                         if (allow_inven) command_wrk = USE_INVEN;
5195                                         else if (allow_floor) command_wrk = USE_FLOOR;
5196                                         else
5197                                         {
5198                                                 bell();
5199                                                 break;
5200                                         }
5201                                 }
5202                                 else if (command_wrk == (USE_FLOOR))
5203                                 {
5204                                         if (allow_equip) command_wrk = USE_EQUIP;
5205                                         else if (allow_inven) command_wrk = USE_INVEN;
5206                                         else
5207                                         {
5208                                                 bell();
5209                                                 break;
5210                                         }
5211                                 }
5212                                 else
5213                                 {
5214                                         bell();
5215                                         break;
5216                                 }
5217
5218                                 /* Hack -- Fix screen */
5219                                 if (command_see)
5220                                 {
5221                                         /* Load screen */
5222                                         screen_load();
5223
5224                                         /* Save screen */
5225                                         screen_save();
5226                                 }
5227
5228                                 /* Switch inven/equip */
5229                                 if (command_wrk == USE_INVEN) max_line = max_inven;
5230                                 else if (command_wrk == USE_EQUIP) max_line = max_equip;
5231                                 else if (command_wrk == USE_FLOOR) max_line = MIN(23, floor_num);
5232                                 if (menu_line > max_line) menu_line = max_line;
5233
5234                                 /* Need to redraw */
5235                                 break;
5236                         }
5237
5238                         case '6':
5239                         case 'l':
5240                         case 'L':
5241                         {
5242                                 /* Verify legality */
5243                                 if (command_wrk == (USE_INVEN))
5244                                 {
5245                                         if (allow_equip) command_wrk = USE_EQUIP;
5246                                         else if (allow_floor) command_wrk = USE_FLOOR;
5247                                         else
5248                                         {
5249                                                 bell();
5250                                                 break;
5251                                         }
5252                                 }
5253                                 else if (command_wrk == (USE_EQUIP))
5254                                 {
5255                                         if (allow_floor) command_wrk = USE_FLOOR;
5256                                         else if (allow_inven) command_wrk = USE_INVEN;
5257                                         else
5258                                         {
5259                                                 bell();
5260                                                 break;
5261                                         }
5262                                 }
5263                                 else if (command_wrk == (USE_FLOOR))
5264                                 {
5265                                         if (allow_inven) command_wrk = USE_INVEN;
5266                                         else if (allow_equip) command_wrk = USE_EQUIP;
5267                                         else
5268                                         {
5269                                                 bell();
5270                                                 break;
5271                                         }
5272                                 }
5273                                 else
5274                                 {
5275                                         bell();
5276                                         break;
5277                                 }
5278
5279                                 /* Hack -- Fix screen */
5280                                 if (command_see)
5281                                 {
5282                                         /* Load screen */
5283                                         screen_load();
5284
5285                                         /* Save screen */
5286                                         screen_save();
5287                                 }
5288
5289                                 /* Switch inven/equip */
5290                                 if (command_wrk == USE_INVEN) max_line = max_inven;
5291                                 else if (command_wrk == USE_EQUIP) max_line = max_equip;
5292                                 else if (command_wrk == USE_FLOOR) max_line = MIN(23, floor_num);
5293                                 if (menu_line > max_line) menu_line = max_line;
5294
5295                                 /* Need to redraw */
5296                                 break;
5297                         }
5298
5299                         case 'x':
5300                         case 'X':
5301                         case '\r':
5302                         case '\n':
5303                         {
5304                                 if (command_wrk == USE_FLOOR)
5305                                 {
5306                                         /* Special index */
5307                                         (*cp) = -get_item_label;
5308                                 }
5309                                 else
5310                                 {
5311                                         /* Validate the item */
5312                                         if (!get_item_okay(get_item_label))
5313                                         {
5314                                                 bell();
5315                                                 break;
5316                                         }
5317
5318                                         /* Allow player to "refuse" certain actions */
5319                                         if (!get_item_allow(get_item_label))
5320                                         {
5321                                                 done = TRUE;
5322                                                 break;
5323                                         }
5324
5325                                         /* Accept that choice */
5326                                         (*cp) = get_item_label;
5327                                 }
5328
5329                                 item = TRUE;
5330                                 done = TRUE;
5331                                 break;
5332                         }
5333                         case 'w':
5334                         {
5335                                 if (select_the_force) {
5336                                         *cp = INVEN_FORCE;
5337                                         item = TRUE;
5338                                         done = TRUE;
5339                                         break;
5340                                 }
5341                         }
5342                 }
5343                 if (menu_line > max_line) menu_line -= max_line;
5344                 }
5345                 else
5346                 {
5347                 /* Parse it */
5348                 switch (which)
5349                 {
5350                         case ESCAPE:
5351                         {
5352                                 done = TRUE;
5353                                 break;
5354                         }
5355
5356                         case '*':
5357                         case '?':
5358                         case ' ':
5359                         {
5360                                 /* Hide the list */
5361                                 if (command_see)
5362                                 {
5363                                         /* Flip flag */
5364                                         command_see = FALSE;
5365
5366                                         /* Load screen */
5367                                         screen_load();
5368                                 }
5369
5370                                 /* Show the list */
5371                                 else
5372                                 {
5373                                         /* Save screen */
5374                                         screen_save();
5375
5376                                         /* Flip flag */
5377                                         command_see = TRUE;
5378                                 }
5379                                 break;
5380                         }
5381
5382                         case '\n':
5383                         case '\r':
5384                         case '+':
5385                         {
5386                                 int i, o_idx;
5387                                 cave_type *c_ptr = &cave[py][px];
5388
5389                                 if (command_wrk != (USE_FLOOR)) break;
5390
5391                                 /* Get the object being moved. */
5392                                 o_idx = c_ptr->o_idx;
5393
5394                                 /* Only rotate a pile of two or more objects. */
5395                                 if (!(o_idx && o_list[o_idx].next_o_idx)) break;
5396
5397                                 /* Remove the first object from the list. */
5398                                 excise_object_idx(o_idx);
5399
5400                                 /* Find end of the list. */
5401                                 i = c_ptr->o_idx;
5402                                 while (o_list[i].next_o_idx)
5403                                         i = o_list[i].next_o_idx;
5404
5405                                 /* Add after the last object. */
5406                                 o_list[i].next_o_idx = o_idx;
5407
5408                                 /* Re-scan floor list */
5409                                 floor_num = scan_floor(floor_list, py, px, 0x03);
5410
5411                                 /* Hack -- Fix screen */
5412                                 if (command_see)
5413                                 {
5414                                         /* Load screen */
5415                                         screen_load();
5416
5417                                         /* Save screen */
5418                                         screen_save();
5419                                 }
5420
5421                                 break;
5422                         }
5423
5424                         case '/':
5425                         {
5426                                 if (command_wrk == (USE_INVEN))
5427                                 {
5428                                         if (!allow_equip)
5429                                         {
5430                                                 bell();
5431                                                 break;
5432                                         }
5433                                         command_wrk = (USE_EQUIP);
5434                                 }
5435                                 else if (command_wrk == (USE_EQUIP))
5436                                 {
5437                                         if (!allow_inven)
5438                                         {
5439                                                 bell();
5440                                                 break;
5441                                         }
5442                                         command_wrk = (USE_INVEN);
5443                                 }
5444                                 else if (command_wrk == (USE_FLOOR))
5445                                 {
5446                                         if (allow_inven)
5447                                         {
5448                                                 command_wrk = (USE_INVEN);
5449                                         }
5450                                         else if (allow_equip)
5451                                         {
5452                                                 command_wrk = (USE_EQUIP);
5453                                         }
5454                                         else
5455                                         {
5456                                                 bell();
5457                                                 break;
5458                                         }
5459                                 }
5460
5461                                 /* Hack -- Fix screen */
5462                                 if (command_see)
5463                                 {
5464                                         /* Load screen */
5465                                         screen_load();
5466
5467                                         /* Save screen */
5468                                         screen_save();
5469                                 }
5470
5471                                 /* Need to redraw */
5472                                 break;
5473                         }
5474
5475                         case '-':
5476                         {
5477                                 if (!allow_floor)
5478                                 {
5479                                         bell();
5480                                         break;
5481                                 }
5482
5483                                 /*
5484                                  * If we are already examining the floor, and there
5485                                  * is only one item, we will always select it.
5486                                  * If we aren't examining the floor and there is only
5487                                  * one item, we will select it if floor_query_flag
5488                                  * is FALSE.
5489                                  */
5490                                 if (floor_num == 1)
5491                                 {
5492                                         if ((command_wrk == (USE_FLOOR)) || (!carry_query_flag))
5493                                         {
5494                                                 /* Special index */
5495                                                 k = 0 - floor_list[0];
5496
5497                                                 /* Allow player to "refuse" certain actions */
5498                                                 if (!get_item_allow(k))
5499                                                 {
5500                                                         done = TRUE;
5501                                                         break;
5502                                                 }
5503
5504                                                 /* Accept that choice */
5505                                                 (*cp) = k;
5506                                                 item = TRUE;
5507                                                 done = TRUE;
5508
5509                                                 break;
5510                                         }
5511                                 }
5512
5513                                 /* Hack -- Fix screen */
5514                                 if (command_see)
5515                                 {
5516                                         /* Load screen */
5517                                         screen_load();
5518
5519                                         /* Save screen */
5520                                         screen_save();
5521                                 }
5522
5523                                 command_wrk = (USE_FLOOR);
5524
5525                                 break;
5526                         }
5527
5528                         case '0':
5529                         case '1': case '2': case '3':
5530                         case '4': case '5': case '6':
5531                         case '7': case '8': case '9':
5532                         {
5533                                 if (command_wrk != USE_FLOOR)
5534                                 {
5535                                         /* Look up the tag */
5536                                         if (!get_tag(&k, which, command_wrk))
5537                                         {
5538                                                 bell();
5539                                                 break;
5540                                         }
5541
5542                                         /* Hack -- Validate the item */
5543                                         if ((k < INVEN_RARM) ? !inven : !equip)
5544                                         {
5545                                                 bell();
5546                                                 break;
5547                                         }
5548
5549                                         /* Validate the item */
5550                                         if (!get_item_okay(k))
5551                                         {
5552                                                 bell();
5553                                                 break;
5554                                         }
5555                                 }
5556                                 else
5557                                 {
5558                                         /* Look up the alphabetical tag */
5559                                         if (get_tag_floor(&k, which, floor_list, floor_num))
5560                                         {
5561                                                 /* Special index */
5562                                                 k = 0 - floor_list[k];
5563                                         }
5564                                         else
5565                                         {
5566                                                 bell();
5567                                                 break;
5568                                         }
5569                                 }
5570
5571                                 /* Allow player to "refuse" certain actions */
5572                                 if (!get_item_allow(k))
5573                                 {
5574                                         done = TRUE;
5575                                         break;
5576                                 }
5577
5578                                 /* Accept that choice */
5579                                 (*cp) = k;
5580                                 item = TRUE;
5581                                 done = TRUE;
5582 #ifdef ALLOW_REPEAT
5583                                 cur_tag = which;
5584 #endif /* ALLOW_REPEAT */
5585                                 break;
5586                         }
5587
5588 #if 0
5589                         case '\n':
5590                         case '\r':
5591                         {
5592                                 /* Choose "default" inventory item */
5593                                 if (command_wrk == (USE_INVEN))
5594                                 {
5595                                         k = ((i1 == i2) ? i1 : -1);
5596                                 }
5597
5598                                 /* Choose "default" equipment item */
5599                                 else if (command_wrk == (USE_EQUIP))
5600                                 {
5601                                         k = ((e1 == e2) ? e1 : -1);
5602                                 }
5603
5604                                 /* Choose "default" floor item */
5605                                 else if (command_wrk == (USE_FLOOR))
5606                                 {
5607                                         if (floor_num == 1)
5608                                         {
5609                                                 /* Special index */
5610                                                 k = 0 - floor_list[0];
5611
5612                                                 /* Allow player to "refuse" certain actions */
5613                                                 if (!get_item_allow(k))
5614                                                 {
5615                                                         done = TRUE;
5616                                                         break;
5617                                                 }
5618
5619                                                 /* Accept that choice */
5620                                                 (*cp) = k;
5621                                                 item = TRUE;
5622                                                 done = TRUE;
5623                                         }
5624                                         break;
5625                                 }
5626
5627                                 /* Validate the item */
5628                                 if (!get_item_okay(k))
5629                                 {
5630                                         bell();
5631                                         break;
5632                                 }
5633
5634                                 /* Allow player to "refuse" certain actions */
5635                                 if (!get_item_allow(k))
5636                                 {
5637                                         done = TRUE;
5638                                         break;
5639                                 }
5640
5641                                 /* Accept that choice */
5642                                 (*cp) = k;
5643                                 item = TRUE;
5644                                 done = TRUE;
5645                                 break;
5646                         }
5647 #endif
5648
5649                         case 'w':
5650                         {
5651                                 if (select_the_force) {
5652                                         *cp = INVEN_FORCE;
5653                                         item = TRUE;
5654                                         done = TRUE;
5655                                         break;
5656                                 }
5657
5658                                 /* Fall through */
5659                         }
5660
5661                         default:
5662                         {
5663                                 int ver;
5664
5665                                 if (command_wrk != USE_FLOOR)
5666                                 {
5667                                         bool not_found = FALSE;
5668
5669                                         /* Look up the alphabetical tag */
5670                                         if (!get_tag(&k, which, command_wrk))
5671                                         {
5672                                                 not_found = TRUE;
5673                                         }
5674
5675                                         /* Hack -- Validate the item */
5676                                         else if ((k < INVEN_RARM) ? !inven : !equip)
5677                                         {
5678                                                 not_found = TRUE;
5679                                         }
5680
5681                                         /* Validate the item */
5682                                         else if (!get_item_okay(k))
5683                                         {
5684                                                 not_found = TRUE;
5685                                         }
5686
5687                                         if (!not_found)
5688                                         {
5689                                                 /* Accept that choice */
5690                                                 (*cp) = k;
5691                                                 item = TRUE;
5692                                                 done = TRUE;
5693 #ifdef ALLOW_REPEAT
5694                                                 cur_tag = which;
5695 #endif /* ALLOW_REPEAT */
5696                                                 break;
5697                                         }
5698                                 }
5699                                 else
5700                                 {
5701                                         /* Look up the alphabetical tag */
5702                                         if (get_tag_floor(&k, which, floor_list, floor_num))
5703                                         {
5704                                                 /* Special index */
5705                                                 k = 0 - floor_list[k];
5706
5707                                                 /* Accept that choice */
5708                                                 (*cp) = k;
5709                                                 item = TRUE;
5710                                                 done = TRUE;
5711 #ifdef ALLOW_REPEAT
5712                                                 cur_tag = which;
5713 #endif /* ALLOW_REPEAT */
5714                                                 break;
5715                                         }
5716                                 }
5717
5718                                 /* Extract "query" setting */
5719                                 ver = isupper(which);
5720                                 which = tolower(which);
5721
5722                                 /* Convert letter to inventory index */
5723                                 if (command_wrk == (USE_INVEN))
5724                                 {
5725                                         if (which == '(') k = i1;
5726                                         else if (which == ')') k = i2;
5727                                         else k = label_to_inven(which);
5728                                 }
5729
5730                                 /* Convert letter to equipment index */
5731                                 else if (command_wrk == (USE_EQUIP))
5732                                 {
5733                                         if (which == '(') k = e1;
5734                                         else if (which == ')') k = e2;
5735                                         else k = label_to_equip(which);
5736                                 }
5737
5738                                 /* Convert letter to floor index */
5739                                 else if (command_wrk == USE_FLOOR)
5740                                 {
5741                                         if (which == '(') k = 0;
5742                                         else if (which == ')') k = floor_num - 1;
5743                                         else k = islower(which) ? A2I(which) : -1;
5744                                         if (k < 0 || k >= floor_num || k >= 23)
5745                                         {
5746                                                 bell();
5747                                                 break;
5748                                         }
5749
5750                                         /* Special index */
5751                                         k = 0 - floor_list[k];
5752                                 }
5753
5754                                 /* Validate the item */
5755                                 if ((command_wrk != USE_FLOOR) && !get_item_okay(k))
5756                                 {
5757                                         bell();
5758                                         break;
5759                                 }
5760
5761                                 /* Verify the item */
5762 #ifdef JP
5763 if (ver && !verify("ËÜÅö¤Ë", k))
5764 #else
5765                                 if (ver && !verify("Try", k))
5766 #endif
5767
5768                                 {
5769                                         done = TRUE;
5770                                         break;
5771                                 }
5772
5773                                 /* Allow player to "refuse" certain actions */
5774                                 if (!get_item_allow(k))
5775                                 {
5776                                         done = TRUE;
5777                                         break;
5778                                 }
5779
5780                                 /* Accept that choice */
5781                                 (*cp) = k;
5782                                 item = TRUE;
5783                                 done = TRUE;
5784                                 break;
5785                         }
5786                 }
5787                 }
5788         }
5789
5790         /* Fix the screen if necessary */
5791         if (command_see)
5792         {
5793                 /* Load screen */
5794                 screen_load();
5795
5796                 /* Hack -- Cancel "display" */
5797                 command_see = FALSE;
5798         }
5799
5800
5801         /* Forget the item_tester_tval restriction */
5802         item_tester_tval = 0;
5803
5804         /* Forget the item_tester_hook restriction */
5805         item_tester_hook = NULL;
5806
5807
5808         /* Clean up  'show choices' */
5809         /* Toggle again if needed */
5810         if (toggle) toggle_inven_equip();
5811
5812         /* Update */
5813         p_ptr->window |= (PW_INVEN | PW_EQUIP);
5814
5815         /* Window stuff */
5816         window_stuff();
5817
5818
5819         /* Clear the prompt line */
5820         prt("", 0, 0);
5821
5822         /* Warning if needed */
5823         if (oops && str) msg_print(str);
5824
5825         if (item)
5826         {
5827 #ifdef ALLOW_REPEAT
5828                 repeat_push(*cp);
5829                 if (command_cmd) prev_tag = cur_tag;
5830 #endif /* ALLOW_REPEAT */
5831
5832                 command_cmd = 0; /* Hack -- command_cmd is no longer effective */
5833         }
5834
5835         /* Result */
5836         return (item);
5837 }
5838
5839
5840 static bool py_pickup_floor_aux(void)
5841 {
5842         s16b this_o_idx;
5843
5844         cptr q, s;
5845
5846         int item;
5847
5848         /* Restrict the choices */
5849         item_tester_hook = inven_carry_okay;
5850
5851         /* Get an object */
5852 #ifdef JP
5853         q = "¤É¤ì¤ò½¦¤¤¤Þ¤¹¤«¡©";
5854         s = "¤â¤¦¥¶¥Ã¥¯¤Ë¤Ï¾²¤Ë¤¢¤ë¤É¤Î¥¢¥¤¥Æ¥à¤âÆþ¤é¤Ê¤¤¡£";
5855 #else
5856         q = "Get which item? ";
5857         s = "You no longer have any room for the objects on the floor.";
5858 #endif
5859
5860         if (get_item(&item, q, s, (USE_FLOOR)))
5861         {
5862                 this_o_idx = 0 - item;
5863         }
5864         else
5865         {
5866                 return (FALSE);
5867         }
5868
5869         /* Pick up the object */
5870         py_pickup_aux(this_o_idx);
5871
5872         return (TRUE);
5873 }
5874
5875
5876 /*
5877  * Make the player carry everything in a grid
5878  *
5879  * If "pickup" is FALSE then only gold will be picked up
5880  *
5881  * This is called by py_pickup() when easy_floor is TRUE.
5882  */
5883 void py_pickup_floor(bool pickup)
5884 {
5885         s16b this_o_idx, next_o_idx = 0;
5886
5887         char o_name[MAX_NLEN];
5888         object_type *o_ptr;
5889
5890         int floor_num = 0, floor_o_idx = 0;
5891
5892         int can_pickup = 0;
5893
5894         /* Scan the pile of objects */
5895         for (this_o_idx = cave[py][px].o_idx; this_o_idx; this_o_idx = next_o_idx)
5896         {
5897                 object_type *o_ptr;
5898
5899                 /* Access the object */
5900                 o_ptr = &o_list[this_o_idx];
5901
5902                 /* Describe the object */
5903                 object_desc(o_name, o_ptr, 0);
5904
5905                 /* Access the next object */
5906                 next_o_idx = o_ptr->next_o_idx;
5907
5908                 /* Hack -- disturb */
5909                 disturb(0, 0);
5910
5911                 /* Pick up gold */
5912                 if (o_ptr->tval == TV_GOLD)
5913                 {
5914                         /* Message */
5915 #ifdef JP
5916                 msg_format(" $%ld ¤Î²ÁÃÍ¤¬¤¢¤ë%s¤ò¸«¤Ä¤±¤¿¡£",
5917                            (long)o_ptr->pval, o_name);
5918 #else
5919                         msg_format("You have found %ld gold pieces worth of %s.",
5920                                 (long) o_ptr->pval, o_name);
5921 #endif
5922
5923
5924                         /* Collect the gold */
5925                         p_ptr->au += o_ptr->pval;
5926
5927                         /* Redraw gold */
5928                         p_ptr->redraw |= (PR_GOLD);
5929
5930                         /* Window stuff */
5931                         p_ptr->window |= (PW_PLAYER);
5932
5933                         /* Delete the gold */
5934                         delete_object_idx(this_o_idx);
5935
5936                         /* Check the next object */
5937                         continue;
5938                 }
5939                 else if (o_ptr->marked & OM_NOMSG)
5940                 {
5941                         /* If 0 or 1 non-NOMSG items are in the pile, the NOMSG ones are
5942                          * ignored. Otherwise, they are included in the prompt. */
5943                         o_ptr->marked &= ~(OM_NOMSG);
5944                         continue;
5945                 }
5946
5947                 /* Count non-gold objects that can be picked up. */
5948                 if (inven_carry_okay(o_ptr))
5949                 {
5950                         can_pickup++;
5951                 }
5952
5953                 /* Count non-gold objects */
5954                 floor_num++;
5955
5956                 /* Remember this index */
5957                 floor_o_idx = this_o_idx;
5958         }
5959
5960         /* There are no non-gold objects */
5961         if (!floor_num)
5962                 return;
5963
5964         /* Mention the number of objects */
5965         if (!pickup)
5966         {
5967                 /* One object */
5968                 if (floor_num == 1)
5969                 {
5970                         /* Access the object */
5971                         o_ptr = &o_list[floor_o_idx];
5972
5973 #ifdef ALLOW_EASY_SENSE
5974
5975                         /* Option: Make object sensing easy */
5976                         if (easy_sense)
5977                         {
5978                                 /* Sense the object */
5979                                 (void) sense_object(o_ptr);
5980                         }
5981
5982 #endif /* ALLOW_EASY_SENSE */
5983
5984                         /* Describe the object */
5985                         object_desc(o_name, o_ptr, 0);
5986
5987                         /* Message */
5988 #ifdef JP
5989                                 msg_format("%s¤¬¤¢¤ë¡£", o_name);
5990 #else
5991                         msg_format("You see %s.", o_name);
5992 #endif
5993
5994                 }
5995
5996                 /* Multiple objects */
5997                 else
5998                 {
5999                         /* Message */
6000 #ifdef JP
6001                         msg_format("%d ¸Ä¤Î¥¢¥¤¥Æ¥à¤Î»³¤¬¤¢¤ë¡£", floor_num);
6002 #else
6003                         msg_format("You see a pile of %d items.", floor_num);
6004 #endif
6005
6006                 }
6007
6008                 /* Done */
6009                 return;
6010         }
6011
6012         /* The player has no room for anything on the floor. */
6013         if (!can_pickup)
6014         {
6015                 /* One object */
6016                 if (floor_num == 1)
6017                 {
6018                         /* Access the object */
6019                         o_ptr = &o_list[floor_o_idx];
6020
6021 #ifdef ALLOW_EASY_SENSE
6022
6023                         /* Option: Make object sensing easy */
6024                         if (easy_sense)
6025                         {
6026                                 /* Sense the object */
6027                                 (void) sense_object(o_ptr);
6028                         }
6029
6030 #endif /* ALLOW_EASY_SENSE */
6031
6032                         /* Describe the object */
6033                         object_desc(o_name, o_ptr, 0);
6034
6035                         /* Message */
6036 #ifdef JP
6037                                 msg_format("¥¶¥Ã¥¯¤Ë¤Ï%s¤òÆþ¤ì¤ë·ä´Ö¤¬¤Ê¤¤¡£", o_name);
6038 #else
6039                         msg_format("You have no room for %s.", o_name);
6040 #endif
6041
6042                 }
6043
6044                 /* Multiple objects */
6045                 else
6046                 {
6047                         /* Message */
6048 #ifdef JP
6049                         msg_format("¥¶¥Ã¥¯¤Ë¤Ï¾²¤Ë¤¢¤ë¤É¤Î¥¢¥¤¥Æ¥à¤âÆþ¤é¤Ê¤¤¡£", o_name);
6050 #else
6051                         msg_print("You have no room for any of the objects on the floor.");
6052 #endif
6053
6054                 }
6055
6056                 /* Done */
6057                 return;
6058         }
6059
6060         /* One object */
6061         if (floor_num == 1)
6062         {
6063                 /* Hack -- query every object */
6064                 if (carry_query_flag)
6065                 {
6066                         char out_val[MAX_NLEN+20];
6067
6068                         /* Access the object */
6069                         o_ptr = &o_list[floor_o_idx];
6070
6071 #ifdef ALLOW_EASY_SENSE
6072
6073                         /* Option: Make object sensing easy */
6074                         if (easy_sense)
6075                         {
6076                                 /* Sense the object */
6077                                 (void) sense_object(o_ptr);
6078                         }
6079
6080 #endif /* ALLOW_EASY_SENSE */
6081
6082                         /* Describe the object */
6083                         object_desc(o_name, o_ptr, 0);
6084
6085                         /* Build a prompt */
6086 #ifdef JP
6087                         (void) sprintf(out_val, "%s¤ò½¦¤¤¤Þ¤¹¤«? ", o_name);
6088 #else
6089                         (void) sprintf(out_val, "Pick up %s? ", o_name);
6090 #endif
6091
6092
6093                         /* Ask the user to confirm */
6094                         if (!get_check(out_val))
6095                         {
6096                                 /* Done */
6097                                 return;
6098                         }
6099                 }
6100
6101                 /* Access the object */
6102                 o_ptr = &o_list[floor_o_idx];
6103
6104 #ifdef ALLOW_EASY_SENSE
6105
6106                 /* Option: Make object sensing easy */
6107                 if (easy_sense)
6108                 {
6109                         /* Sense the object */
6110                         (void) sense_object(o_ptr);
6111                 }
6112
6113 #endif /* ALLOW_EASY_SENSE */
6114
6115                 /* Pick up the object */
6116                 py_pickup_aux(floor_o_idx);
6117         }
6118
6119         /* Allow the user to choose an object */
6120         else
6121         {
6122                 while (can_pickup--)
6123                 {
6124                         if (!py_pickup_floor_aux()) break;
6125                 }
6126         }
6127 }
6128
6129 #endif /* ALLOW_EASY_FLOOR */