OSDN Git Service

[Fix] #38796 マーフォーク用の rgold_adj を追加。 / Add to rgold_adj for Merfolk.
[hengband/hengband.git] / src / store.c
index 4c04bab..d3608dc 100644 (file)
@@ -1,6 +1,6 @@
-/*!
+/*!
  * @file store.c
- * @brief Å¹¤Î½èÍý / Store commands
+ * @brief 店の処理 / Store commands
  * @date 2014/02/02
  * @author
  * Copyright (c) 1989 James E. Wilson, Robert A. Koeneke\n
  */
 
 #include "angband.h"
+#include "cmd-item.h"
+#include "cmd-zapwand.h"
+#include "cmd-magiceat.h"
+#include "store.h"
+#include "avatar.h"
+#include "cmd-spell.h"
+#include "rumor.h"
+#include "player-status.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;
@@ -26,15 +774,15 @@ static s16b inner_town_num = 0;
 
 #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 +795,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 +821,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 +854,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 +887,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 +920,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 +955,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 +982,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 +1017,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 +1047,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 ¼è°úÀ®¸ù»þ¤ÎŹ¼ç¤Î¥á¥Ã¥»¡¼¥¸½èÍý /
+ * @brief 取引成功時の店主のメッセージ処理 /
  * Successful haggle.
