MPWのバグらしき現象で、pre-process中に収集中の「収」の字の2バイト目が

[hengbandforosx/hengbandosx.git] / src / autopick.c

/* File: autopick.c */

/* Purpose: Object Auto-picker/Destroyer */

/*
 * Copyright (c) 2002  Mogami
 *
 * This software may be copied and distributed for educational, research, and
 * not for profit purposes provided that this copyright and statement are
 * included in all such copies.
 */

#include "angband.h"

#define MAX_LINELEN 1024

static object_type autopick_last_destroyed_object;

/*
 * Macros for Keywords
 */
#define FLG_ALL             0
#define FLG_COLLECTING      1
#define FLG_UNIDENTIFIED    2
#define FLG_IDENTIFIED      3
#define FLG_STAR_IDENTIFIED 4
#define FLG_BOOSTED         5
#define FLG_MORE_THAN       6
#define FLG_DICE            7
#define FLG_MORE_BONUS      8
#define FLG_MORE_BONUS2     9
#define FLG_WORTHLESS       10
#define FLG_ARTIFACT        11
#define FLG_EGO             12
#define FLG_NAMELESS        13
#define FLG_UNAWARE         14
#define FLG_WANTED          15
#define FLG_UNIQUE          16
#define FLG_HUMAN           17
#define FLG_UNREADABLE      18
#define FLG_REALM1          19
#define FLG_REALM2          20
#define FLG_FIRST           21
#define FLG_SECOND          22
#define FLG_THIRD           23
#define FLG_FOURTH          24

#define FLG_ITEMS           30
#define FLG_WEAPONS         31
#define FLG_ARMORS          32
#define FLG_MISSILES        33
#define FLG_DEVICES         34
#define FLG_LIGHTS          35
#define FLG_JUNKS           36
#define FLG_SPELLBOOKS      37
#define FLG_HAFTED          38
#define FLG_SHIELDS         39
#define FLG_BOWS            40
#define FLG_RINGS           41
#define FLG_AMULETS         42
#define FLG_SUITS           43
#define FLG_CLOAKS          44
#define FLG_HELMS           45
#define FLG_GLOVES          46
#define FLG_BOOTS           47

#ifdef JP

#define KEY_ALL "¤¹¤Ù¤Æ¤Î"

#ifdef MAC_MPW
/*
 * MEGA HACK -- MPW¤Î¥Ð¥°½ü¤±¡£
 * pre-processÃæ¤Ë¡Ö¼ý¡×¤Î»ú¤Î2¥Ð¥¤¥ÈÌܤ¬¾¡¼ê¤Ë¾Ã¤¨¤Æ¤·¤Þ¤¦¡£
 */
#define KEY_COLLECTING "\x8e\xfb½¸Ãæ¤Î"
#else
#define KEY_COLLECTING "¼ý½¸Ãæ¤Î"
#endif

#define KEY_UNIDENTIFIED "̤´ÕÄê¤Î"
#define KEY_IDENTIFIED "´ÕÄêºÑ¤ß¤Î"
#define KEY_STAR_IDENTIFIED "*´ÕÄê*ºÑ¤ß¤Î"
#define KEY_BOOSTED "¥À¥¤¥¹Ìܤΰ㤦"
#define KEY_MORE_THAN  "¥À¥¤¥¹ÌÜ"
#define KEY_DICE  "°Ê¾å¤Î"
#define KEY_MORE_BONUS  "½¤ÀµÃͤ¬"
#define KEY_MORE_BONUS2  "°Ê¾å¤Î"
#define KEY_WORTHLESS "̵²ÁÃͤÎ"
#define KEY_ARTIFACT "¥¢¡¼¥Æ¥£¥Õ¥¡¥¯¥È"
#define KEY_EGO "¥¨¥´"
#define KEY_NAMELESS "̵ÌäÎ"
#define KEY_UNAWARE "̤ȽÌÀ¤Î"
#define KEY_WANTED "¾Þ¶â¼ó¤Î"
#define KEY_UNIQUE "¥æ¥Ë¡¼¥¯¡¦¥â¥ó¥¹¥¿¡¼¤Î"
#define KEY_HUMAN "¿Í´Ö¤Î"
#define KEY_UNREADABLE "Æɤá¤Ê¤¤"
#define KEY_REALM1 "Âè°ìÎΰè¤Î"
#define KEY_REALM2 "ÂèÆóÎΰè¤Î"
#define KEY_FIRST "1ºýÌܤÎ"
#define KEY_SECOND "2ºýÌܤÎ"
#define KEY_THIRD "3ºýÌܤÎ"
#define KEY_FOURTH "4ºýÌܤÎ"
#define KEY_ITEMS "¥¢¥¤¥Æ¥à"
#define KEY_WEAPONS "Éð´ï"
#define KEY_ARMORS "Ëɶñ"
#define KEY_MISSILES "Ìð"
#define KEY_DEVICES "ËâË¡¥¢¥¤¥Æ¥à"
#define KEY_LIGHTS "¸÷¸»"
#define KEY_JUNKS "¤¬¤é¤¯¤¿"
#define KEY_SPELLBOOKS "ËâË¡½ñ"
#define KEY_HAFTED "Æß´ï"
#define KEY_SHIELDS "½â"
#define KEY_BOWS "µÝ"
#define KEY_RINGS "»ØÎØ"
#define KEY_AMULETS "¥¢¥ß¥å¥ì¥Ã¥È"
#define KEY_SUITS "³»"
#define KEY_CLOAKS "¥¯¥í¡¼¥¯"
#define KEY_HELMS "³õ"
#define KEY_GLOVES "äƼê"
#define KEY_BOOTS "·¤"

#else 

#define KEY_ALL "all"
#define KEY_COLLECTING "collecting"
#define KEY_UNIDENTIFIED "unidentified"
#define KEY_IDENTIFIED "identified"
#define KEY_STAR_IDENTIFIED "*identified*"
#define KEY_BOOSTED "dice boosted"
#define KEY_MORE_THAN  "more than"
#define KEY_DICE  " dice"
#define KEY_MORE_BONUS  "more bonus than"
#define KEY_MORE_BONUS2  ""
#define KEY_WORTHLESS "worthless"
#define KEY_ARTIFACT "artifact"
#define KEY_EGO "ego"
#define KEY_NAMELESS "nameless"
#define KEY_UNAWARE "unaware"
#define KEY_WANTED "wanted"
#define KEY_UNIQUE "unique monster's"
#define KEY_HUMAN "human"
#define KEY_UNREADABLE "unreadable"
#define KEY_REALM1 "first realm's"
#define KEY_REALM2 "second realm's"
#define KEY_FIRST "first"
#define KEY_SECOND "second"
#define KEY_THIRD "third"
#define KEY_FOURTH "fourth"
#define KEY_ITEMS "items"
#define KEY_WEAPONS "weapons"
#define KEY_ARMORS "armors"
#define KEY_MISSILES "missiles"
#define KEY_DEVICES "magical devices"
#define KEY_LIGHTS "lights"
#define KEY_JUNKS "junks"
#define KEY_SPELLBOOKS "spellbooks"
#define KEY_HAFTED "hafted weapons"
#define KEY_SHIELDS "shields"
#define KEY_BOWS "bows"
#define KEY_RINGS "rings"
#define KEY_AMULETS "amulets"
#define KEY_SUITS "suits"
#define KEY_CLOAKS "cloaks"
#define KEY_HELMS "helms"
#define KEY_GLOVES "gloves"
#define KEY_BOOTS "boots"

#endif /* JP */

#define MATCH_KEY(KEY) (!strncmp(ptr, KEY, sizeof(KEY)-1)\
     ? (ptr += sizeof(KEY)-1, (' '==*ptr) ? ptr++ : 0, TRUE) : FALSE)
#define MATCH_KEY2(KEY) (!strncmp(ptr, KEY, sizeof(KEY)-1)\
     ? (prev_ptr = ptr, ptr += sizeof(KEY)-1, (' '==*ptr) ? ptr++ : 0, TRUE) : FALSE)

#ifdef JP
#define ADD_KEY(KEY) strcat(ptr, KEY)
#else
#define ADD_KEY(KEY) (strcat(ptr, KEY), strcat(ptr, " "))
#endif
#define ADD_KEY2(KEY) strcat(ptr, KEY)

#define ADD_FLG(FLG) (entry->flag[FLG / 32] |= (1L << (FLG % 32)))
#define REM_FLG(FLG) (entry->flag[FLG / 32] &= ~(1L << (FLG % 32)))
#define ADD_FLG_NOUN(FLG) (ADD_FLG(FLG), prev_flg = FLG)
#define IS_FLG(FLG) (entry->flag[FLG / 32] & (1L << (FLG % 32)))

#ifdef JP
        static char kanji_colon[] = "¡§";
#endif


/*
 * Reconstruct preference line from entry
 */
cptr autopick_line_from_entry(autopick_type *entry)
{
        char buf[MAX_LINELEN];
        char *ptr;
        bool sepa_flag = TRUE;

        *buf = '\0';
        if (!(entry->action & DO_DISPLAY)) strcat(buf, "(");
        if (entry->action & DO_QUERY_AUTOPICK) strcat(buf, ";");
        if (entry->action & DO_AUTODESTROY) strcat(buf, "!");
        if (entry->action & DONT_AUTOPICK) strcat(buf, "~");

        ptr = buf;

        if (IS_FLG(FLG_ALL)) ADD_KEY(KEY_ALL);
        if (IS_FLG(FLG_COLLECTING)) ADD_KEY(KEY_COLLECTING);
        if (IS_FLG(FLG_UNIDENTIFIED)) ADD_KEY(KEY_UNIDENTIFIED);
        if (IS_FLG(FLG_IDENTIFIED)) ADD_KEY(KEY_IDENTIFIED);
        if (IS_FLG(FLG_STAR_IDENTIFIED)) ADD_KEY(KEY_STAR_IDENTIFIED);
        if (IS_FLG(FLG_UNAWARE)) ADD_KEY(KEY_UNAWARE);
        if (IS_FLG(FLG_BOOSTED)) ADD_KEY(KEY_BOOSTED);

        if (IS_FLG(FLG_MORE_THAN))
        {
                ADD_KEY(KEY_MORE_THAN);
                strcat(ptr, format("%d", entry->dice));
                ADD_KEY(KEY_DICE);
        }

        if (IS_FLG(FLG_MORE_BONUS))
        {
                ADD_KEY(KEY_MORE_BONUS);
                strcat(ptr, format("%d", entry->bonus));
                ADD_KEY(KEY_MORE_BONUS2);
        }

        if (IS_FLG(FLG_UNREADABLE)) ADD_KEY(KEY_UNREADABLE);
        if (IS_FLG(FLG_REALM1)) ADD_KEY(KEY_REALM1);
        if (IS_FLG(FLG_REALM2)) ADD_KEY(KEY_REALM2);
        if (IS_FLG(FLG_FIRST)) ADD_KEY(KEY_FIRST);
        if (IS_FLG(FLG_SECOND)) ADD_KEY(KEY_SECOND);
        if (IS_FLG(FLG_THIRD)) ADD_KEY(KEY_THIRD);
        if (IS_FLG(FLG_FOURTH)) ADD_KEY(KEY_FOURTH);
        if (IS_FLG(FLG_WANTED)) ADD_KEY(KEY_WANTED);
        if (IS_FLG(FLG_UNIQUE)) ADD_KEY(KEY_UNIQUE);
        if (IS_FLG(FLG_HUMAN)) ADD_KEY(KEY_HUMAN);
        if (IS_FLG(FLG_WORTHLESS)) ADD_KEY(KEY_WORTHLESS);
        if (IS_FLG(FLG_NAMELESS)) ADD_KEY(KEY_NAMELESS);
        if (IS_FLG(FLG_EGO)) ADD_KEY(KEY_EGO);

        if (IS_FLG(FLG_ARTIFACT)) ADD_KEY(KEY_ARTIFACT);

        if (IS_FLG(FLG_ITEMS)) ADD_KEY2(KEY_ITEMS);
        else if (IS_FLG(FLG_WEAPONS)) ADD_KEY2(KEY_WEAPONS);
        else if (IS_FLG(FLG_ARMORS)) ADD_KEY2(KEY_ARMORS);
        else if (IS_FLG(FLG_MISSILES)) ADD_KEY2(KEY_MISSILES);
        else if (IS_FLG(FLG_DEVICES)) ADD_KEY2(KEY_DEVICES);
        else if (IS_FLG(FLG_LIGHTS)) ADD_KEY2(KEY_LIGHTS);
        else if (IS_FLG(FLG_JUNKS)) ADD_KEY2(KEY_JUNKS);
        else if (IS_FLG(FLG_SPELLBOOKS)) ADD_KEY2(KEY_SPELLBOOKS);
        else if (IS_FLG(FLG_HAFTED)) ADD_KEY2(KEY_HAFTED);
        else if (IS_FLG(FLG_SHIELDS)) ADD_KEY2(KEY_SHIELDS);
        else if (IS_FLG(FLG_BOWS)) ADD_KEY2(KEY_BOWS);
        else if (IS_FLG(FLG_RINGS)) ADD_KEY2(KEY_RINGS);
        else if (IS_FLG(FLG_AMULETS)) ADD_KEY2(KEY_AMULETS);
        else if (IS_FLG(FLG_SUITS)) ADD_KEY2(KEY_SUITS);
        else if (IS_FLG(FLG_CLOAKS)) ADD_KEY2(KEY_CLOAKS);
        else if (IS_FLG(FLG_HELMS)) ADD_KEY2(KEY_HELMS);
        else if (IS_FLG(FLG_GLOVES)) ADD_KEY2(KEY_GLOVES);
        else if (IS_FLG(FLG_BOOTS)) ADD_KEY2(KEY_BOOTS);

        /* You don't need sepalator after adjective */
        /* 'artifact' is not true adjective */
        else if (!IS_FLG(FLG_ARTIFACT))
                sepa_flag = FALSE;

        if (entry->name && entry->name[0])
        {
                int i, j = 0;

                if (sepa_flag) strcat(buf, ":");

                i = strlen(buf);
                while (entry->name[j] && i < MAX_LINELEN - 2 - 1)
                {
#ifdef JP
                        if (iskanji(entry->name[j]))
                                buf[i++] = entry->name[j++];
#endif
                        buf[i++] = entry->name[j++];
                }
                buf[i] = '\0';
        }

        if (entry->insc)
        {
                int i, j = 0;
                strcat(buf, "#");
                i = strlen(buf);

                while (entry->insc[j] && i < MAX_LINELEN - 2)
                {
#ifdef JP
                        if (iskanji(entry->insc[j]))
                                buf[i++] = entry->insc[j++];
#endif
                        buf[i++] = entry->insc[j++];
                }
                buf[i] = '\0';
        }

        return string_make(buf);
}


/*
 * Reconstruct preference line from entry and kill entry
 */
static cptr autopick_line_from_entry_kill(autopick_type *entry)
{
        cptr ptr = autopick_line_from_entry(entry);

        /* Free memory for original entry */
        autopick_free_entry(entry);

        return ptr;
}


/*
 * A function to create new entry
 */
