src/cmd4.c

   1 /* File: cmd4.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: Interface commands */
  12
  13 #include "angband.h"
  14
  15
  16
  17 /*
  18  * A set of functions to maintain automatic dumps of various kinds.
  19  * -Mogami-
  20  *
  21  * remove_auto_dump(orig_file, mark)
  22  *     Remove the old automatic dump of type "mark".
  23  * auto_dump_printf(fmt, ...)
  24  *     Dump a formatted string using fprintf().
  25  * open_auto_dump(buf, mark)
  26  *     Open a file, remove old dump, and add new header.
  27  * close_auto_dump(void)
  28  *     Add a footer, and close the file.
  29  *
  30  *    The dump commands of original Angband simply add new lines to
  31  * existing files; these files will become bigger and bigger unless
  32  * an user deletes some or all of these files by hand at some
  33  * point.
  34  *
  35  *     These three functions automatically delete old dumped lines
  36  * before adding new ones.  Since there are various kinds of automatic
  37  * dumps in a single file, we add a header and a footer with a type
  38  * name for every automatic dump, and kill old lines only when the
  39  * lines have the correct type of header and footer.
  40  *
  41  *     We need to be quite paranoid about correctness; the user might
  42  * (mistakenly) edit the file by hand, and see all their work come
  43  * to nothing on the next auto dump otherwise.  The current code only
  44  * detects changes by noting inconsistencies between the actual number
  45  * of lines and the number written in the footer.  Note that this will
  46  * not catch single-line edits.
  47  */
  48
  49 /*
  50  *  Mark strings for auto dump
  51  */
  52 static char auto_dump_header[] = "# vvvvvvv== %s ==vvvvvvv";
  53 static char auto_dump_footer[] = "# ^^^^^^^== %s ==^^^^^^^";
  54
  55 /*
  56  * Variables for auto dump
  57  */
  58 static FILE *auto_dump_stream;
  59 static cptr auto_dump_mark;
  60 static int auto_dump_line_num;
  61
  62 /*
  63  * Remove old lines automatically generated before.
  64  */
  65 static void remove_auto_dump(cptr orig_file)
  66 {
  67         FILE *tmp_fff, *orig_fff;
  68
  69         char tmp_file[1024];
  70         char buf[1024];
  71         bool between_mark = FALSE;
  72         bool changed = FALSE;
  73         int line_num = 0;
  74         long header_location = 0;
  75         char header_mark_str[80];
  76         char footer_mark_str[80];
  77         size_t mark_len;
  78
  79         /* Prepare a header/footer mark string */
  80         sprintf(header_mark_str, auto_dump_header, auto_dump_mark);
  81         sprintf(footer_mark_str, auto_dump_footer, auto_dump_mark);
  82
  83         mark_len = strlen(footer_mark_str);
  84
  85         /* Open an old dump file in read-only mode */
  86         orig_fff = my_fopen(orig_file, "r");
  87
  88         /* If original file does not exist, nothing to do */
  89         if (!orig_fff) return;
  90
  91         /* Open a new (temporary) file */
  92         tmp_fff = my_fopen_temp(tmp_file, 1024);
  93
  94         if (!tmp_fff)
  95         {
  96 #ifdef JP
  97             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", tmp_file);
  98 #else
  99             msg_format("Failed to create temporary file %s.", tmp_file);
 100 #endif
 101             msg_print(NULL);
 102             return;
 103         }
 104
 105         /* Loop for every line */
 106         while (TRUE)
 107         {
 108                 /* Read a line */
 109                 if (my_fgets(orig_fff, buf, sizeof(buf)))
 110                 {
 111                         /* Read error: Assume End of File */
 112
 113                         /*
 114                          * Was looking for the footer, but not found.
 115                          *
 116                          * Since automatic dump might be edited by hand,
 117                          * it's dangerous to kill these lines.
 118                          * Seek back to the next line of the (pseudo) header,
 119                          * and read again.
 120                          */
 121                         if (between_mark)
 122                         {
 123                                 fseek(orig_fff, header_location, SEEK_SET);
 124                                 between_mark = FALSE;
 125                                 continue;
 126                         }
 127
 128                         /* Success -- End the loop */
 129                         else
 130                         {
 131                                 break;
 132                         }
 133                 }
 134
 135                 /* We are looking for the header mark of automatic dump */
 136                 if (!between_mark)
 137                 {
 138                         /* Is this line a header? */
 139                         if (!strcmp(buf, header_mark_str))
 140                         {
 141                                 /* Memorise seek point of this line */
 142                                 header_location = ftell(orig_fff);
 143
 144                                 /* Initialize counter for number of lines */
 145                                 line_num = 0;
 146
 147                                 /* Look for the footer from now */
 148                                 between_mark = TRUE;
 149
 150                                 /* There are some changes */
 151                                 changed = TRUE;
 152                         }
 153
 154                         /* Not a header */
 155                         else
 156                         {
 157                                 /* Copy orginally lines */
 158                                 fprintf(tmp_fff, "%s\n", buf);
 159                         }
 160                 }
 161
 162                 /* We are looking for the footer mark of automatic dump */
 163                 else
 164                 {
 165                         /* Is this line a footer? */
 166                         if (!strncmp(buf, footer_mark_str, mark_len))
 167                         {
 168                                 int tmp;
 169
 170                                 /*
 171                                  * Compare the number of lines
 172                                  *
 173                                  * If there is an inconsistency between
 174                                  * actual number of lines and the
 175                                  * number here, the automatic dump
 176                                  * might be edited by hand.  So it's
 177                                  * dangerous to kill these lines.
 178                                  * Seek back to the next line of the
 179                                  * (pseudo) header, and read again.
 180                                  */
 181                                 if (!sscanf(buf + mark_len, " (%d)", &tmp)
 182                                     || tmp != line_num)
 183                                 {
 184                                         fseek(orig_fff, header_location, SEEK_SET);
 185                                 }
 186
 187                                 /* Look for another header */
 188                                 between_mark = FALSE;
 189                         }
 190
 191                         /* Not a footer */
 192                         else
 193                         {
 194                                 /* Ignore old line, and count number of lines */
 195                                 line_num++;
 196                         }
 197                 }
 198         }
 199
 200         /* Close files */
 201         my_fclose(orig_fff);
 202         my_fclose(tmp_fff);
 203
 204         /* If there are some changes, overwrite the original file with new one */
 205         if (changed)
 206         {
 207                 /* Copy contents of temporary file */
 208
 209                 tmp_fff = my_fopen(tmp_file, "r");
 210                 orig_fff = my_fopen(orig_file, "w");
 211
 212                 while (!my_fgets(tmp_fff, buf, sizeof(buf)))
 213                         fprintf(orig_fff, "%s\n", buf);
 214
 215                 my_fclose(orig_fff);
 216                 my_fclose(tmp_fff);
 217         }
 218
 219         /* Kill the temporary file */
 220         fd_kill(tmp_file);
 221
 222         return;
 223 }
 224
 225
 226 /*
 227  * Dump a formatted line, using "vstrnfmt()".
 228  */
 229 static void auto_dump_printf(cptr fmt, ...)
 230 {
 231         cptr p;
 232         va_list vp;
 233
 234         char buf[1024];
 235
 236         /* Begin the Varargs Stuff */
 237         va_start(vp, fmt);
 238
 239         /* Format the args, save the length */
 240         (void)vstrnfmt(buf, sizeof(buf), fmt, vp);
 241
 242         /* End the Varargs Stuff */
 243         va_end(vp);
 244
 245         /* Count number of lines */
 246         for (p = buf; *p; p++)
 247         {
 248                 if (*p == '\n') auto_dump_line_num++;
 249         }
 250
 251         /* Dump it */
 252         fprintf(auto_dump_stream, "%s", buf);
 253 }
 254
 255
 256 /*
 257  *  Open file to append auto dump.
 258  */
 259 static bool open_auto_dump(cptr buf, cptr mark)
 260 {
 261
 262         char header_mark_str[80];
 263
 264         /* Save the mark string */
 265         auto_dump_mark = mark;
 266
 267         /* Prepare a header mark string */
 268         sprintf(header_mark_str, auto_dump_header, auto_dump_mark);
 269
 270         /* Remove old macro dumps */
 271         remove_auto_dump(buf);
 272
 273         /* Append to the file */
 274         auto_dump_stream = my_fopen(buf, "a");
 275
 276         /* Failure */
 277         if (!auto_dump_stream) {
 278 #ifdef JP
 279                 msg_format("%s ¤ò³«¤¯¤³¤È¤¬¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", buf);
 280 #else
 281                 msg_format("Failed to open %s.", buf);
 282 #endif
 283                 msg_print(NULL);
 284
 285                 /* Failed */
 286                 return FALSE;
 287         }
 288
 289         /* Start dumping */
 290         fprintf(auto_dump_stream, "%s\n", header_mark_str);
 291
 292         /* Initialize counter */
 293         auto_dump_line_num = 0;
 294
 295 #ifdef JP
 296         auto_dump_printf("# *·Ù¹ð!!* °Ê¹ß¤Î¹Ô¤Ï¼«Æ°À¸À®¤µ¤ì¤¿¤â¤Î¤Ç¤¹¡£\n");
 297         auto_dump_printf("# *·Ù¹ð!!* ¸å¤Ç¼«Æ°Åª¤Ëºï½ü¤µ¤ì¤ë¤Î¤ÇÊÔ½¸¤·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£\n");
 298 #else
 299         auto_dump_printf("# *Warning!*  The lines below are an automatic dump.\n");
 300         auto_dump_printf("# Don't edit them; changes will be deleted and replaced automatically.\n");
 301 #endif
 302
 303         /* Success */
 304         return TRUE;
 305 }
 306
 307 /*
 308  *  Append foot part and close auto dump.
 309  */
 310 static void close_auto_dump(void)
 311 {
 312         char footer_mark_str[80];
 313
 314         /* Prepare a footer mark string */
 315         sprintf(footer_mark_str, auto_dump_footer, auto_dump_mark);
 316
 317 #ifdef JP
 318         auto_dump_printf("# *·Ù¹ð!!* °Ê¾å¤Î¹Ô¤Ï¼«Æ°À¸À®¤µ¤ì¤¿¤â¤Î¤Ç¤¹¡£\n");
 319         auto_dump_printf("# *·Ù¹ð!!* ¸å¤Ç¼«Æ°Åª¤Ëºï½ü¤µ¤ì¤ë¤Î¤ÇÊÔ½¸¤·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£\n");
 320 #else
 321         auto_dump_printf("# *Warning!*  The lines above are an automatic dump.\n");
 322         auto_dump_printf("# Don't edit them; changes will be deleted and replaced automatically.\n");
 323 #endif
 324
 325         /* End of dump */
 326         fprintf(auto_dump_stream, "%s (%d)\n", footer_mark_str, auto_dump_line_num);
 327
 328         /* Close */
 329         my_fclose(auto_dump_stream);
 330
 331         return;
 332 }
 333
 334
 335 #ifndef JP
 336 /*
 337  * Return suffix of ordinal number
 338  */
 339 cptr get_ordinal_number_suffix(int num)
 340 {
 341         num = ABS(num) % 100;
 342         switch (num % 10)
 343         {
 344         case 1:
 345                 return (num == 11) ? "th" : "st";
 346         case 2:
 347                 return (num == 12) ? "th" : "nd";
 348         case 3:
 349                 return (num == 13) ? "th" : "rd";
 350         default:
 351                 return "th";
 352         }
 353 }
 354 #endif
 355
 356
 357 /*
 358  *   Take note to the diary.
 359  */
 360 errr do_cmd_write_nikki(int type, int num, cptr note)
 361 {
 362         int day, hour, min;
 363         FILE *fff = NULL;
 364         char file_name[80];
 365         char buf[1024];
 366         cptr note_level = "";
 367         bool do_level = TRUE;
 368         char note_level_buf[40];
 369         int q_idx;
 370
 371         static bool disable_nikki = FALSE;
 372
 373         extract_day_hour_min(&day, &hour, &min);
 374
 375         if (disable_nikki) return(-1);
 376
 377         if (type == NIKKI_FIX_QUEST_C ||
 378             type == NIKKI_FIX_QUEST_F ||
 379             type == NIKKI_RAND_QUEST_C ||
 380             type == NIKKI_RAND_QUEST_F ||
 381             type == NIKKI_TO_QUEST)
 382         {
 383                 int old_quest;
 384
 385                 old_quest = p_ptr->inside_quest;
 386                 p_ptr->inside_quest = (quest[num].type == QUEST_TYPE_RANDOM) ? 0 : num;
 387
 388                 /* Get the quest text */
 389                 init_flags = INIT_ASSIGN;
 390
 391                 process_dungeon_file("q_info.txt", 0, 0, 0, 0);
 392
 393                 /* Reset the old quest number */
 394                 p_ptr->inside_quest = old_quest;
 395         }
 396
 397 #ifdef JP
 398         sprintf(file_name,"playrecord-%s.txt",savefile_base);
 399 #else
 400         /* different filne name to avoid mixing */
 401         sprintf(file_name,"playrec-%s.txt",savefile_base);
 402 #endif
 403
 404         /* Build the filename */
 405         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, file_name);
 406
 407         /* File type is "TEXT" */
 408         FILE_TYPE(FILE_TYPE_TEXT);
 409
 410         fff = my_fopen(buf, "a");
 411
 412         /* Failure */
 413         if (!fff)
 414         {
 415 #ifdef JP
 416                 msg_format("%s ¤ò³«¤¯¤³¤È¤¬¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£¥×¥ì¥¤µÏ¿¤ò°ì»þÄä»ß¤·¤Þ¤¹¡£", buf);
 417 #else
 418                 msg_format("Failed to open %s. Play-Record is disabled temporally.", buf);
 419 #endif
 420                 msg_format(NULL);
 421                 disable_nikki=TRUE;
 422                 return (-1);
 423         }
 424
 425         q_idx = quest_number(dun_level);
 426
 427         if (write_level)
 428         {
 429                 if (p_ptr->inside_arena)
 430 #ifdef JP
 431                         note_level = "¥¢¥ê¡¼¥Ê:";
 432 #else
 433                         note_level = "Arane:";
 434 #endif
 435                 else if (!dun_level)
 436 #ifdef JP
 437                         note_level = "ÃÏ¾å:";
 438 #else
 439                         note_level = "Surface:";
 440 #endif
 441                 else if (q_idx && (is_fixed_quest_idx(q_idx)
 442                          && !((q_idx == QUEST_OBERON) || (q_idx == QUEST_SERPENT))))
 443 #ifdef JP
 444                         note_level = "¥¯¥¨¥¹¥È:";
 445 #else
 446                         note_level = "Quest:";
 447 #endif
 448                 else
 449                 {
 450 #ifdef JP
 451                         sprintf(note_level_buf, "%d³¬(%s):", dun_level, d_name+d_info[dungeon_type].name);
 452 #else
 453                         sprintf(note_level_buf, "%s L%d:", d_name+d_info[dungeon_type].name, dun_level);
 454 #endif
 455                         note_level = note_level_buf;
 456                 }
 457         }
 458
 459         switch(type)
 460         {
 461                 case NIKKI_HIGAWARI:
 462                 {
 463 #ifdef JP
 464                         fprintf(fff, "%dÆüÌÜ\n",day);
 465 #else
 466                         fprintf(fff, "Day %d\n",day);
 467 #endif
 468                         do_level = FALSE;
 469                         break;
 470                 }
 471                 case NIKKI_BUNSHOU:
 472                 {
 473                         if (num)
 474                         {
 475                                 fprintf(fff, "%s\n",note);
 476                                 do_level = FALSE;
 477                         }
 478                         else
 479                                 fprintf(fff, " %2d:%02d %20s %s\n",hour, min, note_level, note);
 480                         break;
 481                 }
 482                 case NIKKI_ART:
 483                 {
 484 #ifdef JP
 485                         fprintf(fff, " %2d:%02d %20s %s¤òÈ¯¸«¤·¤¿¡£\n", hour, min, note_level, note);
 486 #else
 487                         fprintf(fff, " %2d:%02d %20s discovered %s.\n", hour, min, note_level, note);
 488 #endif
 489                         break;
 490                 }
 491                 case NIKKI_UNIQUE:
 492                 {
 493 #ifdef JP
 494                         fprintf(fff, " %2d:%02d %20s %s¤òÅÝ¤·¤¿¡£\n", hour, min, note_level, note);
 495 #else
 496                         fprintf(fff, " %2d:%02d %20s defeated %s.\n", hour, min, note_level, note);
 497 #endif
 498                         break;
 499                 }
 500                 case NIKKI_FIX_QUEST_C:
 501                 {
 502                         if (quest[num].flags & QUEST_FLAG_SILENT) break;
 503 #ifdef JP
 504                         fprintf(fff, " %2d:%02d %20s ¥¯¥¨¥¹¥È¡Ö%s¡×¤òÃ£À®¤·¤¿¡£\n", hour, min, note_level, quest[num].name);
 505 #else
 506                         fprintf(fff, " %2d:%02d %20s completed quest '%s'.\n", hour, min, note_level, quest[num].name);
 507 #endif
 508                         break;
 509                 }
 510                 case NIKKI_FIX_QUEST_F:
 511                 {
 512                         if (quest[num].flags & QUEST_FLAG_SILENT) break;
 513 #ifdef JP
 514                         fprintf(fff, " %2d:%02d %20s ¥¯¥¨¥¹¥È¡Ö%s¡×¤«¤éÌ¿¤«¤é¤¬¤éÆ¨¤²µ¢¤Ã¤¿¡£\n", hour, min, note_level, quest[num].name);
 515 #else
 516                         fprintf(fff, " %2d:%02d %20s run away from quest '%s'.\n", hour, min, note_level, quest[num].name);
 517 #endif
 518                         break;
 519                 }
 520                 case NIKKI_RAND_QUEST_C:
 521                 {
 522                         char name[80];
 523                         strcpy(name, r_name+r_info[quest[num].r_idx].name);
 524 #ifdef JP
 525                         fprintf(fff, " %2d:%02d %20s ¥é¥ó¥À¥à¥¯¥¨¥¹¥È(%s)¤òÃ£À®¤·¤¿¡£\n", hour, min, note_level, name);
 526 #else
 527                         fprintf(fff, " %2d:%02d %20s completed randome quest '%s'\n", hour, min, note_level, name);
 528 #endif
 529                         break;
 530                 }
 531                 case NIKKI_RAND_QUEST_F:
 532                 {
 533                         char name[80];
 534                         strcpy(name, r_name+r_info[quest[num].r_idx].name);
 535 #ifdef JP
 536                         fprintf(fff, " %2d:%02d %20s ¥é¥ó¥À¥à¥¯¥¨¥¹¥È(%s)¤«¤éÆ¨¤²½Ð¤·¤¿¡£\n", hour, min, note_level, name);
 537 #else
 538                         fprintf(fff, " %2d:%02d %20s ran away from quest '%s'.\n", hour, min, note_level, name);
 539 #endif
 540                         break;
 541                 }
 542                 case NIKKI_MAXDEAPTH:
 543                 {
 544 #ifdef JP
 545                         fprintf(fff, " %2d:%02d %20s %s¤ÎºÇ¿¼³¬%d³¬¤ËÅþÃ£¤·¤¿¡£\n", hour, min, note_level, d_name+d_info[dungeon_type].name, num);
 546 #else
 547                         fprintf(fff, " %2d:%02d %20s reached level %d of %s for the first time.\n", hour, min, note_level, num, d_name+d_info[dungeon_type].name);
 548 #endif
 549                         break;
 550                 }
 551                 case NIKKI_TRUMP:
 552                 {
 553 #ifdef JP
 554                         fprintf(fff, " %2d:%02d %20s %s%s¤ÎºÇ¿¼³¬¤ò%d³¬¤Ë¥»¥Ã¥È¤·¤¿¡£\n", hour, min, note_level, note, d_name + d_info[num].name, max_dlv[num]);
 555 #else
 556                         fprintf(fff, " %2d:%02d %20s reset recall level of %s to %d %s.\n", hour, min, note_level, d_name + d_info[num].name, max_dlv[num], note);
 557 #endif
 558                         break;
 559                 }
 560                 case NIKKI_STAIR:
 561                 {
 562                         cptr to;
 563                         if (q_idx && (is_fixed_quest_idx(q_idx)
 564                              && !((q_idx == QUEST_OBERON) || (q_idx == QUEST_SERPENT))))
 565                         {
 566 #ifdef JP
 567                                 to = "ÃÏ¾å";
 568 #else
 569                                 to = "the surface";
 570 #endif
 571                         }
 572                         else
 573                         {
 574 #ifdef JP
 575                                 if (!(dun_level+num)) to = "ÃÏ¾å";
 576                                 else to = format("%d³¬", dun_level+num);
 577 #else
 578                                 if (!(dun_level+num)) to = "the surface";
 579                                 else to = format("level %d", dun_level+num);
 580 #endif
 581                         }
 582
 583 #ifdef JP
 584                         fprintf(fff, " %2d:%02d %20s %s¤Ø%s¡£\n", hour, min, note_level, to, note);
 585 #else
 586                         fprintf(fff, " %2d:%02d %20s %s %s.\n", hour, min, note_level, note, to);
 587 #endif
 588                         break;
 589                 }
 590                 case NIKKI_RECALL:
 591                 {
 592                         if (!num)
 593 #ifdef JP
 594                                 fprintf(fff, " %2d:%02d %20s µ¢´Ô¤ò»È¤Ã¤Æ%s¤Î%d³¬¤Ø²¼¤ê¤¿¡£\n", hour, min, note_level, d_name+d_info[dungeon_type].name, max_dlv[dungeon_type]);
 595 #else
 596                                 fprintf(fff, " %2d:%02d %20s recalled to dungeon level %d of %s.\n", hour, min, note_level, max_dlv[dungeon_type], d_name+d_info[dungeon_type].name);
 597 #endif
 598                         else
 599 #ifdef JP
 600                                 fprintf(fff, " %2d:%02d %20s µ¢´Ô¤ò»È¤Ã¤ÆÃÏ¾å¤Ø¤ÈÌá¤Ã¤¿¡£\n", hour, min, note_level);
 601 #else
 602                                 fprintf(fff, " %2d:%02d %20s recalled from dungeon to surface.\n", hour, min, note_level);
 603 #endif
 604                         break;
 605                 }
 606                 case NIKKI_TO_QUEST:
 607                 {
 608                         if (quest[num].flags & QUEST_FLAG_SILENT) break;
 609 #ifdef JP
 610                         fprintf(fff, " %2d:%02d %20s ¥¯¥¨¥¹¥È¡Ö%s¡×¤Ø¤ÈÆÍÆþ¤·¤¿¡£\n", hour, min, note_level, quest[num].name);
 611 #else
 612                         fprintf(fff, " %2d:%02d %20s entered the quest '%s'.\n", hour, min, note_level, quest[num].name);
 613 #endif
 614                         break;
 615                 }
 616                 case NIKKI_TELE_LEV:
 617                 {
 618 #ifdef JP
 619                         fprintf(fff, " %2d:%02d %20s ¥ì¥Ù¥ë¡¦¥Æ¥ì¥Ý¡¼¥È¤ÇÃ¦½Ð¤·¤¿¡£\n", hour, min, note_level);
 620 #else
 621                         fprintf(fff, " %2d:%02d %20s Got out using teleport level.\n", hour, min, note_level);
 622 #endif
 623                         break;
 624                 }
 625                 case NIKKI_BUY:
 626                 {
 627 #ifdef JP
 628                         fprintf(fff, " %2d:%02d %20s %s¤ò¹ØÆþ¤·¤¿¡£\n", hour, min, note_level, note);
 629 #else
 630                         fprintf(fff, " %2d:%02d %20s bought %s.\n", hour, min, note_level, note);
 631 #endif
 632                         break;
 633                 }
 634                 case NIKKI_SELL:
 635                 {
 636 #ifdef JP
 637                         fprintf(fff, " %2d:%02d %20s %s¤òÇäµÑ¤·¤¿¡£\n", hour, min, note_level, note);
 638 #else
 639                         fprintf(fff, " %2d:%02d %20s sold %s.\n", hour, min, note_level, note);
 640 #endif
 641                         break;
 642                 }
 643                 case NIKKI_ARENA:
 644                 {
 645                         if (num < 0)
 646                         {
 647 #ifdef JP
 648                                 fprintf(fff, " %2d:%02d %20s Æ®µ»¾ì¤Î%d²óÀï¤Ç¡¢%s¤ÎÁ°¤ËÇÔ¤ìµî¤Ã¤¿¡£\n", hour, min, note_level, -num, note);
 649 #else
 650                                 int n = -num;
 651                                 fprintf(fff, " %2d:%02d %20s beaten by %s in the %d%s fight.\n", hour, min, note_level, note, n, get_ordinal_number_suffix(n));
 652 #endif
 653                                 break;
 654                         }
 655 #ifdef JP
 656                         fprintf(fff, " %2d:%02d %20s Æ®µ»¾ì¤Î%d²óÀï(%s)¤Ë¾¡Íø¤·¤¿¡£\n", hour, min, note_level, num, note);
 657 #else
 658                         fprintf(fff, " %2d:%02d %20s won the %d%s fight (%s).\n", hour, min, note_level, num, get_ordinal_number_suffix(num), note);
 659 #endif
 660                         if (num == MAX_ARENA_MONS)
 661                         {
 662 #ifdef JP
 663                                 fprintf(fff, "                 Æ®µ»¾ì¤Î¤¹¤Ù¤Æ¤ÎÅ¨¤Ë¾¡Íø¤·¡¢¥Á¥ã¥ó¥Ô¥ª¥ó¤È¤Ê¤Ã¤¿¡£\n");
 664 #else
 665                                 fprintf(fff, "                 won all fight to become a Chanpion.\n");
 666 #endif
 667                                 do_level = FALSE;
 668                         }
 669                         break;
 670                 }
 671                 case NIKKI_HANMEI:
 672                 {
 673 #ifdef JP
 674                         fprintf(fff, " %2d:%02d %20s %s¤ò¼±ÊÌ¤·¤¿¡£\n", hour, min, note_level, note);
 675 #else
 676                         fprintf(fff, " %2d:%02d %20s identified %s.\n", hour, min, note_level, note);
 677 #endif
 678                         break;
 679                 }
 680                 case NIKKI_WIZ_TELE:
 681                 {
 682                         cptr to;
 683                         if (!dun_level)
 684 #ifdef JP
 685                                 to = "ÃÏ¾å";
 686 #else
 687                                 to = "the surface";
 688 #endif
 689                         else
 690 #ifdef JP
 691                                 to = format("%d³¬(%s)", dun_level, d_name+d_info[dungeon_type].name);
 692 #else
 693                                 to = format("level %d of %s", dun_level, d_name+d_info[dungeon_type].name);
 694 #endif
 695
 696 #ifdef JP
 697                         fprintf(fff, " %2d:%02d %20s %s¤Ø¤È¥¦¥£¥¶¡¼¥É¡¦¥Æ¥ì¥Ý¡¼¥È¤Ç°ÜÆ°¤·¤¿¡£\n", hour, min, note_level, to);
 698 #else
 699                         fprintf(fff, " %2d:%02d %20s wizard-teleport to %s.\n", hour, min, note_level, to);
 700 #endif
 701                         break;
 702                 }
 703                 case NIKKI_PAT_TELE:
 704                 {
 705                         cptr to;
 706                         if (!dun_level)
 707 #ifdef JP
 708                                 to = "ÃÏ¾å";
 709 #else
 710                                 to = "the surface";
 711 #endif
 712                         else
 713 #ifdef JP
 714                                 to = format("%d³¬(%s)", dun_level, d_name+d_info[dungeon_type].name);
 715 #else
 716                                 to = format("level %d of %s", dun_level, d_name+d_info[dungeon_type].name);
 717 #endif
 718
 719 #ifdef JP
 720                         fprintf(fff, " %2d:%02d %20s %s¤Ø¤È¥Ñ¥¿¡¼¥ó¤ÎÎÏ¤Ç°ÜÆ°¤·¤¿¡£\n", hour, min, note_level, to);
 721 #else
 722                         fprintf(fff, " %2d:%02d %20s used Pattern to teleport to %s.\n", hour, min, note_level, to);
 723 #endif
 724                         break;
 725                 }
 726                 case NIKKI_LEVELUP:
 727                 {
 728 #ifdef JP
 729                         fprintf(fff, " %2d:%02d %20s ¥ì¥Ù¥ë¤¬%d¤Ë¾å¤¬¤Ã¤¿¡£\n", hour, min, note_level, num);
 730 #else
 731                         fprintf(fff, " %2d:%02d %20s reached player level %d.\n", hour, min, note_level, num);
 732 #endif
 733                         break;
 734                 }
 735                 case NIKKI_GAMESTART:
 736                 {
 737                         time_t ct = time((time_t*)0);
 738                         do_level = FALSE;
 739                         if (num)
 740                         {
 741                                 fprintf(fff, "%s %s",note, ctime(&ct));
 742                         }
 743                         else
 744                                 fprintf(fff, " %2d:%02d %20s %s %s",hour, min, note_level, note, ctime(&ct));
 745                         break;
 746                 }
 747                 case NIKKI_NAMED_PET:
 748                 {
 749                         fprintf(fff, " %2d:%02d %20s ", hour, min, note_level);
 750                         switch (num)
 751                         {
 752                                 case 0:
 753 #ifdef JP
 754                                         fprintf(fff, "%s¤òÎ¹¤ÎÍ§¤Ë¤¹¤ë¤³¤È¤Ë·è¤á¤¿¡£\n", note);
 755 #else
 756                                         fprintf(fff, "decided to travel together with %s.\n", note);
 757 #endif
 758                                         break;
 759                                 case 1:
 760 #ifdef JP
 761                                         fprintf(fff, "%s¤ÎÌ¾Á°¤ò¾Ã¤·¤¿¡£\n", note);
 762 #else
 763                                         fprintf(fff, "unnamed %s.\n", note);
 764 #endif
 765                                         break;
 766                                 case 2:
 767 #ifdef JP
 768                                         fprintf(fff, "%s¤ò²òÊü¤·¤¿¡£\n", note);
 769 #else
 770                                         fprintf(fff, "dismissed %s.\n", note);
 771 #endif
 772                                         break;
 773                                 case 3:
 774 #ifdef JP
 775                                         fprintf(fff, "%s¤¬»à¤ó¤Ç¤·¤Þ¤Ã¤¿¡£\n", note);
 776 #else
 777                                         fprintf(fff, "%s died.\n", note);
 778 #endif
 779                                         break;
 780                                 case 4:
 781 #ifdef JP
 782                                         fprintf(fff, "%s¤ò¤ª¤¤¤ÆÊÌ¤Î¥Þ¥Ã¥×¤Ø°ÜÆ°¤·¤¿¡£\n", note);
 783 #else
 784                                         fprintf(fff, "moved to another map leaving %s behind.\n", note);
 785 #endif
 786                                         break;
 787                                 case 5:
 788 #ifdef JP
 789                                         fprintf(fff, "%s¤È¤Ï¤°¤ì¤Æ¤·¤Þ¤Ã¤¿¡£\n", note);
 790 #else
 791                                         fprintf(fff, "lost sight of %s.\n", note);
 792 #endif
 793                                         break;
 794                                 case 6:
 795 #ifdef JP
 796                                         fprintf(fff, "%s¤¬*ÇË²õ*¤Ë¤è¤Ã¤Æ¾Ã¤¨µî¤Ã¤¿¡£\n", note);
 797 #else
 798                                         fprintf(fff, "%s was made disappeared by *destruction*.\n", note);
 799 #endif
 800                                         break;
 801                                 case 7:
 802 #ifdef JP
 803                                         fprintf(fff, "%s¤¬´äÀÐ¤Ë²¡¤·ÄÙ¤µ¤ì¤¿¡£\n", note);
 804 #else
 805                                         fprintf(fff, "%s was crushed by falling rocks.\n", note);
 806 #endif
 807                                         break;
 808                                 default:
 809                                         fprintf(fff, "\n");
 810                                         break;
 811                         }
 812                         break;
 813                 }
 814                 default:
 815                         break;
 816         }
 817
 818         my_fclose(fff);
 819
 820         if (do_level) write_level = FALSE;
 821
 822         return (0);
 823 }
 824
 825
 826 #define MAX_SUBTITLE (sizeof(subtitle)/sizeof(subtitle[0]))
 827
 828 static void do_cmd_disp_nikki(void)
 829 {
 830         char nikki_title[256];
 831         char file_name[80];
 832         char buf[1024];
 833         char tmp[80];
 834 #ifdef JP
 835         static const char subtitle[][30] = {"ºÇ¶¯¤ÎÆùÂÎ¤òµá¤á¤Æ",
 836                                            "¿ÍÀ¸¤½¤ì¤Ï¤Ï¤«¤Ê¤¤",
 837                                            "ÌÀÆü¤Ë¸þ¤«¤Ã¤Æ",
 838                                            "Ãª¤«¤é¤Ü¤¿¤â¤Á",
 839                                            "¤¢¤È¤Îº×¤ê",
 840                                            "¤½¤ì¤Ï¤¤¤¤¹Í¤¨¤À",
 841                                            "²¿¤È¤Ç¤â¸À¤¨",
 842                                            "ÅÆ¤Ë¤â³Ñ¤Ë¤â",
 843                                            "¥¦¥½¤À¤±¤É",
 844                                            "¤â¤Ï¤ä¤³¤ì¤Þ¤Ç",
 845                                            "¤Ê¤ó¤Ç¤³¤¦¤Ê¤ë¤Î",
 846                                            "¤½¤ì¤ÏÌµÍý¤À",
 847                                            "ÅÝ¤¹¤Ù¤Å¨¤Ï¥²¡û¥Ä",
 848                                            "¤ó¡Á¡©Ê¹¤³¤¨¤ó¤Ê¤¡",
 849                                            "¥ª¥ì¤ÎÌ¾¤ò¸À¤Ã¤Æ¤ß¤í",
 850                                            "Æ¬¤¬ÊÑ¤Ë¤Ê¤Ã¤Á¤ã¤Ã¤¿",
 851                                            "¸ß´¹¤·¤Þ¤»¤ó",
 852                                            "¤»¤Ã¤«¤¯¤À¤«¤é",
 853                                            "¤Þ¤À¤Þ¤À´Å¤¤¤Í",
 854                                            "¤à¤´¤¤¤à¤´¤¹¤®¤ë",
 855                                            "¤³¤ó¤Ê¤â¤ó¤¸¤ã¤Ê¤¤",
 856                                            "¤À¤á¤À¤³¤ê¤ã",
 857                                            "¼¡¤¤¤Ã¤Æ¤ß¤è¤¦",
 858                                            "¤Á¤ç¤Ã¤È¤À¤±¤è",
 859                                            "°¥¤·¤ËÁ¸±¼Ô",
 860                                            "ÌîË¾¤Î²Ì¤Æ",
 861                                            "Ìµ¸ÂÃÏ¹ö",
 862                                            "¿À¤Ë·ö²Þ¤òÇä¤ë¼Ô",
 863                                            "Ì¤ÃÎ¤ÎÀ¤³¦¤Ø",
 864                                            "ºÇ¹â¤ÎÆ¬Ç¾¤òµá¤á¤Æ"};
 865 #else
 866         static const char subtitle[][51] ={"Quest of The World's Toughest Body",
 867                                            "Attack is the best form of defence.",
 868                                            "Might is right.",
 869                                            "An unexpected windfall",
 870                                            "A drowning man will catch at a straw",
 871                                            "Don't count your chickens before they are hatched.",
 872                                            "It is no use crying over spilt milk.",
 873                                            "Seeing is believing.",
 874                                            "Strike the iron while it is hot.",
 875                                            "I don't care what follows.",
 876                                            "To dig a well to put out a house on fire.",
 877                                            "Tomorrow is another day.",
 878                                            "Easy come, easy go.",
 879                                            "The more haste, the less speed.",
 880                                            "Where there is life, there is hope.",
 881                                            "There is no royal road to *WINNER*.",
 882                                            "Danger past, God forgotten.",
 883                                            "The best thing to do now is to run away.",
 884                                            "Life is but an empty dream.",
 885                                            "Dead men tell no tales.",
 886                                            "A book that remains shut is but a block.",
 887                                            "Misfortunes never come singly.",
 888                                            "A little knowledge is a dangerous thing.",
 889                                            "History repeats itself.",
 890                                            "*WINNER* was not built in a day.",
 891                                            "Ignorance is bliss.",
 892                                            "To lose is to win?",
 893                                            "No medicine can cure folly.",
 894                                            "All good things come to an end.",
 895                                            "M$ Empire strikes back.",
 896                                            "To see is to believe",
 897                                            "Time is money.",
 898                                            "Quest of The World's Greatest Brain"};
 899 #endif
 900 #ifdef JP
 901         sprintf(file_name,"playrecord-%s.txt",savefile_base);
 902 #else
 903         sprintf(file_name,"playrec-%s.txt",savefile_base);
 904 #endif
 905
 906         /* Build the filename */
 907         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, file_name);
 908
 909         if (p_ptr->pclass == CLASS_WARRIOR || p_ptr->pclass == CLASS_MONK || p_ptr->pclass == CLASS_SAMURAI || p_ptr->pclass == CLASS_BERSERKER)
 910                 strcpy(tmp,subtitle[randint0(MAX_SUBTITLE-1)]);
 911         else if (p_ptr->pclass == CLASS_MAGE || p_ptr->pclass == CLASS_HIGH_MAGE || p_ptr->pclass == CLASS_SORCERER)
 912                 strcpy(tmp,subtitle[randint0(MAX_SUBTITLE-1)+1]);
 913         else strcpy(tmp,subtitle[randint0(MAX_SUBTITLE-2)+1]);
 914
 915 #ifdef JP
 916         sprintf(nikki_title, "¡Ö%s%s%s¤ÎÅÁÀâ -%s-¡×",
 917                 ap_ptr->title, ap_ptr->no ? "¤Î" : "", player_name, tmp);
 918 #else
 919         sprintf(nikki_title, "Legend of %s %s '%s'",
 920                 ap_ptr->title, player_name, tmp);
 921 #endif
 922
 923         /* Display the file contents */
 924         show_file(FALSE, buf, nikki_title, -1, 0);
 925 }
 926
 927 static void do_cmd_bunshou(void)
 928 {
 929         char tmp[80] = "\0";
 930         char bunshou[80] = "\0";
 931
 932 #ifdef JP
 933         if (get_string("ÆâÍÆ: ", tmp, 79))
 934 #else
 935         if (get_string("diary note: ", tmp, 79))
 936 #endif
 937         {
 938                 strcpy(bunshou, tmp);
 939
 940                 do_cmd_write_nikki(NIKKI_BUNSHOU, 0, bunshou);
 941         }
 942 }
 943
 944 static void do_cmd_last_get(void)
 945 {
 946         char buf[256];
 947         s32b turn_tmp;
 948
 949         if (record_o_name[0] == '\0') return;
 950
 951 #ifdef JP
 952         sprintf(buf,"%s¤ÎÆþ¼ê¤òµÏ¿¤·¤Þ¤¹¡£",record_o_name);
 953 #else
 954         sprintf(buf,"Do you really want to record getting %s? ",record_o_name);
 955 #endif
 956         if (!get_check(buf)) return;
 957
 958         turn_tmp = turn;
 959         turn = record_turn;
 960 #ifdef JP
 961         sprintf(buf,"%s¤ò¼ê¤ËÆþ¤ì¤¿¡£", record_o_name);
 962 #else
 963         sprintf(buf,"descover %s.", record_o_name);
 964 #endif
 965         do_cmd_write_nikki(NIKKI_BUNSHOU, 0, buf);
 966         turn = turn_tmp;
 967 }
 968
 969 static void do_cmd_erase_nikki(void)
 970 {
 971         char file_name[80];
 972         char buf[256];
 973         FILE *fff = NULL;
 974
 975 #ifdef JP
 976         if (!get_check("ËÜÅö¤ËµÏ¿¤ò¾Ãµî¤·¤Þ¤¹¤«¡©")) return;
 977 #else
 978         if (!get_check("Do you really want to delete all your record? ")) return;
 979 #endif
 980
 981 #ifdef JP
 982         sprintf(file_name,"playrecord-%s.txt",savefile_base);
 983 #else
 984         sprintf(file_name,"playrec-%s.txt",savefile_base);
 985 #endif
 986
 987         /* Build the filename */
 988         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, file_name);
 989
 990         /* Remove the file */
 991         fd_kill(buf);
 992
 993         fff = my_fopen(buf, "w");
 994         if(fff){
 995                 my_fclose(fff);
 996 #ifdef JP
 997                 msg_format("µÏ¿¤ò¾Ãµî¤·¤Þ¤·¤¿¡£");
 998 #else
 999                 msg_format("deleted record.");
1000 #endif
1001         }else{
1002 #ifdef JP
1003                 msg_format("%s ¤Î¾Ãµî¤Ë¼ºÇÔ¤·¤Þ¤·¤¿¡£", buf);
1004 #else
1005                 msg_format("failed to delete %s.", buf);
1006 #endif
1007         }
1008         msg_print(NULL);
1009 }
1010
1011
1012 void do_cmd_nikki(void)
1013 {
1014         int i;
1015
1016         /* File type is "TEXT" */
1017         FILE_TYPE(FILE_TYPE_TEXT);
1018
1019         /* Save the screen */
1020         screen_save();
1021
1022         /* Interact until done */
1023         while (1)
1024         {
1025                 /* Clear screen */
1026                 Term_clear();
1027
1028                 /* Ask for a choice */
1029 #ifdef JP
1030                 prt("[ µÏ¿¤ÎÀßÄê ]", 2, 0);
1031 #else
1032                 prt("[ Play Record ]", 2, 0);
1033 #endif
1034
1035
1036                 /* Give some choices */
1037 #ifdef JP
1038                 prt("(1) µÏ¿¤ò¸«¤ë", 4, 5);
1039                 prt("(2) Ê¸¾Ï¤òµÏ¿¤¹¤ë", 5, 5);
1040                 prt("(3) Ä¾Á°¤ËÆþ¼êËô¤Ï´ÕÄê¤·¤¿¤â¤Î¤òµÏ¿¤¹¤ë", 6, 5);
1041                 prt("(4) µÏ¿¤ò¾Ãµî¤¹¤ë", 7, 5);
1042 #else
1043                 prt("(1) Display your record", 4, 5);
1044                 prt("(2) Add record", 5, 5);
1045                 prt("(3) Record item you last get/identify", 6, 5);
1046                 prt("(4) Delete your record", 7, 5);
1047 #endif
1048
1049
1050                 /* Prompt */
1051 #ifdef JP
1052                 prt("¥³¥Þ¥ó¥É:", 18, 0);
1053 #else
1054                 prt("Command: ", 18, 0);
1055 #endif
1056
1057
1058                 /* Prompt */
1059                 i = inkey();
1060
1061                 /* Done */
1062                 if (i == ESCAPE) break;
1063
1064                 switch (i)
1065                 {
1066                 case '1':
1067                         do_cmd_disp_nikki();
1068                         break;
1069                 case '2':
1070                         do_cmd_bunshou();
1071                         break;
1072                 case '3':
1073                         do_cmd_last_get();
1074                         break;
1075                 case '4':
1076                         do_cmd_erase_nikki();
1077                         break;
1078                 default: /* Unknown option */
1079                         bell();
1080                 }
1081
1082                 /* Flush messages */
1083                 msg_print(NULL);
1084         }
1085
1086         /* Restore the screen */
1087         screen_load();
1088 }
1089
1090 /*
1091  * Hack -- redraw the screen
1092  *
1093  * This command performs various low level updates, clears all the "extra"
1094  * windows, does a total redraw of the main window, and requests all of the
1095  * interesting updates and redraws that I can think of.
1096  *
1097  * This command is also used to "instantiate" the results of the user
1098  * selecting various things, such as graphics mode, so it must call
1099  * the "TERM_XTRA_REACT" hook before redrawing the windows.
1100  */
1101 void do_cmd_redraw(void)
1102 {
1103         int j;
1104
1105         term *old = Term;
1106
1107
1108         /* Hack -- react to changes */
1109         Term_xtra(TERM_XTRA_REACT, 0);
1110
1111
1112         /* Combine and Reorder the pack (later) */
1113         p_ptr->notice |= (PN_COMBINE | PN_REORDER);
1114
1115
1116         /* Update torch */
1117         p_ptr->update |= (PU_TORCH);
1118
1119         /* Update stuff */
1120         p_ptr->update |= (PU_BONUS | PU_HP | PU_MANA | PU_SPELLS);
1121
1122         /* Forget lite/view */
1123         p_ptr->update |= (PU_UN_VIEW | PU_UN_LITE);
1124
1125         /* Update lite/view */
1126         p_ptr->update |= (PU_VIEW | PU_LITE | PU_MON_LITE);
1127
1128         /* Update monsters */
1129         p_ptr->update |= (PU_MONSTERS);
1130
1131         /* Redraw everything */
1132         p_ptr->redraw |= (PR_WIPE | PR_BASIC | PR_EXTRA | PR_MAP | PR_EQUIPPY);
1133
1134         /* Window stuff */
1135         p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_SPELL | PW_PLAYER);
1136
1137         /* Window stuff */
1138         p_ptr->window |= (PW_MESSAGE | PW_OVERHEAD | PW_DUNGEON | PW_MONSTER | PW_OBJECT);
1139
1140         update_playtime();
1141
1142         /* Hack -- update */
1143         handle_stuff();
1144
1145         if (p_ptr->prace == RACE_ANDROID) calc_android_exp();
1146
1147
1148         /* Redraw every window */
1149         for (j = 0; j < 8; j++)
1150         {
1151                 /* Dead window */
1152                 if (!angband_term[j]) continue;
1153
1154                 /* Activate */
1155                 Term_activate(angband_term[j]);
1156
1157                 /* Redraw */
1158                 Term_redraw();
1159
1160                 /* Refresh */
1161                 Term_fresh();
1162
1163                 /* Restore */
1164                 Term_activate(old);
1165         }
1166 }
1167
1168
1169 /*
1170  * Hack -- change name
1171  */
1172 void do_cmd_change_name(void)
1173 {
1174         char    c;
1175
1176         int             mode = 0;
1177
1178         char    tmp[160];
1179
1180
1181         /* Save the screen */
1182         screen_save();
1183
1184         /* Forever */
1185         while (1)
1186         {
1187                 update_playtime();
1188
1189                 /* Display the player */
1190                 display_player(mode);
1191
1192                 if (mode == 4)
1193                 {
1194                         mode = 0;
1195                         display_player(mode);
1196                 }
1197
1198                 /* Prompt */
1199 #ifdef JP
1200                 Term_putstr(2, 23, -1, TERM_WHITE,
1201                             "['c'¤ÇÌ¾Á°ÊÑ¹¹, 'f'¤Ç¥Õ¥¡¥¤¥ë¤Ø½ñ½Ð, 'h'¤Ç¥â¡¼¥ÉÊÑ¹¹, ESC¤Ç½ªÎ»]");
1202 #else
1203                 Term_putstr(2, 23, -1, TERM_WHITE,
1204                         "['c' to change name, 'f' to file, 'h' to change mode, or ESC]");
1205 #endif
1206
1207
1208                 /* Query */
1209                 c = inkey();
1210
1211                 /* Exit */
1212                 if (c == ESCAPE) break;
1213
1214                 /* Change name */
1215                 if (c == 'c')
1216                 {
1217                         get_name();
1218
1219                         /* Process the player name */
1220                         process_player_name(FALSE);
1221                 }
1222
1223                 /* File dump */
1224                 else if (c == 'f')
1225                 {
1226                         sprintf(tmp, "%s.txt", player_base);
1227 #ifdef JP
1228                         if (get_string("¥Õ¥¡¥¤¥ëÌ¾: ", tmp, 80))
1229 #else
1230                         if (get_string("File name: ", tmp, 80))
1231 #endif
1232
1233                         {
1234                                 if (tmp[0] && (tmp[0] != ' '))
1235                                 {
1236                                         file_character(tmp);
1237                                 }
1238                         }
1239                 }
1240
1241                 /* Toggle mode */
1242                 else if (c == 'h')
1243                 {
1244                         mode++;
1245                 }
1246
1247                 /* Oops */
1248                 else
1249                 {
1250                         bell();
1251                 }
1252
1253                 /* Flush messages */
1254                 msg_print(NULL);
1255         }
1256
1257         /* Restore the screen */
1258         screen_load();
1259
1260         /* Redraw everything */
1261         p_ptr->redraw |= (PR_WIPE | PR_BASIC | PR_EXTRA | PR_MAP | PR_EQUIPPY);
1262
1263         handle_stuff();
1264 }
1265
1266
1267 /*
1268  * Recall the most recent message
1269  */
1270 void do_cmd_message_one(void)
1271 {
1272         /* Recall one message XXX XXX XXX */
1273         prt(format("> %s", message_str(0)), 0, 0);
1274 }
1275
1276
1277 /*
1278  * Show previous messages to the user   -BEN-
1279  *
1280  * The screen format uses line 0 and 23 for headers and prompts,
1281  * skips line 1 and 22, and uses line 2 thru 21 for old messages.
1282  *
1283  * This command shows you which commands you are viewing, and allows
1284  * you to "search" for strings in the recall.
1285  *
1286  * Note that messages may be longer than 80 characters, but they are
1287  * displayed using "infinite" length, with a special sub-command to
1288  * "slide" the virtual display to the left or right.
1289  *
1290  * Attempt to only hilite the matching portions of the string.
1291  */
1292 void do_cmd_messages(int num_now)
1293 {
1294         int i, n;
1295
1296         char shower[80];
1297         char finder[80];
1298         int wid, hgt;
1299         int num_lines;
1300
1301         /* Get size */
1302         Term_get_size(&wid, &hgt);
1303
1304         /* Number of message lines in a screen */
1305         num_lines = hgt - 4;
1306
1307         /* Wipe finder */
1308         strcpy(finder, "");
1309
1310         /* Wipe shower */
1311         strcpy(shower, "");
1312
1313
1314         /* Total messages */
1315         n = message_num();
1316
1317         /* Start on first message */
1318         i = 0;
1319
1320         /* Save the screen */
1321         screen_save();
1322
1323         /* Clear screen */
1324         Term_clear();
1325
1326         /* Process requests until done */
1327         while (1)
1328         {
1329                 int j;
1330                 int skey;
1331
1332                 /* Dump up to 20 lines of messages */
1333                 for (j = 0; (j < num_lines) && (i + j < n); j++)
1334                 {
1335                         cptr msg = message_str(i+j);
1336
1337                         /* Dump the messages, bottom to top */
1338                         c_prt((i+j < num_now ? TERM_WHITE : TERM_SLATE), msg, num_lines + 1 - j, 0);
1339
1340                         /* Hilite "shower" */
1341                         if (shower[0])
1342                         {
1343                                 cptr str = msg;
1344
1345                                 /* Display matches */
1346                                 while ((str = my_strstr(str, shower)) != NULL)
1347                                 {
1348                                         int len = strlen(shower);
1349
1350                                         /* Display the match */
1351                                         Term_putstr(str-msg, num_lines + 1 - j, len, TERM_YELLOW, shower);
1352
1353                                         /* Advance */
1354                                         str += len;
1355                                 }
1356                         }
1357                 }
1358
1359                 /* Erase remaining lines */
1360                 for (; j < num_lines; j++)
1361                 {
1362                         Term_erase(0, num_lines + 1 - j, 255);
1363                 }
1364
1365                 /* Display header XXX XXX XXX */
1366 #ifdef JP
1367                 /* translation */
1368                 prt(format("°ÊÁ°¤Î¥á¥Ã¥»¡¼¥¸ %d-%d Á´Éô¤Ç(%d)",
1369                            i, i+j-1, n), 0, 0);
1370 #else
1371                 prt(format("Message Recall (%d-%d of %d)",
1372                            i, i+j-1, n), 0, 0);
1373 #endif
1374
1375
1376                 /* Display prompt (not very informative) */
1377 #ifdef JP
1378                 prt("[ 'p' ¤Ç¹¹¤Ë¸Å¤¤¤â¤Î, 'n' ¤Ç¹¹¤Ë¿·¤·¤¤¤â¤Î, '/' ¤Ç¸¡º÷, ESC ¤ÇÃæÃÇ ]", hgt - 1, 0);
1379 #else
1380                 prt("[Press 'p' for older, 'n' for newer, ..., or ESCAPE]", hgt - 1, 0);
1381 #endif
1382
1383
1384                 /* Get a command */
1385                 skey = inkey_special(TRUE);
1386
1387                 /* Exit on Escape */
1388                 if (skey == ESCAPE) break;
1389
1390                 /* Hack -- Save the old index */
1391                 j = i;
1392
1393                 /* Hack -- handle show */
1394                 if (skey == '=')
1395                 {
1396                         /* Prompt */
1397 #ifdef JP
1398                         prt("¶¯Ä´: ", hgt - 1, 0);
1399 #else
1400                         prt("Show: ", hgt - 1, 0);
1401 #endif
1402
1403
1404                         /* Get a "shower" string, or continue */
1405                         if (!askfor(shower, 80)) continue;
1406
1407                         /* Okay */
1408                         continue;
1409                 }
1410
1411                 /* Hack -- handle find */
1412                 if (skey == '/' || skey == KTRL('s'))
1413                 {
1414                         int z;
1415
1416                         /* Prompt */
1417 #ifdef JP
1418                         prt("¸¡º÷: ", hgt - 1, 0);
1419 #else
1420                         prt("Find: ", hgt - 1, 0);
1421 #endif
1422
1423
1424                         /* Get a "finder" string, or continue */
1425                         if (!askfor(finder, 80)) continue;
1426
1427                         /* Show it */
1428                         strcpy(shower, finder);
1429
1430                         /* Scan messages */
1431                         for (z = i + 1; z < n; z++)
1432                         {
1433                                 cptr msg = message_str(z);
1434
1435                                 /* Search for it */
1436                                 if (my_strstr(msg, finder))
1437                                 {
1438                                         /* New location */
1439                                         i = z;
1440
1441                                         /* Done */
1442                                         break;
1443                                 }
1444                         }
1445                 }
1446
1447                 /* Recall 1 older message */
1448                 if (skey == SKEY_TOP)
1449                 {
1450                         /* Go to the oldest line */
1451                         i = n - num_lines;
1452                 }
1453
1454                 /* Recall 1 newer message */
1455                 if (skey == SKEY_BOTTOM)
1456                 {
1457                         /* Go to the newest line */
1458                         i = 0;
1459                 }
1460
1461                 /* Recall 1 older message */
1462                 if (skey == '8' || skey == SKEY_UP || skey == '\n' || skey == '\r')
1463                 {
1464                         /* Go older if legal */
1465                         i = MIN(i + 1, n - num_lines);
1466                 }
1467
1468                 /* Recall 10 older messages */
1469                 if (skey == '+')
1470                 {
1471                         /* Go older if legal */
1472                         i = MIN(i + 10, n - num_lines);
1473                 }
1474
1475                 /* Recall 20 older messages */
1476                 if (skey == 'p' || skey == KTRL('P') || skey == ' ' || skey == SKEY_PGUP)
1477                 {
1478                         /* Go older if legal */
1479                         i = MIN(i + num_lines, n - num_lines);
1480                 }
1481
1482                 /* Recall 20 newer messages */
1483                 if (skey == 'n' || skey == KTRL('N') || skey == SKEY_PGDOWN)
1484                 {
1485                         /* Go newer (if able) */
1486                         i = MAX(0, i - num_lines);
1487                 }
1488
1489                 /* Recall 10 newer messages */
1490                 if (skey == '-')
1491                 {
1492                         /* Go newer (if able) */
1493                         i = MAX(0, i - 10);
1494                 }
1495
1496                 /* Recall 1 newer messages */
1497                 if (skey == '2' || skey == SKEY_DOWN)
1498                 {
1499                         /* Go newer (if able) */
1500                         i = MAX(0, i - 1);
1501                 }
1502
1503                 /* Hack -- Error of some kind */
1504                 if (i == j) bell();
1505         }
1506
1507         /* Restore the screen */
1508         screen_load();
1509 }
1510
1511
1512
1513 /*
1514  * Number of cheating options
1515  */
1516 #define CHEAT_MAX 7
1517
1518 /*
1519  * Cheating options
1520  */
1521 static option_type cheat_info[CHEAT_MAX] =
1522 {
1523         { &cheat_peek,          FALSE,  255,    0x01, 0x00,
1524 #ifdef JP
1525         "cheat_peek",           "¥¢¥¤¥Æ¥à¤ÎÀ¸À®¤ò¤Î¤¾¤¸«¤ë"
1526 #else
1527         "cheat_peek",           "Peek into object creation"
1528 #endif
1529         },
1530
1531         { &cheat_hear,          FALSE,  255,    0x02, 0x00,
1532 #ifdef JP
1533         "cheat_hear",           "¥â¥ó¥¹¥¿¡¼¤ÎÀ¸À®¤ò¤Î¤¾¤¸«¤ë"
1534 #else
1535         "cheat_hear",           "Peek into monster creation"
1536 #endif
1537         },
1538
1539         { &cheat_room,          FALSE,  255,    0x04, 0x00,
1540 #ifdef JP
1541         "cheat_room",           "¥À¥ó¥¸¥ç¥ó¤ÎÀ¸À®¤ò¤Î¤¾¤¸«¤ë"
1542 #else
1543         "cheat_room",           "Peek into dungeon creation"
1544 #endif
1545         },
1546
1547         { &cheat_xtra,          FALSE,  255,    0x08, 0x00,
1548 #ifdef JP
1549         "cheat_xtra",           "¤½¤ÎÂ¾¤Î»ö¤ò¤Î¤¾¤¸«¤ë"
1550 #else
1551         "cheat_xtra",           "Peek into something else"
1552 #endif
1553         },
1554
1555         { &cheat_know,          FALSE,  255,    0x10, 0x00,
1556 #ifdef JP
1557         "cheat_know",           "´°Á´¤Ê¥â¥ó¥¹¥¿¡¼¤Î»×¤¤½Ð¤òÃÎ¤ë"
1558 #else
1559         "cheat_know",           "Know complete monster info"
1560 #endif
1561         },
1562
1563         { &cheat_live,          FALSE,  255,    0x20, 0x00,
1564 #ifdef JP
1565         "cheat_live",           "»à¤ò²óÈò¤¹¤ë¤³¤È¤ò²ÄÇ½¤Ë¤¹¤ë"
1566 #else
1567         "cheat_live",           "Allow player to avoid death"
1568 #endif
1569         },
1570
1571         { &cheat_save,          FALSE,  255,    0x40, 0x00,
1572 #ifdef JP
1573         "cheat_save",           "»à¤ó¤À»þ¥»¡¼¥Ö¤¹¤ë¤«³ÎÇ§¤¹¤ë"
1574 #else
1575         "cheat_save",           "Ask for saving death"
1576 #endif
1577         }
1578 };
1579
1580 /*
1581  * Interact with some options for cheating
1582  */
1583 static void do_cmd_options_cheat(cptr info)
1584 {
1585         char    ch;
1586
1587         int             i, k = 0, n = CHEAT_MAX;
1588
1589         char    buf[80];
1590
1591
1592         /* Clear screen */
1593         Term_clear();
1594
1595         /* Interact with the player */
1596         while (TRUE)
1597         {
1598                 int dir;
1599
1600                 /* Prompt XXX XXX XXX */
1601 #ifdef JP
1602                 sprintf(buf, "%s ( ¥ê¥¿¡¼¥ó¤Ç¼¡¤Ø, y/n ¤Ç¥»¥Ã¥È, ESC ¤Ç·èÄê )", info);
1603 #else
1604                 sprintf(buf, "%s (RET to advance, y/n to set, ESC to accept) ", info);
1605 #endif
1606
1607                 prt(buf, 0, 0);
1608
1609 #ifdef JP
1610                 /* º¾µ½¥ª¥×¥·¥ç¥ó¤ò¤¦¤Ã¤«¤ê¤¤¤¸¤Ã¤Æ¤·¤Þ¤¦¿Í¤¬¤¤¤ë¤è¤¦¤Ê¤Î¤ÇÃí°Õ */
1611                 prt("                                 <<  Ãí°Õ  >>", 11, 0);
1612                 prt("      º¾µ½¥ª¥×¥·¥ç¥ó¤ò°ìÅÙ¤Ç¤âÀßÄê¤¹¤ë¤È¡¢¥¹¥³¥¢µÏ¿¤¬»Ä¤é¤Ê¤¯¤Ê¤ê¤Þ¤¹¡ª", 12, 0);
1613                 prt("      ¸å¤Ë²ò½ü¤·¤Æ¤â¥À¥á¤Ç¤¹¤Î¤Ç¡¢¾¡Íø¼Ô¤òÌÜ»Ø¤¹Êý¤Ï¤³¤³¤Î¥ª¥×¥·¥ç¥ó¤Ï¤¤", 13, 0);
1614                 prt("      ¤¸¤é¤Ê¤¤¤è¤¦¤Ë¤·¤Æ²¼¤µ¤¤¡£", 14, 0);
1615 #endif
1616                 /* Display the options */
1617                 for (i = 0; i < n; i++)
1618                 {
1619                         byte a = TERM_WHITE;
1620
1621                         /* Color current option */
1622                         if (i == k) a = TERM_L_BLUE;
1623
1624                         /* Display the option text */
1625                         sprintf(buf, "%-48s: %s (%s)",
1626                             cheat_info[i].o_desc,
1627 #ifdef JP
1628                             (*cheat_info[i].o_var ? "¤Ï¤¤  " : "¤¤¤¤¤¨"),
1629 #else
1630                             (*cheat_info[i].o_var ? "yes" : "no "),
1631 #endif
1632
1633                             cheat_info[i].o_text);
1634                         c_prt(a, buf, i + 2, 0);
1635                 }
1636
1637                 /* Hilite current option */
1638                 move_cursor(k + 2, 50);
1639
1640                 /* Get a key */
1641                 ch = inkey();
1642
1643                 /*
1644                  * HACK - Try to translate the key into a direction
1645                  * to allow using the roguelike keys for navigation.
1646                  */
1647                 dir = get_keymap_dir(ch);
1648                 if ((dir == 2) || (dir == 4) || (dir == 6) || (dir == 8))
1649                         ch = I2D(dir);
1650
1651                 /* Analyze */
1652                 switch (ch)
1653                 {
1654                         case ESCAPE:
1655                         {
1656                                 return;
1657                         }
1658
1659                         case '-':
1660                         case '8':
1661                         {
1662                                 k = (n + k - 1) % n;
1663                                 break;
1664                         }
1665
1666                         case ' ':
1667                         case '\n':
1668                         case '\r':
1669                         case '2':
1670                         {
1671                                 k = (k + 1) % n;
1672                                 break;
1673                         }
1674
1675                         case 'y':
1676                         case 'Y':
1677                         case '6':
1678                         {
1679                                 if(!p_ptr->noscore)
1680 #ifdef JP
1681                                         do_cmd_write_nikki(NIKKI_BUNSHOU, 0, "º¾µ½¥ª¥×¥·¥ç¥ó¤òON¤Ë¤·¤Æ¡¢¥¹¥³¥¢¤ò»Ä¤»¤Ê¤¯¤Ê¤Ã¤¿¡£");
1682 #else
1683                                         do_cmd_write_nikki(NIKKI_BUNSHOU, 0, "give up sending score to use cheating options.");
1684 #endif
1685                                 p_ptr->noscore |= (cheat_info[k].o_set * 256 + cheat_info[k].o_bit);
1686                                 (*cheat_info[k].o_var) = TRUE;
1687                                 k = (k + 1) % n;
1688                                 break;
1689                         }
1690
1691                         case 'n':
1692                         case 'N':
1693                         case '4':
1694                         {
1695                                 (*cheat_info[k].o_var) = FALSE;
1696                                 k = (k + 1) % n;
1697                                 break;
1698                         }
1699
1700                         case '?':
1701                         {
1702 #ifdef JP
1703                                 strnfmt(buf, sizeof(buf), "joption.txt#%s", cheat_info[k].o_text);
1704 #else
1705                                 strnfmt(buf, sizeof(buf), "option.txt#%s", cheat_info[k].o_text);
1706 #endif
1707                                 /* Peruse the help file */
1708                                 (void)show_file(TRUE, buf, NULL, 0, 0);
1709
1710                                 Term_clear();
1711                                 break;
1712                         }
1713
1714                         default:
1715                         {
1716                                 bell();
1717                                 break;
1718                         }
1719                 }
1720         }
1721 }
1722
1723
1724 static option_type autosave_info[2] =
1725 {
1726         { &autosave_l,      FALSE, 255, 0x01, 0x00,
1727 #ifdef JP
1728             "autosave_l",    "¿·¤·¤¤³¬¤ËÆþ¤ëÅÙ¤Ë¼«Æ°¥»¡¼¥Ö¤¹¤ë" },
1729 #else
1730             "autosave_l",    "Autosave when entering new levels" },
1731 #endif
1732
1733
1734         { &autosave_t,      FALSE, 255, 0x02, 0x00,
1735 #ifdef JP
1736             "autosave_t",   "°ìÄê¥¿¡¼¥óËè¤Ë¼«Æ°¥»¡¼¥Ö¤¹¤ë" },
1737 #else
1738             "autosave_t",   "Timed autosave" },
1739 #endif
1740
1741 };
1742
1743
1744 static s16b toggle_frequency(s16b current)
1745 {
1746         switch (current)
1747         {
1748         case 0: return 50;
1749         case 50: return 100;
1750         case 100: return 250;
1751         case 250: return 500;
1752         case 500: return 1000;
1753         case 1000: return 2500;
1754         case 2500: return 5000;
1755         case 5000: return 10000;
1756         case 10000: return 25000;
1757         default: return 0;
1758         }
1759 }
1760
1761
1762 /*
1763  * Interact with some options for cheating
1764  */
1765 static void do_cmd_options_autosave(cptr info)
1766 {
1767         char    ch;
1768
1769         int     i, k = 0, n = 2;
1770
1771         char    buf[80];
1772
1773
1774         /* Clear screen */
1775         Term_clear();
1776
1777         /* Interact with the player */
1778         while (TRUE)
1779         {
1780                 /* Prompt XXX XXX XXX */
1781 #ifdef JP
1782                 sprintf(buf, "%s ( ¥ê¥¿¡¼¥ó¤Ç¼¡¤Ø, y/n ¤Ç¥»¥Ã¥È, F ¤ÇÉÑÅÙ¤òÆþÎÏ, ESC ¤Ç·èÄê ) ", info);
1783 #else
1784                 sprintf(buf, "%s (RET to advance, y/n to set, 'F' for frequency, ESC to accept) ", info);
1785 #endif
1786
1787                 prt(buf, 0, 0);
1788
1789                 /* Display the options */
1790                 for (i = 0; i < n; i++)
1791                 {
1792                         byte a = TERM_WHITE;
1793
1794                         /* Color current option */
1795                         if (i == k) a = TERM_L_BLUE;
1796
1797                         /* Display the option text */
1798                         sprintf(buf, "%-48s: %s (%s)",
1799                             autosave_info[i].o_desc,
1800 #ifdef JP
1801                             (*autosave_info[i].o_var ? "¤Ï¤¤  " : "¤¤¤¤¤¨"),
1802 #else
1803                             (*autosave_info[i].o_var ? "yes" : "no "),
1804 #endif
1805
1806                             autosave_info[i].o_text);
1807                         c_prt(a, buf, i + 2, 0);
1808                 }
1809
1810 #ifdef JP
1811                 prt(format("¼«Æ°¥»¡¼¥Ö¤ÎÉÑÅÙ¡§ %d ¥¿¡¼¥óËè",  autosave_freq), 5, 0);
1812 #else
1813                 prt(format("Timed autosave frequency: every %d turns",  autosave_freq), 5, 0);
1814 #endif
1815
1816
1817
1818                 /* Hilite current option */
1819                 move_cursor(k + 2, 50);
1820
1821                 /* Get a key */
1822                 ch = inkey();
1823
1824                 /* Analyze */
1825                 switch (ch)
1826                 {
1827                         case ESCAPE:
1828                         {
1829                                 return;
1830                         }
1831
1832                         case '-':
1833                         case '8':
1834                         {
1835                                 k = (n + k - 1) % n;
1836                                 break;
1837                         }
1838
1839                         case ' ':
1840                         case '\n':
1841                         case '\r':
1842                         case '2':
1843                         {
1844                                 k = (k + 1) % n;
1845                                 break;
1846                         }
1847
1848                         case 'y':
1849                         case 'Y':
1850                         case '6':
1851                         {
1852
1853                                 (*autosave_info[k].o_var) = TRUE;
1854                                 k = (k + 1) % n;
1855                                 break;
1856                         }
1857
1858                         case 'n':
1859                         case 'N':
1860                         case '4':
1861                         {
1862                                 (*autosave_info[k].o_var) = FALSE;
1863                                 k = (k + 1) % n;
1864                                 break;
1865                         }
1866
1867                         case 'f':
1868                         case 'F':
1869                         {
1870                                 autosave_freq = toggle_frequency(autosave_freq);
1871 #ifdef JP
1872                                 prt(format("¼«Æ°¥»¡¼¥Ö¤ÎÉÑÅÙ¡§ %d ¥¿¡¼¥óËè",
1873                                            autosave_freq), 5, 0);
1874 #else
1875                                 prt(format("Timed autosave frequency: every %d turns",
1876                                            autosave_freq), 5, 0);
1877 #endif
1878                                 break;
1879                         }
1880
1881                         case '?':
1882                         {
1883 #ifdef JP
1884                                 (void)show_file(TRUE, "joption.txt#Autosave", NULL, 0, 0);
1885 #else
1886                                 (void)show_file(TRUE, "option.txt#Autosave", NULL, 0, 0);
1887 #endif
1888
1889
1890                                 Term_clear();
1891                                 break;
1892                         }
1893
1894                         default:
1895                         {
1896                                 bell();
1897                                 break;
1898                         }
1899                 }
1900         }
1901 }
1902
1903
1904 /*
1905  * Interact with some options
1906  */
1907 void do_cmd_options_aux(int page, cptr info)
1908 {
1909         char    ch;
1910         int     i, k = 0, n = 0, l;
1911         int     opt[24];
1912         char    buf[80];
1913         bool    browse_only = (page == OPT_PAGE_BIRTH) && character_generated &&
1914                               (!p_ptr->wizard || !allow_debug_opts);
1915
1916
1917         /* Lookup the options */
1918         for (i = 0; i < 24; i++) opt[i] = 0;
1919
1920         /* Scan the options */
1921         for (i = 0; option_info[i].o_desc; i++)
1922         {
1923                 /* Notice options on this "page" */
1924                 if (option_info[i].o_page == page) opt[n++] = i;
1925         }
1926
1927
1928         /* Clear screen */
1929         Term_clear();
1930
1931         /* Interact with the player */
1932         while (TRUE)
1933         {
1934                 int dir;
1935
1936                 /* Prompt XXX XXX XXX */
1937 #ifdef JP
1938                 sprintf(buf, "%s (¥ê¥¿¡¼¥ó:¼¡, %sESC:½ªÎ», ?:¥Ø¥ë¥×) ", info, browse_only ? "" : "y/n:ÊÑ¹¹, ");
1939 #else
1940                 sprintf(buf, "%s (RET:next, %s, ?:help) ", info, browse_only ? "ESC:exit" : "y/n:change, ESC:accept");
1941 #endif
1942
1943                 prt(buf, 0, 0);
1944
1945
1946                 /* HACK -- description for easy-auto-destroy options */
1947 #ifdef JP
1948                 if (page == OPT_PAGE_AUTODESTROY) c_prt(TERM_YELLOW, "°Ê²¼¤Î¥ª¥×¥·¥ç¥ó¤Ï¡¢´Ê°×¼«Æ°ÇË²õ¤ò»ÈÍÑ¤¹¤ë¤È¤¤Î¤ßÍ¸ú", 6, 6);
1949 #else
1950                 if (page == OPT_PAGE_AUTODESTROY) c_prt(TERM_YELLOW, "Following options will protect items from easy auto-destroyer.", 6, 3);
1951 #endif
1952
1953                 /* Display the options */
1954                 for (i = 0; i < n; i++)
1955                 {
1956                         byte a = TERM_WHITE;
1957
1958                         /* Color current option */
1959                         if (i == k) a = TERM_L_BLUE;
1960
1961                         /* Display the option text */
1962                         sprintf(buf, "%-48s: %s (%.19s)",
1963                                 option_info[opt[i]].o_desc,
1964 #ifdef JP
1965                                 (*option_info[opt[i]].o_var ? "¤Ï¤¤  " : "¤¤¤¤¤¨"),
1966 #else
1967                                 (*option_info[opt[i]].o_var ? "yes" : "no "),
1968 #endif
1969
1970                                 option_info[opt[i]].o_text);
1971                         if ((page == OPT_PAGE_AUTODESTROY) && i > 2) c_prt(a, buf, i + 5, 0);
1972                         else c_prt(a, buf, i + 2, 0);
1973                 }
1974
1975                 if ((page == OPT_PAGE_AUTODESTROY) && (k > 2)) l = 3;
1976                 else l = 0;
1977
1978                 /* Hilite current option */
1979                 move_cursor(k + 2 + l, 50);
1980
1981                 /* Get a key */
1982                 ch = inkey();
1983
1984                 /*
1985                  * HACK - Try to translate the key into a direction
1986                  * to allow using the roguelike keys for navigation.
1987                  */
1988                 dir = get_keymap_dir(ch);
1989                 if ((dir == 2) || (dir == 4) || (dir == 6) || (dir == 8))
1990                         ch = I2D(dir);
1991
1992                 /* Analyze */
1993                 switch (ch)
1994                 {
1995                         case ESCAPE:
1996                         {
1997                                 return;
1998                         }
1999
2000                         case '-':
2001                         case '8':
2002                         {
2003                                 k = (n + k - 1) % n;
2004                                 break;
2005                         }
2006
2007                         case ' ':
2008                         case '\n':
2009                         case '\r':
2010                         case '2':
2011                         {
2012                                 k = (k + 1) % n;
2013                                 break;
2014                         }
2015
2016                         case 'y':
2017                         case 'Y':
2018                         case '6':
2019                         {
2020                                 if (browse_only) break;
2021                                 (*option_info[opt[k]].o_var) = TRUE;
2022                                 k = (k + 1) % n;
2023                                 break;
2024                         }
2025
2026                         case 'n':
2027                         case 'N':
2028                         case '4':
2029                         {
2030                                 if (browse_only) break;
2031                                 (*option_info[opt[k]].o_var) = FALSE;
2032                                 k = (k + 1) % n;
2033                                 break;
2034                         }
2035
2036                         case 't':
2037                         case 'T':
2038                         {
2039                                 if (!browse_only) (*option_info[opt[k]].o_var) = !(*option_info[opt[k]].o_var);
2040                                 break;
2041                         }
2042
2043                         case '?':
2044                         {
2045 #ifdef JP
2046                                 strnfmt(buf, sizeof(buf), "joption.txt#%s", option_info[opt[k]].o_text);
2047 #else
2048                                 strnfmt(buf, sizeof(buf), "option.txt#%s", option_info[opt[k]].o_text);
2049 #endif
2050                                 /* Peruse the help file */
2051                                 (void)show_file(TRUE, buf, NULL, 0, 0);
2052
2053                                 Term_clear();
2054                                 break;
2055                         }
2056
2057                         default:
2058                         {
2059                                 bell();
2060                                 break;
2061                         }
2062                 }
2063         }
2064 }
2065
2066
2067 /*
2068  * Modify the "window" options
2069  */
2070 static void do_cmd_options_win(void)
2071 {
2072         int i, j, d;
2073
2074         int y = 0;
2075         int x = 0;
2076
2077         char ch;
2078
2079         bool go = TRUE;
2080
2081         u32b old_flag[8];
2082
2083
2084         /* Memorize old flags */
2085         for (j = 0; j < 8; j++)
2086         {
2087                 /* Acquire current flags */
2088                 old_flag[j] = window_flag[j];
2089         }
2090
2091
2092         /* Clear screen */
2093         Term_clear();
2094
2095         /* Interact */
2096         while (go)
2097         {
2098                 /* Prompt XXX XXX XXX */
2099 #ifdef JP
2100                 prt("¥¦¥£¥ó¥É¥¦¡¦¥Õ¥é¥° (<Êý¸þ>¤Ç°ÜÆ°, t¤Ç¥Á¥§¥ó¥¸, y/n ¤Ç¥»¥Ã¥È, ESC)", 0, 0);
2101 #else
2102                 prt("Window Flags (<dir>, t, y, n, ESC) ", 0, 0);
2103 #endif
2104
2105
2106                 /* Display the windows */
2107                 for (j = 0; j < 8; j++)
2108                 {
2109                         byte a = TERM_WHITE;
2110
2111                         cptr s = angband_term_name[j];
2112
2113                         /* Use color */
2114                         if (j == x) a = TERM_L_BLUE;
2115
2116                         /* Window name, staggered, centered */
2117                         Term_putstr(35 + j * 5 - strlen(s) / 2, 2 + j % 2, -1, a, s);
2118                 }
2119
2120                 /* Display the options */
2121                 for (i = 0; i < 16; i++)
2122                 {
2123                         byte a = TERM_WHITE;
2124
2125                         cptr str = window_flag_desc[i];
2126
2127                         /* Use color */
2128                         if (i == y) a = TERM_L_BLUE;
2129
2130                         /* Unused option */
2131 #ifdef JP
2132                         if (!str) str = "(Ì¤»ÈÍÑ)";
2133 #else
2134                         if (!str) str = "(Unused option)";
2135 #endif
2136
2137
2138                         /* Flag name */
2139                         Term_putstr(0, i + 5, -1, a, str);
2140
2141                         /* Display the windows */
2142                         for (j = 0; j < 8; j++)
2143                         {
2144                                 byte a = TERM_WHITE;
2145
2146                                 char c = '.';
2147
2148                                 /* Use color */
2149                                 if ((i == y) && (j == x)) a = TERM_L_BLUE;
2150
2151                                 /* Active flag */
2152                                 if (window_flag[j] & (1L << i)) c = 'X';
2153
2154                                 /* Flag value */
2155                                 Term_putch(35 + j * 5, i + 5, a, c);
2156                         }
2157                 }
2158
2159                 /* Place Cursor */
2160                 Term_gotoxy(35 + x * 5, y + 5);
2161
2162                 /* Get key */
2163                 ch = inkey();
2164
2165                 /* Analyze */
2166                 switch (ch)
2167                 {
2168                         case ESCAPE:
2169                         {
2170                                 go = FALSE;
2171                                 break;
2172                         }
2173
2174                         case 'T':
2175                         case 't':
2176                         {
2177                                 /* Clear windows */
2178                                 for (j = 0; j < 8; j++)
2179                                 {
2180                                         window_flag[j] &= ~(1L << y);
2181                                 }
2182
2183                                 /* Clear flags */
2184                                 for (i = 0; i < 16; i++)
2185                                 {
2186                                         window_flag[x] &= ~(1L << i);
2187                                 }
2188
2189                                 /* Fall through */
2190                         }
2191
2192                         case 'y':
2193                         case 'Y':
2194                         {
2195                                 /* Ignore screen */
2196                                 if (x == 0) break;
2197
2198                                 /* Set flag */
2199                                 window_flag[x] |= (1L << y);
2200                                 break;
2201                         }
2202
2203                         case 'n':
2204                         case 'N':
2205                         {
2206                                 /* Clear flag */
2207                                 window_flag[x] &= ~(1L << y);
2208                                 break;
2209                         }
2210
2211                         case '?':
2212                         {
2213 #ifdef JP
2214                                 (void)show_file(TRUE, "joption.txt#Window", NULL, 0, 0);
2215 #else
2216                                 (void)show_file(TRUE, "option.txt#Window", NULL, 0, 0);
2217 #endif
2218
2219
2220                                 Term_clear();
2221                                 break;
2222                         }
2223
2224                         default:
2225                         {
2226                                 d = get_keymap_dir(ch);
2227
2228                                 x = (x + ddx[d] + 8) % 8;
2229                                 y = (y + ddy[d] + 16) % 16;
2230
2231                                 if (!d) bell();
2232                         }
2233                 }
2234         }
2235
2236         /* Notice changes */
2237         for (j = 0; j < 8; j++)
2238         {
2239                 term *old = Term;
2240
2241                 /* Dead window */
2242                 if (!angband_term[j]) continue;
2243
2244                 /* Ignore non-changes */
2245                 if (window_flag[j] == old_flag[j]) continue;
2246
2247                 /* Activate */
2248                 Term_activate(angband_term[j]);
2249
2250                 /* Erase */
2251                 Term_clear();
2252
2253                 /* Refresh */
2254                 Term_fresh();
2255
2256                 /* Restore */
2257                 Term_activate(old);
2258         }
2259 }
2260
2261
2262
2263
2264 /*
2265  * Set or unset various options.
2266  *
2267  * The user must use the "Ctrl-R" command to "adapt" to changes
2268  * in any options which control "visual" aspects of the game.
2269  */
2270 void do_cmd_options(void)
2271 {
2272         int k;
2273
2274
2275         /* Save the screen */
2276         screen_save();
2277
2278         /* Interact */
2279         while (1)
2280         {
2281                 /* Clear screen */
2282                 Term_clear();
2283
2284                 /* Why are we here */
2285 #ifdef JP
2286                 prt("[ ¥ª¥×¥·¥ç¥ó¤ÎÀßÄê ]", 1, 0);
2287 #else
2288                 prt("Options", 1, 0);
2289 #endif
2290
2291
2292                 /* Give some choices */
2293 #ifdef JP
2294                 prt("(1)      ¥¡¼ÆþÎÏ        ¥ª¥×¥·¥ç¥ó", 2, 5);
2295                 prt("(2)     ¥Þ¥Ã¥×²èÌÌ       ¥ª¥×¥·¥ç¥ó", 3, 5);
2296                 prt("(3)    ¥Æ¥¥¹¥ÈÉ½¼¨      ¥ª¥×¥·¥ç¥ó", 4, 5);
2297                 prt("(4)    ¥²¡¼¥à¥×¥ì¥¤      ¥ª¥×¥·¥ç¥ó", 5, 5);
2298                 prt("(5)    ¹ÔÆ°Ãæ»ß´Ø·¸      ¥ª¥×¥·¥ç¥ó", 6, 5);
2299                 prt("(6)    ´Ê°×¼«Æ°ÇË²õ      ¥ª¥×¥·¥ç¥ó", 7, 5);
2300                 prt("(R)     ¥×¥ì¥¤µÏ¿       ¥ª¥×¥·¥ç¥ó", 8, 5);
2301
2302                 /* Special choices */
2303                 prt("(P)  ¼«Æ°½¦¤¤¥¨¥Ç¥£¥¿", 10, 5);
2304                 prt("(D)   ´ðËÜ¥¦¥§¥¤¥ÈÎÌ", 11, 5);
2305                 prt("(H) Äã¥Ò¥Ã¥È¥Ý¥¤¥ó¥È·Ù¹ð", 12, 5);
2306                 prt("(M)    ÄãËâÎÏ¿§ïçÃÍ", 13, 5);
2307                 prt("(A)     ¼«Æ°¥»¡¼¥Ö       ¥ª¥×¥·¥ç¥ó", 14, 5);
2308                 /* Window flags */
2309                 prt("(W)  ¥¦¥¤¥ó¥É¥¦¥Õ¥é¥°", 15, 5);
2310 #else
2311                 prt("(1) Input Options", 2, 5);
2312                 prt("(2) Map Screen Options", 3, 5);
2313                 prt("(3) Text Display Options", 4, 5);
2314                 prt("(4) Game-Play Options", 5, 5);
2315                 prt("(5) Disturbance Options", 6, 5);
2316                 prt("(6) Easy Auto-Destroyer Options", 7, 5);
2317                 prt("(R) Play-record Options", 8, 5);
2318                 /* Special choices */
2319                 prt("(P) Auto-picker/destroyer editor", 10, 5);
2320                 prt("(D) Base Delay Factor", 11, 5);
2321                 prt("(H) Hitpoint Warning", 12, 5);
2322                 prt("(M) Mana Color Threshold", 13, 5);
2323                 prt("(A) Autosave Options", 14, 5);
2324                 /* Window flags */
2325                 prt("(W) Window Flags", 15, 5);
2326 #endif
2327
2328                 if (!p_ptr->wizard || !allow_debug_opts)
2329                 {
2330                         /* Birth */
2331 #ifdef JP
2332                         prt("(B)        ½é´ü          ¥ª¥×¥·¥ç¥ó (»²¾È¤Î¤ß)", 16, 5);
2333 #else
2334                         prt("(B) Birth Options (Browse Only)", 16, 5);
2335 #endif
2336                 }
2337                 else
2338                 {
2339                         /* Birth */
2340 #ifdef JP
2341                         prt("(B)        ½é´ü          ¥ª¥×¥·¥ç¥ó", 16, 5);
2342 #else
2343                         prt("(B) Birth Options", 16, 5);
2344 #endif
2345                 }
2346
2347
2348                 if (p_ptr->noscore || allow_debug_opts)
2349                 {
2350                         /* Cheating */
2351 #ifdef JP
2352                         prt("(C)        º¾µ½          ¥ª¥×¥·¥ç¥ó", 17, 5);
2353 #else
2354                         prt("(C) Cheating Options", 17, 5);
2355 #endif
2356                 }
2357
2358
2359                 /* Prompt */
2360 #ifdef JP
2361                 prt("¥³¥Þ¥ó¥É:", 19, 0);
2362 #else
2363                 prt("Command: ", 19, 0);
2364 #endif
2365
2366
2367                 /* Get command */
2368                 k = inkey();
2369
2370                 /* Exit */
2371                 if (k == ESCAPE) break;
2372
2373                 /* Analyze */
2374                 switch (k)
2375                 {
2376                         case '1':
2377                         {
2378                                 /* Process the general options */
2379 #ifdef JP
2380                                 do_cmd_options_aux(OPT_PAGE_INPUT, "¥¡¼ÆþÎÏ¥ª¥×¥·¥ç¥ó");
2381 #else
2382                                 do_cmd_options_aux(OPT_PAGE_INPUT, "Input Options");
2383 #endif
2384
2385                                 break;
2386                         }
2387
2388                         case '2':
2389                         {
2390                                 /* Process the general options */
2391 #ifdef JP
2392                                 do_cmd_options_aux(OPT_PAGE_MAPSCREEN, "¥Þ¥Ã¥×²èÌÌ¥ª¥×¥·¥ç¥ó");
2393 #else
2394                                 do_cmd_options_aux(OPT_PAGE_MAPSCREEN, "Map Screen Options");
2395 #endif
2396
2397                                 break;
2398                         }
2399
2400                         case '3':
2401                         {
2402                                 /* Spawn */
2403 #ifdef JP
2404                                 do_cmd_options_aux(OPT_PAGE_TEXT, "¥Æ¥¥¹¥ÈÉ½¼¨¥ª¥×¥·¥ç¥ó");
2405 #else
2406                                 do_cmd_options_aux(OPT_PAGE_TEXT, "Text Display Options");
2407 #endif
2408
2409                                 break;
2410                         }
2411
2412                         case '4':
2413                         {
2414                                 /* Spawn */
2415 #ifdef JP
2416                                 do_cmd_options_aux(OPT_PAGE_GAMEPLAY, "¥²¡¼¥à¥×¥ì¥¤¡¦¥ª¥×¥·¥ç¥ó");
2417 #else
2418                                 do_cmd_options_aux(OPT_PAGE_GAMEPLAY, "Game-Play Options");
2419 #endif
2420
2421                                 break;
2422                         }
2423
2424                         case '5':
2425                         {
2426                                 /* Spawn */
2427 #ifdef JP
2428                                 do_cmd_options_aux(OPT_PAGE_DISTURBANCE, "¹ÔÆ°Ãæ»ß´Ø·¸¤Î¥ª¥×¥·¥ç¥ó");
2429 #else
2430                                 do_cmd_options_aux(OPT_PAGE_DISTURBANCE, "Disturbance Options");
2431 #endif
2432
2433                                 break;
2434                         }
2435
2436                         case '6':
2437                         {
2438                                 /* Spawn */
2439 #ifdef JP
2440                                 do_cmd_options_aux(OPT_PAGE_AUTODESTROY, "´Ê°×¼«Æ°ÇË²õ¥ª¥×¥·¥ç¥ó");
2441 #else
2442                                 do_cmd_options_aux(OPT_PAGE_AUTODESTROY, "Easy Auto-Destroyer Options");
2443 #endif
2444                                 break;
2445                         }
2446
2447                         /* Play-record Options */
2448                         case 'R':
2449                         case 'r':
2450                         {
2451                                 /* Spawn */
2452 #ifdef JP
2453                                 do_cmd_options_aux(OPT_PAGE_PLAYRECORD, "¥×¥ì¥¤µÏ¿¥ª¥×¥·¥ç¥ó");
2454 #else
2455                                 do_cmd_options_aux(OPT_PAGE_PLAYRECORD, "Play-record Options");
2456 #endif
2457                                 break;
2458                         }
2459
2460                         /* Birth Options */
2461                         case 'B':
2462                         case 'b':
2463                         {
2464                                 /* Spawn */
2465 #ifdef JP
2466                                 do_cmd_options_aux(OPT_PAGE_BIRTH, (!p_ptr->wizard || !allow_debug_opts) ? "½é´ü¥ª¥×¥·¥ç¥ó(»²¾È¤Î¤ß)" : "½é´ü¥ª¥×¥·¥ç¥ó((*)¤Ï¥¹¥³¥¢¤Ë±Æ¶Á)");
2467 #else
2468                                 do_cmd_options_aux(OPT_PAGE_BIRTH, (!p_ptr->wizard || !allow_debug_opts) ? "Birth Options(browse only)" : "Birth Options((*)s effect score)");
2469 #endif
2470
2471                                 break;
2472                         }
2473
2474                         /* Cheating Options */
2475                         case 'C':
2476                         {
2477                                 if (!p_ptr->noscore && !allow_debug_opts)
2478                                 {
2479                                         /* Cheat options are not permitted */
2480                                         bell();
2481                                         break;
2482                                 }
2483
2484                                 /* Spawn */
2485 #ifdef JP
2486                                 do_cmd_options_cheat("º¾µ½»Õ¤Ï·è¤·¤Æ¾¡Íø¤Ç¤¤Ê¤¤¡ª");
2487 #else
2488                                 do_cmd_options_cheat("Cheaters never win");
2489 #endif
2490
2491                                 break;
2492                         }
2493
2494                         case 'a':
2495                         case 'A':
2496                         {
2497 #ifdef JP
2498                                 do_cmd_options_autosave("¼«Æ°¥»¡¼¥Ö");
2499 #else
2500                                 do_cmd_options_autosave("Autosave");
2501 #endif
2502
2503                                 break;
2504                         }
2505
2506                         /* Window flags */
2507                         case 'W':
2508                         case 'w':
2509                         {
2510                                 /* Spawn */
2511                                 do_cmd_options_win();
2512                                 p_ptr->window |= (PW_INVEN | PW_EQUIP | PW_SPELL |
2513                                                   PW_PLAYER | PW_MESSAGE | PW_OVERHEAD |
2514                                                   PW_MONSTER | PW_OBJECT | PW_SNAPSHOT |
2515                                                   PW_BORG_1 | PW_BORG_2 | PW_DUNGEON);
2516                                 break;
2517                         }
2518
2519                         /* Auto-picker/destroyer editor */
2520                         case 'P':
2521                         case 'p':
2522                         {
2523                                 do_cmd_edit_autopick();
2524                                 break;
2525                         }
2526
2527                         /* Hack -- Delay Speed */
2528                         case 'D':
2529                         case 'd':
2530                         {
2531                                 /* Prompt */
2532 #ifdef JP
2533                                 prt("¥³¥Þ¥ó¥É: ´ðËÜ¥¦¥§¥¤¥ÈÎÌ", 19, 0);
2534 #else
2535                                 prt("Command: Base Delay Factor", 19, 0);
2536 #endif
2537
2538
2539                                 /* Get a new value */
2540                                 while (1)
2541                                 {
2542                                         int msec = delay_factor * delay_factor * delay_factor;
2543 #ifdef JP
2544                                         prt(format("¸½ºß¤Î¥¦¥§¥¤¥È: %d (%d¥ß¥êÉÃ)",
2545                                                    delay_factor, msec), 22, 0);
2546 #else
2547                                         prt(format("Current base delay factor: %d (%d msec)",
2548                                                    delay_factor, msec), 22, 0);
2549 #endif
2550
2551 #ifdef JP
2552                                         prt("¥¦¥§¥¤¥È (0-9) ESC¤Ç·èÄê: ", 20, 0);
2553 #else
2554                                         prt("Delay Factor (0-9 or ESC to accept): ", 20, 0);
2555 #endif
2556
2557                                         k = inkey();
2558                                         if (k == ESCAPE) break;
2559                                         else if (k == '?')
2560                                         {
2561 #ifdef JP
2562                                                 (void)show_file(TRUE, "joption.txt#BaseDelay", NULL, 0, 0);
2563 #else
2564                                                 (void)show_file(TRUE, "option.txt#BaseDelay", NULL, 0, 0);
2565 #endif
2566                                                 Term_clear();
2567                                         }
2568                                         else if (isdigit(k)) delay_factor = D2I(k);
2569                                         else bell();
2570                                 }
2571
2572                                 break;
2573                         }
2574
2575                         /* Hack -- hitpoint warning factor */
2576                         case 'H':
2577                         case 'h':
2578                         {
2579                                 /* Prompt */
2580 #ifdef JP
2581                                 prt("¥³¥Þ¥ó¥É: Äã¥Ò¥Ã¥È¥Ý¥¤¥ó¥È·Ù¹ð", 19, 0);
2582 #else
2583                                 prt("Command: Hitpoint Warning", 19, 0);
2584 #endif
2585
2586
2587                                 /* Get a new value */
2588                                 while (1)
2589                                 {
2590 #ifdef JP
2591                                         prt(format("¸½ºß¤ÎÄã¥Ò¥Ã¥È¥Ý¥¤¥ó¥È·Ù¹ð: %d0%%",
2592                                                    hitpoint_warn), 22, 0);
2593 #else
2594                                         prt(format("Current hitpoint warning: %d0%%",
2595                                                    hitpoint_warn), 22, 0);
2596 #endif
2597
2598 #ifdef JP
2599                                         prt("Äã¥Ò¥Ã¥È¥Ý¥¤¥ó¥È·Ù¹ð (0-9) ESC¤Ç·èÄê: ", 20, 0);
2600 #else
2601                                         prt("Hitpoint Warning (0-9 or ESC to accept): ", 20, 0);
2602 #endif
2603
2604                                         k = inkey();
2605                                         if (k == ESCAPE) break;
2606                                         else if (k == '?')
2607                                         {
2608 #ifdef JP
2609                                                 (void)show_file(TRUE, "joption.txt#Hitpoint", NULL, 0, 0);
2610 #else
2611                                                 (void)show_file(TRUE, "option.txt#Hitpoint", NULL, 0, 0);
2612 #endif
2613                                                 Term_clear();
2614                                         }
2615                                         else if (isdigit(k)) hitpoint_warn = D2I(k);
2616                                         else bell();
2617                                 }
2618
2619                                 break;
2620                         }
2621
2622                         /* Hack -- mana color factor */
2623                         case 'M':
2624                         case 'm':
2625                         {
2626                                 /* Prompt */
2627 #ifdef JP
2628                                 prt("¥³¥Þ¥ó¥É: ÄãËâÎÏ¿§ïçÃÍ", 19, 0);
2629 #else
2630                                 prt("Command: Mana Color Threshold", 19, 0);
2631 #endif
2632
2633
2634                                 /* Get a new value */
2635                                 while (1)
2636                                 {
2637 #ifdef JP
2638                                         prt(format("¸½ºß¤ÎÄãËâÎÏ¿§ïçÃÍ: %d0%%",
2639                                                    mana_warn), 22, 0);
2640 #else
2641                                         prt(format("Current mana color threshold: %d0%%",
2642                                                    mana_warn), 22, 0);
2643 #endif
2644
2645 #ifdef JP
2646                                         prt("ÄãËâÎÏïçÃÍ (0-9) ESC¤Ç·èÄê: ", 20, 0);
2647 #else
2648                                         prt("Mana color Threshold (0-9 or ESC to accept): ", 20, 0);
2649 #endif
2650
2651                                         k = inkey();
2652                                         if (k == ESCAPE) break;
2653                                         else if (k == '?')
2654                                         {
2655 #ifdef JP
2656                                                 (void)show_file(TRUE, "joption.txt#Manapoint", NULL, 0, 0);
2657 #else
2658                                                 (void)show_file(TRUE, "option.txt#Manapoint", NULL, 0, 0);
2659 #endif
2660                                                 Term_clear();
2661                                         }
2662                                         else if (isdigit(k)) mana_warn = D2I(k);
2663                                         else bell();
2664                                 }
2665
2666                                 break;
2667                         }
2668
2669                         case '?':
2670 #ifdef JP
2671                                 (void)show_file(TRUE, "joption.txt", NULL, 0, 0);
2672 #else
2673                                 (void)show_file(TRUE, "option.txt", NULL, 0, 0);
2674 #endif
2675                                 Term_clear();
2676                                 break;
2677
2678                         /* Unknown option */
2679                         default:
2680                         {
2681                                 /* Oops */
2682                                 bell();
2683                                 break;
2684                         }
2685                 }
2686
2687                 /* Flush messages */
2688                 msg_print(NULL);
2689         }
2690
2691
2692         /* Restore the screen */
2693         screen_load();
2694
2695         /* Hack - Redraw equippy chars */
2696         p_ptr->redraw |= (PR_EQUIPPY);
2697 }
2698
2699
2700
2701 /*
2702  * Ask for a "user pref line" and process it
2703  *
2704  * XXX XXX XXX Allow absolute file names?
2705  */
2706 void do_cmd_pref(void)
2707 {
2708         char buf[80];
2709
2710         /* Default */
2711         strcpy(buf, "");
2712
2713         /* Ask for a "user pref command" */
2714 #ifdef JP
2715         if (!get_string("ÀßÄêÊÑ¹¹¥³¥Þ¥ó¥É: ", buf, 80)) return;
2716 #else
2717         if (!get_string("Pref: ", buf, 80)) return;
2718 #endif
2719
2720
2721         /* Process that pref command */
2722         (void)process_pref_file_command(buf);
2723 }
2724
2725 void do_cmd_reload_autopick(void)
2726 {
2727 #ifdef JP
2728         if (!get_check("¼«Æ°½¦¤¤ÀßÄê¥Õ¥¡¥¤¥ë¤ò¥í¡¼¥É¤·¤Þ¤¹¤«? ")) return;
2729 #else
2730         if (!get_check("Reload auto-pick preference file? ")) return;
2731 #endif
2732
2733         /* Load the file with messages */
2734         autopick_load_pref(TRUE);
2735 }
2736
2737 #ifdef ALLOW_MACROS
2738
2739 /*
2740  * Hack -- append all current macros to the given file
2741  */
2742 static errr macro_dump(cptr fname)
2743 {
2744         static cptr mark = "Macro Dump";
2745
2746         int i;
2747
2748         char buf[1024];
2749
2750         /* Build the filename */
2751         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, fname);
2752
2753         /* File type is "TEXT" */
2754         FILE_TYPE(FILE_TYPE_TEXT);
2755
2756         /* Append to the file */
2757         if (!open_auto_dump(buf, mark)) return (-1);
2758
2759         /* Start dumping */
2760 #ifdef JP
2761         auto_dump_printf("\n# ¼«Æ°¥Þ¥¯¥í¥»¡¼¥Ö\n\n");
2762 #else
2763         auto_dump_printf("\n# Automatic macro dump\n\n");
2764 #endif
2765
2766         /* Dump them */
2767         for (i = 0; i < macro__num; i++)
2768         {
2769                 /* Extract the action */
2770                 ascii_to_text(buf, macro__act[i]);
2771
2772                 /* Dump the macro */
2773                 auto_dump_printf("A:%s\n", buf);
2774
2775                 /* Extract the action */
2776                 ascii_to_text(buf, macro__pat[i]);
2777
2778                 /* Dump normal macros */
2779                 auto_dump_printf("P:%s\n", buf);
2780
2781                 /* End the macro */
2782                 auto_dump_printf("\n");
2783         }
2784
2785         /* Close */
2786         close_auto_dump();
2787
2788         /* Success */
2789         return (0);
2790 }
2791
2792
2793 /*
2794  * Hack -- ask for a "trigger" (see below)
2795  *
2796  * Note the complex use of the "inkey()" function from "util.c".
2797  *
2798  * Note that both "flush()" calls are extremely important.
2799  */
2800 static void do_cmd_macro_aux(char *buf)
2801 {
2802         int i, n = 0;
2803
2804         char tmp[1024];
2805
2806
2807         /* Flush */
2808         flush();
2809
2810         /* Do not process macros */
2811         inkey_base = TRUE;
2812
2813         /* First key */
2814         i = inkey();
2815
2816         /* Read the pattern */
2817         while (i)
2818         {
2819                 /* Save the key */
2820                 buf[n++] = i;
2821
2822                 /* Do not process macros */
2823                 inkey_base = TRUE;
2824
2825                 /* Do not wait for keys */
2826                 inkey_scan = TRUE;
2827
2828                 /* Attempt to read a key */
2829                 i = inkey();
2830         }
2831
2832         /* Terminate */
2833         buf[n] = '\0';
2834
2835         /* Flush */
2836         flush();
2837
2838
2839         /* Convert the trigger */
2840         ascii_to_text(tmp, buf);
2841
2842         /* Hack -- display the trigger */
2843         Term_addstr(-1, TERM_WHITE, tmp);
2844 }
2845
2846 #endif
2847
2848
2849 /*
2850  * Hack -- ask for a keymap "trigger" (see below)
2851  *
2852  * Note that both "flush()" calls are extremely important.  This may
2853  * no longer be true, since "util.c" is much simpler now.  XXX XXX XXX
2854  */
2855 static void do_cmd_macro_aux_keymap(char *buf)
2856 {
2857         char tmp[1024];
2858
2859
2860         /* Flush */
2861         flush();
2862
2863
2864         /* Get a key */
2865         buf[0] = inkey();
2866         buf[1] = '\0';
2867
2868
2869         /* Convert to ascii */
2870         ascii_to_text(tmp, buf);
2871
2872         /* Hack -- display the trigger */
2873         Term_addstr(-1, TERM_WHITE, tmp);
2874
2875
2876         /* Flush */
2877         flush();
2878 }
2879
2880
2881 /*
2882  * Hack -- append all keymaps to the given file
2883  */
2884 static errr keymap_dump(cptr fname)
2885 {
2886         static cptr mark = "Keymap Dump";
2887         int i;
2888
2889         char key[1024];
2890         char buf[1024];
2891
2892         int mode;
2893
2894         /* Roguelike */
2895         if (rogue_like_commands)
2896         {
2897                 mode = KEYMAP_MODE_ROGUE;
2898         }
2899
2900         /* Original */
2901         else
2902         {
2903                 mode = KEYMAP_MODE_ORIG;
2904         }
2905
2906
2907         /* Build the filename */
2908         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, fname);
2909
2910         /* File type is "TEXT" */
2911         FILE_TYPE(FILE_TYPE_TEXT);
2912
2913         /* Append to the file */
2914         if (!open_auto_dump(buf, mark)) return -1;
2915
2916         /* Start dumping */
2917 #ifdef JP
2918         auto_dump_printf("\n# ¼«Æ°¥¡¼ÇÛÃÖ¥»¡¼¥Ö\n\n");
2919 #else
2920         auto_dump_printf("\n# Automatic keymap dump\n\n");
2921 #endif
2922
2923         /* Dump them */
2924         for (i = 0; i < 256; i++)
2925         {
2926                 cptr act;
2927
2928                 /* Loop up the keymap */
2929                 act = keymap_act[mode][i];
2930
2931                 /* Skip empty keymaps */
2932                 if (!act) continue;
2933
2934                 /* Encode the key */
2935                 buf[0] = i;
2936                 buf[1] = '\0';
2937                 ascii_to_text(key, buf);
2938
2939                 /* Encode the action */
2940                 ascii_to_text(buf, act);
2941
2942                 /* Dump the macro */
2943                 auto_dump_printf("A:%s\n", buf);
2944                 auto_dump_printf("C:%d:%s\n", mode, key);
2945         }
2946
2947         /* Close */
2948         close_auto_dump();
2949
2950         /* Success */
2951         return (0);
2952 }
2953
2954
2955
2956 /*
2957  * Interact with "macros"
2958  *
2959  * Note that the macro "action" must be defined before the trigger.
2960  *
2961  * Could use some helpful instructions on this page.  XXX XXX XXX
2962  */
2963 void do_cmd_macros(void)
2964 {
2965         int i;
2966
2967         char tmp[1024];
2968
2969         char buf[1024];
2970
2971         int mode;
2972
2973
2974         /* Roguelike */
2975         if (rogue_like_commands)
2976         {
2977                 mode = KEYMAP_MODE_ROGUE;
2978         }
2979
2980         /* Original */
2981         else
2982         {
2983                 mode = KEYMAP_MODE_ORIG;
2984         }
2985
2986         /* File type is "TEXT" */
2987         FILE_TYPE(FILE_TYPE_TEXT);
2988
2989
2990         /* Save screen */
2991         screen_save();
2992
2993
2994         /* Process requests until done */
2995         while (1)
2996         {
2997                 /* Clear screen */
2998                 Term_clear();
2999
3000                 /* Describe */
3001 #ifdef JP
3002                 prt("[ ¥Þ¥¯¥í¤ÎÀßÄê ]", 2, 0);
3003 #else
3004                 prt("Interact with Macros", 2, 0);
3005 #endif
3006
3007
3008
3009                 /* Describe that action */
3010 #ifdef JP
3011                 prt("(1) ¥æ¡¼¥¶¡¼ÀßÄê¥Õ¥¡¥¤¥ë¤Î¥í¡¼¥É", 4, 5);
3012 #else
3013                 prt("Current action (if any) shown below:", 20, 0);
3014 #endif
3015
3016
3017                 /* Analyze the current action */
3018                 ascii_to_text(buf, macro__buf);
3019
3020                 /* Display the current action */
3021                 prt(buf, 22, 0);
3022
3023
3024                 /* Selections */
3025 #ifdef JP
3026                 prt("(1) ¥æ¡¼¥¶¡¼ÀßÄê¥Õ¥¡¥¤¥ë¤Î¥í¡¼¥É", 4, 5);
3027 #else
3028                 prt("(1) Load a user pref file", 4, 5);
3029 #endif
3030
3031 #ifdef ALLOW_MACROS
3032 #ifdef JP
3033                 prt("(2) ¥Õ¥¡¥¤¥ë¤Ë¥Þ¥¯¥í¤òÄÉ²Ã", 5, 5);
3034                 prt("(3) ¥Þ¥¯¥í¤Î³ÎÇ§", 6, 5);
3035                 prt("(4) ¥Þ¥¯¥í¤ÎºîÀ®", 7, 5);
3036                 prt("(5) ¥Þ¥¯¥í¤Îºï½ü", 8, 5);
3037                 prt("(6) ¥Õ¥¡¥¤¥ë¤Ë¥¡¼ÇÛÃÖ¤òÄÉ²Ã", 9, 5);
3038                 prt("(7) ¥¡¼ÇÛÃÖ¤Î³ÎÇ§", 10, 5);
3039                 prt("(8) ¥¡¼ÇÛÃÖ¤ÎºîÀ®", 11, 5);
3040                 prt("(9) ¥¡¼ÇÛÃÖ¤Îºï½ü", 12, 5);
3041                 prt("(0) ¥Þ¥¯¥í¹ÔÆ°¤ÎÆþÎÏ", 13, 5);
3042 #else
3043                 prt("(2) Append macros to a file", 5, 5);
3044                 prt("(3) Query a macro", 6, 5);
3045                 prt("(4) Create a macro", 7, 5);
3046                 prt("(5) Remove a macro", 8, 5);
3047                 prt("(6) Append keymaps to a file", 9, 5);
3048                 prt("(7) Query a keymap", 10, 5);
3049                 prt("(8) Create a keymap", 11, 5);
3050                 prt("(9) Remove a keymap", 12, 5);
3051                 prt("(0) Enter a new action", 13, 5);
3052 #endif
3053
3054 #endif /* ALLOW_MACROS */
3055
3056                 /* Prompt */
3057 #ifdef JP
3058                 prt("¥³¥Þ¥ó¥É: ", 16, 0);
3059 #else
3060                 prt("Command: ", 16, 0);
3061 #endif
3062
3063
3064                 /* Get a command */
3065                 i = inkey();
3066
3067                 /* Leave */
3068                 if (i == ESCAPE) break;
3069
3070                 /* Load a 'macro' file */
3071                 else if (i == '1')
3072                 {
3073                         errr err;
3074
3075                         /* Prompt */
3076 #ifdef JP
3077                         prt("¥³¥Þ¥ó¥É: ¥æ¡¼¥¶¡¼ÀßÄê¥Õ¥¡¥¤¥ë¤Î¥í¡¼¥É", 16, 0);
3078 #else
3079                         prt("Command: Load a user pref file", 16, 0);
3080 #endif
3081
3082
3083                         /* Prompt */
3084 #ifdef JP
3085                         prt("¥Õ¥¡¥¤¥ë: ", 18, 0);
3086 #else
3087                         prt("File: ", 18, 0);
3088 #endif
3089
3090
3091                         /* Default filename */
3092                         sprintf(tmp, "%s.prf", player_name);
3093
3094                         /* Ask for a file */
3095                         if (!askfor(tmp, 80)) continue;
3096
3097                         /* Process the given filename */
3098                         err = process_pref_file(tmp);
3099                         if (-2 == err)
3100                         {
3101 #ifdef JP
3102                                 msg_format("É¸½à¤ÎÀßÄê¥Õ¥¡¥¤¥ë'%s'¤òÆÉ¤ß¹þ¤ß¤Þ¤·¤¿¡£", tmp);
3103 #else
3104                                 msg_format("Loaded default '%s'.", tmp);
3105 #endif
3106                         }
3107                         else if (err)
3108                         {
3109                                 /* Prompt */
3110 #ifdef JP
3111                                 msg_format("'%s'¤ÎÆÉ¤ß¹þ¤ß¤Ë¼ºÇÔ¤·¤Þ¤·¤¿¡ª", tmp);
3112 #else
3113                                 msg_format("Failed to load '%s'!");
3114 #endif
3115                         }
3116                         else
3117                         {
3118 #ifdef JP
3119                                 msg_format("'%s'¤òÆÉ¤ß¹þ¤ß¤Þ¤·¤¿¡£", tmp);
3120 #else
3121                                 msg_format("Loaded '%s'.", tmp);
3122 #endif
3123                         }
3124                 }
3125
3126 #ifdef ALLOW_MACROS
3127
3128                 /* Save macros */
3129                 else if (i == '2')
3130                 {
3131                         /* Prompt */
3132 #ifdef JP
3133                         prt("¥³¥Þ¥ó¥É: ¥Þ¥¯¥í¤ò¥Õ¥¡¥¤¥ë¤ËÄÉ²Ã¤¹¤ë", 16, 0);
3134 #else
3135                         prt("Command: Append macros to a file", 16, 0);
3136 #endif
3137
3138
3139                         /* Prompt */
3140 #ifdef JP
3141                         prt("¥Õ¥¡¥¤¥ë: ", 18, 0);
3142 #else
3143                         prt("File: ", 18, 0);
3144 #endif
3145
3146
3147                         /* Default filename */
3148                         sprintf(tmp, "%s.prf", player_name);
3149
3150                         /* Ask for a file */
3151                         if (!askfor(tmp, 80)) continue;
3152
3153                         /* Dump the macros */
3154                         (void)macro_dump(tmp);
3155
3156                         /* Prompt */
3157 #ifdef JP
3158                         msg_print("¥Þ¥¯¥í¤òÄÉ²Ã¤·¤Þ¤·¤¿¡£");
3159 #else
3160                         msg_print("Appended macros.");
3161 #endif
3162
3163                 }
3164
3165                 /* Query a macro */
3166                 else if (i == '3')
3167                 {
3168                         int k;
3169
3170                         /* Prompt */
3171 #ifdef JP
3172                         prt("¥³¥Þ¥ó¥É: ¥Þ¥¯¥í¤Î³ÎÇ§", 16, 0);
3173 #else
3174                         prt("Command: Query a macro", 16, 0);
3175 #endif
3176
3177
3178                         /* Prompt */
3179 #ifdef JP
3180                         prt("¥È¥ê¥¬¡¼¥¡¼: ", 18, 0);
3181 #else
3182                         prt("Trigger: ", 18, 0);
3183 #endif
3184
3185
3186                         /* Get a macro trigger */
3187                         do_cmd_macro_aux(buf);
3188
3189                         /* Acquire action */
3190                         k = macro_find_exact(buf);
3191
3192                         /* Nothing found */
3193                         if (k < 0)
3194                         {
3195                                 /* Prompt */
3196 #ifdef JP
3197                                 msg_print("¤½¤Î¥¡¼¤Ë¤Ï¥Þ¥¯¥í¤ÏÄêµÁ¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£");
3198 #else
3199                                 msg_print("Found no macro.");
3200 #endif
3201
3202                         }
3203
3204                         /* Found one */
3205                         else
3206                         {
3207                                 /* Obtain the action */
3208                                 strcpy(macro__buf, macro__act[k]);
3209
3210                                 /* Analyze the current action */
3211                                 ascii_to_text(buf, macro__buf);
3212
3213                                 /* Display the current action */
3214                                 prt(buf, 22, 0);
3215
3216                                 /* Prompt */
3217 #ifdef JP
3218                                 msg_print("¥Þ¥¯¥í¤ò³ÎÇ§¤·¤Þ¤·¤¿¡£");
3219 #else
3220                                 msg_print("Found a macro.");
3221 #endif
3222
3223                         }
3224                 }
3225
3226                 /* Create a macro */
3227                 else if (i == '4')
3228                 {
3229                         /* Prompt */
3230 #ifdef JP
3231                         prt("¥³¥Þ¥ó¥É: ¥Þ¥¯¥í¤ÎºîÀ®", 16, 0);
3232 #else
3233                         prt("Command: Create a macro", 16, 0);
3234 #endif
3235
3236
3237                         /* Prompt */
3238 #ifdef JP
3239                         prt("¥È¥ê¥¬¡¼¥¡¼: ", 18, 0);
3240 #else
3241                         prt("Trigger: ", 18, 0);
3242 #endif
3243
3244
3245                         /* Get a macro trigger */
3246                         do_cmd_macro_aux(buf);
3247
3248                         /* Clear */
3249                         clear_from(20);
3250
3251                         /* Help message */
3252 #ifdef JP
3253                         c_prt(TERM_L_RED, "¥«¡¼¥½¥ë¥¡¼¤Îº¸±¦¤Ç¥«¡¼¥½¥ë°ÌÃÖ¤ò°ÜÆ°¡£Backspace¤«Delete¤Ç°ìÊ¸»úºï½ü¡£", 22, 0);
3254 #else
3255                         c_prt(TERM_L_RED, "Press Left/Right arrow keys to move cursor. Backspace/Delete to delete a char.", 22, 0);
3256 #endif
3257
3258                         /* Prompt */
3259 #ifdef JP
3260                         prt("¥Þ¥¯¥í¹ÔÆ°: ", 20, 0);
3261 #else
3262                         prt("Action: ", 20, 0);
3263 #endif
3264
3265
3266                         /* Convert to text */
3267                         ascii_to_text(tmp, macro__buf);
3268
3269                         /* Get an encoded action */
3270                         if (askfor(tmp, 80))
3271                         {
3272                                 /* Convert to ascii */
3273                                 text_to_ascii(macro__buf, tmp);
3274
3275                                 /* Link the macro */
3276                                 macro_add(buf, macro__buf);
3277
3278                                 /* Prompt */
3279 #ifdef JP
3280                                 msg_print("¥Þ¥¯¥í¤òÄÉ²Ã¤·¤Þ¤·¤¿¡£");
3281 #else
3282                                 msg_print("Added a macro.");
3283 #endif
3284
3285                         }
3286                 }
3287
3288                 /* Remove a macro */
3289                 else if (i == '5')
3290                 {
3291                         /* Prompt */
3292 #ifdef JP
3293                         prt("¥³¥Þ¥ó¥É: ¥Þ¥¯¥í¤Îºï½ü", 16, 0);
3294 #else
3295                         prt("Command: Remove a macro", 16, 0);
3296 #endif
3297
3298
3299                         /* Prompt */
3300 #ifdef JP
3301                         prt("¥È¥ê¥¬¡¼¥¡¼: ", 18, 0);
3302 #else
3303                         prt("Trigger: ", 18, 0);
3304 #endif
3305
3306
3307                         /* Get a macro trigger */
3308                         do_cmd_macro_aux(buf);
3309
3310                         /* Link the macro */
3311                         macro_add(buf, buf);
3312
3313                         /* Prompt */
3314 #ifdef JP
3315                         msg_print("¥Þ¥¯¥í¤òºï½ü¤·¤Þ¤·¤¿¡£");
3316 #else
3317                         msg_print("Removed a macro.");
3318 #endif
3319
3320                 }
3321
3322                 /* Save keymaps */
3323                 else if (i == '6')
3324                 {
3325                         /* Prompt */
3326 #ifdef JP
3327                         prt("¥³¥Þ¥ó¥É: ¥¡¼ÇÛÃÖ¤ò¥Õ¥¡¥¤¥ë¤ËÄÉ²Ã¤¹¤ë", 16, 0);
3328 #else
3329                         prt("Command: Append keymaps to a file", 16, 0);
3330 #endif
3331
3332
3333                         /* Prompt */
3334 #ifdef JP
3335                         prt("¥Õ¥¡¥¤¥ë: ", 18, 0);
3336 #else
3337                         prt("File: ", 18, 0);
3338 #endif
3339
3340
3341                         /* Default filename */
3342                         sprintf(tmp, "%s.prf", player_name);
3343
3344                         /* Ask for a file */
3345                         if (!askfor(tmp, 80)) continue;
3346
3347                         /* Dump the macros */
3348                         (void)keymap_dump(tmp);
3349
3350                         /* Prompt */
3351 #ifdef JP
3352                         msg_print("¥¡¼ÇÛÃÖ¤òÄÉ²Ã¤·¤Þ¤·¤¿¡£");
3353 #else
3354                         msg_print("Appended keymaps.");
3355 #endif
3356
3357                 }
3358
3359                 /* Query a keymap */
3360                 else if (i == '7')
3361                 {
3362                         cptr act;
3363
3364                         /* Prompt */
3365 #ifdef JP
3366                         prt("¥³¥Þ¥ó¥É: ¥¡¼ÇÛÃÖ¤Î³ÎÇ§", 16, 0);
3367 #else
3368                         prt("Command: Query a keymap", 16, 0);
3369 #endif
3370
3371
3372                         /* Prompt */
3373 #ifdef JP
3374                         prt("²¡¤¹¥¡¼: ", 18, 0);
3375 #else
3376                         prt("Keypress: ", 18, 0);
3377 #endif
3378
3379
3380                         /* Get a keymap trigger */
3381                         do_cmd_macro_aux_keymap(buf);
3382
3383                         /* Look up the keymap */
3384                         act = keymap_act[mode][(byte)(buf[0])];
3385
3386                         /* Nothing found */
3387                         if (!act)
3388                         {
3389                                 /* Prompt */
3390 #ifdef JP
3391                                 msg_print("¥¡¼ÇÛÃÖ¤ÏÄêµÁ¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£");
3392 #else
3393                                 msg_print("Found no keymap.");
3394 #endif
3395
3396                         }
3397
3398                         /* Found one */
3399                         else
3400                         {
3401                                 /* Obtain the action */
3402                                 strcpy(macro__buf, act);
3403
3404                                 /* Analyze the current action */
3405                                 ascii_to_text(buf, macro__buf);
3406
3407                                 /* Display the current action */
3408                                 prt(buf, 22, 0);
3409
3410                                 /* Prompt */
3411 #ifdef JP
3412                                 msg_print("¥¡¼ÇÛÃÖ¤ò³ÎÇ§¤·¤Þ¤·¤¿¡£");
3413 #else
3414                                 msg_print("Found a keymap.");
3415 #endif
3416
3417                         }
3418                 }
3419
3420                 /* Create a keymap */
3421                 else if (i == '8')
3422                 {
3423                         /* Prompt */
3424 #ifdef JP
3425                         prt("¥³¥Þ¥ó¥É: ¥¡¼ÇÛÃÖ¤ÎºîÀ®", 16, 0);
3426 #else
3427                         prt("Command: Create a keymap", 16, 0);
3428 #endif
3429
3430
3431                         /* Prompt */
3432 #ifdef JP
3433                         prt("²¡¤¹¥¡¼: ", 18, 0);
3434 #else
3435                         prt("Keypress: ", 18, 0);
3436 #endif
3437
3438
3439                         /* Get a keymap trigger */
3440                         do_cmd_macro_aux_keymap(buf);
3441
3442                         /* Clear */
3443                         clear_from(20);
3444
3445                         /* Help message */
3446 #ifdef JP
3447                         c_prt(TERM_L_RED, "¥«¡¼¥½¥ë¥¡¼¤Îº¸±¦¤Ç¥«¡¼¥½¥ë°ÌÃÖ¤ò°ÜÆ°¡£Backspace¤«Delete¤Ç°ìÊ¸»úºï½ü¡£", 22, 0);
3448 #else
3449                         c_prt(TERM_L_RED, "Press Left/Right arrow keys to move cursor. Backspace/Delete to delete a char.", 22, 0);
3450 #endif
3451
3452                         /* Prompt */
3453 #ifdef JP
3454                         prt("¹ÔÆ°: ", 20, 0);
3455 #else
3456                         prt("Action: ", 20, 0);
3457 #endif
3458
3459
3460                         /* Convert to text */
3461                         ascii_to_text(tmp, macro__buf);
3462
3463                         /* Get an encoded action */
3464                         if (askfor(tmp, 80))
3465                         {
3466                                 /* Convert to ascii */
3467                                 text_to_ascii(macro__buf, tmp);
3468
3469                                 /* Free old keymap */
3470                                 string_free(keymap_act[mode][(byte)(buf[0])]);
3471
3472                                 /* Make new keymap */
3473                                 keymap_act[mode][(byte)(buf[0])] = string_make(macro__buf);
3474
3475                                 /* Prompt */
3476 #ifdef JP
3477                                 msg_print("¥¡¼ÇÛÃÖ¤òÄÉ²Ã¤·¤Þ¤·¤¿¡£");
3478 #else
3479                                 msg_print("Added a keymap.");
3480 #endif
3481
3482                         }
3483                 }
3484
3485                 /* Remove a keymap */
3486                 else if (i == '9')
3487                 {
3488                         /* Prompt */
3489 #ifdef JP
3490                         prt("¥³¥Þ¥ó¥É: ¥¡¼ÇÛÃÖ¤Îºï½ü", 16, 0);
3491 #else
3492                         prt("Command: Remove a keymap", 16, 0);
3493 #endif
3494
3495
3496                         /* Prompt */
3497 #ifdef JP
3498                         prt("²¡¤¹¥¡¼: ", 18, 0);
3499 #else
3500                         prt("Keypress: ", 18, 0);
3501 #endif
3502
3503
3504                         /* Get a keymap trigger */
3505                         do_cmd_macro_aux_keymap(buf);
3506
3507                         /* Free old keymap */
3508                         string_free(keymap_act[mode][(byte)(buf[0])]);
3509
3510                         /* Make new keymap */
3511                         keymap_act[mode][(byte)(buf[0])] = NULL;
3512
3513                         /* Prompt */
3514 #ifdef JP
3515                         msg_print("¥¡¼ÇÛÃÖ¤òºï½ü¤·¤Þ¤·¤¿¡£");
3516 #else
3517                         msg_print("Removed a keymap.");
3518 #endif
3519
3520                 }
3521
3522                 /* Enter a new action */
3523                 else if (i == '0')
3524                 {
3525                         /* Prompt */
3526 #ifdef JP
3527                         prt("¥³¥Þ¥ó¥É: ¥Þ¥¯¥í¹ÔÆ°¤ÎÆþÎÏ", 16, 0);
3528 #else
3529                         prt("Command: Enter a new action", 16, 0);
3530 #endif
3531
3532                         /* Clear */
3533                         clear_from(20);
3534
3535                         /* Help message */
3536 #ifdef JP
3537                         c_prt(TERM_L_RED, "¥«¡¼¥½¥ë¥¡¼¤Îº¸±¦¤Ç¥«¡¼¥½¥ë°ÌÃÖ¤ò°ÜÆ°¡£Backspace¤«Delete¤Ç°ìÊ¸»úºï½ü¡£", 22, 0);
3538 #else
3539                         c_prt(TERM_L_RED, "Press Left/Right arrow keys to move cursor. Backspace/Delete to delete a char.", 22, 0);
3540 #endif
3541
3542                         /* Prompt */
3543 #ifdef JP
3544                         prt("¥Þ¥¯¥í¹ÔÆ°: ", 20, 0);
3545 #else
3546                         prt("Action: ", 20, 0);
3547 #endif
3548
3549                         /* Hack -- limit the value */
3550                         tmp[80] = '\0';
3551
3552                         /* Get an encoded action */
3553                         if (!askfor(buf, 80)) continue;
3554
3555                         /* Extract an action */
3556                         text_to_ascii(macro__buf, buf);
3557                 }
3558
3559 #endif /* ALLOW_MACROS */
3560
3561                 /* Oops */
3562                 else
3563                 {
3564                         /* Oops */
3565                         bell();
3566                 }
3567
3568                 /* Flush messages */
3569                 msg_print(NULL);
3570         }
3571
3572         /* Load screen */
3573         screen_load();
3574 }
3575
3576
3577 static cptr lighting_level_str[F_LIT_MAX] =
3578 {
3579 #ifdef JP
3580         "É¸½à¿§",
3581         "ÌÀ¿§",
3582         "°Å¿§",
3583         "°Å°Å¿§",
3584 #else
3585         "standard",
3586         "brightly lit",
3587         "darkened",
3588         "darkly darkened",
3589 #endif
3590 };
3591
3592
3593 static void cmd_visuals_aux(int i, int *num, int max)
3594 {
3595         if (iscntrl(i))
3596         {
3597                 char str[10] = "";
3598                 int tmp;
3599
3600                 sprintf(str, "%d", *num);
3601
3602                 if (!get_string(format("Input new number(0-%d): ", max-1), str, 4))
3603                         return;
3604
3605                 tmp = strtol(str, NULL, 0);
3606                 if (tmp >= 0 && tmp < max)
3607                         *num = tmp;
3608                 return;
3609         }
3610         else if (isupper(i))
3611                 *num = (*num + max - 1) % max;
3612         else
3613                 *num = (*num + 1) % max;
3614
3615         return;
3616 }
3617
3618 /*
3619  * Interact with "visuals"
3620  */
3621 void do_cmd_visuals(void)
3622 {
3623         int i;
3624
3625         char tmp[160];
3626
3627         char buf[1024];
3628
3629         const char *empty_symbol = "<< ? >>";
3630
3631         if (use_bigtile) empty_symbol = "<< ?? >>";
3632
3633
3634         /* File type is "TEXT" */
3635         FILE_TYPE(FILE_TYPE_TEXT);
3636
3637
3638         /* Save the screen */
3639         screen_save();
3640
3641
3642         /* Interact until done */
3643         while (1)
3644         {
3645                 /* Clear screen */
3646                 Term_clear();
3647
3648                 /* Ask for a choice */
3649 #ifdef JP
3650                 prt("²èÌÌÉ½¼¨¤ÎÀßÄê", 2, 0);
3651 #else
3652                 prt("Interact with Visuals", 2, 0);
3653 #endif
3654
3655
3656                 /* Give some choices */
3657 #ifdef JP
3658                 prt("(1) ¥æ¡¼¥¶¡¼ÀßÄê¥Õ¥¡¥¤¥ë¤Î¥í¡¼¥É", 4, 5);
3659 #else
3660                 prt("(1) Load a user pref file", 4, 5);
3661 #endif
3662
3663 #ifdef ALLOW_VISUALS
3664 #ifdef JP
3665                 prt("(2) ¥â¥ó¥¹¥¿¡¼¤Î ¿§/Ê¸»ú ¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤¹", 5, 5);
3666                 prt("(3) ¥¢¥¤¥Æ¥à¤Î   ¿§/Ê¸»ú ¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤¹", 6, 5);
3667                 prt("(4) ÃÏ·Á¤Î       ¿§/Ê¸»ú ¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤¹", 7, 5);
3668                 prt("(5) (Ì¤»ÈÍÑ)", 8, 5);
3669                 prt("(6) ¥â¥ó¥¹¥¿¡¼¤Î ¿§/Ê¸»ú ¤òÊÑ¹¹¤¹¤ë", 9, 5);
3670                 prt("(7) ¥¢¥¤¥Æ¥à¤Î   ¿§/Ê¸»ú ¤òÊÑ¹¹¤¹¤ë", 10, 5);
3671                 prt("(8) ÃÏ·Á¤Î       ¿§/Ê¸»ú ¤òÊÑ¹¹¤¹¤ë", 11, 5);
3672                 prt("(9) (Ì¤»ÈÍÑ)", 12, 5);
3673 #else
3674                 prt("(2) Dump monster attr/chars", 5, 5);
3675                 prt("(3) Dump object attr/chars", 6, 5);
3676                 prt("(4) Dump feature attr/chars", 7, 5);
3677                 prt("(5) (unused)", 8, 5);
3678                 prt("(6) Change monster attr/chars", 9, 5);
3679                 prt("(7) Change object attr/chars", 10, 5);
3680                 prt("(8) Change feature attr/chars", 11, 5);
3681                 prt("(9) (unused)", 12, 5);
3682 #endif
3683
3684 #endif
3685 #ifdef JP
3686                 prt("(0) ²èÌÌÉ½¼¨ÊýË¡¤Î½é´ü²½", 13, 5);
3687 #else
3688                 prt("(0) Reset visuals", 13, 5);
3689 #endif
3690
3691
3692                 /* Prompt */
3693 #ifdef JP
3694                 prt("¥³¥Þ¥ó¥É:", 15, 0);
3695 #else
3696                 prt("Command: ", 15, 0);
3697 #endif
3698
3699
3700                 /* Prompt */
3701                 i = inkey();
3702
3703                 /* Done */
3704                 if (i == ESCAPE) break;
3705
3706                 /* Load a 'pref' file */
3707                 else if (i == '1')
3708                 {
3709                         /* Prompt */
3710 #ifdef JP
3711                         prt("¥³¥Þ¥ó¥É: ¥æ¡¼¥¶¡¼ÀßÄê¥Õ¥¡¥¤¥ë¤Î¥í¡¼¥É", 15, 0);
3712 #else
3713                         prt("Command: Load a user pref file", 15, 0);
3714 #endif
3715
3716
3717                         /* Prompt */
3718 #ifdef JP
3719                         prt("¥Õ¥¡¥¤¥ë: ", 17, 0);
3720 #else
3721                         prt("File: ", 17, 0);
3722 #endif
3723
3724
3725                         /* Default filename */
3726                         sprintf(tmp, "%s.prf", player_name);
3727
3728                         /* Query */
3729                         if (!askfor(tmp, 70)) continue;
3730
3731                         /* Process the given filename */
3732                         (void)process_pref_file(tmp);
3733                 }
3734
3735 #ifdef ALLOW_VISUALS
3736
3737                 /* Dump monster attr/chars */
3738                 else if (i == '2')
3739                 {
3740                         static cptr mark = "Monster attr/chars";
3741
3742                         /* Prompt */
3743 #ifdef JP
3744                         prt("¥³¥Þ¥ó¥É: ¥â¥ó¥¹¥¿¡¼¤Î[¿§/Ê¸»ú]¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤·¤Þ¤¹", 15, 0);
3745 #else
3746                         prt("Command: Dump monster attr/chars", 15, 0);
3747 #endif
3748
3749
3750                         /* Prompt */
3751 #ifdef JP
3752                         prt("¥Õ¥¡¥¤¥ë: ", 17, 0);
3753 #else
3754                         prt("File: ", 17, 0);
3755 #endif
3756
3757
3758                         /* Default filename */
3759                         sprintf(tmp, "%s.prf", player_name);
3760
3761                         /* Get a filename */
3762                         if (!askfor(tmp, 70)) continue;
3763
3764                         /* Build the filename */
3765                         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, tmp);
3766
3767                         /* Append to the file */
3768                         if (!open_auto_dump(buf, mark)) continue;
3769
3770                         /* Start dumping */
3771 #ifdef JP
3772                         auto_dump_printf("\n# ¥â¥ó¥¹¥¿¡¼¤Î[¿§/Ê¸»ú]¤ÎÀßÄê\n\n");
3773 #else
3774                         auto_dump_printf("\n# Monster attr/char definitions\n\n");
3775 #endif
3776
3777                         /* Dump monsters */
3778                         for (i = 1; i < max_r_idx; i++)
3779                         {
3780                                 monster_race *r_ptr = &r_info[i];
3781
3782                                 /* Skip non-entries */
3783                                 if (!r_ptr->name) continue;
3784
3785                                 /* Dump a comment */
3786                                 auto_dump_printf("# %s\n", (r_name + r_ptr->name));
3787
3788                                 /* Dump the monster attr/char info */
3789                                 auto_dump_printf("R:%d:0x%02X/0x%02X\n\n", i,
3790                                         (byte)(r_ptr->x_attr), (byte)(r_ptr->x_char));
3791                         }
3792
3793                         /* Close */
3794                         close_auto_dump();
3795
3796                         /* Message */
3797 #ifdef JP
3798                         msg_print("¥â¥ó¥¹¥¿¡¼¤Î[¿§/Ê¸»ú]¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤·¤Þ¤·¤¿¡£");
3799 #else
3800                         msg_print("Dumped monster attr/chars.");
3801 #endif
3802
3803                 }
3804
3805                 /* Dump object attr/chars */
3806                 else if (i == '3')
3807                 {
3808                         static cptr mark = "Object attr/chars";
3809
3810                         /* Prompt */
3811 #ifdef JP
3812                         prt("¥³¥Þ¥ó¥É: ¥¢¥¤¥Æ¥à¤Î[¿§/Ê¸»ú]¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤·¤Þ¤¹", 15, 0);
3813 #else
3814                         prt("Command: Dump object attr/chars", 15, 0);
3815 #endif
3816
3817
3818                         /* Prompt */
3819 #ifdef JP
3820                         prt("¥Õ¥¡¥¤¥ë: ", 17, 0);
3821 #else
3822                         prt("File: ", 17, 0);
3823 #endif
3824
3825
3826                         /* Default filename */
3827                         sprintf(tmp, "%s.prf", player_name);
3828
3829                         /* Get a filename */
3830                         if (!askfor(tmp, 70)) continue;
3831
3832                         /* Build the filename */
3833                         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, tmp);
3834
3835                         /* Append to the file */
3836                         if (!open_auto_dump(buf, mark)) continue;
3837
3838                         /* Start dumping */
3839 #ifdef JP
3840                         auto_dump_printf("\n# ¥¢¥¤¥Æ¥à¤Î[¿§/Ê¸»ú]¤ÎÀßÄê\n\n");
3841 #else
3842                         auto_dump_printf("\n# Object attr/char definitions\n\n");
3843 #endif
3844
3845                         /* Dump objects */
3846                         for (i = 1; i < max_k_idx; i++)
3847                         {
3848                                 char o_name[80];
3849                                 object_kind *k_ptr = &k_info[i];
3850
3851                                 /* Skip non-entries */
3852                                 if (!k_ptr->name) continue;
3853
3854                                 /* Skip entries with flavor */
3855                                 if (k_ptr->flavor) continue;
3856
3857                                 /* Tidy name */
3858                                 strip_name(o_name, i);
3859
3860                                 /* Dump a comment */
3861                                 auto_dump_printf("# %s\n", o_name);
3862
3863                                 /* Dump the object attr/char info */
3864                                 auto_dump_printf("K:%d:0x%02X/0x%02X\n\n", i,
3865                                         (byte)(k_ptr->x_attr), (byte)(k_ptr->x_char));
3866                         }
3867
3868                         /* Close */
3869                         close_auto_dump();
3870
3871                         /* Message */
3872 #ifdef JP
3873                         msg_print("¥¢¥¤¥Æ¥à¤Î[¿§/Ê¸»ú]¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤·¤Þ¤·¤¿¡£");
3874 #else
3875                         msg_print("Dumped object attr/chars.");
3876 #endif
3877
3878                 }
3879
3880                 /* Dump feature attr/chars */
3881                 else if (i == '4')
3882                 {
3883                         static cptr mark = "Feature attr/chars";
3884
3885                         /* Prompt */
3886 #ifdef JP
3887                         prt("¥³¥Þ¥ó¥É: ÃÏ·Á¤Î[¿§/Ê¸»ú]¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤·¤Þ¤¹", 15, 0);
3888 #else
3889                         prt("Command: Dump feature attr/chars", 15, 0);
3890 #endif
3891
3892
3893                         /* Prompt */
3894 #ifdef JP
3895                         prt("¥Õ¥¡¥¤¥ë: ", 17, 0);
3896 #else
3897                         prt("File: ", 17, 0);
3898 #endif
3899
3900
3901                         /* Default filename */
3902                         sprintf(tmp, "%s.prf", player_name);
3903
3904                         /* Get a filename */
3905                         if (!askfor(tmp, 70)) continue;
3906
3907                         /* Build the filename */
3908                         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, tmp);
3909
3910                         /* Append to the file */
3911                         if (!open_auto_dump(buf, mark)) continue;
3912
3913                         /* Start dumping */
3914 #ifdef JP
3915                         auto_dump_printf("\n# ÃÏ·Á¤Î[¿§/Ê¸»ú]¤ÎÀßÄê\n\n");
3916 #else
3917                         auto_dump_printf("\n# Feature attr/char definitions\n\n");
3918 #endif
3919
3920                         /* Dump features */
3921                         for (i = 1; i < max_f_idx; i++)
3922                         {
3923                                 feature_type *f_ptr = &f_info[i];
3924
3925                                 /* Skip non-entries */
3926                                 if (!f_ptr->name) continue;
3927
3928                                 /* Skip mimiccing features */
3929                                 if (f_ptr->mimic != i) continue;
3930
3931                                 /* Dump a comment */
3932                                 auto_dump_printf("# %s\n", (f_name + f_ptr->name));
3933
3934                                 /* Dump the feature attr/char info */
3935                                 auto_dump_printf("F:%d:0x%02X/0x%02X:0x%02X/0x%02X:0x%02X/0x%02X:0x%02X/0x%02X\n\n", i,
3936                                         (byte)(f_ptr->x_attr[F_LIT_STANDARD]), (byte)(f_ptr->x_char[F_LIT_STANDARD]),
3937                                         (byte)(f_ptr->x_attr[F_LIT_LITE]), (byte)(f_ptr->x_char[F_LIT_LITE]),
3938                                         (byte)(f_ptr->x_attr[F_LIT_DARK]), (byte)(f_ptr->x_char[F_LIT_DARK]),
3939                                         (byte)(f_ptr->x_attr[F_LIT_DARKDARK]), (byte)(f_ptr->x_char[F_LIT_DARKDARK]));
3940                         }
3941
3942                         /* Close */
3943                         close_auto_dump();
3944
3945                         /* Message */
3946 #ifdef JP
3947                         msg_print("ÃÏ·Á¤Î[¿§/Ê¸»ú]¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤·¤Þ¤·¤¿¡£");
3948 #else
3949                         msg_print("Dumped feature attr/chars.");
3950 #endif
3951
3952                 }
3953
3954                 /* Modify monster attr/chars */
3955                 else if (i == '6')
3956                 {
3957                         static int r = 0;
3958
3959                         /* Prompt */
3960 #ifdef JP
3961                         prt("¥³¥Þ¥ó¥É: ¥â¥ó¥¹¥¿¡¼¤Î[¿§/Ê¸»ú]¤òÊÑ¹¹¤·¤Þ¤¹", 15, 0);
3962 #else
3963                         prt("Command: Change monster attr/chars", 15, 0);
3964 #endif
3965
3966
3967                         /* Hack -- query until done */
3968                         while (1)
3969                         {
3970                                 monster_race *r_ptr = &r_info[r];
3971                                 char c;
3972                                 int t;
3973
3974                                 byte da = (r_ptr->d_attr);
3975                                 byte dc = (r_ptr->d_char);
3976                                 byte ca = (r_ptr->x_attr);
3977                                 byte cc = (r_ptr->x_char);
3978
3979                                 /* Label the object */
3980 #ifdef JP
3981                                 Term_putstr(5, 17, -1, TERM_WHITE,
3982                                             format("¥â¥ó¥¹¥¿¡¼ = %d, Ì¾Á° = %-40.40s",
3983                                                    r, (r_name + r_ptr->name)));
3984 #else
3985                                 Term_putstr(5, 17, -1, TERM_WHITE,
3986                                             format("Monster = %d, Name = %-40.40s",
3987                                                    r, (r_name + r_ptr->name)));
3988 #endif
3989
3990
3991                                 /* Label the Default values */
3992 #ifdef JP
3993                                 Term_putstr(10, 19, -1, TERM_WHITE,
3994                                             format("½é´üÃÍ  ¿§ / Ê¸»ú = %3u / %3u", da, dc));
3995 #else
3996                                 Term_putstr(10, 19, -1, TERM_WHITE,
3997                                             format("Default attr/char = %3u / %3u", da, dc));
3998 #endif
3999
4000                                 Term_putstr(40, 19, -1, TERM_WHITE, empty_symbol);
4001                                 Term_queue_bigchar(43, 19, da, dc, 0, 0);
4002
4003                                 /* Label the Current values */
4004 #ifdef JP
4005                                 Term_putstr(10, 20, -1, TERM_WHITE,
4006                                             format("¸½ºßÃÍ  ¿§ / Ê¸»ú = %3u / %3u", ca, cc));
4007 #else
4008                                 Term_putstr(10, 20, -1, TERM_WHITE,
4009                                             format("Current attr/char = %3u / %3u", ca, cc));
4010 #endif
4011
4012                                 Term_putstr(40, 20, -1, TERM_WHITE, empty_symbol);
4013                                 Term_queue_bigchar(43, 20, ca, cc, 0, 0);
4014
4015                                 /* Prompt */
4016 #ifdef JP
4017                                 Term_putstr(0, 22, -1, TERM_WHITE,
4018                                             "¥³¥Þ¥ó¥É (n/N/^N/a/A/^A/c/C/^C): ");
4019 #else
4020                                 Term_putstr(0, 22, -1, TERM_WHITE,
4021                                             "Command (n/N/^N/a/A/^A/c/C/^C): ");
4022 #endif
4023
4024                                 /* Get a command */
4025                                 i = inkey();
4026
4027                                 /* All done */
4028                                 if (i == ESCAPE) break;
4029
4030                                 if (iscntrl(i)) c = 'a' + i - KTRL('A');
4031                                 else if (isupper(i)) c = 'a' + i - 'A';
4032                                 else c = i;
4033
4034                                 switch (c)
4035                                 {
4036                                 case 'n':
4037                                         cmd_visuals_aux(i, &r, max_r_idx);
4038                                         break;
4039                                 case 'a':
4040                                         t = (int)r_ptr->x_attr;
4041                                         cmd_visuals_aux(i, &t, 256);
4042                                         r_ptr->x_attr = (byte)t;
4043                                         break;
4044                                 case 'c':
4045                                         t = (int)r_ptr->x_char;
4046                                         cmd_visuals_aux(i, &t, 256);
4047                                         r_ptr->x_char = (byte)t;
4048                                         break;
4049                                 }
4050                         }
4051                 }
4052
4053                 /* Modify object attr/chars */
4054                 else if (i == '7')
4055                 {
4056                         static int k = 0;
4057
4058                         /* Prompt */
4059 #ifdef JP
4060                         prt("¥³¥Þ¥ó¥É: ¥¢¥¤¥Æ¥à¤Î[¿§/Ê¸»ú]¤òÊÑ¹¹¤·¤Þ¤¹", 15, 0);
4061 #else
4062                         prt("Command: Change object attr/chars", 15, 0);
4063 #endif
4064
4065
4066                         /* Hack -- query until done */
4067                         while (1)
4068                         {
4069                                 object_kind *k_ptr = &k_info[k];
4070                                 char c;
4071                                 int t;
4072
4073                                 byte da = (byte)k_ptr->d_attr;
4074                                 byte dc = (byte)k_ptr->d_char;
4075                                 byte ca = (byte)k_ptr->x_attr;
4076                                 byte cc = (byte)k_ptr->x_char;
4077
4078                                 /* Label the object */
4079 #ifdef JP
4080                                 Term_putstr(5, 17, -1, TERM_WHITE,
4081                                             format("¥¢¥¤¥Æ¥à = %d, Ì¾Á° = %-40.40s",
4082                                                    k, (k_name + k_ptr->name)));
4083 #else
4084                                 Term_putstr(5, 17, -1, TERM_WHITE,
4085                                             format("Object = %d, Name = %-40.40s",
4086                                                    k, (k_name + k_ptr->name)));
4087 #endif
4088
4089
4090                                 /* Label the Default values */
4091 #ifdef JP
4092                                 Term_putstr(10, 19, -1, TERM_WHITE,
4093                                             format("½é´üÃÍ  ¿§ / Ê¸»ú = %3d / %3d", da, dc));
4094 #else
4095                                 Term_putstr(10, 19, -1, TERM_WHITE,
4096                                             format("Default attr/char = %3d / %3d", da, dc));
4097 #endif
4098
4099                                 Term_putstr(40, 19, -1, TERM_WHITE, empty_symbol);
4100                                 Term_queue_bigchar(43, 19, da, dc, 0, 0);
4101
4102                                 /* Label the Current values */
4103 #ifdef JP
4104                                 Term_putstr(10, 20, -1, TERM_WHITE,
4105                                             format("¸½ºßÃÍ  ¿§ / Ê¸»ú = %3d / %3d", ca, cc));
4106 #else
4107                                 Term_putstr(10, 20, -1, TERM_WHITE,
4108                                             format("Current attr/char = %3d / %3d", ca, cc));
4109 #endif
4110
4111                                 Term_putstr(40, 20, -1, TERM_WHITE, empty_symbol);
4112                                 Term_queue_bigchar(43, 20, ca, cc, 0, 0);
4113
4114                                 /* Prompt */
4115 #ifdef JP
4116                                 Term_putstr(0, 22, -1, TERM_WHITE,
4117                                             "¥³¥Þ¥ó¥É (n/N/^N/a/A/^A/c/C/^C): ");
4118 #else
4119                                 Term_putstr(0, 22, -1, TERM_WHITE,
4120                                             "Command (n/N/^N/a/A/^A/c/C/^C): ");
4121 #endif
4122
4123                                 /* Get a command */
4124                                 i = inkey();
4125
4126                                 /* All done */
4127                                 if (i == ESCAPE) break;
4128
4129                                 if (iscntrl(i)) c = 'a' + i - KTRL('A');
4130                                 else if (isupper(i)) c = 'a' + i - 'A';
4131                                 else c = i;
4132
4133                                 switch (c)
4134                                 {
4135                                 case 'n':
4136                                         cmd_visuals_aux(i, &k, max_k_idx);
4137                                         break;
4138                                 case 'a':
4139                                         t = (int)k_info[k].x_attr;
4140                                         cmd_visuals_aux(i, &t, 256);
4141                                         k_info[k].x_attr = (byte)t;
4142                                         break;
4143                                 case 'c':
4144                                         t = (int)k_info[k].x_char;
4145                                         cmd_visuals_aux(i, &t, 256);
4146                                         k_info[k].x_char = (byte)t;
4147                                         break;
4148                                 }
4149                         }
4150                 }
4151
4152                 /* Modify feature attr/chars */
4153                 else if (i == '8')
4154                 {
4155                         static int f = 0;
4156                         static int lighting_level = F_LIT_STANDARD;
4157
4158                         /* Prompt */
4159 #ifdef JP
4160                         prt("¥³¥Þ¥ó¥É: ÃÏ·Á¤Î[¿§/Ê¸»ú]¤òÊÑ¹¹¤·¤Þ¤¹", 15, 0);
4161 #else
4162                         prt("Command: Change feature attr/chars", 15, 0);
4163 #endif
4164
4165
4166                         /* Hack -- query until done */
4167                         while (1)
4168                         {
4169                                 feature_type *f_ptr = &f_info[f];
4170                                 char c;
4171                                 int t;
4172
4173                                 byte da = (byte)f_ptr->d_attr[lighting_level];
4174                                 byte dc = (byte)f_ptr->d_char[lighting_level];
4175                                 byte ca = (byte)f_ptr->x_attr[lighting_level];
4176                                 byte cc = (byte)f_ptr->x_char[lighting_level];
4177
4178                                 /* Label the object */
4179                                 prt("", 17, 5);
4180 #ifdef JP
4181                                 Term_putstr(5, 17, -1, TERM_WHITE,
4182                                             format("ÃÏ·Á = %d, Ì¾Á° = %s, ÌÀÅÙ = %s",
4183                                                    f, (f_name + f_ptr->name), lighting_level_str[lighting_level]));
4184 #else
4185                                 Term_putstr(5, 17, -1, TERM_WHITE,
4186                                             format("Terrain = %d, Name = %s, Lighting = %s",
4187                                                    f, (f_name + f_ptr->name), lighting_level_str[lighting_level]));
4188 #endif
4189
4190
4191                                 /* Label the Default values */
4192 #ifdef JP
4193                                 Term_putstr(10, 19, -1, TERM_WHITE,
4194                                             format("½é´üÃÍ  ¿§ / Ê¸»ú = %3d / %3d", da, dc));
4195 #else
4196                                 Term_putstr(10, 19, -1, TERM_WHITE,
4197                                             format("Default attr/char = %3d / %3d", da, dc));
4198 #endif
4199
4200                                 Term_putstr(40, 19, -1, TERM_WHITE, empty_symbol);
4201
4202                                 Term_queue_bigchar(43, 19, da, dc, 0, 0);
4203
4204
4205                                 /* Label the Current values */
4206 #ifdef JP
4207                                 Term_putstr(10, 20, -1, TERM_WHITE,
4208                                             format("¸½ºßÃÍ  ¿§ / Ê¸»ú = %3d / %3d", ca, cc));
4209 #else
4210                                 Term_putstr(10, 20, -1, TERM_WHITE,
4211                                             format("Current attr/char = %3d / %3d", ca, cc));
4212 #endif
4213
4214                                 Term_putstr(40, 20, -1, TERM_WHITE, empty_symbol);
4215                                 Term_queue_bigchar(43, 20, ca, cc, 0, 0);
4216
4217                                 /* Prompt */
4218 #ifdef JP
4219                                 Term_putstr(0, 22, -1, TERM_WHITE,
4220                                             "¥³¥Þ¥ó¥É (n/N/^N/a/A/^A/c/C/^C/l/L/^L): ");
4221 #else
4222                                 Term_putstr(0, 22, -1, TERM_WHITE,
4223                                             "Command (n/N/^N/a/A/^A/c/C/^C/l/L/^L): ");
4224 #endif
4225
4226                                 /* Get a command */
4227                                 i = inkey();
4228
4229                                 /* All done */
4230                                 if (i == ESCAPE) break;
4231
4232                                 if (iscntrl(i)) c = 'a' + i - KTRL('A');
4233                                 else if (isupper(i)) c = 'a' + i - 'A';
4234                                 else c = i;
4235
4236                                 switch (c)
4237                                 {
4238                                 case 'n':
4239                                         cmd_visuals_aux(i, &f, max_f_idx);
4240                                         break;
4241                                 case 'a':
4242                                         t = (int)f_info[f].x_attr[lighting_level];
4243                                         cmd_visuals_aux(i, &t, 256);
4244                                         f_info[f].x_attr[lighting_level] = (byte)t;
4245                                         break;
4246                                 case 'c':
4247                                         t = (int)f_info[f].x_char[lighting_level];
4248                                         cmd_visuals_aux(i, &t, 256);
4249                                         f_info[f].x_char[lighting_level] = (byte)t;
4250                                         break;
4251                                 case 'l':
4252                                         cmd_visuals_aux(i, &lighting_level, F_LIT_MAX);
4253                                         break;
4254                                 }
4255                         }
4256                 }
4257
4258 #endif
4259
4260                 /* Reset visuals */
4261                 else if (i == '0')
4262                 {
4263                         /* Reset */
4264                         reset_visuals();
4265
4266                         /* Message */
4267 #ifdef JP
4268                         msg_print("²èÌÌ¾å¤Î[¿§/Ê¸»ú]¤ò½é´üÃÍ¤Ë¥ê¥»¥Ã¥È¤·¤Þ¤·¤¿¡£");
4269 #else
4270                         msg_print("Visual attr/char tables reset.");
4271 #endif
4272
4273                 }
4274
4275                 /* Unknown option */
4276                 else
4277                 {
4278                         bell();
4279                 }
4280
4281                 /* Flush messages */
4282                 msg_print(NULL);
4283         }
4284
4285
4286         /* Restore the screen */
4287         screen_load();
4288 }
4289
4290
4291 /*
4292  * Interact with "colors"
4293  */
4294 void do_cmd_colors(void)
4295 {
4296         int i;
4297
4298         char tmp[160];
4299
4300         char buf[1024];
4301
4302
4303         /* File type is "TEXT" */
4304         FILE_TYPE(FILE_TYPE_TEXT);
4305
4306
4307         /* Save the screen */
4308         screen_save();
4309
4310
4311         /* Interact until done */
4312         while (1)
4313         {
4314                 /* Clear screen */
4315                 Term_clear();
4316
4317                 /* Ask for a choice */
4318 #ifdef JP
4319                 prt("[ ¥«¥é¡¼¤ÎÀßÄê ]", 2, 0);
4320 #else
4321                 prt("Interact with Colors", 2, 0);
4322 #endif
4323
4324
4325                 /* Give some choices */
4326 #ifdef JP
4327                 prt("(1) ¥æ¡¼¥¶¡¼ÀßÄê¥Õ¥¡¥¤¥ë¤Î¥í¡¼¥É", 4, 5);
4328 #else
4329                 prt("(1) Load a user pref file", 4, 5);
4330 #endif
4331
4332 #ifdef ALLOW_COLORS
4333 #ifdef JP
4334                 prt("(2) ¥«¥é¡¼¤ÎÀßÄê¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤¹", 5, 5);
4335                 prt("(3) ¥«¥é¡¼¤ÎÀßÄê¤òÊÑ¹¹¤¹¤ë", 6, 5);
4336 #else
4337                 prt("(2) Dump colors", 5, 5);
4338                 prt("(3) Modify colors", 6, 5);
4339 #endif
4340
4341 #endif
4342
4343                 /* Prompt */
4344 #ifdef JP
4345                 prt("¥³¥Þ¥ó¥É: ", 8, 0);
4346 #else
4347                 prt("Command: ", 8, 0);
4348 #endif
4349
4350
4351                 /* Prompt */
4352                 i = inkey();
4353
4354                 /* Done */
4355                 if (i == ESCAPE) break;
4356
4357                 /* Load a 'pref' file */
4358                 if (i == '1')
4359                 {
4360                         /* Prompt */
4361 #ifdef JP
4362                         prt("¥³¥Þ¥ó¥É: ¥æ¡¼¥¶¡¼ÀßÄê¥Õ¥¡¥¤¥ë¤ò¥í¡¼¥É¤·¤Þ¤¹", 8, 0);
4363 #else
4364                         prt("Command: Load a user pref file", 8, 0);
4365 #endif
4366
4367
4368                         /* Prompt */
4369 #ifdef JP
4370                         prt("¥Õ¥¡¥¤¥ë: ", 10, 0);
4371 #else
4372                         prt("File: ", 10, 0);
4373 #endif
4374
4375
4376                         /* Default file */
4377                         sprintf(tmp, "%s.prf", player_name);
4378
4379                         /* Query */
4380                         if (!askfor(tmp, 70)) continue;
4381
4382                         /* Process the given filename */
4383                         (void)process_pref_file(tmp);
4384
4385                         /* Mega-Hack -- react to changes */
4386                         Term_xtra(TERM_XTRA_REACT, 0);
4387
4388                         /* Mega-Hack -- redraw */
4389                         Term_redraw();
4390                 }
4391
4392 #ifdef ALLOW_COLORS
4393
4394                 /* Dump colors */
4395                 else if (i == '2')
4396                 {
4397                         static cptr mark = "Colors";
4398
4399                         /* Prompt */
4400 #ifdef JP
4401                         prt("¥³¥Þ¥ó¥É: ¥«¥é¡¼¤ÎÀßÄê¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤·¤Þ¤¹", 8, 0);
4402 #else
4403                         prt("Command: Dump colors", 8, 0);
4404 #endif
4405
4406
4407                         /* Prompt */
4408 #ifdef JP
4409                         prt("¥Õ¥¡¥¤¥ë: ", 10, 0);
4410 #else
4411                         prt("File: ", 10, 0);
4412 #endif
4413
4414
4415                         /* Default filename */
4416                         sprintf(tmp, "%s.prf", player_name);
4417
4418                         /* Get a filename */
4419                         if (!askfor(tmp, 70)) continue;
4420
4421                         /* Build the filename */
4422                         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, tmp);
4423
4424                         /* Append to the file */
4425                         if (!open_auto_dump(buf, mark)) continue;
4426
4427                         /* Start dumping */
4428 #ifdef JP
4429                         auto_dump_printf("\n# ¥«¥é¡¼¤ÎÀßÄê\n\n");
4430 #else
4431                         auto_dump_printf("\n# Color redefinitions\n\n");
4432 #endif
4433
4434                         /* Dump colors */
4435                         for (i = 0; i < 256; i++)
4436                         {
4437                                 int kv = angband_color_table[i][0];
4438                                 int rv = angband_color_table[i][1];
4439                                 int gv = angband_color_table[i][2];
4440                                 int bv = angband_color_table[i][3];
4441
4442 #ifdef JP
4443                                 cptr name = "Ì¤ÃÎ";
4444 #else
4445                                 cptr name = "unknown";
4446 #endif
4447
4448
4449                                 /* Skip non-entries */
4450                                 if (!kv && !rv && !gv && !bv) continue;
4451
4452                                 /* Extract the color name */
4453                                 if (i < 16) name = color_names[i];
4454
4455                                 /* Dump a comment */
4456 #ifdef JP
4457                                 auto_dump_printf("# ¥«¥é¡¼ '%s'\n", name);
4458 #else
4459                                 auto_dump_printf("# Color '%s'\n", name);
4460 #endif
4461
4462                                 /* Dump the monster attr/char info */
4463                                 auto_dump_printf("V:%d:0x%02X:0x%02X:0x%02X:0x%02X\n\n",
4464                                         i, kv, rv, gv, bv);
4465                         }
4466
4467                         /* Close */
4468                         close_auto_dump();
4469
4470                         /* Message */
4471 #ifdef JP
4472                         msg_print("¥«¥é¡¼¤ÎÀßÄê¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤·¤Þ¤·¤¿¡£");
4473 #else
4474                         msg_print("Dumped color redefinitions.");
4475 #endif
4476
4477                 }
4478
4479                 /* Edit colors */
4480                 else if (i == '3')
4481                 {
4482                         static byte a = 0;
4483
4484                         /* Prompt */
4485 #ifdef JP
4486                         prt("¥³¥Þ¥ó¥É: ¥«¥é¡¼¤ÎÀßÄê¤òÊÑ¹¹¤·¤Þ¤¹", 8, 0);
4487 #else
4488                         prt("Command: Modify colors", 8, 0);
4489 #endif
4490
4491
4492                         /* Hack -- query until done */
4493                         while (1)
4494                         {
4495                                 cptr name;
4496                                 byte j;
4497
4498                                 /* Clear */
4499                                 clear_from(10);
4500
4501                                 /* Exhibit the normal colors */
4502                                 for (j = 0; j < 16; j++)
4503                                 {
4504                                         /* Exhibit this color */
4505                                         Term_putstr(j*4, 20, -1, a, "###");
4506
4507                                         /* Exhibit all colors */
4508                                         Term_putstr(j*4, 22, -1, j, format("%3d", j));
4509                                 }
4510
4511                                 /* Describe the color */
4512 #ifdef JP
4513                                 name = ((a < 16) ? color_names[a] : "Ì¤ÄêµÁ");
4514 #else
4515                                 name = ((a < 16) ? color_names[a] : "undefined");
4516 #endif
4517
4518
4519                                 /* Describe the color */
4520 #ifdef JP
4521                                 Term_putstr(5, 10, -1, TERM_WHITE,
4522                                             format("¥«¥é¡¼ = %d, Ì¾Á° = %s", a, name));
4523 #else
4524                                 Term_putstr(5, 10, -1, TERM_WHITE,
4525                                             format("Color = %d, Name = %s", a, name));
4526 #endif
4527
4528
4529                                 /* Label the Current values */
4530                                 Term_putstr(5, 12, -1, TERM_WHITE,
4531                                             format("K = 0x%02x / R,G,B = 0x%02x,0x%02x,0x%02x",
4532                                                    angband_color_table[a][0],
4533                                                    angband_color_table[a][1],
4534                                                    angband_color_table[a][2],
4535                                                    angband_color_table[a][3]));
4536
4537                                 /* Prompt */
4538 #ifdef JP
4539                                 Term_putstr(0, 14, -1, TERM_WHITE,
4540                                             "¥³¥Þ¥ó¥É (n/N/k/K/r/R/g/G/b/B): ");
4541 #else
4542                                 Term_putstr(0, 14, -1, TERM_WHITE,
4543                                             "Command (n/N/k/K/r/R/g/G/b/B): ");
4544 #endif
4545
4546
4547                                 /* Get a command */
4548                                 i = inkey();
4549
4550                                 /* All done */
4551                                 if (i == ESCAPE) break;
4552
4553                                 /* Analyze */
4554                                 if (i == 'n') a = (byte)(a + 1);
4555                                 if (i == 'N') a = (byte)(a - 1);
4556                                 if (i == 'k') angband_color_table[a][0] = (byte)(angband_color_table[a][0] + 1);
4557                                 if (i == 'K') angband_color_table[a][0] = (byte)(angband_color_table[a][0] - 1);
4558                                 if (i == 'r') angband_color_table[a][1] = (byte)(angband_color_table[a][1] + 1);
4559                                 if (i == 'R') angband_color_table[a][1] = (byte)(angband_color_table[a][1] - 1);
4560                                 if (i == 'g') angband_color_table[a][2] = (byte)(angband_color_table[a][2] + 1);
4561                                 if (i == 'G') angband_color_table[a][2] = (byte)(angband_color_table[a][2] - 1);
4562                                 if (i == 'b') angband_color_table[a][3] = (byte)(angband_color_table[a][3] + 1);
4563                                 if (i == 'B') angband_color_table[a][3] = (byte)(angband_color_table[a][3] - 1);
4564
4565                                 /* Hack -- react to changes */
4566                                 Term_xtra(TERM_XTRA_REACT, 0);
4567
4568                                 /* Hack -- redraw */
4569                                 Term_redraw();
4570                         }
4571                 }
4572
4573 #endif
4574
4575                 /* Unknown option */
4576                 else
4577                 {
4578                         bell();
4579                 }
4580
4581                 /* Flush messages */
4582                 msg_print(NULL);
4583         }
4584
4585
4586         /* Restore the screen */
4587         screen_load();
4588 }
4589
4590
4591 /*
4592  * Note something in the message recall
4593  */
4594 void do_cmd_note(void)
4595 {
4596         char buf[80];
4597
4598         /* Default */
4599         strcpy(buf, "");
4600
4601         /* Input */
4602 #ifdef JP
4603         if (!get_string("¥á¥â: ", buf, 60)) return;
4604 #else
4605         if (!get_string("Note: ", buf, 60)) return;
4606 #endif
4607
4608
4609         /* Ignore empty notes */
4610         if (!buf[0] || (buf[0] == ' ')) return;
4611
4612         /* Add the note to the message recall */
4613 #ifdef JP
4614         msg_format("¥á¥â: %s", buf);
4615 #else
4616         msg_format("Note: %s", buf);
4617 #endif
4618
4619 }
4620
4621
4622 /*
4623  * Mention the current version
4624  */
4625 void do_cmd_version(void)
4626 {
4627
4628         /* Silly message */
4629 #ifdef JP
4630         msg_format("ÊÑ¶òÈÚÅÜ(Hengband) %d.%d.%d",
4631                     FAKE_VER_MAJOR-10, FAKE_VER_MINOR, FAKE_VER_PATCH);
4632 #else
4633         msg_format("You are playing Hengband %d.%d.%d.",
4634                     FAKE_VER_MAJOR-10, FAKE_VER_MINOR, FAKE_VER_PATCH);
4635 #endif
4636 }
4637
4638
4639
4640 /*
4641  * Array of feeling strings
4642  */
4643 static cptr do_cmd_feeling_text[11] =
4644 {
4645 #ifdef JP
4646         "¤³¤Î³¬¤ÎÊ·°Ïµ¤¤ò´¶¤¸¤È¤ì¤Ê¤«¤Ã¤¿...",
4647 #else
4648         "Looks like any other level.",
4649 #endif
4650
4651 #ifdef JP
4652         "¤³¤Î³¬¤Ë¤Ï²¿¤«ÆÃÊÌ¤Ê¤â¤Î¤¬¤¢¤ë¤è¤¦¤Êµ¤¤¬¤¹¤ë¡£",
4653 #else
4654         "You feel there is something special about this level.",
4655 #endif
4656
4657 #ifdef JP
4658         "¶²¤í¤·¤¤»à¤Î¸¸¤¬ÌÜ¤ËÉâ¤«¤Ó¡¢µ¤Àä¤·¤½¤¦¤Ë¤Ê¤Ã¤¿¡ª",
4659 #else
4660         "You nearly faint as horrible visions of death fill your mind!",
4661 #endif
4662
4663 #ifdef JP
4664         "¤³¤Î³¬¤Ï¤È¤Æ¤â´í¸±¤Ê¤è¤¦¤À¡£",
4665 #else
4666         "This level looks very dangerous.",
4667 #endif
4668
4669 #ifdef JP
4670         "¤È¤Æ¤â°¤¤Í½´¶¤¬¤¹¤ë...",
4671 #else
4672         "You have a very bad feeling...",
4673 #endif
4674
4675 #ifdef JP
4676         "°¤¤Í½´¶¤¬¤¹¤ë...",
4677 #else
4678         "You have a bad feeling...",
4679 #endif
4680
4681 #ifdef JP
4682         "²¿¤«¶ÛÄ¥¤¹¤ë¡£",
4683 #else
4684         "You feel nervous.",
4685 #endif
4686
4687 #ifdef JP
4688         "¾¯¤·ÉÔ±¿¤Êµ¤¤¬¤¹¤ë...",
4689 #else
4690         "You feel your luck is turning...",
4691 #endif
4692
4693 #ifdef JP
4694         "¤³¤Î¾ì½ê¤Ï¹¥¤¤Ë¤Ê¤ì¤Ê¤¤¡£",
4695 #else
4696         "You don't like the look of this place.",
4697 #endif
4698
4699 #ifdef JP
4700         "¤³¤Î³¬¤Ï¤½¤ì¤Ê¤ê¤Ë°ÂÁ´¤Ê¤è¤¦¤À¡£",
4701 #else
4702         "This level looks reasonably safe.",
4703 #endif
4704
4705 #ifdef JP
4706         "¤Ê¤ó¤ÆÂà¶þ¤Ê¤È¤³¤í¤À..."
4707 #else
4708         "What a boring place..."
4709 #endif
4710
4711 };
4712
4713 static cptr do_cmd_feeling_text_combat[11] =
4714 {
4715 #ifdef JP
4716         "¤³¤Î³¬¤ÎÊ·°Ïµ¤¤ò´¶¤¸¤È¤ì¤Ê¤«¤Ã¤¿...",
4717 #else
4718         "Looks like any other level.",
4719 #endif
4720
4721 #ifdef JP
4722         "¤³¤Î³¬¤Ë¤Ï²¿¤«ÆÃÊÌ¤Ê¤â¤Î¤¬¤¢¤ë¤è¤¦¤Êµ¤¤¬¤¹¤ë¡£",
4723 #else
4724         "You feel there is something special about this level.",
4725 #endif
4726
4727 #ifdef JP
4728         "º£Ìë¤â¤Þ¤¿¡¢Ã¯¤«¤¬Ì¿¤òÍî¤È¤¹...",
4729 #else
4730         "You nearly faint as horrible visions of death fill your mind!",
4731 #endif
4732
4733 #ifdef JP
4734         "¤³¤Î³¬¤Ï¤È¤Æ¤â´í¸±¤Ê¤è¤¦¤À¡£",
4735 #else
4736         "This level looks very dangerous.",
4737 #endif
4738
4739 #ifdef JP
4740         "¤È¤Æ¤â°¤¤Í½´¶¤¬¤¹¤ë...",
4741 #else
4742         "You have a very bad feeling...",
4743 #endif
4744
4745 #ifdef JP
4746         "°¤¤Í½´¶¤¬¤¹¤ë...",
4747 #else
4748         "You have a bad feeling...",
4749 #endif
4750
4751 #ifdef JP
4752         "²¿¤«¶ÛÄ¥¤¹¤ë¡£",
4753 #else
4754         "You feel nervous.",
4755 #endif
4756
4757 #ifdef JP
4758         "¾¯¤·ÉÔ±¿¤Êµ¤¤¬¤¹¤ë...",
4759 #else
4760         "You feel your luck is turning...",
4761 #endif
4762
4763 #ifdef JP
4764         "¤³¤Î¾ì½ê¤Ï¹¥¤¤Ë¤Ê¤ì¤Ê¤¤¡£",
4765 #else
4766         "You don't like the look of this place.",
4767 #endif
4768
4769 #ifdef JP
4770         "¤³¤Î³¬¤Ï¤½¤ì¤Ê¤ê¤Ë°ÂÁ´¤Ê¤è¤¦¤À¡£",
4771 #else
4772         "This level looks reasonably safe.",
4773 #endif
4774
4775 #ifdef JP
4776         "¤Ê¤ó¤ÆÂà¶þ¤Ê¤È¤³¤í¤À..."
4777 #else
4778         "What a boring place..."
4779 #endif
4780
4781 };
4782
4783 static cptr do_cmd_feeling_text_lucky[11] =
4784 {
4785 #ifdef JP
4786         "¤³¤Î³¬¤ÎÊ·°Ïµ¤¤ò´¶¤¸¤È¤ì¤Ê¤«¤Ã¤¿...",
4787         "¤³¤Î³¬¤Ë¤Ï²¿¤«ÆÃÊÌ¤Ê¤â¤Î¤¬¤¢¤ë¤è¤¦¤Êµ¤¤¬¤¹¤ë¡£",
4788         "¤³¤Î³¬¤Ï¤³¤Î¾å¤Ê¤¯ÁÇÀ²¤é¤·¤¤´¶¤¸¤¬¤¹¤ë¡£",
4789         "ÁÇÀ²¤é¤·¤¤´¶¤¸¤¬¤¹¤ë...",
4790         "¤È¤Æ¤âÎÉ¤¤´¶¤¸¤¬¤¹¤ë...",
4791         "ÎÉ¤¤´¶¤¸¤¬¤¹¤ë...",
4792         "¤Á¤ç¤Ã¤È¹¬±¿¤Ê´¶¤¸¤¬¤¹¤ë...",
4793         "Â¿¾¯¤Ï±¿¤¬¸þ¤¤¤Æ¤¤¿¤«...",
4794         "¸«¤¿´¶¤¸°¤¯¤Ï¤Ê¤¤...",
4795         "Á´Á³ÂÌÌÜ¤È¤¤¤¦¤³¤È¤Ï¤Ê¤¤¤¬...",
4796         "¤Ê¤ó¤ÆÂà¶þ¤Ê¤È¤³¤í¤À..."
4797 #else
4798         "Looks like any other level.",
4799         "You feel there is something special about this level.",
4800         "You have a superb feeling about this level.",
4801         "You have an excellent feeling...",
4802         "You have a very good feeling...",
4803         "You have a good feeling...",
4804         "You feel strangely lucky...",
4805         "You feel your luck is turning...",
4806         "You like the look of this place...",
4807         "This level can't be all bad...",
4808         "What a boring place..."
4809 #endif
4810 };
4811
4812
4813 /*
4814  * Note that "feeling" is set to zero unless some time has passed.
4815  * Note that this is done when the level is GENERATED, not entered.
4816  */
4817 void do_cmd_feeling(void)
4818 {
4819         /* Verify the feeling */
4820         if (feeling > 10) feeling = 10;
4821
4822         /* No useful feeling in quests */
4823         if (p_ptr->inside_quest && !random_quest_number(dun_level))
4824         {
4825 #ifdef JP
4826                 msg_print("Åµ·¿Åª¤Ê¥¯¥¨¥¹¥È¤Î¥À¥ó¥¸¥ç¥ó¤Î¤è¤¦¤À¡£");
4827 #else
4828                 msg_print("Looks like a typical quest level.");
4829 #endif
4830
4831                 return;
4832         }
4833
4834         /* No useful feeling in town */
4835         else if (p_ptr->town_num && !dun_level)
4836         {
4837 #ifdef JP
4838                 if (!strcmp(town[p_ptr->town_num].name, "¹ÓÌî"))
4839 #else
4840                 if (!strcmp(town[p_ptr->town_num].name, "wilderness"))
4841 #endif
4842                 {
4843 #ifdef JP
4844                         msg_print("²¿¤«¤¢¤ê¤½¤¦¤Ê¹ÓÌî¤Î¤è¤¦¤À¡£");
4845 #else
4846                         msg_print("Looks like a strange wilderness.");
4847 #endif
4848
4849                         return;
4850                 }
4851                 else
4852                 {
4853 #ifdef JP
4854                         msg_print("Åµ·¿Åª¤ÊÄ®¤Î¤è¤¦¤À¡£");
4855 #else
4856                         msg_print("Looks like a typical town.");
4857 #endif
4858
4859                         return;
4860                 }
4861         }
4862
4863         /* No useful feeling in the wilderness */
4864         else if (!dun_level)
4865         {
4866 #ifdef JP
4867                 msg_print("Åµ·¿Åª¤Ê¹ÓÌî¤Î¤è¤¦¤À¡£");
4868 #else
4869                 msg_print("Looks like a typical wilderness.");
4870 #endif
4871
4872                 return;
4873         }
4874
4875         /* Display the feeling */
4876         if (turn - old_turn >= (150 - dun_level)*TURNS_PER_TICK || cheat_xtra)
4877         {
4878                 if (p_ptr->muta3 & MUT3_GOOD_LUCK) msg_print(do_cmd_feeling_text_lucky[feeling]);
4879                 else {
4880                                         if((p_ptr->pseikaku == SEIKAKU_COMBAT) || (inventory[INVEN_BOW].name1 == ART_CRIMSON)){
4881                                                 msg_print(do_cmd_feeling_text_combat[feeling]);
4882                                         }else
4883                                                 msg_print(do_cmd_feeling_text[feeling]);
4884                                 }
4885         }
4886         else
4887         {
4888                 msg_print(do_cmd_feeling_text[0]);
4889         }
4890 }
4891
4892
4893
4894 /*
4895  * Description of each monster group.
4896  */
4897 static cptr monster_group_text[] =
4898 {
4899 #ifdef JP
4900         "¥æ¥Ë¡¼¥¯",     /* "Uniques" */
4901         "¾èÇÏ²ÄÇ½¤Ê¥â¥ó¥¹¥¿¡¼", /* "Riding" */
4902         "¥¢¥ê",
4903         "¥³¥¦¥â¥ê",
4904         "¥à¥«¥Ç",
4905         "¥É¥é¥´¥ó",
4906         "ÌÜ¶Ì",
4907         "¥Í¥³",
4908         "¥´¡¼¥ì¥à",
4909         "É¸½à¿Í´Ö·¿À¸Êª",
4910         "¥Ù¥È¥Ù¥È",
4911         "¥¼¥ê¡¼",
4912         "¥³¥Ü¥ë¥É",
4913         "¿åÀ³À¸Êª",
4914         "¥â¥ë¥É",
4915         "¥Ê¡¼¥¬",
4916         "¥ª¡¼¥¯",
4917         "¿Í´Ö",
4918         "»ÍÂ½Ã",
4919         "¥Í¥º¥ß",
4920         "¥¹¥±¥ë¥È¥ó",
4921         "¥Ç¡¼¥â¥ó",
4922         "¥Ü¥ë¥Æ¥Ã¥¯¥¹",
4923         "¥¤¥â¥à¥·/Âç·²",
4924         /* "unused", */
4925         "¥¤¡¼¥¯",
4926         "¥¾¥ó¥Ó/¥ß¥¤¥é",
4927         "Å·»È",
4928         "Ļ",
4929         "¸¤",
4930         /* "¸ÅÂå¥É¥é¥´¥ó/¥ï¥¤¥¢¡¼¥à", */
4931         "¥¨¥ì¥á¥ó¥¿¥ë",
4932         "¥È¥ó¥Ü",
4933         "¥´¡¼¥¹¥È",
4934         "»¨¼ï",
4935         "º«Ãî",
4936         "¥Ø¥Ó",
4937         "¥¥é¡¼¡¦¥Ó¡¼¥È¥ë",
4938         "¥ê¥Ã¥Á",
4939         "Â¿¼ó¤Îà¨ÃîÎà",
4940         "Ææ¤ÎÀ¸Êª",
4941         "¥ª¡¼¥¬",
4942         "µðÂç¿Í´Ö·¿À¸Êª",
4943         "¥¯¥¤¥ë¥¹¥ë¥°",
4944         "à¨ÃîÎà/Î¾À¸Îà",
4945         "ÃØéá/¥µ¥½¥ê/¥À¥Ë",
4946         "¥È¥í¥ë",
4947         /* "¾åµé¥Ç¡¼¥â¥ó", */
4948         "¥Ð¥ó¥Ñ¥¤¥¢",
4949         "¥ï¥¤¥È/¥ì¥¤¥¹/Åù",
4950         "¥¾¡¼¥ó/¥¶¥ì¥ó/Åù",
4951         "¥¤¥¨¥Æ¥£",
4952         "¥Ï¥¦¥ó¥É",
4953         "¥ß¥ß¥Ã¥¯",
4954         "ÊÉ/¿¢Êª/µ¤ÂÎ",
4955         "¤ª¤Ð¤±¥¥Î¥³",
4956         "µåÂÎ",
4957 #else
4958         "Uniques",
4959         "Ridable monsters",
4960         "Ant",
4961         "Bat",
4962         "Centipede",
4963         "Dragon",
4964         "Floating Eye",
4965         "Feline",
4966         "Golem",
4967         "Hobbit/Elf/Dwarf",
4968         "Icky Thing",
4969         "Jelly",
4970         "Kobold",
4971         "Aquatic monster",
4972         "Mold",
4973         "Naga",
4974         "Orc",
4975         "Person/Human",
4976         "Quadruped",
4977         "Rodent",
4978         "Skeleton",
4979         "Demon",
4980         "Vortex",
4981         "Worm/Worm-Mass",
4982         /* "unused", */
4983         "Yeek",
4984         "Zombie/Mummy",
4985         "Angel",
4986         "Bird",
4987         "Canine",
4988         /* "Ancient Dragon/Wyrm", */
4989         "Elemental",
4990         "Dragon Fly",
4991         "Ghost",
4992         "Hybrid",
4993         "Insect",
4994         "Snake",
4995         "Killer Beetle",
4996         "Lich",
4997         "Multi-Headed Reptile",
4998         "Mystery Living",
4999         "Ogre",
5000         "Giant Humanoid",
5001         "Quylthulg",
5002         "Reptile/Amphibian",
5003         "Spider/Scorpion/Tick",
5004         "Troll",
5005         /* "Major Demon", */
5006         "Vampire",
5007         "Wight/Wraith/etc",
5008         "Xorn/Xaren/etc",
5009         "Yeti",
5010         "Zephyr Hound",
5011         "Mimic",
5012         "Wall/Plant/Gas",
5013         "Mushroom patch",
5014         "Ball",
5015 #endif
5016         NULL
5017 };
5018
5019
5020 /*
5021  * Symbols of monsters in each group. Note the "Uniques" group
5022  * is handled differently.
5023  */
5024 static cptr monster_group_char[] =
5025 {
5026         (char *) -1L,
5027         (char *) -2L,
5028         "a",
5029         "b",
5030         "c",
5031         "dD",
5032         "e",
5033         "f",
5034         "g",
5035         "h",
5036         "i",
5037         "j",
5038         "k",
5039         "l",
5040         "m",
5041         "n",
5042         "o",
5043         "pt",
5044         "q",
5045         "r",
5046         "s",
5047         "uU",
5048         "v",
5049         "w",
5050         /* "x", */
5051         "y",
5052         "z",
5053         "A",
5054         "B",
5055         "C",
5056         /* "D", */
5057         "E",
5058         "F",
5059         "G",
5060         "H",
5061         "I",
5062         "J",
5063         "K",
5064         "L",
5065         "M",
5066         "N",
5067         "O",
5068         "P",
5069         "Q",
5070         "R",
5071         "S",
5072         "T",
5073         /* "U", */
5074         "V",
5075         "W",
5076         "X",
5077         "Y",
5078         "Z",
5079         "$!?=&`.|/\\~[]()>",
5080         "#",
5081         ",",
5082         "*",
5083         NULL
5084 };
5085
5086
5087 /*
5088  * hook function to sort monsters by level
5089  */
5090 static bool ang_sort_comp_monster_level(vptr u, vptr v, int a, int b)
5091 {
5092         u16b *who = (u16b*)(u);
5093
5094         int w1 = who[a];
5095         int w2 = who[b];
5096
5097         monster_race *r_ptr1 = &r_info[w1];
5098         monster_race *r_ptr2 = &r_info[w2];
5099
5100         /* Unused */
5101         (void)v;
5102
5103         if (r_ptr2->level > r_ptr1->level) return TRUE;
5104         if (r_ptr1->level > r_ptr2->level) return FALSE;
5105
5106         if ((r_ptr2->flags1 & RF1_UNIQUE) && !(r_ptr1->flags1 & RF1_UNIQUE)) return TRUE;
5107         if ((r_ptr1->flags1 & RF1_UNIQUE) && !(r_ptr2->flags1 & RF1_UNIQUE)) return FALSE;
5108         return w1 <= w2;
5109 }
5110
5111 /*
5112  * Build a list of monster indexes in the given group. Return the number
5113  * of monsters in the group.
5114  *
5115  * mode & 0x01 : check for non-empty group
5116  * mode & 0x02 : cheat?
5117  */
5118 static int collect_monsters(int grp_cur, s16b mon_idx[], byte mode)
5119 {
5120         int i, mon_cnt = 0;
5121         int dummy_why;
5122
5123         /* Get a list of x_char in this group */
5124         cptr group_char = monster_group_char[grp_cur];
5125
5126         /* XXX Hack -- Check if this is the "Uniques" group */
5127         bool grp_unique = (monster_group_char[grp_cur] == (char *) -1L);
5128
5129         /* XXX Hack -- Check if this is the "Riding" group */
5130         bool grp_riding = (monster_group_char[grp_cur] == (char *) -2L);
5131
5132         /* Check every race */
5133         for (i = 0; i < max_r_idx; i++)
5134         {
5135                 /* Access the race */
5136                 monster_race *r_ptr = &r_info[i];
5137
5138                 /* Skip empty race */
5139                 if (!r_ptr->name) continue ;
5140
5141                 /* Require known monsters */
5142                 if (!(mode & 0x02) && !cheat_know && !r_ptr->r_sights ) continue;
5143
5144                 if (grp_unique)
5145                 {
5146                         if (!(r_ptr->flags1 & RF1_UNIQUE)) continue;
5147                 }
5148
5149                 else if (grp_riding)
5150                 {
5151                         if (!(r_ptr->flags7 & RF7_RIDING)) continue;
5152                 }
5153
5154                 else
5155                 {
5156                         /* Check for race in the group */
5157                         if (!my_strchr(group_char, r_ptr->d_char)) continue;
5158                 }
5159
5160                 /* Add the race */
5161                 mon_idx[mon_cnt++] = i;
5162
5163                 /* XXX Hack -- Just checking for non-empty group */
5164                 if (mode & 0x01) break;
5165         }
5166
5167         /* Terminate the list */
5168         mon_idx[mon_cnt] = 0;
5169
5170         /* Select the sort method */
5171         ang_sort_comp = ang_sort_comp_monster_level;
5172         ang_sort_swap = ang_sort_swap_hook;
5173
5174         /* Sort by monster level */
5175         ang_sort(mon_idx, &dummy_why, mon_cnt);
5176
5177         /* Return the number of races */
5178         return mon_cnt;
5179 }
5180
5181
5182 /*
5183  * Description of each monster group.
5184  */
5185 static cptr object_group_text[] =
5186 {
5187 #ifdef JP
5188         "¥¥Î¥³",       /* "Mushrooms" */
5189         "Ìô",           /* "Potions" */
5190         "Ìý¤Ä¤Ü",       /* "Flasks" */
5191         "´¬Êª",         /* "Scrolls" */
5192         "»ØÎØ",         /* "Rings" */
5193         "¥¢¥ß¥å¥ì¥Ã¥È", /* "Amulets" */
5194         "ū",           /* "Whistle" */
5195         "¸÷¸»",         /* "Lanterns" */
5196         "ËâË¡ËÀ",       /* "Wands" */
5197         "¾ó",           /* "Staffs" */
5198         "¥í¥Ã¥É",       /* "Rods" */
5199         "¥«¡¼¥É",       /* "Cards" */
5200         "¥¥ã¥×¥Á¥ã¡¼¡¦¥Ü¡¼¥ë",
5201         "ÍÓÈé»æ",
5202         "¤¯¤µ¤Ó",
5203         "Ȣ",
5204         "¿Í·Á",
5205         "Áü",
5206         "¥´¥ß",
5207         "¶õ¤Î¥Ó¥ó",
5208         "¹ü",
5209         "Åá·õÎà",       /* "Swords" */
5210         "Æß´ï",         /* "Blunt Weapons" */
5211         "Ä¹ÊÁÉð´ï",     /* "Polearms" */
5212         "ºÎ·¡Æ»¶ñ",     /* "Diggers" */
5213         "Èô¤ÓÆ»¶ñ",     /* "Bows" */
5214         "ÃÆ",
5215         "Ìð",
5216         "¥Ü¥ë¥È",
5217         "·ÚÁõ³»",       /* "Soft Armor" */
5218         "½ÅÁõ³»",       /* "Hard Armor" */
5219         "¥É¥é¥´¥ó³»",   /* "Dragon Armor" */
5220         "½â",   /* "Shields" */
5221         "¥¯¥í¡¼¥¯",     /* "Cloaks" */
5222         "äÆ¼ê", /* "Gloves" */
5223         "¥Ø¥ë¥á¥Ã¥È",   /* "Helms" */
5224         "´§",   /* "Crowns" */
5225         "¥Ö¡¼¥Ä",       /* "Boots" */
5226         "ËâË¡½ñ",
5227 #else
5228         "Mushrooms",
5229         "Potions",
5230         "Flasks",
5231         "Scrolls",
5232         "Rings",
5233         "Amulets",
5234         "Whistle",
5235         "Lanterns",
5236         "Wands",
5237         "Staves",
5238         "Rods",
5239         "Cards",
5240         "Capture Balls",
5241         "Parchments",
5242         "Spikes",
5243         "Boxs",
5244         "Figurines",
5245         "Statues",
5246         "Junks",
5247         "Bottles",
5248         "Skeletons",
5249         "Swords",
5250         "Blunt Weapons",
5251         "Polearms",
5252         "Diggers",
5253         "Bows",
5254         "Shots",
5255         "Arrows",
5256         "Bolts",
5257         "Soft Armor",
5258         "Hard Armor",
5259         "Dragon Armor",
5260         "Shields",
5261         "Cloaks",
5262         "Gloves",
5263         "Helms",
5264         "Crowns",
5265         "Boots",
5266         "Spellbooks",
5267 #endif
5268         NULL
5269 };
5270
5271
5272 /*
5273  * TVALs of items in each group
5274  */
5275 static byte object_group_tval[] =
5276 {
5277         TV_FOOD,
5278         TV_POTION,
5279         TV_FLASK,
5280         TV_SCROLL,
5281         TV_RING,
5282         TV_AMULET,
5283         TV_WHISTLE,
5284         TV_LITE,
5285         TV_WAND,
5286         TV_STAFF,
5287         TV_ROD,
5288         TV_CARD,
5289         TV_CAPTURE,
5290         TV_PARCHMENT,
5291         TV_SPIKE,
5292         TV_CHEST,
5293         TV_FIGURINE,
5294         TV_STATUE,
5295         TV_JUNK,
5296         TV_BOTTLE,
5297         TV_SKELETON,
5298         TV_SWORD,
5299         TV_HAFTED,
5300         TV_POLEARM,
5301         TV_DIGGING,
5302         TV_BOW,
5303         TV_SHOT,
5304         TV_ARROW,
5305         TV_BOLT,
5306         TV_SOFT_ARMOR,
5307         TV_HARD_ARMOR,
5308         TV_DRAG_ARMOR,
5309         TV_SHIELD,
5310         TV_CLOAK,
5311         TV_GLOVES,
5312         TV_HELM,
5313         TV_CROWN,
5314         TV_BOOTS,
5315         TV_LIFE_BOOK, /* Hack -- all spellbooks */
5316         0
5317 };
5318
5319
5320 /*
5321  * Build a list of monster indexes in the given group. Return the number
5322  * of monsters in the group.
5323  */
5324 static int collect_objects(int grp_cur, int object_idx[])
5325 {
5326         int i, j, k, object_cnt = 0;
5327
5328         /* Get a list of x_char in this group */
5329         byte group_tval = object_group_tval[grp_cur];
5330
5331         /* Check every object */
5332         for (i = 0; i < max_k_idx; i++)
5333         {
5334                 /* Access the race */
5335                 object_kind *k_ptr = &k_info[i];
5336
5337                 /* Skip empty objects */
5338                 if (!k_ptr->name) continue;
5339
5340                 /* Skip non-flavoured objects */
5341                 if (!k_ptr->flavor && !p_ptr->wizard) continue;
5342
5343                 /* Skip items with no distribution (special artifacts) */
5344                 for (j = 0, k = 0; j < 4; j++) k += k_ptr->chance[j];
5345                 if (!(k))  continue;
5346
5347                 /* Require objects ever seen*/
5348                 if (!k_ptr->aware && !p_ptr->wizard) continue;
5349
5350                 /* Check for race in the group */
5351                 if (TV_LIFE_BOOK == group_tval)
5352                 {
5353                         /* Hack -- All spell books */
5354                         if (TV_LIFE_BOOK <= k_ptr->tval && k_ptr->tval <= TV_HISSATSU_BOOK)
5355                         {
5356                                 /* Add the race */
5357                                 object_idx[object_cnt++] = i;
5358                         }
5359                 }
5360                 else if (k_ptr->tval == group_tval)
5361                 {
5362                         /* Add the race */
5363                         object_idx[object_cnt++] = i;
5364                 }
5365         }
5366
5367         /* Terminate the list */
5368         object_idx[object_cnt] = 0;
5369
5370         /* Return the number of races */
5371         return object_cnt;
5372 }
5373
5374
5375 /*
5376  * Description of each feature group.
5377  */
5378 static cptr feature_group_text[] =
5379 {
5380         "terrains",
5381         NULL
5382 };
5383
5384
5385 /*
5386  * Build a list of feature indexes in the given group. Return the number
5387  * of features in the group.
5388  */
5389 static int collect_features(int grp_cur, int *feat_idx)
5390 {
5391         int i, feat_cnt = 0;
5392
5393         /* Unused;  There is a single group. */
5394         (void)grp_cur;
5395
5396         /* Check every feature */
5397         for (i = 1; i < max_f_idx; i++)
5398         {
5399                 /* Access the index */
5400                 feature_type *f_ptr = &f_info[i];
5401
5402                 /* Skip empty index */
5403                 if (!f_ptr->name) continue;
5404
5405                 /* Skip mimiccing features */
5406                 if (f_ptr->mimic != i) continue;
5407
5408                 /* Add the index */
5409                 feat_idx[feat_cnt++] = i;
5410         }
5411
5412         /* Terminate the list */
5413         feat_idx[feat_cnt] = 0;
5414
5415         /* Return the number of races */
5416         return feat_cnt;
5417 }
5418
5419
5420 #if 0
5421 /*
5422  * Build a list of monster indexes in the given group. Return the number
5423  * of monsters in the group.
5424  */
5425 static int collect_artifacts(int grp_cur, int object_idx[])
5426 {
5427         int i, object_cnt = 0;
5428
5429         /* Get a list of x_char in this group */
5430         byte group_tval = object_group_tval[grp_cur];
5431
5432         /* Check every object */
5433         for (i = 0; i < max_a_idx; i++)
5434         {
5435                 /* Access the artifact */
5436                 artifact_type *a_ptr = &a_info[i];
5437
5438                 /* Skip empty artifacts */
5439                 if (!a_ptr->name) continue;
5440
5441                 /* Skip "uncreated" artifacts */
5442                 if (!a_ptr->cur_num) continue;
5443
5444                 /* Check for race in the group */
5445                 if (a_ptr->tval == group_tval)
5446                 {
5447                         /* Add the race */
5448                         object_idx[object_cnt++] = i;
5449                 }
5450         }
5451
5452         /* Terminate the list */
5453         object_idx[object_cnt] = 0;
5454
5455         /* Return the number of races */
5456         return object_cnt;
5457 }
5458 #endif /* 0 */
5459
5460
5461 /*
5462  * Encode the screen colors
5463  */
5464 static char hack[17] = "dwsorgbuDWvyRGBU";
5465
5466
5467 /*
5468  * Hack -- load a screen dump from a file
5469  */
5470 void do_cmd_load_screen(void)
5471 {
5472         int i, y, x;
5473
5474         byte a = 0;
5475         char c = ' ';
5476
5477         bool okay = TRUE;
5478
5479         FILE *fff;
5480
5481         char buf[1024];
5482
5483         int wid, hgt;
5484
5485         Term_get_size(&wid, &hgt);
5486
5487         /* Build the filename */
5488         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, "dump.txt");
5489
5490         /* Append to the file */
5491         fff = my_fopen(buf, "r");
5492
5493         /* Oops */
5494         if (!fff) {
5495 #ifdef JP
5496                 msg_format("%s ¤ò³«¤¯¤³¤È¤¬¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", buf);
5497 #else
5498                 msg_format("Failed to open %s.", buf);
5499 #endif
5500                 msg_print(NULL);
5501                 return;
5502         }
5503
5504
5505         /* Save the screen */
5506         screen_save();
5507
5508         /* Clear the screen */
5509         Term_clear();
5510
5511
5512         /* Load the screen */
5513         for (y = 0; okay; y++)
5514         {
5515                 /* Get a line of data including control code */
5516                 if (!fgets(buf, 1024, fff)) okay = FALSE;
5517
5518                 /* Get the blank line */
5519                 if (buf[0] == '\n' || buf[0] == '\0') break;
5520
5521                 /* Ignore too large screen image */
5522                 if (y >= hgt) continue;
5523
5524                 /* Show each row */
5525                 for (x = 0; x < wid - 1; x++)
5526                 {
5527                         /* End of line */
5528                         if (buf[x] == '\n' || buf[x] == '\0') break;
5529
5530                         /* Put the attr/char */
5531                         Term_draw(x, y, TERM_WHITE, buf[x]);
5532                 }
5533         }
5534
5535         /* Dump the screen */
5536         for (y = 0; okay; y++)
5537         {
5538                 /* Get a line of data including control code */
5539                 if (!fgets(buf, 1024, fff)) okay = FALSE;
5540
5541                 /* Get the blank line */
5542                 if (buf[0] == '\n' || buf[0] == '\0') break;
5543
5544                 /* Ignore too large screen image */
5545                 if (y >= hgt) continue;
5546
5547                 /* Dump each row */
5548                 for (x = 0; x < wid - 1; x++)
5549                 {
5550                         /* End of line */
5551                         if (buf[x] == '\n' || buf[x] == '\0') break;
5552
5553                         /* Get the attr/char */
5554                         (void)(Term_what(x, y, &a, &c));
5555
5556                         /* Look up the attr */
5557                         for (i = 0; i < 16; i++)
5558                         {
5559                                 /* Use attr matches */
5560                                 if (hack[i] == buf[x]) a = i;
5561                         }
5562
5563                         /* Put the attr/char */
5564                         Term_draw(x, y, a, c);
5565                 }
5566         }
5567
5568
5569         /* Close it */
5570         my_fclose(fff);
5571
5572
5573         /* Message */
5574 #ifdef JP
5575         prt("¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤µ¤ì¤¿²èÌÌ(µÇ°»£±Æ)¤ò¥í¡¼¥É¤·¤Þ¤·¤¿¡£", 0, 0);
5576 #else
5577         msg_print("Screen dump loaded.");
5578 #endif
5579
5580         flush();
5581         inkey();
5582
5583
5584         /* Restore the screen */
5585         screen_load();
5586 }
5587
5588
5589
5590
5591 cptr inven_res_label =
5592 #ifdef JP
5593  "                               »ÀÅÅ²ÐÎäÆÇ¸÷°ÇÇË¹ì¹ö°øÆÙÎô ÌÕÉÝÍðáãÆ©Ì¿´¶¾ÃÉüÉâ";
5594 #else
5595  "                               AcElFiCoPoLiDkShSoNtNxCaDi BlFeCfFaSeHlEpSdRgLv";
5596 #endif
5597
5598
5599 #ifdef JP
5600 #define IM_FLAG_STR  "¡ö"
5601 #define HAS_FLAG_STR "¡Ü"
5602 #define NO_FLAG_STR  "¡¦"
5603 #else
5604 #define IM_FLAG_STR  "* "
5605 #define HAS_FLAG_STR "+ "
5606 #define NO_FLAG_STR  ". "
5607 #endif
5608
5609 #define print_im_or_res_flag(IM, RES) \
5610 { \
5611         fputs(have_flag(flgs, (IM)) ? IM_FLAG_STR : \
5612               (have_flag(flgs, (RES)) ? HAS_FLAG_STR : NO_FLAG_STR), fff); \
5613 }
5614
5615 #define print_flag(TR) \
5616 { \
5617         fputs(have_flag(flgs, (TR)) ? HAS_FLAG_STR : NO_FLAG_STR, fff); \
5618 }
5619
5620
5621 /* XTRA HACK RESLIST */
5622 static void do_cmd_knowledge_inven_aux(FILE *fff, object_type *o_ptr, int *j, byte tval, char *where)
5623 {
5624         char o_name[MAX_NLEN];
5625         u32b flgs[TR_FLAG_SIZE];
5626
5627         if (!o_ptr->k_idx) return;
5628         if (o_ptr->tval != tval) return;
5629
5630         /* Identified items only */
5631         if (!object_known_p(o_ptr)) return;
5632
5633         /*
5634          * HACK:Ring of Lordly protection and Dragon equipment
5635          * have random resistances.
5636          */
5637         if (((TV_WEARABLE_BEGIN <= tval) && (tval <= TV_WEARABLE_END) && o_ptr->name2)
5638             || ((tval == TV_AMULET) && (o_ptr->sval == SV_AMULET_RESISTANCE))
5639             || ((tval == TV_RING) && (o_ptr->sval == SV_RING_LORDLY))
5640             || ((tval == TV_SHIELD) && (o_ptr->sval == SV_DRAGON_SHIELD))
5641             || ((tval == TV_HELM) && (o_ptr->sval == SV_DRAGON_HELM))
5642             || ((tval == TV_GLOVES) && (o_ptr->sval == SV_SET_OF_DRAGON_GLOVES))
5643             || ((tval == TV_BOOTS) && (o_ptr->sval == SV_PAIR_OF_DRAGON_GREAVE))
5644             || o_ptr->art_name || o_ptr->name1)
5645         {
5646                 int i = 0;
5647                 object_desc(o_name, o_ptr, OD_NAME_ONLY);
5648
5649                 while (o_name[i] && (i < 26))
5650                 {
5651 #ifdef JP
5652                         if (iskanji(o_name[i])) i++;
5653 #endif
5654                         i++;
5655                 }
5656
5657                 if (i < 28)
5658                 {
5659                         while (i < 28)
5660                         {
5661                                 o_name[i] = ' '; i++;
5662                         }
5663                 }
5664                 o_name[i] = '\0';
5665
5666                 fprintf(fff, "%s %s", where, o_name);
5667
5668                 if (!(o_ptr->ident & (IDENT_MENTAL)))
5669                 {
5670 #ifdef JP
5671                         fputs("-------ÉÔÌÀ--------------- -------ÉÔÌÀ---------\n", fff);
5672 #else
5673                         fputs("-------unknown------------ -------unknown------\n", fff);
5674 #endif
5675                 }
5676                 else
5677                 {
5678                         object_flags_known(o_ptr, flgs);
5679
5680                         print_im_or_res_flag(TR_IM_ACID, TR_RES_ACID);
5681                         print_im_or_res_flag(TR_IM_ELEC, TR_RES_ELEC);
5682                         print_im_or_res_flag(TR_IM_FIRE, TR_RES_FIRE);
5683                         print_im_or_res_flag(TR_IM_COLD, TR_RES_COLD);
5684                         print_flag(TR_RES_POIS);
5685                         print_flag(TR_RES_LITE);
5686                         print_flag(TR_RES_DARK);
5687                         print_flag(TR_RES_SHARDS);
5688                         print_flag(TR_RES_SOUND);
5689                         print_flag(TR_RES_NETHER);
5690                         print_flag(TR_RES_NEXUS);
5691                         print_flag(TR_RES_CHAOS);
5692                         print_flag(TR_RES_DISEN);
5693
5694                         fputs(" ", fff);
5695
5696                         print_flag(TR_RES_BLIND);
5697                         print_flag(TR_RES_FEAR);
5698                         print_flag(TR_RES_CONF);
5699                         print_flag(TR_FREE_ACT);
5700                         print_flag(TR_SEE_INVIS);
5701                         print_flag(TR_HOLD_LIFE);
5702                         print_flag(TR_TELEPATHY);
5703                         print_flag(TR_SLOW_DIGEST);
5704                         print_flag(TR_REGEN);
5705                         print_flag(TR_FEATHER);
5706
5707                         fputc('\n', fff);
5708                 }
5709                 (*j)++;
5710                 if (*j == 9)
5711                 {
5712                         *j = 0;
5713                         fprintf(fff, "%s\n", inven_res_label);
5714                 }
5715         }
5716 }
5717
5718 /*
5719  * Display *ID* ed weapons/armors's resistances
5720  */
5721 static void do_cmd_knowledge_inven(void)
5722 {
5723         FILE *fff;
5724
5725         char file_name[1024];
5726
5727         store_type  *st_ptr;
5728
5729         byte tval;
5730         int i = 0;
5731         int j = 0;
5732
5733         char  where[32];
5734
5735         /* Open a new file */
5736         fff = my_fopen_temp(file_name, 1024);
5737         if (!fff)
5738         {
5739 #ifdef JP
5740             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
5741 #else
5742             msg_format("Failed to create temporary file %s.", file_name);
5743 #endif
5744             msg_print(NULL);
5745             return;
5746         }
5747         fprintf(fff, "%s\n", inven_res_label);
5748
5749         for (tval = TV_WEARABLE_BEGIN; tval <= TV_WEARABLE_END; tval++)
5750         {
5751                 if (j != 0)
5752                 {
5753                         for (; j < 9; j++) fputc('\n', fff);
5754                         j = 0;
5755                         fprintf(fff, "%s\n", inven_res_label);
5756                 }
5757
5758 #ifdef JP
5759                 strcpy(where, "Áõ");
5760 #else
5761                 strcpy(where, "E ");
5762 #endif
5763                 for (i = INVEN_RARM; i < INVEN_TOTAL; i++)
5764                 {
5765                         do_cmd_knowledge_inven_aux(fff, &inventory[i], &j, tval, where);
5766                 }
5767
5768 #ifdef JP
5769                 strcpy(where, "»ý");
5770 #else
5771                 strcpy(where, "I ");
5772 #endif
5773                 for (i = 0; i < INVEN_PACK; i++)
5774                 {
5775                         do_cmd_knowledge_inven_aux(fff, &inventory[i], &j, tval, where);
5776                 }
5777
5778                 st_ptr = &town[1].store[STORE_HOME];
5779 #ifdef JP
5780                 strcpy(where, "²È");
5781 #else
5782                 strcpy(where, "H ");
5783 #endif
5784
5785                 for (i = 0; i < st_ptr->stock_num; i++)
5786                 {
5787                         do_cmd_knowledge_inven_aux(fff, &st_ptr->stock[i], &j, tval, where);
5788                 }
5789         }
5790
5791         /* Close the file */
5792         my_fclose(fff);
5793
5794         /* Display the file contents */
5795 #ifdef JP
5796         show_file(TRUE, file_name, "*´ÕÄê*ºÑ¤ßÉð´ï/ËÉ¶ñ¤ÎÂÑÀ¥ê¥¹¥È", 0, 0);
5797 #else
5798         show_file(TRUE, file_name, "Resistances of *identified* equipment", 0, 0);
5799 #endif
5800
5801         /* Remove the file */
5802         fd_kill(file_name);
5803 }
5804
5805
5806 void do_cmd_save_screen_html_aux(char *filename, int message)
5807 {
5808         int y, x, i;
5809
5810         byte a = 0, old_a = 0;
5811         char c = ' ';
5812
5813         FILE *fff, *tmpfff;
5814         char buf[2048];
5815
5816         int yomikomu = 0;
5817         cptr tags[4] = {
5818                 "HEADER_START:",
5819                 "HEADER_END:",
5820                 "FOOTER_START:",
5821                 "FOOTER_END:",
5822         };
5823
5824         cptr html_head[] = {
5825                 "<html>\n<body text=\"#ffffff\" bgcolor=\"#000000\">\n",
5826                 "<pre>",
5827                 0,
5828         };
5829         cptr html_foot[] = {
5830                 "</pre>\n",
5831                 "</body>\n</html>\n",
5832                 0,
5833         };
5834
5835         int wid, hgt;
5836
5837         Term_get_size(&wid, &hgt);
5838
5839         /* File type is "TEXT" */
5840         FILE_TYPE(FILE_TYPE_TEXT);
5841
5842         /* Append to the file */
5843         fff = my_fopen(filename, "w");
5844
5845         /* Oops */
5846         if (!fff) {
5847                 if (message) {
5848 #ifdef JP
5849                     msg_format("¥Õ¥¡¥¤¥ë %s ¤ò³«¤±¤Þ¤»¤ó¤Ç¤·¤¿¡£", filename);
5850 #else
5851                     msg_format("Failed to open file %s.", filename);
5852 #endif
5853                     msg_print(NULL);
5854                 }
5855
5856                 return;
5857         }
5858
5859         /* Save the screen */
5860         if (message)
5861                 screen_save();
5862
5863         /* Build the filename */
5864         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, "htmldump.prf");
5865         tmpfff = my_fopen(buf, "r");
5866         if (!tmpfff) {
5867                 for (i = 0; html_head[i]; i++)
5868                         fprintf(fff, html_head[i]);
5869         }
5870         else {
5871                 yomikomu = 0;
5872                 while (!my_fgets(tmpfff, buf, sizeof(buf))) {
5873                         if (!yomikomu) {
5874                                 if (strncmp(buf, tags[0], strlen(tags[0])) == 0)
5875                                         yomikomu = 1;
5876                         }
5877                         else {
5878                                 if (strncmp(buf, tags[1], strlen(tags[1])) == 0)
5879                                         break;
5880                                 fprintf(fff, "%s\n", buf);
5881                         }
5882                 }
5883         }
5884
5885         /* Dump the screen */
5886         for (y = 0; y < hgt; y++)
5887         {
5888                 /* Start the row */
5889                 if (y != 0)
5890                         fprintf(fff, "\n");
5891
5892                 /* Dump each row */
5893                 for (x = 0; x < wid - 1; x++)
5894                 {
5895                         int rv, gv, bv;
5896                         cptr cc = NULL;
5897                         /* Get the attr/char */
5898                         (void)(Term_what(x, y, &a, &c));
5899
5900                         switch (c)
5901                         {
5902                         case '&': cc = "&amp;"; break;
5903                         case '<': cc = "&lt;"; break;
5904                         case '>': cc = "&gt;"; break;
5905 #ifdef WINDOWS
5906                         case 0x1f: c = '.'; break;
5907                         case 0x7f: c = (a == 0x09) ? '%' : '#'; break;
5908 #endif
5909                         }
5910
5911                         a = a & 0x0F;
5912                         if ((y == 0 && x == 0) || a != old_a) {
5913                                 rv = angband_color_table[a][1];
5914                                 gv = angband_color_table[a][2];
5915                                 bv = angband_color_table[a][3];
5916                                 fprintf(fff, "%s<font color=\"#%02x%02x%02x\">",
5917                                         ((y == 0 && x == 0) ? "" : "</font>"), rv, gv, bv);
5918                                 old_a = a;
5919                         }
5920                         if (cc)
5921                                 fprintf(fff, "%s", cc);
5922                         else
5923                                 fprintf(fff, "%c", c);
5924                 }
5925         }
5926         fprintf(fff, "</font>");
5927
5928         if (!tmpfff) {
5929                 for (i = 0; html_foot[i]; i++)
5930                         fprintf(fff, html_foot[i]);
5931         }
5932         else {
5933                 rewind(tmpfff);
5934                 yomikomu = 0;
5935                 while (!my_fgets(tmpfff, buf, sizeof(buf))) {
5936                         if (!yomikomu) {
5937                                 if (strncmp(buf, tags[2], strlen(tags[2])) == 0)
5938                                         yomikomu = 1;
5939                         }
5940                         else {
5941                                 if (strncmp(buf, tags[3], strlen(tags[3])) == 0)
5942                                         break;
5943                                 fprintf(fff, "%s\n", buf);
5944                         }
5945                 }
5946                 my_fclose(tmpfff);
5947         }
5948
5949         /* Skip a line */
5950         fprintf(fff, "\n");
5951
5952         /* Close it */
5953         my_fclose(fff);
5954
5955         /* Message */
5956         if (message) {
5957 #ifdef JP
5958         msg_print("²èÌÌ(µÇ°»£±Æ)¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤·¤Þ¤·¤¿¡£");
5959 #else
5960                 msg_print("Screen dump saved.");
5961 #endif
5962                 msg_print(NULL);
5963         }
5964
5965         /* Restore the screen */
5966         if (message)
5967                 screen_load();
5968 }
5969
5970 /*
5971  * Hack -- save a screen dump to a file
5972  */
5973 static void do_cmd_save_screen_html(void)
5974 {
5975         char buf[1024], tmp[256] = "screen.html";
5976
5977 #ifdef JP
5978         if (!get_string("¥Õ¥¡¥¤¥ëÌ¾: ", tmp, 80))
5979 #else
5980         if (!get_string("File name: ", tmp, 80))
5981 #endif
5982                 return;
5983
5984         /* Build the filename */
5985         path_build(buf, sizeof(buf), ANGBAND_DIR_USER, tmp);
5986
5987         msg_print(NULL);
5988
5989         do_cmd_save_screen_html_aux(buf, 1);
5990 }
5991
5992
5993 /*
5994  * Redefinable "save_screen" action
5995  */
5996 void (*screendump_aux)(void) = NULL;
5997
5998
5999 /*
6000  * Hack -- save a screen dump to a file
6001  */
6002 void do_cmd_save_screen(void)
6003 {
6004         bool old_use_graphics = use_graphics;
6005         bool html_dump = FALSE;
6006
6007         int wid, hgt;
6008
6009 #ifdef JP
6010         prt("µÇ°»£±Æ¤·¤Þ¤¹¤«¡© [(y)es/(h)tml/(n)o] ", 0, 0);
6011 #else
6012         prt("Save screen dump? [(y)es/(h)tml/(n)o] ", 0, 0);
6013 #endif
6014         while(TRUE)
6015         {
6016                 char c = inkey();
6017                 if (c == 'Y' || c == 'y')
6018                         break;
6019                 else if (c == 'H' || c == 'h')
6020                 {
6021                         html_dump = TRUE;
6022                         break;
6023                 }
6024                 else
6025                 {
6026                         prt("", 0, 0);
6027                         return;
6028                 }
6029         }
6030
6031         Term_get_size(&wid, &hgt);
6032
6033         if (old_use_graphics)
6034         {
6035                 use_graphics = FALSE;
6036                 reset_visuals();
6037
6038                 /* Redraw everything */
6039                 p_ptr->redraw |= (PR_WIPE | PR_BASIC | PR_EXTRA | PR_MAP | PR_EQUIPPY);
6040
6041                 /* Hack -- update */
6042                 handle_stuff();
6043         }
6044
6045         if (html_dump)
6046         {
6047                 do_cmd_save_screen_html();
6048                 do_cmd_redraw();
6049         }
6050
6051         /* Do we use a special screendump function ? */
6052         else if (screendump_aux)
6053         {
6054                 /* Dump the screen to a graphics file */
6055                 (*screendump_aux)();
6056         }
6057         else /* Dump the screen as text */
6058         {
6059                 int y, x;
6060
6061                 byte a = 0;
6062                 char c = ' ';
6063
6064                 FILE *fff;
6065
6066                 char buf[1024];
6067
6068                 /* Build the filename */
6069                 path_build(buf, sizeof(buf), ANGBAND_DIR_USER, "dump.txt");
6070
6071                 /* File type is "TEXT" */
6072                 FILE_TYPE(FILE_TYPE_TEXT);
6073
6074                 /* Append to the file */
6075                 fff = my_fopen(buf, "w");
6076
6077                 /* Oops */
6078                 if (!fff)
6079                 {
6080 #ifdef JP
6081                         msg_format("¥Õ¥¡¥¤¥ë %s ¤ò³«¤±¤Þ¤»¤ó¤Ç¤·¤¿¡£", buf);
6082 #else
6083                         msg_format("Failed to open file %s.", buf);
6084 #endif
6085                         msg_print(NULL);
6086                         return;
6087                 }
6088
6089
6090                 /* Save the screen */
6091                 screen_save();
6092
6093
6094                 /* Dump the screen */
6095                 for (y = 0; y < hgt; y++)
6096                 {
6097                         /* Dump each row */
6098                         for (x = 0; x < wid - 1; x++)
6099                         {
6100                                 /* Get the attr/char */
6101                                 (void)(Term_what(x, y, &a, &c));
6102
6103                                 /* Dump it */
6104                                 buf[x] = c;
6105                         }
6106
6107                         /* Terminate */
6108                         buf[x] = '\0';
6109
6110                         /* End the row */
6111                         fprintf(fff, "%s\n", buf);
6112                 }
6113
6114                 /* Skip a line */
6115                 fprintf(fff, "\n");
6116
6117
6118                 /* Dump the screen */
6119                 for (y = 0; y < hgt; y++)
6120                 {
6121                         /* Dump each row */
6122                         for (x = 0; x < wid - 1; x++)
6123                         {
6124                                 /* Get the attr/char */
6125                                 (void)(Term_what(x, y, &a, &c));
6126
6127                                 /* Dump it */
6128                                 buf[x] = hack[a&0x0F];
6129                         }
6130
6131                         /* Terminate */
6132                         buf[x] = '\0';
6133
6134                         /* End the row */
6135                         fprintf(fff, "%s\n", buf);
6136                 }
6137
6138                 /* Skip a line */
6139                 fprintf(fff, "\n");
6140
6141
6142                 /* Close it */
6143                 my_fclose(fff);
6144
6145                 /* Message */
6146 #ifdef JP
6147         msg_print("²èÌÌ(µÇ°»£±Æ)¤ò¥Õ¥¡¥¤¥ë¤Ë½ñ¤½Ð¤·¤Þ¤·¤¿¡£");
6148 #else
6149                 msg_print("Screen dump saved.");
6150 #endif
6151
6152                 msg_print(NULL);
6153
6154
6155                 /* Restore the screen */
6156                 screen_load();
6157         }
6158
6159         if (old_use_graphics)
6160         {
6161                 use_graphics = TRUE;
6162                 reset_visuals();
6163
6164                 /* Redraw everything */
6165                 p_ptr->redraw |= (PR_WIPE | PR_BASIC | PR_EXTRA | PR_MAP | PR_EQUIPPY);
6166
6167                 /* Hack -- update */
6168                 handle_stuff();
6169         }
6170 }
6171
6172
6173 /*
6174  * Sorting hook -- Comp function -- see below
6175  *
6176  * We use "u" to point to array of monster indexes,
6177  * and "v" to select the type of sorting to perform on "u".
6178  */
6179 static bool ang_sort_art_comp(vptr u, vptr v, int a, int b)
6180 {
6181         u16b *who = (u16b*)(u);
6182
6183         u16b *why = (u16b*)(v);
6184
6185         int w1 = who[a];
6186         int w2 = who[b];
6187
6188         int z1, z2;
6189
6190         /* Sort by total kills */
6191         if (*why >= 3)
6192         {
6193                 /* Extract total kills */
6194                 z1 = a_info[w1].tval;
6195                 z2 = a_info[w2].tval;
6196
6197                 /* Compare total kills */
6198                 if (z1 < z2) return (TRUE);
6199                 if (z1 > z2) return (FALSE);
6200         }
6201
6202
6203         /* Sort by monster level */
6204         if (*why >= 2)
6205         {
6206                 /* Extract levels */
6207                 z1 = a_info[w1].sval;
6208                 z2 = a_info[w2].sval;
6209
6210                 /* Compare levels */
6211                 if (z1 < z2) return (TRUE);
6212                 if (z1 > z2) return (FALSE);
6213         }
6214
6215
6216         /* Sort by monster experience */
6217         if (*why >= 1)
6218         {
6219                 /* Extract experience */
6220                 z1 = a_info[w1].level;
6221                 z2 = a_info[w2].level;
6222
6223                 /* Compare experience */
6224                 if (z1 < z2) return (TRUE);
6225                 if (z1 > z2) return (FALSE);
6226         }
6227
6228
6229         /* Compare indexes */
6230         return (w1 <= w2);
6231 }
6232
6233
6234 /*
6235  * Sorting hook -- Swap function -- see below
6236  *
6237  * We use "u" to point to array of monster indexes,
6238  * and "v" to select the type of sorting to perform.
6239  */
6240 static void ang_sort_art_swap(vptr u, vptr v, int a, int b)
6241 {
6242         u16b *who = (u16b*)(u);
6243
6244         u16b holder;
6245
6246         /* Unused */
6247         (void)v;
6248
6249         /* Swap */
6250         holder = who[a];
6251         who[a] = who[b];
6252         who[b] = holder;
6253 }
6254
6255
6256 /*
6257  * Check the status of "artifacts"
6258  */
6259 static void do_cmd_knowledge_artifacts(void)
6260 {
6261         int i, k, z, x, y, n = 0;
6262         u16b why = 3;
6263         s16b *who;
6264
6265         FILE *fff;
6266
6267         char file_name[1024];
6268
6269         char base_name[MAX_NLEN];
6270
6271         bool *okay;
6272
6273         /* Open a new file */
6274         fff = my_fopen_temp(file_name, 1024);
6275
6276         if (!fff) {
6277 #ifdef JP
6278             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
6279 #else
6280             msg_format("Failed to create temporary file %s.", file_name);
6281 #endif
6282             msg_print(NULL);
6283             return;
6284         }
6285
6286         /* Allocate the "who" array */
6287         C_MAKE(who, max_a_idx, s16b);
6288
6289         /* Allocate the "okay" array */
6290         C_MAKE(okay, max_a_idx, bool);
6291
6292         /* Scan the artifacts */
6293         for (k = 0; k < max_a_idx; k++)
6294         {
6295                 artifact_type *a_ptr = &a_info[k];
6296
6297                 /* Default */
6298                 okay[k] = FALSE;
6299
6300                 /* Skip "empty" artifacts */
6301                 if (!a_ptr->name) continue;
6302
6303                 /* Skip "uncreated" artifacts */
6304                 if (!a_ptr->cur_num) continue;
6305
6306                 /* Assume okay */
6307                 okay[k] = TRUE;
6308         }
6309
6310         /* Check the dungeon */
6311         for (y = 0; y < cur_hgt; y++)
6312         {
6313                 for (x = 0; x < cur_wid; x++)
6314                 {
6315                         cave_type *c_ptr = &cave[y][x];
6316
6317                         s16b this_o_idx, next_o_idx = 0;
6318
6319                         /* Scan all objects in the grid */
6320                         for (this_o_idx = c_ptr->o_idx; this_o_idx; this_o_idx = next_o_idx)
6321                         {
6322                                 object_type *o_ptr;
6323
6324                                 /* Acquire object */
6325                                 o_ptr = &o_list[this_o_idx];
6326
6327                                 /* Acquire next object */
6328                                 next_o_idx = o_ptr->next_o_idx;
6329
6330                                 /* Ignore non-artifacts */
6331                                 if (!artifact_p(o_ptr)) continue;
6332
6333                                 /* Ignore known items */
6334                                 if (object_known_p(o_ptr)) continue;
6335
6336                                 /* Note the artifact */
6337                                 okay[o_ptr->name1] = FALSE;
6338                         }
6339                 }
6340         }
6341
6342         /* Check the inventory and equipment */
6343         for (i = 0; i < INVEN_TOTAL; i++)
6344         {
6345                 object_type *o_ptr = &inventory[i];
6346
6347                 /* Ignore non-objects */
6348                 if (!o_ptr->k_idx) continue;
6349
6350                 /* Ignore non-artifacts */
6351                 if (!artifact_p(o_ptr)) continue;
6352
6353                 /* Ignore known items */
6354                 if (object_known_p(o_ptr)) continue;
6355
6356                 /* Note the artifact */
6357                 okay[o_ptr->name1] = FALSE;
6358         }
6359
6360         for (k = 0; k < max_a_idx; k++)
6361         {
6362                 if (okay[k]) who[n++] = k;
6363         }
6364
6365         /* Select the sort method */
6366         ang_sort_comp = ang_sort_art_comp;
6367         ang_sort_swap = ang_sort_art_swap;
6368
6369         /* Sort the array by dungeon depth of monsters */
6370         ang_sort(who, &why, n);
6371
6372         /* Scan the artifacts */
6373         for (k = 0; k < n; k++)
6374         {
6375                 artifact_type *a_ptr = &a_info[who[k]];
6376
6377                 /* Paranoia */
6378 #ifdef JP
6379                 strcpy(base_name, "Ì¤ÃÎ¤ÎÅÁÀâ¤Î¥¢¥¤¥Æ¥à");
6380 #else
6381                 strcpy(base_name, "Unknown Artifact");
6382 #endif
6383
6384
6385                 /* Obtain the base object type */
6386                 z = lookup_kind(a_ptr->tval, a_ptr->sval);
6387
6388                 /* Real object */
6389                 if (z)
6390                 {
6391                         object_type forge;
6392                         object_type *q_ptr;
6393
6394                         /* Get local object */
6395                         q_ptr = &forge;
6396
6397                         /* Create fake object */
6398                         object_prep(q_ptr, z);
6399
6400                         /* Make it an artifact */
6401                         q_ptr->name1 = (byte)who[k];
6402
6403                         /* Display as if known */
6404                         q_ptr->ident |= IDENT_STORE;
6405
6406                         /* Describe the artifact */
6407                         object_desc(base_name, q_ptr, (OD_OMIT_PREFIX | OD_NAME_ONLY));
6408                 }
6409
6410                 /* Hack -- Build the artifact name */
6411 #ifdef JP
6412                 fprintf(fff, "     %s\n", base_name);
6413 #else
6414                 fprintf(fff, "     The %s\n", base_name);
6415 #endif
6416
6417         }
6418
6419         /* Free the "who" array */
6420         C_KILL(who, max_a_idx, s16b);
6421
6422         /* Free the "okay" array */
6423         C_KILL(okay, max_a_idx, bool);
6424
6425         /* Close the file */
6426         my_fclose(fff);
6427
6428         /* Display the file contents */
6429 #ifdef JP
6430         show_file(TRUE, file_name, "´ûÃÎ¤ÎÅÁÀâ¤Î¥¢¥¤¥Æ¥à", 0, 0);
6431 #else
6432         show_file(TRUE, file_name, "Artifacts Seen", 0, 0);
6433 #endif
6434
6435
6436         /* Remove the file */
6437         fd_kill(file_name);
6438 }
6439
6440
6441 /*
6442  * Display known uniques
6443  */
6444 static void do_cmd_knowledge_uniques(void)
6445 {
6446         int i, k, n = 0;
6447         u16b why = 2;
6448         s16b *who;
6449
6450         FILE *fff;
6451
6452         char file_name[1024];
6453
6454         /* Open a new file */
6455         fff = my_fopen_temp(file_name, 1024);
6456
6457         if (!fff) {
6458 #ifdef JP
6459             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
6460 #else
6461             msg_format("Failed to create temporary file %s.", file_name);
6462 #endif
6463             msg_print(NULL);
6464             return;
6465         }
6466
6467         /* Allocate the "who" array */
6468         C_MAKE(who, max_r_idx, s16b);
6469
6470         /* Scan the monsters */
6471         for (i = 1; i < max_r_idx; i++)
6472         {
6473                 monster_race *r_ptr = &r_info[i];
6474
6475                 /* Use that monster */
6476                 if (r_ptr->name) who[n++] = i;
6477         }
6478
6479         /* Select the sort method */
6480         ang_sort_comp = ang_sort_comp_hook;
6481         ang_sort_swap = ang_sort_swap_hook;
6482
6483         /* Sort the array by dungeon depth of monsters */
6484         ang_sort(who, &why, n);
6485
6486         /* Scan the monster races */
6487         for (k = 0; k < n; k++)
6488         {
6489                 monster_race *r_ptr = &r_info[who[k]];
6490
6491                 /* Only print Uniques */
6492                 if (r_ptr->flags1 & (RF1_UNIQUE))
6493                 {
6494                         bool dead = (r_ptr->max_num == 0);
6495
6496                         if (dead) continue;
6497
6498                         /* Only display "known" uniques */
6499                         if (dead || cheat_know || r_ptr->r_sights)
6500                         {
6501                                 /* Print a message */
6502 #ifdef JP
6503                                 fprintf(fff, "     %s¤Ï¤Þ¤ÀÀ¸¤¤Æ¤¤¤ë¡£\n",
6504                                         (r_name + r_ptr->name));
6505 #else
6506                                 fprintf(fff, "     %s is alive\n",
6507                                         (r_name + r_ptr->name));
6508 #endif
6509
6510                         }
6511                 }
6512         }
6513
6514         /* Free the "who" array */
6515         C_KILL(who, max_r_idx, s16b);
6516
6517         /* Close the file */
6518         my_fclose(fff);
6519
6520         /* Display the file contents */
6521 #ifdef JP
6522         show_file(TRUE, file_name, "¤Þ¤ÀÀ¸¤¤Æ¤¤¤ë¥æ¥Ë¡¼¥¯¡¦¥â¥ó¥¹¥¿¡¼", 0, 0);
6523 #else
6524         show_file(TRUE, file_name, "Alive Uniques", 0, 0);
6525 #endif
6526
6527
6528         /* Remove the file */
6529         fd_kill(file_name);
6530 }
6531
6532
6533 /*
6534  * Display weapon-exp
6535  */
6536 static void do_cmd_knowledge_weapon_exp(void)
6537 {
6538         int i, j, num, weapon_exp;
6539
6540         FILE *fff;
6541
6542         char file_name[1024];
6543         char tmp[30];
6544
6545         /* Open a new file */
6546         fff = my_fopen_temp(file_name, 1024);
6547         if (!fff) {
6548 #ifdef JP
6549             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
6550 #else
6551             msg_format("Failed to create temporary file %s.", file_name);
6552 #endif
6553             msg_print(NULL);
6554             return;
6555         }
6556
6557         for (i = 0; i < 5; i++)
6558         {
6559                 for (num = 0; num < 64; num++)
6560                 {
6561                         for (j = 0; j < max_k_idx; j++)
6562                         {
6563                                 object_kind *k_ptr = &k_info[j];
6564
6565                                 if ((k_ptr->tval == TV_SWORD - i) && (k_ptr->sval == num))
6566                                 {
6567                                         if ((k_ptr->tval == TV_BOW) && (k_ptr->sval == SV_CRIMSON)) continue;
6568
6569                                         weapon_exp = p_ptr->weapon_exp[4 - i][num];
6570                                         strip_name(tmp, j);
6571                                         fprintf(fff, "%-25s ", tmp);
6572                                         if (weapon_exp >= s_info[p_ptr->pclass].w_max[4 - i][num]) fprintf(fff, "!");
6573                                         else fprintf(fff, " ");
6574                                         fprintf(fff, "%s", exp_level_str[weapon_exp_level(weapon_exp)]);
6575                                         if (cheat_xtra) fprintf(fff, " %d", weapon_exp);
6576                                         fprintf(fff, "\n");
6577                                         break;
6578                                 }
6579                         }
6580                 }
6581         }
6582
6583         /* Close the file */
6584         my_fclose(fff);
6585
6586         /* Display the file contents */
6587 #ifdef JP
6588         show_file(TRUE, file_name, "Éð´ï¤Î·Ð¸³ÃÍ", 0, 0);
6589 #else
6590         show_file(TRUE, file_name, "Weapon Proficiency", 0, 0);
6591 #endif
6592
6593
6594         /* Remove the file */
6595         fd_kill(file_name);
6596 }
6597
6598
6599 /*
6600  * Display spell-exp
6601  */
6602 static void do_cmd_knowledge_spell_exp(void)
6603 {
6604         int i = 0, spell_exp, exp_level;
6605
6606         FILE *fff;
6607         magic_type *s_ptr;
6608
6609         char file_name[1024];
6610
6611         /* Open a new file */
6612         fff = my_fopen_temp(file_name, 1024);
6613         if (!fff) {
6614 #ifdef JP
6615             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
6616 #else
6617             msg_format("Failed to create temporary file %s.", file_name);
6618 #endif
6619             msg_print(NULL);
6620             return;
6621         }
6622
6623         if (p_ptr->realm1 != REALM_NONE)
6624         {
6625 #ifdef JP
6626                 fprintf(fff, "%s¤ÎËâË¡½ñ\n", realm_names[p_ptr->realm1]);
6627 #else
6628                 fprintf(fff, "%s Spellbook\n", realm_names[p_ptr->realm1]);
6629 #endif
6630                 for (i = 0; i < 32; i++)
6631                 {
6632                         if (!is_magic(p_ptr->realm1))
6633                         {
6634                                 s_ptr = &technic_info[p_ptr->realm1 - MIN_TECHNIC][i];
6635                         }
6636                         else
6637                         {
6638                                 s_ptr = &mp_ptr->info[p_ptr->realm1 - 1][i];
6639                         }
6640                         if (s_ptr->slevel >= 99) continue;
6641                         spell_exp = p_ptr->spell_exp[i];
6642                         exp_level = spell_exp_level(spell_exp);
6643                         fprintf(fff, "%-25s ", spell_names[technic2magic(p_ptr->realm1) - 1][i]);
6644                         if (p_ptr->realm1 == REALM_HISSATSU)
6645                                 fprintf(fff, "[--]");
6646                         else
6647                         {
6648                                 if (exp_level >= EXP_LEVEL_MASTER) fprintf(fff, "!");
6649                                 else fprintf(fff, " ");
6650                                 fprintf(fff, "%s", exp_level_str[exp_level]);
6651                         }
6652                         if (cheat_xtra) fprintf(fff, " %d", spell_exp);
6653                         fprintf(fff, "\n");
6654                 }
6655         }
6656
6657         if (p_ptr->realm2 != REALM_NONE)
6658         {
6659 #ifdef JP
6660                 fprintf(fff, "%s¤ÎËâË¡½ñ\n", realm_names[p_ptr->realm2]);
6661 #else
6662                 fprintf(fff, "\n%s Spellbook\n", realm_names[p_ptr->realm2]);
6663 #endif
6664                 for (i = 0; i < 32; i++)
6665                 {
6666                         if (!is_magic(p_ptr->realm1))
6667                         {
6668                                 s_ptr = &technic_info[p_ptr->realm2 - MIN_TECHNIC][i];
6669                         }
6670                         else
6671                         {
6672                                 s_ptr = &mp_ptr->info[p_ptr->realm2 - 1][i];
6673                         }
6674                         if (s_ptr->slevel >= 99) continue;
6675
6676                         spell_exp = p_ptr->spell_exp[i + 32];
6677                         exp_level = spell_exp_level(spell_exp);
6678                         fprintf(fff, "%-25s ", spell_names[technic2magic(p_ptr->realm2) - 1][i]);
6679                         if (exp_level >= EXP_LEVEL_EXPERT) fprintf(fff, "!");
6680                         else fprintf(fff, " ");
6681                         fprintf(fff, "%s", exp_level_str[exp_level]);
6682                         if (cheat_xtra) fprintf(fff, " %d", spell_exp);
6683                         fprintf(fff, "\n");
6684                 }
6685         }
6686
6687         /* Close the file */
6688         my_fclose(fff);
6689
6690         /* Display the file contents */
6691 #ifdef JP
6692         show_file(TRUE, file_name, "ËâË¡¤Î·Ð¸³ÃÍ", 0, 0);
6693 #else
6694         show_file(TRUE, file_name, "Spell Proficiency", 0, 0);
6695 #endif
6696
6697
6698         /* Remove the file */
6699         fd_kill(file_name);
6700 }
6701
6702
6703 /*
6704  * Display skill-exp
6705  */
6706 static void do_cmd_knowledge_skill_exp(void)
6707 {
6708         int i = 0, skill_exp;
6709
6710         FILE *fff;
6711
6712         char file_name[1024];
6713 #ifdef JP
6714         char skill_name[3][17]={"¥Þ¡¼¥·¥ã¥ë¥¢¡¼¥Ä", "ÆóÅáÎ®          ", "¾èÇÏ            "};
6715 #else
6716         char skill_name[3][20]={"Martial Arts    ", "Dual Wielding   ", "Riding          "};
6717 #endif
6718
6719         /* Open a new file */
6720         fff = my_fopen_temp(file_name, 1024);
6721         if (!fff) {
6722 #ifdef JP
6723             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
6724 #else
6725             msg_format("Failed to create temporary file %s.", file_name);
6726 #endif
6727             msg_print(NULL);
6728             return;
6729         }
6730
6731         for (i = 0; i < 3; i++)
6732         {
6733                 skill_exp = p_ptr->skill_exp[i];
6734                 fprintf(fff, "%-20s ", skill_name[i]);
6735                 if (skill_exp >= s_info[p_ptr->pclass].s_max[i]) fprintf(fff, "!");
6736                 else fprintf(fff, " ");
6737                 fprintf(fff, "%s", exp_level_str[(i == GINOU_RIDING) ? riding_exp_level(skill_exp) : weapon_exp_level(skill_exp)]);
6738                 if (cheat_xtra) fprintf(fff, " %d", skill_exp);
6739                 fprintf(fff, "\n");
6740         }
6741
6742         /* Close the file */
6743         my_fclose(fff);
6744
6745         /* Display the file contents */
6746 #ifdef JP
6747         show_file(TRUE, file_name, "µ»Ç½¤Î·Ð¸³ÃÍ", 0, 0);
6748 #else
6749         show_file(TRUE, file_name, "Miscellaneous Proficiency", 0, 0);
6750 #endif
6751
6752
6753         /* Remove the file */
6754         fd_kill(file_name);
6755 }
6756
6757
6758 /*
6759  * Pluralize a monster name
6760  */
6761 void plural_aux(char *Name)
6762 {
6763         int NameLen = strlen(Name);
6764
6765         if (my_strstr(Name, "Disembodied hand"))
6766         {
6767                 strcpy(Name, "Disembodied hands that strangled people");
6768         }
6769         else if (my_strstr(Name, "Colour out of space"))
6770         {
6771                 strcpy(Name, "Colours out of space");
6772         }
6773         else if (my_strstr(Name, "stairway to hell"))
6774         {
6775                 strcpy(Name, "stairways to hell");
6776         }
6777         else if (my_strstr(Name, "Dweller on the threshold"))
6778         {
6779                 strcpy(Name, "Dwellers on the threshold");
6780         }
6781         else if (my_strstr(Name, " of "))
6782         {
6783                 cptr aider = my_strstr(Name, " of ");
6784                 char dummy[80];
6785                 int i = 0;
6786                 cptr ctr = Name;
6787
6788                 while (ctr < aider)
6789                 {
6790                         dummy[i] = *ctr;
6791                         ctr++; i++;
6792                 }
6793
6794                 if (dummy[i-1] == 's')
6795                 {
6796                         strcpy(&(dummy[i]), "es");
6797                         i++;
6798                 }
6799                 else
6800                 {
6801                         strcpy(&(dummy[i]), "s");
6802                 }
6803
6804                 strcpy(&(dummy[i+1]), aider);
6805                 strcpy(Name, dummy);
6806         }
6807         else if (my_strstr(Name, "coins"))
6808         {
6809                 char dummy[80];
6810                 strcpy(dummy, "piles of ");
6811                 strcat(dummy, Name);
6812                 strcpy(Name, dummy);
6813                 return;
6814         }
6815         else if (my_strstr(Name, "Manes"))
6816         {
6817                 return;
6818         }
6819         else if (streq(&(Name[NameLen - 2]), "ey"))
6820         {
6821                 strcpy(&(Name[NameLen - 2]), "eys");
6822         }
6823         else if (Name[NameLen - 1] == 'y')
6824         {
6825                 strcpy(&(Name[NameLen - 1]), "ies");
6826         }
6827         else if (streq(&(Name[NameLen - 4]), "ouse"))
6828         {
6829                 strcpy(&(Name[NameLen - 4]), "ice");
6830         }
6831         else if (streq(&(Name[NameLen - 2]), "us"))
6832         {
6833                 strcpy(&(Name[NameLen - 2]), "i");
6834         }
6835         else if (streq(&(Name[NameLen - 6]), "kelman"))
6836         {
6837                 strcpy(&(Name[NameLen - 6]), "kelmen");
6838         }
6839         else if (streq(&(Name[NameLen - 8]), "wordsman"))
6840         {
6841                 strcpy(&(Name[NameLen - 8]), "wordsmen");
6842         }
6843         else if (streq(&(Name[NameLen - 7]), "oodsman"))
6844         {
6845                 strcpy(&(Name[NameLen - 7]), "oodsmen");
6846         }
6847         else if (streq(&(Name[NameLen - 7]), "eastman"))
6848         {
6849                 strcpy(&(Name[NameLen - 7]), "eastmen");
6850         }
6851         else if (streq(&(Name[NameLen - 8]), "izardman"))
6852         {
6853                 strcpy(&(Name[NameLen - 8]), "izardmen");
6854         }
6855         else if (streq(&(Name[NameLen - 5]), "geist"))
6856         {
6857                 strcpy(&(Name[NameLen - 5]), "geister");
6858         }
6859         else if (streq(&(Name[NameLen - 2]), "ex"))
6860         {
6861                 strcpy(&(Name[NameLen - 2]), "ices");
6862         }
6863         else if (streq(&(Name[NameLen - 2]), "lf"))
6864         {
6865                 strcpy(&(Name[NameLen - 2]), "lves");
6866         }
6867         else if (suffix(Name, "ch") ||
6868                  suffix(Name, "sh") ||
6869                          suffix(Name, "nx") ||
6870                          suffix(Name, "s") ||
6871                          suffix(Name, "o"))
6872         {
6873                 strcpy(&(Name[NameLen]), "es");
6874         }
6875         else
6876         {
6877                 strcpy(&(Name[NameLen]), "s");
6878         }
6879 }
6880
6881 /*
6882  * Display current pets
6883  */
6884 static void do_cmd_knowledge_pets(void)
6885 {
6886         int             i;
6887         FILE            *fff;
6888         monster_type    *m_ptr;
6889         char            pet_name[80];
6890         int             t_friends = 0;
6891         int             show_upkeep = 0;
6892         char            file_name[1024];
6893
6894
6895         /* Open a new file */
6896         fff = my_fopen_temp(file_name, 1024);
6897         if (!fff) {
6898 #ifdef JP
6899             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
6900 #else
6901             msg_format("Failed to create temporary file %s.", file_name);
6902 #endif
6903             msg_print(NULL);
6904             return;
6905         }
6906
6907         /* Process the monsters (backwards) */
6908         for (i = m_max - 1; i >= 1; i--)
6909         {
6910                 /* Access the monster */
6911                 m_ptr = &m_list[i];
6912
6913                 /* Ignore "dead" monsters */
6914                 if (!m_ptr->r_idx) continue;
6915
6916                 /* Calculate "upkeep" for pets */
6917                 if (is_pet(m_ptr))
6918                 {
6919                         t_friends++;
6920                         monster_desc(pet_name, m_ptr, MD_ASSUME_VISIBLE | MD_INDEF_VISIBLE);
6921                         fprintf(fff, "%s (%s)\n", pet_name, look_mon_desc(m_ptr, 0x00));
6922                 }
6923         }
6924
6925         show_upkeep = calculate_upkeep();
6926
6927         fprintf(fff, "----------------------------------------------\n");
6928 #ifdef JP
6929         fprintf(fff, "    ¹ç·×: %d É¤¤Î¥Ú¥Ã¥È\n", t_friends);
6930         fprintf(fff, " °Ý»ý¥³¥¹¥È: %d%% MP\n", show_upkeep);
6931 #else
6932         fprintf(fff, "   Total: %d pet%s.\n",
6933                 t_friends, (t_friends == 1 ? "" : "s"));
6934         fprintf(fff, "   Upkeep: %d%% mana.\n", show_upkeep);
6935 #endif
6936
6937
6938
6939         /* Close the file */
6940         my_fclose(fff);
6941
6942         /* Display the file contents */
6943 #ifdef JP
6944         show_file(TRUE, file_name, "¸½ºß¤Î¥Ú¥Ã¥È", 0, 0);
6945 #else
6946         show_file(TRUE, file_name, "Current Pets", 0, 0);
6947 #endif
6948
6949
6950         /* Remove the file */
6951         fd_kill(file_name);
6952 }
6953
6954
6955 /*
6956  * Total kill count
6957  *
6958  * Note that the player ghosts are ignored.  XXX XXX XXX
6959  */
6960 static void do_cmd_knowledge_kill_count(void)
6961 {
6962         int i, k, n = 0;
6963         u16b why = 2;
6964         s16b *who;
6965
6966         FILE *fff;
6967
6968         char file_name[1024];
6969
6970         s32b Total = 0;
6971
6972
6973         /* Open a new file */
6974         fff = my_fopen_temp(file_name, 1024);
6975
6976         if (!fff) {
6977 #ifdef JP
6978             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
6979 #else
6980             msg_format("Failed to create temporary file %s.", file_name);
6981 #endif
6982             msg_print(NULL);
6983             return;
6984         }
6985
6986         /* Allocate the "who" array */
6987         C_MAKE(who, max_r_idx, s16b);
6988
6989         {
6990                 /* Monsters slain */
6991                 int kk;
6992
6993                 for (kk = 1; kk < max_r_idx; kk++)
6994                 {
6995                         monster_race *r_ptr = &r_info[kk];
6996
6997                         if (r_ptr->flags1 & (RF1_UNIQUE))
6998                         {
6999                                 bool dead = (r_ptr->max_num == 0);
7000
7001                                 if (dead)
7002                                 {
7003                                         Total++;
7004                                 }
7005                         }
7006                         else
7007                         {
7008                                 s16b This = r_ptr->r_pkills;
7009
7010                                 if (This > 0)
7011                                 {
7012                                         Total += This;
7013                                 }
7014                         }
7015                 }
7016
7017                 if (Total < 1)
7018 #ifdef JP
7019                         fprintf(fff,"¤¢¤Ê¤¿¤Ï¤Þ¤ÀÅ¨¤òÅÝ¤·¤Æ¤¤¤Ê¤¤¡£\n\n");
7020 #else
7021                         fprintf(fff,"You have defeated no enemies yet.\n\n");
7022 #endif
7023
7024                 else if (Total == 1)
7025 #ifdef JP
7026                         fprintf(fff,"¤¢¤Ê¤¿¤Ï°ìÉ¤¤ÎÅ¨¤òÅÝ¤·¤Æ¤¤¤ë¡£\n\n");
7027 #else
7028                         fprintf(fff,"You have defeated one enemy.\n\n");
7029 #endif
7030
7031                 else
7032 #ifdef JP
7033                         fprintf(fff,"¤¢¤Ê¤¿¤Ï %lu É¤¤ÎÅ¨¤òÅÝ¤·¤Æ¤¤¤ë¡£\n\n", Total);
7034 #else
7035                         fprintf(fff,"You have defeated %lu enemies.\n\n", Total);
7036 #endif
7037
7038         }
7039
7040         Total = 0;
7041
7042         /* Scan the monsters */
7043         for (i = 1; i < max_r_idx; i++)
7044         {
7045                 monster_race *r_ptr = &r_info[i];
7046
7047                 /* Use that monster */
7048                 if (r_ptr->name) who[n++] = i;
7049         }
7050
7051         /* Select the sort method */
7052         ang_sort_comp = ang_sort_comp_hook;
7053         ang_sort_swap = ang_sort_swap_hook;
7054
7055         /* Sort the array by dungeon depth of monsters */
7056         ang_sort(who, &why, n);
7057
7058         /* Scan the monster races */
7059         for (k = 0; k < n; k++)
7060         {
7061                 monster_race *r_ptr = &r_info[who[k]];
7062
7063                 if (r_ptr->flags1 & (RF1_UNIQUE))
7064                 {
7065                         bool dead = (r_ptr->max_num == 0);
7066
7067                         if (dead)
7068                         {
7069                                 /* Print a message */
7070                                 fprintf(fff, "     %s\n",
7071                                     (r_name + r_ptr->name));
7072                                 Total++;
7073                         }
7074                 }
7075                 else
7076                 {
7077                         s16b This = r_ptr->r_pkills;
7078
7079                         if (This > 0)
7080                         {
7081 #ifdef JP
7082                                 /* p,t¤Ï¿Í¤È¿ô¤¨¤ë by ita*/
7083                                 if(my_strchr("pt",r_ptr->d_char))
7084                                         fprintf(fff, "     %3d ¿Í¤Î %s\n", This, r_name + r_ptr->name);
7085                                 else
7086                                         fprintf(fff, "     %3d É¤¤Î %s\n", This, r_name + r_ptr->name);
7087 #else
7088                                 if (This < 2)
7089                                 {
7090                                         if (my_strstr(r_name + r_ptr->name, "coins"))
7091                                         {
7092                                                 fprintf(fff, "     1 pile of %s\n", (r_name + r_ptr->name));
7093                                         }
7094                                         else
7095                                         {
7096                                                 fprintf(fff, "     1 %s\n", (r_name + r_ptr->name));
7097                                         }
7098                                 }
7099                                 else
7100                                 {
7101                                         char ToPlural[80];
7102                                         strcpy(ToPlural, (r_name + r_ptr->name));
7103                                         plural_aux(ToPlural);
7104                                         fprintf(fff, "     %d %s\n", This, ToPlural);
7105                                 }
7106 #endif
7107
7108
7109                                 Total += This;
7110                         }
7111                 }
7112         }
7113
7114         fprintf(fff,"----------------------------------------------\n");
7115 #ifdef JP
7116         fprintf(fff,"    ¹ç·×: %lu É¤¤òÅÝ¤·¤¿¡£\n", Total);
7117 #else
7118         fprintf(fff,"   Total: %lu creature%s killed.\n",
7119                 Total, (Total == 1 ? "" : "s"));
7120 #endif
7121
7122
7123         /* Free the "who" array */
7124         C_KILL(who, max_r_idx, s16b);
7125
7126         /* Close the file */
7127         my_fclose(fff);
7128
7129         /* Display the file contents */
7130 #ifdef JP
7131         show_file(TRUE, file_name, "ÅÝ¤·¤¿Å¨¤Î¿ô", 0, 0);
7132 #else
7133         show_file(TRUE, file_name, "Kill Count", 0, 0);
7134 #endif
7135
7136
7137         /* Remove the file */
7138         fd_kill(file_name);
7139 }
7140
7141
7142 /*
7143  * Display the object groups.
7144  */
7145 static void display_group_list(int col, int row, int wid, int per_page,
7146         int grp_idx[], cptr group_text[], int grp_cur, int grp_top)
7147 {
7148         int i;
7149
7150         /* Display lines until done */
7151         for (i = 0; i < per_page && (grp_idx[i] >= 0); i++)
7152         {
7153                 /* Get the group index */
7154                 int grp = grp_idx[grp_top + i];
7155
7156                 /* Choose a color */
7157                 byte attr = (grp_top + i == grp_cur) ? TERM_L_BLUE : TERM_WHITE;
7158
7159                 /* Erase the entire line */
7160                 Term_erase(col, row + i, wid);
7161
7162                 /* Display the group label */
7163                 c_put_str(attr, group_text[grp], row + i, col);
7164         }
7165 }
7166
7167
7168 /*
7169  * Move the cursor in a browser window
7170  */
7171 static void browser_cursor(char ch, int *column, int *grp_cur, int grp_cnt,
7172                                                    int *list_cur, int list_cnt)
7173 {
7174         int d;
7175         int col = *column;
7176         int grp = *grp_cur;
7177         int list = *list_cur;
7178
7179         /* Extract direction */
7180         if (ch == ' ')
7181         {
7182                 /* Hack -- scroll up full screen */
7183                 d = 3;
7184         }
7185         else if (ch == '-')
7186         {
7187                 /* Hack -- scroll down full screen */
7188                 d = 9;
7189         }
7190         else
7191         {
7192                 d = get_keymap_dir(ch);
7193         }
7194
7195         if (!d) return;
7196
7197         /* Diagonals - hack */
7198         if ((ddx[d] > 0) && ddy[d])
7199         {
7200                 int browser_rows;
7201                 int wid, hgt;
7202
7203                 /* Get size */
7204                 Term_get_size(&wid, &hgt);
7205
7206                 browser_rows = hgt - 8;
7207
7208                 /* Browse group list */
7209                 if (!col)
7210                 {
7211                         int old_grp = grp;
7212
7213                         /* Move up or down */
7214                         grp += ddy[d] * (browser_rows - 1);
7215
7216                         /* Verify */
7217                         if (grp >= grp_cnt)     grp = grp_cnt - 1;
7218                         if (grp < 0) grp = 0;
7219                         if (grp != old_grp)     list = 0;
7220                 }
7221
7222                 /* Browse sub-list list */
7223                 else
7224                 {
7225                         /* Move up or down */
7226                         list += ddy[d] * browser_rows;
7227
7228                         /* Verify */
7229                         if (list >= list_cnt) list = list_cnt - 1;
7230                         if (list < 0) list = 0;
7231                 }
7232
7233                 (*grp_cur) = grp;
7234                 (*list_cur) = list;
7235
7236                 return;
7237         }
7238
7239         if (ddx[d])
7240         {
7241                 col += ddx[d];
7242                 if (col < 0) col = 0;
7243                 if (col > 1) col = 1;
7244
7245                 (*column) = col;
7246
7247                 return;
7248         }
7249
7250         /* Browse group list */
7251         if (!col)
7252         {
7253                 int old_grp = grp;
7254
7255                 /* Move up or down */
7256                 grp += ddy[d];
7257
7258                 /* Verify */
7259                 if (grp >= grp_cnt)     grp = grp_cnt - 1;
7260                 if (grp < 0) grp = 0;
7261                 if (grp != old_grp)     list = 0;
7262         }
7263
7264         /* Browse sub-list list */
7265         else
7266         {
7267                 /* Move up or down */
7268                 list += ddy[d];
7269
7270                 /* Verify */
7271                 if (list >= list_cnt) list = list_cnt - 1;
7272                 if (list < 0) list = 0;
7273         }
7274
7275         (*grp_cur) = grp;
7276         (*list_cur) = list;
7277 }
7278
7279
7280 /*
7281  * Display visuals.
7282  */
7283 static void display_visual_list(int col, int row, int height, int width, byte attr_top, byte char_left)
7284 {
7285         int i, j;
7286
7287         /* Clear the display lines */
7288         for (i = 0; i < height; i++)
7289         {
7290                 Term_erase(col, row + i, width);
7291         }
7292
7293         /* Bigtile mode uses double width */
7294         if (use_bigtile) width /= 2;
7295
7296         /* Display lines until done */
7297         for (i = 0; i < height; i++)
7298         {
7299                 /* Display columns until done */
7300                 for (j = 0; j < width; j++)
7301                 {
7302                         byte a;
7303                         char c;
7304                         int x = col + j;
7305                         int y = row + i;
7306                         int ia, ic;
7307
7308                         /* Bigtile mode uses double width */
7309                         if (use_bigtile) x += j;
7310
7311                         ia = attr_top + i;
7312                         ic = char_left + j;
7313
7314                         /* Ignore illegal characters */
7315                         if (ia > 0x7f || ic > 0xff || ic < ' ' ||
7316                             (!use_graphics && ic > 0x7f))
7317                                 continue;
7318
7319                         a = (byte)ia;
7320                         c = (char)ic;
7321
7322                         /* Force correct code for both ASCII character and tile */
7323                         if (c & 0x80) a |= 0x80;
7324
7325                         /* Display symbol */
7326                         Term_queue_bigchar(x, y, a, c, 0, 0);
7327                 }
7328         }
7329 }
7330
7331
7332 /*
7333  * Place the cursor at the collect position for visual mode
7334  */
7335 static void place_visual_list_cursor(int col, int row, byte a, byte c, byte attr_top, byte char_left)
7336 {
7337         int i = (a & 0x7f) - attr_top;
7338         int j = c - char_left;
7339
7340         int x = col + j;
7341         int y = row + i;
7342
7343         /* Bigtile mode uses double width */
7344         if (use_bigtile) x += j;
7345
7346         /* Place the cursor */
7347         Term_gotoxy(x, y);
7348 }
7349
7350
7351 /*
7352  *  Clipboard variables for copy&paste in visual mode
7353  */
7354 static byte attr_idx = 0;
7355 static byte char_idx = 0;
7356
7357 /* Hack -- for feature lighting */
7358 static byte attr_idx_feat[F_LIT_MAX] = {0, 0, 0, 0};
7359 static byte char_idx_feat[F_LIT_MAX] = {0, 0, 0, 0};
7360
7361 /*
7362  *  Do visual mode command -- Change symbols
7363  */
7364 static bool visual_mode_command(char ch, bool *visual_list_ptr,
7365                                 int height, int width,
7366                                 byte *attr_top_ptr, byte *char_left_ptr,
7367                                 byte *cur_attr_ptr, byte *cur_char_ptr, bool *need_redraw)
7368 {
7369         static byte attr_old = 0, char_old = 0;
7370
7371         switch (ch)
7372         {
7373         case ESCAPE:
7374                 if (*visual_list_ptr)
7375                 {
7376                         /* Cancel change */
7377                         *cur_attr_ptr = attr_old;
7378                         *cur_char_ptr = char_old;
7379                         *visual_list_ptr = FALSE;
7380
7381                         return TRUE;
7382                 }
7383
7384                 break;
7385
7386         case '\n':
7387         case '\r':
7388                 if (*visual_list_ptr)
7389                 {
7390                         /* Accept change */
7391                         *visual_list_ptr = FALSE;
7392                         *need_redraw = TRUE;
7393
7394                         return TRUE;
7395                 }
7396                 break;
7397
7398         case 'V':
7399         case 'v':
7400                 if (!*visual_list_ptr)
7401                 {
7402                         *visual_list_ptr = TRUE;
7403
7404                         *attr_top_ptr = MAX(0, (*cur_attr_ptr & 0x7f) - 5);
7405                         *char_left_ptr = MAX(0, *cur_char_ptr - 10);
7406
7407                         attr_old = *cur_attr_ptr;
7408                         char_old = *cur_char_ptr;
7409
7410                         return TRUE;
7411                 }
7412                 break;
7413
7414         case 'C':
7415         case 'c':
7416                 {
7417                         int i;
7418
7419                         /* Set the visual */
7420                         attr_idx = *cur_attr_ptr;
7421                         char_idx = *cur_char_ptr;
7422
7423                         /* Hack -- for feature lighting */
7424                         for (i = 0; i < F_LIT_MAX; i++)
7425                         {
7426                                 attr_idx_feat[i] = 0;
7427                                 char_idx_feat[i] = 0;
7428                         }
7429                 }
7430                 return TRUE;
7431
7432         case 'P':
7433         case 'p':
7434                 if (attr_idx || (!(char_idx & 0x80) && char_idx)) /* Allow ATTR_DARK text */
7435                 {
7436                         /* Set the char */
7437                         *cur_attr_ptr = attr_idx;
7438                         *attr_top_ptr = MAX(0, (*cur_attr_ptr & 0x7f) - 5);
7439                         if (!*visual_list_ptr) *need_redraw = TRUE;
7440                 }
7441
7442                 if (char_idx)
7443                 {
7444                         /* Set the char */
7445                         *cur_char_ptr = char_idx;
7446                         *char_left_ptr = MAX(0, *cur_char_ptr - 10);
7447                         if (!*visual_list_ptr) *need_redraw = TRUE;
7448                 }
7449
7450                 return TRUE;
7451
7452         default:
7453                 if (*visual_list_ptr)
7454                 {
7455                         int eff_width;
7456                         int d = get_keymap_dir(ch);
7457                         byte a = (*cur_attr_ptr & 0x7f);
7458                         byte c = *cur_char_ptr;
7459
7460                         if (use_bigtile) eff_width = width / 2;
7461                         else eff_width = width;
7462
7463                         /* Restrict direction */
7464                         if ((a == 0) && (ddy[d] < 0)) d = 0;
7465                         if ((c == 0) && (ddx[d] < 0)) d = 0;
7466                         if ((a == 0x7f) && (ddy[d] > 0)) d = 0;
7467                         if ((c == 0xff) && (ddx[d] > 0)) d = 0;
7468
7469                         a += ddy[d];
7470                         c += ddx[d];
7471
7472                         /* Force correct code for both ASCII character and tile */
7473                         if (c & 0x80) a |= 0x80;
7474
7475                         /* Set the visual */
7476                         *cur_attr_ptr = a;
7477                         *cur_char_ptr = c;
7478
7479
7480                         /* Move the frame */
7481                         if ((ddx[d] < 0) && *char_left_ptr > MAX(0, (int)c - 10)) (*char_left_ptr)--;
7482                         if ((ddx[d] > 0) && *char_left_ptr + eff_width < MIN(0xff, (int)c + 10)) (*char_left_ptr)++;
7483                         if ((ddy[d] < 0) && *attr_top_ptr > MAX(0, (int)(a & 0x7f) - 4)) (*attr_top_ptr)--;
7484                         if ((ddy[d] > 0) && *attr_top_ptr + height < MIN(0x7f, (a & 0x7f) + 4)) (*attr_top_ptr)++;
7485                         return TRUE;
7486                 }
7487
7488                 break;
7489         }
7490
7491         /* Visual mode command is not used */
7492         return FALSE;
7493 }
7494
7495
7496 /*
7497  * Display the monsters in a group.
7498  */
7499 static void display_monster_list(int col, int row, int per_page, s16b mon_idx[],
7500         int mon_cur, int mon_top)
7501 {
7502         int i;
7503
7504         /* Display lines until done */
7505         for (i = 0; i < per_page && mon_idx[mon_top + i]; i++)
7506         {
7507                 byte attr;
7508
7509                 /* Get the race index */
7510                 int r_idx = mon_idx[mon_top + i] ;
7511
7512                 /* Access the race */
7513                 monster_race *r_ptr = &r_info[r_idx];
7514
7515
7516                 /* Choose a color */
7517                 attr = ((i + mon_top == mon_cur) ? TERM_L_BLUE : TERM_WHITE);
7518
7519                 /* Display the name */
7520                 c_prt(attr, (r_name + r_ptr->name), row + i, col);
7521
7522                 /* Hack -- visual_list mode */
7523                 if (per_page == 1)
7524                 {
7525                         c_prt(attr, format("%02x/%02x", r_ptr->x_attr, r_ptr->x_char), row + i, 60);
7526                 }
7527                 else if (p_ptr->wizard)
7528                 {
7529                         c_prt(attr, format("%d", r_idx), row + i, 60);
7530                 }
7531
7532                 /* Erase chars before overwritten by the race letter */
7533                 Term_erase(69, row + i, 255);
7534
7535                 /* Display symbol */
7536                 Term_queue_bigchar(70, row + i, r_ptr->x_attr, r_ptr->x_char, 0, 0);
7537
7538
7539                 /* Display kills */
7540                 if (!(r_ptr->flags1 & RF1_UNIQUE)) put_str(format("%5d", r_ptr->r_pkills), row + i, 73);
7541 #ifdef JP
7542                 else c_put_str((r_ptr->max_num == 0 ? TERM_L_DARK : TERM_WHITE), (r_ptr->max_num == 0 ? "»àË´" : "À¸Â¸"), row + i, 73);
7543 #else
7544                 else c_put_str((r_ptr->max_num == 0 ? TERM_L_DARK : TERM_WHITE), (r_ptr->max_num == 0 ? "dead" : "alive"), row + i, 73);
7545 #endif
7546
7547         }
7548
7549         /* Clear remaining lines */
7550         for (; i < per_page; i++)
7551         {
7552                 Term_erase(col, row + i, 255);
7553         }
7554 }
7555
7556
7557 /*
7558  * Display known monsters.
7559  */
7560 static void do_cmd_knowledge_monsters(bool *need_redraw)
7561 {
7562         int i, len, max;
7563         int grp_cur, grp_top, old_grp_cur;
7564         int mon_cur, mon_top;
7565         int grp_cnt, grp_idx[100];
7566         int mon_cnt;
7567         s16b *mon_idx;
7568
7569         int column = 0;
7570         bool flag;
7571         bool redraw;
7572
7573         bool visual_list = FALSE;
7574         byte attr_top = 0, char_left = 0;
7575
7576         int browser_rows;
7577         int wid, hgt;
7578
7579         /* Get size */
7580         Term_get_size(&wid, &hgt);
7581
7582         browser_rows = hgt - 8;
7583
7584         /* Allocate the "mon_idx" array */
7585         C_MAKE(mon_idx, max_r_idx, s16b);
7586
7587         max = 0;
7588         grp_cnt = 0;
7589
7590         /* Check every group */
7591         for (i = 0; monster_group_text[i] != NULL; i++)
7592         {
7593                 /* Measure the label */
7594                 len = strlen(monster_group_text[i]);
7595
7596                 /* Save the maximum length */
7597                 if (len > max) max = len;
7598
7599                 /* See if any monsters are known */
7600                 if ((monster_group_char[i] == ((char *) -1L)) || collect_monsters(i, mon_idx, 0x01))
7601                 {
7602                         /* Build a list of groups with known monsters */
7603                         grp_idx[grp_cnt++] = i;
7604                 }
7605         }
7606
7607         /* Terminate the list */
7608         grp_idx[grp_cnt] = -1;
7609
7610         old_grp_cur = -1;
7611         grp_cur = grp_top = 0;
7612         mon_cur = mon_top = 0;
7613         mon_cnt = 0;
7614
7615         flag = FALSE;
7616         redraw = TRUE;
7617
7618         while (!flag)
7619         {
7620                 char ch;
7621                 monster_race *r_ptr;
7622
7623                 if (redraw)
7624                 {
7625                         clear_from(0);
7626
7627 #ifdef JP
7628                         prt("ÃÎ¼± - ¥â¥ó¥¹¥¿¡¼", 2, 0);
7629                         prt("¥°¥ë¡¼¥×", 4, 0);
7630                         prt("Ì¾Á°", 4, max + 3);
7631                         if (p_ptr->wizard) prt("Idx", 4, 60);
7632                         prt("Ê¸»ú »¦³²¿ô", 4, 67);
7633 #else
7634                         prt("Knowledge - Monsters", 2, 0);
7635                         prt("Group", 4, 0);
7636                         prt("Name", 4, max + 3);
7637                         if (p_ptr->wizard) prt("Idx", 4, 60);
7638                         prt("Sym   Kills", 4, 67);
7639 #endif
7640
7641                         for (i = 0; i < 78; i++)
7642                         {
7643                                 Term_putch(i, 5, TERM_WHITE, '=');
7644                         }
7645
7646                         for (i = 0; i < browser_rows; i++)
7647                         {
7648                                 Term_putch(max + 1, 6 + i, TERM_WHITE, '|');
7649                         }
7650
7651                         redraw = FALSE;
7652                 }
7653
7654                 /* Scroll group list */
7655                 if (grp_cur < grp_top) grp_top = grp_cur;
7656                 if (grp_cur >= grp_top + browser_rows) grp_top = grp_cur - browser_rows + 1;
7657
7658                 /* Display a list of monster groups */
7659                 display_group_list(0, 6, max, browser_rows, grp_idx, monster_group_text, grp_cur, grp_top);
7660
7661                 if (old_grp_cur != grp_cur)
7662                 {
7663                         old_grp_cur = grp_cur;
7664
7665                         /* Get a list of monsters in the current group */
7666                         mon_cnt = collect_monsters(grp_idx[grp_cur], mon_idx, 0x00);
7667                 }
7668
7669                 /* Scroll monster list */
7670                 while (mon_cur < mon_top)
7671                         mon_top = MAX(0, mon_top - browser_rows/2);
7672                 while (mon_cur >= mon_top + browser_rows)
7673                         mon_top = MIN(mon_cnt - browser_rows, mon_top + browser_rows/2);
7674
7675                 if (!visual_list)
7676                 {
7677                         /* Display a list of monsters in the current group */
7678                         display_monster_list(max + 3, 6, browser_rows, mon_idx, mon_cur, mon_top);
7679                 }
7680                 else
7681                 {
7682                         mon_top = mon_cur;
7683
7684                         /* Display a monster name */
7685                         display_monster_list(max + 3, 6, 1, mon_idx, mon_cur, mon_top);
7686
7687                         /* Display visual list below first monster */
7688                         display_visual_list(max + 3, 7, browser_rows-1, wid - (max + 3), attr_top, char_left);
7689                 }
7690
7691                 /* Prompt */
7692 #ifdef JP
7693                 prt(format("<Êý¸þ>, 'r'¤Ç»×¤¤½Ð¤ò¸«¤ë%s%s, ESC", visual_list ? ", ENTER¤Ç·èÄê" : ", 'v'¤Ç¥·¥ó¥Ü¥ëÊÑ¹¹", (attr_idx||char_idx) ? ", 'c', 'p'¤Ç¥Ú¡¼¥¹¥È" : ", 'c'¤Ç¥³¥Ô¡¼"), hgt - 1, 0);
7694 #else
7695                 prt(format("<dir>, 'r' to recall%s%s, ESC", visual_list ? ", ENTER to accept" : ", 'v' for visuals", (attr_idx||char_idx) ? ", 'c', 'p' to paste" : ", 'c' to copy"), hgt - 1, 0);
7696 #endif
7697
7698                 /* Get the current monster */
7699                 r_ptr = &r_info[mon_idx[mon_cur]];
7700
7701                 /* Mega Hack -- track this monster race */
7702                 if (mon_cnt) monster_race_track(mon_idx[mon_cur]);
7703
7704                 /* Hack -- handle stuff */
7705                 handle_stuff();
7706
7707                 if (visual_list)
7708                 {
7709                         place_visual_list_cursor(max + 3, 7, r_ptr->x_attr, r_ptr->x_char, attr_top, char_left);
7710                 }
7711                 else if (!column)
7712                 {
7713                         Term_gotoxy(0, 6 + (grp_cur - grp_top));
7714                 }
7715                 else
7716                 {
7717                         Term_gotoxy(max + 3, 6 + (mon_cur - mon_top));
7718                 }
7719
7720                 ch = inkey();
7721
7722                 /* Do visual mode command if needed */
7723                 if (visual_mode_command(ch, &visual_list, browser_rows-1, wid - (max + 3), &attr_top, &char_left, &r_ptr->x_attr, &r_ptr->x_char, need_redraw)) continue;
7724
7725                 switch (ch)
7726                 {
7727                         case ESCAPE:
7728                         {
7729                                 flag = TRUE;
7730                                 break;
7731                         }
7732
7733                         case 'R':
7734                         case 'r':
7735                         {
7736                                 /* Recall on screen */
7737                                 if (mon_idx[mon_cur])
7738                                 {
7739                                         screen_roff(mon_idx[mon_cur], 0);
7740
7741                                         (void)inkey();
7742
7743                                         redraw = TRUE;
7744                                 }
7745                                 break;
7746                         }
7747
7748                         default:
7749                         {
7750                                 /* Move the cursor */
7751                                 browser_cursor(ch, &column, &grp_cur, grp_cnt, &mon_cur, mon_cnt);
7752
7753                                 break;
7754                         }
7755                 }
7756         }
7757
7758         /* Free the "mon_idx" array */
7759         C_KILL(mon_idx, max_r_idx, s16b);
7760 }
7761
7762
7763 /*
7764  * Display the objects in a group.
7765  */
7766 static void display_object_list(int col, int row, int per_page, int object_idx[],
7767         int object_cur, int object_top)
7768 {
7769         int i;
7770
7771         /* Display lines until done */
7772         for (i = 0; i < per_page && object_idx[object_top + i]; i++)
7773         {
7774                 char o_name[80];
7775                 byte a, c;
7776
7777                 /* Get the object index */
7778                 int k_idx = object_idx[object_top + i];
7779
7780                 /* Access the object */
7781                 object_kind *k_ptr = &k_info[k_idx];
7782
7783                 /* Choose a color */
7784                 byte attr = (k_ptr->aware ? TERM_WHITE : TERM_SLATE);
7785                 byte cursor = (k_ptr->aware ? TERM_L_BLUE : TERM_BLUE);
7786
7787                 attr = ((i + object_top == object_cur) ? cursor : attr);
7788
7789                 /* Tidy name */
7790                 strip_name(o_name, k_idx);
7791
7792                 /* Display the name */
7793                 c_prt(attr, o_name, row + i, col);
7794
7795                 /* Hack -- visual_list mode */
7796                 if (per_page == 1)
7797                 {
7798                         c_prt(attr, format("%02x/%02x", k_ptr->x_attr, k_ptr->x_char), row + i, 60);
7799                 }
7800                 else if (p_ptr->wizard)
7801                 {
7802                         c_prt(attr, format ("%d", k_idx), row + i, 70);
7803                 }
7804
7805                 a = k_ptr->flavor ? misc_to_attr[k_ptr->flavor] : k_ptr->x_attr;
7806                 c = k_ptr->flavor ? misc_to_char[k_ptr->flavor] : k_ptr->x_char;
7807
7808                 /* Symbol is unknown */
7809                 if (!k_ptr->aware && !p_ptr->wizard)
7810                 {
7811                         c = ' ';
7812                         a = TERM_DARK;
7813                 }
7814
7815                 /* Display symbol */
7816                 Term_queue_bigchar(76, row + i, a, c, 0, 0);
7817         }
7818
7819         /* Clear remaining lines */
7820         for (; i < per_page; i++)
7821         {
7822                 Term_erase(col, row + i, 255);
7823         }
7824 }
7825
7826 /*
7827  * Describe fake object
7828  */
7829 static void desc_obj_fake(int k_idx)
7830 {
7831         object_type *o_ptr;
7832         object_type object_type_body;
7833
7834         /* Get local object */
7835         o_ptr = &object_type_body;
7836
7837         /* Wipe the object */
7838         object_wipe(o_ptr);
7839
7840         /* Create the artifact */
7841         object_prep(o_ptr, k_idx);
7842
7843         /* It's fully know */
7844         o_ptr->ident |= IDENT_KNOWN;
7845
7846         /* Track the object */
7847         /* object_actual_track(o_ptr); */
7848
7849         /* Hack - mark as fake */
7850         /* term_obj_real = FALSE; */
7851
7852         /* Hack -- Handle stuff */
7853         handle_stuff();
7854
7855         if (!screen_object(o_ptr, FALSE))
7856         {
7857 #ifdef JP
7858                 msg_print("ÆÃ¤ËÊÑ¤ï¤Ã¤¿¤È¤³¤í¤Ï¤Ê¤¤¤è¤¦¤À¡£");
7859 #else
7860                 msg_print("You see nothing special.");
7861 #endif
7862                 msg_print(NULL);
7863         }
7864 }
7865
7866
7867
7868 /*
7869  * Display known objects
7870  */
7871 static void do_cmd_knowledge_objects(bool *need_redraw)
7872 {
7873         int i, len, max;
7874         int grp_cur, grp_top, old_grp_cur;
7875         int object_old, object_cur, object_top;
7876         int grp_cnt, grp_idx[100];
7877         int object_cnt;
7878         int *object_idx;
7879
7880         int column = 0;
7881         bool flag;
7882         bool redraw;
7883
7884         bool visual_list = FALSE;
7885         byte attr_top = 0, char_left = 0;
7886
7887         int browser_rows;
7888         int wid, hgt;
7889
7890         /* Get size */
7891         Term_get_size(&wid, &hgt);
7892
7893         browser_rows = hgt - 8;
7894
7895         /* Allocate the "object_idx" array */
7896         C_MAKE(object_idx, max_k_idx, int);
7897
7898         max = 0;
7899         grp_cnt = 0;
7900
7901         /* Check every group */
7902         for (i = 0; object_group_text[i] != NULL; i++)
7903         {
7904                 /* Measure the label */
7905                 len = strlen(object_group_text[i]);
7906
7907                 /* Save the maximum length */
7908                 if (len > max) max = len;
7909
7910                 /* See if any monsters are known */
7911                 if (collect_objects(i, object_idx))
7912                 {
7913                         /* Build a list of groups with known monsters */
7914                         grp_idx[grp_cnt++] = i;
7915                 }
7916         }
7917
7918         /* Terminate the list */
7919         grp_idx[grp_cnt] = -1;
7920
7921         old_grp_cur = -1;
7922         grp_cur = grp_top = 0;
7923         object_cur = object_top = 0;
7924         object_old = -1;
7925         object_cnt = 0;
7926
7927         flag = FALSE;
7928         redraw = TRUE;
7929
7930         while (!flag)
7931         {
7932                 char ch;
7933                 object_kind *k_ptr;
7934
7935                 if (redraw)
7936                 {
7937                         clear_from(0);
7938
7939 #ifdef JP
7940                         prt("ÃÎ¼± - ¥¢¥¤¥Æ¥à", 2, 0);
7941                         prt("¥°¥ë¡¼¥×", 4, 0);
7942                         prt("Ì¾Á°", 4, max + 3);
7943                         if (p_ptr->wizard) prt("Idx", 4, 70);
7944                         prt("Ê¸»ú", 4, 75);
7945 #else
7946                         prt("Knowledge - objects", 2, 0);
7947                         prt("Group", 4, 0);
7948                         prt("Name", 4, max + 3);
7949                         if (p_ptr->wizard) prt("Idx", 4, 70);
7950                         prt("Sym", 4, 75);
7951 #endif
7952
7953                         for (i = 0; i < 78; i++)
7954                         {
7955                                 Term_putch(i, 5, TERM_WHITE, '=');
7956                         }
7957
7958                         for (i = 0; i < browser_rows; i++)
7959                         {
7960                                 Term_putch(max + 1, 6 + i, TERM_WHITE, '|');
7961                         }
7962
7963                         redraw = FALSE;
7964                 }
7965
7966                 /* Scroll group list */
7967                 if (grp_cur < grp_top) grp_top = grp_cur;
7968                 if (grp_cur >= grp_top + browser_rows) grp_top = grp_cur - browser_rows + 1;
7969
7970                 /* Display a list of object groups */
7971                 display_group_list(0, 6, max, browser_rows, grp_idx, object_group_text, grp_cur, grp_top);
7972
7973                 if (old_grp_cur != grp_cur)
7974                 {
7975                         old_grp_cur = grp_cur;
7976
7977                         /* Get a list of objects in the current group */
7978                         object_cnt = collect_objects(grp_idx[grp_cur], object_idx);
7979                 }
7980
7981                 /* Scroll object list */
7982                 while (object_cur < object_top)
7983                         object_top = MAX(0, object_top - browser_rows/2);
7984                 while (object_cur >= object_top + browser_rows)
7985                         object_top = MIN(object_cnt - browser_rows, object_top + browser_rows/2);
7986
7987                 if (!visual_list)
7988                 {
7989                         /* Display a list of objects in the current group */
7990                         display_object_list(max + 3, 6, browser_rows, object_idx, object_cur, object_top);
7991                 }
7992                 else
7993                 {
7994                         object_top = object_cur;
7995
7996                         /* Display a list of objects in the current group */
7997                         display_object_list(max + 3, 6, 1, object_idx, object_cur, object_top);
7998
7999                         /* Display visual list below first object */
8000                         display_visual_list(max + 3, 7, browser_rows-1, wid - (max + 3), attr_top, char_left);
8001                 }
8002
8003                 /* Get the current object */
8004                 k_ptr = &k_info[object_idx[object_cur]];
8005
8006                 /* Mega Hack -- track this object */
8007                 if (object_cnt) object_kind_track(object_idx[object_cur]);
8008
8009                 /* Prompt */
8010 #ifdef JP
8011                 prt(format("<Êý¸þ>, 'r'¤Ç¾ÜºÙ¤ò¸«¤ë%s%s, ESC", k_ptr->flavor ? "" : visual_list ? ", ENTER¤Ç·èÄê" : ", 'v'¤Ç¥·¥ó¥Ü¥ëÊÑ¹¹", (attr_idx||char_idx) ? ", 'c', 'p'¤Ç¥Ú¡¼¥¹¥È" : ", 'c'¤Ç¥³¥Ô¡¼"), hgt - 1, 0);
8012 #else
8013                 prt(format("<dir>, 'r' to recall%s%s, ESC", k_ptr->flavor ? "" : visual_list ? ", ENTER to accept" : ", 'v' for visuals", (attr_idx||char_idx) ? ", 'c', 'p' to paste" : ", 'c' to copy"), hgt - 1, 0);
8014 #endif
8015
8016                 /* The "current" object changed */
8017                 if (object_old != object_idx[object_cur])
8018                 {
8019                         /* Hack -- handle stuff */
8020                         handle_stuff();
8021
8022                         /* Remember the "current" object */
8023                         object_old = object_idx[object_cur];
8024                 }
8025
8026                 if (visual_list)
8027                 {
8028                         place_visual_list_cursor(max + 3, 7, k_ptr->x_attr, k_ptr->x_char, attr_top, char_left);
8029                 }
8030                 else if (!column)
8031                 {
8032                         Term_gotoxy(0, 6 + (grp_cur - grp_top));
8033                 }
8034                 else
8035                 {
8036                         Term_gotoxy(max + 3, 6 + (object_cur - object_top));
8037                 }
8038
8039                 ch = inkey();
8040
8041                 /* Do visual mode command if needed */
8042                 /* Symbol of objects with flavor cannot be changed */
8043                 if (!k_ptr->flavor && visual_mode_command(ch, &visual_list, browser_rows-1, wid - (max + 3), &attr_top, &char_left, &k_ptr->x_attr, &k_ptr->x_char, need_redraw)) continue;
8044
8045                 switch (ch)
8046                 {
8047                         case ESCAPE:
8048                         {
8049                                 flag = TRUE;
8050                                 break;
8051                         }
8052
8053                         case 'R':
8054                         case 'r':
8055                         {
8056                                 /* Recall on screen */
8057                                 if (grp_cnt > 0)
8058                                         desc_obj_fake(object_idx[object_cur]);
8059
8060                                 redraw = TRUE;
8061                                 break;
8062                         }
8063
8064                         default:
8065                         {
8066                                 /* Move the cursor */
8067                                 browser_cursor(ch, &column, &grp_cur, grp_cnt, &object_cur, object_cnt);
8068                                 break;
8069                         }
8070                 }
8071         }
8072
8073         /* Free the "object_idx" array */
8074         C_KILL(object_idx, max_k_idx, int);
8075 }
8076
8077
8078 /*
8079  * Display the features in a group.
8080  */
8081 static void display_feature_list(int col, int row, int per_page, int *feat_idx,
8082         int feat_cur, int feat_top, int lighting_level)
8083 {
8084         int i;
8085         int col2 = 67;
8086         int col3 = 69;
8087         int col4 = 71;
8088
8089         /* Correct columns 1 and 4 */
8090         if (use_bigtile)
8091         {
8092                 col2++; col3 += 2; col4 += 3;
8093         }
8094
8095         /* Display lines until done */
8096         for (i = 0; i < per_page && feat_idx[feat_top + i]; i++)
8097         {
8098                 byte attr;
8099
8100                 /* Get the index */
8101                 int f_idx = feat_idx[feat_top + i];
8102
8103                 /* Access the index */
8104                 feature_type *f_ptr = &f_info[f_idx];
8105
8106                 /* Choose a color */
8107                 attr = ((i + feat_top == feat_cur) ? TERM_L_BLUE : TERM_WHITE);
8108
8109                 /* Display the name */
8110                 c_prt(attr, f_name + f_ptr->name, row + i, col);
8111
8112                 /* Hack -- visual_list mode */
8113                 if (per_page == 1)
8114                 {
8115                         /* Display lighting level */
8116                         c_prt(attr, format("(%s)", lighting_level_str[lighting_level]), row + i, col + 1 + strlen(f_name + f_ptr->name));
8117
8118                         c_prt(attr, format("%02x/%02x", f_ptr->x_attr[lighting_level], f_ptr->x_char[lighting_level]), row + i, 56);
8119                 }
8120
8121                 /* Display symbol */
8122                 Term_queue_bigchar(65, row + i, f_ptr->x_attr[F_LIT_STANDARD], f_ptr->x_char[F_LIT_STANDARD], 0, 0);
8123
8124                 Term_putch(col2, row + i, TERM_SLATE, '(');
8125                 Term_putch(col3, row + i, TERM_SLATE, '/');
8126                 Term_putch(col4, row + i, TERM_SLATE, '/');
8127                 Term_putch(col4 + (use_bigtile ? 3 : 2), row + i, TERM_SLATE, ')');
8128
8129                 /* Mega-hack */
8130
8131                 /* Use lightened colour */
8132                 Term_queue_bigchar(col2 + 1, row + i, f_ptr->x_attr[F_LIT_LITE], f_ptr->x_char[F_LIT_LITE], 0, 0);
8133
8134                 /* Use darkened colour */
8135                 Term_queue_bigchar(col3 + 1, row + i, f_ptr->x_attr[F_LIT_DARK], f_ptr->x_char[F_LIT_DARK], 0, 0);
8136
8137                 /* Use darkly darkened colour */
8138                 Term_queue_bigchar(col4 + 1, row + i, f_ptr->x_attr[F_LIT_DARKDARK], f_ptr->x_char[F_LIT_DARKDARK], 0, 0);
8139         }
8140
8141         /* Clear remaining lines */
8142         for (; i < per_page; i++)
8143         {
8144                 Term_erase(col, row + i, 255);
8145         }
8146 }
8147
8148
8149 /*
8150  * Interact with feature visuals.
8151  */
8152 static void do_cmd_knowledge_features(bool *need_redraw)
8153 {
8154         int i, len, max;
8155         int grp_cur, grp_top, old_grp_cur;
8156         int feat_cur, feat_top;
8157         int grp_cnt, grp_idx[100];
8158         int feat_cnt;
8159         int *feat_idx;
8160
8161         int column = 0;
8162         bool flag;
8163         bool redraw;
8164
8165         bool visual_list = FALSE;
8166         byte attr_top = 0, char_left = 0;
8167
8168         int browser_rows;
8169         int wid, hgt;
8170
8171         byte attr_old[F_LIT_MAX] = {0, 0, 0, 0};
8172         byte char_old[F_LIT_MAX] = {0, 0, 0, 0};
8173         byte *cur_attr_ptr, *cur_char_ptr;
8174         int lighting_level = F_LIT_STANDARD;
8175
8176         /* Get size */
8177         Term_get_size(&wid, &hgt);
8178
8179         browser_rows = hgt - 8;
8180
8181         /* Allocate the "feat_idx" array */
8182         C_MAKE(feat_idx, max_f_idx, int);
8183
8184         max = 0;
8185         grp_cnt = 0;
8186
8187         /* Check every group */
8188         for (i = 0; feature_group_text[i] != NULL; i++)
8189         {
8190                 /* Measure the label */
8191                 len = strlen(feature_group_text[i]);
8192
8193                 /* Save the maximum length */
8194                 if (len > max) max = len;
8195
8196                 /* See if any features are known */
8197                 if (collect_features(i, feat_idx))
8198                 {
8199                         /* Build a list of groups with known features */
8200                         grp_idx[grp_cnt++] = i;
8201                 }
8202         }
8203
8204         /* Terminate the list */
8205         grp_idx[grp_cnt] = -1;
8206
8207         old_grp_cur = -1;
8208         grp_cur = grp_top = 0;
8209         feat_cur = feat_top = 0;
8210         feat_cnt = 0;
8211
8212         flag = FALSE;
8213         redraw = TRUE;
8214
8215         while ((!flag) && (grp_cnt))
8216         {
8217                 char ch;
8218                 feature_type *f_ptr;
8219
8220                 if (redraw)
8221                 {
8222                         clear_from(0);
8223
8224 #ifdef JP
8225                         prt("É½¼¨ - ÃÏ·Á", 2, 0);
8226                         prt("¥°¥ë¡¼¥×", 4, 0);
8227                         prt("Ì¾Á°", 4, max + 3);
8228                         if (use_bigtile) prt("Ê¸»ú ( l/ d/ D)", 4, 63);
8229                         else prt("Ê¸»ú (l/d/D)", 4, 62);
8230 #else
8231                         prt("Visuals - features", 2, 0);
8232                         prt("Group", 4, 0);
8233                         prt("Name", 4, max + 3);
8234                         if (use_bigtile) prt("Sym ( l/ d/ D)", 4, 64);
8235                         else prt("Sym (l/d/D)", 4, 63);
8236 #endif
8237
8238                         for (i = 0; i < 78; i++)
8239                         {
8240                                 Term_putch(i, 5, TERM_WHITE, '=');
8241                         }
8242
8243                         for (i = 0; i < browser_rows; i++)
8244                         {
8245                                 Term_putch(max + 1, 6 + i, TERM_WHITE, '|');
8246                         }
8247
8248                         redraw = FALSE;
8249                 }
8250
8251                 /* Scroll group list */
8252                 if (grp_cur < grp_top) grp_top = grp_cur;
8253                 if (grp_cur >= grp_top + browser_rows) grp_top = grp_cur - browser_rows + 1;
8254
8255                 /* Display a list of feature groups */
8256                 display_group_list(0, 6, max, browser_rows, grp_idx, feature_group_text, grp_cur, grp_top);
8257
8258                 if (old_grp_cur != grp_cur)
8259                 {
8260                         old_grp_cur = grp_cur;
8261
8262                         /* Get a list of features in the current group */
8263                         feat_cnt = collect_features(grp_idx[grp_cur], feat_idx);
8264                 }
8265
8266                 /* Scroll feature list */
8267                 while (feat_cur < feat_top)
8268                         feat_top = MAX(0, feat_top - browser_rows/2);
8269                 while (feat_cur >= feat_top + browser_rows)
8270                         feat_top = MIN(feat_cnt - browser_rows, feat_top + browser_rows/2);
8271
8272                 if (!visual_list)
8273                 {
8274                         /* Display a list of features in the current group */
8275                         display_feature_list(max + 3, 6, browser_rows, feat_idx, feat_cur, feat_top, F_LIT_STANDARD);
8276                 }
8277                 else
8278                 {
8279                         feat_top = feat_cur;
8280
8281                         /* Display a list of features in the current group */
8282                         display_feature_list(max + 3, 6, 1, feat_idx, feat_cur, feat_top, lighting_level);
8283
8284                         /* Display visual list below first object */
8285                         display_visual_list(max + 3, 7, browser_rows-1, wid - (max + 3), attr_top, char_left);
8286                 }
8287
8288                 /* Prompt */
8289 #ifdef JP
8290                 prt(format("<Êý¸þ>%s%s, ESC", visual_list ? ", ENTER¤Ç·èÄê, 'a'¤ÇÂÐ¾ÝÌÀÅÙÊÑ¹¹" : ", 'v'¤Ç¥·¥ó¥Ü¥ëÊÑ¹¹", (attr_idx||char_idx) ? ", 'c', 'p'¤Ç¥Ú¡¼¥¹¥È" : ", 'c'¤Ç¥³¥Ô¡¼"), hgt - 1, 0);
8291 #else
8292                 prt(format("<dir>%s%s, ESC", visual_list ? ", ENTER to accept, 'a' for lighting level" : ", 'v' for visuals", (attr_idx||char_idx) ? ", 'c', 'p' to paste" : ", 'c' to copy"), hgt - 1, 0);
8293 #endif
8294
8295                 /* Get the current feature */
8296                 f_ptr = &f_info[feat_idx[feat_cur]];
8297                 cur_attr_ptr = &f_ptr->x_attr[lighting_level];
8298                 cur_char_ptr = &f_ptr->x_char[lighting_level];
8299
8300                 if (visual_list)
8301                 {
8302                         place_visual_list_cursor(max + 3, 7, *cur_attr_ptr, *cur_char_ptr, attr_top, char_left);
8303                 }
8304                 else if (!column)
8305                 {
8306                         Term_gotoxy(0, 6 + (grp_cur - grp_top));
8307                 }
8308                 else
8309                 {
8310                         Term_gotoxy(max + 3, 6 + (feat_cur - feat_top));
8311                 }
8312
8313                 ch = inkey();
8314
8315                 if ((ch == 'A') && visual_list)
8316                 {
8317                         if (lighting_level <= F_LIT_STANDARD) lighting_level = F_LIT_DARKDARK;
8318                         else lighting_level--;
8319                         attr_top = MAX(0, (f_ptr->x_attr[lighting_level] & 0x7f) - 5);
8320                         char_left = MAX(0, f_ptr->x_char[lighting_level] - 10);
8321                         continue;
8322                 }
8323
8324                 else if ((ch == 'a') && visual_list)
8325                 {
8326                         if (lighting_level >= F_LIT_DARKDARK) lighting_level = F_LIT_STANDARD;
8327                         else lighting_level++;
8328                         attr_top = MAX(0, (f_ptr->x_attr[lighting_level] & 0x7f) - 5);
8329                         char_left = MAX(0, f_ptr->x_char[lighting_level] - 10);
8330                         continue;
8331                 }
8332
8333                 /* Do visual mode command if needed */
8334                 else if (visual_mode_command(ch, &visual_list, browser_rows-1, wid - (max + 3), &attr_top, &char_left, cur_attr_ptr, cur_char_ptr, need_redraw))
8335                 {
8336                         switch (ch)
8337                         {
8338                         /* Restore previous visual settings */
8339                         case ESCAPE:
8340                                 for (i = 0; i < F_LIT_MAX; i++)
8341                                 {
8342                                         f_ptr->x_attr[i] = attr_old[i];
8343                                         f_ptr->x_char[i] = char_old[i];
8344                                 }
8345
8346                                 /* Fall through */
8347
8348                         case '\n':
8349                         case '\r':
8350                                 lighting_level = F_LIT_STANDARD;
8351                                 break;
8352
8353                         /* Preserve current visual settings */
8354                         case 'V':
8355                         case 'v':
8356                                 for (i = 0; i < F_LIT_MAX; i++)
8357                                 {
8358                                         attr_old[i] = f_ptr->x_attr[i];
8359                                         char_old[i] = f_ptr->x_char[i];
8360                                 }
8361                                 lighting_level = F_LIT_STANDARD;
8362                                 break;
8363
8364                         case 'C':
8365                         case 'c':
8366                                 if (!visual_list)
8367                                 {
8368                                         for (i = 0; i < F_LIT_MAX; i++)
8369                                         {
8370                                                 attr_idx_feat[i] = f_ptr->x_attr[i];
8371                                                 char_idx_feat[i] = f_ptr->x_char[i];
8372                                         }
8373                                 }
8374                                 break;
8375
8376                         case 'P':
8377                         case 'p':
8378                                 if (!visual_list)
8379                                 {
8380                                         /* Allow ATTR_DARK text */
8381                                         for (i = F_LIT_NS_BEGIN; i < F_LIT_MAX; i++)
8382                                         {
8383                                                 if (attr_idx_feat[i] || (!(char_idx_feat[i] & 0x80) && char_idx_feat[i])) f_ptr->x_attr[i] = attr_idx_feat[i];
8384                                                 if (char_idx_feat[i]) f_ptr->x_char[i] = char_idx_feat[i];
8385                                         }
8386                                 }
8387                                 break;
8388                         }
8389                         continue;
8390                 }
8391
8392                 switch (ch)
8393                 {
8394                         case ESCAPE:
8395                         {
8396                                 flag = TRUE;
8397                                 break;
8398                         }
8399
8400                         default:
8401                         {
8402                                 /* Move the cursor */
8403                                 browser_cursor(ch, &column, &grp_cur, grp_cnt, &feat_cur, feat_cnt);
8404                                 break;
8405                         }
8406                 }
8407         }
8408
8409         /* Prompt */
8410         if (!grp_cnt) msg_print("No features known.");
8411
8412         /* Free the "feat_idx" array */
8413         C_KILL(feat_idx, max_f_idx, int);
8414 }
8415
8416
8417 /*
8418  * List wanted monsters
8419  */
8420 static void do_cmd_knowledge_kubi(void)
8421 {
8422         int i;
8423         FILE *fff;
8424
8425         char file_name[1024];
8426
8427
8428         /* Open a new file */
8429         fff = my_fopen_temp(file_name, 1024);
8430         if (!fff) {
8431 #ifdef JP
8432             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
8433 #else
8434             msg_format("Failed to create temporary file %s.", file_name);
8435 #endif
8436             msg_print(NULL);
8437             return;
8438         }
8439
8440         if (fff)
8441         {
8442                 bool listed = FALSE;
8443
8444 #ifdef JP
8445                 fprintf(fff, "º£Æü¤Î¥¿¡¼¥²¥Ã¥È : %s\n", (p_ptr->today_mon ? r_name + r_info[p_ptr->today_mon].name : "ÉÔÌÀ"));
8446                 fprintf(fff, "\n");
8447                 fprintf(fff, "¾Þ¶â¼ó¥ê¥¹¥È\n");
8448 #else
8449                 fprintf(fff, "Today target : %s\n", (p_ptr->today_mon ? r_name + r_info[p_ptr->today_mon].name : "unknown"));
8450                 fprintf(fff, "\n");
8451                 fprintf(fff, "List of wanted monsters\n");
8452 #endif
8453                 fprintf(fff, "----------------------------------------------\n");
8454
8455                 for (i = 0; i < MAX_KUBI; i++)
8456                 {
8457                         if (kubi_r_idx[i] <= 10000)
8458                         {
8459                                 fprintf(fff,"%s\n", r_name + r_info[kubi_r_idx[i]].name);
8460
8461                                 listed = TRUE;
8462                         }
8463                 }
8464
8465                 if (!listed)
8466                 {
8467 #ifdef JP
8468                         fprintf(fff,"\n%s\n", "¾Þ¶â¼ó¤Ï¤â¤¦»Ä¤Ã¤Æ¤¤¤Þ¤»¤ó¡£");
8469 #else
8470                         fprintf(fff,"\n%s\n", "There is no more wanted monster.");
8471 #endif
8472                 }
8473         }
8474
8475         /* Close the file */
8476         my_fclose(fff);
8477
8478         /* Display the file contents */
8479 #ifdef JP
8480         show_file(TRUE, file_name, "¾Þ¶â¼ó¤Î°ìÍ÷", 0, 0);
8481 #else
8482         show_file(TRUE, file_name, "Wanted monsters", 0, 0);
8483 #endif
8484
8485
8486         /* Remove the file */
8487         fd_kill(file_name);
8488 }
8489
8490 /*
8491  * List virtues & status
8492  */
8493 static void do_cmd_knowledge_virtues(void)
8494 {
8495         FILE *fff;
8496
8497         char file_name[1024];
8498
8499
8500         /* Open a new file */
8501         fff = my_fopen_temp(file_name, 1024);
8502         if (!fff) {
8503 #ifdef JP
8504             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
8505 #else
8506             msg_format("Failed to create temporary file %s.", file_name);
8507 #endif
8508             msg_print(NULL);
8509             return;
8510         }
8511
8512         if (fff)
8513         {
8514 #ifdef JP
8515                 fprintf(fff, "¸½ºß¤ÎÂ°À : %s\n\n", your_alignment());
8516 #else
8517                 fprintf(fff, "Your alighnment : %s\n\n", your_alignment());
8518 #endif
8519                 dump_virtues(fff);
8520         }
8521
8522         /* Close the file */
8523         my_fclose(fff);
8524
8525         /* Display the file contents */
8526 #ifdef JP
8527         show_file(TRUE, file_name, "È¬¤Ä¤ÎÆÁ", 0, 0);
8528 #else
8529         show_file(TRUE, file_name, "Virtues", 0, 0);
8530 #endif
8531
8532
8533         /* Remove the file */
8534         fd_kill(file_name);
8535 }
8536
8537 /*
8538 * Dungeon
8539 *
8540 */
8541 static void do_cmd_knowledge_dungeon(void)
8542 {
8543         FILE *fff;
8544
8545         char file_name[1024];
8546         int i;
8547
8548
8549         /* Open a new file */
8550         fff = my_fopen_temp(file_name, 1024);
8551         if (!fff) {
8552 #ifdef JP
8553             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
8554 #else
8555             msg_format("Failed to create temporary file %s.", file_name);
8556 #endif
8557             msg_print(NULL);
8558             return;
8559         }
8560
8561         if (fff)
8562         {
8563                 for (i = 1; i < max_d_idx; i++)
8564                 {
8565                         bool seiha = FALSE;
8566
8567                         if (!d_info[i].maxdepth) continue;
8568                         if (!max_dlv[i]) continue;
8569                         if (d_info[i].final_guardian)
8570                         {
8571                                 if (!r_info[d_info[i].final_guardian].max_num) seiha = TRUE;
8572                         }
8573                         else if (max_dlv[i] == d_info[i].maxdepth) seiha = TRUE;
8574 #ifdef JP
8575                         fprintf(fff,"%c%-12s :  %3d ³¬\n", seiha ? '!' : ' ', d_name + d_info[i].name, max_dlv[i]);
8576 #else
8577                         fprintf(fff,"%c%-16s :  level %3d\n", seiha ? '!' : ' ', d_name + d_info[i].name, max_dlv[i]);
8578 #endif
8579                 }
8580         }
8581
8582         /* Close the file */
8583         my_fclose(fff);
8584
8585         /* Display the file contents */
8586 #ifdef JP
8587         show_file(TRUE, file_name, "º£¤Þ¤Ç¤ËÆþ¤Ã¤¿¥À¥ó¥¸¥ç¥ó", 0, 0);
8588 #else
8589         show_file(TRUE, file_name, "Dungeon", 0, 0);
8590 #endif
8591
8592
8593         /* Remove the file */
8594         fd_kill(file_name);
8595 }
8596
8597 /*
8598 * List virtues & status
8599 *
8600 */
8601 static void do_cmd_knowledge_stat(void)
8602 {
8603         FILE *fff;
8604
8605         char file_name[1024];
8606         int percent, v_nr;
8607
8608         /* Open a new file */
8609         fff = my_fopen_temp(file_name, 1024);
8610         if (!fff) {
8611 #ifdef JP
8612             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
8613 #else
8614             msg_format("Failed to create temporary file %s.", file_name);
8615 #endif
8616             msg_print(NULL);
8617             return;
8618         }
8619
8620         if (fff)
8621         {
8622                 percent = (int)(((long)p_ptr->player_hp[PY_MAX_LEVEL - 1] * 200L) /
8623                         (2 * p_ptr->hitdie +
8624                         ((PY_MAX_LEVEL - 1+3) * (p_ptr->hitdie + 1))));
8625
8626 #ifdef JP
8627                 if (p_ptr->knowledge & KNOW_HPRATE) fprintf(fff, "¸½ºß¤ÎÂÎÎÏ¥é¥ó¥¯ : %d/100\n\n", percent);
8628                 else fprintf(fff, "¸½ºß¤ÎÂÎÎÏ¥é¥ó¥¯ : ???\n\n");
8629                 fprintf(fff, "Ç½ÎÏ¤ÎºÇÂçÃÍ\n\n");
8630 #else
8631                 if (p_ptr->knowledge & KNOW_HPRATE) fprintf(fff, "Your current Life Rating is %d/100.\n\n", percent);
8632                 else fprintf(fff, "Your current Life Rating is ???.\n\n");
8633                 fprintf(fff, "Limits of maximum stats\n\n");
8634 #endif
8635                 for (v_nr = 0; v_nr < 6; v_nr++)
8636                 {
8637                         if ((p_ptr->knowledge & KNOW_STAT) || p_ptr->stat_max[v_nr] == p_ptr->stat_max_max[v_nr]) fprintf(fff, "%s 18/%d\n", stat_names[v_nr], p_ptr->stat_max_max[v_nr]-18);
8638                         else fprintf(fff, "%s ???\n", stat_names[v_nr]);
8639                 }
8640         }
8641
8642         dump_yourself(fff);
8643
8644         /* Close the file */
8645         my_fclose(fff);
8646
8647         /* Display the file contents */
8648 #ifdef JP
8649         show_file(TRUE, file_name, "¼«Ê¬¤Ë´Ø¤¹¤ë¾ðÊó", 0, 0);
8650 #else
8651         show_file(TRUE, file_name, "HP-rate & Max stat", 0, 0);
8652 #endif
8653
8654
8655         /* Remove the file */
8656         fd_kill(file_name);
8657 }
8658
8659
8660 /*
8661  * Print all active quests
8662  */
8663 static void do_cmd_knowledge_quests_current(FILE *fff)
8664 {
8665         char tmp_str[120];
8666         char rand_tmp_str[120] = "\0";
8667         char name[80];
8668         monster_race *r_ptr;
8669         int i;
8670         int rand_level = 100;
8671         int total = 0;
8672
8673 #ifdef JP
8674         fprintf(fff, "¡Ô¿ë¹ÔÃæ¤Î¥¯¥¨¥¹¥È¡Õ\n");
8675 #else
8676         fprintf(fff, "< Current Quest >\n");
8677 #endif
8678
8679         for (i = 1; i < max_quests; i++)
8680         {
8681                 if ((quest[i].status == QUEST_STATUS_TAKEN) || (quest[i].status == QUEST_STATUS_COMPLETED))
8682                 {
8683                         /* Set the quest number temporary */
8684                         int old_quest = p_ptr->inside_quest;
8685                         int j;
8686
8687                         /* Clear the text */
8688                         for (j = 0; j < 10; j++) quest_text[j][0] = '\0';
8689                         quest_text_line = 0;
8690
8691                         p_ptr->inside_quest = i;
8692
8693                         /* Get the quest text */
8694                         init_flags = INIT_SHOW_TEXT;
8695
8696                         process_dungeon_file("q_info.txt", 0, 0, 0, 0);
8697
8698                         /* Reset the old quest number */
8699                         p_ptr->inside_quest = old_quest;
8700
8701                         /* No info from "silent" quests */
8702                         if (quest[i].flags & QUEST_FLAG_SILENT) continue;
8703
8704                         total++;
8705
8706                         if (quest[i].type != QUEST_TYPE_RANDOM)
8707                         {
8708                                 char note[80] = "\0";
8709
8710                                 if (quest[i].status == QUEST_STATUS_TAKEN)
8711                                 {
8712                                         switch (quest[i].type)
8713                                         {
8714                                         case QUEST_TYPE_KILL_LEVEL:
8715                                         case QUEST_TYPE_KILL_ANY_LEVEL:
8716                                                 r_ptr = &r_info[quest[i].r_idx];
8717                                                 strcpy(name, r_name + r_ptr->name);
8718                                                 if (quest[i].max_num > 1)
8719                                                 {
8720 #ifdef JP
8721                                                         sprintf(note," - %d ÂÎ¤Î%s¤òÅÝ¤¹¡£(¤¢¤È %d ÂÎ)",
8722                                                                 quest[i].max_num, name, quest[i].max_num - quest[i].cur_num);
8723 #else
8724                                                         plural_aux(name);
8725                                                         sprintf(note," - kill %d %s, have killed %d.",
8726                                                                 quest[i].max_num, name, quest[i].cur_num);
8727 #endif
8728                                                 }
8729                                                 else
8730 #ifdef JP
8731                                                         sprintf(note," - %s¤òÅÝ¤¹¡£",name);
8732 #else
8733                                                         sprintf(note," - kill %s.",name);
8734 #endif
8735                                                 break;
8736
8737                                         case QUEST_TYPE_FIND_ARTIFACT:
8738                                                 strcpy(name, a_name + a_info[quest[i].k_idx].name);
8739 #ifdef JP
8740                                                 sprintf(note," - %s¤ò¸«¤Ä¤±½Ð¤¹¡£", name);
8741 #else
8742                                                 sprintf(note," - Find out %s.", name);
8743 #endif
8744                                                 break;
8745
8746                                         case QUEST_TYPE_FIND_EXIT:
8747 #ifdef JP
8748                                                 sprintf(note," - Ãµº÷¤¹¤ë¡£");
8749 #else
8750                                                 sprintf(note," - Search.");
8751 #endif
8752                                                 break;
8753
8754                                         case QUEST_TYPE_KILL_NUMBER:
8755 #ifdef JP
8756                                                 sprintf(note," - %d ÂÎ¤Î¥â¥ó¥¹¥¿¡¼¤òÅÝ¤¹¡£(¤¢¤È %d ÂÎ)",
8757                                                         quest[i].max_num, quest[i].max_num - quest[i].cur_num);
8758 #else
8759                                                 sprintf(note," - Kill %d monsters, have killed %d.",
8760                                                         quest[i].max_num, quest[i].cur_num);
8761 #endif
8762                                                 break;
8763
8764                                         case QUEST_TYPE_KILL_ALL:
8765 #ifdef JP
8766                                                 sprintf(note," - Á´¤Æ¤Î¥â¥ó¥¹¥¿¡¼¤òÅÝ¤¹¡£");
8767 #else
8768                                                 sprintf(note," - Kill all monsters.");
8769 #endif
8770                                                 break;
8771                                         }
8772                                 }
8773
8774                                 /* Print the quest info */
8775 #ifdef JP
8776                                 sprintf(tmp_str, "  %s (´í¸±ÅÙ:%d³¬ÁêÅö)%s\n",
8777                                         quest[i].name, quest[i].level, note);
8778 #else
8779                                 sprintf(tmp_str, "  %s (Danger level: %d)%s\n",
8780                                         quest[i].name, quest[i].level, note);
8781 #endif
8782
8783                                 fprintf(fff, tmp_str);
8784
8785                                 if (quest[i].status == QUEST_STATUS_COMPLETED)
8786                                 {
8787 #ifdef JP
8788                                         sprintf(tmp_str, "    ¥¯¥¨¥¹¥ÈÃ£À® - ¤Þ¤ÀÊó½·¤ò¼õ¤±¤È¤Ã¤Æ¤Ê¤¤¡£\n");
8789 #else
8790                                         sprintf(tmp_str, "    Quest Completed - Unrewarded\n");
8791 #endif
8792                                         fprintf(fff, tmp_str);
8793                                 }
8794                                 else
8795                                 {
8796                                         j = 0;
8797
8798                                         while (quest_text[j][0] && j < 10)
8799                                         {
8800                                                 fprintf(fff, "    %s\n", quest_text[j]);
8801                                                 j++;
8802                                         }
8803                                 }
8804                         }
8805                         else if (quest[i].level < rand_level) /* QUEST_TYPE_RANDOM */
8806                         {
8807                                 /* New random */
8808                                 rand_level = quest[i].level;
8809
8810                                 if (max_dlv[DUNGEON_ANGBAND] >= rand_level)
8811                                 {
8812                                         /* Print the quest info */
8813                                         r_ptr = &r_info[quest[i].r_idx];
8814                                         strcpy(name, r_name + r_ptr->name);
8815
8816                                         if (quest[i].max_num > 1)
8817                                         {
8818 #ifdef JP
8819                                                 sprintf(rand_tmp_str,"  %s (%d ³¬) - %d ÂÎ¤Î%s¤òÅÝ¤¹¡£(¤¢¤È %d ÂÎ)\n",
8820                                                         quest[i].name, quest[i].level,
8821                                                         quest[i].max_num, name, quest[i].max_num - quest[i].cur_num);
8822 #else
8823                                                 plural_aux(name);
8824
8825                                                 sprintf(rand_tmp_str,"  %s (Dungeon level: %d)\n  Kill %d %s, have killed %d.\n",
8826                                                         quest[i].name, quest[i].level,
8827                                                         quest[i].max_num, name, quest[i].cur_num);
8828 #endif
8829                                         }
8830                                         else
8831                                         {
8832 #ifdef JP
8833                                                 sprintf(rand_tmp_str,"  %s (%d ³¬) - %s¤òÅÝ¤¹¡£\n",
8834                                                         quest[i].name, quest[i].level, name);
8835 #else
8836                                                 sprintf(rand_tmp_str,"  %s (Dungeon level: %d)\n  Kill %s.\n",
8837                                                         quest[i].name, quest[i].level, name);
8838 #endif
8839                                         }
8840                                 }
8841                         }
8842                 }
8843         }
8844
8845         /* Print the current random quest  */
8846         if (rand_tmp_str[0]) fprintf(fff, rand_tmp_str);
8847
8848 #ifdef JP
8849         if (!total) fprintf(fff, "  ¤Ê¤·\n");
8850 #else
8851         if (!total) fprintf(fff, "  Nothing.\n");
8852 #endif
8853 }
8854
8855
8856 /*
8857  * Print all finished quests
8858  */
8859 void do_cmd_knowledge_quests_completed(FILE *fff, int quest_num[])
8860 {
8861         char tmp_str[120];
8862         int i;
8863         int total = 0;
8864
8865 #ifdef JP
8866         fprintf(fff, "¡ÔÃ£À®¤·¤¿¥¯¥¨¥¹¥È¡Õ\n");
8867 #else
8868         fprintf(fff, "< Completed Quest >\n");
8869 #endif
8870         for (i = 1; i < max_quests; i++)
8871         {
8872                 int q_idx = quest_num[i];
8873
8874                 if (quest[q_idx].status == QUEST_STATUS_FINISHED)
8875                 {
8876                         if (is_fixed_quest_idx(q_idx))
8877                         {
8878                                 /* Set the quest number temporary */
8879                                 int old_quest = p_ptr->inside_quest;
8880
8881                                 p_ptr->inside_quest = q_idx;
8882
8883                                 /* Get the quest */
8884                                 init_flags = INIT_ASSIGN;
8885
8886                                 process_dungeon_file("q_info.txt", 0, 0, 0, 0);
8887
8888                                 /* Reset the old quest number */
8889                                 p_ptr->inside_quest = old_quest;
8890
8891                                 /* No info from "silent" quests */
8892                                 if (quest[q_idx].flags & QUEST_FLAG_SILENT) continue;
8893                         }
8894
8895                         total++;
8896
8897                         if (!is_fixed_quest_idx(q_idx) && quest[q_idx].r_idx)
8898                         {
8899                                 /* Print the quest info */
8900
8901                                 if (quest[q_idx].complev == 0)
8902                                 {
8903                                         sprintf(tmp_str,
8904 #ifdef JP
8905                                                 "  %-40s (%3d³¬)            -   ÉÔÀï¾¡\n",
8906 #else
8907                                                 "  %-40s (Dungeon level: %3d) - (Cancelled)\n",
8908 #endif
8909                                                 r_name+r_info[quest[q_idx].r_idx].name,
8910                                                 quest[q_idx].level);
8911                                 }
8912                                 else
8913                                 {
8914                                         sprintf(tmp_str,
8915 #ifdef JP
8916                                                 "  %-40s (%3d³¬)            - ¥ì¥Ù¥ë%2d\n",
8917 #else
8918                                                 "  %-40s (Dungeon level: %3d) - level %2d\n",
8919 #endif
8920                                                 r_name+r_info[quest[q_idx].r_idx].name,
8921                                                 quest[q_idx].level,
8922                                                 quest[q_idx].complev);
8923                                 }
8924                         }
8925                         else
8926                         {
8927                                 /* Print the quest info */
8928 #ifdef JP
8929                                 sprintf(tmp_str, "  %-40s (´í¸±ÅÙ:%3d³¬ÁêÅö) - ¥ì¥Ù¥ë%2d\n",
8930                                         quest[q_idx].name, quest[q_idx].level, quest[q_idx].complev);
8931 #else
8932                                 sprintf(tmp_str, "  %-40s (Danger  level: %3d) - level %2d\n",
8933                                         quest[q_idx].name, quest[q_idx].level, quest[q_idx].complev);
8934 #endif
8935                         }
8936
8937                         fprintf(fff, tmp_str);
8938                 }
8939         }
8940 #ifdef JP
8941         if (!total) fprintf(fff, "  ¤Ê¤·\n");
8942 #else
8943         if (!total) fprintf(fff, "  Nothing.\n");
8944 #endif
8945 }
8946
8947
8948 /*
8949  * Print all failed quests
8950  */
8951 void do_cmd_knowledge_quests_failed(FILE *fff, int quest_num[])
8952 {
8953         char tmp_str[120];
8954         int i;
8955         int total = 0;
8956
8957 #ifdef JP
8958         fprintf(fff, "¡Ô¼ºÇÔ¤·¤¿¥¯¥¨¥¹¥È¡Õ\n");
8959 #else
8960         fprintf(fff, "< Failed Quest >\n");
8961 #endif
8962         for (i = 1; i < max_quests; i++)
8963         {
8964                 int q_idx = quest_num[i];
8965
8966                 if ((quest[q_idx].status == QUEST_STATUS_FAILED_DONE) || (quest[q_idx].status == QUEST_STATUS_FAILED))
8967                 {
8968                         if (is_fixed_quest_idx(q_idx))
8969                         {
8970                                 /* Set the quest number temporary */
8971                                 int old_quest = p_ptr->inside_quest;
8972
8973                                 p_ptr->inside_quest = q_idx;
8974
8975                                 /* Get the quest text */
8976                                 init_flags = INIT_ASSIGN;
8977
8978                                 process_dungeon_file("q_info.txt", 0, 0, 0, 0);
8979
8980                                 /* Reset the old quest number */
8981                                 p_ptr->inside_quest = old_quest;
8982
8983                                 /* No info from "silent" quests */
8984                                 if (quest[q_idx].flags & QUEST_FLAG_SILENT) continue;
8985                         }
8986
8987                         total++;
8988
8989                         if (!is_fixed_quest_idx(q_idx) && quest[q_idx].r_idx)
8990                         {
8991                                 /* Print the quest info */
8992 #ifdef JP
8993                                 sprintf(tmp_str, "  %-40s (%3d³¬)            - ¥ì¥Ù¥ë%2d\n",
8994                                         r_name+r_info[quest[q_idx].r_idx].name, quest[q_idx].level, quest[q_idx].complev);
8995 #else
8996                                 sprintf(tmp_str, "  %-40s (Dungeon level: %3d) - level %2d\n",
8997                                         r_name+r_info[quest[q_idx].r_idx].name, quest[q_idx].level, quest[q_idx].complev);
8998 #endif
8999                         }
9000                         else
9001                         {
9002                                 /* Print the quest info */
9003 #ifdef JP
9004                                 sprintf(tmp_str, "  %-40s (´í¸±ÅÙ:%3d³¬ÁêÅö) - ¥ì¥Ù¥ë%2d\n",
9005                                         quest[q_idx].name, quest[q_idx].level, quest[q_idx].complev);
9006 #else
9007                                 sprintf(tmp_str, "  %-40s (Danger  level: %3d) - level %2d\n",
9008                                         quest[q_idx].name, quest[q_idx].level, quest[q_idx].complev);
9009 #endif
9010                         }
9011                         fprintf(fff, tmp_str);
9012                 }
9013         }
9014 #ifdef JP
9015         if (!total) fprintf(fff, "  ¤Ê¤·\n");
9016 #else
9017         if (!total) fprintf(fff, "  Nothing.\n");
9018 #endif
9019 }
9020
9021
9022 /*
9023  * Print all random quests
9024  */
9025 static void do_cmd_knowledge_quests_wiz_random(FILE *fff)
9026 {
9027         char tmp_str[120];
9028         int i;
9029         int total = 0;
9030
9031 #ifdef JP
9032         fprintf(fff, "¡Ô»Ä¤ê¤Î¥é¥ó¥À¥à¥¯¥¨¥¹¥È¡Õ\n");
9033 #else
9034         fprintf(fff, "< Remaining Random Quest >\n");
9035 #endif
9036         for (i = 1; i < max_quests; i++)
9037         {
9038                 /* No info from "silent" quests */
9039                 if (quest[i].flags & QUEST_FLAG_SILENT) continue;
9040
9041                 if ((quest[i].type == QUEST_TYPE_RANDOM) && (quest[i].status == QUEST_STATUS_TAKEN))
9042                 {
9043                         total++;
9044
9045                         /* Print the quest info */
9046 #ifdef JP
9047                         sprintf(tmp_str, "  %s (%d³¬, %s)\n",
9048                                 quest[i].name, quest[i].level, r_name+r_info[quest[i].r_idx].name);
9049 #else
9050                         sprintf(tmp_str, "  %s (%d, %s)\n",
9051                                 quest[i].name, quest[i].level, r_name+r_info[quest[i].r_idx].name);
9052 #endif
9053                         fprintf(fff, tmp_str);
9054                 }
9055         }
9056 #ifdef JP
9057         if (!total) fprintf(fff, "  ¤Ê¤·\n");
9058 #else
9059         if (!total) fprintf(fff, "  Nothing.\n");
9060 #endif
9061 }
9062
9063
9064 bool ang_sort_comp_quest_num(vptr u, vptr v, int a, int b)
9065 {
9066         int *q_num = (int *)u;
9067         quest_type *qa = &quest[q_num[a]];
9068         quest_type *qb = &quest[q_num[b]];
9069
9070         /* Unused */
9071         (void)v;
9072
9073         if (qa->complev < qb->complev) return TRUE;
9074         if (qa->complev > qb->complev) return FALSE;
9075         if (qa->level <= qb->level) return TRUE;
9076         return FALSE;
9077 }
9078
9079 void ang_sort_swap_quest_num(vptr u, vptr v, int a, int b)
9080 {
9081         int *q_num = (int *)u;
9082         int tmp;
9083
9084         /* Unused */
9085         (void)v;
9086
9087         tmp = q_num[a];
9088         q_num[a] = q_num[b];
9089         q_num[b] = tmp;
9090 }
9091
9092
9093 /*
9094  * Print quest status of all active quests
9095  */
9096 static void do_cmd_knowledge_quests(void)
9097 {
9098         FILE *fff;
9099         char file_name[1024];
9100         int *quest_num, dummy, i;
9101
9102         /* Open a new file */
9103         fff = my_fopen_temp(file_name, 1024);
9104         if (!fff)
9105         {
9106 #ifdef JP
9107             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
9108 #else
9109             msg_format("Failed to create temporary file %s.", file_name);
9110 #endif
9111             msg_print(NULL);
9112             return;
9113         }
9114
9115         /* Allocate Memory */
9116         C_MAKE(quest_num, max_quests, int);
9117
9118         /* Sort by compete level */
9119         for (i = 1; i < max_quests; i++) quest_num[i] = i;
9120         ang_sort_comp = ang_sort_comp_quest_num;
9121         ang_sort_swap = ang_sort_swap_quest_num;
9122         ang_sort(quest_num, &dummy, max_quests);
9123
9124         /* Dump Quest Information */
9125         do_cmd_knowledge_quests_current(fff);
9126         fputc('\n', fff);
9127         do_cmd_knowledge_quests_completed(fff, quest_num);
9128         fputc('\n', fff);
9129         do_cmd_knowledge_quests_failed(fff, quest_num);
9130         if (p_ptr->wizard)
9131         {
9132                 fputc('\n', fff);
9133                 do_cmd_knowledge_quests_wiz_random(fff);
9134         }
9135
9136         /* Close the file */
9137         my_fclose(fff);
9138
9139         /* Display the file contents */
9140 #ifdef JP
9141         show_file(TRUE, file_name, "¥¯¥¨¥¹¥ÈÃ£À®¾õ¶·", 0, 0);
9142 #else
9143         show_file(TRUE, file_name, "Quest status", 0, 0);
9144 #endif
9145
9146         /* Remove the file */
9147         fd_kill(file_name);
9148
9149         /* Free Memory */
9150         C_KILL(quest_num, max_quests, int);
9151 }
9152
9153
9154 /*
9155  * List my home
9156  */
9157 static void do_cmd_knowledge_home(void)
9158 {
9159         FILE *fff;
9160
9161         int i;
9162         char file_name[1024];
9163         store_type  *st_ptr;
9164         char o_name[MAX_NLEN];
9165         cptr            paren = ")";
9166
9167         process_dungeon_file("w_info.txt", 0, 0, max_wild_y, max_wild_x);
9168
9169         /* Open a new file */
9170         fff = my_fopen_temp(file_name, 1024);
9171         if (!fff) {
9172 #ifdef JP
9173                 msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
9174 #else
9175                 msg_format("Failed to create temporary file %s.", file_name);
9176 #endif
9177                 msg_print(NULL);
9178                 return;
9179         }
9180
9181         if (fff)
9182         {
9183                 /* Print all homes in the different towns */
9184                 st_ptr = &town[1].store[STORE_HOME];
9185
9186                 /* Home -- if anything there */
9187                 if (st_ptr->stock_num)
9188                 {
9189 #ifdef JP
9190                         int x = 1;
9191 #endif
9192                         /* Header with name of the town */
9193 #ifdef JP
9194                         fprintf(fff, "  [ ²æ¤¬²È¤Î¥¢¥¤¥Æ¥à ]\n");
9195 #else
9196                         fprintf(fff, "  [Home Inventory]\n");
9197 #endif
9198
9199                         /* Dump all available items */
9200                         for (i = 0; i < st_ptr->stock_num; i++)
9201                         {
9202 #ifdef JP
9203                                 if ((i % 12) == 0) fprintf(fff, "\n ( %d ¥Ú¡¼¥¸ )\n", x++);
9204                                 object_desc(o_name, &st_ptr->stock[i], 0);
9205                                 if (strlen(o_name) <= 80-3)
9206                                 {
9207                                         fprintf(fff, "%c%s %s\n", I2A(i%12), paren, o_name);
9208                                 }
9209                                 else
9210                                 {
9211                                         int n;
9212                                         char *t;
9213                                         for (n = 0, t = o_name; n < 80-3; n++, t++)
9214                                                 if(iskanji(*t)) {t++; n++;}
9215                                         if (n == 81-3) n = 79-3; /* ºÇ¸å¤¬´Á»úÈ¾Ê¬ */
9216
9217                                         fprintf(fff, "%c%s %.*s\n", I2A(i%12), paren, n, o_name);
9218                                         fprintf(fff, "   %.77s\n", o_name+n);
9219                                 }
9220 #else
9221                                 object_desc(o_name, &st_ptr->stock[i], 0);
9222                                 fprintf(fff, "%c%s %s\n", I2A(i%12), paren, o_name);
9223 #endif
9224
9225                         }
9226
9227                         /* Add an empty line */
9228                         fprintf(fff, "\n\n");
9229                 }
9230         }
9231
9232         /* Close the file */
9233         my_fclose(fff);
9234
9235         /* Display the file contents */
9236 #ifdef JP
9237         show_file(TRUE, file_name, "²æ¤¬²È¤Î¥¢¥¤¥Æ¥à", 0, 0);
9238 #else
9239         show_file(TRUE, file_name, "Home Inventory", 0, 0);
9240 #endif
9241
9242
9243         /* Remove the file */
9244         fd_kill(file_name);
9245 }
9246
9247
9248 /*
9249  * Check the status of "autopick"
9250  */
9251 static void do_cmd_knowledge_autopick(void)
9252 {
9253         int k;
9254         FILE *fff;
9255         char file_name[1024];
9256
9257         /* Open a new file */
9258         fff = my_fopen_temp(file_name, 1024);
9259
9260         if (!fff)
9261         {
9262 #ifdef JP
9263             msg_format("°ì»þ¥Õ¥¡¥¤¥ë %s ¤òºîÀ®¤Ç¤¤Þ¤»¤ó¤Ç¤·¤¿¡£", file_name);
9264 #else
9265             msg_format("Failed to create temporary file %s.", file_name);
9266 #endif
9267             msg_print(NULL);
9268             return;
9269         }
9270
9271         if (!max_autopick)
9272         {
9273 #ifdef JP
9274             fprintf(fff, "¼«Æ°ÇË²õ/½¦¤¤¤Ë¤Ï²¿¤âÅÐÏ¿¤µ¤ì¤Æ¤¤¤Þ¤»¤ó¡£");
9275 #else
9276             fprintf(fff, "No preference for auto picker/destroyer.");
9277 #endif
9278         }
9279         else
9280         {
9281 #ifdef JP
9282             fprintf(fff, "   ¼«Æ°½¦¤¤/ÇË²õ¤Ë¤Ï¸½ºß %d¹ÔÅÐÏ¿¤µ¤ì¤Æ¤¤¤Þ¤¹¡£\n\n", max_autopick);
9283 #else
9284             fprintf(fff, "   There are %d registered lines for auto picker/destroyer.\n\n", max_autopick);
9285 #endif
9286         }
9287
9288         for (k = 0; k < max_autopick; k++)
9289         {
9290                 cptr tmp;
9291                 byte act = autopick_list[k].action;
9292                 if (act & DONT_AUTOPICK)
9293                 {
9294 #ifdef JP
9295                         tmp = "ÊüÃÖ";
9296 #else
9297                         tmp = "Leave";
9298 #endif
9299                 }
9300                 else if (act & DO_AUTODESTROY)
9301                 {
9302 #ifdef JP
9303                         tmp = "ÇË²õ";
9304 #else
9305                         tmp = "Destroy";
9306 #endif
9307                 }
9308                 else if (act & DO_AUTOPICK)
9309                 {
9310 #ifdef JP
9311                         tmp = "½¦¤¦";
9312 #else
9313                         tmp = "Pickup";
9314 #endif
9315                 }
9316                 else /* if (act & DO_QUERY_AUTOPICK) */ /* Obvious */
9317                 {
9318 #ifdef JP
9319                         tmp = "³ÎÇ§";
9320 #else
9321                         tmp = "Query";
9322 #endif
9323                 }
9324
9325                 if (act & DO_DISPLAY)
9326                         fprintf(fff, "%11s", format("[%s]", tmp));
9327                 else
9328                         fprintf(fff, "%11s", format("(%s)", tmp));
9329
9330                 tmp = autopick_line_from_entry(&autopick_list[k]);
9331                 fprintf(fff, " %s", tmp);
9332                 string_free(tmp);
9333                 fprintf(fff, "\n");
9334         }
9335         /* Close the file */
9336         my_fclose(fff);
9337         /* Display the file contents */
9338 #ifdef JP
9339         show_file(TRUE, file_name, "¼«Æ°½¦¤¤/ÇË²õ ÀßÄê¥ê¥¹¥È", 0, 0);
9340 #else
9341         show_file(TRUE, file_name, "Auto-picker/Destroyer", 0, 0);
9342 #endif
9343
9344         /* Remove the file */
9345         fd_kill(file_name);
9346 }
9347
9348
9349 /*
9350  * Interact with "knowledge"
9351  */
9352 void do_cmd_knowledge(void)
9353 {
9354         int i, p = 0;
9355         bool need_redraw = FALSE;
9356
9357         /* File type is "TEXT" */
9358         FILE_TYPE(FILE_TYPE_TEXT);
9359
9360         /* Save the screen */
9361         screen_save();
9362
9363         /* Interact until done */
9364         while (1)
9365         {
9366                 /* Clear screen */
9367                 Term_clear();
9368
9369                 /* Ask for a choice */
9370 #ifdef JP
9371                 prt(format("%d/2 ¥Ú¡¼¥¸", (p+1)), 2, 65);
9372                 prt("¸½ºß¤ÎÃÎ¼±¤ò³ÎÇ§¤¹¤ë", 3, 0);
9373 #else
9374                 prt(format("page %d/2", (p+1)), 2, 65);
9375                 prt("Display current knowledge", 3, 0);
9376 #endif
9377
9378                 /* Give some choices */
9379 #ifdef JP
9380                 if (p == 0)
9381                 {
9382                         prt("(1) ´ûÃÎ¤ÎÅÁÀâ¤Î¥¢¥¤¥Æ¥à                 ¤Î°ìÍ÷", 6, 5);
9383                         prt("(2) ´ûÃÎ¤Î¥¢¥¤¥Æ¥à                       ¤Î°ìÍ÷", 7, 5);
9384                         prt("(3) ´ûÃÎ¤ÎÀ¸¤¤Æ¤¤¤ë¥æ¥Ë¡¼¥¯¡¦¥â¥ó¥¹¥¿¡¼ ¤Î°ìÍ÷", 8, 5);
9385                         prt("(4) ´ûÃÎ¤Î¥â¥ó¥¹¥¿¡¼                     ¤Î°ìÍ÷", 9, 5);
9386                         prt("(5) ÅÝ¤·¤¿Å¨¤Î¿ô                         ¤Î°ìÍ÷", 10, 5);
9387                         if (!vanilla_town) prt("(6) ¾Þ¶â¼ó                               ¤Î°ìÍ÷", 11, 5);
9388                         prt("(7) ¸½ºß¤Î¥Ú¥Ã¥È                         ¤Î°ìÍ÷", 12, 5);
9389                         prt("(8) ²æ¤¬²È¤Î¥¢¥¤¥Æ¥à                     ¤Î°ìÍ÷", 13, 5);
9390                         prt("(9) *´ÕÄê*ºÑ¤ßÁõÈ÷¤ÎÂÑÀ                 ¤Î°ìÍ÷", 14, 5);
9391                         prt("(0) ÃÏ·Á¤ÎÉ½¼¨Ê¸»ú/¥¿¥¤¥ë                ¤Î°ìÍ÷", 15, 5);
9392                 }
9393                 else
9394                 {
9395                         prt("(a) ¼«Ê¬¤Ë´Ø¤¹¤ë¾ðÊó                     ¤Î°ìÍ÷", 6, 5);
9396                         prt("(b) ÆÍÁ³ÊÑ°Û                             ¤Î°ìÍ÷", 7, 5);
9397                         prt("(c) Éð´ï¤Î·Ð¸³ÃÍ                         ¤Î°ìÍ÷", 8, 5);
9398                         prt("(d) ËâË¡¤Î·Ð¸³ÃÍ                         ¤Î°ìÍ÷", 9, 5);
9399                         prt("(e) µ»Ç½¤Î·Ð¸³ÃÍ                         ¤Î°ìÍ÷", 10, 5);
9400                         prt("(f) ¥×¥ì¥¤¥ä¡¼¤ÎÆÁ                       ¤Î°ìÍ÷", 11, 5);
9401                         prt("(g) Æþ¤Ã¤¿¥À¥ó¥¸¥ç¥ó                     ¤Î°ìÍ÷", 12, 5);
9402                         prt("(h) ¼Â¹ÔÃæ¤Î¥¯¥¨¥¹¥È                     ¤Î°ìÍ÷", 13, 5);
9403                         prt("(i) ¸½ºß¤Î¼«Æ°½¦¤¤/ÇË²õÀßÄê              ¤Î°ìÍ÷", 14, 5);
9404                 }
9405 #else
9406                 if (p == 0)
9407                 {
9408                         prt("(1) Display known artifacts", 6, 5);
9409                         prt("(2) Display known objects", 7, 5);
9410                         prt("(3) Display remaining uniques", 8, 5);
9411                         prt("(4) Display known monster", 9, 5);
9412                         prt("(5) Display kill count", 10, 5);
9413                         if (!vanilla_town) prt("(6) Display wanted monsters", 11, 5);
9414                         prt("(7) Display current pets", 12, 5);
9415                         prt("(8) Display home inventory", 13, 5);
9416                         prt("(9) Display *identified* equip.", 14, 5);
9417                         prt("(0) Display terrain symbols.", 15, 5);
9418                 }
9419                 else
9420                 {
9421                         prt("(a) Display about yourself", 6, 5);
9422                         prt("(b) Display mutations", 7, 5);
9423                         prt("(c) Display weapon proficiency", 8, 5);
9424                         prt("(d) Display spell proficiency", 9, 5);
9425                         prt("(e) Display misc. proficiency", 10, 5);
9426                         prt("(f) Display virtues", 11, 5);
9427                         prt("(g) Display dungeons", 12, 5);
9428                         prt("(h) Display current quests", 13, 5);
9429                         prt("(i) Display auto pick/destroy", 14, 5);
9430                 }
9431 #endif
9432                 /* Prompt */
9433 #ifdef JP
9434                 prt("-Â³¤¯-", 17, 8);
9435                 prt("ESC) È´¤±¤ë", 21, 1);
9436                 prt("SPACE) ¼¡¥Ú¡¼¥¸", 21, 30);
9437                 /*prt("-) Á°¥Ú¡¼¥¸", 21, 60);*/
9438                 prt("¥³¥Þ¥ó¥É:", 20, 0);
9439 #else
9440                 prt("-more-", 17, 8);
9441                 prt("ESC) Exit menu", 21, 1);
9442                 prt("SPACE) Next page", 21, 30);
9443                 /*prt("-) Previous page", 21, 60);*/
9444                 prt("Command: ", 20, 0);
9445 #endif
9446
9447                 /* Prompt */
9448                 i = inkey();
9449
9450                 /* Done */
9451                 if (i == ESCAPE) break;
9452                 switch (i)
9453                 {
9454                 case ' ': /* Page change */
9455                 case '-':
9456                         p = 1 - p;
9457                         break;
9458                 case '1': /* Artifacts */
9459                         do_cmd_knowledge_artifacts();
9460                         break;
9461                 case '2': /* Objects */
9462                         do_cmd_knowledge_objects(&need_redraw);
9463                         break;
9464                 case '3': /* Uniques */
9465                         do_cmd_knowledge_uniques();
9466                         break;
9467                 case '4': /* Monsters */
9468                         do_cmd_knowledge_monsters(&need_redraw);
9469                         break;
9470                 case '5': /* Kill count  */
9471                         do_cmd_knowledge_kill_count();
9472                         break;
9473                 case '6': /* wanted */
9474                         if (!vanilla_town) do_cmd_knowledge_kubi();
9475                         break;
9476                 case '7': /* Pets */
9477                         do_cmd_knowledge_pets();
9478                         break;
9479                 case '8': /* Home */
9480                         do_cmd_knowledge_home();
9481                         break;
9482                 case '9': /* Resist list */
9483                         do_cmd_knowledge_inven();
9484                         break;
9485                 case '0': /* Feature list */
9486                         do_cmd_knowledge_features(&need_redraw);
9487                         break;
9488                 /* Next page */
9489                 case 'a': /* Max stat */
9490                         do_cmd_knowledge_stat();
9491                         break;
9492                 case 'b': /* Mutations */
9493                         do_cmd_knowledge_mutations();
9494                         break;
9495                 case 'c': /* weapon-exp */
9496                         do_cmd_knowledge_weapon_exp();
9497                         break;
9498                 case 'd': /* spell-exp */
9499                         do_cmd_knowledge_spell_exp();
9500                         break;
9501                 case 'e': /* skill-exp */
9502                         do_cmd_knowledge_skill_exp();
9503                         break;
9504                 case 'f': /* Virtues */
9505                         do_cmd_knowledge_virtues();
9506                         break;
9507                 case 'g': /* Dungeon */
9508                         do_cmd_knowledge_dungeon();
9509                         break;
9510                 case 'h': /* Quests */
9511                         do_cmd_knowledge_quests();
9512                         break;
9513                 case 'i': /* Autopick */
9514                         do_cmd_knowledge_autopick();
9515                         break;
9516                 default: /* Unknown option */
9517                         bell();
9518                 }
9519
9520                 /* Flush messages */
9521                 msg_print(NULL);
9522         }
9523
9524         /* Restore the screen */
9525         screen_load();
9526
9527         if (need_redraw) do_cmd_redraw();
9528 }
9529
9530
9531 /*
9532  * Check on the status of an active quest
9533  */
9534 void do_cmd_checkquest(void)
9535 {
9536         /* File type is "TEXT" */
9537         FILE_TYPE(FILE_TYPE_TEXT);
9538
9539         /* Save the screen */
9540         screen_save();
9541
9542         /* Quest info */
9543         do_cmd_knowledge_quests();
9544
9545         /* Restore the screen */
9546         screen_load();
9547 }
9548
9549
9550 /*
9551  * Display the time and date
9552  */
9553 void do_cmd_time(void)
9554 {
9555         int day, hour, min, full, start, end, num;
9556         char desc[1024];
9557
9558         char buf[1024];
9559
9560         FILE *fff;
9561
9562         extract_day_hour_min(&day, &hour, &min);
9563
9564         full = hour * 100 + min;
9565
9566         start = 9999;
9567         end = -9999;
9568
9569         num = 0;
9570
9571 #ifdef JP
9572         strcpy(desc, "ÊÑ¤Ê»þ¹ï¤À¡£");
9573 #else
9574         strcpy(desc, "It is a strange time.");
9575 #endif
9576
9577
9578         /* Message */
9579 #ifdef JP
9580         msg_format("%d ÆüÌÜ,»þ¹ï¤Ï%d:%02d %s¤Ç¤¹¡£",
9581                    day, (hour % 12 == 0) ? 12 : (hour % 12),
9582                    min, (hour < 12) ? "AM" : "PM");
9583 #else
9584         msg_format("This is day %d. The time is %d:%02d %s.",
9585                    day, (hour % 12 == 0) ? 12 : (hour % 12),
9586                    min, (hour < 12) ? "AM" : "PM");
9587 #endif
9588
9589
9590         /* Find the path */
9591         if (!randint0(10) || p_ptr->image)
9592         {
9593 #ifdef JP
9594                 path_build(buf, sizeof(buf), ANGBAND_DIR_FILE, "timefun_j.txt");
9595 #else
9596                 path_build(buf, sizeof(buf), ANGBAND_DIR_FILE, "timefun.txt");
9597 #endif
9598
9599         }
9600         else
9601         {
9602 #ifdef JP
9603                 path_build(buf, sizeof(buf), ANGBAND_DIR_FILE, "timenorm_j.txt");
9604 #else
9605                 path_build(buf, sizeof(buf), ANGBAND_DIR_FILE, "timenorm.txt");
9606 #endif
9607
9608         }
9609
9610         /* Open this file */
9611         fff = my_fopen(buf, "rt");
9612
9613         /* Oops */
9614         if (!fff) return;
9615
9616         /* Find this time */
9617         while (!my_fgets(fff, buf, sizeof(buf)))
9618         {
9619                 /* Ignore comments */
9620                 if (!buf[0] || (buf[0] == '#')) continue;
9621
9622                 /* Ignore invalid lines */
9623                 if (buf[1] != ':') continue;
9624
9625                 /* Process 'Start' */
9626                 if (buf[0] == 'S')
9627                 {
9628                         /* Extract the starting time */
9629                         start = atoi(buf + 2);
9630
9631                         /* Assume valid for an hour */
9632                         end = start + 59;
9633
9634                         /* Next... */
9635                         continue;
9636                 }
9637
9638                 /* Process 'End' */
9639                 if (buf[0] == 'E')
9640                 {
9641                         /* Extract the ending time */
9642                         end = atoi(buf + 2);
9643
9644                         /* Next... */
9645                         continue;
9646                 }
9647
9648                 /* Ignore incorrect range */
9649                 if ((start > full) || (full > end)) continue;
9650
9651                 /* Process 'Description' */
9652                 if (buf[0] == 'D')
9653                 {
9654                         num++;
9655
9656                         /* Apply the randomizer */
9657                         if (!randint0(num)) strcpy(desc, buf + 2);
9658
9659                         /* Next... */
9660                         continue;
9661                 }
9662         }
9663
9664         /* Message */
9665         msg_print(desc);
9666
9667         /* Close the file */
9668         my_fclose(fff);
9669 }