- * @return ¤Ê¤·
+ * @return なし
  */
 static void say_comment_1(void)
 {
 #ifdef JP
-       /* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤Î¤È¤­¤ÏÊ̤Υá¥Ã¥»¡¼¥¸¤ò½Ð¤¹ */
+       /* ブラックマーケットのときは別のメッセージを出す */
        if ( cur_store_num == STORE_BLACK ) {
                msg_print(comment_1_B[randint0(MAX_COMMENT_1)]);
        }
@@ -324,7 +1629,7 @@ 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
@@ -334,13 +1639,13 @@ static void say_comment_1(void)
 
 
 /*!
- * @brief ¥×¥ì¥¤¥ä¡¼¤¬¥¢¥¤¥Æ¥à¤òÇ㤦»þ¤Î²Á³ÊÂå°Æ¥á¥Ã¥»¡¼¥¸½èÍý /
+ * @brief プレイヤーがアイテムを買う時の価格代案メッセージ処理 /
  * Continue haggling (player is buying)
- * @param value Å¹¼ç¤ÎÄ󼨲Á³Ê
- * @param annoyed Å¹¼ç¤Î¤¤¤é¤Ä¤­ÅÙ
- * @return ¤Ê¤·
+ * @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];
 
@@ -359,7 +1664,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);
                }
@@ -375,13 +1680,13 @@ static void say_comment_2(s32b value, int annoyed)
 
 
 /*!
- * @brief ¥×¥ì¥¤¥ä¡¼¤¬¥¢¥¤¥Æ¥à¤òÇä¤ë»þ¤Î²Á³ÊÂå°Æ¥á¥Ã¥»¡¼¥¸½èÍý /
+ * @brief プレイヤーがアイテムを売る時の価格代案メッセージ処理 /
  * Continue haggling (player is selling)
- * @param value Å¹¼ç¤ÎÄ󼨲Á³Ê
- * @param annoyed Å¹¼ç¤Î¤¤¤é¤Ä¤­ÅÙ
- * @return ¤Ê¤·
+ * @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 +1705,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);
                }
@@ -416,14 +1721,14 @@ static void say_comment_3(s32b value, int annoyed)
 
 
 /*!
- * @brief Å¹¼ç¤¬¥×¥ì¥¤¥ä¡¼¤òÄɤ¤½Ð¤¹»þ¤Î¥á¥Ã¥»¡¼¥¸½èÍý /
+ * @brief 店主がプレイヤーを追い出す時のメッセージ処理 /
  * Kick 'da bum out.                                   -RAK-
- * @return ¤Ê¤·
+ * @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)]);
@@ -441,14 +1746,14 @@ static void say_comment_4(void)
 
 
 /*!
- * @brief Å¹¼ç¤¬¥×¥ì¥¤¥ä¡¼¤Ë¼è¤ê¹ç¤ï¤Ê¤¤»þ¤Î¥á¥Ã¥»¡¼¥¸½èÍý /
+ * @brief 店主がプレイヤーに取り合わない時のメッセージ処理 /
  * You are insulting me
- * @return ¤Ê¤·
+ * @return なし
  */
 static void say_comment_5(void)
 {
 #ifdef JP
-       /* ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤Î»þ¤ÏÊ̤Υá¥Ã¥»¡¼¥¸¤ò½Ð¤¹ */
+       /* ブラックマーケットの時は別のメッセージを出す */
        if ( cur_store_num == STORE_BLACK ){
                msg_print(comment_5_B[randint0(MAX_COMMENT_5)]);
        }
@@ -463,9 +1768,9 @@ static void say_comment_5(void)
 
 
 /*!
- * @brief Å¹¼ç¤¬¥×¥ì¥¤¥ä¡¼¤ÎÄ󼨤òÍý²ò¤Ç¤­¤Ê¤«¤Ã¤¿»þ¤Î¥á¥Ã¥»¡¼¥¸½èÍý /
+ * @brief 店主がプレイヤーの提示を理解できなかった時のメッセージ処理 /
  * That makes no sense.
- * @return ¤Ê¤·
+ * @return なし
  */
 static void say_comment_6(void)
 {
@@ -475,13 +1780,13 @@ static void say_comment_6(void)
 
 #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!",
@@ -493,13 +1798,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!",
@@ -511,13 +1816,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!",
@@ -529,13 +1834,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!",
@@ -547,74 +1852,51 @@ static cptr comment_7d[MAX_COMMENT_7D] =
 
 
 /*!
- * @brief Å¹¼ç¤¬¸ò¾Ä¤ò½ª¤¨¤¿ºÝ¤ÎÈ¿±þ¤òÊÖ¤¹½èÍý /
+ * @brief 店主が交渉を終えた際の反応を返す処理 /
  * Let a shop-keeper React to a purchase
- * @param price ¥¢¥¤¥Æ¥à¤Î¼è°ú³Û
- * @param value ¥¢¥¤¥Æ¥à¤Î¼ÂºÝ²ÁÃÍ
- * @param guess Å¹¼ç¤¬Åö½éͽÁÛ¤·¤Æ¤¤¤¿²ÁÃÍ
- * @return ¤Ê¤·
+ * @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);
        }
 }
@@ -636,240 +1918,246 @@ 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, Kutar */
+        Angel, Demon, Kutar, Android, Merfolk */
 
        /* Human */
        { 100, 105, 105, 110, 113, 115, 120, 125, 100, 105, 100,
          124, 120, 110, 125, 115, 120, 120, 120, 120, 115, 120,
          115, 105, 125, 125, 125, 125, 105, 120, 105,  95, 140,
-         100, 120, 110, 105 },
+         100, 120, 110, 105, 110 },
 
        /* Half-Elf */
        { 110, 100, 100, 105, 110, 120, 125, 130, 110, 100, 110,
          120, 115, 108, 115, 110, 110, 120, 120, 115, 115, 110,
          120, 110, 110, 110, 120, 110, 100, 125, 100,  95, 140,
-         110, 115, 110, 110 },
+         110, 115, 110, 110, 110 },
 
        /* Elf */
        { 110, 105, 100, 105, 110, 120, 125, 130, 110, 100, 110,
          120, 120, 105, 120, 110, 105, 125, 125, 110, 115, 108,
          120, 115, 110, 110, 120, 110, 100, 125, 100,  95, 140,
-         110, 110, 105, 110 },
+         110, 110, 105, 110, 110 },
 
        /* Halfling */
        { 115, 110, 105,  95, 105, 110, 115, 130, 115, 105, 115,
          125, 120, 120, 125, 115, 110, 120, 120, 120, 115, 115,
          120, 110, 120, 120, 130, 110, 110, 130, 110,  95, 140,
-         115, 120, 105, 115 },
+         115, 120, 105, 115, 105 },
 
        /* Gnome */
        { 115, 115, 110, 105,  95, 110, 115, 130, 115, 110, 115,
          120, 125, 110, 120, 110, 105, 120, 110, 110, 105, 110,
          120, 101, 110, 110, 120, 120, 115, 130, 115,  95, 140,
-         115, 110, 110, 115 },
+         115, 110, 110, 115, 110 },
 
        /* Dwarf */
        { 115, 120, 120, 110, 110,  95, 125, 135, 115, 120, 115,
          125, 140, 130, 130, 120, 115, 115, 115, 135, 125, 120,
          120, 105, 115, 115, 115, 115, 120, 130, 120,  95, 140,
-         115, 110, 115, 115 },
+         115, 110, 115, 115, 120 },
 
        /* Half-Orc */
        { 115, 120, 125, 115, 115, 130, 110, 115, 115, 125, 115,
          110, 110, 120, 110, 120, 125, 115, 115, 110, 120, 110,
          115, 125, 120, 120, 115, 120, 125, 115, 125,  95, 140,
-         115, 110, 115, 115 },
+         115, 110, 115, 115, 125 },
 
        /* Half-Troll */
        { 110, 115, 115, 110, 110, 130, 110, 110, 110, 115, 110,
          110, 115, 120, 110, 120, 120, 110, 110, 110, 115, 110,
          110, 115, 112, 112, 115, 112, 120, 110, 120,  95, 140,
-         110, 110, 115, 110 },
+         110, 110, 115, 110, 130 },
 
        /* Amberite */
        { 100, 105, 105, 110, 113, 115, 120, 125, 100, 105, 100,
          120, 120, 105, 120, 115, 105, 115, 120, 110, 105, 105,
          120, 105, 120, 120, 125, 120, 105, 135, 105,  95, 140,
-         100, 110, 110, 100 },
+         100, 110, 110, 100, 110 },
 
        /* High_Elf */
        { 110, 105, 100, 105, 110, 120, 125, 130, 110, 100, 110,
          125, 125, 101, 120, 115, 110, 115, 125, 110, 110, 110,
          125, 115, 120, 120, 125, 120, 100, 125, 100,  95, 140,
-         110, 110, 105, 110 },
+         110, 110, 105, 110, 110 },
 
        /* Human / Barbarian (copied from human) */
        { 100, 105, 105, 110, 113, 115, 120, 125, 100, 105, 100,
          124, 120, 110, 125, 115, 120, 120, 120, 120, 115, 120,
          115, 105, 125, 125, 130, 125, 115, 120, 115,  95, 140,
-         100, 120, 110, 100 },
+         100, 120, 110, 100, 110 },
 
        /* Half-Ogre: theoretical, copied from half-troll */
        { 110, 115, 115, 110, 110, 130, 110, 110, 110, 115, 110,
          110, 115, 120, 110, 120, 120, 110, 110, 110, 115, 110,
          110, 115, 112, 112, 115, 112, 120, 110, 120,  95, 140,
-         110, 110, 115, 110 },
+         110, 110, 115, 110, 120 },
 
        /* Half-Giant: theoretical, copied from half-troll */
        { 110, 115, 115, 110, 110, 130, 110, 110, 110, 115, 110,
          110, 115, 120, 110, 120, 120, 110, 110, 110, 115, 110,
          110, 115, 112, 112, 115, 112, 130, 120, 130,  95, 140,
-         110, 110, 115, 110 },
+         110, 110, 115, 110, 115 },
 
        /* Half-Titan: theoretical, copied from High_Elf */
        { 110, 105, 100, 105, 110, 120, 125, 130, 110, 100, 110,
          125, 125, 101, 120, 115, 110, 115, 125, 110, 110, 110,
          125, 115, 120, 120, 120, 120, 130, 130, 130,  95, 140,
-         110, 110, 115, 110 },
+         110, 110, 115, 110, 108 },
 
        /* Cyclops: theoretical, copied from half-troll */
        { 110, 115, 115, 110, 110, 130, 110, 110, 110, 115, 110,
          110, 115, 120, 110, 120, 120, 110, 110, 110, 115, 110,
          110, 115, 112, 112, 115, 112, 130, 130, 130,  95, 140,
-         110, 110, 115, 110 },
+         110, 110, 115, 110, 115 },
 
        /* Yeek: theoretical, copied from Half-Orc */
        { 115, 120, 125, 115, 115, 130, 110, 115, 115, 125, 115,
          110, 110, 120, 110, 120, 125, 115, 115, 110, 120, 110,
          115, 125, 120, 120, 120, 120, 130, 130, 130,  95, 140,
-         115, 110, 115, 115 },
+         115, 110, 115, 115, 110 },
 
        /* Klackon: theoretical, copied from Gnome */
        { 115, 115, 110, 105,  95, 110, 115, 130, 115, 110, 115,
          120, 125, 110, 120, 110, 105, 120, 110, 110, 105, 110,
          120, 101, 110, 110, 120, 120, 130, 130, 130,  95, 140,
-         115, 110, 115, 115 },
+         115, 110, 115, 115, 110 },
 
        /* Kobold: theoretical, copied from Half-Orc */
        { 115, 120, 125, 115, 115, 130, 110, 115, 115, 125, 115,
          110, 110, 120, 110, 120, 125, 115, 115, 110, 120, 110,
          115, 125, 120, 120, 120, 120, 130, 130, 130,  95, 140,
-         115, 110, 115, 115 },
+         115, 110, 115, 115, 120 },
 
        /* Nibelung: theoretical, copied from Dwarf */
        { 115, 120, 120, 110, 110,  95, 125, 135, 115, 120, 115,
          125, 140, 130, 130, 120, 115, 115, 115, 135, 125, 120,
          120, 105, 115, 115, 120, 120, 130, 130, 130,  95, 140,
-         115, 135, 115, 115 },
+         115, 135, 115, 115, 120 },
 
        /* Dark Elf */
        { 110, 110, 110, 115, 120, 130, 115, 115, 120, 110, 115,
          115, 115, 116, 115, 120, 120, 115, 115, 101, 110, 110,
          110, 110, 112, 122, 110, 110, 110, 115, 110, 120, 120,
-         110, 101, 115, 110 },
+         110, 101, 115, 110, 115 },
 
        /* Draconian: theoretical, copied from High_Elf */
        { 110, 105, 100, 105, 110, 120, 125, 130, 110, 100, 110,
          125, 125, 101, 120, 115, 110, 115, 125, 110, 110, 110,
          125, 115, 120, 120, 120, 120, 130, 130, 130,  95, 140,
-         110, 110, 115, 110 },
+         110, 110, 115, 110, 115 },
 
        /* Mind Flayer: theoretical, copied from High_Elf */
        { 110, 105, 100, 105, 110, 120, 125, 130, 110, 100, 110,
          125, 125, 101, 120, 115, 110, 115, 125, 110, 110, 110,
          125, 115, 120, 120, 120, 120, 130, 130, 130,  95, 140,
-         110, 110, 115, 110 },
+         110, 110, 115, 110, 110 },
 
        /* Imp: theoretical, copied from High_Elf */
        { 110, 105, 100, 105, 110, 120, 125, 130, 110, 100, 110,
          125, 125, 101, 120, 115, 110, 115, 125, 110, 110, 110,
          125, 115, 120, 120, 120, 120, 130, 130, 130, 120, 120,
-         110, 110, 115, 110 },
+         110, 110, 115, 110, 120 },
 
        /* Golem: theoretical, copied from High_Elf */
        { 110, 105, 100, 105, 110, 120, 125, 130, 110, 100, 110,
          125, 125, 101, 120, 115, 110, 115, 125, 110, 110, 110,
          125, 115, 120, 120, 120, 120, 130, 130, 130,  95, 140,
-         110, 110, 115, 110 },
+         110, 110, 115, 110, 110 },
 
        /* Skeleton: theoretical, copied from half-orc */
        { 115, 120, 125, 115, 115, 130, 110, 115, 115, 125, 115,
          110, 110, 120, 110, 120, 125, 115, 115, 110, 120, 110,
          115, 125, 120, 120, 120, 120, 130, 130, 130, 120, 120,
-         115, 110, 125, 115 },
+         115, 110, 125, 115, 110 },
 
        /* Zombie: Theoretical, copied from half-orc */
        { 115, 120, 125, 115, 115, 130, 110, 115, 115, 125, 115,
          110, 110, 120, 110, 120, 125, 115, 115, 110, 120, 110,
          115, 125, 120, 120, 120, 120, 130, 130, 130, 120, 120,
-         115, 110, 125, 115 },
+         115, 110, 125, 115, 110 },
 
        /* Vampire: Theoretical, copied from half-orc */
        { 115, 120, 125, 115, 115, 130, 110, 115, 115, 125, 115,
          110, 110, 120, 110, 120, 125, 115, 115, 110, 120, 110,
          115, 125, 120, 120, 120, 120, 130, 130, 130, 120, 120,
-         115, 110, 125, 115 },
+         115, 110, 125, 115, 120 },
 
        /* Spectre: Theoretical, copied from half-orc */
        { 115, 120, 125, 115, 115, 130, 110, 115, 115, 125, 115,
          110, 110, 120, 110, 120, 125, 115, 115, 110, 120, 110,
          115, 125, 120, 120, 120, 120, 130, 130, 130, 120, 120,
-         115, 110, 125, 115 },
+         115, 110, 125, 115, 110 },
 
        /* Sprite: Theoretical, copied from half-orc */
        { 115, 120, 125, 115, 115, 130, 110, 115, 115, 125, 115,
          110, 110, 120, 110, 120, 125, 115, 115, 110, 120, 110,
          115, 125, 120, 120, 120, 120, 130, 130, 130,  95, 140,
-         115, 110, 105, 115 },
+         115, 110, 105, 115, 110 },
 
        /* Beastman: Theoretical, copied from half-orc */
        { 115, 120, 125, 115, 115, 130, 110, 115, 115, 125, 115,
          110, 110, 120, 110, 120, 125, 115, 115, 110, 120, 110,
          115, 125, 120, 120, 120, 120, 130, 130, 130,  95, 140,
-         115, 110, 115, 115 },
+         115, 110, 115, 115, 125 },
 
        /* Ent */
        { 110, 105, 100, 105, 110, 120, 125, 130, 110, 100, 110,
          120, 120, 105, 120, 110, 105, 125, 125, 110, 115, 108,
          120, 115, 110, 110, 120, 110, 100, 125, 100,  95, 140,
-         110, 110, 105, 110 },
+         110, 110, 105, 110, 110 },
 
        /* Angel */
        {  95,  95,  95,  95,  95,  95,  95,  95,  95,  95,  95,
           95,  95,  95,  95,  95,  95,  95,  95,  95,  95,  95,
           95,  95,  95,  95,  95,  95,  95,  95,  95,  95, 160,
-          95,  95,  95,  95 },
+          95,  95,  95,  95,  95 },
 
        /* Demon */
        { 140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140,
          140, 140, 140, 140, 140, 140, 140, 140, 140, 140, 140,
          140, 140, 140, 140, 140, 140, 140, 140, 140, 160, 120,
-         140, 140, 140, 140 },
+         140, 140, 140, 140, 140 },
 
        /* Dunadan */
        { 100, 105, 105, 110, 113, 115, 120, 125, 100, 105, 100,
          124, 120, 110, 125, 115, 120, 120, 120, 120, 115, 120,
          115, 105, 125, 125, 125, 125, 105, 120, 105,  95, 140,
-         100, 120, 110, 100 },
+         100, 120, 110, 100, 110 },
 
        /* Shadow Fairy */
        { 110, 110, 110, 115, 120, 130, 115, 115, 120, 110, 115,
          115, 115, 116, 115, 120, 120, 115, 115, 101, 110, 110,
          110, 110, 112, 122, 110, 110, 110, 115, 110, 120, 120,
-         110, 101, 115, 110 },
+         110, 101, 115, 110, 115 },
 
        /* 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,
-         110, 115, 100, 110 },
+         110, 115, 100, 110, 110 },
 
        /* Android */
        { 105, 105, 105, 110, 113, 115, 120, 125, 100, 105, 100,
          124, 120, 110, 125, 115, 120, 120, 120, 120, 115, 120,
          115, 105, 125, 125, 125, 125, 105, 120, 105,  95, 140,
-         100, 120, 110, 100 },
+         100, 120, 110, 100, 110 },
+
+       /* Merfolk */
+       { 110, 110, 110, 105, 110, 120, 125, 130, 110, 110, 110,
+         120, 115, 108, 115, 110, 110, 120, 120, 115, 115, 110,
+         120, 110, 110, 110, 120, 110, 110, 125, 110,  95, 140,
+         110, 115, 110, 110, 100 },
 };
 
 
 
 /*!
- * @brief Å¹ÊÞ²Á³Ê¤ò·èÄꤹ¤ë /
+ * @brief 店舗価格を決定する /
  * Determine the price of an item (qty one) in a store.
- * @param o_ptr Å¹ÊÞ¤Ëʤ٤륪¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΤλ²¾È¥Ý¥¤¥ó¥¿
- * @param greed Å¹¼ç¤Î¶¯ÍßÅÙ
- * @param flip TRUE¤Ê¤é¤ÐŹ¼ç¤Ë¤È¤Ã¤Æ¤ÎÇã¼è²Á³Ê¡¢FALSE¤Ê¤éÇä½Ð²Á³Ê¤ò·×»»
- * @return ¤Ê¤·
+ * @param o_ptr åº\97è\88\97ã\81«ä¸¦ã\81¹ã\82\8bã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88æ§\8bé\80 ä½\93ã\81®å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @param greed 店主の強欲度
+ * @param flip TRUEならば店主にとっての買取価格、FALSEなら売出価格を計算
+ * @return なし
  * @details 
  * <pre>
  * This function takes into account the player's charisma, and the
@@ -951,10 +2239,10 @@ static s32b price_item(object_type *o_ptr, int greed, bool flip)
 
 
 /*!
- * @brief °Â²Á¤Ê¾ÃÌ×ÉʤÎÈÎÇä¿ô¤òÁý¤ä¤·¡¢Äã³ÎΨ¤Ç³ä°ú¤Ë¤¹¤ë /
+ * @brief 安価な消耗品の販売数を増やし、低確率で割引にする /
  * Certain "cheap" objects should be created in "piles"
- * @param o_ptr Å¹ÊÞ¤Ëʤ٤륪¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΤλ²¾È¥Ý¥¤¥ó¥¿
- * @return ¤Ê¤·
+ * @param o_ptr åº\97è\88\97ã\81«ä¸¦ã\81¹ã\82\8bã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88æ§\8bé\80 ä½\93ã\81®å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @return なし
  * @details 
  * <pre>
  * Some objects can be sold at a "discount" (in small piles)
@@ -963,7 +2251,7 @@ static s32b price_item(object_type *o_ptr, int greed, bool flip)
 static void mass_produce(object_type *o_ptr)
 {
        int size = 1;
-       int discount = 0;
+       DISCOUNT_RATE discount = 0;
 
        s32b cost = object_value(o_ptr);
 
@@ -1099,18 +2387,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;
        }
 
@@ -1123,18 +2401,18 @@ msg_print("
        /* 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 *= o_ptr->number;
+               o_ptr->pval *= (PARAMETER_VALUE)o_ptr->number;
        }
 }
 
 
 
 /*!
- * @brief Å¹ÊÞ¤Ëʤ٤¿ÉʤòƱ°ìÉʤǤ¢¤ë¤«¤É¤¦¤«È½Äꤹ¤ë /
+ * @brief 店舗に並べた品を同一品であるかどうか判定する /
  * Determine if a store item can "absorb" another item
- * @param o_ptr È½Äꤹ¤ë¥ª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΤλ²¾È¥Ý¥¤¥ó¥¿1
- * @param j_ptr È½Äꤹ¤ë¥ª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΤλ²¾È¥Ý¥¤¥ó¥¿2
- * @return Æ±°ì°·¤¤¤Ç¤­¤ë¤Ê¤éTRUE¤òÊÖ¤¹
+ * @param o_ptr å\88¤å®\9aã\81\99ã\82\8bã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88æ§\8bé\80 ä½\93ã\81®å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿1
+ * @param j_ptr å\88¤å®\9aã\81\99ã\82\8bã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88æ§\8bé\80 ä½\93ã\81®å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿2
+ * @return 同一扱いできるならTRUEを返す
  * @details 
  * <pre>
  * See "object_similar()" for the same function for the "player"
@@ -1193,11 +2471,11 @@ static bool store_object_similar(object_type *o_ptr, object_type *j_ptr)
 
 
 /*!
- * @brief Å¹ÊÞ¤Ëʤ٤¿Éʤò½Å¤Í¹ç¤ï¤»¤Ç¤­¤ë¤«¤É¤¦¤«È½Äꤹ¤ë /
+ * @brief 店舗に並べた品を重ね合わせできるかどうか判定する /
  * Allow a store item to absorb another item
- * @param o_ptr È½Äꤹ¤ë¥ª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΤλ²¾È¥Ý¥¤¥ó¥¿1
- * @param j_ptr È½Äꤹ¤ë¥ª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΤλ²¾È¥Ý¥¤¥ó¥¿2
- * @return ½Å¤Í¹ç¤ï¤»¤Ç¤­¤ë¤Ê¤éTRUE¤òÊÖ¤¹
+ * @param o_ptr å\88¤å®\9aã\81\99ã\82\8bã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88æ§\8bé\80 ä½\93ã\81®å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿1
+ * @param j_ptr å\88¤å®\9aã\81\99ã\82\8bã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88æ§\8bé\80 ä½\93ã\81®å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿2
+ * @return 重ね合わせできるならTRUEを返す
  * @details 
  * <pre>
  * See "object_similar()" for the same function for the "player"
@@ -1228,10 +2506,10 @@ static void store_object_absorb(object_type *o_ptr, object_type *j_ptr)
 
 
 /*!
- * @brief Å¹ÊÞ¤ËÉʤòÃÖ¤¯¥¹¥Ú¡¼¥¹¤¬¤¢¤ë¤«¤É¤¦¤«¤ÎȽÄê¤òÊÖ¤¹ /
+ * @brief 店舗に品を置くスペースがあるかどうかの判定を返す /
  * Check to see if the shop will be carrying too many objects  -RAK-
- * @param o_ptr Å¹ÊÞ¤ËÃÖ¤­¤¿¤¤¥ª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΤλ²¾È¥Ý¥¤¥ó¥¿
- * @return ÃÖ¤­¾ì¤¬¤Ê¤¤¤Ê¤é0¡¢½Å¤Í¹ç¤ï¤»¤Ç¤­¤ë¥¢¥¤¥Æ¥à¤¬¤¢¤ë¤Ê¤é-1¡¢¥¹¥Ú¡¼¥¹¤¬¤¢¤ë¤Ê¤é1¤òÊÖ¤¹¡£
+ * @param o_ptr åº\97è\88\97ã\81«ç½®ã\81\8dã\81\9fã\81\84ã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88æ§\8bé\80 ä½\93ã\81®å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @return 置き場がないなら0、重ね合わせできるアイテムがあるなら-1、スペースがあるなら1を返す。
  * @details 
  * <pre>
  * Note that the shop, just like a player, will not accept things
@@ -1301,8 +2579,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)) {
@@ -1320,13 +2598,13 @@ static int store_check_num(object_type *o_ptr)
 }
 
 /*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬½ËÊ¡¤µ¤ì¤Æ¤¤¤ë¤«¤ÎȽÄê¤òÊÖ¤¹ /
- * @param o_ptr È½Äꤷ¤¿¤¤¥ª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΤλ²¾È¥Ý¥¤¥ó¥¿
- * @return ¥¢¥¤¥Æ¥à¤¬½ËÊ¡¤µ¤ì¤¿¥¢¥¤¥Æ¥à¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
+ * @brief オブジェクトが祝福されているかの判定を返す /
+ * @param o_ptr å\88¤å®\9aã\81\97ã\81\9fã\81\84ã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88æ§\8bé\80 ä½\93ã\81®å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @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);
@@ -1335,10 +2613,10 @@ static bool is_blessed(object_type *o_ptr)
 
 
 /*!
- * @brief ¥ª¥Ö¥¸¥§¥¯¥È¤¬½êÄê¤ÎŹÊޤǰú¤­¼è¤ì¤ë¤«¤É¤¦¤«¤òÊÖ¤¹ /
+ * @brief オブジェクトが所定の店舗で引き取れるかどうかを返す /
  * Determine if the current store will purchase the given item
- * @param o_ptr È½Äꤷ¤¿¤¤¥ª¥Ö¥¸¥§¥¯¥È¹½Â¤ÂΤλ²¾È¥Ý¥¤¥ó¥¿
- * @return ¥¢¥¤¥Æ¥à¤¬Ç㤤¼è¤ì¤ë¤Ê¤é¤ÐTRUE¤òÊÖ¤¹
+ * @param o_ptr å\88¤å®\9aã\81\97ã\81\9fã\81\84ã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88æ§\8bé\80 ä½\93ã\81®å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @return アイテムが買い取れるならばTRUEを返す
  * @note
  * Note that a shop-keeper must refuse to buy "worthless" items
  */