bool autopick_new_entry(autopick_type *entry, cptr str)
{
        cptr insc;
        int i;
        byte act = 0;
        char buf[MAX_LINELEN];
        cptr prev_ptr, ptr, old_ptr;
        int prev_flg;

        if (str[1] == ':') switch (str[0])
        {
        case '?': case '%':
        case 'A': case 'P': case 'C':
                return FALSE;
        }

        entry->flag[0] = entry->flag[1] = 0L;
        entry->dice = 0;

        act = DO_AUTOPICK | DO_DISPLAY;
        while (1)
        {
                if ((act & DO_AUTOPICK) && *str == '!')
                {
                        act &= ~DO_AUTOPICK;
                        act |= DO_AUTODESTROY;
                        str++;
                }
                else if ((act & DO_AUTOPICK) && *str == '~')
                {
                        act &= ~DO_AUTOPICK;
                        act |= DONT_AUTOPICK;
                        str++;
                }
                else if ((act & DO_AUTOPICK) && *str == ';')
                {
                        act &= ~DO_AUTOPICK;
                        act |= DO_QUERY_AUTOPICK;
                        str++;
                }
                else if ((act & DO_DISPLAY) && *str == '(')
                {
                        act &= ~DO_DISPLAY;
                        str++;
                }
                else
                        break;
        }

        /* don't mind upper or lower case */
        insc = NULL;
        for (i = 0; *str; i++)
        {
                char c = *str++;
#ifdef JP
                if (iskanji(c))
                {
                        buf[i++] = c;
                        buf[i] = *str++;
                        continue;
                }
#endif
                /* Auto-inscription? */
                if (c == '#')
                {
                        buf[i] = '\0';
                        insc = str;
                        break;
                }

                if (isupper(c)) c = tolower(c);

                buf[i] = c;
        }
        buf[i] = '\0';
        
        /* Skip empty line */
        if (*buf == 0) return FALSE;

        ptr = prev_ptr = buf;
        old_ptr = NULL;

        while (old_ptr != ptr)
        {
                /* Save current location */
                old_ptr = ptr;

                if (MATCH_KEY(KEY_ALL)) ADD_FLG(FLG_ALL);
                if (MATCH_KEY(KEY_COLLECTING)) ADD_FLG(FLG_COLLECTING);
                if (MATCH_KEY(KEY_UNIDENTIFIED)) ADD_FLG(FLG_UNIDENTIFIED);
                if (MATCH_KEY(KEY_IDENTIFIED)) ADD_FLG(FLG_IDENTIFIED);
                if (MATCH_KEY(KEY_STAR_IDENTIFIED)) ADD_FLG(FLG_STAR_IDENTIFIED);
                if (MATCH_KEY(KEY_BOOSTED)) ADD_FLG(FLG_BOOSTED);

                /*** Weapons whose dd*ds is more than nn ***/
                if (MATCH_KEY2(KEY_MORE_THAN))
                {
                        int k = 0;
                        entry->dice = 0;

                        /* Drop leading spaces */
                        while (' ' == *ptr) ptr++;

                        /* Read number */
                        while ('0' <= *ptr && *ptr <= '9')
                        {
                                entry->dice = 10 * entry->dice + (*ptr - '0');
                                ptr++;
                                k++;
                        }

                        if (k > 0 && k <= 2)
                        {
                                (void)MATCH_KEY(KEY_DICE);
                                ADD_FLG(FLG_MORE_THAN);
                        }
                        else
                                ptr = prev_ptr;
                }

                /*** Items whose magical bonus is more than n ***/
                if (MATCH_KEY2(KEY_MORE_BONUS))
                {
                        int k = 0;
                        entry->bonus = 0;

                        /* Drop leading spaces */
                        while (' ' == *ptr) ptr++;

                        /* Read number */
                        while ('0' <= *ptr && *ptr <= '9')
                        {
                                entry->bonus = 10 * entry->bonus + (*ptr - '0');
                                ptr++;
                                k++;
                        }

                        if (k > 0 && k <= 2)
                        {
                                (void)MATCH_KEY(KEY_MORE_BONUS2);
                                ADD_FLG(FLG_MORE_BONUS);
                        }
                        else
                                ptr = prev_ptr;
                }

                if (MATCH_KEY(KEY_WORTHLESS)) ADD_FLG(FLG_WORTHLESS);
                if (MATCH_KEY(KEY_EGO)) ADD_FLG(FLG_EGO);
                if (MATCH_KEY(KEY_NAMELESS)) ADD_FLG(FLG_NAMELESS);
                if (MATCH_KEY(KEY_UNAWARE)) ADD_FLG(FLG_UNAWARE);
                if (MATCH_KEY(KEY_WANTED)) ADD_FLG(FLG_WANTED);
                if (MATCH_KEY(KEY_UNIQUE)) ADD_FLG(FLG_UNIQUE);
                if (MATCH_KEY(KEY_HUMAN)) ADD_FLG(FLG_HUMAN);
                if (MATCH_KEY(KEY_UNREADABLE)) ADD_FLG(FLG_UNREADABLE);
                if (MATCH_KEY(KEY_REALM1)) ADD_FLG(FLG_REALM1);
                if (MATCH_KEY(KEY_REALM2)) ADD_FLG(FLG_REALM2);
                if (MATCH_KEY(KEY_FIRST)) ADD_FLG(FLG_FIRST);
                if (MATCH_KEY(KEY_SECOND)) ADD_FLG(FLG_SECOND);
                if (MATCH_KEY(KEY_THIRD)) ADD_FLG(FLG_THIRD);
                if (MATCH_KEY(KEY_FOURTH)) ADD_FLG(FLG_FOURTH);
        }

        /* Not yet found any noun */
        prev_flg = -1;

        if (MATCH_KEY2(KEY_ARTIFACT)) ADD_FLG_NOUN(FLG_ARTIFACT);

        if (MATCH_KEY2(KEY_ITEMS)) ADD_FLG_NOUN(FLG_ITEMS);
        else if (MATCH_KEY2(KEY_WEAPONS)) ADD_FLG_NOUN(FLG_WEAPONS);
        else if (MATCH_KEY2(KEY_ARMORS)) ADD_FLG_NOUN(FLG_ARMORS);
        else if (MATCH_KEY2(KEY_MISSILES)) ADD_FLG_NOUN(FLG_MISSILES);
        else if (MATCH_KEY2(KEY_DEVICES)) ADD_FLG_NOUN(FLG_DEVICES);
        else if (MATCH_KEY2(KEY_LIGHTS)) ADD_FLG_NOUN(FLG_LIGHTS);
        else if (MATCH_KEY2(KEY_JUNKS)) ADD_FLG_NOUN(FLG_JUNKS);
        else if (MATCH_KEY2(KEY_SPELLBOOKS)) ADD_FLG_NOUN(FLG_SPELLBOOKS);
        else if (MATCH_KEY2(KEY_HAFTED)) ADD_FLG_NOUN(FLG_HAFTED);
        else if (MATCH_KEY2(KEY_SHIELDS)) ADD_FLG_NOUN(FLG_SHIELDS);
        else if (MATCH_KEY2(KEY_BOWS)) ADD_FLG_NOUN(FLG_BOWS);
        else if (MATCH_KEY2(KEY_RINGS)) ADD_FLG_NOUN(FLG_RINGS);
        else if (MATCH_KEY2(KEY_AMULETS)) ADD_FLG_NOUN(FLG_AMULETS);
        else if (MATCH_KEY2(KEY_SUITS)) ADD_FLG_NOUN(FLG_SUITS);
        else if (MATCH_KEY2(KEY_CLOAKS)) ADD_FLG_NOUN(FLG_CLOAKS);
        else if (MATCH_KEY2(KEY_HELMS)) ADD_FLG_NOUN(FLG_HELMS);
        else if (MATCH_KEY2(KEY_GLOVES)) ADD_FLG_NOUN(FLG_GLOVES);
        else if (MATCH_KEY2(KEY_BOOTS)) ADD_FLG_NOUN(FLG_BOOTS);

        /* Last 'keyword' must be at the correct location */
        if (*ptr == ':')
                ptr++;
#ifdef JP
        else if (ptr[0] == kanji_colon[0] && ptr[1] == kanji_colon[1])
                ptr += 2;
#endif
        else if (*ptr == '\0')
                ; /* nothing to do */
        else
        {
                /* Noun type? */
                if (prev_flg != -1)
                {
                        /* A noun type keyword didn't end correctly */
                        entry->flag[prev_flg/32] &= ~(1L<< (prev_flg%32));
                        ptr = prev_ptr;
                }
        }

        /* Save this auto-picker entry line */
        entry->name = string_make(ptr);
        entry->action = act;
        entry->insc = string_make(insc);

        return TRUE;
}

/*
 * A function to delete entry
 */
void autopick_free_entry(autopick_type *entry)
{
        string_free(entry->name);
        string_free(entry->insc);
}


/*
 * A function for Auto-picker/destroyer
 * Examine whether the object matches to the entry
 */
static bool is_autopick_aux(object_type *o_ptr, autopick_type *entry, cptr o_name)
{
        int j;
        cptr ptr = entry->name;

        /*** Unidentified ***/
        if (IS_FLG(FLG_UNIDENTIFIED)
            && (object_known_p(o_ptr) || (o_ptr->ident & IDENT_SENSE)))
                return FALSE;

        /*** Identified ***/
        if (IS_FLG(FLG_IDENTIFIED) && !object_known_p(o_ptr))
                return FALSE;

        /*** *Identified* ***/
        if (IS_FLG(FLG_STAR_IDENTIFIED) &&
            (!object_known_p(o_ptr) || !(o_ptr->ident & IDENT_MENTAL)))
                return FALSE;

        /*** Dice boosted (weapon of slaying) ***/
        if (IS_FLG(FLG_BOOSTED))
        {
                object_kind *k_ptr = &k_info[o_ptr->k_idx];
                        
                switch( o_ptr->tval )
                {
                case TV_HAFTED:
                case TV_POLEARM:
                case TV_SWORD:
                case TV_DIGGING:
                        if ((o_ptr->dd != k_ptr->dd) || (o_ptr->ds != k_ptr->ds))
                                break;
                        else
                                return FALSE;
                default:
                        return FALSE;
                }
        }

        /*** Weapons which dd*ds is more than nn ***/
        if (IS_FLG(FLG_MORE_THAN))
        {
                if (o_ptr->dd * o_ptr->ds < entry->dice)
                        return FALSE;
        }
                                
        /*** Weapons whic dd*ds is more than nn ***/
        if (IS_FLG(FLG_MORE_BONUS))
        {
                if (!object_known_p(o_ptr)) return FALSE;

                if (k_info[o_ptr->k_idx].pval ||
                    (o_ptr->name2 && e_info[o_ptr->name2].max_pval))
                {
                        if (o_ptr->pval < entry->bonus) return FALSE;
                }
                else
                {
                        if (o_ptr->to_h < entry->bonus &&
                            o_ptr->to_d < entry->bonus &&
                            o_ptr->to_a < entry->bonus &&
                            o_ptr->pval < entry->bonus)
                                return FALSE;
                }
        }
                                
        /*** Worthless items ***/
        if (IS_FLG(FLG_WORTHLESS) && object_value(o_ptr) > 0)
                return FALSE;

        /*** Artifact object ***/
        if (IS_FLG(FLG_ARTIFACT))
        {
                if (!object_known_p(o_ptr) || (!o_ptr->name1 && !o_ptr->art_name))
                        return FALSE;
        }

        /*** Ego object ***/
        if (IS_FLG(FLG_EGO))
        {
                if (!object_known_p(o_ptr) || !o_ptr->name2)
                        return FALSE;
        }

        /*** Nameless ***/
        if (IS_FLG(FLG_NAMELESS))
        {
                switch (o_ptr->tval)
                {
                case TV_WHISTLE:
                case TV_SHOT: case TV_ARROW: case TV_BOLT: case TV_BOW:
                case TV_DIGGING: case TV_HAFTED: case TV_POLEARM: case TV_SWORD: 
                case TV_BOOTS: case TV_GLOVES: case TV_HELM: case TV_CROWN:
                case TV_SHIELD: case TV_CLOAK:
                case TV_SOFT_ARMOR: case TV_HARD_ARMOR: case TV_DRAG_ARMOR:
                case TV_LITE: case TV_AMULET: case TV_RING: case TV_CARD:
                        if ((!object_known_p(o_ptr) || o_ptr->inscription
                             || o_ptr->name1 || o_ptr->name2 || o_ptr->art_name))
                                return FALSE;
                        break;
                default:
                        /* don't match */
                        return FALSE;
                }
        }

        /*** Unaware items ***/
        if (IS_FLG(FLG_UNAWARE) && object_aware_p(o_ptr))
                return FALSE;

        /*** Wanted monster's corpse/skeletons ***/
        if (IS_FLG(FLG_WANTED) &&
            (o_ptr->tval != TV_CORPSE || !object_is_shoukinkubi(o_ptr)))
                return FALSE;

        /*** Unique monster's corpse/skeletons/statues ***/
        if (IS_FLG(FLG_UNIQUE) &&
            ((o_ptr->tval != TV_CORPSE && o_ptr->tval != TV_STATUE) ||
             !(r_info[o_ptr->pval].flags1 & RF1_UNIQUE)))
                return FALSE;

        /*** Human corpse/skeletons (for Daemon magic) ***/
        if (IS_FLG(FLG_HUMAN) &&
            (o_ptr->tval != TV_CORPSE ||
             !strchr("pht", r_info[o_ptr->pval].d_char)))
                return FALSE;

        /*** Unreadable spellbooks ***/
        if (IS_FLG(FLG_UNREADABLE) &&
            (o_ptr->tval < TV_LIFE_BOOK ||
             check_book_realm(o_ptr->tval, o_ptr->sval)))
                return FALSE;

        /*** First realm spellbooks ***/
        if (IS_FLG(FLG_REALM1) && 
            (REALM1_BOOK != o_ptr->tval ||
             p_ptr->pclass == CLASS_SORCERER ||
             p_ptr->pclass == CLASS_RED_MAGE))
                return FALSE;

        /*** Second realm spellbooks ***/
        if (IS_FLG(FLG_REALM2) &&
            (REALM2_BOOK != o_ptr->tval ||
             p_ptr->pclass == CLASS_SORCERER ||
             p_ptr->pclass == CLASS_RED_MAGE))
                return FALSE;

        /*** First rank spellbooks ***/
        if (IS_FLG(FLG_FIRST) &&
            (o_ptr->tval < TV_LIFE_BOOK || 0 != o_ptr->sval))
                return FALSE;

        /*** Second rank spellbooks ***/
        if (IS_FLG(FLG_SECOND) &&
            (o_ptr->tval < TV_LIFE_BOOK || 1 != o_ptr->sval))
                return FALSE;

        /*** Third rank spellbooks ***/
        if (IS_FLG(FLG_THIRD) && 
            (o_ptr->tval < TV_LIFE_BOOK || 2 != o_ptr->sval))
                return FALSE;

        /*** Fourth rank spellbooks ***/
        if (IS_FLG(FLG_FOURTH) &&
            (o_ptr->tval < TV_LIFE_BOOK || 3 != o_ptr->sval))
                return FALSE;

        /*** Items ***/
        if (IS_FLG(FLG_WEAPONS))
        {
                switch(o_ptr->tval)
                {
                case TV_BOW: case TV_HAFTED: case TV_POLEARM:
                case TV_SWORD: case TV_DIGGING:
                        break;
                default: return FALSE;
                }
        }
        else if (IS_FLG(FLG_ARMORS))
        {
                switch(o_ptr->tval)
                {
                case TV_BOOTS: case TV_GLOVES: case TV_CLOAK: case TV_CROWN:
                case TV_HELM: case TV_SHIELD: case TV_SOFT_ARMOR:
                case TV_HARD_ARMOR: case TV_DRAG_ARMOR:
                        break;
                default: return FALSE;
                }
        }
        else if (IS_FLG(FLG_MISSILES))
        {
                switch(o_ptr->tval)
                {
                case TV_SHOT: case TV_BOLT: case TV_ARROW:
                        break;
                default: return FALSE;
                }
        }
        else if (IS_FLG(FLG_DEVICES))
        {
                switch(o_ptr->tval)
                {
                case TV_SCROLL: case TV_STAFF: case TV_WAND: case TV_ROD:
                        break;
                default: return FALSE;
                }
        }
        else if (IS_FLG(FLG_LIGHTS))
        {
                if (!(o_ptr->tval == TV_LITE))
                        return FALSE;
        }
        else if (IS_FLG(FLG_JUNKS))
        {
                switch(o_ptr->tval)
                {
                case TV_SKELETON: case TV_BOTTLE:
                case TV_JUNK: case TV_STATUE:
                        break;
                default: return FALSE;
                }
        }
        else if (IS_FLG(FLG_SPELLBOOKS))
        {
                if (!(o_ptr->tval >= TV_LIFE_BOOK))
                        return FALSE;
        }
        else if (IS_FLG(FLG_HAFTED))
        {
                if (!(o_ptr->tval == TV_HAFTED))
                        return FALSE;
        }
        else if (IS_FLG(FLG_SHIELDS))
        {
                if (!(o_ptr->tval == TV_SHIELD))
                        return FALSE;
        }
        else if (IS_FLG(FLG_BOWS))
        {
                if (!(o_ptr->tval == TV_BOW))
                        return FALSE;
        }
        else if (IS_FLG(FLG_RINGS))
        {
                if (!(o_ptr->tval == TV_RING))
                        return FALSE;
        }
        else if (IS_FLG(FLG_AMULETS))
        {
                if (!(o_ptr->tval == TV_AMULET))
                        return FALSE;
        }
        else if (IS_FLG(FLG_SUITS))
        {
                if (!(o_ptr->tval == TV_DRAG_ARMOR ||
                      o_ptr->tval == TV_HARD_ARMOR ||
                      o_ptr->tval == TV_SOFT_ARMOR))
                        return FALSE;
        }
        else if (IS_FLG(FLG_CLOAKS))
        {
                if (!(o_ptr->tval == TV_CLOAK))
                        return FALSE;
        }
        else if (IS_FLG(FLG_HELMS))
        {
                if (!(o_ptr->tval == TV_CROWN || o_ptr->tval == TV_HELM))
                        return FALSE;
        }
        else if (IS_FLG(FLG_GLOVES))
        {
                if (!(o_ptr->tval == TV_GLOVES))
                        return FALSE;
        }
        else if (IS_FLG(FLG_BOOTS))
        {
                if (!(o_ptr->tval == TV_BOOTS))
                        return FALSE;
        }

        /* Keyword don't match */
        if (*ptr == '^')
        {
                ptr++;
                if (strncmp(o_name, ptr, strlen(ptr))) return FALSE;
        }
        else
        {
#ifdef JP
                if (!strstr_j(o_name, ptr)) return FALSE;
#else
                if (!strstr(o_name, ptr)) return FALSE;
#endif
        }

        /* TRUE when it need not to be 'collecting' */
        if (!IS_FLG(FLG_COLLECTING)) return TRUE;

        /* Check if there is a same item */
        for (j = 0; j < INVEN_PACK; j++)
        {
                /*
                 * 'Collecting' means the item must be absorbed 
                 * into an inventory slot.
                 * But an item can not be absorbed into itself!
                 */
                if ((&inventory[j] != o_ptr) &&
                    object_similar(&inventory[j], o_ptr))
                        return TRUE;
        }

        /* Not collecting */
        return FALSE;
}


