OSDN Git Service

[Refactor] #37353 空白整理。 / Refactor spaces.
[hengband/hengband.git] / src / store.c
index 4ced1ab..b6268b6 100644 (file)
-/* File: store.c */
-
-/*
- * Copyright (c) 1997 Ben Harrison, James E. Wilson, Robert A. Koeneke
- *
- * 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.  Other copyrights may also apply.
+/*!
+ * @file store.c
+ * @brief 店の処理 / Store commands
+ * @date 2014/02/02
+ * @author
+ * Copyright (c) 1989 James E. Wilson, Robert A. Koeneke\n
+ * This software may be copied and distributed for educational, research, and\n
+ * not for profit purposes provided that this copyright and statement are\n
+ * included in all such copies.\n
+ * 2014 Deskull rearranged comment for Doxygen.
  */
 
-/* Purpose: Store commands */
-
 #include "angband.h"
+#include "cmd-item.h"
+#include "cmd-zapwand.h"
+#include "cmd-magiceat.h"
+#include "store.h"
+#include "avatar.h"
+
+#define MIN_STOCK 12
+
+ /*!
+  * @brief 闘技場のモンスターID及び報酬アイテムテーブル /
+  * Store owners (exactly four "possible" owners per store, chosen randomly)
+  * @details
+  * <pre>
+  * { name, purse, max greed, min greed, haggle_per, tolerance, race, unused }
+  *
+  * Lifted extra shopkeepers from CthAngband (don't you just love open source
+  * development? ;-)). Since this gave less than 32 unique names for some
+  * shops, those have their first x names copied to reach 32.
+  *
+  * For the weapon and armour shops, several owners have a limit of 5k.
+  *
+  * I want to do 50k owners, but the purse is currently s16b. Perhaps
+  * we should just store 1/10th of the purse?
+  * </pre>
+  */
+const owner_type owners[MAX_STORES][MAX_OWNERS] =
+{
+       {
+               /* General store - 32 unique names */
+               /*
+                 Raistlin は dragonlance の powerful wizard 。
+                 Rincewind the Chicken は Terry Pratchett の Discworld の登場人物 上記のパロディ?、
+                 { "憶病者ラストリン",       200,    175,  108,   4,  12,  RACE_HUMAN},
+                 { "Raistlin the Chicken",       200,    175, 108,  4, 12, RACE_HUMAN},
+               */
+
+#ifdef JP
+               { "フレンドリーなビルボ",       200,    170,  108,   5,  15,  RACE_HOBBIT},
+               { "憶病者リンスウィンド",       200,    175,  108,   4,  12,  RACE_HUMAN},
+               { "背の低いサルタン",             300,    170,  107,   5,  15,  RACE_GNOME},
+               { "ハンサムなライア=エル",      300,    165,  107,   6,  18,  RACE_ELF},
+               { "親切なファリルマウエン",         250,    170, 108,  5, 15, RACE_HOBBIT},
+               { "臆病者ヴォワラン",       500,    175, 108,  4, 12, RACE_HUMAN},
+               { "チビのエラシュナク",          750,    170, 107,  5, 15, RACE_BEASTMAN},
+               { "ハンサムなグラッグ",        1000,    165, 107,  6, 18, RACE_HALF_TITAN},
+               { "ケチなフォロビア",         250,    170, 108,  5, 15, RACE_HUMAN},
+               { "馬鹿のエリス",       500,    175, 108,  4, 12, RACE_HUMAN},
+               { "腹ペコのフィルバート",          750,    170, 107,  5, 15, RACE_VAMPIRE},
+               { "スナーグル・サシグア",        1000,    165, 107,  6, 18, RACE_MIND_FLAYER},
+               { "長死きエロワーズ",         250,    170, 108,  5, 15, RACE_SPECTRE},
+               { "ノロマのフンディ",       500,    175, 108,  4, 12, RACE_ZOMBIE},
+               { "グランサス",          750,    170, 107,  5, 15, RACE_SKELETON},
+               { "丁寧なロラックス",        1000,    165, 107,  6, 18, RACE_VAMPIRE},
+               { "ブッチ",         250,    170, 108,  5, 15, RACE_HALF_ORC},
+               { "美しきエルベレス",       500,    175, 108,  4, 12, RACE_HIGH_ELF},
+               { "こそこそサーレス",          750,    170, 107,  5, 15, RACE_GNOME},
+               { "ナーロック",        1000,    165, 107,  6, 18, RACE_DWARF},
+               { "チビのヘイネッカ",         250,    170, 108,  5, 15, RACE_GNOME},
+               { "きちがいロワラン",       500,    175, 108,  4, 12, RACE_HALF_GIANT},
+               { "毒息のウート",          750,    170, 107,  5, 15, RACE_DRACONIAN},
+               { "でぶっちょアラァカ",        1000,    165, 107,  6, 18, RACE_DRACONIAN},
+               { "低能なプーゴー",         250,    170, 108,  5, 15, RACE_BEASTMAN},
+               { "フェロールフィリアン",       500,    175, 108,  4, 12, RACE_ELF},
+               { "年寄りマロカ",          750,    170, 107,  5, 15, RACE_GNOME},
+               { "勇敢なサシン",        1000,    165, 107,  6, 18, RACE_HALF_GIANT},
+               { "田舎者アビエマール",         250,    170, 108,  5, 15, RACE_HUMAN},
+               { "貧乏なハーク",       500,    175, 108,  4, 12, RACE_HALF_ORC},
+               { "みじめなソアリン",          750,    170, 107,  5, 15, RACE_ZOMBIE},
+               { "質素なメルラ",        1000,    165, 107,  6, 18, RACE_ELF},
+#else
+               { "Bilbo the Friendly",         200,    170, 108,  5, 15, RACE_HOBBIT},
+               { "Rincewind the Chicken",       200,    175, 108,  4, 12, RACE_HUMAN},
+               { "Sultan the Midget",          300,    170, 107,  5, 15, RACE_GNOME},
+               { "Lyar-el the Comely",         300,    165, 107,  6, 18, RACE_ELF},
+               { "Falilmawen the Friendly",         250,    170, 108,  5, 15, RACE_HOBBIT},
+               { "Voirin the Cowardly",       500,    175, 108,  4, 12, RACE_HUMAN},
+               { "Erashnak the Midget",          750,    170, 107,  5, 15, RACE_BEASTMAN},
+               { "Grug the Comely",        1000,    165, 107,  6, 18, RACE_HALF_TITAN},
+               { "Forovir the Cheap",         250,    170, 108,  5, 15, RACE_HUMAN},
+               { "Ellis the Fool",       500,    175, 108,  4, 12, RACE_HUMAN},
+               { "Filbert the Hungry",          750,    170, 107,  5, 15, RACE_VAMPIRE},
+               { "Fthnargl Psathiggua",        1000,    165, 107,  6, 18, RACE_MIND_FLAYER},
+               { "Eloise Long-Dead",         250,    170, 108,  5, 15, RACE_SPECTRE},
+               { "Fundi the Slow",       500,    175, 108,  4, 12, RACE_ZOMBIE},
+               { "Granthus",          750,    170, 107,  5, 15, RACE_SKELETON},
+               { "Lorax the Suave",        1000,    165, 107,  6, 18, RACE_VAMPIRE},
+               { "Butch",         250,    170, 108,  5, 15, RACE_HALF_ORC},
+               { "Elbereth the Beautiful",       500,    175, 108,  4, 12, RACE_HIGH_ELF},
+               { "Sarleth the Sneaky",          750,    170, 107,  5, 15, RACE_GNOME},
+               { "Narlock",        1000,    165, 107,  6, 18, RACE_DWARF},
+               { "Haneka the Small",         250,    170, 108,  5, 15, RACE_GNOME},
+               { "Loirin the Mad",       500,    175, 108,  4, 12, RACE_HALF_GIANT},
+               { "Wuto Poisonbreath",          750,    170, 107,  5, 15, RACE_DRACONIAN},
+               { "Araaka the Rotund",        1000,    165, 107,  6, 18, RACE_DRACONIAN},
+               { "Poogor the Dumb",         250,    170, 108,  5, 15, RACE_BEASTMAN},
+               { "Felorfiliand",       500,    175, 108,  4, 12, RACE_ELF},
+               { "Maroka the Aged",          750,    170, 107,  5, 15, RACE_GNOME},
+               { "Sasin the Bold",        1000,    165, 107,  6, 18, RACE_HALF_GIANT},
+               { "Abiemar the Peasant",         250,    170, 108,  5, 15, RACE_HUMAN},
+               { "Hurk the Poor",       500,    175, 108,  4, 12, RACE_HALF_ORC},
+               { "Soalin the Wretched",          750,    170, 107,  5, 15, RACE_ZOMBIE},
+               { "Merulla the Humble",        1000,    165, 107,  6, 18, RACE_ELF},
+#endif
+       },
+       {
+               /* Armoury - 28 unique names */
+#ifdef JP
+               { "醜悪コン=ダー",      5000,   210,  115,   5,   7,  RACE_HALF_ORC},
+               { "頑固者ダーグ=ロウ",  10000,  190,  111,   4,   9,  RACE_HUMAN},
+               { "賢者デカド",                 25000,  200,  112,   4,  10,  RACE_DUNADAN},
+               { "鍛冶屋のウィーランド",   30000,  200,  112,   4,   5,  RACE_DWARF},
+               { "醜悪コン=ダー",           10000,   210, 115,  5,  7, RACE_HALF_ORC},
+               { "頑固者ダーグ=ロウ",          15000,  190, 111,  4,  9, RACE_HUMAN},
+               { "ハンサムなデカド",            25000,  200, 112,  4, 10, RACE_AMBERITE},
+               { "エロー・ドラゴンスケイル",          30000,  200, 112,  4,  5, RACE_ELF},
+               { "デリカトス",           10000,   210, 115,  5,  7, RACE_SPRITE},
+               { "巨大なグルース",          15000,  190, 111,  4,  9, RACE_HALF_GIANT},
+               { "アニムス",            25000,  200, 112,  4, 10, RACE_GOLEM},
+               { "マルヴァス",          30000,  200, 112,  4,  5, RACE_HALF_TITAN},
+               { "セラクシス",           10000,   210, 115,  5,  7, RACE_ZOMBIE},
+               { "デス・チル",          5000,  190, 111,  4,  9, RACE_SPECTRE},
+               { "微かなドリオス",            25000,  200, 112,  4, 10, RACE_SPECTRE},
+               { "冷たいバスリック",          30000,  200, 112,  4,  5, RACE_VAMPIRE},
+               { "冷酷ヴェンジェラ",           10000,   210, 115,  5,  7, RACE_HALF_TROLL},
+               { "強者ウィラナ",          15000,  190, 111,  4,  9, RACE_HUMAN},
+               { "ヨジョ二世",            25000,  200, 112,  4, 10, RACE_DWARF},
+               { "優しいラナラー",          30000,  200, 112,  4,  5, RACE_AMBERITE},
+               { "不浄のホルバグ",           5000,   210, 115,  5,  7, RACE_HALF_ORC},
+               { "テレパスのエレレン",          15000,  190, 111,  4,  9, RACE_DARK_ELF},
+               { "イスドリリアス",            25000,  200, 112,  4, 10, RACE_SPRITE},
+               { "一つ目ヴェグナー",          5000,  200, 112,  4,  5, RACE_CYCLOPS},
+               { "混沌のロディッシュ",           10000,   210, 115,  5,  7, RACE_BEASTMAN},
+               { "剣豪ヘジン",          15000,  190, 111,  4,  9, RACE_NIBELUNG},
+               { "ずる屋のエルベレリス",           10000,  200, 112,  4, 10, RACE_DARK_ELF},
+               { "インプのザサス",          30000,  200, 112,  4,  5, RACE_IMP},
+               { "醜悪コン=ダー",           5000,   210, 115,  5,  7, RACE_HALF_ORC},
+               { "頑固者ダーグ=ロウ",          10000,  190, 111,  4,  9, RACE_HUMAN},
+               { "ハンサムなデカド",            25000,  200, 112,  4, 10, RACE_AMBERITE},
+               { "鍛冶屋のウィーランド",          30000,  200, 112,  4,  5, RACE_DWARF},
+#else
+               { "Kon-Dar the Ugly",           5000,   210, 115,  5,  7, RACE_HALF_ORC},
+               { "Darg-Low the Grim",          10000,  190, 111,  4,  9, RACE_HUMAN},
+               { "Decado the Handsome",            25000,  200, 112,  4, 10, RACE_DUNADAN},
+               { "Wieland the Smith",          30000,  200, 112,  4,  5, RACE_DWARF},
+               { "Kon-Dar the Ugly",           10000,   210, 115,  5,  7, RACE_HALF_ORC},
+               { "Darg-Low the Grim",          15000,  190, 111,  4,  9, RACE_HUMAN},
+               { "Decado the Handsome",            25000,  200, 112,  4, 10, RACE_AMBERITE},
+               { "Elo Dragonscale",          30000,  200, 112,  4,  5, RACE_ELF},
+               { "Delicatus",           10000,   210, 115,  5,  7, RACE_SPRITE},
+               { "Gruce the Huge",          15000,  190, 111,  4,  9, RACE_HALF_GIANT},
+               { "Animus",            25000,  200, 112,  4, 10, RACE_GOLEM},
+               { "Malvus",          30000,  200, 112,  4,  5, RACE_HALF_TITAN},
+               { "Selaxis",           10000,   210, 115,  5,  7, RACE_ZOMBIE},
+               { "Deathchill",          5000,  190, 111,  4,  9, RACE_SPECTRE},
+               { "Drios the Faint",            25000,  200, 112,  4, 10, RACE_SPECTRE},
+               { "Bathric the Cold",          30000,  200, 112,  4,  5, RACE_VAMPIRE},
+               { "Vengella the Cruel",           10000,   210, 115,  5,  7, RACE_HALF_TROLL},
+               { "Wyrana the Mighty",          15000,  190, 111,  4,  9, RACE_HUMAN},
+               { "Yojo II",            25000,  200, 112,  4, 10, RACE_DWARF},
+               { "Ranalar the Sweet",          30000,  200, 112,  4,  5, RACE_AMBERITE},
+               { "Horbag the Unclean",           5000,   210, 115,  5,  7, RACE_HALF_ORC},
+               { "Elelen the Telepath",          15000,  190, 111,  4,  9, RACE_DARK_ELF},
+               { "Isedrelias",            25000,  200, 112,  4, 10, RACE_SPRITE},
+               { "Vegnar One-eye",          5000,  200, 112,  4,  5, RACE_CYCLOPS},
+               { "Rodish the Chaotic",           10000,   210, 115,  5,  7, RACE_BEASTMAN},
+               { "Hesin Swordmaster",          15000,  190, 111,  4,  9, RACE_NIBELUNG},
+               { "Elvererith the Cheat",           10000,  200, 112,  4, 10, RACE_DARK_ELF},
+               { "Zzathath the Imp",          30000,  200, 112,  4,  5, RACE_IMP},
+               { "Kon-Dar the Ugly",           5000,   210, 115,  5,  7, RACE_HALF_ORC},
+               { "Darg-Low the Grim",          10000,  190, 111,  4,  9, RACE_HUMAN},
+               { "Decado the Handsome",            25000,  200, 112,  4, 10, RACE_AMBERITE},
+               { "Wieland the Smith",          30000,  200, 112,  4,  5, RACE_DWARF},
+#endif
+       },
+
+       {
+               /* Weapon Smith - 28 unique names */
+#ifdef JP
+               { "残忍なるアーノルド",        5000,   210,  115,   6,   6,  RACE_HALF_TROLL},
+               { "獣殺しのアーンダル", 10000,  185,  110,   5,   9,  RACE_HALF_ELF},
+               { "獣マスターのエディー", 25000,  190,  115,   5,   7,  RACE_HOBBIT},
+               { "竜殺しのオグライン", 30000,  195,  112,   4,   8,  RACE_DWARF},
+               { "熟練者ドリュー",      10000,   210, 115,  6,  6, RACE_HUMAN},
+               { "龍の子オラックス",        15000,  185, 110,  5,  9, RACE_DRACONIAN},
+               { "病気持ちのアンスラックス",         25000,  190, 115,  5,  7, RACE_BEASTMAN},
+               { "頑丈者アルコス",       30000,  195, 112,  4,  8, RACE_DWARF},
+               { "腐れ者のサリアス",      5000,   210, 115,  6,  6, RACE_ZOMBIE},
+               { "晒し骨のトゥエシク",        15000,  185, 110,  5,  9, RACE_SKELETON},
+               { "ビリオス",         25000,  190, 115,  5,  7, RACE_BEASTMAN},
+               { "ファスガル",       30000,  195, 112,  4,  8, RACE_ZOMBIE},
+               { "パラディンのエレフリス",      10000,   210, 115,  6,  6, RACE_BARBARIAN},
+               { "キ'トリッ'ク",        15000,  185, 110,  5,  9, RACE_KLACKON},
+               { "蜘蛛の友ドゥロカス",         25000,  190, 115,  5,  7, RACE_DARK_ELF},
+               { "巨人殺しのフングス",       30000,  195, 112,  4,  8, RACE_DWARF},
+               { "デランサ",      10000,   210, 115,  6,  6, RACE_ELF},
+               { "レンジャーのソルビスタニ",        15000,  185, 110,  5,  9, RACE_HALF_ELF},
+               { "ノロマのゾリル",         25000,  190, 115,  5,  7, RACE_GOLEM},
+               { "イーオン・フラックス",       20000,  195, 112,  4,  8, RACE_HALF_ELF},
+               { "強者ナドック",      10000,   210, 115,  6,  6, RACE_HOBBIT},
+               { "弱虫エラモグ",        15000,  185, 110,  5,  9, RACE_KOBOLD},
+               { "公正なエオウィリス",         25000,  190, 115,  5,  7, RACE_VAMPIRE},
+               { "バルログ殺しのヒュイモグ",       30000,  195, 112,  4,  8, RACE_HALF_ORC},
+               { "冷酷ピーダス",      5000,   210, 115,  6,  6, RACE_HUMAN},
+               { "ヴァモグ スレイヤー",        15000,  185, 110,  5,  9, RACE_HALF_OGRE},
+               { "性悪フーシュナク",         25000,  190, 115,  5,  7, RACE_BEASTMAN},
+               { "舞闘バレン",       30000,  195, 112,  4,  8, RACE_BARBARIAN},
+               { "残忍なるアーノルド",      5000,   210, 115,  6,  6, RACE_BARBARIAN},
+               { "獣殺しのアーンダル",        10000,  185, 110,  5,  9, RACE_HALF_ELF},
+               { "ビーストマスター・エディー",         25000,  190, 115,  5,  7, RACE_HALF_ORC},
+               { "竜殺しのオグライン",       30000,  195, 112,  4,  8, RACE_DWARF},
+#else
+               { "Arnold the Beastly",      5000,   210, 115,  6,  6, RACE_BARBARIAN},
+               { "Arndal Beast-Slayer",        10000,  185, 110,  5,  9, RACE_HALF_ELF},
+               { "Eddie Beast-Master",         25000,  190, 115,  5,  7, RACE_HALF_ORC},
+               { "Oglign Dragon-Slayer",       30000,  195, 112,  4,  8, RACE_DWARF},
+               { "Drew the Skilled",      10000,   210, 115,  6,  6, RACE_HUMAN},
+               { "Orrax Dragonson",        15000,  185, 110,  5,  9, RACE_DRACONIAN},
+               { "Anthrax Disease-Carrier",         25000,  190, 115,  5,  7, RACE_BEASTMAN},
+               { "Arkhoth the Stout",       30000,  195, 112,  4,  8, RACE_DWARF},
+               { "Sarlyas the Rotten",      5000,   210, 115,  6,  6, RACE_ZOMBIE},
+               { "Tuethic Bare-Bones",        15000,  185, 110,  5,  9, RACE_SKELETON},
+               { "Bilious",         25000,  190, 115,  5,  7, RACE_BEASTMAN},
+               { "Fasgul",       30000,  195, 112,  4,  8, RACE_ZOMBIE},
+               { "Ellefris the Paladin",      10000,   210, 115,  6,  6, RACE_BARBARIAN},
+               { "K'trrik'k",        15000,  185, 110,  5,  9, RACE_KLACKON},
+               { "Drocus Spiderfriend",         25000,  190, 115,  5,  7, RACE_DARK_ELF},
+               { "Fungus Giant-Slayer",       30000,  195, 112,  4,  8, RACE_DWARF},
+               { "Delantha",      10000,   210, 115,  6,  6, RACE_ELF},
+               { "Solvistani the Ranger",        15000,  185, 110,  5,  9, RACE_HALF_ELF},
+               { "Xoril the Slow",         25000,  190, 115,  5,  7, RACE_GOLEM},
+               { "Aeon Flux",       20000,  195, 112,  4,  8, RACE_HALF_ELF},
+               { "Nadoc the Strong",      10000,   210, 115,  6,  6, RACE_HOBBIT},
+               { "Eramog the Weak",        15000,  185, 110,  5,  9, RACE_KOBOLD},
+               { "Eowilith the Fair",         25000,  190, 115,  5,  7, RACE_VAMPIRE},
+               { "Huimog Balrog-Slayer",       30000,  195, 112,  4,  8, RACE_HALF_ORC},
+               { "Peadus the Cruel",      5000,   210, 115,  6,  6, RACE_HUMAN},
+               { "Vamog Slayer",        15000,  185, 110,  5,  9, RACE_HALF_OGRE},
+               { "Hooshnak the Vicious",         25000,  190, 115,  5,  7, RACE_BEASTMAN},
+               { "Balenn War-Dancer",       30000,  195, 112,  4,  8, RACE_BARBARIAN},
+               { "Arnold the Beastly",      5000,   210, 115,  6,  6, RACE_BARBARIAN},
+               { "Arndal Beast-Slayer",        10000,  185, 110,  5,  9, RACE_HALF_ELF},
+               { "Eddie Beast-Master",         25000,  190, 115,  5,  7, RACE_HALF_ORC},
+               { "Oglign Dragon-Slayer",       30000,  195, 112,  4,  8, RACE_DWARF},
+#endif
+       },
+       {
+               /* Temple - 22 unique names */
+#ifdef JP
+               { "質素なルードヴィヒ",         5000,   175,  109,   6,  15,  RACE_HUMAN},
+               { "パラディンのガンナー",       10000,  185,  110,   5,  23,  RACE_HUMAN},
+               { "選ばれしトリン",                     25000,  180,  107,   6,  20,  RACE_ELF},
+               { "賢明なるサラストロ",                     30000,  185,  109,   5,  15,  RACE_DWARF},
+               { "パーシヴァル卿",           25000,  180, 107,  6, 20, RACE_HIGH_ELF},
+               { "神聖なるアセナス",          30000,  185, 109,  5, 15, RACE_HUMAN},
+               { "マッキノン",         10000,   175, 109,  6, 15, RACE_HUMAN},
+               { "謹み婦人",         15000,  185, 110,  5, 23, RACE_HIGH_ELF},
+               { "ドルイドのハシュニック",           25000,  180, 107,  6, 20, RACE_HOBBIT},
+               { "フィナク",          30000,  185, 109,  5, 15, RACE_YEEK},
+               { "クリキック",         10000,   175, 109,  6, 15, RACE_KLACKON},
+               { "荒くれ者モリヴァル",         15000,  185, 110,  5, 23, RACE_ELF},
+               { "暗きホシャック",           25000,  180, 107,  6, 20, RACE_IMP},
+               { "賢者アタール",          30000,  185, 109,  5, 15, RACE_HUMAN},
+               { "清きイベニッド",         10000,   175, 109,  6, 15, RACE_HUMAN},
+               { "エリディシュ",         15000,  185, 110,  5, 23, RACE_HALF_TROLL},
+               { "呪術師ヴルドゥシュ",           25000,  180, 107,  6, 20, RACE_HALF_OGRE},
+               { "狂戦士ハオブ",          30000,  185, 109,  5, 15, RACE_BARBARIAN},
+               { "若きプルーグディシュ",         10000,   175, 109,  6, 15, RACE_HALF_OGRE},
+               { "きちがいラムワイズ",         15000,  185, 110,  5, 23, RACE_YEEK},
+               { "有徳者ムワート",           25000,  180, 107,  6, 20, RACE_KOBOLD},
+               { "弱虫ダードバード",          30000,  185, 109,  5, 15, RACE_SPECTRE},
+               { "質素なルードヴィヒ",         5000,   175,  109,   6,  15,  RACE_HUMAN},
+               { "パラディンのガンナー",       10000,  185,  110,   5,  23,  RACE_HUMAN},
+               { "選ばれしトリン",                     25000,  180,  107,   6,  20,  RACE_ELF},
+               { "賢明なるサラストロ",                     30000,  185,  109,   5,  15,  RACE_DWARF},
+               { "パーシヴァル卿",           25000,  180, 107,  6, 20, RACE_HIGH_ELF},
+               { "神聖なるアセナス",          30000,  185, 109,  5, 15, RACE_HUMAN},
+               { "マッキノン",         10000,   175, 109,  6, 15, RACE_HUMAN},
+               { "謹み婦人",         15000,  185, 110,  5, 23, RACE_HIGH_ELF},
+               { "ドルイドのハシュニック",           25000,  180, 107,  6, 20, RACE_HOBBIT},
+               { "フィナク",          30000,  185, 109,  5, 15, RACE_YEEK},
+#else
+               { "Ludwig the Humble",          5000,   175, 109,  6, 15, RACE_DWARF},
+               { "Gunnar the Paladin",         10000,  185, 110,  5, 23, RACE_HALF_TROLL},
+               { "Torin the Chosen",           25000,  180, 107,  6, 20, RACE_HIGH_ELF},
+               { "Sarastro the Wise",          30000,  185, 109,  5, 15, RACE_HUMAN},
+               { "Sir Parsival the Pure",           25000,  180, 107,  6, 20, RACE_HIGH_ELF},
+               { "Asenath the Holy",          30000,  185, 109,  5, 15, RACE_HUMAN},
+               { "McKinnon",         10000,   175, 109,  6, 15, RACE_HUMAN},
+               { "Mistress Chastity",         15000,  185, 110,  5, 23, RACE_HIGH_ELF},
+               { "Hashnik the Druid",           25000,  180, 107,  6, 20, RACE_HOBBIT},
+               { "Finak",          30000,  185, 109,  5, 15, RACE_YEEK},
+               { "Krikkik",         10000,   175, 109,  6, 15, RACE_KLACKON},
+               { "Morival the Wild",         15000,  185, 110,  5, 23, RACE_ELF},
+               { "Hoshak the Dark",           25000,  180, 107,  6, 20, RACE_IMP},
+               { "Atal the Wise",          30000,  185, 109,  5, 15, RACE_HUMAN},
+               { "Ibenidd the Chaste",         10000,   175, 109,  6, 15, RACE_HUMAN},
+               { "Eridish",         15000,  185, 110,  5, 23, RACE_HALF_TROLL},
+               { "Vrudush the Shaman",           25000,  180, 107,  6, 20, RACE_HALF_OGRE},
+               { "Haob the Berserker",          30000,  185, 109,  5, 15, RACE_BARBARIAN},
+               { "Proogdish the Youthfull",         10000,   175, 109,  6, 15, RACE_HALF_OGRE},
+               { "Lumwise the Mad",         15000,  185, 110,  5, 23, RACE_YEEK},
+               { "Muirt the Virtuous",           25000,  180, 107,  6, 20, RACE_KOBOLD},
+               { "Dardobard the Weak",          30000,  185, 109,  5, 15, RACE_SPECTRE},
+               { "Ludwig the Humble",          5000,   175, 109,  6, 15, RACE_DWARF},
+               { "Gunnar the Paladin",         10000,  185, 110,  5, 23, RACE_HALF_TROLL},
+               { "Torin the Chosen",           25000,  180, 107,  6, 20, RACE_HIGH_ELF},
+               { "Sarastro the Wise",          30000,  185, 109,  5, 15, RACE_HUMAN},
+               { "Sir Parsival the Pure",           25000,  180, 107,  6, 20, RACE_HIGH_ELF},
+               { "Asenath the Holy",          30000,  185, 109,  5, 15, RACE_HUMAN},
+               { "McKinnon",         10000,   175, 109,  6, 15, RACE_HUMAN},
+               { "Mistress Chastity",         15000,  185, 110,  5, 23, RACE_HIGH_ELF},
+               { "Hashnik the Druid",           25000,  180, 107,  6, 20, RACE_HOBBIT},
+               { "Finak",          30000,  185, 109,  5, 15, RACE_YEEK},
+#endif
+       },
+       {
+               /* Alchemist - 26 unique names */
+#ifdef JP
+               { "化学者マウザー",             10000,  190,  111,   5,   8,  RACE_HALF_ELF},
+               { "カオスのウィズル",   10000,  190,  110,   6,   8,  RACE_HOBBIT},
+               { "強欲ミダス",              15000,  200,  116,   6,   9,  RACE_GNOME},
+               { "貧弱ジャ=ファー",                   15000,  220,  111,   4,   9,  RACE_ELF},/*FIRST*/
+               { "カカルラカカル",           15000,  200, 116,  6,  9, RACE_KLACKON},
+               { "錬金術師ジャル=エス",       15000,  220, 111,  4,  9, RACE_ELF},
+               { "用心深いファネラス",         10000,  190, 111,  5,  8, RACE_DWARF},
+               { "キチガイのルンシー",         10000,  190, 110,  6,  8, RACE_HUMAN},
+               { "グランブルワース",           15000,  200, 116,  6,  9, RACE_GNOME},
+               { "フリッター",       15000,  220, 111,  4,  9, RACE_SPRITE},
+               { "ザリルス",         10000,  190, 111,  5,  8, RACE_HUMAN},
+               { "古きエグバート",         10000,  190, 110,  6,  8, RACE_DWARF},
+               { "誇り高きヴァリンドラ",           15000,  200, 116,  6,  9, RACE_HIGH_ELF},
+               { "錬金術師タエン",       15000,  220, 111,  4,  9, RACE_HUMAN},
+               { "巧言カイド",         10000,  190, 111,  5,  8, RACE_VAMPIRE},
+               { "暗きフリア",         10000,  190, 110,  6,  8, RACE_NIBELUNG},
+               { "質素なドムリ",           15000,  200, 116,  6,  9, RACE_DWARF},
+               { "魔の子ヤァジュッカ",       15000,  220, 111,  4,  9, RACE_IMP},
+               { "薬草師ジェララルドール",         10000,  190, 111,  5,  8, RACE_HIGH_ELF},
+               { "賢者オレラルダン",         10000,  190, 110,  6,  8, RACE_BARBARIAN},
+               { "デモニシストのフゾグロ",           15000,  200, 116,  6,  9, RACE_IMP},
+               { "錬金術師ドゥリアシュ",       15000,  220, 111,  4,  9, RACE_HALF_ORC},
+               { "強者ネリア",         10000,  190, 111,  5,  8, RACE_CYCLOPS},
+               { "辛口リグナス",         10000,  190, 110,  6,  8, RACE_HALF_ORC},
+               { "ティルバ",           15000,  200, 116,  6,  9, RACE_HOBBIT},
+               { "金持ちミリルドリック",       15000,  220, 111,  4,  9, RACE_HUMAN},
+
+               { "科学者マウザー",         10000,  190, 111,  5,  8, RACE_HALF_ELF},
+               { "カオスのウィズル",         10000,  190, 110,  6,  8, RACE_HOBBIT},
+               { "強欲ミダス",           15000,  200, 116,  6,  9, RACE_GNOME},
+               { "錬金術師ジャ=ファー",       15000,  220, 111,  4,  9, RACE_ELF},
+               { "カカルラカカル",           15000,  200, 116,  6,  9, RACE_KLACKON},
+               { "錬金術師ジャル=エス",       15000,  220, 111,  4,  9, RACE_ELF},
+#else
+               { "Mauser the Chemist",         10000,  190, 111,  5,  8, RACE_HALF_ELF},
+               { "Wizzle the Chaotic",         10000,  190, 110,  6,  8, RACE_HOBBIT},
+               { "Midas the Greedy",           15000,  200, 116,  6,  9, RACE_GNOME},
+               { "Ja-Far the Alchemist",       15000,  220, 111,  4,  9, RACE_ELF},
+               { "Kakalrakakal",           15000,  200, 116,  6,  9, RACE_KLACKON},
+               { "Jal-Eth the Alchemist",       15000,  220, 111,  4,  9, RACE_ELF},
+               { "Fanelath the Cautious",         10000,  190, 111,  5,  8, RACE_DWARF},
+               { "Runcie the Insane",         10000,  190, 110,  6,  8, RACE_HUMAN},
+               { "Grumbleworth",           15000,  200, 116,  6,  9, RACE_GNOME},
+               { "Flitter",       15000,  220, 111,  4,  9, RACE_SPRITE},
+               { "Xarillus",         10000,  190, 111,  5,  8, RACE_HUMAN},
+               { "Egbert the Old",         10000,  190, 110,  6,  8, RACE_DWARF},
+               { "Valindra the Proud",           15000,  200, 116,  6,  9, RACE_HIGH_ELF},
+               { "Taen the Alchemist",       15000,  220, 111,  4,  9, RACE_HUMAN},
+               { "Cayd the Sweet",         10000,  190, 111,  5,  8, RACE_VAMPIRE},
+               { "Fulir the Dark",         10000,  190, 110,  6,  8, RACE_NIBELUNG},
+               { "Domli the Humble",           15000,  200, 116,  6,  9, RACE_DWARF},
+               { "Yaarjukka Demonspawn",       15000,  220, 111,  4,  9, RACE_IMP},
+               { "Gelaraldor the Herbmaster",         10000,  190, 111,  5,  8, RACE_HIGH_ELF},
+               { "Olelaldan the Wise",         10000,  190, 110,  6,  8, RACE_BARBARIAN},
+               { "Fthoglo the Demonicist",           15000,  200, 116,  6,  9, RACE_IMP},
+               { "Dridash the Alchemist",       15000,  220, 111,  4,  9, RACE_HALF_ORC},
+               { "Nelir the Strong",         10000,  190, 111,  5,  8, RACE_CYCLOPS},
+               { "Lignus the Pungent",         10000,  190, 110,  6,  8, RACE_HALF_ORC},
+               { "Tilba",           15000,  200, 116,  6,  9, RACE_HOBBIT},
+               { "Myrildric the Wealthy",       15000,  220, 111,  4,  9, RACE_HUMAN},
+
+               { "Mauser the Chemist",         10000,  190, 111,  5,  8, RACE_HALF_ELF},
+               { "Wizzle the Chaotic",         10000,  190, 110,  6,  8, RACE_HOBBIT},
+               { "Midas the Greedy",           15000,  200, 116,  6,  9, RACE_GNOME},
+               { "Ja-Far the Alchemist",       15000,  220, 111,  4,  9, RACE_ELF},
+               { "Kakalrakakal",           15000,  200, 116,  6,  9, RACE_KLACKON},
+               { "Jal-Eth the Alchemist",       15000,  220, 111,  4,  9, RACE_ELF},
+#endif
+       },
+
+       {
+               /* Magic Shop - 23 unique names */
+#ifdef JP
+               { "ソーサラーのロ=パン",       20000,  200,  110,   7,   8,  RACE_HALF_ELF},
+               { "偉大なるブガービイ",         20000,  215,  113,   6,  10,  RACE_GNOME},
+               { "イェンダーの魔法使い",     30000,  200,  110,   7,  10,  RACE_HUMAN},
+               { "死霊使いリャク",30000,      175,  110,   5,  11,  RACE_HIGH_ELF},
+               { "魔術師スキドゥニー",        15000,  200, 110,  7,  8, RACE_HALF_ELF},
+               { "幻術師キリア",       30000,  200, 110,  7, 10, RACE_HUMAN},
+               { "死霊術師ニッキ",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "ソロストラン",        15000,  200, 110,  7,  8, RACE_SPRITE},
+               { "烏賊口アチシェ",         20000,  215, 113,  6, 10, RACE_MIND_FLAYER},
+               { "貴族のカザ",       30000,  200, 110,  7, 10, RACE_HIGH_ELF},
+               { "暗きファジル",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "偉大なるケルドーン",        15000,  200, 110,  7,  8, RACE_DWARF},
+               { "フィランスロプス",         20000,  215, 113,  6, 10, RACE_HOBBIT},
+               { "魔女のアグナー",       30000,  200, 110,  7, 10, RACE_HUMAN},
+               { "死霊術師ビュリアンス",       30000,  175, 110,  5, 11, RACE_BEASTMAN},
+               { "ハイメイジのヴイラク",        15000,  200, 110,  7,  8, RACE_BEASTMAN},
+               { "知恵者マディッシュ",         20000,  215, 113,  6, 10, RACE_BEASTMAN},
+               { "ファレブリンボール",       30000,  200, 110,  7, 10, RACE_HIGH_ELF},
+               { "陰険フェリル=ガンド",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "呪術師サレゴード",        15000,  200, 110,  7,  8, RACE_BARBARIAN},
+               { "神秘家クトゥアロス",         20000,  215, 113,  6, 10, RACE_MIND_FLAYER},
+               { "幻術師イベリ",       30000,  200, 110,  7, 10, RACE_SKELETON},
+               { "死霊術師ヘトー",       30000,  175, 110,  5, 11, RACE_YEEK},
+               { "魔術師ロ=パン",        20000,  200, 110,  7,  8, RACE_HALF_ELF},
+               { "偉大なるブガービイ",         20000,  215, 113,  6, 10, RACE_GNOME},
+               { "イェンダーの魔法使い",       30000,  200, 110,  7, 10, RACE_HUMAN},
+               { "死霊術師リャク",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "魔術師スキドゥニー",        15000,  200, 110,  7,  8, RACE_HALF_ELF},
+               { "幻術師キリア",       30000,  200, 110,  7, 10, RACE_HUMAN},
+               { "死霊術師ニッキ",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "ソロストラン",        15000,  200, 110,  7,  8, RACE_SPRITE},
+               { "烏賊口アチシェ",         20000,  215, 113,  6, 10, RACE_MIND_FLAYER},
+#else
+               { "Lo Pan the Sorcerer",        20000,  200, 110,  7,  8, RACE_HALF_ELF},
+               { "Buggerby the Great",         20000,  215, 113,  6, 10, RACE_GNOME},
+               { "The Wizard of Yendor",       30000,  200, 110,  7, 10, RACE_HUMAN},
+               { "Rjak the Necromancer",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "Skidney the Sorcerer",        15000,  200, 110,  7,  8, RACE_HALF_ELF},
+               { "Kyria the Illusionist",       30000,  200, 110,  7, 10, RACE_HUMAN},
+               { "Nikki the Necromancer",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "Solostoran",        15000,  200, 110,  7,  8, RACE_SPRITE},
+               { "Achshe the Tentacled",         20000,  215, 113,  6, 10, RACE_MIND_FLAYER},
+               { "Kaza the Noble",       30000,  200, 110,  7, 10, RACE_HIGH_ELF},
+               { "Fazzil the Dark",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "Keldorn the Grand",        15000,  200, 110,  7,  8, RACE_DWARF},
+               { "Philanthropus",         20000,  215, 113,  6, 10, RACE_HOBBIT},
+               { "Agnar the Enchantress",       30000,  200, 110,  7, 10, RACE_HUMAN},
+               { "Buliance the Necromancer",       30000,  175, 110,  5, 11, RACE_BEASTMAN},
+               { "Vuirak the High-Mage",        15000,  200, 110,  7,  8, RACE_BEASTMAN},
+               { "Madish the Smart",         20000,  215, 113,  6, 10, RACE_BEASTMAN},
+               { "Falebrimbor",       30000,  200, 110,  7, 10, RACE_HIGH_ELF},
+               { "Felil-Gand the Subtle",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "Thalegord the Shaman",        15000,  200, 110,  7,  8, RACE_BARBARIAN},
+               { "Cthoaloth the Mystic",         20000,  215, 113,  6, 10, RACE_MIND_FLAYER},
+               { "Ibeli the Illusionist",       30000,  200, 110,  7, 10, RACE_SKELETON},
+               { "Heto the Necromancer",       30000,  175, 110,  5, 11, RACE_YEEK},
+               { "Lo Pan the Sorcerer",        20000,  200, 110,  7,  8, RACE_HALF_ELF},
+               { "Buggerby the Great",         20000,  215, 113,  6, 10, RACE_GNOME},
+               { "The Wizard of Yendor",       30000,  200, 110,  7, 10, RACE_HUMAN},
+               { "Rjak the Necromancer",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "Skidney the Sorcerer",        15000,  200, 110,  7,  8, RACE_HALF_ELF},
+               { "Kyria the Illusionist",       30000,  200, 110,  7, 10, RACE_HUMAN},
+               { "Nikki the Necromancer",       30000,  175, 110,  5, 11, RACE_DARK_ELF},
+               { "Solostoran",        15000,  200, 110,  7,  8, RACE_SPRITE},
+               { "Achshe the Tentacled",         20000,  215, 113,  6, 10, RACE_MIND_FLAYER},
+#endif
+       },
+       {
+               /* Black Market - 32 unique names */
+#ifdef JP
+               { "ガリー=ギガズ",            20000,  250,  150,  10,   5,  RACE_HALF_TROLL},
+               { "ゴブリンのヒストーア",       20000,  250,  150,  10,   5,  RACE_HALF_ORC},
+               { "フェレンギ人クアーク",           30000,  250,  150,  10,   5,  RACE_HUMAN},
+               { "公正なる(?)トッピ",                     30000,  250,  150,  10,   5,  RACE_ELF},
+               { "死人ヴァッサ",             20000,  250, 150, 10,  5, RACE_ZOMBIE},
+               { "裏切り者カイン",          20000,  250, 150, 10,  5, RACE_VAMPIRE},
+               { "ブボニカス",          30000,  250, 150, 10,  5, RACE_BEASTMAN},
+               { "コープスライト",           30000,  250, 150, 10,  5, RACE_SPECTRE},
+               { "血に飢えしパリッシュ",                 20000,  250, 150, 10,  5, RACE_VAMPIRE},
+               { "ヴァイル",          20000,  250, 150, 10,  5, RACE_SKELETON},
+               { "信頼のプレンティス",          30000,  250, 150, 10,  5, RACE_SKELETON},
+               { "人間殺しのグリエラ",           30000,  250, 150, 10,  5, RACE_IMP},
+               { "エンジェル",                 20000,  250, 150, 10,  5, RACE_VAMPIRE},
+               { "水膨れフロツァム",          20000,  250, 150, 10,  5, RACE_ZOMBIE},
+               { "ニーヴァル",          30000,  250, 150, 10,  5, RACE_VAMPIRE},
+               { "明るいアナスタシア",           30000,  250, 150, 10,  5, RACE_SPECTRE},
+               { "死霊術師チャリティー", 20000,  250, 150, 10,  5, RACE_DARK_ELF},
+               { "ボクサーのプグナシオス",          20000,  250, 150, 10,  5, RACE_HALF_ORC},
+               { "幸運なフットソア",          30000,  250, 150, 10,  5, RACE_BEASTMAN},
+               { "光指のシドリア",           30000,  250, 150, 10,  5, RACE_HUMAN},
+               { "手品師リアソー",                 20000,  250, 150, 10,  5, RACE_HOBBIT},
+               { "やりくり上手のジャナッカ",          20000,  250, 150, 10,  5, RACE_GNOME},
+               { "悪党シーナ",          30000,  250, 150, 10,  5, RACE_GNOME},
+               { "大爪アルニッキ",           30000,  250, 150, 10,  5, RACE_DRACONIAN},
+               { "貧乏チャエアンド",                 20000,  250, 150, 10,  5, RACE_HUMAN},
+               { "山賊アファードーフ",          20000,  250, 150, 10,  5, RACE_BARBARIAN},
+               { "強欲ラザクスル",          30000,  250, 150, 10,  5, RACE_MIND_FLAYER},
+               { "ファラレウィン",           30000,  250, 150, 10,  5, RACE_SPRITE},
+               { "しわしわヴォスール",                 20000,  250, 150, 10,  5, RACE_NIBELUNG},
+               { "ハンサムなアラオード",          20000,  250, 150, 10,  5, RACE_AMBERITE},
+               { "負け犬セラドフリド",          30000,  250, 150, 10,  5, RACE_HUMAN},
+               { "片足のエルーロ",           30000,  250, 150, 10,  5, RACE_HALF_OGRE},
+#else
+               { "Gary Gygaz",                 20000,  250, 150, 10,  5, RACE_HALF_TROLL},
+               { "Histor the Goblin",          20000,  250, 150, 10,  5, RACE_HALF_ORC},
+               { "Quark the Ferengi",          30000,  250, 150, 10,  5, RACE_DWARF},
+               { "Topi the Fair(?)",           30000,  250, 150, 10,  5, RACE_HUMAN},
+               { "Vhassa the Dead",             20000,  250, 150, 10,  5, RACE_ZOMBIE},
+               { "Kyn the Treacherous",          20000,  250, 150, 10,  5, RACE_VAMPIRE},
+               { "Bubonicus",          30000,  250, 150, 10,  5, RACE_BEASTMAN},
+               { "Corpselight",           30000,  250, 150, 10,  5, RACE_SPECTRE},
+               { "Parrish the Bloodthirsty",                 20000,  250, 150, 10,  5, RACE_VAMPIRE},
+               { "Vile",          20000,  250, 150, 10,  5, RACE_SKELETON},
+               { "Prentice the Trusted",          30000,  250, 150, 10,  5, RACE_SKELETON},
+               { "Griella Humanslayer",           30000,  250, 150, 10,  5, RACE_IMP},
+               { "Angel",                 20000,  250, 150, 10,  5, RACE_VAMPIRE},
+               { "Flotsam the Bloated",          20000,  250, 150, 10,  5, RACE_ZOMBIE},
+               { "Nieval",          30000,  250, 150, 10,  5, RACE_VAMPIRE},
+               { "Anastasia the Luminous",           30000,  250, 150, 10,  5, RACE_SPECTRE},
+               { "Charity the Necromancer", 20000,  250, 150, 10,  5, RACE_DARK_ELF},
+               { "Pugnacious the Pugilist",          20000,  250, 150, 10,  5, RACE_HALF_ORC},
+               { "Footsore the Lucky",          30000,  250, 150, 10,  5, RACE_BEASTMAN},
+               { "Sidria Lighfingered",           30000,  250, 150, 10,  5, RACE_HUMAN},
+               { "Riatho the Juggler",                 20000,  250, 150, 10,  5, RACE_HOBBIT},
+               { "Janaaka the Shifty",          20000,  250, 150, 10,  5, RACE_GNOME},
+               { "Cina the Rogue",          30000,  250, 150, 10,  5, RACE_GNOME},
+               { "Arunikki Greatclaw",           30000,  250, 150, 10,  5, RACE_DRACONIAN},
+               { "Chaeand the Poor",                 20000,  250, 150, 10,  5, RACE_HUMAN},
+               { "Afardorf the Brigand",          20000,  250, 150, 10,  5, RACE_BARBARIAN},
+               { "Lathaxl the Greedy",          30000,  250, 150, 10,  5, RACE_MIND_FLAYER},
+               { "Falarewyn",           30000,  250, 150, 10,  5, RACE_SPRITE},
+               { "Vosur the Wrinkled",                 20000,  250, 150, 10,  5, RACE_NIBELUNG},
+               { "Araord the Handsome",          20000,  250, 150, 10,  5, RACE_AMBERITE},
+               { "Theradfrid the Loser",          30000,  250, 150, 10,  5, RACE_HUMAN},
+               { "One-Legged Eroolo",           30000,  250, 150, 10,  5, RACE_HALF_OGRE},
+#endif
+       },
+       {
+               /* Home */
+#ifdef JP
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+               { "我が家",                          0,      100, 100,  0, 99, 99},
+#else
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+               { "Your home",                          0,      100, 100,  0, 99, 99},
+#endif
 
+       },
+
+       {
+               /* Bookstore - 21 unique names */
+#ifdef JP
+               { "強欲ドラフ", 10000, 175, 108, 4, 12, RACE_HUMAN},
+               { "賢者オドナー", 15000, 120, 105, 6, 16, RACE_HIGH_ELF},
+               { "中立のガンダー", 25000, 120, 110, 7, 19, RACE_DARK_ELF},
+               { "忍耐の人ロ=シャ", 30000, 140, 105, 6, 12, RACE_ELF},
+               { "ランドルフ・カーター", 15000, 175, 108, 4, 12, RACE_HUMAN},
+               { "隼のサライ", 15000, 175, 108, 4, 12, RACE_HUMAN},
+               { "千里眼ボドリル", 20000, 120, 105, 6, 16, RACE_HIGH_ELF},
+               { "沈黙のヴェオロイン", 25000, 120, 110, 7, 19, RACE_ZOMBIE},
+               { "学者のヴァンシラス", 30000, 140, 105, 6, 12, RACE_MIND_FLAYER},
+               { "物書きオセイン", 15000, 175, 108, 4, 12, RACE_SKELETON},
+               { "本の虫オルヴァー", 20000, 120, 105, 6, 16, RACE_VAMPIRE},
+               { "浅井墓男", 25000, 120, 110, 7, 19, RACE_ZOMBIE},
+               { "デスマスク", 30000, 140, 105, 6, 12, RACE_ZOMBIE},
+               { "学者のアスーヌ", 15000, 175, 108, 4, 12, RACE_MIND_FLAYER},
+               { "死人のプリランド", 20000, 120, 105, 6, 16, RACE_ZOMBIE},
+               { "鉄のロナール", 25000, 120, 110, 7, 19, RACE_GOLEM},
+#else
+               { "Dolaf the Greedy", 10000, 175, 108, 4, 12, RACE_HUMAN},
+               { "Odnar the Sage", 15000, 120, 105, 6, 16, RACE_HIGH_ELF},
+               { "Gandar the Neutral", 25000, 120, 110, 7, 19, RACE_DARK_ELF},
+               { "Ro-sha the Patient", 30000, 140, 105, 6, 12, RACE_ELF},
+               { "Randolph Carter", 15000, 175, 108, 4, 12, RACE_HUMAN},
+               { "Sarai the Swift", 15000, 175, 108, 4, 12, RACE_HUMAN},
+               { "Bodril the Seer", 20000, 120, 105, 6, 16, RACE_HIGH_ELF},
+               { "Veloin the Quiet", 25000, 120, 110, 7, 19, RACE_ZOMBIE},
+               { "Vanthylas the Learned", 30000, 140, 105, 6, 12, RACE_MIND_FLAYER},
+               { "Ossein the Literate", 15000, 175, 108, 4, 12, RACE_SKELETON},
+               { "Olvar Bookworm", 20000, 120, 105, 6, 16, RACE_VAMPIRE},
+               { "Shallowgrave", 25000, 120, 110, 7, 19, RACE_ZOMBIE},
+               { "Death Mask", 30000, 140, 105, 6, 12, RACE_ZOMBIE},
+               { "Asuunu the Learned", 15000, 175, 108, 4, 12, RACE_MIND_FLAYER},
+               { "Prirand the Dead", 20000, 120, 105, 6, 16, RACE_ZOMBIE},
+               { "Ronar the Iron", 25000, 120, 110, 7, 19, RACE_GOLEM},
+#endif
+#ifdef JP
+               { "ガリル=ガミル", 30000, 140, 105, 6, 12, RACE_ELF},
+               { "本食いローバグ", 15000, 175, 108, 4, 12, RACE_KOBOLD},
+               { "キリアリキーク", 20000, 120, 105, 6, 16, RACE_KLACKON},
+               { "静かなるリリン", 25000, 120, 110, 7, 19, RACE_DWARF},
+               { "王者イサング", 30000, 140, 105, 6, 12, RACE_HIGH_ELF},
+               { "強欲ドラフ", 10000, 175, 108, 4, 12, RACE_HUMAN},
+               { "賢者オドナー", 15000, 120, 105, 6, 16, RACE_HIGH_ELF},
+               { "中立のガンダー", 25000, 120, 110, 7, 19, RACE_DARK_ELF},
+               { "忍耐の人ロ=シャ", 30000, 140, 105, 6, 12, RACE_ELF},
+               { "ランドルフ・カーター", 15000, 175, 108, 4, 12, RACE_HUMAN},
+               { "隼サライ", 15000, 175, 108, 4, 12, RACE_HUMAN},
+               { "千里眼ボドリル", 20000, 120, 105, 6, 16, RACE_HIGH_ELF},
+               { "沈黙のヴェオロイン", 25000, 120, 110, 7, 19, RACE_ZOMBIE},
+               { "学者のヴァンシラス", 30000, 140, 105, 6, 12, RACE_MIND_FLAYER},
+               { "物書きオセイン", 15000, 175, 108, 4, 12, RACE_SKELETON},
+               { "本の虫オルヴァー", 20000, 120, 105, 6, 16, RACE_VAMPIRE},
+#else
+               { "Galil-Gamir", 30000, 140, 105, 6, 12, RACE_ELF},
+               { "Rorbag Book-Eater", 15000, 175, 108, 4, 12, RACE_KOBOLD},
+               { "Kiriarikirk", 20000, 120, 105, 6, 16, RACE_KLACKON},
+               { "Rilin the Quiet", 25000, 120, 110, 7, 19, RACE_DWARF},
+               { "Isung the Lord", 30000, 140, 105, 6, 12, RACE_HIGH_ELF},
+               { "Dolaf the Greedy", 10000, 175, 108, 4, 12, RACE_HUMAN},
+               { "Odnar the Sage", 15000, 120, 105, 6, 16, RACE_HIGH_ELF},
+               { "Gandar the Neutral", 25000, 120, 110, 7, 19, RACE_DARK_ELF},
+               { "Ro-sha the Patient", 30000, 140, 105, 6, 12, RACE_ELF},
+               { "Randolph Carter", 15000, 175, 108, 4, 12, RACE_HUMAN},
+               { "Sarai the Swift", 15000, 175, 108, 4, 12, RACE_HUMAN},
+               { "Bodril the Seer", 20000, 120, 105, 6, 16, RACE_HIGH_ELF},
+               { "Veloin the Quiet", 25000, 120, 110, 7, 19, RACE_ZOMBIE},
+               { "Vanthylas the Learned", 30000, 140, 105, 6, 12, RACE_MIND_FLAYER},
+               { "Ossein the Literate", 15000, 175, 108, 4, 12, RACE_SKELETON},
+               { "Olvar Bookworm", 20000, 120, 105, 6, 16, RACE_VAMPIRE},
+#endif
+       },
 
+       {
+               /* Museum */
 #ifdef JP
-/* ²¼¤ÎÊý¤«¤é°ÜÆ°¤·¤Æ¤­¤Þ¤·¤¿ */
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+               { "博物館",                          0,      100, 100,  0, 99, 99},
+#else
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+               { "Museum",                          0,      100, 100,  0, 99, 99},
+#endif
+
+       },
+
+};
+
 static int cur_store_num = 0;
 static int store_top = 0;