@@ -1548,7 +2826,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 */
@@ -1557,10 +2835,10 @@ static bool store_will_buy(object_type *o_ptr)
 
 
 /*!
- * @brief ¸½ºß¤ÎÄ®¤Î»ØÄꤵ¤ì¤¿Å¹ÊޤΥ¢¥¤¥Æ¥à¤òÀ°Íý¤¹¤ë /
+ * @brief 現在の町の指定された店舗のアイテムを整理する /
  * Combine and reorder items in store.
- * @param store_num Å¹ÊÞID
- * @return ¼ÂºÝ¤ËÀ°Íý¤¬¹Ô¤ï¤ì¤¿¤Ê¤é¤ÐTRUE¤òÊÖ¤¹¡£
+ * @param store_num 店舗ID
+ * @return 実際に整理が行われたならばTRUEを返す。
  */
 bool combine_and_reorder_home(int store_num)
 {
@@ -1572,7 +2850,7 @@ bool combine_and_reorder_home(int store_num)
        bool        old_stack_force_notes = stack_force_notes;
        bool        old_stack_force_costs = stack_force_costs;
 
-       st_ptr = &town[1].store[store_num];
+       st_ptr = &town_info[1].store[store_num];
        if (store_num != STORE_HOME)
        {
                stack_force_notes = FALSE;
@@ -1586,7 +2864,6 @@ bool combine_and_reorder_home(int store_num)
                /* 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 */
@@ -1597,7 +2874,6 @@ bool combine_and_reorder_home(int store_num)
                        {
                                int max_num;
 
-                               /* Get the item */
                                j_ptr = &st_ptr->stock[j];
 
                                /* Skip empty items */
@@ -1632,8 +2908,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);
@@ -1656,8 +2932,6 @@ bool combine_and_reorder_home(int store_num)
 
                                        /* Take note */
                                        combined = TRUE;
-
-                                       /* Done */
                                        break;
                                }
                        }