/*
 * A function for Auto-picker/destroyer
 * Examine whether the object matches to the list of keywords or not.
 */
int is_autopick(object_type *o_ptr)
{
        int i;
        char o_name[MAX_NLEN];

        if (o_ptr->tval == TV_GOLD) return -1;
        
        object_desc(o_name, o_ptr, FALSE, 3);

        /* Force to be lower case string */
        for (i = 0; o_name[i]; i++)
        {
#ifdef JP
                if (iskanji(o_name[i]))
                        i++;
                else
#endif
                if (isupper(o_name[i]))
                        o_name[i] = tolower(o_name[i]);
        }
        
        for (i=0; i < max_autopick; i++)
        {
                autopick_type *entry = &autopick_list[i];

                if (is_autopick_aux(o_ptr, entry, o_name)) return i;
        }

        /* No matching entry */
        return -1;
}


/*
 * Automatically destroy items in this grid.
 */
static bool is_opt_confirm_destroy(object_type *o_ptr)
{
        if (!destroy_items) return FALSE;

        /* Known to be worthless? */
        if (leave_worth)
                if (object_value(o_ptr) > 0) return FALSE;
        
        if (leave_equip)
                if ((o_ptr->tval >= TV_SHOT) && (o_ptr->tval <= TV_DRAG_ARMOR)) return FALSE;
        
        if (leave_chest)
                if ((o_ptr->tval == TV_CHEST) && o_ptr->pval) return FALSE;
        
        if (leave_wanted)
        {
                if (o_ptr->tval == TV_CORPSE
                    && object_is_shoukinkubi(o_ptr)) return FALSE;
        }
        
        if (leave_corpse)
                if (o_ptr->tval == TV_CORPSE) return FALSE;
        
        if (leave_junk)
                if ((o_ptr->tval == TV_SKELETON) || (o_ptr->tval == TV_BOTTLE) || (o_ptr->tval == TV_JUNK) || (o_ptr->tval == TV_STATUE)) return FALSE;
        
        if (o_ptr->tval == TV_GOLD) return FALSE;
        
        return TRUE;
}


/*
 *  Auto inscription
 */
void auto_inscribe_item(int item, int idx)
{
        object_type *o_ptr;

        /* Get the item (in the pack) */
        if (item >= 0) o_ptr = &inventory[item];

        /* Get the item (on the floor) */
        else o_ptr = &o_list[0 - item];

        /* Auto-inscription or Re-inscribe for resistances {%} */
        if ((idx < 0 || !autopick_list[idx].insc) && !o_ptr->inscription)
                return;

        if (o_ptr->inscription)
                o_ptr->inscription = inscribe_flags(o_ptr, quark_str(o_ptr->inscription));
        else
                o_ptr->inscription = inscribe_flags(o_ptr, autopick_list[idx].insc);

        if (item > INVEN_PACK)
        {
                /* Redraw inscription */
                p_ptr->window |= (PW_EQUIP);

                /* {.} and {$} effect p_ptr->warning and TRC_TELEPORT_SELF */
                p_ptr->update |= (PU_BONUS);
        }
        else if (item >= 0)
        {
                /* Redraw inscription */
                p_ptr->window |= (PW_INVEN);
        }
}


/*
 * Automatically destroy an item if it is to be destroyed
 */
bool auto_destroy_item(int item, int autopick_idx, bool wait_optimize)
{
        bool destroy = FALSE;
        char o_name[MAX_NLEN];
        object_type *o_ptr;

        /* Don't destroy equipped items */
        if (item > INVEN_PACK) return FALSE;

        /* Get the item (in the pack) */
        if (item >= 0) o_ptr = &inventory[item];

        /* Get the item (on the floor) */
        else o_ptr = &o_list[0 - item];

        /* Easy-Auto-Destroyer */
        if (is_opt_confirm_destroy(o_ptr)) destroy = TRUE;

        /* Protected by auto-picker */
        if (autopick_idx >= 0 &&
            !(autopick_list[autopick_idx].action & DO_AUTODESTROY))
                destroy = FALSE;

        if (!always_pickup)
        {
                /* Auto-picker/destroyer */
                if (autopick_idx >= 0 &&
                    (autopick_list[autopick_idx].action & DO_AUTODESTROY))
                        destroy = TRUE;
        }

        /* Not to be destroyed */
        if (!destroy) return FALSE;

        /* Now decided to destroy */

        disturb(0,0);

        /* Describe the object (with {terrible/special}) */
        object_desc(o_name, o_ptr, TRUE, 3);

        /* Artifact? */
        if (!can_player_destroy_object(o_ptr))
        {
                /* Message */
#ifdef JP
                msg_format("%s¤ÏÇ˲õÉÔǽ¤À¡£", o_name);
#else
                msg_format("You cannot auto-destroy %s.", o_name);
#endif

                /* Done */
                return TRUE;
        }

        /* Record name of destroyed item */
        COPY(&autopick_last_destroyed_object, o_ptr, object_type);

        /* Eliminate the item (from the pack) */
        if (item >= 0)
        {
                inven_item_increase(item, -(o_ptr->number));

                /*
                 * always optimize equipment.
                 * optimize inventry only when wait_optimize is FALSE.
                 */
                if (!wait_optimize || item > INVEN_PACK)
                        inven_item_optimize(item);
        }

        /* Eliminate the item (from the floor) */
        else
        {
                delete_object_idx(0 - item);
        }

        /* Print a message */
#ifdef JP
        msg_format("%s¤ò¼«Æ°Ç˲õ¤·¤Þ¤¹¡£", o_name);
#else
        msg_format("Auto-destroying %s.", o_name);
#endif
                        
        return TRUE;
}


/*
 * Optimize all inventry items after consumption of staves or scrolls.
 */
void optimize_inventry_auto_destroy(void)
{
        int i;

        for (i = 0; i <= INVEN_PACK; i++)
                inven_item_optimize(i);
}


/*
 * Automatically pickup/destroy items in this grid.
 */
void auto_pickup_items(cave_type *c_ptr)
{
        s16b this_o_idx, next_o_idx = 0;
        
        /* Scan the pile of objects */
        for (this_o_idx = c_ptr->o_idx; this_o_idx; this_o_idx = next_o_idx)
        {
                int idx;
        
                /* Acquire object */
                object_type *o_ptr = &o_list[this_o_idx];
                
                /* Acquire next object */
                next_o_idx = o_ptr->next_o_idx;

                idx = is_autopick(o_ptr);

                /* Item index for floor -1,-2,-3,...  */
                auto_inscribe_item((-this_o_idx), idx);

                if (idx >= 0 &&
                        (autopick_list[idx].action & (DO_AUTOPICK | DO_QUERY_AUTOPICK)))
                {
                        disturb(0,0);

                        if (!inven_carry_okay(o_ptr))
                        {
                                char o_name[MAX_NLEN];

                                /* Describe the object */
                                object_desc(o_name, o_ptr, TRUE, 3);

                                /* Message */
#ifdef JP
                                msg_format("¥¶¥Ã¥¯¤Ë¤Ï%s¤òÆþ¤ì¤ë·ä´Ö¤¬¤Ê¤¤¡£", o_name);
#else
                                msg_format("You have no room for %s.", o_name);
#endif
                                /* Hack - remember that the item has given a message here. */
                                o_ptr->marked |= OM_NOMSG;

                                continue;
                        }
                        else if (autopick_list[idx].action & DO_QUERY_AUTOPICK)
                        {
                                char out_val[MAX_NLEN+20];
                                char o_name[MAX_NLEN];

                                if (o_ptr->marked & OM_NO_QUERY)
                                {
                                        /* Already answered as 'No' */
                                        continue;
                                }

                                /* Describe the object */
                                object_desc(o_name, o_ptr, TRUE, 3);

#ifdef JP
                                sprintf(out_val, "%s¤ò½¦¤¤¤Þ¤¹¤«? ", o_name);
#else
                                sprintf(out_val, "Pick up %s? ", o_name);
#endif

                                if (!get_check(out_val))
                                {
                                        /* Hack - remember that the item has given a message here. */
                                        o_ptr->marked |= (OM_NOMSG | OM_NO_QUERY);
                                        continue;
                                }

                        }
                        py_pickup_aux(this_o_idx);

                        continue;
                }
                
                /*
                 * Do auto-destroy;
                 * When always_pickup is 'yes', we disable
                 * auto-destroyer from autopick function, and do only
                 * easy-auto-destroyer.
                 */
                else
                {
                        if (auto_destroy_item((-this_o_idx), idx, FALSE))
                                continue;
                }
        }
}


/*
 * Describe which kind of object is Auto-picked/destroyed
 */