+static int store_bottom = 0;
+static int xtra_stock = 0;
 static store_type *st_ptr = NULL;
-static owner_type *ot_ptr = NULL;
-#endif
+static const owner_type *ot_ptr = NULL;
 static s16b old_town_num = 0;
 static s16b inner_town_num = 0;
 #define RUMOR_CHANCE 8
 
 #define MAX_COMMENT_1  6
 
-static cptr comment_1[MAX_COMMENT_1] =
+static concptr comment_1[MAX_COMMENT_1] =
 {
 #ifdef JP
-       "¥ª¡¼¥±¡¼¤À¡£",
-       "·ë¹½¤À¡£",
-       "¤½¤¦¤·¤è¤¦¡ª",
-       "»¿À®¤À¡ª",
-       "¤è¤·¡ª",
-       "¤ï¤«¤Ã¤¿¡ª"
+       "オーケーだ。",
+       "結構だ。",
+       "そうしよう!",
+       "賛成だ!",
+       "よし!",
+       "わかった!"
 #else
        "Okay.",
        "Fine.",
@@ -47,23 +792,23 @@ static cptr comment_1[MAX_COMMENT_1] =
 };
 
 #ifdef JP
-/* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥ÈÄɲåá¥Ã¥»¡¼¥¸¡Ê¾µÂú¡Ë */
-static cptr comment_1_B[MAX_COMMENT_1] = {
-       "¤Þ¤¢¡¢¤½¤ì¤Ç¤¤¤¤¤ä¡£",
-       "º£Æü¤Ï¤½¤ì¤Ç´ªÊÛ¤·¤Æ¤ä¤ë¡£",
-       "ʬ¤«¤Ã¤¿¤è¡£",
-       "¤·¤ç¤¦¤¬¤Ê¤¤¡£",
-       "¤½¤ì¤Ç²æËý¤¹¤ë¤è¡£",
-       "¤³¤ó¤Ê¤â¤ó¤À¤í¤¦¡£"
+/*! ブラックマーケット追加メッセージ(承諾) */
+static concptr comment_1_B[MAX_COMMENT_1] = {
+       "まあ、それでいいや。",
+       "今日はそれで勘弁してやる。",
+       "分かったよ。",
+       "しょうがない。",
+       "それで我慢するよ。",
+       "こんなもんだろう。"
 };
 #endif
 #define MAX_COMMENT_2A 2
 
-static cptr comment_2a[MAX_COMMENT_2A] =
+static concptr comment_2a[MAX_COMMENT_2A] =
 {
 #ifdef JP
-       "»ä¤ÎǦÂÑÎϤò»î¤·¤Æ¤¤¤ë¤Î¤«¤¤¡© $%s ¤¬ºÇ¸å¤À¡£",
-       "²æËý¤Ë¤â¸ÂÅÙ¤¬¤¢¤ë¤¾¡£ $%s ¤¬ºÇ¸å¤À¡£"
+       "私の忍耐力を試しているのかい? $%s が最後だ。",
+       "我慢にも限度があるぞ。 $%s が最後だ。"
 #else
        "You try my patience.  %s is final.",
        "My patience grows thin.  %s is final."
@@ -73,21 +818,21 @@ static cptr comment_2a[MAX_COMMENT_2A] =
 
 #define MAX_COMMENT_2B 12
 
-static cptr comment_2b[MAX_COMMENT_2B] =
+static concptr comment_2b[MAX_COMMENT_2B] =
 {
 #ifdef JP
-       " $%s ¤°¤é¤¤¤Ï½Ð¤µ¤Ê¤­¤ã¥À¥á¤À¤è¡£",
-       " $%s ¤Ê¤é¼õ¤±¼è¤Ã¤Æ¤â¤¤¤¤¤¬¡£",
-       "¥Ï¡ª $%s °Ê²¼¤Ï¤Ê¤¤¤Í¡£",
-       "²¿¤ÆÅÛ¤À¡ª $%s °Ê²¼¤Ï¤¢¤êÆÀ¤Ê¤¤¤¾¡£",
-       "¤½¤ì¤¸¤ã¾¯¤Ê¤¹¤®¤ë¡ª $%s ¤ÏÍߤ·¤¤¤È¤³¤í¤À¡£",
-       "¥Ð¥«¤Ë¤·¤Æ¤¤¤ë¡ª $%s ¤Ï¤â¤é¤ï¤Ê¤¤¤È¡£",
-       "±³¤À¤í¤¦¡ª $%s ¤Ç¤É¤¦¤À¤¤¡©",
-       "¤ª¤¤¤ª¤¤¡ª $%s ¤ò¹Í¤¨¤Æ¤¯¤ì¤Ê¤¤¤«¡©",
-       "1000ɤ¤Î¥ª¡¼¥¯¤Î¥Î¥ß¤Ë¶ì¤·¤á¤é¤ì¤ë¤¬¤¤¤¤¡ª $%s ¤À¡£",
-       "¤ªÁ°¤ÎÂçÀڤʤâ¤Î¤ËºÒ¤¤¤¢¤ì¡ª $%s ¤Ç¤É¤¦¤À¡£",
-       "¥â¥ë¥´¥¹¤Ë¾ÞÌ£¤µ¤ì¤ë¤¬¤¤¤¤¡ªËÜÅö¤Ï $%s ¤Ê¤ó¤À¤í¤¦¡©",
-       "¤ªÁ°¤ÎÊì¿Æ¤Ï¥ª¡¼¥¬¤«¡ª $%s ¤Ï½Ð¤¹¤Ä¤â¤ê¤Ê¤ó¤À¤í¡©"
+       " $%s ぐらいは出さなきゃダメだよ。",
+       " $%s なら受け取ってもいいが。",
+       "ハ! $%s 以下はないね。",
+       "何て奴だ! $%s 以下はあり得ないぞ。",
+       "それじゃ少なすぎる! $%s は欲しいところだ。",
+       "バカにしている! $%s はもらわないと。",
+       "嘘だろう! $%s でどうだい?",
+       "おいおい! $%s を考えてくれないか?",
+       "1000匹のオークのノミに苦しめられるがいい! $%s だ。",
+       "お前の大切なものに災いあれ! $%s でどうだ。",
+       "モルゴスに賞味されるがいい!本当は $%s なんだろう?",
+       "お前の母親はオーガか! $%s は出すつもりなんだろ?"
 #else
        "I can take no less than %s gold pieces.",
        "I will accept no less than %s gold pieces.",
@@ -106,29 +851,29 @@ static cptr comment_2b[MAX_COMMENT_2B] =
 };
 
 #ifdef JP
-/* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥ÈÍÑÄɲåá¥Ã¥»¡¼¥¸¡ÊÇä¤ë¤È¤­¡Ë */
-static cptr comment_2b_B[MAX_COMMENT_2B] = {
-       "¤¤¤¯¤é²¶Íͤ¬¤ª¿Í¹¥¤·¤È¤Ï¤¤¤¨ $%s ¤¬¸Â³¦¤À¤Í¡£·ù¤Ê¤éµ¢¤ê¤Ê¡£",
-       "¶â¤¬¤Ê¤¤¤Î¤«¤¤¡¢¤¢¤ó¤¿¡©¤Þ¤º¤Ï²È¤Ëµ¢¤Ã¤Æ $%s Â·¤¨¤Æ¤­¤Ê¡£",
-       "ʪ¤Î²ÁÃͤ¬Ê¬¤«¤é¤óÅÛ¤À¤Ê¡£¤³¤ì¤Ï $%s ¤¬ÉáÄ̤ʤó¤À¤è¡£",
-       "²¶¤ÎÉÕ¤±¤¿ÃÍÃʤËʸ¶ç¤¬¤¢¤ë¤Î¤«¡© $%s ¤¬¸Â³¦¤À¡£",
-       "¤Ò¤ç¤Ã¤È¤·¤Æ¿·¼ê¤Î¾éÃ̤«¤¤¡© $%s »ý¤Ã¤Æ¤Ê¤¤¤Ê¤éµ¢¤ê¤Ê¡£",
-       "¤¦¤Á¤Ï¾¤ÎŹ¤È¤Ï°ã¤¦¤ó¤À¤è¡£$%s ¤°¤é¤¤¤Ï½Ð¤·¤Ê¡£",
-       "Ç㤦µ¤¤¬¤Ê¤¤¤Ê¤éµ¢¤ê¤Ê¡£ $%s ¤À¤È¸À¤Ã¤Æ¤¤¤ë¤ó¤À¡£",
-       "Ïäˤʤé¤Ê¤¤¤Í¡£ $%s ¤¯¤é¤¤»ý¤Ã¤Æ¤¤¤ë¤ó¤À¤í¡©",
-       "¤Ï¡©¤Ê¤ó¤À¤½¤ê¤ã¡© $%s ¤Î´Ö°ã¤¤¤«¡¢¤Ò¤ç¤Ã¤È¤·¤Æ¡©",
-       "½Ð¸ý¤Ï¤¢¤Ã¤Á¤À¤è¡£¤½¤ì¤È¤â $%s ½Ð¤»¤ë¤Î¤«¤¤¡¢¤¢¤ó¤¿¤Ë¡£",
-       "Ì¿ÃΤ餺¤ÊÅÛ¤À¤Ê¡£ $%s ½Ð¤»¤Ðº£Æü¤Î½ê¤Ï´ªÊÛ¤·¤Æ¤ä¤ë¤è¡£",
-       "¤¦¤Á¤ÎŹ¤ÏÉÏ˳¿Í¤ªÃǤê¤À¡£ $%s ¤°¤é¤¤½Ð¤»¤Ê¤¤¤Î¤«¤¤¡©"
+/*! ブラックマーケット用追加メッセージ(売るとき) */
+static concptr comment_2b_B[MAX_COMMENT_2B] = {
+       "いくら俺様がお人好しとはいえ $%s が限界だね。嫌なら帰りな。",
+       "金がないのかい、あんた?まずは家に帰って $%s 揃えてきな。",
+       "物の価値が分からん奴だな。これは $%s が普通なんだよ。",
+       "俺の付けた値段に文句があるのか? $%s が限界だ。",
+       "ひょっとして新手の冗談かい? $%s 持ってないなら帰りな。",
+       "うちは他の店とは違うんだよ。$%s ぐらいは出しな。",
+       "買う気がないなら帰りな。 $%s だと言っているんだ。",
+       "話にならないね。 $%s くらい持っているんだろ?",
+       "は?なんだそりゃ? $%s の間違いか、ひょっとして?",
+       "出口はあっちだよ。それとも $%s 出せるのかい、あんたに。",
+       "命知らずな奴だな。 $%s 出せば今日の所は勘弁してやるよ。",
+       "うちの店は貧乏人お断りだ。 $%s ぐらい出せないのかい?"
 };
 #endif
 #define MAX_COMMENT_3A 2
 
-static cptr comment_3a[MAX_COMMENT_3A] =
+static concptr comment_3a[MAX_COMMENT_3A] =
 {
 #ifdef JP
-       "»ä¤ÎǦÂÑÎϤò»î¤·¤Æ¤¤¤ë¤Î¤«¤¤¡© $%s ¤¬ºÇ¸å¤À¡£",
-       "²æËý¤Ë¤â¸ÂÅÙ¤¬¤¢¤ë¤¾¡£ $%s ¤¬ºÇ¸å¤À¡£"
+       "私の忍耐力を試しているのかい? $%s が最後だ。",
+       "我慢にも限度があるぞ。 $%s が最後だ。"
 #else
        "You try my patience.  %s is final.",
        "My patience grows thin.  %s is final."
@@ -139,21 +884,21 @@ static cptr comment_3a[MAX_COMMENT_3A] =
 
 #define MAX_COMMENT_3B 12
 
-static cptr comment_3b[MAX_COMMENT_3B] =
+static concptr comment_3b[MAX_COMMENT_3B] =
 {
 #ifdef JP
-       "Ëܲ»¤ò¸À¤¦¤È $%s ¤Ç¤¤¤¤¤ó¤À¤í¡©",
-       " $%s ¤Ç¤É¤¦¤À¤¤¡©",
-       " $%s ¤°¤é¤¤¤Ê¤é½Ð¤·¤Æ¤â¤¤¤¤¤¬¡£",
-       " $%s °Ê¾åʧ¤¦¤Ê¤ó¤Æ¹Í¤¨¤é¤ì¤Ê¤¤¤Í¡£",
-       "¤Þ¤¢Íî¤Á¤Ä¤¤¤Æ¡£ $%s ¤Ç¤É¤¦¤À¤¤¡©",
-       "¤½¤Î¥¬¥é¥¯¥¿¤Ê¤é $%s ¤Ç°ú¤­¼è¤ë¤è¡£",
-       "¤½¤ì¤¸¤ã¹â¤¹¤®¤ë¡ª $%s ¤¬¤¤¤¤¤È¤³¤À¤í¡£",
-       "¤É¤¦¤»¤¤¤é¤Ê¤¤¤ó¤À¤í¡ª $%s ¤Ç¤¤¤¤¤À¤í¡©",
-       "¤À¤á¤À¤á¡ª $%s ¤¬¤º¤Ã¤È¤ª»÷¹ç¤¤¤À¤è¡£",
-       "¥Ð¥«¤Ë¤·¤Æ¤¤¤ë¡ª $%s ¤¬¤»¤¤¤¼¤¤¤À¡£",
-       " $%s ¤Ê¤é´ò¤·¤¤¤È¤³¤í¤À¤¬¤Ê¤¢¡£",
-       " $%s ¡¢¤½¤ì°Ê¾å¤Ï¥Ó¥¿°ìʸ½Ð¤µ¤Ê¤¤¤è¡ª"
+       "本音を言うと $%s でいいんだろ?",
+       " $%s でどうだい?",
+       " $%s ぐらいなら出してもいいが。",
+       " $%s 以上払うなんて考えられないね。",
+       "まあ落ちついて。 $%s でどうだい?",
+       "そのガラクタなら $%s で引き取るよ。",
+       "それじゃ高すぎる! $%s がいいとこだろ。",
+       "どうせいらないんだろ! $%s でいいだろ?",
+       "だめだめ! $%s がずっとお似合いだよ。",
+       "バカにしている! $%s がせいぜいだ。",
+       " $%s なら嬉しいところだがなあ。",
+       " $%s 、それ以上はビタ一文出さないよ!"
 #else
        "Perhaps %s gold pieces?",
        "How about %s gold pieces?",
@@ -172,31 +917,31 @@ static cptr comment_3b[MAX_COMMENT_3B] =
 };
 
 #ifdef JP
-/* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥ÈÍÑÄɲåá¥Ã¥»¡¼¥¸¡ÊÇ㤤¼è¤ê¡Ë */
-static cptr comment_3b_B[MAX_COMMENT_3B] = {
-       " $%s ¤Ã¤Æ¤È¤³¤í¤À¤Í¡£¤½¤Î¤É¤¦¤·¤è¤¦¤â¤Ê¤¤¥¬¥é¥¯¥¿¤Ï¡£",
-       "¤³¤Î²¶¤¬ $%s ¤Ã¤Æ¸À¤Ã¤Æ¤¤¤ë¤ó¤À¤«¤é¡¢¤½¤ÎÄ̤ê¤Ë¤·¤¿Êý¤¬¿È¤Î¤¿¤á¤À¤¾¡£",
-       "²¶¤ÎÍ¥¤·¤µ¤Ë´Å¤¨¤ë¤Î¤â¤¤¤¤²Ã¸º¤Ë¤·¤Æ¤ª¤±¡£ $%s ¤À¡£",
-       "¤½¤ÎÉʤʤé $%s ¤ÇÇä¤Ã¤Æ¤¯¤ì¤Æ¤¤¤ë¤¬¤Í¡¢¾ï¼±¤¢¤ë¿Â»Î¤Ï¤ß¤ó¤Ê¡£",
-       "¤³¤ê¤ã¤Þ¤¿¡¢¤¬¤á¤Ä¤¤ÅÛ¤À¤Ê¡£¤¤¤¯¤é²¶¤¬²¹¸ü¤È¤Ï¤¤¤¨ $%s ¤¬¸Â³¦¤À¡£",
-       " $%s ¤À¡£Ê̤˲¶¤Ï¤½¤ó¤Ê¥¬¥é¥¯¥¿Íߤ·¤¯¤Ï¤Ê¤¤¤ó¤À¤«¤é¡£",
-       "²¶¤Î´ÕÄê³Û¤¬µ¤¤ËÆþ¤é¤Ê¤¤¤Î¤«¡© $%s ¡¢·ù¤Ê¤éµ¢¤ê¤Ê¡£",
-       " $%s ¤Ç°ú¤­¼è¤Ã¤Æ¤ä¤ë¤è¡£´î¤ó¤Ç¼õ¤±¼è¤ê¤Ê¡¢ÉÏ˳¿Í¡£",
-       "ʪ¤Î²ÁÃͤ¬Ê¬¤«¤é¤óÅۤϻÏËö¤Ë¤ª¤¨¤ó¤Ê¡£¤½¤ì¤Ï $%s ¤Ê¤ó¤À¤è¡£",
-       "¤½¤ó¤Ê¤Ë¶â¤¬Íߤ·¤¤¤Î¤«¡¢¤¢¤ó¤¿¡© $%s ¤ÇËþ­¤Ç¤­¤ó¤Î¤«¡©",
-       "Æþ¤ëŹ´Ö°ã¤¨¤Æ¤ó¤¸¤ã¤Ê¤¤¤Î¤«¡© $%s ¤Ç·ù¤Ê¤é¾¤ò¤¢¤¿¤Ã¤Æ¤¯¤ì¡£",
-       "²¶¤Î¸À¤¤Ãͤ˥±¥Á¤ò¤Ä¤±¤ëÅÛ¤¬¤¤¤ë¤È¤Ï¡ª ¤½¤ÎÅÙ¶»¤ËÌȤ¸¤Æ $%s ¤À¡£"
+/*! ブラックマーケット用追加メッセージ(買い取り) */
+static concptr comment_3b_B[MAX_COMMENT_3B] = {
+       " $%s ってところだね。そのどうしようもないガラクタは。",
+       "この俺が $%s って言っているんだから、その通りにした方が身のためだぞ。",
+       "俺の優しさに甘えるのもいい加減にしておけ。 $%s だ。",
+       "その品なら $%s で売ってくれているがね、常識ある紳士はみんな。",
+       "こりゃまた、がめつい奴だな。いくら俺が温厚とはいえ $%s が限界だ。",
+       " $%s だ。別に俺はそんなガラクタ欲しくはないんだから。",
+       "俺の鑑定額が気に入らないのか? $%s 、嫌なら帰りな。",
+       " $%s で引き取ってやるよ。喜んで受け取りな、貧乏人。",
+       "物の価値が分からん奴は始末におえんな。それは $%s なんだよ。",
+       "そんなに金が欲しいのか、あんた? $%s で満足できんのか?",
+       "入る店間違えてんじゃないのか? $%s で嫌なら他をあたってくれ。",
+       "俺の言い値にケチをつける奴がいるとは! その度胸に免じて $%s だ。"
 };
 #endif
 #define MAX_COMMENT_4A 4
 
-static cptr comment_4a[MAX_COMMENT_4A] =
+static concptr comment_4a[MAX_COMMENT_4A] =
 {
 #ifdef JP
-       "¤â¤¦¤¿¤¯¤µ¤ó¤À¡ª²¿ÅÙ¤â»ä¤ò¤ï¤º¤é¤ï¤»¤Ê¤¤¤Ç¤¯¤ì¡ª",
-       "¤¦¤¬¡¼¡ª°ìÆü¤Î²æËý¤Î¸ÂÅÙ¤òĶ¤¨¤Æ¤¤¤ë¡ª",
-       "¤â¤¦¤¤¤¤¡ª»þ´Ö¤Î̵Â̰ʳ°¤Î¤Ê¤Ë¤â¤Î¤Ç¤â¤Ê¤¤¡ª",
-       "¤â¤¦¤ä¤Ã¤Æ¤é¤ì¤Ê¤¤¤è¡ª´é¤â¸«¤¿¤¯¤Ê¤¤¡ª"
+       "もうたくさんだ!何度も私をわずらわせないでくれ!",
+       "うがー!一日の我慢の限度を超えている!",
+       "もういい!時間の無駄以外のなにものでもない!",
+       "もうやってられないよ!顔も見たくない!"
 #else
        "Enough!  You have abused me once too often!",
        "Arghhh!  I have had enough abuse for one day!",
@@ -207,23 +952,23 @@ static cptr comment_4a[MAX_COMMENT_4A] =
 };
 
 #ifdef JP
-/* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥ÈÍÑÄɲåá¥Ã¥»¡¼¥¸¡ÊÅܤê¤ÎĺÅÀ¡Ë */
-static cptr comment_4a_B[MAX_COMMENT_4A] = {
-       "¤Ê¤á¤ä¤¬¤Ã¤Æ¡ª²¹¸ü¤Ê²¶ÍͤǤâ¸Â³¦¤¬¤¢¤ë¤Ã¤Æ¤³¤È¤òÃΤ졪",
-       "²¶¤ò¤³¤³¤Þ¤ÇÅܤ餻¤Æ...Ì¿¤¬¤¢¤ë¤À¤±¤Ç¤â¤¢¤ê¤¬¤¿¤¤¤È»×¤¨¡ª",
-       "¤Õ¤¶¤±¤Æ¤ë¤Î¤«¡ªÎä¤ä¤«¤·¤Ê¤éÁê¼ê¤ò¸«¤Æ¤«¤é¤Ë¤·¤í¡ª",
-       "¤¤¤¤¤«¤²¤ó¤Ë¤·¤í¡ªº£ÅÙ¤³¤ó¤Ê¤Þ¤Í¤·¤¿¤é¤¿¤À¤¸¤ã¤ª¤«¤Í¤¨¤¾¡ª"
+/*! ブラックマーケット用追加メッセージ(怒りの頂点) */
+static concptr comment_4a_B[MAX_COMMENT_4A] = {
+       "なめやがって!温厚な俺様でも限界があるってことを知れ!",
+       "俺をここまで怒らせて...命があるだけでもありがたいと思え!",
+       "ふざけてるのか!冷やかしなら相手を見てからにしろ!",
+       "いいかげんにしろ!今度こんなまねしたらただじゃおかねえぞ!"
 };
 #endif
 #define MAX_COMMENT_4B 4
 
-static cptr comment_4b[MAX_COMMENT_4B] =
+static concptr comment_4b[MAX_COMMENT_4B] =
 {
 #ifdef JP
-       "Ź¤«¤é½Ð¤Æ¹Ô¤±¡ª",
-       "²¶¤ÎÁ°¤«¤é¾Ã¤¨¼º¤»¤í¡ª",
-       "¤É¤Ã¤«¤Ë¹Ô¤Ã¤Á¤Þ¤¨¡ª",
-       "½Ð¤í¡¢½Ð¤í¡¢½Ð¤Æ¹Ô¤±¡ª"
+       "店から出て行け!",
+       "俺の前から消え失せろ!",
+       "どっかに行っちまえ!",
+       "出ろ、出ろ、出て行け!"
 #else
        "Leave my store!",
        "Get out of my sight!",
@@ -234,27 +979,27 @@ static cptr comment_4b[MAX_COMMENT_4B] =
 };
 
 #ifdef JP
-/* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥ÈÍÑÄɲåá¥Ã¥»¡¼¥¸¡ÊÄɤ¤½Ð¤·¡Ë */
-static cptr comment_4b_B[MAX_COMMENT_4B] = {
-       "ÆóÅ٤Ȥ¦¤Á¤ËÍè¤ë¤ó¤¸¤ã¤Í¤¨¡ª¡ª",
-       "¤È¤Ã¤È¤È¡¢¤É¤Ã¤«¤Ø¼º¤»¤í¡ª¡ª",
-       "º£¤¹¤°¾Ã¤¨¼º¤»¤í¡ª¡ª",
-       "½Ð¤Æ¤¤¤±¡ª½Ð¤Æ¤¤¤±¡ª¡ª"
+/*! ブラックマーケット用追加メッセージ(追い出し) */
+static concptr comment_4b_B[MAX_COMMENT_4B] = {
+       "二度とうちに来るんじゃねえ!!",
+       "とっとと、どっかへ失せろ!!",
+       "今すぐ消え失せろ!!",
+       "出ていけ!出ていけ!!"
 };
 #endif
 #define MAX_COMMENT_5  8
 
-static cptr comment_5[MAX_COMMENT_5] =
+static concptr comment_5[MAX_COMMENT_5] =
 {
 #ifdef JP
-       "¹Í¤¨Ä¾¤·¤Æ¤¯¤ì¡£",
-       "¤½¤ê¤ã¤ª¤«¤·¤¤¡ª",
-       "¤â¤Ã¤È¿¿ÌÌÌܤ˸À¤Ã¤Æ¤¯¤ì¡ª",
-       "¸ò¾Ä¤¹¤ëµ¤¤¬¤¢¤ë¤Î¤«¤¤¡©",
-       "Îä¤ä¤«¤·¤ËÍ褿¤Î¤«¡ª",
-       "°­¤¤¾éÃ̤À¡ª",
-       "²æËý¤¯¤é¤Ù¤«¤¤¡£",
-       "¤Õ¡¼¤à¡¢Îɤ¤Å·µ¤¤À¡£"
+       "考え直してくれ。",
+       "そりゃおかしい!",
+       "もっと真面目に言ってくれ!",
+       "交渉する気があるのかい?",
+       "冷やかしに来たのか!",
+       "悪い冗談だ!",
+       "我慢くらべかい。",
+       "ふーむ、良い天気だ。"
 #else
        "Try again.",
        "Ridiculous!",
@@ -269,27 +1014,27 @@ static cptr comment_5[MAX_COMMENT_5] =
 };
 
 #ifdef JP
-/* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥ÈÍÑÄɲåá¥Ã¥»¡¼¥¸¡ÊÅܤê¡Ë */
-static cptr comment_5_B[MAX_COMMENT_5] = {
-       "»þ´Ö¤Î̵Â̤À¤Ê¡¢¤³¤ì¤Ï¡£",
-       "Ìñ²ð¤Ê¤ªµÒÍͤÀ¤Ê¡ª",
-       "Ïä·¤Æʬ¤«¤ëÁê¼ê¤¸¤ã¤Ê¤µ¤½¤¦¤À¡£",
-       "Äˤ¤Ìܤˤ¢¤¤¤¿¤¤¤é¤·¤¤¤Ê¡ª",
-       "¤Ê¤ó¤Æ¶¯ÍߤÊÅÛ¤À¡ª",
-       "Ïäˤʤé¤óÇÚ¤À¡ª",
-       "¤É¤¦¤·¤è¤¦¤â¤Ê¤¤ÉÏ˳¿Í¤À¡ª",
-       "·ö²Þ¤òÇä¤Ã¤Æ¤¤¤ë¤Î¤«¡©"
+/*! ブラックマーケット用追加メッセージ(怒り) */
+static concptr comment_5_B[MAX_COMMENT_5] = {
+       "時間の無駄だな、これは。",
+       "厄介なお客様だな!",
+       "話して分かる相手じゃなさそうだ。",
+       "痛い目にあいたいらしいな!",
+       "なんて強欲な奴だ!",
+       "話にならん輩だ!",
+       "どうしようもない貧乏人だ!",
+       "喧嘩を売っているのか?"
 };
 #endif
 #define MAX_COMMENT_6  4
 
-static cptr comment_6[MAX_COMMENT_6] =
+static concptr comment_6[MAX_COMMENT_6] =
 {
 #ifdef JP
-       "¤É¤¦¤ä¤éʹ¤­´Ö°ã¤¨¤¿¤é¤·¤¤¡£",
-       "¼ºÎé¡¢¤è¤¯Ê¹¤³¤¨¤Ê¤«¤Ã¤¿¤è¡£",
-       "¤¹¤Þ¤Ê¤¤¡¢²¿¤À¤Ã¤Æ¡©",
-       "°­¤¤¡¢¤â¤¦°ìÅÙ¸À¤Ã¤Æ¤¯¤ì¤ë¡©"
+       "どうやら聞き間違えたらしい。",
+       "失礼、よく聞こえなかったよ。",
+       "すまない、何だって?",
+       "悪い、もう一度言ってくれる?"
 #else
        "I must have heard you wrong.",
        "I'm sorry, I missed that.",
@@ -299,17 +1044,574 @@ static cptr comment_6[MAX_COMMENT_6] =
 
 };
 
+/*** Initialize others ***/
 
+/*!
+ * 店舗で販売するオブジェクトを定義する / Hack -- Objects sold in the stores -- by tval/sval pair.
+ */
+byte store_table[MAX_STORES][STORE_CHOICES][2] =
+{
+       {
+               /* General Store */
 
-/*
+               { TV_FOOD, SV_FOOD_RATION },
+               { TV_FOOD, SV_FOOD_RATION },
+               { TV_FOOD, SV_FOOD_RATION },
+               { TV_FOOD, SV_FOOD_RATION },
+
+               { TV_FOOD, SV_FOOD_RATION },
+               { TV_FOOD, SV_FOOD_BISCUIT },
+               { TV_FOOD, SV_FOOD_JERKY },
+               { TV_FOOD, SV_FOOD_JERKY },
+
+               { TV_FOOD, SV_FOOD_PINT_OF_WINE },
+               { TV_FOOD, SV_FOOD_PINT_OF_ALE },
+               { TV_LITE, SV_LITE_TORCH },
+               { TV_LITE, SV_LITE_TORCH },
+
+               { TV_LITE, SV_LITE_TORCH },
+               { TV_LITE, SV_LITE_TORCH },
+               { TV_LITE, SV_LITE_LANTERN },
+               { TV_LITE, SV_LITE_LANTERN },
+
+               { TV_FLASK, 0 },
+               { TV_FLASK, 0 },
+               { TV_FLASK, 0 },
+               { TV_FLASK, 0 },
+
+               { TV_FLASK, 0 },
+               { TV_FLASK, 0 },
+               { TV_SPIKE, 0 },
+               { TV_SPIKE, 0 },
+
+               { TV_SHOT, SV_AMMO_NORMAL },
+               { TV_ARROW, SV_AMMO_NORMAL },
+               { TV_BOLT, SV_AMMO_NORMAL },
+               { TV_DIGGING, SV_SHOVEL },
+
+               { TV_DIGGING, SV_PICK },
+               { TV_CLOAK, SV_CLOAK },
+               { TV_CLOAK, SV_CLOAK },
+               { TV_CLOAK, SV_FUR_CLOAK },
+
+               { TV_FOOD, SV_FOOD_RATION },
+               { TV_FOOD, SV_FOOD_RATION },
+               { TV_FOOD, SV_FOOD_RATION },
+               { TV_FOOD, SV_FOOD_RATION },
+
+               { TV_POTION, SV_POTION_WATER },
+               { TV_POTION, SV_POTION_WATER },
+               { TV_LITE, SV_LITE_LANTERN },
+               { TV_LITE, SV_LITE_LANTERN },
+
+               { TV_FOOD, SV_FOOD_WAYBREAD },
+               { TV_FOOD, SV_FOOD_WAYBREAD },
+               { TV_CAPTURE, 0 },
+               { TV_FIGURINE, 0 },
+
+               { TV_SHOT, SV_AMMO_NORMAL },
+               { TV_ARROW, SV_AMMO_NORMAL },
+               { TV_BOLT, SV_AMMO_NORMAL },
+               { TV_DIGGING, SV_SHOVEL }
+       },
+
+       {
+               /* Armoury */
+
+               { TV_BOOTS, SV_PAIR_OF_SOFT_LEATHER_BOOTS },
+               { TV_BOOTS, SV_PAIR_OF_SOFT_LEATHER_BOOTS },
+               { TV_BOOTS, SV_PAIR_OF_HARD_LEATHER_BOOTS },
+               { TV_BOOTS, SV_PAIR_OF_HARD_LEATHER_BOOTS },
+
+               { TV_HELM, SV_HARD_LEATHER_CAP },
+               { TV_HELM, SV_HARD_LEATHER_CAP },
+               { TV_HELM, SV_METAL_CAP },
+               { TV_HELM, SV_IRON_HELM },
+
+               { TV_SOFT_ARMOR, SV_ROBE },
+               { TV_SOFT_ARMOR, SV_ROBE },
+               { TV_SOFT_ARMOR, SV_SOFT_LEATHER_ARMOR },
+               { TV_SOFT_ARMOR, SV_SOFT_LEATHER_ARMOR },
+
+               { TV_SOFT_ARMOR, SV_HARD_LEATHER_ARMOR },
+               { TV_SOFT_ARMOR, SV_HARD_LEATHER_ARMOR },
+               { TV_SOFT_ARMOR, SV_HARD_STUDDED_LEATHER },
+               { TV_SOFT_ARMOR, SV_HARD_STUDDED_LEATHER },
+
+               { TV_SOFT_ARMOR, SV_RHINO_HIDE_ARMOR },
+               { TV_SOFT_ARMOR, SV_LEATHER_SCALE_MAIL },
+               { TV_HARD_ARMOR, SV_METAL_SCALE_MAIL },
+               { TV_HARD_ARMOR, SV_CHAIN_MAIL },
+
+               { TV_HARD_ARMOR, SV_DOUBLE_RING_MAIL },
+               { TV_HARD_ARMOR, SV_AUGMENTED_CHAIN_MAIL },
+               { TV_HARD_ARMOR, SV_BAR_CHAIN_MAIL },
+               { TV_HARD_ARMOR, SV_DOUBLE_CHAIN_MAIL },
+
+               { TV_HARD_ARMOR, SV_METAL_BRIGANDINE_ARMOUR },
+               { TV_HARD_ARMOR, SV_SPLINT_MAIL },
+               { TV_GLOVES, SV_SET_OF_LEATHER_GLOVES },
+               { TV_GLOVES, SV_SET_OF_LEATHER_GLOVES },
+
+               { TV_GLOVES, SV_SET_OF_GAUNTLETS },
+               { TV_SHIELD, SV_SMALL_LEATHER_SHIELD },
+               { TV_SHIELD, SV_LARGE_LEATHER_SHIELD },
+               { TV_SHIELD, SV_SMALL_METAL_SHIELD },
+
+               { TV_BOOTS, SV_PAIR_OF_HARD_LEATHER_BOOTS },
+               { TV_BOOTS, SV_PAIR_OF_HARD_LEATHER_BOOTS },
+               { TV_HELM, SV_HARD_LEATHER_CAP },
+               { TV_HELM, SV_HARD_LEATHER_CAP },
+
+               { TV_SOFT_ARMOR, SV_ROBE },
+               { TV_SOFT_ARMOR, SV_SOFT_LEATHER_ARMOR },
+               { TV_SOFT_ARMOR, SV_SOFT_LEATHER_ARMOR },
+               { TV_SOFT_ARMOR, SV_HARD_LEATHER_ARMOR },
+
+               { TV_SOFT_ARMOR, SV_LEATHER_JACK },
+               { TV_HARD_ARMOR, SV_METAL_SCALE_MAIL },
+               { TV_HARD_ARMOR, SV_CHAIN_MAIL },
+               { TV_HARD_ARMOR, SV_CHAIN_MAIL },
+
+               { TV_GLOVES, SV_SET_OF_LEATHER_GLOVES },
+               { TV_GLOVES, SV_SET_OF_GAUNTLETS },
+               { TV_SHIELD, SV_SMALL_LEATHER_SHIELD },
+               { TV_SHIELD, SV_SMALL_LEATHER_SHIELD }
+       },
+
+       {
+               /* Weaponsmith */
+
+               { TV_SWORD, SV_DAGGER },
+               { TV_SWORD, SV_MAIN_GAUCHE },
+               { TV_SWORD, SV_RAPIER },
+               { TV_SWORD, SV_SMALL_SWORD },
+
+               { TV_SWORD, SV_SHORT_SWORD },
+               { TV_SWORD, SV_SABRE },
+               { TV_SWORD, SV_CUTLASS },
+               { TV_SWORD, SV_TULWAR },
+
+               { TV_SWORD, SV_BROAD_SWORD },
+               { TV_SWORD, SV_LONG_SWORD },
+               { TV_SWORD, SV_SCIMITAR },
+               { TV_SWORD, SV_KATANA },
+
+               { TV_SWORD, SV_BASTARD_SWORD },
+               { TV_POLEARM, SV_SPEAR },
+               { TV_POLEARM, SV_AWL_PIKE },
+               { TV_POLEARM, SV_TRIDENT },
+
+               { TV_POLEARM, SV_PIKE },
+               { TV_POLEARM, SV_BEAKED_AXE },
+               { TV_POLEARM, SV_BROAD_AXE },
+               { TV_POLEARM, SV_LANCE },
+
+               { TV_POLEARM, SV_BATTLE_AXE },
+               { TV_POLEARM, SV_HATCHET },
+               { TV_BOW, SV_SLING },
+               { TV_BOW, SV_SHORT_BOW },
+
+               { TV_BOW, SV_LIGHT_XBOW },
+               { TV_SHOT, SV_AMMO_NORMAL },
+               { TV_SHOT, SV_AMMO_NORMAL },
+               { TV_ARROW, SV_AMMO_NORMAL },
+
+               { TV_ARROW, SV_AMMO_NORMAL },
+               { TV_BOLT, SV_AMMO_NORMAL },
+               { TV_BOLT, SV_AMMO_NORMAL },
+               { TV_BOW, SV_LIGHT_XBOW },
+
+               { TV_ARROW, SV_AMMO_NORMAL },
+               { TV_BOLT, SV_AMMO_NORMAL },
+               { TV_BOW, SV_SHORT_BOW },
+               { TV_BOW, SV_LIGHT_XBOW },
+
+               { TV_SWORD, SV_DAGGER },
+               { TV_SWORD, SV_TANTO },
+               { TV_SWORD, SV_RAPIER },
+               { TV_SWORD, SV_SMALL_SWORD },
+
+               { TV_SWORD, SV_SHORT_SWORD },
+               { TV_SWORD, SV_LONG_SWORD },
+               { TV_SWORD, SV_SCIMITAR },
+               { TV_SWORD, SV_BROAD_SWORD },
+
+               { TV_HISSATSU_BOOK, 0 },
+               { TV_HISSATSU_BOOK, 0 },
+               { TV_HISSATSU_BOOK, 1 },
+               { TV_HISSATSU_BOOK, 1 },
+       },
+
+       {
+               /* Temple */
+
+               { TV_HAFTED, SV_NUNCHAKU },
+               { TV_HAFTED, SV_QUARTERSTAFF },
+               { TV_HAFTED, SV_MACE },
+               { TV_HAFTED, SV_BO_STAFF },
+
+               { TV_HAFTED, SV_WAR_HAMMER },
+               { TV_HAFTED, SV_WAR_HAMMER },
+               { TV_HAFTED, SV_MORNING_STAR },
+               { TV_HAFTED, SV_FLAIL },
+
+               { TV_HAFTED, SV_LEAD_FILLED_MACE },
+               { TV_SCROLL, SV_SCROLL_REMOVE_CURSE },
+               { TV_SCROLL, SV_SCROLL_BLESSING },
+               { TV_SCROLL, SV_SCROLL_HOLY_CHANT },
+
+               { TV_POTION, SV_POTION_HEROISM },
+               { TV_SCROLL, SV_SCROLL_WORD_OF_RECALL },
+               { TV_SCROLL, SV_SCROLL_WORD_OF_RECALL },
+               { TV_SCROLL, SV_SCROLL_WORD_OF_RECALL },
+
+               { TV_POTION, SV_POTION_CURE_LIGHT },
+               { TV_POTION, SV_POTION_CURE_SERIOUS },
+               { TV_POTION, SV_POTION_CURE_SERIOUS },
+               { TV_POTION, SV_POTION_CURE_CRITICAL },
+
+               { TV_POTION, SV_POTION_CURE_CRITICAL },
+               { TV_POTION, SV_POTION_RESTORE_EXP },
+               { TV_POTION, SV_POTION_RESTORE_EXP },
+               { TV_POTION, SV_POTION_RESTORE_EXP },
+
+               { TV_LIFE_BOOK, 0 },
+               { TV_LIFE_BOOK, 0 },
+               { TV_LIFE_BOOK, 1 },
+               { TV_LIFE_BOOK, 1 },
+
+               { TV_CRUSADE_BOOK, 0 },
+               { TV_CRUSADE_BOOK, 0 },
+               { TV_CRUSADE_BOOK, 1 },
+               { TV_CRUSADE_BOOK, 1 },
+
+               { TV_HAFTED, SV_WHIP },
+               { TV_HAFTED, SV_MACE },
+               { TV_HAFTED, SV_BALL_AND_CHAIN },
+               { TV_HAFTED, SV_WAR_HAMMER },
+
+               { TV_SCROLL, SV_SCROLL_WORD_OF_RECALL },
+               { TV_SCROLL, SV_SCROLL_WORD_OF_RECALL },
+               { TV_SCROLL, SV_SCROLL_WORD_OF_RECALL },
+               { TV_POTION, SV_POTION_CURE_CRITICAL },
+
+               { TV_POTION, SV_POTION_CURE_CRITICAL },
+               { TV_POTION, SV_POTION_RESTORE_EXP },
+
+               { TV_FIGURINE, 0 },
+               { TV_STATUE, SV_ANY },
+
+               { TV_SCROLL, SV_SCROLL_REMOVE_CURSE },
+               { TV_SCROLL, SV_SCROLL_REMOVE_CURSE },
+               { TV_SCROLL, SV_SCROLL_STAR_REMOVE_CURSE },
+               { TV_SCROLL, SV_SCROLL_STAR_REMOVE_CURSE }
+       },
+
+       {
+               /* Alchemy shop */
+
+               { TV_SCROLL, SV_SCROLL_ENCHANT_WEAPON_TO_HIT },
+               { TV_SCROLL, SV_SCROLL_ENCHANT_WEAPON_TO_DAM },
+               { TV_SCROLL, SV_SCROLL_ENCHANT_ARMOR },
+               { TV_SCROLL, SV_SCROLL_IDENTIFY },
+
+               { TV_SCROLL, SV_SCROLL_IDENTIFY },
+               { TV_SCROLL, SV_SCROLL_IDENTIFY },
+               { TV_SCROLL, SV_SCROLL_IDENTIFY },
+               { TV_SCROLL, SV_SCROLL_LIGHT },
+
+               { TV_SCROLL, SV_SCROLL_PHASE_DOOR },
+               { TV_SCROLL, SV_SCROLL_PHASE_DOOR },
+               { TV_SCROLL, SV_SCROLL_TELEPORT },
+               { TV_SCROLL, SV_SCROLL_MONSTER_CONFUSION },
+
+               { TV_SCROLL, SV_SCROLL_MAPPING },
+               { TV_SCROLL, SV_SCROLL_DETECT_GOLD },
+               { TV_SCROLL, SV_SCROLL_DETECT_ITEM },
+               { TV_SCROLL, SV_SCROLL_DETECT_TRAP },
+
+               { TV_SCROLL, SV_SCROLL_DETECT_INVIS },
+               { TV_SCROLL, SV_SCROLL_RECHARGING },
+               { TV_SCROLL, SV_SCROLL_TELEPORT },
+               { TV_SCROLL, SV_SCROLL_WORD_OF_RECALL },
+
+               { TV_SCROLL, SV_SCROLL_WORD_OF_RECALL },
+               { TV_SCROLL, SV_SCROLL_WORD_OF_RECALL },
+               { TV_SCROLL, SV_SCROLL_WORD_OF_RECALL },
+               { TV_SCROLL, SV_SCROLL_TELEPORT },
+
+               { TV_SCROLL, SV_SCROLL_TELEPORT },
+               { TV_POTION, SV_POTION_RES_STR },
+               { TV_POTION, SV_POTION_RES_INT },
+               { TV_POTION, SV_POTION_RES_WIS },
+
+               { TV_POTION, SV_POTION_RES_DEX },
+               { TV_POTION, SV_POTION_RES_CON },
+               { TV_POTION, SV_POTION_RES_CHR },
+               { TV_SCROLL, SV_SCROLL_IDENTIFY },
+
+               { TV_SCROLL, SV_SCROLL_IDENTIFY },
+               { TV_SCROLL, SV_SCROLL_STAR_IDENTIFY },  /* Yep, occasionally! */
+               { TV_SCROLL, SV_SCROLL_STAR_IDENTIFY },
+               { TV_SCROLL, SV_SCROLL_LIGHT },
+
+               { TV_POTION, SV_POTION_RES_STR },
+               { TV_POTION, SV_POTION_RES_INT },
+               { TV_POTION, SV_POTION_RES_WIS },
+               { TV_POTION, SV_POTION_RES_DEX },
+
+               { TV_POTION, SV_POTION_RES_CON },
+               { TV_POTION, SV_POTION_RES_CHR },
+               { TV_SCROLL, SV_SCROLL_ENCHANT_ARMOR },
+               { TV_SCROLL, SV_SCROLL_ENCHANT_ARMOR },
+
+               { TV_SCROLL, SV_SCROLL_RECHARGING },
+               { TV_SCROLL, SV_SCROLL_PHASE_DOOR },
+               { TV_SCROLL, SV_SCROLL_ENCHANT_WEAPON_TO_HIT },
+               { TV_SCROLL, SV_SCROLL_ENCHANT_WEAPON_TO_DAM },
+
+       },
+
+       {
+               /* Magic-User store */
+
+               { TV_RING, SV_RING_PROTECTION },
+               { TV_RING, SV_RING_LEVITATION_FALL },
+               { TV_RING, SV_RING_PROTECTION },
+               { TV_RING, SV_RING_RESIST_FIRE },
+
+               { TV_RING, SV_RING_RESIST_COLD },
+               { TV_AMULET, SV_AMULET_CHARISMA },
+               { TV_RING, SV_RING_WARNING },
+               { TV_AMULET, SV_AMULET_RESIST_ACID },
+
+               { TV_AMULET, SV_AMULET_SEARCHING },
+               { TV_WAND, SV_WAND_SLOW_MONSTER },
+               { TV_WAND, SV_WAND_CONFUSE_MONSTER },
+               { TV_WAND, SV_WAND_SLEEP_MONSTER },
+
+               { TV_WAND, SV_WAND_MAGIC_MISSILE },
+               { TV_WAND, SV_WAND_STINKING_CLOUD },
+               { TV_WAND, SV_WAND_WONDER },
+               { TV_WAND, SV_WAND_DISARMING },
+
+               { TV_STAFF, SV_STAFF_LITE },
+               { TV_STAFF, SV_STAFF_MAPPING },
+               { TV_STAFF, SV_STAFF_DETECT_TRAP },
+               { TV_STAFF, SV_STAFF_DETECT_DOOR },
+
+               { TV_STAFF, SV_STAFF_DETECT_GOLD },
+               { TV_STAFF, SV_STAFF_DETECT_ITEM },
+               { TV_STAFF, SV_STAFF_DETECT_INVIS },
+               { TV_STAFF, SV_STAFF_DETECT_EVIL },
+
+               { TV_STAFF, SV_STAFF_TELEPORTATION },
+               { TV_STAFF, SV_STAFF_TELEPORTATION },
+               { TV_STAFF, SV_STAFF_TELEPORTATION },
+               { TV_STAFF, SV_STAFF_TELEPORTATION },
+
+               { TV_STAFF, SV_STAFF_IDENTIFY },
+               { TV_STAFF, SV_STAFF_IDENTIFY },
+               { TV_STAFF, SV_STAFF_IDENTIFY },
+
+               { TV_STAFF, SV_STAFF_IDENTIFY },
+               { TV_STAFF, SV_STAFF_REMOVE_CURSE },
+               { TV_STAFF, SV_STAFF_CURE_LIGHT },
+               { TV_STAFF, SV_STAFF_PROBING },
+
+               { TV_FIGURINE, 0 },
+
+               { TV_SORCERY_BOOK, 0 },
+               { TV_SORCERY_BOOK, 0 },
+               { TV_SORCERY_BOOK, 1 },
+               { TV_SORCERY_BOOK, 1 },
+
+               { TV_ARCANE_BOOK, 0 },
+               { TV_ARCANE_BOOK, 0 },
+               { TV_ARCANE_BOOK, 1 },
+               { TV_ARCANE_BOOK, 1 },
+
+               { TV_ARCANE_BOOK, 2 },
+               { TV_ARCANE_BOOK, 2 },
+               { TV_ARCANE_BOOK, 3 },
+               { TV_ARCANE_BOOK, 3 },
+
+       },
+
+       {
+               /* Black Market (unused) */
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 }
+       },
+
+       {
+               /* Home (unused) */
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 }
+       },
+
+       {
+               /* Bookstore */
+               { TV_SORCERY_BOOK, 0 },
+               { TV_SORCERY_BOOK, 0 },
+               { TV_SORCERY_BOOK, 1 },
+               { TV_SORCERY_BOOK, 1 },
+
+               { TV_NATURE_BOOK, 0 },
+               { TV_NATURE_BOOK, 0 },
+               { TV_NATURE_BOOK, 1 },
+               { TV_NATURE_BOOK, 1 },
+
+               { TV_CHAOS_BOOK, 0 },
+               { TV_CHAOS_BOOK, 0 },
+               { TV_CHAOS_BOOK, 1 },
+               { TV_CHAOS_BOOK, 1 },
+
+               { TV_DEATH_BOOK, 0 },
+               { TV_DEATH_BOOK, 0 },
+               { TV_DEATH_BOOK, 1 },
+               { TV_DEATH_BOOK, 1 },
+
+               { TV_TRUMP_BOOK, 0 },           /* +16 */
+               { TV_TRUMP_BOOK, 0 },
+               { TV_TRUMP_BOOK, 1 },
+               { TV_TRUMP_BOOK, 1 },
+
+               { TV_ARCANE_BOOK, 0 },
+               { TV_ARCANE_BOOK, 1 },
+               { TV_ARCANE_BOOK, 2 },
+               { TV_ARCANE_BOOK, 3 },
+
+               { TV_CRAFT_BOOK, 0 },
+               { TV_CRAFT_BOOK, 0 },
+               { TV_CRAFT_BOOK, 1 },
+               { TV_CRAFT_BOOK, 1 },
+
+               { TV_DAEMON_BOOK, 0 },
+               { TV_DAEMON_BOOK, 0 },
+               { TV_DAEMON_BOOK, 1 },
+               { TV_DAEMON_BOOK, 1 },
+
+               { TV_MUSIC_BOOK, 0 },
+               { TV_MUSIC_BOOK, 0 },
+               { TV_MUSIC_BOOK, 1 },
+               { TV_MUSIC_BOOK, 1 },
+
+               { TV_HEX_BOOK, 0 },
+               { TV_HEX_BOOK, 0 },
+               { TV_HEX_BOOK, 1 },
+               { TV_HEX_BOOK, 1 },
+       },
+
+       {
+               /* Museum (unused) */
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 },
+               { 0, 0 }
+       }
+};
+
+
+
+/*!
+ * @brief 取引成功時の店主のメッセージ処理 /
  * Successful haggle.
+ * @return なし
  */
 static void say_comment_1(void)
 {
-       char rumour[1024];
-
 #ifdef JP
-       /* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤Î¤È¤­¤ÏÊ̤Υá¥Ã¥»¡¼¥¸¤ò½Ð¤¹ */
+       /* ブラックマーケットのときは別のメッセージを出す */
        if ( cur_store_num == STORE_BLACK ) {
                msg_print(comment_1_B[randint0(MAX_COMMENT_1)]);
        }
@@ -324,27 +1626,23 @@ static void say_comment_1(void)
        if (one_in_(RUMOR_CHANCE))
        {
 #ifdef JP
-msg_print("Ź¼ç¤Ï¼ª¤¦¤Á¤·¤¿:");
+               msg_print("店主は耳うちした:");
 #else
                msg_print("The shopkeeper whispers something into your ear:");
 #endif
-
-
-#ifdef JP
-if (!get_rnd_line_jonly("rumors_j.txt", 0, rumour, 10))
-#else
-               if (!get_rnd_line("rumors.txt", 0, rumour))
-#endif
-
-                       msg_print(rumour);
+               display_rumor(TRUE);
        }
 }
 
 
-/*
+/*!
+ * @brief プレイヤーがアイテムを買う時の価格代案メッセージ処理 /
  * Continue haggling (player is buying)
+ * @param value 店主の提示価格
+ * @param annoyed 店主のいらつき度
+ * @return なし
  */
-static void say_comment_2(s32b value, int annoyed)
+static void say_comment_2(PRICE value, int annoyed)
 {
        char    tmp_val[80];
 
@@ -363,7 +1661,7 @@ static void say_comment_2(s32b value, int annoyed)
        {
                /* Formatted message */
 #ifdef JP
-               /* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤Î»þ¤ÏÊ̤Υá¥Ã¥»¡¼¥¸¤ò½Ð¤¹ */
+               /* ブラックマーケットの時は別のメッセージを出す */
                if ( cur_store_num == STORE_BLACK ){
                        msg_format(comment_2b_B[randint0(MAX_COMMENT_2B)], tmp_val);
                }
@@ -378,10 +1676,14 @@ static void say_comment_2(s32b value, int annoyed)
 }
 
 
-/*
+/*!
+ * @brief プレイヤーがアイテムを売る時の価格代案メッセージ処理 /
  * Continue haggling (player is selling)
+ * @param value 店主の提示価格
+ * @param annoyed 店主のいらつき度
+ * @return なし
  */
-static void say_comment_3(s32b value, int annoyed)
+static void say_comment_3(PRICE value, int annoyed)
 {
        char    tmp_val[80];
 
@@ -400,7 +1702,7 @@ static void say_comment_3(s32b value, int annoyed)
        {
                /* Formatted message */
 #ifdef JP
-               /* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤Î»þ¤ÏÊ̤Υá¥Ã¥»¡¼¥¸¤ò½Ð¤¹ */
+               /* ブラックマーケットの時は別のメッセージを出す */
                if ( cur_store_num == STORE_BLACK ){
                        msg_format(comment_3b_B[randint0(MAX_COMMENT_3B)], tmp_val);
                }
@@ -415,13 +1717,15 @@ static void say_comment_3(s32b value, int annoyed)
 }
 
 
-/*
+/*!
+ * @brief 店主がプレイヤーを追い出す時のメッセージ処理 /
  * Kick 'da bum out.                                   -RAK-
+ * @return なし
  */
 static void say_comment_4(void)
 {
 #ifdef JP
-       /* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤Î»þ¤ÏÊ̤Υá¥Ã¥»¡¼¥¸¤ò½Ð¤¹ */
+       /* ブラックマーケットの時は別のメッセージを出す */
        if ( cur_store_num == STORE_BLACK ){
                msg_print(comment_4a_B[randint0(MAX_COMMENT_4A)]);
                msg_print(comment_4b_B[randint0(MAX_COMMENT_4B)]);
@@ -438,13 +1742,15 @@ static void say_comment_4(void)
 }
 
 
-/*
+/*!
+ * @brief 店主がプレイヤーに取り合わない時のメッセージ処理 /
  * You are insulting me
+ * @return なし
  */
 static void say_comment_5(void)
 {
 #ifdef JP
-       /* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤Î»þ¤ÏÊ̤Υá¥Ã¥»¡¼¥¸¤ò½Ð¤¹ */
+       /* ブラックマーケットの時は別のメッセージを出す */
        if ( cur_store_num == STORE_BLACK ){
                msg_print(comment_5_B[randint0(MAX_COMMENT_5)]);
        }
@@ -458,8 +1764,10 @@ static void say_comment_5(void)
 }
 
 
-/*
+/*!
+ * @brief 店主がプレイヤーの提示を理解できなかった時のメッセージ処理 /
  * That makes no sense.
+ * @return なし
  */
 static void say_comment_6(void)
 {
@@ -467,20 +1775,15 @@ static void say_comment_6(void)
 }
 
 
-
-/*
- * Messages for reacting to purchase prices.
- */
-
 #define MAX_COMMENT_7A 4
 
-static cptr comment_7a[MAX_COMMENT_7A] =
+static concptr comment_7a[MAX_COMMENT_7A] =
 {
 #ifdef JP
-       "¤¦¤ï¤¢¤¢¤¡¤¡¡ª",
-       "¤Ê¤ó¤Æ¤³¤Ã¤¿¡ª",
-       "狼¤¬¤à¤»¤Óµã¤¯À¼¤¬Ê¹¤³¤¨¤ë...¡£",
-       "Ź¼ç¤¬²ù¤·¤²¤Ë¤ï¤á¤¤¤Æ¤¤¤ë¡ª"
+       "うわああぁぁ!",
+       "なんてこった!",
+       "誰かがむせび泣く声が聞こえる...。",
+       "店主が悔しげにわめいている!"
 #else
        "Arrgghh!",
        "You bastard!",
@@ -492,13 +1795,13 @@ static cptr comment_7a[MAX_COMMENT_7A] =
 
 #define MAX_COMMENT_7B 4
 
-static cptr comment_7b[MAX_COMMENT_7B] =
+static concptr comment_7b[MAX_COMMENT_7B] =
 {
 #ifdef JP
-       "¤¯¤½¤¦¡ª",
-       "¤³¤Î°­Ëâ¤á¡ª",
-       "Ź¼ç¤¬º¨¤á¤·¤½¤¦¤Ë¸«¤Æ¤¤¤ë¡£",
-       "Ź¼ç¤¬âˤó¤Ç¤¤¤ë¡£"
+       "くそう!",
+       "この悪魔め!",
+       "店主が恨めしそうに見ている。",
+       "店主が睨んでいる。"
 #else
        "Damn!",
        "You fiend!",
@@ -510,13 +1813,13 @@ static cptr comment_7b[MAX_COMMENT_7B] =
 
 #define MAX_COMMENT_7C 4
 
-static cptr comment_7c[MAX_COMMENT_7C] =
+static concptr comment_7c[MAX_COMMENT_7C] =
 {
 #ifdef JP
-       "¤¹¤Ð¤é¤·¤¤¡ª",
-       "·¯¤¬Å·»È¤Ë¸«¤¨¤ë¤è¡ª",
-       "Ź¼ç¤¬¥¯¥¹¥¯¥¹¾Ð¤Ã¤Æ¤¤¤ë¡£",
-       "Ź¼ç¤¬ÂçÀ¼¤Ç¾Ð¤Ã¤Æ¤¤¤ë¡£"
+       "すばらしい!",
+       "君が天使に見えるよ!",
+       "店主がクスクス笑っている。",
+       "店主が大声で笑っている。"
 #else
        "Cool!",
        "You've made my day!",
@@ -528,13 +1831,13 @@ static cptr comment_7c[MAX_COMMENT_7C] =
 
 #define MAX_COMMENT_7D 4
 
-static cptr comment_7d[MAX_COMMENT_7D] =
+static concptr comment_7d[MAX_COMMENT_7D] =
 {
 #ifdef JP
-       "¤ä¤Ã¤Û¤¥¡ª",
-       "¤³¤ó¤Ê¤ª¤¤¤·¤¤»×¤¤¤ò¤·¤¿¤é¡¢¿¿ÌÌÌܤËƯ¤±¤Ê¤¯¤Ê¤ë¤Ê¤¡¡£",
-       "Ź¼ç¤Ï´ò¤·¤¯¤ÆÄ·¤Í²ó¤Ã¤Æ¤¤¤ë¡£",
-       "Ź¼ç¤ÏËþÌ̤˾Фߤò¤¿¤¿¤¨¤Æ¤¤¤ë¡£"
+       "やっほぅ!",
+       "こんなおいしい思いをしたら、真面目に働けなくなるなぁ。",
+       "店主は嬉しくて跳ね回っている。",
+       "店主は満面に笑みをたたえている。"
 #else
        "Yipee!",
        "I think I'll retire!",
@@ -545,113 +1848,64 @@ static cptr comment_7d[MAX_COMMENT_7D] =
 };
 
 
-/*
+/*!
+ * @brief 店主が交渉を終えた際の反応を返す処理 /
  * Let a shop-keeper React to a purchase
- *
+ * @param price アイテムの取引額
+ * @param value アイテムの実際価値
+ * @param guess 店主が当初予想していた価値
+ * @return なし
+ * @details 
  * We paid "price", it was worth "value", and we thought it was worth "guess"
  */
-static void purchase_analyze(s32b price, s32b value, s32b guess)
+static void purchase_analyze(PRICE price, PRICE value, PRICE guess)
 {
        /* Item was worthless, but we bought it */
        if ((value <= 0) && (price > value))
        {
-               /* Comment */
                msg_print(comment_7a[randint0(MAX_COMMENT_7A)]);
-
                chg_virtue(V_HONOUR, -1);
                chg_virtue(V_JUSTICE, -1);
-
-               /* Sound */
                sound(SOUND_STORE1);
        }
 
        /* Item was cheaper than we thought, and we paid more than necessary */
        else if ((value < guess) && (price > value))
        {
-               /* Comment */
                msg_print(comment_7b[randint0(MAX_COMMENT_7B)]);
-
                chg_virtue(V_JUSTICE, -1);
-               if (one_in_(4))
-                       chg_virtue(V_HONOUR, -1);
-
-               /* Sound */
+               if (one_in_(4)) chg_virtue(V_HONOUR, -1);
                sound(SOUND_STORE2);
        }
 
        /* Item was a good bargain, and we got away with it */
        else if ((value > guess) && (value < (4 * guess)) && (price < value))
        {
-               /* Comment */
                msg_print(comment_7c[randint0(MAX_COMMENT_7C)]);
-
-               if (one_in_(4))
-                       chg_virtue(V_HONOUR, -1);
-               else if (one_in_(4))
-                       chg_virtue(V_HONOUR, 1);
-
-               /* Sound */
+               if (one_in_(4)) chg_virtue(V_HONOUR, -1);
+               else if (one_in_(4)) chg_virtue(V_HONOUR, 1);
                sound(SOUND_STORE3);
        }
 
        /* Item was a great bargain, and we got away with it */
        else if ((value > guess) && (price < value))
        {
-               /* Comment */
                msg_print(comment_7d[randint0(MAX_COMMENT_7D)]);
-
-               if (one_in_(2))
-                       chg_virtue(V_HONOUR, -1);
-               if (one_in_(4))
-                       chg_virtue(V_HONOUR, 1);
-
-               if (10 * price < value)
-                       chg_virtue(V_SACRIFICE, 1);
-
-               /* Sound */
+               if (one_in_(2)) chg_virtue(V_HONOUR, -1);
+               if (one_in_(4)) chg_virtue(V_HONOUR, 1);
+               if (10 * price < value) chg_virtue(V_SACRIFICE, 1);
                sound(SOUND_STORE4);
        }
 }
 
 
 
-
-
-#ifdef JP
-/* ÆüËܸìÈǤξì¹ç¤Ï¾å¤ÎÊý¤Ë°ÜÆ°¤·¤Æ¤¢¤ê¤Þ¤¹ */
-#else
-/*
- * We store the current "store number" here so everyone can access it
- */
-static int cur_store_num = 7;
-
-/*
- * We store the current "store page" here so everyone can access it
- */
-static int store_top = 0;
-
-/*
- * We store the current "store pointer" here so everyone can access it
- */
-static store_type *st_ptr = NULL;
-
-/*
- * We store the current "owner type" here so everyone can access it
- */
-static owner_type *ot_ptr = NULL;
-#endif
-
 /*
  * We store the current "store feat" here so everyone can access it
  */
 static int cur_store_feat;
 
 
-
-
-
-
-
 /*
  * Buying and selling adjustments for race combinations.
  * Entry[owner][player] gives the basic "cost inflation".
@@ -661,7 +1915,7 @@ static byte rgold_adj[MAX_RACES][MAX_RACES] =
        /*Hum, HfE, Elf,  Hal, Gno, Dwa, HfO, HfT, Dun, HiE, Barbarian,
         HfOg, HGn, HTn, Cyc, Yek, Klc, Kbd, Nbl, DkE, Drc, Mind Flayer,
         Imp,  Glm, Skl, Zombie, Vampire, Spectre, Fairy, Beastman, Ent,
-        Angel, Demon, Kuta*/
+        Angel, Demon, Kuta*/
 
        /* Human */
        { 100, 105, 105, 110, 113, 115, 120, 125, 100, 105, 100,
@@ -873,7 +2127,7 @@ static byte rgold_adj[MAX_RACES][MAX_RACES] =
          110, 110, 112, 122, 110, 110, 110, 115, 110, 120, 120,
          110, 101, 115, 110 },
 
-       /* Kuta */
+       /* Kutar */
        { 110, 110, 105, 105, 110, 115, 115, 115, 110, 105, 110,
          115, 115, 115, 115, 115, 115, 115, 115, 115, 115, 115,
          115, 115, 125, 125, 125, 125, 105, 115, 105,  95, 140,
@@ -888,25 +2142,27 @@ static byte rgold_adj[MAX_RACES][MAX_RACES] =
 
 
 
-
-/*
+/*!
+ * @brief 店舗価格を決定する /
  * Determine the price of an item (qty one) in a store.
- *
+ * @param o_ptr 店舗に並べるオブジェクト構造体の参照ポインタ
+ * @param greed 店主の強欲度
+ * @param flip TRUEならば店主にとっての買取価格、FALSEなら売出価格を計算
+ * @return なし
+ * @details 
+ * <pre>
  * This function takes into account the player's charisma, and the
  * shop-keepers friendliness, and the shop-keeper's base greed, but
  * never lets a shop-keeper lose money in a transaction.
- *
  * The "greed" value should exceed 100 when the player is "buying" the
  * item, and should be less than 100 when the player is "selling" it.
- *
  * Hack -- the black market always charges twice as much as it should.
- *
  * Charisma adjustment runs from 80 to 130
  * Racial adjustment runs from 95 to 130
- *
  * Since greed/charisma/racial adjustments are centered at 100, we need
  * to adjust (by 200) to extract a usable multiplier.  Note that the
  * "greed" value is always something (?).
+ * </pre>
  */
 static s32b price_item(object_type *o_ptr, int greed, bool flip)
 {
@@ -973,14 +2229,20 @@ static s32b price_item(object_type *o_ptr, int greed, bool flip)
 }
 
 
-/*
+/*!
+ * @brief 安価な消耗品の販売数を増やし、低確率で割引にする /
  * Certain "cheap" objects should be created in "piles"
+ * @param o_ptr 店舗に並べるオブジェクト構造体の参照ポインタ
+ * @return なし
+ * @details 
+ * <pre>
  * Some objects can be sold at a "discount" (in small piles)
+ * </pre>
  */
 static void mass_produce(object_type *o_ptr)
 {
        int size = 1;
-       int discount = 0;
+       DISCOUNT_RATE discount = 0;
 
        s32b cost = object_value(o_ptr);
 
@@ -1021,6 +2283,7 @@ static void mass_produce(object_type *o_ptr)
                case TV_CRUSADE_BOOK:
                case TV_MUSIC_BOOK:
                case TV_HISSATSU_BOOK:
+               case TV_HEX_BOOK:
                {
                        if (cost <= 50L) size += damroll(2, 3);
                        if (cost <= 500L) size += damroll(1, 3);
@@ -1088,12 +2351,6 @@ static void mass_produce(object_type *o_ptr)
                                if (cost < 1601L) size += damroll(1, 5);
                                else if (cost < 3201L) size += damroll(1, 3);
                        }
-
-                       /* Ensure that mass-produced rods and wands get the correct pvals. */
-                       if ((o_ptr->tval == TV_ROD) || (o_ptr->tval == TV_WAND))
-                       {
-                               o_ptr->pval *= size;
-                       }
                        break;
                }
        }
@@ -1121,18 +2378,8 @@ static void mass_produce(object_type *o_ptr)
                discount = 90;
        }
 
-
        if (o_ptr->art_name)
        {
-               if (cheat_peek && discount)
-               {
-#ifdef JP
-msg_print("¥é¥ó¥À¥à¥¢¡¼¥Æ¥£¥Õ¥¡¥¯¥È¤ÏÃÍ°ú¤­¤Ê¤·¡£");
-#else
-                       msg_print("No discount on random artifacts.");
-#endif
-
-               }
                discount = 0;
        }
 
@@ -1141,14 +2388,26 @@ msg_print("
 
        /* Save the total pile size */
        o_ptr->number = size - (size * discount / 100);
+
+       /* Ensure that mass-produced rods and wands get the correct pvals. */
+       if ((o_ptr->tval == TV_ROD) || (o_ptr->tval == TV_WAND))
+       {
+               o_ptr->pval *= (PARAMETER_VALUE)o_ptr->number;
+       }
 }
 
 
 
-/*
+/*!
+ * @brief 店舗に並べた品を同一品であるかどうか判定する /
  * Determine if a store item can "absorb" another item
- *
+ * @param o_ptr 判定するオブジェクト構造体の参照ポインタ1
+ * @param j_ptr 判定するオブジェクト構造体の参照ポインタ2
+ * @return 同一扱いできるならTRUEを返す
+ * @details 
+ * <pre>
  * See "object_similar()" for the same function for the "player"
+ * </pre>
  */
 static bool store_object_similar(object_type *o_ptr, object_type *j_ptr)
 {
@@ -1202,8 +2461,16 @@ static bool store_object_similar(object_type *o_ptr, object_type *j_ptr)
 }
 
 
-/*
+/*!
+ * @brief 店舗に並べた品を重ね合わせできるかどうか判定する /
  * Allow a store item to absorb another item
+ * @param o_ptr 判定するオブジェクト構造体の参照ポインタ1
+ * @param j_ptr 判定するオブジェクト構造体の参照ポインタ2
+ * @return 重ね合わせできるならTRUEを返す
+ * @details 
+ * <pre>
+ * See "object_similar()" for the same function for the "player"
+ * </pre>
  */
 static void store_object_absorb(object_type *o_ptr, object_type *j_ptr)
 {
@@ -1229,15 +2496,20 @@ static void store_object_absorb(object_type *o_ptr, object_type *j_ptr)
 }
 
 
-/*
+/*!
+ * @brief 店舗に品を置くスペースがあるかどうかの判定を返す /
  * Check to see if the shop will be carrying too many objects  -RAK-
+ * @param o_ptr 店舗に置きたいオブジェクト構造体の参照ポインタ
+ * @return 置き場がないなら0、重ね合わせできるアイテムがあるなら-1、スペースがあるなら1を返す。
+ * @details 
+ * <pre>
  * Note that the shop, just like a player, will not accept things
  * it cannot hold.     Before, one could "nuke" potions this way.
- *
  * Return value is now int:
  *  0 : No space
  * -1 : Can be combined to existing slot.
  *  1 : Cannot be combined but there are empty spaces.
+ * </pre>
  */
 static int store_check_num(object_type *o_ptr)
 {
@@ -1247,6 +2519,15 @@ static int store_check_num(object_type *o_ptr)
        /* The "home" acts like the player */
        if ((cur_store_num == STORE_HOME) || (cur_store_num == STORE_MUSEUM))
        {
+               bool old_stack_force_notes = stack_force_notes;
+               bool old_stack_force_costs = stack_force_costs;
+
+               if (cur_store_num != STORE_HOME)
+               {
+                       stack_force_notes = FALSE;
+                       stack_force_costs = FALSE;
+               }
+
                /* Check all the items */
                for (i = 0; i < st_ptr->stock_num; i++)
                {
@@ -1254,7 +2535,22 @@ static int store_check_num(object_type *o_ptr)
                        j_ptr = &st_ptr->stock[i];
 
                        /* Can the new object be combined with the old one? */
-                       if (object_similar(j_ptr, o_ptr)) return -1;
+                       if (object_similar(j_ptr, o_ptr))
+                       {
+                               if (cur_store_num != STORE_HOME)
+                               {
+                                       stack_force_notes = old_stack_force_notes;
+                                       stack_force_costs = old_stack_force_costs;
+                               }
+
+                               return -1;
+                       }
+               }
+
+               if (cur_store_num != STORE_HOME)
+               {
+                       stack_force_notes = old_stack_force_notes;
+                       stack_force_costs = old_stack_force_costs;
                }
        }
 
@@ -1274,8 +2570,8 @@ static int store_check_num(object_type *o_ptr)
 
        /* Free space is always usable */
        /*
-        * ¥ª¥×¥·¥ç¥ó powerup_home ¤¬ÀßÄꤵ¤ì¤Æ¤¤¤ë¤È
-        * ²æ¤¬²È¤¬ 20 ¥Ú¡¼¥¸¤Þ¤Ç»È¤¨¤ë
+        * オプション powerup_home が設定されていると
+        * 我が家が 20 ページまで使える
         */
        if ((cur_store_num == STORE_HOME) && ( powerup_home == FALSE )) {
                if (st_ptr->stock_num < ((st_ptr->stock_size) / 10)) {
@@ -1292,10 +2588,14 @@ static int store_check_num(object_type *o_ptr)
        return 0;
 }
 
-
+/*!
+ * @brief オブジェクトが祝福されているかの判定を返す /
+ * @param o_ptr 判定したいオブジェクト構造体の参照ポインタ
+ * @return アイテムが祝福されたアイテムならばTRUEを返す
+ */
 static bool is_blessed(object_type *o_ptr)
 {
-       u32b flgs[TR_FLAG_SIZE];
+       BIT_FLAGS flgs[TR_FLAG_SIZE];
        object_flags(o_ptr, flgs);
        if (have_flag(flgs, TR_BLESSED)) return (TRUE);
        else return (FALSE);
@@ -1303,9 +2603,12 @@ static bool is_blessed(object_type *o_ptr)
 
 
 
-/*
+/*!
+ * @brief オブジェクトが所定の店舗で引き取れるかどうかを返す /
  * Determine if the current store will purchase the given item
- *
+ * @param o_ptr 判定したいオブジェクト構造体の参照ポインタ
+ * @return アイテムが買い取れるならばTRUEを返す
+ * @note
  * Note that a shop-keeper must refuse to buy "worthless" items
  */
 static bool store_will_buy(object_type *o_ptr)
@@ -1468,6 +2771,7 @@ static bool store_will_buy(object_type *o_ptr)
                                case TV_CRAFT_BOOK:
                                case TV_DAEMON_BOOK:
                                case TV_MUSIC_BOOK:
+                               case TV_HEX_BOOK:
                                case TV_AMULET:
                                case TV_RING:
                                case TV_STAFF:
@@ -1504,6 +2808,7 @@ static bool store_will_buy(object_type *o_ptr)
                                case TV_DAEMON_BOOK:
                                case TV_CRUSADE_BOOK:
                                case TV_MUSIC_BOOK:
+                               case TV_HEX_BOOK:
                                        break;
                                default:
                                        return (FALSE);
@@ -1512,7 +2817,7 @@ static bool store_will_buy(object_type *o_ptr)
                }
        }
 
-       /* XXX XXX XXX Ignore "worthless" items */
+       /* Ignore "worthless" items */
        if (object_value(o_ptr) <= 0) return (FALSE);
 
        /* Assume okay */
@@ -1520,15 +2825,18 @@ static bool store_will_buy(object_type *o_ptr)
 }
 
 
-/*
- * Combine and reorder items in the home
+/*!
+ * @brief 現在の町の指定された店舗のアイテムを整理する /
+ * Combine and reorder items in store.
+ * @param store_num 店舗ID
+ * @return 実際に整理が行われたならばTRUEを返す。
  */
 bool combine_and_reorder_home(int store_num)
 {
        int         i, j, k;
        s32b        o_value;
        object_type forge, *o_ptr, *j_ptr;
-       bool        flag = FALSE, combined_or_reordered;
+       bool        flag = FALSE, combined;
        store_type  *old_st_ptr = st_ptr;
        bool        old_stack_force_notes = stack_force_notes;
        bool        old_stack_force_costs = stack_force_costs;
@@ -1542,12 +2850,11 @@ bool combine_and_reorder_home(int store_num)
 
        do
        {
-               combined_or_reordered = FALSE;
+               combined = FALSE;
 
                /* Combine the items in the home (backwards) */
                for (i = st_ptr->stock_num - 1; i > 0; i--)
                {
-                       /* Get the item */
                        o_ptr = &st_ptr->stock[i];
 
                        /* Skip empty items */
@@ -1558,7 +2865,6 @@ bool combine_and_reorder_home(int store_num)
                        {
                                int max_num;
 
-                               /* Get the item */
                                j_ptr = &st_ptr->stock[j];
 
                                /* Skip empty items */
@@ -1593,8 +2899,8 @@ bool combine_and_reorder_home(int store_num)
                                        }
                                        else
                                        {
-                                               int old_num = o_ptr->number;
-                                               int remain = j_ptr->number + o_ptr->number - max_num;
+                                               ITEM_NUMBER old_num = o_ptr->number;
+                                               ITEM_NUMBER remain = j_ptr->number + o_ptr->number - max_num;
 
                                                /* Add together the item counts */
                                                object_absorb(j_ptr, o_ptr);
@@ -1616,58 +2922,53 @@ bool combine_and_reorder_home(int store_num)
                                        }
 
                                        /* Take note */
-                                       combined_or_reordered = TRUE;
-
-                                       /* Done */
+                                       combined = TRUE;
                                        break;
                                }
                        }
                }
 
-               /* Re-order the items in the home (forwards) */
-               for (i = 0; i < st_ptr->stock_num; i++)
-               {
-                       /* Get the item */
-                       o_ptr = &st_ptr->stock[i];
-
-                       /* Skip empty slots */
-                       if (!o_ptr->k_idx) continue;
+               flag |= combined;
+       }
+       while (combined);
 
-                       /* Get the "value" of the item */
-                       o_value = object_value(o_ptr);
+       /* Re-order the items in the home (forwards) */
+       for (i = 0; i < st_ptr->stock_num; i++)
+       {
+               o_ptr = &st_ptr->stock[i];
 
-                       /* Scan every occupied slot */
-                       for (j = 0; j < st_ptr->stock_num; j++)
-                       {
-                               if (object_sort_comp(o_ptr, o_value, &st_ptr->stock[j])) break;
-                       }
+               /* Skip empty slots */
+               if (!o_ptr->k_idx) continue;
 
-                       /* Never move down */
-                       if (j >= i) continue;
+               /* Get the "value" of the item */
+               o_value = object_value(o_ptr);
 
-                       /* Take note */
-                       combined_or_reordered = TRUE;
+               /* Scan every occupied slot */
+               for (j = 0; j < st_ptr->stock_num; j++)
+               {
+                       if (object_sort_comp(o_ptr, o_value, &st_ptr->stock[j])) break;
+               }
 
-                       /* Get local object */
-                       j_ptr = &forge;
+               /* Never move down */
+               if (j >= i) continue;
 
-                       /* Save a copy of the moving item */
-                       object_copy(j_ptr, &st_ptr->stock[i]);
+               /* Take note */
+               flag = TRUE;
+               j_ptr = &forge;
 
-                       /* Slide the objects */
-                       for (k = i; k > j; k--)
-                       {
-                               /* Slide the item */
-                               object_copy(&st_ptr->stock[k], &st_ptr->stock[k - 1]);
-                       }
+               /* Save a copy of the moving item */
+               object_copy(j_ptr, &st_ptr->stock[i]);
 
-                       /* Insert the moving item */
-                       object_copy(&st_ptr->stock[j], j_ptr);
+               /* Slide the objects */
+               for (k = i; k > j; k--)
+               {
+                       /* Slide the item */
+                       object_copy(&st_ptr->stock[k], &st_ptr->stock[k - 1]);
                }
 
-               flag |= combined_or_reordered;
+               /* Insert the moving item */
+               object_copy(&st_ptr->stock[j], j_ptr);
        }
-       while (combined_or_reordered);
 
        st_ptr = old_st_ptr;
        if (store_num != STORE_HOME)
@@ -1680,15 +2981,18 @@ bool combine_and_reorder_home(int store_num)
 }
 
 
-/*
+/*!
+ * @brief 我が家にオブジェクトを加える /
  * Add the item "o_ptr" to the inventory of the "Home"
- *
+ * @param o_ptr 加えたいオブジェクトの構造体参照ポインタ
+ * @return 収めた先のID
+ * @details
+ * <pre>
  * In all cases, return the slot (or -1) where the object was placed
- *
  * Note that this is a hacked up version of "inven_carry()".
- *
  * Also note that it may not correctly "adapt" to "knowledge" bacoming
  * known, the player may have to pick stuff up and drop it again.
+ * </pre>
  */
 static int home_carry(object_type *o_ptr)
 {
@@ -1696,7 +3000,14 @@ static int home_carry(object_type *o_ptr)
        s32b                       value;
        int     i;
        object_type *j_ptr;
+       bool old_stack_force_notes = stack_force_notes;
+       bool old_stack_force_costs = stack_force_costs;
 
+       if (cur_store_num != STORE_HOME)
+       {
+               stack_force_notes = FALSE;
+               stack_force_costs = FALSE;
+       }
 
        /* Check each existing item (try to combine) */
        for (slot = 0; slot < st_ptr->stock_num; slot++)
@@ -1710,15 +3021,27 @@ static int home_carry(object_type *o_ptr)
                        /* Save the new number of items */
                        object_absorb(j_ptr, o_ptr);
 
+                       if (cur_store_num != STORE_HOME)
+                       {
+                               stack_force_notes = old_stack_force_notes;
+                               stack_force_costs = old_stack_force_costs;
+                       }
+
                        /* All done */
                        return (slot);
                }
        }
 
+       if (cur_store_num != STORE_HOME)
+       {
+               stack_force_notes = old_stack_force_notes;
+               stack_force_costs = old_stack_force_costs;
+       }
+
        /* No space? */
        /*
-        * ±£¤·µ¡Ç½: ¥ª¥×¥·¥ç¥ó powerup_home ¤¬ÀßÄꤵ¤ì¤Æ¤¤¤ë¤È
-        *           ²æ¤¬²È¤¬ 20 ¥Ú¡¼¥¸¤Þ¤Ç»È¤¨¤ë
+        * 隠し機能: オプション powerup_home が設定されていると
+        *           我が家が 20 ページまで使える
         */
        /* No space? */
        if ((cur_store_num != STORE_HOME) || (powerup_home == TRUE)) {
@@ -1763,17 +3086,18 @@ static int home_carry(object_type *o_ptr)
 }
 
 
-/*
+/*!
+ * @brief 店舗にオブジェクトを加える /
  * Add the item "o_ptr" to a real stores inventory.
- *
- * If the item is "worthless", it is thrown away (except in the home).
- *
- * If the item cannot be combined with an object already in the inventory,
- * make a new slot for it, and calculate its "per item" price. Note that
- * this price will be negative, since the price will not be "fixed" yet.
- * Adding an item to a "fixed" price stack will not change the fixed price.
- *
+ * @param o_ptr 加えたいオブジェクトの構造体参照ポインタ
+ * @return 収めた先のID
+ * @details
+ * <pre>
  * In all cases, return the slot (or -1) where the object was placed
+ * Note that this is a hacked up version of "inven_carry()".
+ * Also note that it may not correctly "adapt" to "knowledge" bacoming
+ * known, the player may have to pick stuff up and drop it again.
+ * </pre>
  */
 static int store_carry(object_type *o_ptr)
 {
@@ -1867,16 +3191,24 @@ static int store_carry(object_type *o_ptr)
 }
 
 
-/*
+/*!
+ * @brief 店舗のオブジェクト数を増やす /
+ * Add the item "o_ptr" to a real stores inventory.
+ * @param item 増やしたいアイテムのID
+ * @param num 増やしたい数
+ * @return なし
+ * @details
+ * <pre>
  * Increase, by a given amount, the number of a certain item
  * in a certain store. This can result in zero items.
+ * </pre>
+ * @todo numは本来ITEM_NUMBER型にしたい。
  */
-static void store_item_increase(int item, int num)
+static void store_item_increase(INVENTORY_IDX item, int num)
 {
        int             cnt;
        object_type *o_ptr;
 
-       /* Get the item */
        o_ptr = &st_ptr->stock[item];
 
        /* Verify the number */
@@ -1886,19 +3218,21 @@ static void store_item_increase(int item, int num)
        num = cnt - o_ptr->number;
 
        /* Save the new number */
-       o_ptr->number += num;
+       o_ptr->number += (ITEM_NUMBER)num;
 }
 
 
-/*
+/*!
+ * @brief 店舗のオブジェクト数を削除する /
  * Remove a slot if it is empty
+ * @param item 削除したいアイテムのID
+ * @return なし
  */
-static void store_item_optimize(int item)
+static void store_item_optimize(INVENTORY_IDX item)
 {
        int             j;
        object_type *o_ptr;
 
-       /* Get the item */
        o_ptr = &st_ptr->stock[item];
 
        /* Must exist */
@@ -1920,11 +3254,16 @@ static void store_item_optimize(int item)
        object_wipe(&st_ptr->stock[j]);
 }
 
-
-/*
+/*!
+ * @brief ブラックマーケット用の無価値品の排除判定 /
  * This function will keep 'crap' out of the black market.
+ * @param o_ptr 判定したいオブジェクトの構造体参照ポインタ
+ * @return ブラックマーケットにとって無価値な品ならばTRUEを返す
+ * @details
+ * <pre>
  * Crap is defined as any item that is "available" elsewhere
  * Based on a suggestion by "Lee Vogt" <lvogt@cig.mcel.mot.com>
+ * </pre>
  */
 static bool black_market_crap(object_type *o_ptr)
 {
@@ -1959,16 +3298,22 @@ static bool black_market_crap(object_type *o_ptr)
 }
 
 
-/*
+/*!
+ * @brief 店舗の品揃え変化のためにアイテムを削除する /
  * Attempt to delete (some of) a random item from the store
+ * @return なし
+ * @details
+ * <pre>
  * Hack -- we attempt to "maintain" piles of items when possible.
+ * </pre>
  */
 static void store_delete(void)
 {
-       int what, num;
+       INVENTORY_IDX what;
+       int num;
 
        /* Pick a random slot */
-       what = randint0(st_ptr->stock_num);
+       what = (INVENTORY_IDX)randint0(st_ptr->stock_num);
 
        /* Determine how many items are here */
        num = st_ptr->stock[what].number;
@@ -1991,20 +3336,25 @@ static void store_delete(void)
 }
 
 
-/*
+/*!
+ * @brief 店舗の品揃え変化のためにアイテムを追加する /
  * Creates a random item and gives it to a store
+ * @return なし
+ * @details
+ * <pre>
  * This algorithm needs to be rethought.  A lot.
  * Currently, "normal" stores use a pre-built array.
- *
  * Note -- the "level" given to "obj_get_num()" is a "favored"
  * level, that is, there is a much higher chance of getting
  * items with a level approaching that of the given level...
- *
  * Should we check for "permission" to have the given item?
+ * </pre>
  */
 static void store_create(void)
 {
-       int i, tries, level;
+       OBJECT_IDX i;
+       int tries;
+       DEPTH level;
 
        object_type forge;
        object_type *q_ptr;
@@ -2040,8 +3390,6 @@ static void store_create(void)
                        level = rand_range(1, STORE_OBJ_LEVEL);
                }
 
-
-               /* Get local object */
                q_ptr = &forge;
 
                /* Create a new object of the chosen kind */
@@ -2103,11 +3451,13 @@ static void store_create(void)
 }
 
 
-
-/*
+/*!
+ * @brief 店舗の割引対象外にするかどうかを判定 /
  * Eliminate need to bargain if player has haggled well in the past
+ * @param minprice アイテムの最低販売価格
+ * @return 割引を禁止するならTRUEを返す。
  */
-static bool noneedtobargain(s32b minprice)
+static bool noneedtobargain(PRICE minprice)
 {
        s32b good = st_ptr->good_buy;
        s32b bad = st_ptr->bad_buy;
@@ -2126,10 +3476,15 @@ static bool noneedtobargain(s32b minprice)
 }
 
 
-/*
+/*!
+ * @brief 店主の持つプレイヤーに対する売買の良し悪し経験を記憶する /
  * Update the bargain info
+ * @param price 実際の取引価格
+ * @param minprice 店主の提示した価格
+ * @param num 売買数 
+ * @return なし
  */
-static void updatebargain(s32b price, s32b minprice, int num)
+static void updatebargain(PRICE price, PRICE minprice, int num)
 {
        /* Hack -- auto-haggle */
        if (!manual_haggle) return;
@@ -2159,44 +3514,41 @@ static void updatebargain(s32b price, s32b minprice, int num)
 }
 
 
-
-/*
+/*!
+ * @brief 店の商品リストを再表示する /
  * Re-displays a single store entry
+ * @param pos 表示行
+ * @return なし
  */
 static void display_entry(int pos)
 {
        int             i, cur_col;
-       object_type     *o_ptr;
+       object_type *o_ptr;
        s32b            x;
 
-       char            o_name[MAX_NLEN];
+       GAME_TEXT o_name[MAX_NLEN];
        char            out_val[160];
 
-
        int maxwid = 75;
 
-       /* Get the item */
        o_ptr = &st_ptr->stock[pos];
 
        /* Get the "offset" */
-       i = (pos % 12);
+       i = (pos % store_bottom);
 
        /* Label it, clear the line --(-- */
-       (void)sprintf(out_val, "%c) ", I2A(i));
+       (void)sprintf(out_val, "%c) ", ((i > 25) ? toupper(I2A(i - 26)) : I2A(i)));
        prt(out_val, i+6, 0);
 
        cur_col = 3;
        if (show_item_graph)
        {
-               byte a = object_attr(o_ptr);
-               char c = object_char(o_ptr);
-
-#ifdef AMIGA
-               if (a & 0x80)
-                       a |= 0x40;
-#endif
+               TERM_COLOR a = object_attr(o_ptr);
+               SYMBOL_CODE c = object_char(o_ptr);
 
                Term_queue_bigchar(cur_col, i + 6, a, c, 0, 0);
+               if (use_bigtile) cur_col++;
+
                cur_col += 2;
        }
 
@@ -2208,18 +3560,17 @@ static void display_entry(int pos)
                /* Leave room for weights, if necessary -DRS- */
                if (show_weights) maxwid -= 10;
 
-               /* Describe the object */
                object_desc(o_name, o_ptr, 0);
                o_name[maxwid] = '\0';
                c_put_str(tval_to_attr[o_ptr->tval], o_name, i+6, cur_col);
 
                /* Show weights */
-               if (show_weights)
+               if(show_weights)
                {
                        /* Only show the weight of an individual item */
-                       int wgt = o_ptr->weight;
+                       WEIGHT wgt = o_ptr->weight;
 #ifdef JP
-                       sprintf(out_val, "%3d.%1d kg", lbtokg1(wgt) , lbtokg2(wgt) );
+                       sprintf(out_val, "%3d.%1d kg", lbtokg1(wgt) , lbtokg2(wgt));
                        put_str(out_val, i+6, 67);
 #else
                        (void)sprintf(out_val, "%3d.%d lb", wgt / 10, wgt % 10);
@@ -2266,7 +3617,7 @@ static void display_entry(int pos)
 
                        /* Actually draw the price (not fixed) */
 #ifdef JP
-(void)sprintf(out_val, "%9ld¸Ç", (long)x);
+(void)sprintf(out_val, "%9ld", (long)x);
 #else
                        (void)sprintf(out_val, "%9ld F", (long)x);
 #endif
@@ -2302,8 +3653,11 @@ static void display_entry(int pos)
 }
 
 
-/*
+/*!
+ * @brief 店の商品リストを表示する /
  * Displays a store's inventory                -RAK-
+ * @return なし
+ * @details
  * All prices are listed as "per individual object".  -BEN-
  */
 static void display_inventory(void)
@@ -2311,7 +3665,7 @@ static void display_inventory(void)
        int i, k;
 
        /* Display the next 12 items */
-       for (k = 0; k < 12; k++)
+       for (k = 0; k < store_bottom; k++)
        {
                /* Do not display "dead" items */
                if (store_top + k >= st_ptr->stock_num) break;
@@ -2321,7 +3675,7 @@ static void display_inventory(void)
        }
 
        /* Erase the extra lines and the "more" prompt */
-       for (i = k; i < 13; i++) prt("", i + 6, 0);
+       for (i = k; i < store_bottom + 1; i++) prt("", i + 6, 0);
 
        /* Assume "no current page" */
 #ifdef JP
@@ -2332,11 +3686,11 @@ static void display_inventory(void)
 
 
        /* Visual reminder of "more items" */
-       if (st_ptr->stock_num > 12)
+       if (st_ptr->stock_num > store_bottom)
        {
                /* Show "more" reminder (after the last item) */
 #ifdef JP
-               prt("-³¤¯-", k + 6, 3);
+               prt("-続く-", k + 6, 3);
 #else
                prt("-more-", k + 6, 3);
 #endif
@@ -2345,73 +3699,73 @@ static void display_inventory(void)
                /* Indicate the "current page" */
                /* Trailing spaces are to display (Page xx) and (Page x) */
 #ifdef JP
-               put_str(format("(%d¥Ú¡¼¥¸)  ", store_top/12 + 1), 5, 20);
+               put_str(format("(%dページ)  ", store_top/store_bottom + 1), 5, 20);
 #else
-               put_str(format("(Page %d)  ", store_top/12 + 1), 5, 20);
+               put_str(format("(Page %d)  ", store_top/store_bottom + 1), 5, 20);
 #endif
 
        }
+
+       if (cur_store_num == STORE_HOME || cur_store_num == STORE_MUSEUM)
+       {
+               k = st_ptr->stock_size;
+
+               if (cur_store_num == STORE_HOME && !powerup_home) k /= 10;
+#ifdef JP
+               put_str(format("アイテム数:  %4d/%4d", st_ptr->stock_num, k), 19 + xtra_stock, 27);
+#else
+               put_str(format("Objects:  %4d/%4d", st_ptr->stock_num, k), 19 + xtra_stock, 30);
+#endif
+       }
 }
 
 
-/*
+/*!
+ * @brief プレイヤーの所持金を表示する /
  * Displays players gold                                       -RAK-
+ * @return なし
+ * @details
  */
 static void store_prt_gold(void)
 {
        char out_val[64];
 
 #ifdef JP
-       prt("¼ê»ý¤Á¤Î¤ª¶â: ", 19, 53);
+       prt("手持ちのお金: ", 19 + xtra_stock, 53);
 #else
-       prt("Gold Remaining: ", 19, 53);
+       prt("Gold Remaining: ", 19 + xtra_stock, 53);
 #endif
 
 
        sprintf(out_val, "%9ld", (long)p_ptr->au);
-       prt(out_val, 19, 68);
+       prt(out_val, 19 + xtra_stock, 68);
 }
 
-
-/*
+/*!
+ * @brief 店舗情報全体を表示するメインルーチン /
  * Displays store (after clearing screen)              -RAK-
+ * @return なし
+ * @details
  */
 static void display_store(void)
 {
        char buf[80];
 
-
-       /* Clear screen */
        Term_clear();
 
        /* The "Home" is special */
        if (cur_store_num == STORE_HOME)
        {
                /* Put the owner name */
-#ifdef JP
-               put_str("²æ¤¬²È", 3, 31);
-#else
-               put_str("Your Home", 3, 30);
-#endif
-
+               put_str(_("我が家", "Your Home"), 3, 31);
 
                /* Label the item descriptions */
-#ifdef JP
-               put_str("¥¢¥¤¥Æ¥à¤Î°ìÍ÷", 5, 4);
-#else
-               put_str("Item Description", 5, 3);
-#endif
-
+               put_str(_("アイテムの一覧", "Item Description"), 5, 4);
 
                /* If showing weights, show label */
                if (show_weights)
                {
-#ifdef JP
-                       put_str("½Å¤µ", 5, 72);
-#else
-                       put_str("Weight", 5, 70);
-#endif
-
+                       put_str(_("  重さ", "Weight"), 5, 70);
                }
        }
 
@@ -2419,39 +3773,24 @@ static void display_store(void)
        else if (cur_store_num == STORE_MUSEUM)
        {
                /* Put the owner name */
-#ifdef JP
-               put_str("Çîʪ´Û", 3, 31);
-#else
-               put_str("Museum", 3, 30);
-#endif
-
+               put_str(_("博物館", "Museum"), 3, 31);
 
                /* Label the item descriptions */
-#ifdef JP
-               put_str("¥¢¥¤¥Æ¥à¤Î°ìÍ÷", 5, 4);
-#else
-               put_str("Item Description", 5, 3);
-#endif
-
+               put_str(_("アイテムの一覧", "Item Description"), 5, 4);
 
                /* If showing weights, show label */
                if (show_weights)
                {
-#ifdef JP
-                       put_str("½Å¤µ", 5, 72);
-#else
-                       put_str("Weight", 5, 70);
-#endif
-
+                       put_str(_("  重さ", "Weight"), 5, 70);
                }
        }
 
        /* Normal stores */
        else
        {
-               cptr store_name = (f_name + f_info[cur_store_feat].name);
-               cptr owner_name = (ot_ptr->owner_name);
-               cptr race_name = race_info[ot_ptr->owner_race].title;
+               concptr store_name = (f_name + f_info[cur_store_feat].name);
+               concptr owner_name = (ot_ptr->owner_name);
+               concptr race_name = race_info[ot_ptr->owner_race].title;
 
                /* Put the owner name and race */
                sprintf(buf, "%s (%s)", owner_name, race_name);
@@ -2462,31 +3801,17 @@ static void display_store(void)
                prt(buf, 3, 50);
 
                /* Label the item descriptions */
-#ifdef JP
-               put_str("¾¦ÉʤΰìÍ÷", 5, 7);
-#else
-               put_str("Item Description", 5, 3);
-#endif
+               put_str(_("商品の一覧", "Item Description"), 5, 5);
 
 
                /* If showing weights, show label */
                if (show_weights)
                {
-#ifdef JP
-                       put_str("½Å¤µ", 5, 62);
-#else
-                       put_str("Weight", 5, 60);
-#endif
-
+                       put_str(_("  重さ", "Weight"), 5, 60);
                }
 
                /* Label the asking price (in stores) */
-#ifdef JP
-               put_str("²Á³Ê", 5, 73);
-#else
-               put_str("Price", 5, 72);
-#endif
-
+               put_str(_(" 価格", "Price"), 5, 72);
        }
 
        /* Display the current gold */
@@ -2498,16 +3823,20 @@ static void display_store(void)
 
 
 
-/*
+/*!
+ * @brief 店舗からアイテムを選択する /
  * Get the ID of a store item and return its value     -RAK-
+ * @param com_val 選択IDを返す参照ポインタ
+ * @param pmt メッセージキャプション
+ * @param i 選択範囲の最小値
+ * @param j 選択範囲の最大値
+ * @return 実際に選択したらTRUE、キャンセルしたらFALSE
  */
-static int get_stock(int *com_val, cptr pmt, int i, int j)
+static int get_stock(COMMAND_CODE *com_val, concptr pmt, int i, int j)
 {
-       char    command;
-
-       char    out_val[160];
-
-#ifdef ALLOW_REPEAT /* TNB */
+       char command;
+       char out_val[160];
+       char lo, hi;
 
        /* Get the item index */
        if (repeat_pull(com_val))
@@ -2520,36 +3849,40 @@ static int get_stock(int *com_val, cptr pmt, int i, int j)
                }
        }
 
-#endif /* ALLOW_REPEAT -- TNB */
-
-       /* Paranoia XXX XXX XXX */
+       /* Paranoia */
        msg_print(NULL);
 
-
        /* Assume failure */
        *com_val = (-1);
 
        /* Build the prompt */
+       lo = I2A(i);
+       hi = (j > 25) ? toupper(I2A(j - 26)) : I2A(j);
 #ifdef JP
-       (void)sprintf(out_val, "(%s:%c-%c, ESC¤ÇÃæÃÇ) %s",
-               (((cur_store_num == STORE_HOME) || (cur_store_num == STORE_MUSEUM)) ? "¥¢¥¤¥Æ¥à" : "¾¦ÉÊ"), 
-                                 I2A(i), I2A(j), pmt);
+       (void)sprintf(out_val, "(%s:%c-%c, ESCで中断) %s",
+               (((cur_store_num == STORE_HOME) || (cur_store_num == STORE_MUSEUM)) ? "アイテム" : "商品"), 
+                                 lo, hi, pmt);
 #else
        (void)sprintf(out_val, "(Items %c-%c, ESC to exit) %s",
-                                 I2A(i), I2A(j), pmt);
+                                 lo, hi, pmt);
 #endif
 
 
        /* Ask until done */
        while (TRUE)
        {
-               int k;
+               COMMAND_CODE k;
 
                /* Escape */
                if (!get_com(out_val, &command, FALSE)) break;
 
                /* Convert */
-               k = (islower(command) ? A2I(command) : -1);
+               if (islower(command))
+                       k = A2I(command);
+               else if (isupper(command))
+                       k = A2I(tolower(command)) + 26;
+               else
+                       k = -1;
 
                /* Legal responses */
                if ((k >= i) && (k <= j))
@@ -2558,29 +3891,25 @@ static int get_stock(int *com_val, cptr pmt, int i, int j)
                        break;
                }
 
-               /* Oops */
                bell();
        }
 
        /* Clear the prompt */
        prt("", 0, 0);
 
-       /* Cancel */
        if (command == ESCAPE) return (FALSE);
 
-#ifdef ALLOW_REPEAT /* TNB */
-
        repeat_push(*com_val);
 
-#endif /* ALLOW_REPEAT -- TNB */
-
        /* Success */
        return (TRUE);
 }
 
 
-/*
+/*!
+ * @brief 店主の不満度を増やし、プレイヤーを締め出す判定と処理を行う /
  * Increase the insult counter and get angry if too many -RAK-
+ * @return プレイヤーを締め出す場合TRUEを返す
  */
 static int increase_insults(void)
 {
@@ -2610,8 +3939,10 @@ static int increase_insults(void)
 }
 
 
-/*
+/*!
+ * @brief 店主の不満度を減らす /
  * Decrease insults                            -RAK-
+ * @return プレイヤーを締め出す場合TRUEを返す
  */
 static void decrease_insults(void)
 {
@@ -2620,8 +3951,10 @@ static void decrease_insults(void)
 }
 
 
-/*
+/*!
+ * @brief 店主の不満度が増えた場合のみのメッセージを表示する /
  * Have insulted while haggling                        -RAK-
+ * @return プレイヤーを締め出す場合TRUEを返す
  */
 static int haggle_insults(void)
 {
@@ -2647,14 +3980,20 @@ static bool allow_inc = FALSE;
 static s32b last_inc = 0L;
 
 
-/*
+/*!
+ * @brief 交渉価格を確認と認証の是非を行う /
  * Get a haggle
+ * @param pmt メッセージ
+ * @param poffer 別途価格提示をした場合の値を返す参照ポインタ
+ * @param price 現在の交渉価格
+ * @param final 最終確定価格ならばTRUE
+ * @return プレイヤーを締め出す場合TRUEを返す
  */
-static int get_haggle(cptr pmt, s32b *poffer, s32b price, int final)
+static int get_haggle(concptr pmt, s32b *poffer, PRICE price, int final)
 {
        s32b            i;
 
-       cptr            p;
+       concptr         p;
 
        char                            buf[128];
        char            out_val[160];
@@ -2668,7 +4007,7 @@ static int get_haggle(cptr pmt, s32b *poffer, s32b price, int final)
        if (final)
        {
 #ifdef JP
-               sprintf(buf, "%s [¾µÂú] ", pmt);
+               sprintf(buf, "%s [承諾] ", pmt);
 #else
                sprintf(buf, "%s [accept] ", pmt);
 #endif
@@ -2704,7 +4043,7 @@ static int get_haggle(cptr pmt, s32b *poffer, s32b price, int final)
        }
 
 
-       /* Paranoia XXX XXX XXX */
+       /* Paranoia */
        msg_print(NULL);
 
 
@@ -2784,7 +4123,7 @@ static int get_haggle(cptr pmt, s32b *poffer, s32b price, int final)
 
                /* Warning */
 #ifdef JP
-               msg_print("Ãͤ¬¤ª¤«¤·¤¤¤Ç¤¹¡£");
+               msg_print("値がおかしいです。");
 #else
                msg_print("Invalid response.");
 #endif
@@ -2797,14 +4136,21 @@ static int get_haggle(cptr pmt, s32b *poffer, s32b price, int final)
 }
 
 
-/*
+/*!
+ * @brief 店主がプレイヤーからの交渉価格を判断する /
  * Receive an offer (from the player)
- *
+ * @param pmt メッセージ
+ * @param poffer 店主からの交渉価格を返す参照ポインタ
+ * @param last_offer 現在の交渉価格
+ * @param factor 店主の価格基準倍率
+ * @param price アイテムの実価値
+ * @param final 最終価格確定ならばTRUE
+ * @return プレイヤーの価格に対して不服ならばTRUEを返す /
  * Return TRUE if offer is NOT okay
  */
-static bool receive_offer(cptr pmt, s32b *poffer,
+static bool receive_offer(concptr pmt, s32b *poffer,
                          s32b last_offer, int factor,
-                         s32b price, int final)
+                         PRICE price, int final)
 {
        /* Haggle till done */
        while (TRUE)
@@ -2827,9 +4173,12 @@ static bool receive_offer(cptr pmt, s32b *poffer,
 }
 
 
-/*
+/*!
+ * @brief プレイヤーが購入する時の値切り処理メインルーチン /
  * Haggling routine                            -RAK-
- *
+ * @param o_ptr オブジェクトの構造体参照ポインタ
+ * @param price 最終価格を返す参照ポインタ
+ * @return プレイヤーの価格に対して店主が不服ならばTRUEを返す /
  * Return TRUE if purchase is NOT successful
  */
 static bool purchase_haggle(object_type *o_ptr, s32b *price)
@@ -2844,9 +4193,9 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
        bool            cancel = FALSE;
 
 #ifdef JP
-       cptr pmt = "Ä󼨲Á³Ê";
+       concptr pmt = "提示価格";
 #else
-       cptr            pmt = "Asking";
+       concptr         pmt = "Asking";
 #endif
 
 
@@ -2871,7 +4220,7 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                {
                        /* Message summary */
 #ifdef JP
-                       msg_print("·ë¶É¤³¤Î¶â³Û¤Ë¤Þ¤È¤Þ¤Ã¤¿¡£");
+                       msg_print("結局この金額にまとまった。");
 #else
                        msg_print("You eventually agree upon the price.");
 #endif
@@ -2884,7 +4233,7 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                {
                        /* Message summary */
 #ifdef JP
-                       msg_print("¤¹¤ó¤Ê¤ê¤È¤³¤Î¶â³Û¤Ë¤Þ¤È¤Þ¤Ã¤¿¡£");
+                       msg_print("すんなりとこの金額にまとまった。");
 #else
                        msg_print("You quickly agree upon the price.");
 #endif
@@ -2900,7 +4249,7 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
 
                /* Go to final offer */
 #ifdef JP
-               pmt = "ºÇ½ªÄ󼨲Á³Ê";
+               pmt = "最終提示価格";
 #else
                pmt = "Final Offer";
 #endif
@@ -2939,7 +4288,7 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                        (void)sprintf(out_val, "%s :  %ld", pmt, (long)cur_ask);
                        put_str(out_val, 1, 0);
 #ifdef JP
-                       cancel = receive_offer("Ä󼨤¹¤ë¶â³Û? ",
+                       cancel = receive_offer("提示する金額? ",
 #else
                        cancel = receive_offer("What do you offer? ",
 #endif
@@ -2994,7 +4343,7 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                                final = TRUE;
                                cur_ask = final_ask;
 #ifdef JP
-                               pmt = "ºÇ½ªÄ󼨲Á³Ê";
+                               pmt = "最終提示価格";
 #else
                                pmt = "Final Offer";
 #endif
@@ -3019,7 +4368,7 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                                allow_inc = TRUE;
                                prt("", 1, 0);
 #ifdef JP
-(void)sprintf(out_val, "Á°²ó¤ÎÄ󼨶â³Û: $%ld",
+(void)sprintf(out_val, "前回の提示金額: $%ld",
 #else
                                (void)sprintf(out_val, "Your last offer: %ld",
 #endif
@@ -3031,10 +4380,8 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                }
        }
 
-       /* Cancel */
        if (cancel) return (TRUE);
 
-       /* Update bargaining info */
        updatebargain(*price, final_ask, o_ptr->number);
 
        /* Do not cancel */
@@ -3042,9 +4389,12 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
 }
 
 
-/*
+/*!
+ * @brief プレイヤーが売却する時の値切り処理メインルーチン /
  * Haggling routine                            -RAK-
- *
+ * @param o_ptr オブジェクトの構造体参照ポインタ
+ * @param price 最終価格を返す参照ポインタ
+ * @return プレイヤーの価格に対して店主が不服ならばTRUEを返す /
  * Return TRUE if purchase is NOT successful
  */
 static bool sell_haggle(object_type *o_ptr, s32b *price)
@@ -3057,9 +4407,9 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
        int     annoyed = 0, final = FALSE;
        bool    cancel = FALSE;
 #ifdef JP
-       cptr pmt = "Ä󼨶â³Û";
+       concptr pmt = "提示金額";
 #else
-       cptr    pmt = "Offer";
+       concptr    pmt = "Offer";
 #endif
 
        char    out_val[160];
@@ -3090,9 +4440,8 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
                /* No reason to haggle */
                if (final_ask >= purse)
                {
-                       /* Message */
 #ifdef JP
-                       msg_print("¨ºÂ¤Ë¤³¤Î¶â³Û¤Ë¤Þ¤È¤Þ¤Ã¤¿¡£");
+                       msg_print("即座にこの金額にまとまった。");
 #else
                        msg_print("You instantly agree upon the price.");
 #endif
@@ -3106,9 +4455,8 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
                /* No need to haggle */
                else if (noneed)
                {
-                       /* Message */
 #ifdef JP
-                       msg_print("·ë¶É¤³¤Î¶â³Û¤Ë¤Þ¤È¤Þ¤Ã¤¿¡£");
+                       msg_print("結局この金額にまとまった。");
 #else
                        msg_print("You eventually agree upon the price.");
 #endif
@@ -3121,7 +4469,7 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
                {
                        /* Message summary */
 #ifdef JP
-                       msg_print("¤¹¤ó¤Ê¤ê¤È¤³¤Î¶â³Û¤Ë¤Þ¤È¤Þ¤Ã¤¿¡£");
+                       msg_print("すんなりとこの金額にまとまった。");
 #else
                        msg_print("You quickly agree upon the price.");
 #endif
@@ -3135,7 +4483,7 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
                /* Final offer */
                final = TRUE;
 #ifdef JP
-               pmt = "ºÇ½ªÄ󼨶â³Û";
+               pmt = "最終提示金額";
 #else
                pmt = "Final Offer";
 #endif
@@ -3147,7 +4495,7 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
        final_ask *= o_ptr->number;
 
 
-       /* XXX XXX XXX Display commands */
+       /* Display commands */
 
        /* Haggling parameters */
        min_per = ot_ptr->haggle_per;
@@ -3173,7 +4521,7 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
                        (void)sprintf(out_val, "%s :  %ld", pmt, (long)cur_ask);
                        put_str(out_val, 1, 0);
 #ifdef JP
-                       cancel = receive_offer("Ä󼨤¹¤ë²Á³Ê? ",
+                       cancel = receive_offer("提示する価格? ",
 #else
                        cancel = receive_offer("What price do you ask? ",
 #endif
@@ -3231,7 +4579,7 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
                                cur_ask = final_ask;
                                final = TRUE;
 #ifdef JP
-                               pmt = "ºÇ½ªÄ󼨶â³Û";
+                               pmt = "最終提示金額";
 #else
                                pmt = "Final Offer";
 #endif
@@ -3241,7 +4589,7 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
                                {
                                        flag = TRUE;
 #ifdef JP
-                               /* Äɲà$0 ¤ÇÇ㤤¼è¤é¤ì¤Æ¤·¤Þ¤¦¤Î¤òËɻߠBy FIRST*/
+                               /* 追加 $0 で買い取られてしまうのを防止 By FIRST*/
                                        cancel = TRUE;
 #endif
                                        (void)(increase_insults());
@@ -3260,7 +4608,7 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
                                prt("", 1, 0);
                                (void)sprintf(out_val,
 #ifdef JP
-                                             "Á°²ó¤ÎÄ󼨲Á³Ê $%ld", (long)last_offer);
+                                             "前回の提示価格 $%ld", (long)last_offer);
 #else
                                                          "Your last bid %ld", (long)last_offer);
 #endif
@@ -3271,10 +4619,8 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
                }
        }
 
-       /* Cancel */
        if (cancel) return (TRUE);
 
-       /* Update bargaining info */
        updatebargain(*price, final_ask, o_ptr->number);
 
        /* Do not cancel */
@@ -3282,30 +4628,33 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
 }
 
 
-/*
+/*!
+ * @brief 店からの購入処理のメインルーチン /
  * Buy an item from a store                    -RAK-
+ * @return なし
  */
 static void store_purchase(void)
 {
-       int i, amt, choice;
-       int item, item_new;
+       int i, choice;
+       COMMAND_CODE item, item_new;
+
+       ITEM_NUMBER amt;
 
-       s32b price, best;
+       PRICE price, best;
 
        object_type forge;
        object_type *j_ptr;
 
        object_type *o_ptr;
 
-       char o_name[MAX_NLEN];
+       GAME_TEXT o_name[MAX_NLEN];
 
        char out_val[160];
 
-
        if (cur_store_num == STORE_MUSEUM)
        {
 #ifdef JP
-               msg_print("Çîʪ´Û¤«¤é¼è¤ê½Ð¤¹¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£");
+               msg_print("博物館から取り出すことはできません。");
 #else
                msg_print("Museum.");
 #endif
@@ -3317,14 +4666,14 @@ static void store_purchase(void)
        {
                if (cur_store_num == STORE_HOME)
 #ifdef JP
-                       msg_print("²æ¤¬²È¤Ë¤Ï²¿¤âÃÖ¤¤¤Æ¤¢¤ê¤Þ¤»¤ó¡£");
+                       msg_print("我が家には何も置いてありません。");
 #else
                        msg_print("Your home is empty.");
 #endif
 
                else
 #ifdef JP
-                       msg_print("¸½ºß¾¦Éʤκ߸ˤòÀڤ餷¤Æ¤¤¤Þ¤¹¡£");
+                       msg_print("現在商品の在庫を切らしています。");
 #else
                        msg_print("I am currently out of stock.");
 #endif
@@ -3337,20 +4686,20 @@ static void store_purchase(void)
        i = (st_ptr->stock_num - store_top);
 
        /* And then restrict it to the current page */
-       if (i > 12) i = 12;
+       if (i > store_bottom) i = store_bottom;
 
        /* Prompt */
 #ifdef JP
-       /* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤Î»þ¤ÏÊ̤Υá¥Ã¥»¡¼¥¸ */
+       /* ã\83\96ã\83©ã\83\83ã\82¯ã\83\9eã\83¼ã\82±ã\83\83ã\83\88ã\81®æ\99\82ã\81¯å\88¥ã\81®ã\83¡ã\83\83ã\82»ã\83¼ã\82¸ */
        switch( cur_store_num ) {
                case 7:
-                       sprintf(out_val, "¤É¤Î¥¢¥¤¥Æ¥à¤ò¼è¤ê¤Þ¤¹¤«? ");
+                       sprintf(out_val, "どのアイテムを取りますか? ");
                        break;
                case 6:
-                       sprintf(out_val, "¤É¤ì? ");
+                       sprintf(out_val, "どれ? ");
                        break;
                default:
-                       sprintf(out_val, "¤É¤ÎÉÊʪ¤¬Íߤ·¤¤¤ó¤À¤¤? ");
+                       sprintf(out_val, "どの品物が欲しいんだい? ");
                        break;
        }
 #else
@@ -3376,8 +4725,6 @@ static void store_purchase(void)
 
        /* Assume the player wants just one of them */
        amt = 1;
-
-       /* Get local object */
        j_ptr = &forge;
 
        /* Get a copy of the object */
@@ -3395,12 +4742,7 @@ static void store_purchase(void)
        /* Hack -- require room in pack */
        if (!inven_carry_okay(j_ptr))
        {
-#ifdef JP
-msg_print("¤½¤ó¤Ê¤Ë¥¢¥¤¥Æ¥à¤ò»ý¤Æ¤Ê¤¤¡£");
-#else
-               msg_print("You cannot carry that many different items.");
-#endif
-
+               msg_print(_("そんなにアイテムを持てない。", "You cannot carry that many different items."));
                return;
        }
 
@@ -3414,12 +4756,7 @@ msg_print("
                if ((cur_store_num != STORE_HOME) &&
                    (o_ptr->ident & IDENT_FIXED))
                {
-#ifdef JP
-msg_format("°ì¤Ä¤Ë¤Ä¤­ $%ld¤Ç¤¹¡£", (long)(best));
-#else
-                       msg_format("That costs %ld gold per item.", (long)(best));
-#endif
-
+                       msg_format(_("一つにつき $%ldです。", "That costs %ld gold per item."), (long)(best));
                }
 
                /* Get a quantity */
@@ -3428,8 +4765,6 @@ msg_format("
                /* Allow user abort */
                if (amt <= 0) return;
        }
-
-       /* Get local object */
        j_ptr = &forge;
 
        /* Get desired object */
@@ -3447,12 +4782,7 @@ msg_format("
        /* Hack -- require room in pack */
        if (!inven_carry_okay(j_ptr))
        {
-#ifdef JP
-               msg_print("¥¶¥Ã¥¯¤Ë¤½¤Î¥¢¥¤¥Æ¥à¤òÆþ¤ì¤ë·ä´Ö¤¬¤Ê¤¤¡£");
-#else
-               msg_print("You cannot carry that many items.");
-#endif
-
+               msg_print(_("ザックにそのアイテムを入れる隙間がない。", "You cannot carry that many items."));
                return;
        }
 
@@ -3474,14 +4804,7 @@ msg_format("
                {
                        /* Describe the object (fully) */
                        object_desc(o_name, j_ptr, 0);
-
-                       /* Message */
-#ifdef JP
-msg_format("%s(%c)¤ò¹ØÆþ¤¹¤ë¡£", o_name, I2A(item));
-#else
-                       msg_format("Buying %s (%c).", o_name, I2A(item));
-#endif
-
+                       msg_format(_("%s(%c)を購入する。", "Buying %s (%c)."), o_name, I2A(item));
                        msg_print(NULL);
 
                        /* Haggle for a final price */
@@ -3529,12 +4852,7 @@ msg_format("%s(%c)
                                /* Describe the transaction */
                                object_desc(o_name, j_ptr, 0);
 
-                               /* Message */
-#ifdef JP
-msg_format("%s¤ò $%ld¤Ç¹ØÆþ¤·¤Þ¤·¤¿¡£", o_name, (long)price);
-#else
-                               msg_format("You bought %s for %ld gold.", o_name, (long)price);
-#endif
+                               msg_format(_("%sを $%ldで購入しました。", "You bought %s for %ld gold."), o_name, (long)price);
 
                                strcpy(record_o_name, o_name);
                                record_turn = turn;
@@ -3555,14 +4873,7 @@ msg_format("%s
 
                                /* Describe the final result */
                                object_desc(o_name, &inventory[item_new], 0);
-
-                               /* Message */
-#ifdef JP
-               msg_format("%s(%c)¤ò¼ê¤ËÆþ¤ì¤¿¡£", o_name, index_to_label(item_new));
-#else
-                               msg_format("You have %s (%c).",
-                                                  o_name, index_to_label(item_new));
-#endif
+                               msg_format(_("%s(%c)を手に入れた。", "You have %s (%c)."), o_name, index_to_label(item_new));
 
                                /* Auto-inscription */
                                autopick_alter_item(item_new, FALSE);
@@ -3572,8 +4883,6 @@ msg_format("%s
                                {
                                        o_ptr->pval -= j_ptr->pval;
                                }
-
-                               /* Handle stuff */
                                handle_stuff();
 
                                /* Note how many slots the store used to have */
@@ -3590,13 +4899,7 @@ msg_format("%s
                                        if (one_in_(STORE_SHUFFLE))
                                        {
                                                char buf[80];
-                                               /* Message */
-#ifdef JP
-                                               msg_print("Ź¼ç¤Ï°úÂष¤¿¡£");
-#else
-                                               msg_print("The shopkeeper retires.");
-#endif
-
+                                               msg_print(_("店主は引退した。", "The shopkeeper retires."));
 
                                                /* Shuffle the store */
                                                store_shuffle(cur_store_num);
@@ -3613,13 +4916,7 @@ msg_format("%s
                                        /* Maintain */
                                        else
                                        {
-                                               /* Message */
-#ifdef JP
-                                               msg_print("Ź¼ç¤Ï¿·¤¿¤Êºß¸Ë¤ò¼è¤ê½Ð¤·¤¿¡£");
-#else
-                                               msg_print("The shopkeeper brings out some new stock.");
-#endif
-
+                                               msg_print(_("店主は新たな在庫を取り出した。", "The shopkeeper brings out some new stock."));
                                        }
 
                                        /* New inventory */
@@ -3631,8 +4928,6 @@ msg_format("%s
 
                                        /* Start over */
                                        store_top = 0;
-
-                                       /* Redraw everything */
                                        display_inventory();
                                }
 
@@ -3640,9 +4935,7 @@ msg_format("%s
                                else if (st_ptr->stock_num != i)
                                {
                                        /* Pick the correct screen */
-                                       if (store_top >= st_ptr->stock_num) store_top -= 12;
-
-                                       /* Redraw everything */
+                                       if (store_top >= st_ptr->stock_num) store_top -= store_bottom;
                                        display_inventory();
                                }
 
@@ -3658,12 +4951,7 @@ msg_format("%s
                        else
                        {
                                /* Simple message (no insult) */
-#ifdef JP
-                               msg_print("¤ª¶â¤¬Â­¤ê¤Þ¤»¤ó¡£");
-#else
-                               msg_print("You do not have enough gold.");
-#endif
-
+                               msg_print(_("お金が足りません。", "You do not have enough gold."));
                        }
                }
        }
@@ -3682,15 +4970,7 @@ msg_format("%s
                /* Describe just the result */
                object_desc(o_name, &inventory[item_new], 0);
 
-               /* Message */
-#ifdef JP
-                               msg_format("%s(%c)¤ò¼è¤Ã¤¿¡£",
-#else
-               msg_format("You have %s (%c).",
-#endif
- o_name, index_to_label(item_new));
-
-               /* Handle stuff */
+               msg_format(_("%s(%c)を取った。", "You have %s (%c)."), o_name, index_to_label(item_new));
                handle_stuff();
 
                /* Take note if we take the last one */
@@ -3705,7 +4985,6 @@ msg_format("%s
                /* Hack -- Item is still here */
                if (i == st_ptr->stock_num)
                {
-                       /* Redraw everything */
                        if (combined_or_reordered) display_inventory();
 
                        /* Redraw the item */
@@ -3719,9 +4998,7 @@ msg_format("%s
                        if (st_ptr->stock_num == 0) store_top = 0;
 
                        /* Nothing left on that screen */
-                       else if (store_top >= st_ptr->stock_num) store_top -= 12;
-
-                       /* Redraw everything */
+                       else if (store_top >= st_ptr->stock_num) store_top -= store_bottom;
                        display_inventory();
 
                        chg_virtue(V_SACRIFICE, 1);
@@ -3733,112 +5010,67 @@ msg_format("%s
 }
 
 
-/*
+/*!
+ * @brief 店からの売却処理のメインルーチン /
  * Sell an item to the store (or home)
+ * @return なし
  */
 static void store_sell(void)
 {
        int choice;
-       int item, item_pos;
+       OBJECT_IDX item;
+       int item_pos;
        int amt;
 
-       s32b price, value, dummy;
+       PRICE price, value, dummy;
 
        object_type forge;
        object_type *q_ptr;
 
        object_type *o_ptr;
 
-       cptr q, s;
+       concptr q, s;
 
-       char o_name[MAX_NLEN];
+       GAME_TEXT o_name[MAX_NLEN];
 
 
        /* Prepare a prompt */
        if (cur_store_num == STORE_HOME)
-#ifdef JP
-       q = "¤É¤Î¥¢¥¤¥Æ¥à¤òÃÖ¤­¤Þ¤¹¤«? ";
-#else
-               q = "Drop which item? ";
-#endif
+               q = _("どのアイテムを置きますか? ", "Drop which item? ");
 
        else if (cur_store_num == STORE_MUSEUM)
-#ifdef JP
-       q = "¤É¤Î¥¢¥¤¥Æ¥à¤ò´ó£¤·¤Þ¤¹¤«? ";
-#else
-               q = "Give which item? ";
-#endif
+               q = _("どのアイテムを寄贈しますか? ", "Give which item? ");
 
        else
-#ifdef JP
-               q = "¤É¤Î¥¢¥¤¥Æ¥à¤òÇä¤ê¤Þ¤¹¤«? ";
-#else
-               q = "Sell which item? ";
-#endif
+               q = _("どのアイテムを売りますか? ", "Sell which item? ");
 
-
-       item_tester_no_ryoute = TRUE;
        /* Only allow items the store will buy */
        item_tester_hook = store_will_buy;
 
-       /* Get an item */
-       /* ²æ¤¬²È¤Ç¤ª¤«¤·¤Ê¥á¥Ã¥»¡¼¥¸¤¬½Ð¤ë¥ª¥ê¥¸¥Ê¥ë¤Î¥Ð¥°¤ò½¤Àµ */
+       /* 我が家でおかしなメッセージが出るオリジナルのバグを修正 */
        if (cur_store_num == STORE_HOME)
        {
-#ifdef JP
-               s = "ÃÖ¤±¤ë¥¢¥¤¥Æ¥à¤ò»ý¤Ã¤Æ¤¤¤Þ¤»¤ó¡£";
-#else
-               s = "You don't have any item to drop.";
-#endif
+               s = _("置けるアイテムを持っていません。", "You don't have any item to drop.");
        }
        else if (cur_store_num == STORE_MUSEUM)
        {
-#ifdef JP
-               s = "´ó£¤Ç¤­¤ë¥¢¥¤¥Æ¥à¤ò»ý¤Ã¤Æ¤¤¤Þ¤»¤ó¡£";
-#else
-               s = "You don't have any item to give.";
-#endif
-       }
-       else
-       {
-#ifdef JP
-               s = "Íߤ·¤¤Êª¤¬¤Ê¤¤¤Ç¤¹¤Í¤¨¡£";
-#else
-               s = "You have nothing that I want.";
-#endif
-       }
-
-       if (!get_item(&item, q, s, (USE_EQUIP | USE_INVEN | USE_FLOOR))) return;
-
-       /* Get the item (in the pack) */
-       if (item >= 0)
-       {
-               o_ptr = &inventory[item];
+               s = _("寄贈できるアイテムを持っていません。", "You don't have any item to give.");
        }
-
-       /* Get the item (on the floor) */
        else
        {
-               o_ptr = &o_list[0 - item];
+               s = _("欲しい物がないですねえ。", "You have nothing that I want.");
        }
 
+       o_ptr = choose_object(&item, q, s, (USE_EQUIP | USE_INVEN | USE_FLOOR | IGNORE_BOTHHAND_SLOT));
+       if (!o_ptr) return;
 
        /* Hack -- Cannot remove cursed items */
        if ((item >= INVEN_RARM) && object_is_cursed(o_ptr))
        {
-               /* Oops */
-#ifdef JP
-               msg_print("¤Õ¡¼¤à¡¢¤É¤¦¤ä¤é¤½¤ì¤Ï¼ö¤ï¤ì¤Æ¤¤¤ë¤è¤¦¤À¤Í¡£");
-#else
-               msg_print("Hmmm, it seems to be cursed.");
-#endif
-
-
-               /* Nope */
+               msg_print(_("ふーむ、どうやらそれは呪われているようだね。", "Hmmm, it seems to be cursed."));
                return;
        }
 
-
        /* Assume one item */
        amt = 1;
 
@@ -3851,8 +5083,6 @@ static void store_sell(void)
                /* Allow user abort */
                if (amt <= 0) return;
        }
-
-       /* Get local object */
        q_ptr = &forge;
 
        /* Get a copy of the object */
@@ -3884,25 +5114,13 @@ static void store_sell(void)
        if (!store_check_num(q_ptr))
        {
                if (cur_store_num == STORE_HOME)
-#ifdef JP
-                       msg_print("²æ¤¬²È¤Ë¤Ï¤â¤¦ÃÖ¤¯¾ì½ê¤¬¤Ê¤¤¡£");
-#else
-                       msg_print("Your home is full.");
-#endif
+                       msg_print(_("我が家にはもう置く場所がない。", "Your home is full."));
 
                else if (cur_store_num == STORE_MUSEUM)
-#ifdef JP
-                       msg_print("Çîʪ´Û¤Ï¤â¤¦ËþÇÕ¤À¡£");
-#else
-                       msg_print("Museum is full.");
-#endif
+                       msg_print(_("博物館はもう満杯だ。", "Museum is full."));
 
                else
-#ifdef JP
-                       msg_print("¤¹¤¤¤Þ¤»¤ó¤¬¡¢Å¹¤Ë¤Ï¤â¤¦ÃÖ¤¯¾ì½ê¤¬¤¢¤ê¤Þ¤»¤ó¡£");
-#else
-                       msg_print("I have not the room in my store to keep it.");
-#endif
+                       msg_print(_("すいませんが、店にはもう置く場所がありません。", "I have not the room in my store to keep it."));
 
                return;
        }
@@ -3912,11 +5130,7 @@ static void store_sell(void)
        if ((cur_store_num != STORE_HOME) && (cur_store_num != STORE_MUSEUM))
        {
                /* Describe the transaction */
-#ifdef JP
-               msg_format("%s(%c)¤òÇäµÑ¤¹¤ë¡£", o_name, index_to_label(item));
-#else
-               msg_format("Selling %s (%c).", o_name, index_to_label(item));
-#endif
+               msg_format(_("%s(%c)を売却する。", "Selling %s (%c)."), o_name, index_to_label(item));
 
                msg_print(NULL);
 
@@ -3952,10 +5166,7 @@ static void store_sell(void)
                        /* Get the "apparent" value */
                        dummy = object_value(q_ptr) * q_ptr->number;
 
-                       /* Identify it */
                        identify_item(o_ptr);
-
-                       /* Get local object */
                        q_ptr = &forge;
 
                        /* Get a copy of the object */
@@ -3983,11 +5194,7 @@ static void store_sell(void)
                        object_desc(o_name, q_ptr, 0);
 
                        /* Describe the result (in message buffer) */
-#ifdef JP
-msg_format("%s¤ò $%ld¤ÇÇäµÑ¤·¤Þ¤·¤¿¡£", o_name, (long)price);
-#else
-                       msg_format("You sold %s for %ld gold.", o_name, (long)price);
-#endif
+                       msg_format(_("%sを $%ldで売却しました。", "You sold %s for %ld gold."), o_name, (long)price);
 
                        if (record_sell) do_cmd_write_nikki(NIKKI_SELL, 0, o_name);
 
@@ -4015,8 +5222,6 @@ msg_format("%s
                                autopick_alter_item(item, FALSE);
 
                        inven_item_optimize(item);
-
-                       /* Handle stuff */
                        handle_stuff();
 
                        /* The store gets that (known) item */
@@ -4025,7 +5230,7 @@ msg_format("%s
                        /* Re-display if item is now in store */
                        if (item_pos >= 0)
                        {
-                               store_top = (item_pos / 12) * 12;
+                               store_top = (item_pos / store_bottom) * store_bottom;
                                display_inventory();
                        }
                }
@@ -4039,48 +5244,27 @@ msg_format("%s
 
                if (-1 == store_check_num(q_ptr))
                {
-#ifdef JP
-                       msg_print("¤½¤ì¤ÈƱ¤¸ÉÊʪ¤Ï´û¤ËÇîʪ´Û¤Ë¤¢¤ë¤è¤¦¤Ç¤¹¡£");
-#else
-                       msg_print("The same object as it is already in the Museum.");
-#endif
+                       msg_print(_("それと同じ品物は既に博物館にあるようです。", "The same object as it is already in the Museum."));
                }
                else
                {
-#ifdef JP
-                       msg_print("Çîʪ´Û¤Ë´ó£¤·¤¿¤â¤Î¤Ï¼è¤ê½Ð¤¹¤³¤È¤¬¤Ç¤­¤Þ¤»¤ó¡ª¡ª");
-#else
-                       msg_print("You cannot take items which is given to the Museum back!!");
-#endif
+                       msg_print(_("博物館に寄贈したものは取り出すことができません!!", "You cannot take items which is given to the Museum back!!"));
                }
-#ifdef JP
-               if (!get_check(format("ËÜÅö¤Ë%s¤ò´ó£¤·¤Þ¤¹¤«¡©", o2_name))) return;
-#else
-               if (!get_check(format("Really give %s to the Museum? ", o2_name))) return;
-#endif
 
-               /* Identify it */
+               if (!get_check(format(_("本当に%sを寄贈しますか?", "Really give %s to the Museum? "), o2_name))) return;
+
                identify_item(q_ptr);
                q_ptr->ident |= IDENT_MENTAL;
 
                /* Distribute charges of wands/rods */
                distribute_charges(o_ptr, q_ptr, amt);
-
-               /* Describe */
-#ifdef JP
-               msg_format("%s¤òÃÖ¤¤¤¿¡£(%c)", o_name, index_to_label(item));
-#else
-               msg_format("You drop %s (%c).", o_name, index_to_label(item));
-#endif
-
+               msg_format(_("%sを置いた。(%c)", "You drop %s (%c)."), o_name, index_to_label(item));
                choice = 0;
 
                /* Take it from the players inventory */
                inven_item_increase(item, -amt);
                inven_item_describe(item);
                inven_item_optimize(item);
-
-               /* Handle stuff */
                handle_stuff();
 
                /* Let the home carry it */
@@ -4089,7 +5273,7 @@ msg_format("%s
                /* Update store display */
                if (item_pos >= 0)
                {
-                       store_top = (item_pos / 12) * 12;
+                       store_top = (item_pos / store_bottom) * store_bottom;
                        display_inventory();
                }
        }
@@ -4098,13 +5282,7 @@ msg_format("%s
        {
                /* Distribute charges of wands/rods */
                distribute_charges(o_ptr, q_ptr, amt);
-
-               /* Describe */
-#ifdef JP
-               msg_format("%s¤òÃÖ¤¤¤¿¡£(%c)", o_name, index_to_label(item));
-#else
-               msg_format("You drop %s (%c).", o_name, index_to_label(item));
-#endif
+               msg_format(_("%sを置いた。(%c)", "You drop %s (%c)."), o_name, index_to_label(item));
 
                choice = 0;
 
@@ -4112,8 +5290,6 @@ msg_format("%s
                inven_item_increase(item, -amt);
                inven_item_describe(item);
                inven_item_optimize(item);
-
-               /* Handle stuff */
                handle_stuff();
 
                /* Let the home carry it */
@@ -4122,7 +5298,7 @@ msg_format("%s
                /* Update store display */
                if (item_pos >= 0)
                {
-                       store_top = (item_pos / 12) * 12;
+                       store_top = (item_pos / store_bottom) * store_bottom;
                        display_inventory();
                }
        }
@@ -4135,59 +5311,39 @@ msg_format("%s
 }
 
 
-/*
+/*!
+ * @brief 店のアイテムを調べるコマンドのメインルーチン /
  * Examine an item in a store                     -JDL-
+ * @return なし
  */
 static void store_examine(void)
 {
        int         i;
-       int         item;
+       COMMAND_CODE item;
        object_type *o_ptr;
-       char        o_name[MAX_NLEN];
+       GAME_TEXT o_name[MAX_NLEN];
        char        out_val[160];
 
-
        /* Empty? */
        if (st_ptr->stock_num <= 0)
        {
                if (cur_store_num == STORE_HOME)
-#ifdef JP
-                       msg_print("²æ¤¬²È¤Ë¤Ï²¿¤âÃÖ¤¤¤Æ¤¢¤ê¤Þ¤»¤ó¡£");
-#else
-                       msg_print("Your home is empty.");
-#endif
-
+                       msg_print(_("我が家には何も置いてありません。", "Your home is empty."));
                else if (cur_store_num == STORE_MUSEUM)
-#ifdef JP
-                       msg_print("Çîʪ´Û¤Ë¤Ï²¿¤âÃÖ¤¤¤Æ¤¢¤ê¤Þ¤»¤ó¡£");
-#else
-                       msg_print("Museum is empty.");
-#endif
-
+                       msg_print(_("博物館には何も置いてありません。", "Museum is empty."));
                else
-#ifdef JP
-                       msg_print("¸½ºß¾¦Éʤκ߸ˤòÀڤ餷¤Æ¤¤¤Þ¤¹¡£");
-#else
-                       msg_print("I am currently out of stock.");
-#endif
-
+                       msg_print(_("現在商品の在庫を切らしています。", "I am currently out of stock."));
                return;
        }
 
-
        /* Find the number of objects on this and following pages */
        i = (st_ptr->stock_num - store_top);
 
        /* And then restrict it to the current page */
-       if (i > 12) i = 12;
+       if (i > store_bottom) i = store_bottom;
 
        /* Prompt */
-#ifdef JP
-sprintf(out_val, "¤É¤ì¤òÄ´¤Ù¤Þ¤¹¤«¡©");
-#else
-       sprintf(out_val, "Which item do you want to examine? ");
-#endif
-
+       sprintf(out_val, _("どれを調べますか?", "Which item do you want to examine? "));
 
        /* Get the item number to be examined */
        if (!get_stock(&item, out_val, 0, i - 1)) return;
@@ -4202,59 +5358,37 @@ sprintf(out_val, "
        if (!(o_ptr->ident & IDENT_MENTAL))
        {
                /* This can only happen in the home */
-#ifdef JP
-msg_print("¤³¤Î¥¢¥¤¥Æ¥à¤Ë¤Ä¤¤¤ÆÆäËÃΤäƤ¤¤ë¤³¤È¤Ï¤Ê¤¤¡£");
-#else
-               msg_print("You have no special knowledge about that item.");
-#endif
-
+               msg_print(_("このアイテムについて特に知っていることはない。", "You have no special knowledge about that item."));
                return;
        }
 
-       /* Description */
        object_desc(o_name, o_ptr, 0);
+       msg_format(_("%sを調べている...", "Examining %s..."), o_name);
 
-       /* Describe */
-#ifdef JP
-msg_format("%s¤òÄ´¤Ù¤Æ¤¤¤ë...", o_name);
-#else
-       msg_format("Examining %s...", o_name);
-#endif
-
-
-       /* Describe it fully */
        if (!screen_object(o_ptr, SCROBJ_FORCE_DETAIL))
-#ifdef JP
-msg_print("ÆäËÊѤï¤Ã¤¿¤È¤³¤í¤Ï¤Ê¤¤¤è¤¦¤À¡£");
-#else
-               msg_print("You see nothing special.");
-#endif
-
+               msg_print(_("特に変わったところはないようだ。", "You see nothing special."));
 
        return;
 }
 
 
-/*
+/*!
+ * @brief 博物館のアイテムを除去するコマンドのメインルーチン /
  * Remove an item from museum (Originally from TOband)
+ * @return なし
  */
 static void museum_remove_object(void)
 {
-       int         i;
-       int         item;
+       int i;
+       COMMAND_CODE item;
        object_type *o_ptr;
-       char        o_name[MAX_NLEN];
-       char        out_val[160];
+       GAME_TEXT o_name[MAX_NLEN];
+       char out_val[160];
 
        /* Empty? */
        if (st_ptr->stock_num <= 0)
        {
-#ifdef JP
-               msg_print("Çîʪ´Û¤Ë¤Ï²¿¤âÃÖ¤¤¤Æ¤¢¤ê¤Þ¤»¤ó¡£");
-#else
-               msg_print("Museum is empty.");
-#endif
-
+               msg_print(_("博物館には何も置いてありません。", "Museum is empty."));
                return;
        }
 
@@ -4262,14 +5396,10 @@ static void museum_remove_object(void)
        i = st_ptr->stock_num - store_top;
 
        /* And then restrict it to the current page */
-       if (i > 12) i = 12;
+       if (i > store_bottom) i = store_bottom;
 
        /* Prompt */
-#ifdef JP
-       sprintf(out_val, "¤É¤Î¥¢¥¤¥Æ¥à¤ÎŸ¼¨¤ò¤ä¤á¤µ¤»¤Þ¤¹¤«¡©");
-#else
-       sprintf(out_val, "Which item do you want to order to remove? ");
-#endif
+       sprintf(out_val, _("どのアイテムの展示をやめさせますか?", "Which item do you want to order to remove? "));
 
        /* Get the item number to be removed */
        if (!get_stock(&item, out_val, 0, i - 1)) return;
@@ -4280,23 +5410,12 @@ static void museum_remove_object(void)
        /* Get the actual item */
        o_ptr = &st_ptr->stock[item];
 
-       /* Description */
        object_desc(o_name, o_ptr, 0);
 
-#ifdef JP
-       msg_print("Ÿ¼¨¤ò¤ä¤á¤µ¤»¤¿¥¢¥¤¥Æ¥à¤ÏÆóÅ٤ȸ«¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡ª");
-       if (!get_check(format("ËÜÅö¤Ë%s¤ÎŸ¼¨¤ò¤ä¤á¤µ¤»¤Þ¤¹¤«¡©", o_name))) return;
-#else
-       msg_print("You cannot see items which is removed from the Museum!");
-       if (!get_check(format("Really order to remove %s from the Museum? ", o_name))) return;
-#endif
+       msg_print(_("展示をやめさせたアイテムは二度と見ることはできません!", "You cannot see items which is removed from the Museum!"));
+       if (!get_check(format(_("本当に%sの展示をやめさせますか?", "Really order to remove %s from the Museum? "), o_name))) return;
 
-       /* Message */
-#ifdef JP
-       msg_format("%s¤ÎŸ¼¨¤ò¤ä¤á¤µ¤»¤¿¡£", o_name);
-#else
-       msg_format("You ordered to remove %s.", o_name);
-#endif
+       msg_format(_("%sの展示をやめさせた。", "You ordered to remove %s."), o_name);
 
        /* Remove the items from the home */
        store_item_increase(item, -o_ptr->number);
@@ -4310,9 +5429,7 @@ static void museum_remove_object(void)
        if (st_ptr->stock_num == 0) store_top = 0;
 
        /* Nothing left on that screen */
-       else if (store_top >= st_ptr->stock_num) store_top -= 12;
-
-       /* Redraw everything */
+       else if (store_top >= st_ptr->stock_num) store_top -= store_bottom;
        display_inventory();
 
        return;
@@ -4325,23 +5442,23 @@ static void museum_remove_object(void)
 static bool leave_store = FALSE;
 
 
-/*
+/*!
+ * @brief 店舗処理コマンド選択のメインルーチン /
  * Process a command in a store
- *
+ * @return なし
+ * @note
+ * <pre>
  * Note that we must allow the use of a few "special" commands
  * in the stores which are not allowed in the dungeon, and we
  * must disable some commands which are allowed in the dungeon
  * but not in the stores, to prevent chaos.
+ * </pre>
  */
 static void store_process_command(void)
 {
-#ifdef ALLOW_REPEAT /* TNB */
-
        /* Handle repeating the last command */
        repeat_check();
 
-#endif /* ALLOW_REPEAT -- TNB */
-
        if (rogue_like_commands && command_cmd == 'l')
        {
                command_cmd = 'x';      /* hack! */
@@ -4357,23 +5474,19 @@ static void store_process_command(void)
                        break;
                }
 
-               /* ÆüËܸìÈÇÄɲà*/
-               /* 1 ¥Ú¡¼¥¸Ìá¤ë¥³¥Þ¥ó¥É: ²æ¤¬²È¤Î¥Ú¡¼¥¸¿ô¤¬Â¿¤¤¤Î¤Ç½ÅÊõ¤¹¤ë¤Ï¤º By BUG */
+               /* 日本語版追加 */
+               /* 1 ページ戻るコマンド: 我が家のページ数が多いので重宝するはず By BUG */
                case '-':
                {
-                       if (st_ptr->stock_num <= 12) {
-#ifdef JP
-                               msg_print("¤³¤ì¤ÇÁ´Éô¤Ç¤¹¡£");
-#else
-                               msg_print("Entire inventory is shown.");
-#endif
+                       if (st_ptr->stock_num <= store_bottom) {
+                               msg_print(_("これで全部です。", "Entire inventory is shown."));
                        }
                        else{
-                               store_top -= 12;
+                               store_top -= store_bottom;
                                if ( store_top < 0 )
-                                       store_top = ((st_ptr->stock_num - 1 )/12) * 12;
+                                       store_top = ((st_ptr->stock_num - 1 )/store_bottom) * store_bottom;
                                if ( (cur_store_num == STORE_HOME) && (powerup_home == FALSE) )
-                                       if ( store_top >= 12 ) store_top = 12;
+                                       if ( store_top >= store_bottom ) store_top = store_bottom;
                                display_inventory();
                        }
                        break;
@@ -4382,21 +5495,16 @@ static void store_process_command(void)
                /* Browse */
                case ' ':
                {
-                       if (st_ptr->stock_num <= 12)
+                       if (st_ptr->stock_num <= store_bottom)
                        {
-#ifdef JP
-                               msg_print("¤³¤ì¤ÇÁ´Éô¤Ç¤¹¡£");
-#else
-                               msg_print("Entire inventory is shown.");
-#endif
-
+                               msg_print(_("これで全部です。", "Entire inventory is shown."));
                        }
                        else
                        {
-                               store_top += 12;
+                               store_top += store_bottom;
                                /*
-                                * ±£¤·¥ª¥×¥·¥ç¥ó(powerup_home)¤¬¥»¥Ã¥È¤µ¤ì¤Æ¤¤¤Ê¤¤¤È¤­¤Ï
-                                * ²æ¤¬²È¤Ç¤Ï 2 ¥Ú¡¼¥¸¤Þ¤Ç¤·¤«É½¼¨¤·¤Ê¤¤
+                                * 隠しオプション(powerup_home)がセットされていないときは
+                                * 我が家では 2 ページまでしか表示しない
                                 */
                                if ((cur_store_num == STORE_HOME) && 
                                    (powerup_home == FALSE) && 
@@ -4417,7 +5525,6 @@ static void store_process_command(void)
                        break;
                }
 
-               /* Redraw */
                case KTRL('R'):
                {
                        do_cmd_redraw();
@@ -4506,8 +5613,6 @@ static void store_process_command(void)
                        break;
                }
 
-
-
                /*** Use various objects ***/
 
                /* Browse a book */
@@ -4521,7 +5626,9 @@ static void store_process_command(void)
                        else if (p_ptr->pclass == CLASS_SMITH)
                                do_cmd_kaji(TRUE);
                        else if (p_ptr->pclass == CLASS_MAGIC_EATER)
-                               do_cmd_magic_eater(TRUE);
+                               do_cmd_magic_eater(TRUE, FALSE);
+                       else if (p_ptr->pclass == CLASS_SNIPER)
+                               do_cmd_snipe_browse();
                        else do_cmd_browse();
                        break;
                }
@@ -4697,50 +5804,51 @@ static void store_process_command(void)
                        }
                        else
                        {
-#ifdef JP
-                               msg_print("¤½¤Î¥³¥Þ¥ó¥É¤ÏŹ¤ÎÃæ¤Ç¤Ï»È¤¨¤Þ¤»¤ó¡£");
-#else
-                               msg_print("That command does not work in stores.");
-#endif
+                               msg_print(_("そのコマンドは店の中では使えません。", "That command does not work in stores."));
                        }
-
                        break;
                }
        }
 }
 
 
-/*
- * Enter a store, and interact with it.
- *
+/*!
+ * @brief 店舗処理全体のメインルーチン /
+ * Enter a store, and interact with it. *
+ * @return なし
+ * @note
+ * <pre>
  * Note that we use the standard "request_command()" function
  * to get a command, allowing us to use "command_arg" and all
  * command macros and other nifty stuff, but we use the special
  * "shopping" argument, to force certain commands to be converted
  * into other commands, normally, we convert "p" (pray) and "m"
  * (cast magic) into "g" (get), and "s" (search) into "d" (drop).
+ * </pre>
  */
 void do_cmd_store(void)
 {
-       int         which;
-       int         maintain_num;
-       int         i;
-       cave_type   *c_ptr;
-       bool        need_redraw_store_inv; /* To redraw missiles damage and prices in store */
+       int which;
+       int maintain_num;
+       int i;
+       cave_type *c_ptr;
+       bool need_redraw_store_inv; /* To redraw missiles damage and prices in store */
+       TERM_LEN w, h;
+
+       if(p_ptr->wild_mode) return;
+       Term_get_size(&w, &h);
 
+       /* Calculate stocks per 1 page */
+       xtra_stock = MIN(14+26, ((h > 24) ? (h - 24) : 0));
+       store_bottom = MIN_STOCK + xtra_stock;
 
        /* Access the player grid */
-       c_ptr = &cave[py][px];
+       c_ptr = &cave[p_ptr->y][p_ptr->x];
 
        /* Verify a store */
        if (!cave_have_flag_grid(c_ptr, FF_STORE))
        {
-#ifdef JP
-               msg_print("¤³¤³¤Ë¤ÏŹ¤¬¤¢¤ê¤Þ¤»¤ó¡£");
-#else
-               msg_print("You see no store here.");
-#endif
-
+               msg_print(_("ここには店がありません。", "You see no store here."));
                return;
        }
 
@@ -4756,12 +5864,7 @@ void do_cmd_store(void)
        if ((town[p_ptr->town_num].store[which].store_open >= turn) ||
            (ironman_shops))
        {
-#ifdef JP
-               msg_print("¥É¥¢¤Ë¸°¤¬¤«¤«¤Ã¤Æ¤¤¤ë¡£");
-#else
-               msg_print("The doors are locked.");
-#endif
-
+               msg_print(_("ドアに鍵がかかっている。", "The doors are locked."));
                p_ptr->town_num = old_town_num;
                return;
        }
@@ -4782,26 +5885,19 @@ void do_cmd_store(void)
                town[p_ptr->town_num].store[which].last_visit = turn;
        }
 
-       /* Forget the lite */
        forget_lite();
-
-       /* Forget the view */
        forget_view();
 
-
        /* Hack -- Character is in "icky" mode */
        character_icky = TRUE;
 
-
-       /* No command argument */
+       /* command reset */
        command_arg = 0;
-
-       /* No repeated command */
        command_rep = 0;
-
-       /* No automatic command */
        command_new = 0;
 
+       /* Do not expand macros */
+       get_com_no_macros = TRUE;
 
        /* Save the store number */
        cur_store_num = which;
@@ -4813,11 +5909,11 @@ void do_cmd_store(void)
        st_ptr = &town[p_ptr->town_num].store[cur_store_num];
        ot_ptr = &owners[cur_store_num][st_ptr->owner];
 
-
        /* Start at the beginning */
        store_top = 0;
 
-       /* Display the store */
+       play_music(TERM_XTRA_MUSIC_BASIC, MUSIC_BASIC_BUILD);
+
        display_store();
 
        /* Do not leave */
@@ -4830,106 +5926,57 @@ void do_cmd_store(void)
                prt("", 1, 0);
 
                /* Clear */
-               clear_from(20);
-
+               clear_from(20 + xtra_stock);
 
                /* Basic commands */
-#ifdef JP
-               prt(" ESC) ·úʪ¤«¤é½Ð¤ë", 21, 0);
-#else
-               prt(" ESC) Exit from Building.", 21, 0);
-#endif
-
+               prt(_(" ESC) 建物から出る", " ESC) Exit from Building."), 21 + xtra_stock, 0);
 
                /* Browse if necessary */
-               if (st_ptr->stock_num > 12)
+               if (st_ptr->stock_num > store_bottom)
                {
-#ifdef JP
-                       prt(" -)Á°¥Ú¡¼¥¸", 22, 0);
-                       prt(" ¥¹¥Ú¡¼¥¹) ¼¡¥Ú¡¼¥¸", 23, 0);
-#else
-                       prt(" -) Previous page", 22, 0);
-                       prt(" SPACE) Next page", 23, 0);
-#endif
-
+                       prt(_(" -)前ページ", " -) Previous page"), 22 + xtra_stock, 0);
+                       prt(_(" スペース) 次ページ", " SPACE) Next page"), 23 + xtra_stock, 0);
                }
 
                /* Home commands */
                if (cur_store_num == STORE_HOME)
                {
-#ifdef JP
-                       prt("g) ¥¢¥¤¥Æ¥à¤ò¼è¤ë", 21, 27);
-                       prt("d) ¥¢¥¤¥Æ¥à¤òÃÖ¤¯", 22, 27);
-                       prt("x) ²È¤Î¥¢¥¤¥Æ¥à¤òÄ´¤Ù¤ë", 23,27);
-#else
-                       prt("g) Get an item.", 21, 27);
-                       prt("d) Drop an item.", 22, 27);
-                       prt("x) eXamine an item in the home.", 23,27);
-#endif
+                       prt(_("g) アイテムを取る", "g) Get an item."), 21 + xtra_stock, 27);
+                       prt(_("d) アイテムを置く", "d) Drop an item."), 22 + xtra_stock, 27);
+                       prt(_("x) 家のアイテムを調べる", "x) eXamine an item in the home."), 23 + xtra_stock, 27);
                }
 
                /* Museum commands */
                else if (cur_store_num == STORE_MUSEUM)
                {
-#ifdef JP
-                       prt("d) ¥¢¥¤¥Æ¥à¤òÃÖ¤¯", 21, 27);
-                       prt("r) ¥¢¥¤¥Æ¥à¤ÎŸ¼¨¤ò¤ä¤á¤ë", 22, 27);
-                       prt("x) Çîʪ´Û¤Î¥¢¥¤¥Æ¥à¤òÄ´¤Ù¤ë", 23, 27);
-#else
-                       prt("d) Drop an item.", 21, 27);
-                       prt("r) order to Remove an item.", 22, 27);
-                       prt("x) eXamine an item in the museum.", 23, 27);
-#endif
+                       prt(_("d) アイテムを置く", "d) Drop an item."), 21 + xtra_stock, 27);
+                       prt(_("r) アイテムの展示をやめる", "r) order to Remove an item."), 22 + xtra_stock, 27);
+                       prt(_("x) 博物館のアイテムを調べる", "x) eXamine an item in the museum."), 23 + xtra_stock, 27);
                }
 
-               /* Shop commands XXX XXX XXX */
+               /* Shop commands */
                else
                {
-#ifdef JP
-                       prt("p) ¾¦ÉʤòÇ㤦", 21, 30);
-                       prt("s) ¥¢¥¤¥Æ¥à¤òÇä¤ë", 22, 30);
-                       prt("x) ¾¦ÉʤòÄ´¤Ù¤ë", 23,30);
-#else
-                       prt("p) Purchase an item.", 21, 30);
-                       prt("s) Sell an item.", 22, 30);
-                       prt("x) eXamine an item in the shop", 23,30);
-#endif
+                       prt(_("p) 商品を買う", "p) Purchase an item."), 21 + xtra_stock, 30);
+                       prt(_("s) アイテムを売る", "s) Sell an item."), 22 + xtra_stock, 30);
+                       prt(_("x) 商品を調べる", "x) eXamine an item in the shop"), 23 + xtra_stock,30);
                }
 
-#ifdef JP
-               /* ´ðËÜŪ¤Ê¥³¥Þ¥ó¥É¤ÎÄɲÃɽ¼¨ */
-
-               prt("i/e) »ý¤Áʪ/ÁõÈ÷¤Î°ìÍ÷", 21, 56);
+               /* 基本的なコマンドの追加表示 */
+               prt(_("i/e) 持ち物/装備の一覧", "i/e) Inventry/Equipment list"), 21 + xtra_stock, 56);
 
                if (rogue_like_commands)
                {
-                       prt("w/T) ÁõÈ÷¤¹¤ë/¤Ï¤º¤¹", 22, 56);
+                       prt(_("w/T) 装備する/はずす", "w/T) Wear/Take off equipment"), 22 + xtra_stock, 56);
                }
                else
                {
-                       prt("w/t) ÁõÈ÷¤¹¤ë/¤Ï¤º¤¹", 22, 56);
+                       prt(_("w/t) 装備する/はずす", "w/t) Wear/Take off equipment"), 22 + xtra_stock, 56);
                }
-#else
-               prt("i/e) Inventry/Equipment list", 21, 56);
 
-               if (rogue_like_commands)
-               {
-                       prt("w/T) Wear/Take off equipment", 22, 56);
-               }
-               else
-               {
-                       prt("w/t) Wear/Take off equipment", 22, 56);
-               }
-#endif
                /* Prompt */
-#ifdef JP
-               prt("¥³¥Þ¥ó¥É:", 20, 0);
-#else
-               prt("You may: ", 20, 0);
-#endif
-
+               prt(_("コマンド:", "You may: "), 20 + xtra_stock, 0);
 
-               /* Get a command */
                request_command(TRUE);
 
                /* Process the command */
@@ -4944,35 +5991,22 @@ void do_cmd_store(void)
                /* Hack -- Character is still in "icky" mode */
                character_icky = TRUE;
 
-               /* Notice stuff */
-               notice_stuff();
-
-               /* Handle stuff */
                handle_stuff();
 
-               /* XXX XXX XXX Pack Overflow */
+               /* Pack Overflow */
                if (inventory[INVEN_PACK].k_idx)
                {
-                       int item = INVEN_PACK;
+                       INVENTORY_IDX item = INVEN_PACK;
 
                        object_type *o_ptr = &inventory[item];
 
                        /* Hack -- Flee from the store */
                        if (cur_store_num != STORE_HOME)
                        {
-                               /* Message */
-#ifdef JP
-                               if (cur_store_num == STORE_MUSEUM)
-                                       msg_print("¥¶¥Ã¥¯¤«¤é¥¢¥¤¥Æ¥à¤¬¤¢¤Õ¤ì¤½¤¦¤Ê¤Î¤Ç¡¢¤¢¤ï¤Æ¤ÆÇîʪ´Û¤«¤é½Ð¤¿...");
-                               else
-                                       msg_print("¥¶¥Ã¥¯¤«¤é¥¢¥¤¥Æ¥à¤¬¤¢¤Õ¤ì¤½¤¦¤Ê¤Î¤Ç¡¢¤¢¤ï¤Æ¤ÆŹ¤«¤é½Ð¤¿...");
-#else
                                if (cur_store_num == STORE_MUSEUM)
-                                       msg_print("Your pack is so full that you flee the Museum...");
+                                       msg_print(_("ザックからアイテムがあふれそうなので、あわてて博物館から出た...", "Your pack is so full that you flee the Museum..."));
                                else
-                                       msg_print("Your pack is so full that you flee the store...");
-#endif
-
+                                       msg_print(_("ザックからアイテムがあふれそうなので、あわてて店から出た...", "Your pack is so full that you flee the store..."));
 
                                /* Leave */
                                leave_store = TRUE;
@@ -4981,14 +6015,7 @@ void do_cmd_store(void)
                        /* Hack -- Flee from the home */
                        else if (!store_check_num(o_ptr))
                        {
-                               /* Message */
-#ifdef JP
-                               msg_print("¥¶¥Ã¥¯¤«¤é¥¢¥¤¥Æ¥à¤¬¤¢¤Õ¤ì¤½¤¦¤Ê¤Î¤Ç¡¢¤¢¤ï¤Æ¤Æ²È¤«¤é½Ð¤¿...");
-#else
-                               msg_print("Your pack is so full that you flee your home...");
-#endif
-
-
+                               msg_print(_("ザックからアイテムがあふれそうなので、あわてて家から出た...", "Your pack is so full that you flee your home..."));
                                /* Leave */
                                leave_store = TRUE;
                        }
@@ -5001,40 +6028,22 @@ void do_cmd_store(void)
                                object_type forge;
                                object_type *q_ptr;
 
-                               char o_name[MAX_NLEN];
-
+                               GAME_TEXT o_name[MAX_NLEN];
 
                                /* Give a message */
-#ifdef JP
-                               msg_print("¥¶¥Ã¥¯¤«¤é¥¢¥¤¥Æ¥à¤¬¤¢¤Õ¤ì¤Æ¤·¤Þ¤Ã¤¿¡ª");
-#else
-                               msg_print("Your pack overflows!");
-#endif
-
+                               msg_print(_("ザックからアイテムがあふれてしまった!", "Your pack overflows!"));
 
-                               /* Get local object */
                                q_ptr = &forge;
 
-                               /* Grab a copy of the item */
                                object_copy(q_ptr, o_ptr);
-
-                               /* Describe it */
                                object_desc(o_name, q_ptr, 0);
 
-                               /* Message */
-#ifdef JP
-                               msg_format("%s¤¬Íî¤Á¤¿¡£(%c)", o_name, index_to_label(item));
-#else
-                               msg_format("You drop %s (%c).", o_name, index_to_label(item));
-#endif
-
+                               msg_format(_("%sが落ちた。(%c)", "You drop %s (%c)."), o_name, index_to_label(item));
 
                                /* Remove it from the players inventory */
                                inven_item_increase(item, -255);
                                inven_item_describe(item);
                                inven_item_optimize(item);
-
-                               /* Handle stuff */
                                handle_stuff();
 
                                /* Let the home carry it */
@@ -5043,7 +6052,7 @@ void do_cmd_store(void)
                                /* Redraw the home */
                                if (item_pos >= 0)
                                {
-                                       store_top = (item_pos / 12) * 12;
+                                       store_top = (item_pos / store_bottom) * store_bottom;
                                        display_inventory();
                                }
                        }
@@ -5057,10 +6066,12 @@ void do_cmd_store(void)
                if (st_ptr->store_open >= turn) leave_store = TRUE;
        }
 
+       select_floor_music();
+
        p_ptr->town_num = old_town_num;
 
-       /* Free turn XXX XXX XXX */
-       energy_use = 100;
+       /* Free turn */
+       p_ptr->energy_use = 100;
 
 
        /* Hack -- Character is no longer in "icky" mode */
@@ -5073,33 +6084,29 @@ void do_cmd_store(void)
        /* Hack -- Cancel "see" mode */
        command_see = FALSE;
 
+       /* Allow expanding macros */
+       get_com_no_macros = FALSE;
 
-       /* Flush messages XXX XXX XXX */
-       msg_print(NULL);
-
-
-       /* Clear the screen */
+       msg_erase();
        Term_clear();
 
-
        /* Update everything */
        p_ptr->update |= (PU_VIEW | PU_LITE | PU_MON_LITE);
        p_ptr->update |= (PU_MONSTERS);
 
        /* Redraw entire screen */
        p_ptr->redraw |= (PR_BASIC | PR_EXTRA | PR_EQUIPPY);
-
-       /* Redraw map */
        p_ptr->redraw |= (PR_MAP);
-
-       /* Window stuff */
        p_ptr->window |= (PW_OVERHEAD | PW_DUNGEON);
 }
 
 
 
-/*
+/*!
+ * @brief 現在の町の店主を交代させる /
  * Shuffle one of the stores.
+ * @param which 店舗種類のID
+ * @return なし
  */
 void store_shuffle(int which)
 {
@@ -5147,7 +6154,6 @@ void store_shuffle(int which)
        {
                object_type *o_ptr;
 
-               /* Get the item */
                o_ptr = &st_ptr->stock[i];
 
                if (!object_is_artifact(o_ptr))
@@ -5159,22 +6165,22 @@ void store_shuffle(int which)
                        o_ptr->ident &= ~(IDENT_FIXED);
 
                        /* Mega-Hack -- Note that the item is "on sale" */
-#ifdef JP
-                       o_ptr->inscription = quark_add("Çä½ÐÃæ");
-#else
-                       o_ptr->inscription = quark_add("on sale");
-#endif
+                       o_ptr->inscription = quark_add(_("売出中", "on sale"));
                }
        }
 }
 
 
-/*
+/*!
+ * @brief 店の品揃えを変化させる /
  * Maintain the inventory at the stores.
+ * @param town_num 町のID
+ * @param store_num 店舗種類のID
+ * @return なし
  */
 void store_maint(int town_num, int store_num)
 {
-       int             j;
+       INVENTORY_IDX j;
 
        cur_store_num = store_num;
 
@@ -5249,13 +6255,16 @@ void store_maint(int town_num, int store_num)
 }
 
 
-/*
+/*!
+ * @brief 店舗情報を初期化する /
  * Initialize the stores
+ * @param town_num 町のID
+ * @param store_num 店舗種類のID
+ * @return なし
  */
 void store_init(int town_num, int store_num)
 {
-       int             k;
-
+       int k;
        cur_store_num = store_num;
 
        /* Activate that store */
@@ -5303,6 +6312,11 @@ void store_init(int town_num, int store_num)
 }
 
 
+/*!
+ * @brief アイテムを町のブラックマーケットに移動させる /
+ * @param o_ptr 移動させたいオブジェクトの構造体参照ポインタ
+ * @return なし
+ */
 void move_to_black_market(object_type *o_ptr)
 {
        /* Not in town */
@@ -5316,3 +6330,4 @@ void move_to_black_market(object_type *o_ptr)
 
        object_wipe(o_ptr); /* Don't leave a bogus object behind... */
 }
+