@@ -1670,7 +2944,6 @@ bool combine_and_reorder_home(int store_num)
        /* 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 */
@@ -1690,8 +2963,6 @@ bool combine_and_reorder_home(int store_num)
 
                /* Take note */
                flag = TRUE;
-
-               /* Get local object */
                j_ptr = &forge;
 
                /* Save a copy of the moving item */
@@ -1720,10 +2991,10 @@ bool combine_and_reorder_home(int store_num)
 
 
 /*!
- * @brief ²æ¤¬²È¤Ë¥ª¥Ö¥¸¥§¥¯¥È¤ò²Ã¤¨¤ë /
+ * @brief 我が家にオブジェクトを加える /
  * Add the item "o_ptr" to the inventory of the "Home"
- * @param o_ptr ²Ã¤¨¤¿¤¤¥ª¥Ö¥¸¥§¥¯¥È¤Î¹½Â¤Âλ²¾È¥Ý¥¤¥ó¥¿
- * @return ¼ý¤á¤¿Àè¤ÎID
+ * @param o_ptr å\8a ã\81\88ã\81\9fã\81\84ã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88ã\81®æ§\8bé\80 ä½\93å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @return 収めた先のID
  * @details
  * <pre>
  * In all cases, return the slot (or -1) where the object was placed
@@ -1778,8 +3049,8 @@ static int home_carry(object_type *o_ptr)
 
        /* No space? */
        /*
-        * ±£¤·µ¡Ç½: ¥ª¥×¥·¥ç¥ó powerup_home ¤¬ÀßÄꤵ¤ì¤Æ¤¤¤ë¤È
-        *           ²æ¤¬²È¤¬ 20 ¥Ú¡¼¥¸¤Þ¤Ç»È¤¨¤ë
+        * 隠し機能: オプション powerup_home が設定されていると
+        *           我が家が 20 ページまで使える
         */
        /* No space? */
        if ((cur_store_num != STORE_HOME) || (powerup_home == TRUE)) {
@@ -1825,10 +3096,10 @@ static int home_carry(object_type *o_ptr)
 
 
 /*!
- * @brief Å¹Êޤ˥ª¥Ö¥¸¥§¥¯¥È¤ò²Ã¤¨¤ë /
+ * @brief 店舗にオブジェクトを加える /
  * Add the item "o_ptr" to a real stores inventory.
- * @param o_ptr ²Ã¤¨¤¿¤¤¥ª¥Ö¥¸¥§¥¯¥È¤Î¹½Â¤Âλ²¾È¥Ý¥¤¥ó¥¿
- * @return ¼ý¤á¤¿Àè¤ÎID
+ * @param o_ptr å\8a ã\81\88ã\81\9fã\81\84ã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88ã\81®æ§\8bé\80 ä½\93å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @return 収めた先のID
  * @details
  * <pre>
  * In all cases, return the slot (or -1) where the object was placed
@@ -1930,23 +3201,23 @@ static int store_carry(object_type *o_ptr)
 
 
 /*!
- * @brief Å¹ÊޤΥª¥Ö¥¸¥§¥¯¥È¿ô¤òÁý¤ä¤¹ /
+ * @brief 店舗のオブジェクト数を増やす /
  * Add the item "o_ptr" to a real stores inventory.
- * @param item Áý¤ä¤·¤¿¤¤¥¢¥¤¥Æ¥à¤ÎID
- * @param num Áý¤ä¤·¤¿¤¤¿ô
- * @return ¤Ê¤·
+ * @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 */
@@ -1956,22 +3227,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 Å¹ÊޤΥª¥Ö¥¸¥§¥¯¥È¿ô¤òºï½ü¤¹¤ë /
+ * @brief 店舗のオブジェクト数を削除する /
  * Remove a slot if it is empty
- * @param item ºï½ü¤·¤¿¤¤¥¢¥¤¥Æ¥à¤ÎID
- * @return ¤Ê¤·
+ * @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 */
@@ -1994,10 +3264,10 @@ static void store_item_optimize(int item)
 }
 
 /*!
- * @brief ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥ÈÍѤÎ̵²ÁÃÍÉʤÎÇÓ½üȽÄê /
+ * @brief ブラックマーケット用の無価値品の排除判定 /
  * This function will keep 'crap' out of the black market.
- * @param o_ptr È½Äꤷ¤¿¤¤¥ª¥Ö¥¸¥§¥¯¥È¤Î¹½Â¤Âλ²¾È¥Ý¥¤¥ó¥¿
- * @return ¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤Ë¤È¤Ã¤Æ̵²ÁÃͤÊÉʤʤé¤ÐTRUE¤òÊÖ¤¹
+ * @param o_ptr å\88¤å®\9aã\81\97ã\81\9fã\81\84ã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88ã\81®æ§\8bé\80 ä½\93å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @return ブラックマーケットにとって無価値な品ならばTRUEを返す
  * @details
  * <pre>
  * Crap is defined as any item that is "available" elsewhere
@@ -2023,9 +3293,9 @@ static bool black_market_crap(object_type *o_ptr)
                if (i == STORE_MUSEUM) continue;
 
                /* Check every item in the store */