static void describe_autopick(char *buff, autopick_type *entry)
{
        cptr str = entry->name;
        byte act = entry->action;
        cptr insc = entry->insc;
        int i;

        bool top = FALSE;

#ifdef JP
        cptr before_str[100], body_str;
        int before_n = 0;

        body_str = "¥¢¥¤¥Æ¥à";

        /*** Collecting items ***/
        /*** Which can be absorbed into a slot as a bundle ***/
        if (IS_FLG(FLG_COLLECTING))
                before_str[before_n++] = "¼ý½¸Ãæ¤Ç´û¤Ë»ý¤Ã¤Æ¤¤¤ë¥¹¥í¥Ã¥È¤Ë¤Þ¤È¤á¤é¤ì¤ë";
        
        /*** Unidentified ***/
        if (IS_FLG(FLG_UNIDENTIFIED))
                before_str[before_n++] = "̤´ÕÄê¤Î";

        /*** Identified ***/
        if (IS_FLG(FLG_IDENTIFIED))
                before_str[before_n++] = "´ÕÄêºÑ¤ß¤Î";

        /*** *Identified* ***/
        if (IS_FLG(FLG_STAR_IDENTIFIED))
                before_str[before_n++] = "´°Á´¤Ë´ÕÄêºÑ¤ß¤Î";

        /*** Dice boosted (weapon of slaying) ***/
        if (IS_FLG(FLG_BOOSTED))
        {
                before_str[before_n++] = "¥À¥á¡¼¥¸¥À¥¤¥¹¤¬Ä̾ï¤è¤êÂ礭¤¤";
                body_str = "Éð´ï";
        }

        /*** Weapons whose dd*ds is more than nn ***/
        if (IS_FLG(FLG_MORE_THAN))
        {
                static char more_than_desc_str[] = "___";
                before_str[before_n++] = "¥À¥á¡¼¥¸¥À¥¤¥¹¤ÎºÇÂçÃͤ¬";
                body_str = "Éð´ï";
                        
                sprintf(more_than_desc_str,"%d", entry->dice);
                before_str[before_n++] = more_than_desc_str;
                before_str[before_n++] = "°Ê¾å¤Î";
        }

        /*** Items whose magical bonus is more than nn ***/
        if (IS_FLG(FLG_MORE_BONUS))
        {
                static char more_bonus_desc_str[] = "___";
                before_str[before_n++] = "½¤ÀµÃͤ¬(+";
                        
                sprintf(more_bonus_desc_str,"%d", entry->bonus);
                before_str[before_n++] = more_bonus_desc_str;
                before_str[before_n++] = ")°Ê¾å¤Î";
        }

        /*** Worthless items ***/
        if (IS_FLG(FLG_WORTHLESS))
                before_str[before_n++] = "Ź¤Ç̵²ÁÃͤÈȽÄꤵ¤ì¤ë";

        /*** Artifact ***/
        if (IS_FLG(FLG_ARTIFACT))
        {
                before_str[before_n++] = "¥¢¡¼¥Æ¥£¥Õ¥¡¥¯¥È¤Î";
                body_str = "ÁõÈ÷";
        }

        /*** Ego ***/
        if (IS_FLG(FLG_EGO))
        {
                before_str[before_n++] = "¥¨¥´¥¢¥¤¥Æ¥à¤Î";
                body_str = "ÁõÈ÷";
        }

        /*** Nameless ***/
        if (IS_FLG(FLG_NAMELESS))
        {
                before_str[before_n++] = "¥¨¥´¤Ç¤â¥¢¡¼¥Æ¥£¥Õ¥¡¥¯¥È¤Ç¤â¤Ê¤¤";
                body_str = "ÁõÈ÷";
        }

        /*** Unaware items ***/
        if (IS_FLG(FLG_UNAWARE))
                before_str[before_n++] = "̤´ÕÄê¤Ç¤½¤Î¸ú²Ì¤âȽÌÀ¤·¤Æ¤¤¤Ê¤¤";

        /*** Wanted monster's corpse/skeletons ***/
        if (IS_FLG(FLG_WANTED))
        {
                before_str[before_n++] = "¥Ï¥ó¥¿¡¼»ö̳½ê¤Ç¾Þ¶â¼ó¤È¤µ¤ì¤Æ¤¤¤ë";
                body_str = "»àÂΤä¹ü";
        }

        /*** Human corpse/skeletons (for Daemon magic) ***/
        if (IS_FLG(FLG_HUMAN))
        {
                before_str[before_n++] = "°­ËâËâË¡¤Ç»È¤¦¤¿¤á¤Î¿Í´Ö¤ä¥Ò¥å¡¼¥Þ¥Î¥¤¥É¤Î";
                body_str = "»àÂΤä¹ü";
        }

        /*** Unique monster's corpse/skeletons/statues ***/
        if (IS_FLG(FLG_UNIQUE))
        {
                before_str[before_n++] = "¥æ¥Ë¡¼¥¯¥â¥ó¥¹¥¿¡¼¤Î";
                body_str = "»àÂΤä¹ü";
        }

        /*** Unreadable spellbooks ***/
        if (IS_FLG(FLG_UNREADABLE))
        {
                before_str[before_n++] = "¤¢¤Ê¤¿¤¬Æɤá¤Ê¤¤Îΰè¤Î";
                body_str = "ËâË¡½ñ";
        }

        /*** First realm spellbooks ***/
        if (IS_FLG(FLG_REALM1))
        {
                before_str[before_n++] = "Âè°ìÎΰè¤Î";
                body_str = "ËâË¡½ñ";
        }

        /*** Second realm spellbooks ***/
        if (IS_FLG(FLG_REALM2))
        {
                before_str[before_n++] = "ÂèÆóÎΰè¤Î";
                body_str = "ËâË¡½ñ";
        }

        /*** First rank spellbooks ***/
        if (IS_FLG(FLG_FIRST))
        {
                before_str[before_n++] = "Á´4ºý¤ÎÆâ¤Î1ºýÌܤÎ";
                body_str = "ËâË¡½ñ";
        }

        /*** Second rank spellbooks ***/
        if (IS_FLG(FLG_SECOND))
        {
                before_str[before_n++] = "Á´4ºý¤ÎÆâ¤Î2ºýÌܤÎ";
                body_str = "ËâË¡½ñ";
        }

        /*** Third rank spellbooks ***/
        if (IS_FLG(FLG_THIRD))
        {
                before_str[before_n++] = "Á´4ºý¤ÎÆâ¤Î3ºýÌܤÎ";
                body_str = "ËâË¡½ñ";
        }

        /*** Fourth rank spellbooks ***/
        if (IS_FLG(FLG_FOURTH))
        {
                before_str[before_n++] = "Á´4ºý¤ÎÆâ¤Î4ºýÌܤÎ";
                body_str = "ËâË¡½ñ";
        }

        /*** Items ***/
        if (IS_FLG(FLG_ITEMS))
                ; /* Nothing to do */
        else if (IS_FLG(FLG_WEAPONS))
                body_str = "Éð´ï";
        else if (IS_FLG(FLG_ARMORS))
                body_str = "Ëɶñ";
        else if (IS_FLG(FLG_MISSILES))
                body_str = "ÃƤäÌð¤ä¥¯¥í¥¹¥Ü¥¦¤ÎÌð";
        else if (IS_FLG(FLG_DEVICES))
                body_str = "´¬Êª¤äËâË¡ËÀ¤ä¾ó¤ä¥í¥Ã¥É";
        else if (IS_FLG(FLG_LIGHTS))
                body_str = "¸÷¸»ÍѤΥ¢¥¤¥Æ¥à";
        else if (IS_FLG(FLG_JUNKS))
                body_str = "Àޤ줿ËÀÅù¤Î¥¬¥é¥¯¥¿";
        else if (IS_FLG(FLG_SPELLBOOKS))
                body_str = "ËâË¡½ñ";
        else if (IS_FLG(FLG_HAFTED))
                body_str = "Æß´ï";
        else if (IS_FLG(FLG_SHIELDS))
                body_str = "½â";
        else if (IS_FLG(FLG_BOWS))
                body_str = "¥¹¥ê¥ó¥°¤äµÝ¤ä¥¯¥í¥¹¥Ü¥¦";
        else if (IS_FLG(FLG_RINGS))
                body_str = "»ØÎØ";
        else if (IS_FLG(FLG_AMULETS))
                body_str = "¥¢¥ß¥å¥ì¥Ã¥È";
        else if (IS_FLG(FLG_SUITS))
                body_str = "³»";
        else if (IS_FLG(FLG_CLOAKS))
                body_str = "¥¯¥í¡¼¥¯";
        else if (IS_FLG(FLG_HELMS))
                body_str = "¥Ø¥ë¥á¥Ã¥È¤ä´§";
        else if (IS_FLG(FLG_GLOVES))
                body_str = "äƼê";
        else if (IS_FLG(FLG_BOOTS))
                body_str = "¥Ö¡¼¥Ä";

        *buff = '\0';
        if (!before_n) 
                strcat(buff, "Á´¤Æ¤Î");
        else for (i = 0; i < before_n && before_str[i]; i++)
                strcat(buff, before_str[i]);

        strcat(buff, body_str);

        if (*str)
        {
                if (*str == '^')
                {
                        str++;
                        top = TRUE;
                }

                strcat(buff, "¤Ç¡¢Ì¾Á°¤¬¡Ö");
                strncat(buff, str, 80);
                if (top)
                        strcat(buff, "¡×¤Ç»Ï¤Þ¤ë¤â¤Î");
                else
                        strcat(buff, "¡×¤ò´Þ¤à¤â¤Î");
        }

        if (insc)
        {
                strncat(buff, format("¤Ë¡Ö%s¡×", insc), 80);

                if (strstr(insc, "%%all"))
                        strcat(buff, "(%%all¤ÏÁ´Ç½ÎϤòɽ¤¹±Ñ»ú¤Îµ­¹æ¤ÇÃÖ´¹)");
                else if (strstr(insc, "%all"))
                        strcat(buff, "(%all¤ÏÁ´Ç½ÎϤòɽ¤¹µ­¹æ¤ÇÃÖ´¹)");
                else if (strstr(insc, "%%"))
                        strcat(buff, "(%%¤ÏÄɲÃǽÎϤòɽ¤¹±Ñ»ú¤Îµ­¹æ¤ÇÃÖ´¹)");
                else if (strstr(insc, "%"))
                        strcat(buff, "(%¤ÏÄɲÃǽÎϤòɽ¤¹µ­¹æ¤ÇÃÖ´¹)");

                strcat(buff, "¤È¹ï¤ó¤Ç");
        }
        else
                strcat(buff, "¤ò");

        if (act & DONT_AUTOPICK)
                strcat(buff, "ÊüÃÖ¤¹¤ë¡£");
        else if (act & DO_AUTODESTROY)
                strcat(buff, "Ç˲õ¤¹¤ë¡£");
        else if (act & DO_QUERY_AUTOPICK)
                strcat(buff, "³Îǧ¤Î¸å¤Ë½¦¤¦¡£");
        else
                strcat(buff, "½¦¤¦¡£");

        if (act & DO_DISPLAY)
        {
                if (act & DONT_AUTOPICK)
                        strcat(buff, "Á´ÂΥޥå×('M')¤Ç'N'¤ò²¡¤·¤¿¤È¤­¤Ëɽ¼¨¤¹¤ë¡£");
                else if (act & DO_AUTODESTROY)
                        strcat(buff, "Á´ÂΥޥå×('M')¤Ç'K'¤ò²¡¤·¤¿¤È¤­¤Ëɽ¼¨¤¹¤ë¡£");
                else
                        strcat(buff, "Á´ÂΥޥå×('M')¤Ç'M'¤ò²¡¤·¤¿¤È¤­¤Ëɽ¼¨¤¹¤ë¡£");
        }
        else
                strcat(buff, "Á´ÂΥޥåפˤÏɽ¼¨¤·¤Ê¤¤");

#else /* JP */

        cptr before_str[20], after_str[20], which_str[20], whose_str[20], body_str;
        int before_n = 0, after_n = 0, which_n = 0, whose_n = 0;

        body_str = "items";

        /*** Collecting items ***/
        /*** Which can be absorbed into a slot as a bundle ***/
        if (IS_FLG(FLG_COLLECTING))
                which_str[which_n++] = "can be absorbed into an existing inventory slot";
        
        /*** Unidentified ***/
        if (IS_FLG(FLG_UNIDENTIFIED))
                before_str[before_n++] = "unidentified";

        /*** Identified ***/
        if (IS_FLG(FLG_IDENTIFIED))
                before_str[before_n++] = "identified";

        /*** *Identified* ***/
        if (IS_FLG(FLG_STAR_IDENTIFIED))
                before_str[before_n++] = "fully identified";

        /*** Worthless items ***/
        if (IS_FLG(FLG_WORTHLESS))
        {
                before_str[before_n++] = "worthless";
                which_str[which_n++] = "can not be sold at stores";
        }

        /*** Artifacto ***/
        if (IS_FLG(FLG_ARTIFACT))
        {
                before_str[before_n++] = "artifact";
        }

        /*** Ego ***/
        if (IS_FLG(FLG_EGO))
        {
                before_str[before_n++] = "ego";
        }

        /*** Nameless ***/
        if (IS_FLG(FLG_NAMELESS))
        {
                body_str = "equipment";
                which_str[which_n++] = "is neither ego-item nor artifact";
        }

        /*** Unaware items ***/
        if (IS_FLG(FLG_UNAWARE))
        {
                before_str[before_n++] = "unidentified";
                whose_str[whose_n++] = "basic abilities are not known";
        }

        /*** Dice boosted (weapon of slaying) ***/
        if (IS_FLG(FLG_BOOSTED))
        {
                body_str = "weapons";
                whose_str[whose_n++] = "damage dice is bigger than normal";
        }

        /*** Weapons whose dd*ds is more than nn ***/
        if (IS_FLG(FLG_MORE_THAN))
        {
                static char more_than_desc_str[] =
                        "maximum damage from dice is bigger than __";
                body_str = "weapons";
                        
                sprintf(more_than_desc_str + sizeof(more_than_desc_str) - 3,
                        "%d", entry->dice);
                whose_str[whose_n++] = more_than_desc_str;
        }

        /*** Items whose magical bonus is more than nn ***/
        if (IS_FLG(FLG_MORE_BONUS))
        {
                static char more_bonus_desc_str[] =
                        "magical bonus is bigger than (+__)";
                        
                sprintf(more_bonus_desc_str + sizeof(more_bonus_desc_str) - 4,
                        "%d)", entry->bonus);
                whose_str[whose_n++] = more_bonus_desc_str;
        }

        /*** Wanted monster's corpse/skeletons ***/
        if (IS_FLG(FLG_WANTED))
        {
                body_str = "corpse or skeletons";
                which_str[which_n++] = "is wanted at the Hunter's Office";
        }

        /*** Human corpse/skeletons (for Daemon magic) ***/
        if (IS_FLG(FLG_HUMAN))
        {
                before_str[before_n++] = "humanoid";
                body_str = "corpse or skeletons";
                which_str[which_n++] = "can be used for Daemon magic";
        }

        /*** Unique monster's corpse/skeletons/statues ***/
        if (IS_FLG(FLG_UNIQUE))
        {
                before_str[before_n++] = "unique monster's";
                body_str = "corpse or skeletons";
        }

        /*** Unreadable spellbooks ***/
        if (IS_FLG(FLG_UNREADABLE))
        {
                body_str = "spellbooks";
                after_str[after_n++] = "of different realms from yours";
        }

        /*** First realm spellbooks ***/
        if (IS_FLG(FLG_REALM1))
        {
                body_str = "spellbooks";
                after_str[after_n++] = "of your first realm";
        }

        /*** Second realm spellbooks ***/
        if (IS_FLG(FLG_REALM2))
        {
                body_str = "spellbooks";
                after_str[after_n++] = "of your second realm";
        }

        /*** First rank spellbooks ***/
        if (IS_FLG(FLG_FIRST))
        {
                before_str[before_n++] = "first one of four";
                body_str = "spellbooks";
        }

        /*** Second rank spellbooks ***/
        if (IS_FLG(FLG_SECOND))
        {
                before_str[before_n++] = "second one of four";
                body_str = "spellbooks";
        }

        /*** Third rank spellbooks ***/
        if (IS_FLG(FLG_THIRD))
        {
                before_str[before_n++] = "third one of four";
                body_str = "spellbooks";
        }

        /*** Fourth rank spellbooks ***/
        if (IS_FLG(FLG_FOURTH))
        {
                before_str[before_n++] = "fourth one of four";
                body_str = "spellbooks";
        }

        /*** Items ***/
        if (IS_FLG(FLG_ITEMS))
                ; /* Nothing to do */
        else if (IS_FLG(FLG_WEAPONS))
                body_str = "weapons";
        else if (IS_FLG(FLG_ARMORS))
                body_str = "armors";
        else if (IS_FLG(FLG_MISSILES))
                body_str = "shots, arrows or crossbow bolts";
        else if (IS_FLG(FLG_DEVICES))
                body_str = "scrolls, wands, staves or rods";
        else if (IS_FLG(FLG_LIGHTS))
                body_str = "light sources";
        else if (IS_FLG(FLG_JUNKS))
                body_str = "junk such as broken sticks";
        else if (IS_FLG(FLG_SPELLBOOKS))
                body_str = "spellbooks";
        else if (IS_FLG(FLG_HAFTED))
                body_str = "hafted weapons";
        else if (IS_FLG(FLG_SHIELDS))
                body_str = "shields";
        else if (IS_FLG(FLG_BOWS))
                body_str = "slings, bows or crossbows";
        else if (IS_FLG(FLG_RINGS))
                body_str = "rings";
        else if (IS_FLG(FLG_AMULETS))
                body_str = "amulets";
        else if (IS_FLG(FLG_SUITS))
                body_str = "body armors";
        else if (IS_FLG(FLG_CLOAKS))
                body_str = "cloaks";
        else if (IS_FLG(FLG_HELMS))
                body_str = "helms or crowns";
        else if (IS_FLG(FLG_GLOVES))
                body_str = "gloves";
        else if (IS_FLG(FLG_BOOTS))
                body_str = "boots";

        /* Prepare a string for item name */
        if (*str)
        {
                if (*str == '^')
                {
                        str++;
                        top = TRUE;
                        whose_str[whose_n++] = "name is beginning with \"";
                }
                else
                        which_str[which_n++] = "have \"";
        }


        /* Describe action flag */
        if (act & DONT_AUTOPICK)
                strcpy(buff, "Leave on floor ");
        else if (act & DO_AUTODESTROY)
                strcpy(buff, "Destroy ");
        else if (act & DO_QUERY_AUTOPICK)
                strcpy(buff, "Ask to pick up ");
        else
                strcpy(buff, "Pickup ");

        /* Auto-insctiption */
        if (insc)
        {
                strncat(buff, format("and inscribe \"%s\"", insc), 80);

                if (strstr(insc, "%all"))
                        strcat(buff, ", replacing %all with code string representing all abilities,");
                else if (strstr(insc, "%"))
                        strcat(buff, ", replacing % with code string representing extra random abilities,");

                strcat(buff, " on ");
        }

        /* Adjective */
        if (!before_n) 
                strcat(buff, "all ");
        else for (i = 0; i < before_n && before_str[i]; i++)
        {
                strcat(buff, before_str[i]);
                strcat(buff, " ");
        }

        /* Item class */
        strcat(buff, body_str);

        /* of ... */
        for (i = 0; i < after_n && after_str[i]; i++)
        {
                strcat(buff, " ");
                strcat(buff, after_str[i]);
        }

        /* which ... */
        for (i = 0; i < whose_n && whose_str[i]; i++)
        {
                if (i == 0)
                        strcat(buff, " whose ");
                else
                        strcat(buff, ", and ");

                strcat(buff, whose_str[i]);
        }

        /* Item name ; whose name is beginning with "str" */
        if (*str && top)
        {
                strcat(buff, str);
                strcat(buff, "\"");
        }

        /* whose ..., and which .... */
        if (whose_n && which_n)
                strcat(buff, ", and ");

        /* which ... */
        for (i = 0; i < which_n && which_str[i]; i++)
        {
                if (i == 0)
                        strcat(buff, " which ");
                else
                        strcat(buff, ", and ");

                strcat(buff, which_str[i]);
        }

        /* Item name ; which have "str" as part of its name */
        if (*str && !top)
        {
                strncat(buff, str, 80);
                strcat(buff, "\" as part of its name");
        }
        strcat(buff, ".");

        /* Describe whether it will be displayed on the full map or not */
        if (act & DO_DISPLAY)
        {
                if (act & DONT_AUTOPICK)
                        strcat(buff, "  Display these items when you press the N key in the full 'M'ap.");
                else if (act & DO_AUTODESTROY)
                        strcat(buff, "  Display these items when you press the K key in the full 'M'ap.");
                else
                        strcat(buff, "  Display these items when you press the M key in the full 'M'ap.");
        }
        else
                strcat(buff, " Not displayed in the full map.");
#endif /* JP */

}