-               for (j = 0; j < town[p_ptr->town_num].store[i].stock_num; j++)
+               for (j = 0; j < town_info[p_ptr->town_num].store[i].stock_num; j++)
                {
-                       object_type *j_ptr = &town[p_ptr->town_num].store[i].stock[j];
+                       object_type *j_ptr = &town_info[p_ptr->town_num].store[i].stock[j];
 
                        /* Duplicate item "type", assume crappy */
                        if (o_ptr->k_idx == j_ptr->k_idx) return (TRUE);
@@ -2038,9 +3308,9 @@ static bool black_market_crap(object_type *o_ptr)
 
 
 /*!
- * @brief Å¹ÊÞ¤ÎÉÊ·¤¨ÊѲ½¤Î¤¿¤á¤Ë¥¢¥¤¥Æ¥à¤òºï½ü¤¹¤ë /
+ * @brief 店舗の品揃え変化のためにアイテムを削除する /
  * Attempt to delete (some of) a random item from the store
- * @return ¤Ê¤·
+ * @return なし
  * @details
  * <pre>
  * Hack -- we attempt to "maintain" piles of items when possible.
@@ -2048,10 +3318,11 @@ static bool black_market_crap(object_type *o_ptr)
  */
 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;
@@ -2075,9 +3346,9 @@ static void store_delete(void)
 
 
 /*!
- * @brief Å¹ÊÞ¤ÎÉÊ·¤¨ÊѲ½¤Î¤¿¤á¤Ë¥¢¥¤¥Æ¥à¤òÄɲ乤ë /
+ * @brief 店舗の品揃え変化のためにアイテムを追加する /
  * Creates a random item and gives it to a store
- * @return ¤Ê¤·
+ * @return なし
  * @details
  * <pre>
  * This algorithm needs to be rethought.  A lot.
@@ -2090,7 +3361,9 @@ static void store_delete(void)
  */
 static void store_create(void)
 {
-       int i, tries, level;
+       OBJECT_IDX i;
+       int tries;
+       DEPTH level;
 
        object_type forge;
        object_type *q_ptr;
@@ -2126,8 +3399,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 */
@@ -2190,12 +3461,12 @@ static void store_create(void)
 
 
 /*!
- * @brief Å¹Êޤγä°úÂоݳ°¤Ë¤¹¤ë¤«¤É¤¦¤«¤òȽÄê /
+ * @brief 店舗の割引対象外にするかどうかを判定 /
  * Eliminate need to bargain if player has haggled well in the past
- * @param minprice ¥¢¥¤¥Æ¥à¤ÎºÇÄãÈÎÇä²Á³Ê
- * @return ³ä°ú¤ò¶Ø»ß¤¹¤ë¤Ê¤éTRUE¤òÊÖ¤¹¡£
+ * @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;
@@ -2215,14 +3486,14 @@ static bool noneedtobargain(s32b minprice)
 
 
 /*!
- * @brief Å¹¼ç¤Î»ý¤Ä¥×¥ì¥¤¥ä¡¼¤ËÂФ¹¤ëÇäÇã¤ÎÎɤ·°­¤··Ð¸³¤òµ­²±¤¹¤ë /
+ * @brief 店主の持つプレイヤーに対する売買の良し悪し経験を記憶する /
  * Update the bargain info
- * @param price ¼ÂºÝ¤Î¼è°ú²Á³Ê
- * @param minprice Å¹¼ç¤ÎÄ󼨤·¤¿²Á³Ê
- * @param num ÇäÇã¿ô 
- * @return ¤Ê¤·
+ * @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;
@@ -2253,24 +3524,22 @@ static void updatebargain(s32b price, s32b minprice, int num)
 
 
 /*!
- * @brief Å¹¤Î¾¦Éʥꥹ¥È¤òºÆɽ¼¨¤¹¤ë /
+ * @brief 店の商品リストを再表示する /
  * Re-displays a single store entry
- * @param pos É½¼¨¹Ô
- * @return ¤Ê¤·
+ * @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" */
@@ -2283,13 +3552,8 @@ static void display_entry(int pos)
        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++;
@@ -2305,18 +3569,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);
@@ -2363,7 +3626,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
@@ -2400,9 +3663,9 @@ static void display_entry(int pos)
 
 
 /*!
- * @brief Å¹¤Î¾¦Éʥꥹ¥È¤òɽ¼¨¤¹¤ë /
+ * @brief 店の商品リストを表示する /
  * Displays a store's inventory                -RAK-
- * @return ¤Ê¤·
+ * @return なし
  * @details
  * All prices are listed as "per individual object".  -BEN-
  */
@@ -2435,21 +3698,11 @@ static void display_inventory(void)
        if (st_ptr->stock_num > store_bottom)
        {
                /* Show "more" reminder (after the last item) */
-#ifdef JP
-               prt("-³¤¯-", k + 6, 3);
-#else
-               prt("-more-", k + 6, 3);
-#endif
-
+               prt(_("-続く-", "-more-"), k + 6, 3);
 
                /* Indicate the "current page" */
                /* Trailing spaces are to display (Page xx) and (Page x) */
-#ifdef JP
-               put_str(format("(%d¥Ú¡¼¥¸)  ", store_top/store_bottom + 1), 5, 20);
-#else
-               put_str(format("(Page %d)  ", store_top/store_bottom + 1), 5, 20);
-#endif
-
+               put_str(format(_("(%dページ)  ", "(Page %d)  "), store_top/store_bottom + 1), 5, 20);
        }
 
        if (cur_store_num == STORE_HOME || cur_store_num == STORE_MUSEUM)
@@ -2458,7 +3711,7 @@ static void display_inventory(void)
 
                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);
+               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
@@ -2467,68 +3720,45 @@ static void display_inventory(void)
 
 
 /*!
- * @brief ¥×¥ì¥¤¥ä¡¼¤Î½ê»ý¶â¤òɽ¼¨¤¹¤ë /
+ * @brief プレイヤーの所持金を表示する /
  * Displays players gold                                       -RAK-
- * @return ¤Ê¤·
+ * @return なし
  * @details
  */
 static void store_prt_gold(void)
 {
        char out_val[64];
 
-#ifdef JP
-       prt("¼ê»ý¤Á¤Î¤ª¶â: ", 19 + xtra_stock, 53);
-#else
-       prt("Gold Remaining: ", 19 + xtra_stock, 53);
-#endif
-
-
+       prt(_("手持ちのお金: ", "Gold Remaining: "), 19 + xtra_stock, 53);
        sprintf(out_val, "%9ld", (long)p_ptr->au);
        prt(out_val, 19 + xtra_stock, 68);
 }
 
 /*!
- * @brief Å¹ÊÞ¾ðÊóÁ´ÂΤòɽ¼¨¤¹¤ë¥á¥¤¥ó¥ë¡¼¥Á¥ó /
+ * @brief 店舗情報全体を表示するメインルーチン /
  * Displays store (after clearing screen)              -RAK-
- * @return ¤Ê¤·
+ * @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);
                }
        }
 
@@ -2536,39 +3766,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);
@@ -2579,31 +3794,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 */
@@ -2616,21 +3817,19 @@ static void display_store(void)
 
 
 /*!
- * @brief Å¹ÊÞ¤«¤é¥¢¥¤¥Æ¥à¤òÁªÂò¤¹¤ë /
+ * @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
+ * @param com_val é\81¸æ\8a\9eIDã\82\92è¿\94ã\81\99å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @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];
-       char    lo, hi;
-
-#ifdef ALLOW_REPEAT /* TNB */
+       char command;
+       char out_val[160];
+       char lo, hi;
 
        /* Get the item index */
        if (repeat_pull(com_val))
@@ -2643,12 +3842,9 @@ 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);
 
@@ -2656,8 +3852,8 @@ static int get_stock(int *com_val, cptr pmt, int i, int j)
        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)) ? "¥¢¥¤¥Æ¥à" : "¾¦ÉÊ"), 
+       (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",
@@ -2668,7 +3864,7 @@ static int get_stock(int *com_val, cptr pmt, int i, int j)
        /* Ask until done */
        while (TRUE)
        {
-               int k;
+               COMMAND_CODE k;
 
                /* Escape */
                if (!get_com(out_val, &command, FALSE)) break;
@@ -2688,31 +3884,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 Å¹¼ç¤ÎÉÔËþÅÙ¤òÁý¤ä¤·¡¢¥×¥ì¥¤¥ä¡¼¤òÄù¤á½Ð¤¹È½Äê¤È½èÍý¤ò¹Ô¤¦ /
+ * @brief 店主の不満度を増やし、プレイヤーを締め出す判定と処理を行う /
  * Increase the insult counter and get angry if too many -RAK-
- * @return ¥×¥ì¥¤¥ä¡¼¤òÄù¤á½Ð¤¹¾ì¹çTRUE¤òÊÖ¤¹
+ * @return プレイヤーを締め出す場合TRUEを返す
  */
 static int increase_insults(void)
 {
@@ -2743,9 +3933,9 @@ static int increase_insults(void)
 
 
 /*!
- * @brief Å¹¼ç¤ÎÉÔËþÅÙ¤ò¸º¤é¤¹ /
+ * @brief 店主の不満度を減らす /
  * Decrease insults                            -RAK-
- * @return ¥×¥ì¥¤¥ä¡¼¤òÄù¤á½Ð¤¹¾ì¹çTRUE¤òÊÖ¤¹
+ * @return プレイヤーを締め出す場合TRUEを返す
  */
 static void decrease_insults(void)
 {
@@ -2755,9 +3945,9 @@ static void decrease_insults(void)
 
 
 /*!
- * @brief Å¹¼ç¤ÎÉÔËþÅÙ¤¬Áý¤¨¤¿¾ì¹ç¤Î¤ß¤Î¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤¹¤ë /
+ * @brief 店主の不満度が増えた場合のみのメッセージを表示する /
  * Have insulted while haggling                        -RAK-
- * @return ¥×¥ì¥¤¥ä¡¼¤òÄù¤á½Ð¤¹¾ì¹çTRUE¤òÊÖ¤¹
+ * @return プレイヤーを締め出す場合TRUEを返す
  */
 static int haggle_insults(void)
 {
@@ -2784,59 +3974,40 @@ static s32b last_inc = 0L;
 
 
 /*!
- * @brief ¸ò¾Ä²Á³Ê¤ò³Îǧ¤Èǧ¾Ú¤ÎÀ§Èó¤ò¹Ô¤¦ /
+ * @brief 交渉価格を確認と認証の是非を行う /
  * Get a haggle
- * @param pmt ¥á¥Ã¥»¡¼¥¸
- * @param poffer ÊÌÅÓ²Á³ÊÄ󼨤ò¤·¤¿¾ì¹ç¤ÎÃͤòÊÖ¤¹»²¾È¥Ý¥¤¥ó¥¿
- * @param price ¸½ºß¤Î¸ò¾Ä²Á³Ê
- * @param final ºÇ½ª³ÎÄê²Á³Ê¤Ê¤é¤ÐTRUE
- * @return ¥×¥ì¥¤¥ä¡¼¤òÄù¤á½Ð¤¹¾ì¹çTRUE¤òÊÖ¤¹
+ * @param pmt ã\83¡ã\83\83ã\82»ã\83¼ã\82¸
+ * @param poffer å\88¥é\80\94価格æ\8f\90示ã\82\92ã\81\97ã\81\9få ´å\90\88ã\81®å\80¤ã\82\92è¿\94ã\81\99å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @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];
 
-
        /* Clear old increment if necessary */
        if (!allow_inc) last_inc = 0L;
 
-
        /* Final offer */
        if (final)
        {
-#ifdef JP
-               sprintf(buf, "%s [¾µÂú] ", pmt);
-#else
-               sprintf(buf, "%s [accept] ", pmt);
-#endif
-
+               sprintf(buf, _("%s [承諾] ", "%s [accept] "), pmt);
        }
 
        /* Old (negative) increment, and not final */
        else if (last_inc < 0)
        {
-#ifdef JP
-               sprintf(buf, "%s [-$%ld] ", pmt, (long)(ABS(last_inc)));
-#else
-               sprintf(buf, "%s [-%ld] ", pmt, (long)(ABS(last_inc)));
-#endif
-
+               sprintf(buf, _("%s [-$%ld] ", "%s [-%ld] "), pmt, (long)(ABS(last_inc)));
        }
 
        /* Old (positive) increment, and not final */
        else if (last_inc > 0)
        {
-#ifdef JP
-               sprintf(buf, "%s [+$%ld] ", pmt, (long)(ABS(last_inc)));
-#else
-               sprintf(buf, "%s [+%ld] ", pmt, (long)(ABS(last_inc)));
-#endif
-
+               sprintf(buf, _("%s [+$%ld] ", "%s [+%ld] "), pmt, (long)(ABS(last_inc)));
        }
 
        /* Normal haggle */
@@ -2845,11 +4016,9 @@ static int get_haggle(cptr pmt, s32b *poffer, s32b price, int final)
                sprintf(buf, "%s ", pmt);
        }
 
-
-       /* Paranoia XXX XXX XXX */
+       /* Paranoia */
        msg_print(NULL);
 
-
        /* Ask until done */
        while (TRUE)
        {
@@ -2925,12 +4094,7 @@ static int get_haggle(cptr pmt, s32b *poffer, s32b price, int final)
                }
 
                /* Warning */
-#ifdef JP
-               msg_print("Ãͤ¬¤ª¤«¤·¤¤¤Ç¤¹¡£");
-#else
-               msg_print("Invalid response.");
-#endif
-
+               msg_print(_("値がおかしいです。", "Invalid response."));
                msg_print(NULL);
        }
 
@@ -2940,20 +4104,20 @@ static int get_haggle(cptr pmt, s32b *poffer, s32b price, int final)
 
 
 /*!
- * @brief Å¹¼ç¤¬¥×¥ì¥¤¥ä¡¼¤«¤é¤Î¸ò¾Ä²Á³Ê¤òȽÃǤ¹¤ë /
+ * @brief 店主がプレイヤーからの交渉価格を判断する /
  * Receive an offer (from the player)
- * @param pmt ¥á¥Ã¥»¡¼¥¸
- * @param poffer Å¹¼ç¤«¤é¤Î¸ò¾Ä²Á³Ê¤òÊÖ¤¹»²¾È¥Ý¥¤¥ó¥¿
- * @param last_offer ¸½ºß¤Î¸ò¾Ä²Á³Ê
- * @param factor Å¹¼ç¤Î²Á³Ê´ð½àÇÜΨ
- * @param price ¥¢¥¤¥Æ¥à¤Î¼Â²ÁÃÍ
- * @param final ºÇ½ª²Á³Ê³ÎÄê¤Ê¤é¤ÐTRUE
- * @return ¥×¥ì¥¤¥ä¡¼¤Î²Á³Ê¤ËÂФ·¤ÆÉÔÉþ¤Ê¤é¤ÐTRUE¤òÊÖ¤¹ /
+ * @param pmt ã\83¡ã\83\83ã\82»ã\83¼ã\82¸
+ * @param poffer åº\97主ã\81\8bã\82\89ã\81®äº¤æ¸\89価格ã\82\92è¿\94ã\81\99å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @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)
@@ -2977,11 +4141,11 @@ static bool receive_offer(cptr pmt, s32b *poffer,
 
 
 /*!
- * @brief ¥×¥ì¥¤¥ä¡¼¤¬¹ØÆþ¤¹¤ë»þ¤ÎÃÍÀÚ¤ê½èÍý¥á¥¤¥ó¥ë¡¼¥Á¥ó /
+ * @brief プレイヤーが購入する時の値切り処理メインルーチン /
  * Haggling routine                            -RAK-
- * @param o_ptr ¥ª¥Ö¥¸¥§¥¯¥È¤Î¹½Â¤Âλ²¾È¥Ý¥¤¥ó¥¿
- * @param price ºÇ½ª²Á³Ê¤òÊÖ¤¹»²¾È¥Ý¥¤¥ó¥¿
- * @return ¥×¥ì¥¤¥ä¡¼¤Î²Á³Ê¤ËÂФ·¤ÆŹ¼ç¤¬ÉÔÉþ¤Ê¤é¤ÐTRUE¤òÊÖ¤¹ /
+ * @param o_ptr ã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88ã\81®æ§\8bé\80 ä½\93å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @param price æ\9c\80çµ\82価格ã\82\92è¿\94ã\81\99å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @return プレイヤーの価格に対して店主が不服ならばTRUEを返す /
  * Return TRUE if purchase is NOT successful
  */
 static bool purchase_haggle(object_type *o_ptr, s32b *price)
@@ -2992,21 +4156,11 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
        s32b                       min_per, max_per;
        int                        flag, loop_flag, noneed;
        int                        annoyed = 0, final = FALSE;
-
        bool            cancel = FALSE;
-
-#ifdef JP
-       cptr pmt = "Ä󼨲Á³Ê";
-#else
-       cptr            pmt = "Asking";
-#endif
-
-
        char            out_val[160];
-
-
        *price = 0;
 
+       concptr pmt = _("提示価格", "Asking");
 
        /* Extract the starting offer and the final offer */
        cur_ask = price_item(o_ptr, ot_ptr->max_inflate, FALSE);
@@ -3022,12 +4176,7 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                if (noneed)
                {
                        /* Message summary */
-#ifdef JP
-                       msg_print("·ë¶É¤³¤Î¶â³Û¤Ë¤Þ¤È¤Þ¤Ã¤¿¡£");
-#else
-                       msg_print("You eventually agree upon the price.");
-#endif
-
+                       msg_print(_("結局この金額にまとまった。", "You eventually agree upon the price."));
                        msg_print(NULL);
                }
 
@@ -3035,12 +4184,7 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                else
                {
                        /* Message summary */
-#ifdef JP
-                       msg_print("¤¹¤ó¤Ê¤ê¤È¤³¤Î¶â³Û¤Ë¤Þ¤È¤Þ¤Ã¤¿¡£");
-#else
-                       msg_print("You quickly agree upon the price.");
-#endif
-
+                       msg_print(_("すんなりとこの金額にまとまった。", "You quickly agree upon the price."));
                        msg_print(NULL);
 
                        /* Apply Sales Tax */
@@ -3051,12 +4195,7 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                cur_ask = final_ask;
 
                /* Go to final offer */
-#ifdef JP
-               pmt = "ºÇ½ªÄ󼨲Á³Ê";
-#else
-               pmt = "Final Offer";
-#endif
-
+               pmt = _("最終提示価格", "Final Offer");
                final = TRUE;
        }
 
@@ -3090,14 +4229,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("Ä󼨤¹¤ë¶â³Û? ",
-#else
-                       cancel = receive_offer("What do you offer? ",
-#endif
-
-                                              &offer, last_offer, 1, cur_ask, final);
-
+                       cancel = receive_offer(_("提示する金額? ", "What do you offer? "), &offer, last_offer, 1, cur_ask, final);
                        if (cancel)
                        {
                                flag = TRUE;
@@ -3145,12 +4277,7 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                        {
                                final = TRUE;
                                cur_ask = final_ask;
-#ifdef JP
-                               pmt = "ºÇ½ªÄ󼨲Á³Ê";
-#else
-                               pmt = "Final Offer";
-#endif
-
+                               pmt = _("最終提示価格", "What do you offer? ");
                                annoyed++;
                                if (annoyed > 3)
                                {
@@ -3170,23 +4297,15 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
                                last_offer = offer;
                                allow_inc = TRUE;
                                prt("", 1, 0);
-#ifdef JP
-(void)sprintf(out_val, "Á°²ó¤ÎÄ󼨶â³Û: $%ld",
-#else
-                               (void)sprintf(out_val, "Your last offer: %ld",
-#endif
-
-                                                         (long)last_offer);
+                               (void)sprintf(out_val, _("前回の提示金額: $%ld", "Your last offer: %ld"), (long)last_offer);
                                put_str(out_val, 1, 39);
                                say_comment_2(cur_ask, annoyed);
                        }
                }
        }
 
-       /* Cancel */
        if (cancel) return (TRUE);
 
-       /* Update bargaining info */
        updatebargain(*price, final_ask, o_ptr->number);
 
        /* Do not cancel */
@@ -3195,11 +4314,11 @@ static bool purchase_haggle(object_type *o_ptr, s32b *price)
 
 
 /*!
- * @brief ¥×¥ì¥¤¥ä¡¼¤¬ÇäµÑ¤¹¤ë»þ¤ÎÃÍÀÚ¤ê½èÍý¥á¥¤¥ó¥ë¡¼¥Á¥ó /
+ * @brief プレイヤーが売却する時の値切り処理メインルーチン /
  * Haggling routine                            -RAK-
- * @param o_ptr ¥ª¥Ö¥¸¥§¥¯¥È¤Î¹½Â¤Âλ²¾È¥Ý¥¤¥ó¥¿
- * @param price ºÇ½ª²Á³Ê¤òÊÖ¤¹»²¾È¥Ý¥¤¥ó¥¿
- * @return ¥×¥ì¥¤¥ä¡¼¤Î²Á³Ê¤ËÂФ·¤ÆŹ¼ç¤¬ÉÔÉþ¤Ê¤é¤ÐTRUE¤òÊÖ¤¹ /
+ * @param o_ptr ã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88ã\81®æ§\8bé\80 ä½\93å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @param price æ\9c\80çµ\82価格ã\82\92è¿\94ã\81\99å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @return プレイヤーの価格に対して店主が不服ならばTRUEを返す /
  * Return TRUE if purchase is NOT successful
  */
 static bool sell_haggle(object_type *o_ptr, s32b *price)
@@ -3212,9 +4331,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];
@@ -3245,9 +4364,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
@@ -3261,9 +4379,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
@@ -3276,7 +4393,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
@@ -3290,7 +4407,7 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
                /* Final offer */
                final = TRUE;
 #ifdef JP
-               pmt = "ºÇ½ªÄ󼨶â³Û";
+               pmt = "最終提示金額";
 #else
                pmt = "Final Offer";
 #endif
@@ -3302,7 +4419,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;
@@ -3328,7 +4445,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
@@ -3386,7 +4503,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
@@ -3396,7 +4513,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());
@@ -3415,7 +4532,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
@@ -3426,10 +4543,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 */
@@ -3438,30 +4553,32 @@ static bool sell_haggle(object_type *o_ptr, s32b *price)
 
 
 /*!
- * @brief Å¹¤«¤é¤Î¹ØÆþ½èÍý¤Î¥á¥¤¥ó¥ë¡¼¥Á¥ó /
+ * @brief 店からの購入処理のメインルーチン /
  * Buy an item from a store                    -RAK-
- * @return ¤Ê¤·
+ * @return なし
  */
 static void store_purchase(void)
 {
-       int i, amt, choice;
-       int item, item_new;
+       int i, choice;
+       COMMAND_CODE item, item_new;
 
-       s32b price, best;
+       ITEM_NUMBER amt;
+
+       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
@@ -3473,14 +4590,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
@@ -3497,16 +4614,16 @@ static void store_purchase(void)
 
        /* 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
@@ -3532,8 +4649,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 */
@@ -3551,12 +4666,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;
        }
 
@@ -3570,12 +4680,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 */
@@ -3584,8 +4689,6 @@ msg_format("
                /* Allow user abort */
                if (amt <= 0) return;
        }
-
-       /* Get local object */
        j_ptr = &forge;
 
        /* Get desired object */
@@ -3603,12 +4706,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;
        }
 
@@ -3630,14 +4728,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 */
@@ -3685,12 +4776,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;
@@ -3711,14 +4797,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);
@@ -3728,8 +4807,6 @@ msg_format("%s
                                {
                                        o_ptr->pval -= j_ptr->pval;
                                }
-
-                               /* Handle stuff */
                                handle_stuff();
 
                                /* Note how many slots the store used to have */
@@ -3746,13 +4823,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);
@@ -3769,13 +4840,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 */
@@ -3787,8 +4852,6 @@ msg_format("%s
 
                                        /* Start over */
                                        store_top = 0;
-
-                                       /* Redraw everything */
                                        display_inventory();
                                }
 
@@ -3797,8 +4860,6 @@ msg_format("%s
                                {
                                        /* Pick the correct screen */
                                        if (store_top >= st_ptr->stock_num) store_top -= store_bottom;
-
-                                       /* Redraw everything */
                                        display_inventory();
                                }
 
@@ -3814,12 +4875,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."));
                        }
                }
        }