#define MAX_LINES 3000

/*
 * Read whole lines of a file to memory
 */
static cptr *read_text_lines(cptr filename, bool user)
{
        cptr *lines_list = NULL;
        FILE *fff;

        int lines = 0;
        char buf[1024];

        if (user)
        {
                /* Hack -- drop permissions */
                safe_setuid_drop();
                path_build(buf, sizeof(buf), ANGBAND_DIR_USER, filename);
        }
        else
        {
                path_build(buf, sizeof(buf), ANGBAND_DIR_PREF, filename);
        }
        
        /* Open the file */
        fff = my_fopen(buf, "r");

        if (fff)
        {
                /* Allocate list of pointers */
                C_MAKE(lines_list, MAX_LINES, cptr);

                /* Parse it */
                while (0 == my_fgets(fff, buf, sizeof(buf)))
                {
                        lines_list[lines++] = string_make(buf);
                        if (lines >= MAX_LINES - 1) break;
                }
                if (lines == 0)
                        lines_list[0] = string_make("");

                my_fclose(fff);
        }

        /* Grab priv's */
        safe_setuid_grab();

        if (!fff) return NULL;
        return lines_list;
}


#define PT_DEFAULT 0
#define PT_WITH_PNAME 1

static cptr *read_pickpref_text_lines(int *filename_mode_p)
{
        char buf[1024];
        cptr *lines_list;

#ifdef JP
        sprintf(buf, "picktype-%s.prf", player_name);
#else
        sprintf(buf, "pickpref-%s.prf", player_name);
#endif
        lines_list = read_text_lines(buf, TRUE);

        if (!lines_list)
        {
#ifdef JP
                lines_list = read_text_lines("picktype.prf", TRUE);
#else
                lines_list = read_text_lines("pickpref.prf", TRUE);
#endif
                *filename_mode_p = PT_DEFAULT;
        }

        if (!lines_list)
        {
#ifdef JP
                lines_list = read_text_lines("picktype.prf", FALSE);
#else
                lines_list = read_text_lines("pickpref.prf", FALSE);
#endif
                *filename_mode_p = PT_WITH_PNAME;
        }

        if (!lines_list)
        {
                /* Allocate list of pointers */
                C_MAKE(lines_list, MAX_LINES, cptr);
                lines_list[0] = string_make("");
                *filename_mode_p = PT_WITH_PNAME;
        }
        return lines_list;
}

/*
 * Write whole lines of memory to a file.
 */
static bool write_text_lines(cptr filename, cptr *lines_list)
{
        FILE *fff;

        int lines = 0;
        char buf[1024];

        /* Hack -- drop permissions */
        safe_setuid_drop();

        /* Build the filename */
        path_build(buf, sizeof(buf), ANGBAND_DIR_USER, filename);
        
        /* Open the file */
        fff = my_fopen(buf, "w");
        if (fff)
        {
                for (lines = 0; lines_list[lines]; lines++)
                        my_fputs(fff, lines_list[lines], 1024);

                my_fclose(fff);
        }

        /* Grab priv's */
        safe_setuid_grab();

        if (!fff) return FALSE;
        return TRUE;
}


/*
 * Free memory of lines_list.
 */
static void free_text_lines(cptr *lines_list)
{
        int lines;

        for (lines = 0; lines_list[lines]; lines++)
                string_free(lines_list[lines]);

        /* free list of pointers */
        C_FREE((char **)lines_list, MAX_LINES, char *);
}


/*
 * Delete or insert string
 */
static void toggle_string(cptr *lines_list, int flg, int y)
{
        autopick_type an_entry, *entry = &an_entry;

        if (!autopick_new_entry(entry, lines_list[y]))
                return;

        string_free(lines_list[y]);
        if (IS_FLG(flg)) 
                REM_FLG(flg);
        else
                ADD_FLG(flg);

        lines_list[y] = autopick_line_from_entry_kill(entry);
}

/*
 * Insert return code and split the line
 */
static bool insert_return_code(cptr *lines_list, int cx, int cy)
{
        char buf[MAX_LINELEN];
        int i, j, k;

        for (k = 0; lines_list[k]; k++)
                /* count number of lines */ ;

        if (k >= MAX_LINES - 2) return FALSE;
        k--;

        /* Move down lines */
        for (; cy < k; k--)
                lines_list[k+1] = lines_list[k];

        /* Split current line */
        for (i = j = 0; lines_list[cy][i] && i < cx; i++)
        {
#ifdef JP
                if (iskanji(lines_list[cy][i]))
                        buf[j++] = lines_list[cy][i++];
#endif
                buf[j++] = lines_list[cy][i];
        }
        buf[j] = '\0';
        lines_list[cy+1] = string_make(&lines_list[cy][i]);
        string_free(lines_list[cy]);
        lines_list[cy] = string_make(buf);
        return TRUE;
}


/*
 * Get auto-picker entry from o_ptr.
 */
void autopick_entry_from_object(autopick_type *entry, object_type *o_ptr)
{
        char o_name[MAX_NLEN];
        object_desc(o_name, o_ptr, FALSE, 0);

        entry->name = string_make(o_name);
        entry->insc = string_make(quark_str(o_ptr->inscription));
        entry->action = DO_AUTOPICK | DO_DISPLAY;
        entry->flag[0] = entry->flag[1] = 0L;
        entry->dice = 0;

        if (!object_aware_p(o_ptr))
                ADD_FLG(FLG_UNAWARE);
        if (object_value(o_ptr) <= 0)
                ADD_FLG(FLG_WORTHLESS);

        if (object_known_p(o_ptr))
        {
                if (o_ptr->name2)
                        ADD_FLG(FLG_EGO);
                else if (o_ptr->name1 || o_ptr->art_name)
                        ADD_FLG(FLG_ARTIFACT);
        }

        switch(o_ptr->tval)
        {
                object_kind *k_ptr; 
        case TV_HAFTED: case TV_POLEARM: case TV_SWORD: case TV_DIGGING:
                k_ptr = &k_info[o_ptr->k_idx];
                if ((o_ptr->dd != k_ptr->dd) || (o_ptr->ds != k_ptr->ds))
                        ADD_FLG(FLG_BOOSTED);
        }

        if (o_ptr->tval == TV_CORPSE && object_is_shoukinkubi(o_ptr))
        {
                REM_FLG(FLG_WORTHLESS);
                ADD_FLG(FLG_WANTED);
        }

        if ((o_ptr->tval == TV_CORPSE || o_ptr->tval == TV_STATUE)
            && (r_info[o_ptr->pval].flags1 & RF1_UNIQUE))
        {
                REM_FLG(FLG_WORTHLESS);
                ADD_FLG(FLG_UNIQUE);
        }

        if (o_ptr->tval == TV_CORPSE && strchr("pht", r_info[o_ptr->pval].d_char))
        {
                REM_FLG(FLG_WORTHLESS);
                ADD_FLG(FLG_HUMAN);
        }

        if (o_ptr->tval >= TV_LIFE_BOOK &&
            !check_book_realm(o_ptr->tval, o_ptr->sval))
                ADD_FLG(FLG_UNREADABLE);

        if (REALM1_BOOK == o_ptr->tval &&
            p_ptr->pclass != CLASS_SORCERER &&
            p_ptr->pclass != CLASS_RED_MAGE)
                ADD_FLG(FLG_REALM1);

        if (REALM2_BOOK == o_ptr->tval &&
            p_ptr->pclass != CLASS_SORCERER &&
            p_ptr->pclass != CLASS_RED_MAGE)
                ADD_FLG(FLG_REALM2);

        if (o_ptr->tval >= TV_LIFE_BOOK && 0 == o_ptr->sval)
                ADD_FLG(FLG_FIRST);
        if (o_ptr->tval >= TV_LIFE_BOOK && 1 == o_ptr->sval)
                ADD_FLG(FLG_SECOND);
        if (o_ptr->tval >= TV_LIFE_BOOK && 2 == o_ptr->sval)
                ADD_FLG(FLG_THIRD);
        if (o_ptr->tval >= TV_LIFE_BOOK && 3 == o_ptr->sval)
                ADD_FLG(FLG_FOURTH);

        if (o_ptr->tval == TV_SHOT || o_ptr->tval == TV_BOLT
                 || o_ptr->tval == TV_ARROW)
                ADD_FLG(FLG_MISSILES);
        else if (o_ptr->tval == TV_SCROLL || o_ptr->tval == TV_STAFF
                 || o_ptr->tval == TV_WAND || o_ptr->tval == TV_ROD)
                ADD_FLG(FLG_DEVICES);
        else if (o_ptr->tval == TV_LITE)
                ADD_FLG(FLG_LIGHTS);
        else if (o_ptr->tval == TV_SKELETON || o_ptr->tval == TV_BOTTLE
                 || o_ptr->tval == TV_JUNK || o_ptr->tval == TV_STATUE)
                ADD_FLG(FLG_JUNKS);
        else if (o_ptr->tval >= TV_LIFE_BOOK)
                ADD_FLG(FLG_SPELLBOOKS);
        else if (o_ptr->tval == TV_HAFTED)
                ADD_FLG(FLG_HAFTED);
        else if (o_ptr->tval == TV_POLEARM || o_ptr->tval == TV_SWORD
                 || o_ptr->tval == TV_DIGGING)
                ADD_FLG(FLG_WEAPONS);
        else if (o_ptr->tval == TV_SHIELD)
                ADD_FLG(FLG_SHIELDS);
        else if (o_ptr->tval == TV_BOW)
                ADD_FLG(FLG_BOWS);
        else if (o_ptr->tval == TV_RING)
                ADD_FLG(FLG_RINGS);
        else if (o_ptr->tval == TV_AMULET)
                ADD_FLG(FLG_AMULETS);
        else if (o_ptr->tval == TV_DRAG_ARMOR || o_ptr->tval == TV_HARD_ARMOR ||
                 o_ptr->tval == TV_SOFT_ARMOR)
                ADD_FLG(FLG_SUITS);
        else if (o_ptr->tval == TV_CLOAK)
                ADD_FLG(FLG_CLOAKS);
        else if (o_ptr->tval == TV_HELM)
                ADD_FLG(FLG_HELMS);
        else if (o_ptr->tval == TV_GLOVES)
                ADD_FLG(FLG_GLOVES);
        else if (o_ptr->tval == TV_BOOTS)
                ADD_FLG(FLG_BOOTS);

        return;
}


/*
 * Choose an item and get auto-picker entry from it.
 */
static object_type *choose_object(cptr q, cptr s)
{
        int item;

        if (!get_item(&item, q, s, (USE_INVEN | USE_FLOOR | USE_EQUIP))) return NULL;

        /* Get the item (in the pack) */
        if (item >= 0) return &inventory[item];

        /* Get the item (on the floor) */
        else return &o_list[0 - item];
}


/*
 * Choose an item and get auto-picker entry from it.
 */
static bool entry_from_choosed_object(autopick_type *entry)
{
        object_type *o_ptr;
        cptr q, s;

        /* Get an item */
#ifdef JP
        q = "¤É¤Î¥¢¥¤¥Æ¥à¤òÅÐÏ¿¤·¤Þ¤¹¤«? ";
        s = "¥¢¥¤¥Æ¥à¤ò»ý¤Ã¤Æ¤¤¤Ê¤¤¡£";
#else
        q = "Entry which item? ";
        s = "You have nothing to entry.";
#endif
        o_ptr = choose_object(q, s);
        if (!o_ptr) return FALSE;

        autopick_entry_from_object(entry, o_ptr);
        return TRUE;
}


/*
 * Choose an item or string for search
 */
static bool get_string_for_search(object_type **o_handle, cptr *search_strp)
{
        int pos = 0;
        cptr q, s;
        char buf[MAX_NLEN+20];

#ifdef JP
        int k_flag[MAX_NLEN+20];
        char prompt[] = "¸¡º÷(^I:»ý¤Áʪ ^L:Ç˲õ¤µ¤ì¤¿Êª): ";
#else
        char prompt[] = "Search key(^I:inven ^L:destroyed): ";
#endif
        int col = sizeof(prompt) - 1;

        if (*search_strp) strcpy(buf, *search_strp);
        else buf[0] = '\0';

        /* Display prompt */
        prt(prompt, 0, 0);

        /* Display the default answer */
        Term_erase(col, 0, 255);
        Term_putstr(col, 0, -1, TERM_YELLOW, buf);

        /* Process input */
        while (1)
        {
                object_type *o_ptr;
                int i;

                /* Place cursor */
                Term_gotoxy(col + pos, 0);

                /* Do not process macros except special keys */
                inkey_special = TRUE;

                /* Get a key */
                i = inkey();

                /* Analyze the key */
                switch (i)
                {
                case ESCAPE:
                        pos = 0;
                        return FALSE;

                case '\n':
                case '\r':
                        if (!pos && *o_handle) return TRUE;
                        string_free(*search_strp);
                        *search_strp = string_make(buf);
                        *o_handle = NULL;
                        return TRUE;

                case KTRL('i'):
                        /* Get an item */
#ifdef JP
                        q = "¤É¤Î¥¢¥¤¥Æ¥à¤ò¸¡º÷¤·¤Þ¤¹¤«? ";
                        s = "¥¢¥¤¥Æ¥à¤ò»ý¤Ã¤Æ¤¤¤Ê¤¤¡£";
#else
                        q = "Entry which item? ";
                        s = "You have nothing to entry.";
#endif
                        o_ptr = choose_object(q, s);
                        if (!o_ptr) return FALSE;

                        *o_handle = o_ptr;

                        string_free(*search_strp);
                        object_desc(buf, *o_handle, FALSE, 3);
                        *search_strp = string_make(format("<%s>", buf));
                        return TRUE;

                case KTRL('l'):
                        if (!autopick_last_destroyed_object.k_idx) break;
                        *o_handle = &autopick_last_destroyed_object;

                        string_free(*search_strp);
                        object_desc(buf, *o_handle, FALSE, 3);
                        *search_strp = string_make(format("<%s>", buf));
                        return TRUE;

                case 0x7F:
                case '\010':
#ifdef JP
                        if (pos > 0)
                        {
                                pos--;
                                if (k_flag[pos]) pos--;
                        }
#else
                        if (pos > 0) pos--;
#endif
                        break;

                default:
#ifdef JP
                        if (iskanji(i))
                        {
                                int next;

                                inkey_base = TRUE;
                                next = inkey ();
                                if (pos + 1 < MAX_NLEN)
                                {
                                        buf[pos++] = i;
                                        buf[pos] = next;
                                        k_flag[pos++] = 1;
                                }
                                else bell();
                        }
                        else if (pos < MAX_NLEN && isprint(i))
                        {
                                buf[pos] = i;
                                k_flag[pos++] = 0;
                        }
                        else bell();
#else
                        if (pos < MAX_NLEN && isprint(i)) buf[pos++] = i;
                        else bell();
#endif
                        break;
                }

                /* Terminate */
                buf[pos] = '\0';

                /* Update the entry */
                Term_erase(col, 0, 255);
                Term_putstr(col, 0, -1, TERM_WHITE, buf);
        }

        /* Never reached */
}