@@ -3838,15 +4894,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 */
@@ -3861,7 +4909,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 */
@@ -3876,8 +4923,6 @@ msg_format("%s
 
                        /* Nothing left on that screen */
                        else if (store_top >= st_ptr->stock_num) store_top -= store_bottom;
-
-                       /* Redraw everything */
                        display_inventory();
 
                        chg_virtue(V_SACRIFICE, 1);
@@ -3890,113 +4935,66 @@ msg_format("%s
 
 
 /*!
- * @brief Å¹¤«¤é¤ÎÇäµÑ½èÍý¤Î¥á¥¤¥ó¥ë¡¼¥Á¥ó /
+ * @brief 店からの売却処理のメインルーチン /
  * Sell an item to the store (or home)
- * @return ¤Ê¤·
+ * @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
+               s = _("寄贈できるアイテムを持っていません。", "You don't have any item to give.");
        }
        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];
-       }
-
-       /* 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;
 
@@ -4009,8 +5007,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 */
@@ -4042,25 +5038,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;
        }
@@ -4070,11 +5054,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);
 
@@ -4110,10 +5090,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 */
@@ -4141,11 +5118,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);
 
@@ -4173,8 +5146,6 @@ msg_format("%s
                                autopick_alter_item(item, FALSE);
 
                        inven_item_optimize(item);
-
-                       /* Handle stuff */
                        handle_stuff();
 
                        /* The store gets that (known) item */
@@ -4197,48 +5168,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 */
@@ -4256,13 +5206,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;
 
@@ -4270,8 +5214,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 */
@@ -4294,47 +5236,30 @@ msg_format("%s
 
 
 /*!
- * @brief Å¹¤Î¥¢¥¤¥Æ¥à¤òÄ´¤Ù¤ë¥³¥Þ¥ó¥É¤Î¥á¥¤¥ó¥ë¡¼¥Á¥ó /
+ * @brief 店のアイテムを調べるコマンドのメインルーチン /
  * Examine an item in a store                     -JDL-
- * @return ¤Ê¤·
+ * @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);
 
@@ -4342,12 +5267,7 @@ static void store_examine(void)
        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;
@@ -4362,61 +5282,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 Çîʪ´Û¤Î¥¢¥¤¥Æ¥à¤ò½üµî¤¹¤ë¥³¥Þ¥ó¥É¤Î¥á¥¤¥ó¥ë¡¼¥Á¥ó /
+ * @brief 博物館のアイテムを除去するコマンドのメインルーチン /
  * Remove an item from museum (Originally from TOband)
- * @return ¤Ê¤·
+ * @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;
        }
 
@@ -4427,11 +5323,7 @@ static void museum_remove_object(void)
        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;
@@ -4442,23 +5334,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);
@@ -4473,8 +5354,6 @@ static void museum_remove_object(void)
 
        /* Nothing left on that screen */
        else if (store_top >= st_ptr->stock_num) store_top -= store_bottom;
-
-       /* Redraw everything */
        display_inventory();
 
        return;
@@ -4488,9 +5367,9 @@ static bool leave_store = FALSE;
 
 
 /*!
- * @brief Å¹ÊÞ½èÍý¥³¥Þ¥ó¥ÉÁªÂò¤Î¥á¥¤¥ó¥ë¡¼¥Á¥ó /
+ * @brief 店舗処理コマンド選択のメインルーチン /
  * Process a command in a store
- * @return ¤Ê¤·
+ * @return なし
  * @note
  * <pre>
  * Note that we must allow the use of a few "special" commands
@@ -4501,13 +5380,9 @@ static bool leave_store = FALSE;
  */
 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! */
@@ -4523,16 +5398,12 @@ static void store_process_command(void)
                        break;
                }
 
-               /* ÆüËܸìÈÇÄɲà*/
-               /* 1 ¥Ú¡¼¥¸Ìá¤ë¥³¥Þ¥ó¥É: ²æ¤¬²È¤Î¥Ú¡¼¥¸¿ô¤¬Â¿¤¤¤Î¤Ç½ÅÊõ¤¹¤ë¤Ï¤º By BUG */
+               /* 日本語版追加 */
+               /* 1 ページ戻るコマンド: 我が家のページ数が多いので重宝するはず By BUG */
                case '-':
                {
                        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 -= store_bottom;
@@ -4550,19 +5421,14 @@ static void store_process_command(void)
                {
                        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 += store_bottom;
                                /*
-                                * ±£¤·¥ª¥×¥·¥ç¥ó(powerup_home)¤¬¥»¥Ã¥È¤µ¤ì¤Æ¤¤¤Ê¤¤¤È¤­¤Ï
-                                * ²æ¤¬²È¤Ç¤Ï 2 ¥Ú¡¼¥¸¤Þ¤Ç¤·¤«É½¼¨¤·¤Ê¤¤
+                                * 隠しオプション(powerup_home)がセットされていないときは
+                                * 我が家では 2 ページまでしか表示しない
                                 */
                                if ((cur_store_num == STORE_HOME) && 
                                    (powerup_home == FALSE) && 
@@ -4583,7 +5449,6 @@ static void store_process_command(void)
                        break;
                }
 
-               /* Redraw */
                case KTRL('R'):
                {
                        do_cmd_redraw();
@@ -4672,8 +5537,6 @@ static void store_process_command(void)
                        break;
                }
 
-
-
                /*** Use various objects ***/
 
                /* Browse a book */
@@ -4865,13 +5728,8 @@ 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;
                }
        }
@@ -4879,9 +5737,9 @@ static void store_process_command(void)
 
 
 /*!
- * @brief Å¹ÊÞ½èÍýÁ´ÂΤΥᥤ¥ó¥ë¡¼¥Á¥ó /
+ * @brief 店舗処理全体のメインルーチン /
  * Enter a store, and interact with it. *
- * @return ¤Ê¤·
+ * @return なし
  * @note
  * <pre>
  * Note that we use the standard "request_command()" function
@@ -4894,14 +5752,14 @@ static void store_process_command(void)
  */
 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 w, h;
+       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;
 
-       /* Get term size */
+       if(p_ptr->wild_mode) return;
        Term_get_size(&w, &h);
 
        /* Calculate stocks per 1 page */
@@ -4909,17 +5767,12 @@ void do_cmd_store(void)
        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;
        }
 
@@ -4932,21 +5785,16 @@ void do_cmd_store(void)
        inner_town_num = p_ptr->town_num;
 
        /* Hack -- Check the "locked doors" */
-       if ((town[p_ptr->town_num].store[which].store_open >= turn) ||
+       if ((town_info[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;
        }
 
        /* Calculate the number of store maintainances since the last visit */
-       maintain_num = (turn - town[p_ptr->town_num].store[which].last_visit) / (TURNS_PER_TICK * STORE_TICKS);
+       maintain_num = (turn - town_info[p_ptr->town_num].store[which].last_visit) / (TURNS_PER_TICK * STORE_TICKS);
 
        /* Maintain the store max. 10 times */
        if (maintain_num > 10) maintain_num = 10;
@@ -4958,27 +5806,18 @@ void do_cmd_store(void)
                        store_maint(p_ptr->town_num, which);
 
                /* Save the visit */
-               town[p_ptr->town_num].store[which].last_visit = turn;
+               town_info[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 */
@@ -4991,16 +5830,14 @@ void do_cmd_store(void)
        cur_store_feat = c_ptr->feat;
 
        /* Save the store and owner pointers */
-       st_ptr = &town[p_ptr->town_num].store[cur_store_num];
+       st_ptr = &town_info[p_ptr->town_num].store[cur_store_num];
        ot_ptr = &owners[cur_store_num][st_ptr->owner];
 
-
        /* Start at the beginning */
        store_top = 0;
 
-       music_basic(MUSIC_BASIC_BUILD);
+       play_music(TERM_XTRA_MUSIC_BASIC, MUSIC_BASIC_BUILD);
 
-       /* Display the store */
        display_store();
 
        /* Do not leave */
@@ -5015,104 +5852,55 @@ void do_cmd_store(void)
                /* Clear */
                clear_from(20 + xtra_stock);
 
-
                /* Basic commands */
-#ifdef JP
-               prt(" ESC) ·úʪ¤«¤é½Ð¤ë", 21 + xtra_stock, 0);
-#else
-               prt(" ESC) Exit from Building.", 21 + xtra_stock, 0);
-#endif
-
+               prt(_(" ESC) 建物から出る", " ESC) Exit from Building."), 21 + xtra_stock, 0);
 
                /* Browse if necessary */
                if (st_ptr->stock_num > store_bottom)
                {
-#ifdef JP
-                       prt(" -)Á°¥Ú¡¼¥¸", 22 + xtra_stock, 0);
-                       prt(" ¥¹¥Ú¡¼¥¹) ¼¡¥Ú¡¼¥¸", 23 + xtra_stock, 0);
-#else
-                       prt(" -) Previous page", 22 + xtra_stock, 0);
-                       prt(" SPACE) Next page", 23 + xtra_stock, 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 + xtra_stock, 27);
-                       prt("d) ¥¢¥¤¥Æ¥à¤òÃÖ¤¯", 22 + xtra_stock, 27);
-                       prt("x) ²È¤Î¥¢¥¤¥Æ¥à¤òÄ´¤Ù¤ë", 23 + xtra_stock, 27);
-#else
-                       prt("g) Get an item.", 21 + xtra_stock, 27);
-                       prt("d) Drop an item.", 22 + xtra_stock, 27);
-                       prt("x) eXamine an item in the home.", 23 + xtra_stock, 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 + xtra_stock, 27);
-                       prt("r) ¥¢¥¤¥Æ¥à¤ÎŸ¼¨¤ò¤ä¤á¤ë", 22 + xtra_stock, 27);
-                       prt("x) Çîʪ´Û¤Î¥¢¥¤¥Æ¥à¤òÄ´¤Ù¤ë", 23 + xtra_stock, 27);
-#else
-                       prt("d) Drop an item.", 21 + xtra_stock, 27);
-                       prt("r) order to Remove an item.", 22 + xtra_stock, 27);
-                       prt("x) eXamine an item in the museum.", 23 + xtra_stock, 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 + xtra_stock, 30);
-                       prt("s) ¥¢¥¤¥Æ¥à¤òÇä¤ë", 22 + xtra_stock, 30);
-                       prt("x) ¾¦ÉʤòÄ´¤Ù¤ë", 23 + xtra_stock,30);
-#else
-                       prt("p) Purchase an item.", 21 + xtra_stock, 30);
-                       prt("s) Sell an item.", 22 + xtra_stock, 30);
-                       prt("x) eXamine an item in the shop", 23 + xtra_stock,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 + xtra_stock, 56);
+               /* 基本的なコマンドの追加表示 */
+               prt(_("i/e) 持ち物/装備の一覧", "i/e) Inventry/Equipment list"), 21 + xtra_stock, 56);
 
                if (rogue_like_commands)
                {
-                       prt("w/T) ÁõÈ÷¤¹¤ë/¤Ï¤º¤¹", 22 + xtra_stock, 56);
+                       prt(_("w/T) 装備する/はずす", "w/T) Wear/Take off equipment"), 22 + xtra_stock, 56);
                }
                else
                {
-                       prt("w/t) ÁõÈ÷¤¹¤ë/¤Ï¤º¤¹", 22 + xtra_stock, 56);
+                       prt(_("w/t) 装備する/はずす", "w/t) Wear/Take off equipment"), 22 + xtra_stock, 56);
                }
-#else
-               prt("i/e) Inventry/Equipment list", 21 + xtra_stock, 56);
 
-               if (rogue_like_commands)
-               {
-                       prt("w/T) Wear/Take off equipment", 22 + xtra_stock, 56);
-               }
-               else
-               {
-                       prt("w/t) Wear/Take off equipment", 22 + xtra_stock, 56);
-               }
-#endif
                /* Prompt */
-#ifdef JP
-               prt("¥³¥Þ¥ó¥É:", 20 + xtra_stock, 0);
-#else
-               prt("You may: ", 20 + xtra_stock, 0);
-#endif
-
+               prt(_("コマンド:", "You may: "), 20 + xtra_stock, 0);
 
-               /* Get a command */
                request_command(TRUE);
 
                /* Process the command */
@@ -5127,35 +5915,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;
@@ -5164,14 +5939,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;
                        }
@@ -5184,40 +5952,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 */
@@ -5244,14 +5994,11 @@ void do_cmd_store(void)
 
        p_ptr->town_num = old_town_num;
 
-       /* Free turn XXX XXX XXX */
-       energy_use = 100;
-
+       take_turn(p_ptr, 100);;
 
        /* Hack -- Character is no longer in "icky" mode */
        character_icky = FALSE;
 
-
        /* Hack -- Cancel automatic command */
        command_new = 0;
 
@@ -5261,35 +6008,26 @@ void do_cmd_store(void)
        /* 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 ¸½ºß¤ÎÄ®¤ÎŹ¼ç¤ò¸òÂ夵¤»¤ë /
+ * @brief 現在の町の店主を交代させる /
  * Shuffle one of the stores.
- * @param which Å¹ÊÞ¼ïÎà¤ÎID
- * @return ¤Ê¤·
+ * @param which 店舗種類のID
+ * @return なし
  */
 void store_shuffle(int which)
 {
@@ -5305,7 +6043,7 @@ void store_shuffle(int which)
        cur_store_num = which;
 
        /* Activate that store */
-       st_ptr = &town[p_ptr->town_num].store[cur_store_num];
+       st_ptr = &town_info[p_ptr->town_num].store[cur_store_num];
 
        j = st_ptr->owner;
        /* Pick a new owner */
@@ -5316,7 +6054,7 @@ void store_shuffle(int which)
                for (i = 1;i < max_towns; i++)
                {
                        if (i == p_ptr->town_num) continue;
-                       if (st_ptr->owner == town[i].store[cur_store_num].owner) break;
+                       if (st_ptr->owner == town_info[i].store[cur_store_num].owner) break;
                }
                if (i == max_towns) break;
        }
@@ -5337,7 +6075,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))
@@ -5349,26 +6086,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 Å¹¤ÎÉÊ·¤¨¤òÊѲ½¤µ¤»¤ë /
+ * @brief 店の品揃えを変化させる /
  * Maintain the inventory at the stores.
- * @param town_num Ä®¤ÎID
- * @param store_num Å¹ÊÞ¼ïÎà¤ÎID
- * @return ¤Ê¤·
+ * @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;
 
@@ -5377,7 +6110,7 @@ void store_maint(int town_num, int store_num)
        if (store_num == STORE_MUSEUM) return;
 
        /* Activate that store */
-       st_ptr = &town[town_num].store[store_num];
+       st_ptr = &town_info[town_num].store[store_num];
 
        /* Activate the owner */
        ot_ptr = &owners[store_num][st_ptr->owner];
@@ -5444,20 +6177,19 @@ void store_maint(int town_num, int store_num)
 
 
 /*!
- * @brief Å¹ÊÞ¾ðÊó¤ò½é´ü²½¤¹¤ë /
+ * @brief 店舗情報を初期化する /
  * Initialize the stores
- * @param town_num Ä®¤ÎID
- * @param store_num Å¹ÊÞ¼ïÎà¤ÎID
- * @return ¤Ê¤·
+ * @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 */
-       st_ptr = &town[town_num].store[store_num];
+       st_ptr = &town_info[town_num].store[store_num];
 
 
        /* Pick an owner */
@@ -5469,7 +6201,7 @@ void store_init(int town_num, int store_num)
                for (i = 1;i < max_towns; i++)
                {
                        if (i == town_num) continue;
-                       if (st_ptr->owner == town[i].store[store_num].owner) break;
+                       if (st_ptr->owner == town_info[i].store[store_num].owner) break;
                }
                if (i == max_towns) break;
        }
@@ -5502,16 +6234,16 @@ void store_init(int town_num, int store_num)
 
 
 /*!
- * @brief ¥¢¥¤¥Æ¥à¤òÄ®¤Î¥Ö¥é¥Ã¥¯¥Þ¡¼¥±¥Ã¥È¤Ë°ÜÆ°¤µ¤»¤ë /
- * @param o_ptr °ÜÆ°¤µ¤»¤¿¤¤¥ª¥Ö¥¸¥§¥¯¥È¤Î¹½Â¤Âλ²¾È¥Ý¥¤¥ó¥¿
- * @return ¤Ê¤·
+ * @brief アイテムを町のブラックマーケットに移動させる /
+ * @param o_ptr ç§»å\8b\95ã\81\95ã\81\9bã\81\9fã\81\84ã\82ªã\83\96ã\82¸ã\82§ã\82¯ã\83\88ã\81®æ§\8bé\80 ä½\93å\8f\82ç\85§ã\83\9dã\82¤ã\83³ã\82¿
+ * @return なし
  */
 void move_to_black_market(object_type *o_ptr)
 {
        /* Not in town */
        if (!p_ptr->town_num) return;
 
-       st_ptr = &town[p_ptr->town_num].store[STORE_BLACK];
+       st_ptr = &town_info[p_ptr->town_num].store[STORE_BLACK];
 
        o_ptr->ident |= IDENT_STORE;