/*
 * Search next line matches for o_ptr
 */
static bool search_for_object(cptr *lines_list, object_type *o_ptr, int *cxp, int *cyp, bool forward)
{
        int i;
        autopick_type an_entry, *entry = &an_entry;
        char o_name[MAX_NLEN];

        object_desc(o_name, o_ptr, FALSE, 3);

        /* Force to be lower case string */
        for (i = 0; o_name[i]; i++)
        {
#ifdef JP
                if (iskanji(o_name[i]))
                        i++;
                else
#endif
                if (isupper(o_name[i]))
                        o_name[i] = tolower(o_name[i]);
        }
        
        i = *cyp;

        while (1)
        {
                if (forward)
                {
                        if (!lines_list[++i]) break;
                }
                else
                {
                        if (--i < 0) break;
                }

                if (!autopick_new_entry(entry, lines_list[i])) continue;

                if (is_autopick_aux(o_ptr, entry, o_name))
                {
                        *cxp = 0;
                        *cyp = i;
                        return TRUE;
                }
        }

        return FALSE;
}


/*
 * Search next line matches to the string
 */
static bool search_for_string(cptr *lines_list, cptr search_str, int *cxp, int *cyp, bool forward)
{
        int i = *cyp;

        while (1)
        {
                cptr pos;

                if (forward)
                {
                        if (!lines_list[++i]) break;
                }
                else
                {
                        if (--i < 0) break;
                }
#ifdef JP
                pos = strstr_j(lines_list[i], search_str);
#else
                pos = strstr(lines_list[i], search_str);
#endif
                if (pos)
                {
                        *cxp = (int)(pos - lines_list[i]);
                        *cyp = i;
                        return TRUE;
                }
        }

        return FALSE;
}


/*
 * Initialize auto-picker preference
 */
void init_autopicker(void)
{
        static const char easy_autopick_inscription[] = "(:=g";
        autopick_type entry;
        int i;

        /* Clear old entries */
        for( i = 0; i < max_autopick; i++)
                autopick_free_entry(&autopick_list[i]);

        max_autopick = 0;

        /* There is always one entry "=g" */
        autopick_new_entry(&entry, easy_autopick_inscription);
        autopick_list[max_autopick++] = entry;
}



/*
 *  Process line for auto picker/destroyer.
 */
errr process_pickpref_file_line(char *buf)
{
        autopick_type entry;
        int i;

        if (max_autopick == MAX_AUTOPICK)
                return 1;
        
        /* Nuke illegal char */
        for(i = 0; buf[i]; i++)
        {
#ifdef JP
                if (iskanji(buf[i]))
                {
                        i++;
                        continue;
                }
#endif
                if (isspace(buf[i]) && buf[i] != ' ')
                        break;
        }
        buf[i] = 0;
        
        if (!autopick_new_entry(&entry, buf)) return 0;

        /* Already has the same entry? */ 
        for(i = 0; i < max_autopick; i++)
                if(!strcmp(entry.name, autopick_list[i].name)
                   && entry.flag[0] == autopick_list[i].flag[0]
                   && entry.flag[1] == autopick_list[i].flag[1]
                   && entry.dice == autopick_list[i].dice
                   && entry.bonus == autopick_list[i].bonus) return 0;

        autopick_list[max_autopick++] = entry;
        return 0;
}


/*
 * Get a trigger key and insert ASCII string for the trigger
 */
static bool insert_macro_line(cptr *lines_list, int cy)
{
        char tmp[1024];
        char buf[1024];
        int i, n = 0;

        /* Flush */
        flush();

        /* Do not process macros */
        inkey_base = TRUE;

        /* First key */
        i = inkey();

        /* Read the pattern */
        while (i)
        {
                /* Save the key */
                buf[n++] = i;

                /* Do not process macros */
                inkey_base = TRUE;

                /* Do not wait for keys */
                inkey_scan = TRUE;

                /* Attempt to read a key */
                i = inkey();
        }

        /* Terminate */
        buf[n] = '\0';

        /* Flush */
        flush();

        /* Convert the trigger */
        ascii_to_text(tmp, buf);

        /* Null */
        if(!tmp[0]) return FALSE;

        /* Insert preference string */
        insert_return_code(lines_list, 0, cy);
        string_free(lines_list[cy]);
        lines_list[cy] = string_make(format("P:%s", tmp));

        /* Insert blank action preference line */
        insert_return_code(lines_list, 0, cy);
        string_free(lines_list[cy]);
        lines_list[cy] = string_make("A:");

        return TRUE;
}


/*
 * Get a command key and insert ASCII string for the key
 */
static bool insert_keymap_line(cptr *lines_list, int cy)
{
        char tmp[1024];
        char buf[2];
        int mode;

        /* Roguelike */
        if (rogue_like_commands)
        {
                mode = KEYMAP_MODE_ROGUE;
        }

        /* Original */
        else
        {
                mode = KEYMAP_MODE_ORIG;
        }

        /* Flush */
        flush();

        /* Get a key */
        buf[0] = inkey();
        buf[1] = '\0';

        /* Flush */
        flush();

        /* Convert the trigger */
        ascii_to_text(tmp, buf);

        /* Null */
        if(!tmp[0]) return FALSE;

        /* Insert preference string */
        insert_return_code(lines_list, 0, cy);
        string_free(lines_list[cy]);
        lines_list[cy] = string_make(format("C:%d:%s", mode, tmp));

        /* Insert blank action preference line */
        insert_return_code(lines_list, 0, cy);
        string_free(lines_list[cy]);
        lines_list[cy] = string_make("A:");

        return TRUE;
}


/*
 * Description of control commands
 */

#define WID_DESC 31

static cptr ctrl_command_desc[] =
{
#ifdef JP
#define LAST_DESTROYED 6
        "^P ^N ^B ^F ¾å²¼º¸±¦¤Ë°ÜÆ°",
        "^A ^E ¹Ô¤ÎÀèƬ¡¢½ªÃ¼",
        "^Q ÆþÎÏ/¥³¥Þ¥ó¥É¥â¡¼¥ÉÀÚ¤êÂؤ¨",
        "^R Êѹ¹¤òÁ´¤Æ¼è¤ê¾Ã¤·¤Æ¸µ¤ËÌ᤹",
        "------------------------------------",
        "^I »ý¤Áʪ/ÁõÈ÷¤«¤éÁªÂò",
        "^L",
        "^K ¥«¡¼¥½¥ë¤«¤é½ªÃ¼¤Þ¤Çºï½ü",
        "^Y ºï½ü(^K)¤·¤¿¹Ô¤òÁÞÆþ",
        "^C ¼ï²¡¢¿¦¶È¤Î¾ò·ï¼°¤òÁÞÆþ",
        "------------------------------------",
        "^S Êѹ¹ (!Ç˲õ/~ÊüÃÖ/½¦¤¦)",
        "^G \"(\" Á´ÂΥޥåפÇɽ¼¨¤·¤Ê¤¤",
        "^O \"#\" ¼«Æ°¹ï¤ß",
        "------------------------------------",
        "^U ̤´ÕÄê/̤ȽÌÀ/´ÕÄê/*´ÕÄê*",
        "^W \"̵²ÁÃͤÎ\"",
        "^X ̵ÌÃ/¥¨¥´/¥¢¡¼¥Æ¥£¥Õ¥¡¥¯¥È",
        "^Z \"¼ý½¸Ãæ¤Î\"",
        NULL
#else
#define LAST_DESTROYED 6
        "^P ^N ^B ^F Move Cursor",
        "^A ^E Beginning and End of Line",
        "^Q Toggle Insert/Command mode",
        "^R Revert to Original File",
        "------------------------------------",
        "^I Object in Inventry/Equipment",
        "^L",
        "^K Kill Rest of Line",
        "^Y Insert killed(^K) text",
        "^C Insert conditional expression",
        "------------------------------------",
        "^S Toggle(!Destroy/~Leave/Pick)",
        "^G \"(\" No display in the 'M'ap",
        "^O \"#\" Auto-Inscribe",
        "------------------------------------",
        "^U Toggle 'identified' state",
        "^W \"worthless\"",
        "^X Toggle nameless/ego/artifact",
        "^Z \"collecting\"",
        NULL
#endif
};


#define MAX_YANK MAX_LINELEN
#define DIRTY_ALL 0x01
#define DIRTY_COMMAND 0x02
#define DIRTY_MODE 0x04
#define DIRTY_SCREEN 0x08
#define DIRTY_NOT_FOUND 0x10
#define DIRTY_NO_SEARCH 0x20

/*
 * In-game editor of Object Auto-picker/Destoryer
 */
void do_cmd_edit_autopick(void)
{
        static int cx = 0, cy = 0;
        static int upper = 0, left = 0;

        object_type *search_o_ptr = NULL;
        cptr search_str = NULL;
        cptr last_destroyed = NULL;
        char last_destroyed_command[WID_DESC+3];
        char yank_buf[MAX_YANK];
        char classrace[80];
        autopick_type an_entry, *entry = &an_entry;
        char buf[MAX_LINELEN];
        cptr *lines_list;
        int filename_mode = PT_WITH_PNAME;

        int i, j, k, len;
        cptr tmp;

        int old_upper = -1, old_left = -1;
        int old_cy = -1;
        int key = -1, old_key;
        bool repeated_clearing = FALSE;
        bool edit_mode = FALSE;

        byte dirty_flags = DIRTY_ALL | DIRTY_COMMAND | DIRTY_MODE;
        int dirty_line = -1;

        int wid, hgt, old_wid = -1, old_hgt = -1;

        static s32b old_autosave_turn = 0L;

        /* Autosave */
        if (turn > old_autosave_turn + 100L)
        {
                do_cmd_save_game(TRUE);
                old_autosave_turn = turn;
        }

        /* HACK -- Reset start_time to stop counting playtime while edit */
        update_playtime();

        /* Free old entries */
        init_autopicker();

        /* Command Description of the 'Last Destroyed Item' */
        if (autopick_last_destroyed_object.k_idx)
        {
                autopick_entry_from_object(entry, &autopick_last_destroyed_object);
                last_destroyed = autopick_line_from_entry_kill(entry);

                my_strcpy(last_destroyed_command, format("^L \"%s\"", last_destroyed), sizeof(last_destroyed_command));
        }
        else
        {
#ifdef JP
                strcpy(last_destroyed_command, "^L ºÇ¸å¤Ë¼«Æ°Ç˲õ¤·¤¿¥¢¥¤¥Æ¥à̾");
#else
                strcpy(last_destroyed_command, "^L Last destroyed object");
#endif
        }
        ctrl_command_desc[LAST_DESTROYED] = last_destroyed_command;

        /* Conditional Expression for Class and Race */
        sprintf(classrace, "?:[AND [EQU $RACE %s] [EQU $CLASS %s]]", 
#ifdef JP
                rp_ptr->E_title, cp_ptr->E_title
#else
                rp_ptr->title, cp_ptr->title
#endif
                );

        /* Clear yank buffer */
        yank_buf[0] = '\0';

        /* Read or initialize whole text */
        lines_list = read_pickpref_text_lines(&filename_mode);

        /* Reset cursor position if needed */
        for (i = 0; i < cy; i++)
        {
                if (!lines_list[i])
                {
                        cy = cx = 0;
                        break;
                }
        }

        /* Save the screen */
        screen_save();

        /* Process requests until done */
        while (1)
        {
                /* Get size */
                Term_get_size(&wid, &hgt);

#ifdef JP
                /* Don't let cursor at second byte of kanji */
                for (i = 0; lines_list[cy][i]; i++)
                        if (iskanji(lines_list[cy][i]))
                        {
                                i++;
                                if (i == cx)
                                {
                                        cx--;
                                        break;
                                }
                        }
#endif

                /* Scroll if necessary */
                if (cy < upper || upper + hgt - 4 <= cy)
                        upper = cy - (hgt-4)/2;
                if (upper < 0)
                        upper = 0;
                if ((cx < left + 10 && left > 0) || left + wid - WID_DESC - 5 <= cx)
                        left = cx - (wid - WID_DESC)*2/3;
                if (left < 0)
                        left = 0;

                /* Redraw whole window after resize */
                if (old_wid != wid || old_hgt != hgt)
                        dirty_flags |= DIRTY_SCREEN;

                /* Redraw all text after scroll */
                else if (old_upper != upper || old_left != left)
                        dirty_flags |= DIRTY_ALL;


                if (dirty_flags & DIRTY_SCREEN)
                {
                        dirty_flags |= (DIRTY_ALL | DIRTY_COMMAND | DIRTY_MODE);

                        /* Clear screen */
                        Term_clear();
                }

                if (dirty_flags & DIRTY_COMMAND)
                {
                        /* Display control command */
                        for (i = 0; ctrl_command_desc[i]; i++)
                                Term_putstr(wid - WID_DESC, i + 1, WID_DESC, TERM_WHITE, ctrl_command_desc[i]);
                }

                /* Redraw mode line */
                if (dirty_flags & DIRTY_MODE)
                {
                        int sepa_length = wid - WID_DESC;

                        /* Separator */
                        for (i = 0; i < sepa_length; i++)
                                buf[i] = '-';
                        buf[i] = '\0';

                        /* Mode line */
                        if (edit_mode)
                                strncpy(buf + sepa_length - 21, " (INSERT MODE)  ", 16);
                        else
                                strncpy(buf + sepa_length - 21, " (COMMAND MODE) ", 16);

                        Term_putstr(0, hgt - 3, sepa_length, (byte) (edit_mode ? TERM_YELLOW : TERM_WHITE), buf);
                }
                
                /* Dump up to 20, or hgt-4, lines of messages */
                for (i = 0; i < hgt - 4; i++)
                {
                        int leftcol = 0;
                        cptr msg;

                        /* clean or dirty? */
                        if (!(dirty_flags & DIRTY_ALL) && (dirty_line != upper+i))
                                continue;

                        msg = lines_list[upper+i];
                        if (!msg) break;

                        /* Apply horizontal scroll */
                        for (j = 0; *msg; msg++, j++)
                        {
                                if (j == left) break;
#ifdef JP
                                if (j > left)
                                {
                                        leftcol = 1;
                                        break;
                                }
                                if (iskanji(*msg))
                                {
                                        msg++;
                                        j++;
                                }
#endif
                        }

                        /* Erase line */
                        Term_erase(0, i + 1, wid - WID_DESC);

                        /* Dump the messages, bottom to top */
                        Term_putstr(leftcol, i + 1, wid - WID_DESC - 1, TERM_WHITE, msg);
                }

                for (; i < hgt - 4; i++)
                {
                        /* Erase line */
                        Term_erase(0, i + 1, wid - WID_DESC);
                }

                /* Display header line */
#ifdef JP
                if (edit_mode)
                        prt("^Q ESC ¤Ç¥³¥Þ¥ó¥É¥â¡¼¥É¤Ø°Ü¹Ô¡¢Ä̾ï¤Îʸ»ú¤Ï¤½¤Î¤Þ¤ÞÆþÎÏ", 0, 0);
                else
                        prt("q _ ¤Ç½ªÎ»¡¢hjkl2468 ¤Ç°ÜÆ°¡¢^Q a i ¤ÇÆþÎϥ⡼¥É¡¢/ n N ¤Ç¸¡º÷", 0, 0);
#else   
                if (edit_mode)
                        prt("Press ^Q ESC to command mode, any letters to insert", 0, 0);
                else
                        prt(format("Press q _ to quit, %s to move, ^Q a i to insert mode, /nN to find", rogue_like_commands ? "hjkl" : "2468"), 0, 0);
#endif
                /* Display current position */
                prt (format("(%d,%d)", cx, cy), 0, 70);

                /* Display information when updated */
                if (old_cy != cy || (dirty_flags & (DIRTY_ALL | DIRTY_NOT_FOUND | DIRTY_NO_SEARCH)) || dirty_line == cy)
                {
                        /* Clear information line */
                        Term_erase(0, hgt - 3 + 1, wid);
                        Term_erase(0, hgt - 3 + 2, wid);

                        /* Display information */
                        if (dirty_flags & DIRTY_NOT_FOUND)
                        {
#ifdef JP
                                prt(format("¥Ñ¥¿¡¼¥ó¤¬¸«¤Ä¤«¤ê¤Þ¤»¤ó: %s", search_str), hgt - 3 + 1, 0);
#else
                                prt(format("Pattern not found: %s", search_str), hgt - 3 + 1, 0);
#endif
                        }
                        else if (dirty_flags & DIRTY_NO_SEARCH)
                        {
#ifdef JP
                                prt("¸¡º÷Ãæ¤Î¥Ñ¥¿¡¼¥ó¤¬¤¢¤ê¤Þ¤»¤ó('/'¤Ç¸¡º÷)¡£", hgt - 3 + 1, 0);
#else
                                prt("No pattern to search. (Press '/' to search.)", hgt - 3 + 1, 0);
#endif
                        }
                        else if (lines_list[cy][0] == '#')
                        {
#ifdef JP
                                prt("¤³¤Î¹Ô¤Ï¥³¥á¥ó¥È¤Ç¤¹¡£", hgt - 3 + 1, 0);
#else
                                prt("This line is comment.", hgt - 3 + 1, 0);
#endif
                        }
                        else if (lines_list[cy][1] == ':')
                        {
                                switch(lines_list[cy][0])
                                {
                                case '?':
#ifdef JP
                                        prt("¤³¤Î¹Ô¤Ï¾ò·ïʬ´ô¼°¤Ç¤¹¡£", hgt - 3 + 1, 0);
#else
                                        prt("This line is Conditional Expression.", hgt - 3 + 1, 0);
#endif
                                        break;
                                case 'A':
#ifdef JP
                                        prt("¤³¤Î¹Ô¤Ï¥Þ¥¯¥í¤Î¼Â¹ÔÆâÍƤòÄêµÁ¤·¤Þ¤¹¡£", hgt - 3 + 1, 0);
#else
                                        prt("This line defines Macro action.", hgt - 3 + 1, 0);
#endif
                                        break;
                                case 'P':
#ifdef JP
                                        prt("¤³¤Î¹Ô¤Ï¥Þ¥¯¥í¤Î¥È¥ê¥¬¡¼¡¦¥­¡¼¤òÄêµÁ¤·¤Þ¤¹¡£", hgt - 3 + 1, 0);
#else
                                        prt("This line defines Macro trigger key.", hgt - 3 + 1, 0);
#endif
                                        break;
                                case 'C':
#ifdef JP
                                        prt("¤³¤Î¹Ô¤Ï¥­¡¼ÇÛÃÖ¤òÄêµÁ¤·¤Þ¤¹¡£", hgt - 3 + 1, 0);
#else
                                        prt("This line defines Keymap.", hgt - 3 + 1, 0);
#endif
                                        break;
                                }
                        }

                        /* Get description of an autopicker preference line */
                        else if (autopick_new_entry(entry, lines_list[cy]))
                        {
                                char temp[1024];
                                cptr t;

                                describe_autopick(buf, entry);

                                roff_to_buf(buf, 81, temp);
                                t = temp;
                                for (i = 0; i< 2; i++)
                                {
                                        if(t[0] == 0)
                                                break; 
                                        else
                                        {
                                                prt(t, hgt - 3 + 1 + i, 0);
                                                t += strlen(t) + 1;
                                        }
                                }
                                autopick_free_entry(entry);
                        }
                }

                /* Place cursor */
                Term_gotoxy(cx - left, cy - upper + 1);

                /* Now clean */
                dirty_flags = 0;
                dirty_line = -1;

                /* Save old key and location */
                old_cy = cy;
                old_key = key;
                old_upper = upper;
                old_left = left;
                old_wid = wid;
                old_hgt = hgt;

                /* Do not process macros except special keys */
                inkey_special = TRUE;

                /* Get a command */
                key = inkey();

                if (edit_mode)
                {
                        if (key == ESCAPE)
                        {
                                edit_mode = FALSE;

                                /* Mode line is now dirty */
                                dirty_flags |= DIRTY_MODE;
                        }

                        /* Insert a character */
                        else if (!iscntrl(key&0xff))
                        {
                                int next;

                                /* Save preceding string */
                                for (i = j = 0; lines_list[cy][i] && i < cx; i++)
                                        buf[j++] = lines_list[cy][i];

                                /* Add a character */
#ifdef JP
                                if (iskanji(key))
                                {
                                        inkey_base = TRUE;
                                        next = inkey();
                                        if (j+2 < MAX_LINELEN)
                                        {
                                                buf[j++] = key;
                                                buf[j++] = next;
                                                cx += 2;
                                        }
                                        else
                                                bell();
                                }
                                else
#endif
                                {
                                        if (j+1 < MAX_LINELEN)
                                                buf[j++] = key;
                                        cx++;
                                }

                                /* Add following */
                                for (; lines_list[cy][i] && j + 1 < MAX_LINELEN; i++)
                                        buf[j++] = lines_list[cy][i];
                                buf[j] = '\0';

                                /* Replace current line with new line */
                                string_free(lines_list[cy]);
                                lines_list[cy] = string_make(buf);

                                /* Move to correct collumn */
                                len = strlen(lines_list[cy]);
                                if (len < cx) cx = len;

                                /* Now dirty */
                                dirty_line = cy;
                        }
                }
                else
                {
                        /* Exit on 'q' */
                        if (key == 'q' || key == '_') break;

                        switch(key)
                        {
                        case 'a': case 'i':
                                edit_mode = TRUE;

                                /* Mode line is now dirty */
                                dirty_flags |= DIRTY_MODE;
                                break;
                        case '~':
                                if (!autopick_new_entry(entry, lines_list[cy]))
                                {
                                        if (old_key != key) repeated_clearing = FALSE;

                                        /* Next line */
                                        if (lines_list[cy + 1]) cy++;
                                        cx = 0;
                                        break;
                                }
                                string_free(lines_list[cy]);

                                if (old_key != key)
                                {
                                        if (entry->action & DONT_AUTOPICK)
                                                repeated_clearing = TRUE;
                                        else
                                                repeated_clearing = FALSE;
                                }

                                entry->action &= ~DO_AUTODESTROY;
                                entry->action &= ~DO_QUERY_AUTOPICK;
                                if (!repeated_clearing)
                                {
                                        entry->action &= ~DO_AUTOPICK;
                                        entry->action |= DONT_AUTOPICK;
                                }
                                else 
                                {
                                        entry->action &= ~DONT_AUTOPICK;
                                        entry->action |= DO_AUTOPICK;
                                }

                                lines_list[cy] = autopick_line_from_entry_kill(entry);

                                /* Now dirty */
                                dirty_line = cy;

                                /* Next line */
                                if (lines_list[cy + 1]) cy++;
                                cx = 0;
                                break;
                        case '!':
                                if (!autopick_new_entry(entry, lines_list[cy]))
                                {
                                        if (old_key != key) repeated_clearing = FALSE;

                                        /* Next line */
                                        if (lines_list[cy + 1]) cy++;
                                        cx = 0;
                                        break;
                                }
                                string_free(lines_list[cy]);

                                if (old_key != key)
                                {
                                        if (entry->action & DO_AUTODESTROY)
                                                repeated_clearing = TRUE;
                                        else
                                                repeated_clearing = FALSE;
                                }

                                entry->action &= ~DONT_AUTOPICK;
                                entry->action &= ~DO_QUERY_AUTOPICK;
                                if (!repeated_clearing)
                                {
                                        entry->action &= ~DO_AUTOPICK;
                                        entry->action |= DO_AUTODESTROY;
                                }
                                else 
                                {
                                        entry->action &= ~DO_AUTODESTROY;
                                        entry->action |= DO_AUTOPICK;
                                }

                                lines_list[cy] = autopick_line_from_entry_kill(entry);

                                /* Now dirty */
                                dirty_line = cy;

                                /* Next line */
                                if (lines_list[cy + 1]) cy++;
                                cx = 0;
                                break;
                        case ';':
                                if (!autopick_new_entry(entry, lines_list[cy]))
                                {
                                        if (old_key != key) repeated_clearing = FALSE;

                                        /* Next line */
                                        if (lines_list[cy + 1]) cy++;
                                        cx = 0;
                                        break;
                                }
                                string_free(lines_list[cy]);

                                if (old_key != key)
                                {
                                        if (entry->action & DO_QUERY_AUTOPICK)
                                                repeated_clearing = TRUE;
                                        else
                                                repeated_clearing = FALSE;
                                }

                                entry->action &= ~DO_AUTODESTROY;
                                entry->action &= ~DONT_AUTOPICK;
                                if (!repeated_clearing)
                                {
                                        entry->action &= ~DO_AUTOPICK;
                                        entry->action |= DO_QUERY_AUTOPICK;
                                }
                                else 
                                {
                                        entry->action &= ~DO_QUERY_AUTOPICK;
                                        entry->action |= DO_AUTOPICK;
                                }

                                lines_list[cy] = autopick_line_from_entry_kill(entry);

                                /* Now dirty */
                                dirty_line = cy;

                                /* Next line */
                                if (lines_list[cy + 1]) cy++;
                                cx = 0;
                                break;
                        case '(':
                                /* Toggle display on the 'M'ap */
                                if (!autopick_new_entry(entry, lines_list[cy]))
                                {
                                        if (old_key != key) repeated_clearing = FALSE;

                                        /* Next line */
                                        if (lines_list[cy + 1]) cy++;
                                        cx = 0;
                                        break;
                                }
                                string_free(lines_list[cy]);

                                if (old_key != key)
                                {
                                        if (entry->action & DO_DISPLAY)
                                                repeated_clearing = TRUE;
                                        else
                                                repeated_clearing = FALSE;
                                }

                                if (!repeated_clearing)
                                        entry->action |= DO_DISPLAY;
                                else
                                        entry->action &= ~DO_DISPLAY;

                                lines_list[cy] = autopick_line_from_entry_kill(entry);

                                /* Now dirty */
                                dirty_line = cy;

                                /* Next line */
                                if (lines_list[cy + 1]) cy++;
                                cx = 0;
                                break;
                        case '#':
                        case '{':
                                key = KTRL('o');
                                break;
                        case 'h': case '4':
                                key = KTRL('b');
                                break;
                        case 'l': case '6':
                                key = KTRL('f');
                                break;
                        case 'j': case '2':
                                key = KTRL('n');
                                break;
                        case 'k': case '8':
                                key = KTRL('p');
                                break;
                        case ' ':
                                while (cy < upper + hgt-4 && lines_list[cy + 1])
                                        cy++;
                                upper = cy;
                                break;
                        case '-': case 'b':
                                while (0 < cy && upper <= cy)
                                        cy--;
                                while (0 < upper && cy + 1 < upper + hgt - 4)
                                        upper--;
                                break;

                        case 'g':
                                cy = 0;
                                break;

                        case 'G':
                                while (lines_list[cy + 1])
                                        cy++;
                                break;

                        case 'm':
                                /* Erase line */
                                Term_erase(0, cy - upper + 1, wid - WID_DESC);

                                /* Prompt */
#ifdef JP
                                Term_putstr(0, cy - upper + 1, wid - WID_DESC - 1, TERM_YELLOW, "P:<¥È¥ê¥¬¡¼¥­¡¼>: ");
#else
                                Term_putstr(0, cy - upper + 1, wid - WID_DESC - 1, TERM_YELLOW, "P:<Trigger key>: ");
#endif
                                if (insert_macro_line(lines_list, cy))
                                {
                                        /* Prepare to input action */
                                        cx = 2;
                                        edit_mode = TRUE;

                                        /* Now dirty */
                                        dirty_flags |= DIRTY_ALL;
                                        dirty_flags |= DIRTY_MODE;
                                }

                                break;

                        case 'c':
                                /* Erase line */
                                Term_erase(0, cy - upper + 1, wid - WID_DESC);

                                /* Prompt */
#ifdef JP
                                Term_putstr(0, cy - upper + 1, wid - WID_DESC - 1, TERM_YELLOW, format("C:%d:<¥³¥Þ¥ó¥É¥­¡¼>: ", (rogue_like_commands ? KEYMAP_MODE_ROGUE : KEYMAP_MODE_ORIG)));
#else
                                Term_putstr(0, cy - upper + 1, wid - WID_DESC - 1, TERM_YELLOW, format("C:%d:<Keypress>: ", (rogue_like_commands ? KEYMAP_MODE_ROGUE : KEYMAP_MODE_ORIG)));
#endif

                                if (insert_keymap_line(lines_list, cy))
                                {
                                        /* Prepare to input action */
                                        cx = 2;
                                        edit_mode = TRUE;

                                        /* Now dirty */
                                        dirty_flags |= DIRTY_ALL;
                                        dirty_flags |= DIRTY_MODE;
                                }                               
                                break;
                        case '/':
                                /* Become dirty because of item/equip menu */
                                dirty_flags |= DIRTY_SCREEN;

                                if (!get_string_for_search(&search_o_ptr, &search_str))
                                        break;

                                /* fall through */
                        case 'n':
                                if (search_o_ptr)
                                {
                                        if (!search_for_object(lines_list, search_o_ptr, &cx, &cy, TRUE)) dirty_flags |= DIRTY_NOT_FOUND;
                                }
                                else if (search_str)
                                {
                                        if (!search_for_string(lines_list, search_str, &cx, &cy, TRUE)) dirty_flags |= DIRTY_NOT_FOUND;
                                }
                                else
                                {
                                        dirty_flags |= DIRTY_NO_SEARCH;
                                }
                                break;
                        case 'N':
                                if (search_o_ptr)
                                {
                                        if (!search_for_object(lines_list, search_o_ptr, &cx, &cy, FALSE)) dirty_flags |= DIRTY_NOT_FOUND;
                                }
                                else if (search_str)
                                {
                                        if (!search_for_string(lines_list, search_str, &cx, &cy, FALSE)) dirty_flags |= DIRTY_NOT_FOUND;
                                }
                                else
                                {
                                        dirty_flags |= DIRTY_NO_SEARCH;
                                }
                                break;
                        }
                }

                switch(key)
                {
                case KTRL('a'):
                        /* Beginning of line */
                        cx = 0;
                        break;
                case KTRL('b'):
                        /* Back */
                        if (0 < cx)
                        {
                                cx--;
                                len = strlen(lines_list[cy]);
                                if (len < cx) cx = len;
                        }
                        else if (cy > 0)
                        {
                                cy--;
                                cx = strlen(lines_list[cy]);
                        }
                        break;
                case KTRL('c'):
                        /* Insert a conditinal expression line */
                        insert_return_code(lines_list, 0, cy);
                        string_free(lines_list[cy]);
                        lines_list[cy] = string_make(classrace);
                        cy++;
                        insert_return_code(lines_list, 0, cy);
                        string_free(lines_list[cy]);
                        lines_list[cy] = string_make("?:1");
                        cx = 0;

                        /* Now dirty */
                        dirty_flags |= DIRTY_ALL;
                        break;
                case KTRL('e'):
                        /* End of line */
                        cx = strlen(lines_list[cy]);
                        break;
                case KTRL('f'):
                        /* Forward */
#ifdef JP
                        if (iskanji(lines_list[cy][cx])) cx++;
#endif
                        cx++;
                        len = strlen(lines_list[cy]);
                        if (len < cx)
                        {
                                if (lines_list[cy + 1])
                                {
                                        cy++;
                                        cx = 0;
                                }
                                else
                                        cx = len;
                        }
                        break;
                case KTRL('g'):
                        /* Toggle display on the 'M'ap */
                        if (!autopick_new_entry(entry, lines_list[cy]))
                                break;
                        string_free(lines_list[cy]);

                        if (entry->action & DO_DISPLAY)
                        {
                                entry->action &= ~DO_DISPLAY;
                                cx++;
                        }
                        else
                        {
                                entry->action |= DO_DISPLAY;
                                if (cx > 0) cx--;
                        }

                        lines_list[cy] = autopick_line_from_entry_kill(entry);

                        /* Now dirty */
                        dirty_line = cy;
                        break;
                case KTRL('i'):
                        /* Insert choosen item name */
                        if (!entry_from_choosed_object(entry))
                        {
                                /* Now dirty because of item/equip menu */
                                dirty_flags |= DIRTY_SCREEN;
                                break;
                        }

                        insert_return_code(lines_list, 0, cy);
                        string_free(lines_list[cy]);
                        lines_list[cy] = autopick_line_from_entry_kill(entry);
                        cx = 0;

                        /* Now dirty because of item/equip menu */
                        dirty_flags |= DIRTY_SCREEN;

                        break;
                case KTRL('l'):
                        /* Insert a name of last destroyed item */
                        if (last_destroyed)
                        {
                                insert_return_code(lines_list, 0, cy);
                                string_free(lines_list[cy]);
                                lines_list[cy] = string_make(last_destroyed);
                                cx = 0;

                                /* Now dirty */
                                dirty_flags |= DIRTY_ALL;
                        }
                        break;
                case '\n': case '\r':
                        /* Split a line or insert end of line */
                        insert_return_code(lines_list, cx, cy);
                        cy++;
                        cx = 0;

                        /* Now dirty */
                        dirty_flags |= DIRTY_ALL;
                        break;
                case KTRL('n'):
                        /* Next line */
                        if (lines_list[cy + 1]) cy++;
                        break;
                case KTRL('o'):
                        /* Prepare to write auto-inscription text */
                        if (!autopick_new_entry(entry, lines_list[cy]))
                                break;
                        string_free(lines_list[cy]);

                        if (!entry->insc) entry->insc = string_make("");

                        lines_list[cy] = autopick_line_from_entry_kill(entry);

                        /* Move to collumn for auto inscription */
                        for (cx = 0; lines_list[cy][cx]; cx++)
                                if (lines_list[cy][cx] == '#') break;
                        cx++;
                        edit_mode = TRUE;

                        /* Now dirty */
                        dirty_line = cy;
                        dirty_flags |= DIRTY_MODE;
                        break;
                case KTRL('p'):
                        /* Previous line */
                        if (cy > 0) cy--;
                        break;
                case KTRL('q'):
                        /* Change mode */
                        edit_mode = !edit_mode;
                        
                        /* Mode line is now dirty */
                        dirty_flags |= DIRTY_MODE;
                        break;
                case KTRL('r'):
                        /* Revert to original */
#ifdef JP
                        if (!get_check("Á´¤Æ¤ÎÊѹ¹¤òÇË´þ¤·¤Æ¸µ¤Î¾õÂÖ¤ËÌᤷ¤Þ¤¹¡£¤è¤í¤·¤¤¤Ç¤¹¤«¡© "))
#else
                        if (!get_check("Discard all change and revert to original file. Are you sure? "))
#endif
                                break;

                        free_text_lines(lines_list);
                        lines_list = read_pickpref_text_lines(&filename_mode);
                        dirty_flags |= DIRTY_ALL | DIRTY_MODE;
                        cx = cy = 0;
                        edit_mode = FALSE;
                        break;
                case KTRL('s'):
                        /* Rotate action; pickup/destroy/leave */
                        if (!autopick_new_entry(entry, lines_list[cy]))
                                break;
                        string_free(lines_list[cy]);

                        if (entry->action & DO_AUTOPICK)
                        {
                                entry->action &= ~DO_AUTOPICK;
                                entry->action |= DO_AUTODESTROY;
                        }
                        else if (entry->action & DO_AUTODESTROY)
                        {
                                entry->action &= ~DO_AUTODESTROY;
                                entry->action |= DONT_AUTOPICK;
                        }
                        else if (entry->action & DONT_AUTOPICK)
                        {
                                entry->action &= ~DONT_AUTOPICK;
                                entry->action |= DO_AUTOPICK;
                        }

                        lines_list[cy] = autopick_line_from_entry_kill(entry);

                        /* Now dirty */
                        dirty_line = cy;

                        break;
                case KTRL('t'):
                        /* Nothing */
                        break;
                case KTRL('u'):
                        /* Rotate identify-state; identified/unidentified/... */
                        if (!autopick_new_entry(entry, lines_list[cy]))
                                break;
                        string_free(lines_list[cy]);

                        if (IS_FLG(FLG_UNIDENTIFIED)) 
                        {
                                REM_FLG(FLG_UNIDENTIFIED);
                                ADD_FLG(FLG_UNAWARE);
                                REM_FLG(FLG_IDENTIFIED);
                                REM_FLG(FLG_STAR_IDENTIFIED);
                        }
                        else if (IS_FLG(FLG_UNAWARE)) 
                        {
                                REM_FLG(FLG_UNIDENTIFIED);
                                REM_FLG(FLG_UNAWARE);
                                ADD_FLG(FLG_IDENTIFIED);
                                REM_FLG(FLG_STAR_IDENTIFIED);
                        }
                        else if (IS_FLG(FLG_STAR_IDENTIFIED)) 
                        {
                                REM_FLG(FLG_UNIDENTIFIED);
                                REM_FLG(FLG_UNAWARE);
                                REM_FLG(FLG_IDENTIFIED);
                                REM_FLG(FLG_STAR_IDENTIFIED);
                        }
                        else if (IS_FLG(FLG_IDENTIFIED)) 
                        {
                                REM_FLG(FLG_UNIDENTIFIED);
                                REM_FLG(FLG_UNAWARE);
                                REM_FLG(FLG_IDENTIFIED);
                                ADD_FLG(FLG_STAR_IDENTIFIED);
                        }
                        else
                        {
                                ADD_FLG(FLG_UNIDENTIFIED);
                                REM_FLG(FLG_UNAWARE);
                                REM_FLG(FLG_IDENTIFIED);
                                REM_FLG(FLG_STAR_IDENTIFIED);
                        }

                        lines_list[cy] = autopick_line_from_entry_kill(entry);

                        /* Now dirty */
                        dirty_line = cy;
                        break;
                case KTRL('v'):
                        /* Scroll up */
                        while (cy < upper + hgt-4 && lines_list[cy + 1])
                                cy++;
                        upper = cy;
                        break;
                case KTRL('w'):
                        /* Toggle 'worthless' */
                        toggle_string(lines_list, FLG_WORTHLESS, cy);
                        /* Now dirty */
                        dirty_line = cy;
                        break;
                case KTRL('x'):
                        /* Rotate within nameless, ego, artifact */
                        if (!autopick_new_entry(entry, lines_list[cy]))
                                break;
                        string_free(lines_list[cy]);

                        if (IS_FLG(FLG_NAMELESS)) 
                        {
                                REM_FLG(FLG_NAMELESS);
                                ADD_FLG(FLG_EGO);
                                REM_FLG(FLG_ARTIFACT);
                        }
                        else if (IS_FLG(FLG_EGO)) 
                        {
                                REM_FLG(FLG_NAMELESS);
                                REM_FLG(FLG_EGO);
                                ADD_FLG(FLG_ARTIFACT);
                        }
                        else if (IS_FLG(FLG_ARTIFACT)) 
                        {
                                REM_FLG(FLG_NAMELESS);
                                REM_FLG(FLG_EGO);
                                REM_FLG(FLG_ARTIFACT);
                        }
                        else
                        {
                                ADD_FLG(FLG_NAMELESS);
                                REM_FLG(FLG_EGO);
                                REM_FLG(FLG_ARTIFACT);
                        }

                        lines_list[cy] = autopick_line_from_entry_kill(entry);

                        /* Now dirty */
                        dirty_line = cy;
                        break;

                case KTRL('y'):
                        /* Paste killed text */
                        if (strlen(yank_buf))
                        {
                                bool ret = FALSE;

                                for (j = 0; yank_buf[j]; j += strlen(yank_buf + j) + 1)
                                {
                                        if (ret && '\n' == yank_buf[j])
                                        {
                                                ret = FALSE;
                                                continue;
                                        }

                                        /* Split current line */
                                        insert_return_code(lines_list, cx, cy);

                                        /* Save preceding string */
                                        for(i = 0; lines_list[cy][i]; i++)
                                                buf[i] = lines_list[cy][i];

                                        /* Paste yank buffer */
                                        if ('\n' != yank_buf[j])
                                        {
                                                int k = j;
                                                while (yank_buf[k] && i < MAX_LINELEN-1)
                                                        buf[i++] = yank_buf[k++];
                                                ret = TRUE;
                                        }

                                        buf[i] = '\0';

                                        string_free(lines_list[cy]);
                                        lines_list[cy] = string_make(buf);

                                        /* Move to the beggining of next line */
                                        cx = 0;
                                        cy++;
                                }

                                /* Now dirty */
                                dirty_flags |= DIRTY_ALL;
                        }
                        break;
                case KTRL('z'):
                        /* Toggle 'collecting' */
                        toggle_string(lines_list, FLG_COLLECTING, cy);
                        /* Now dirty */
                        dirty_line = cy;
                        break;

                case KTRL('k'):
                        /* Kill rest of line */
                        if ((uint)cx > strlen(lines_list[cy]))
                                cx = (int)strlen(lines_list[cy]);

                        /* Save preceding string */
                        for (i = 0; lines_list[cy][i] && i < cx; i++)
                        {
#ifdef JP
                                if (iskanji(lines_list[cy][i]))
                                {
                                        buf[i] = lines_list[cy][i];
                                        i++;
                                }
#endif
                                buf[i] = lines_list[cy][i];
                        }
                        buf[i] = '\0';

                        j = 0;
                        if (old_key == key)
                                while (yank_buf[j])
                                        j += strlen(yank_buf + j) + 1;

                        /* Copy following to yank buffer */
                        if (lines_list[cy][i])
                        {
                                while (lines_list[cy][i] && j < MAX_YANK - 2)
                                        yank_buf[j++] = lines_list[cy][i++];
                                i = TRUE;
                        }
                        else
                        {
                                if (j < MAX_YANK - 2)
                                        yank_buf[j++] = '\n';
                                i = FALSE;
                        }
                        yank_buf[j++] = '\0';
                        yank_buf[j] = '\0';

                        /* Replace current line with 'preceding string' */
                        string_free(lines_list[cy]);
                        lines_list[cy] = string_make(buf);

                        if (i)
                        {
                                /* Now dirty */
                                dirty_line = cy;
                                break;
                        }

                        /* fall through */
                case KTRL('d'):
                case 0x7F:
                        /* DELETE == go forward + BACK SPACE */
#ifdef JP
                        if (iskanji(lines_list[cy][cx])) cx++;
#endif
                        cx++;

                        /* fall through */

                case '\010':
                        /* BACK SPACE */
                        len = strlen(lines_list[cy]);
                        if (len < cx)
                        {
                                if (lines_list[cy + 1])
                                {
                                        cy++;
                                        cx = 0;
                                }
                                else
                                {
                                        cx = len;
                                        break;
                                }
                        }

                        if (cx == 0)
                        {
                                /* delete a return code and union two lines */
                                if (cy == 0) break;
                                cx = strlen(lines_list[cy-1]);
                                strcpy(buf, lines_list[cy-1]);
                                strcat(buf, lines_list[cy]);
                                string_free(lines_list[cy-1]);
                                string_free(lines_list[cy]);
                                lines_list[cy-1] = string_make(buf);
                                for (i = cy; lines_list[i+1]; i++)
                                        lines_list[i] = lines_list[i+1];
                                lines_list[i] = NULL;
                                cy--;

                                /* Now dirty */
                                dirty_flags |= DIRTY_ALL;
                                break;
                        }

                        for (i = j = k = 0; lines_list[cy][i] && i < cx; i++)
                        {
                                k = j;
#ifdef JP
                                if (iskanji(lines_list[cy][i]))
                                        buf[j++] = lines_list[cy][i++];
#endif
                                buf[j++] = lines_list[cy][i];
                        }
                        while (j > k)
                        {
                                cx--;
                                j--;
                        }
                        for (; lines_list[cy][i]; i++)
                                buf[j++] = lines_list[cy][i];
                        buf[j] = '\0';
                        string_free(lines_list[cy]);
                        lines_list[cy] = string_make(buf);

                        /* Now dirty */
                        dirty_line = cy;
                        break;
                }

        } /* while (1) */

        /* Restore the screen */
        screen_load();

        switch (filename_mode)
        {
        case PT_DEFAULT:
#ifdef JP
                strcpy(buf, "picktype.prf");
#else
                strcpy(buf, "pickpref.prf");
#endif
                break;

        case PT_WITH_PNAME:
#ifdef JP
                sprintf(buf, "picktype-%s.prf", player_name);
#else
                sprintf(buf, "pickpref-%s.prf", player_name);
#endif
                break;
        }

        write_text_lines(buf, lines_list);
        free_text_lines(lines_list);

        string_free(last_destroyed);

        /* Reload autopick pref */
        process_pickpref_file(buf);

        /* HACK -- reset start_time so that playtime is not increase while edit */
        start_time = time(NULL);
}