From 91dd08629219b1218d9d8f1449d5bdd557eaf0f5 Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Tue, 5 Oct 2021 18:39:24 +0900
Subject: [PATCH] Auto commit by The Sugar System.

---
 dot-files/_angband/Hengband/pickpref_prf | 29 +++++++++++++++++++++---
 dot-files/_emacs_el                      |  2 +-
 2 files changed, 27 insertions(+), 4 deletions(-)

diff --git a/dot-files/_angband/Hengband/pickpref_prf b/dot-files/_angband/Hengband/pickpref_prf
index e000138..3ffaa63 100644
--- a/dot-files/_angband/Hengband/pickpref_prf
+++ b/dot-files/_angband/Hengband/pickpref_prf
@@ -39,6 +39,8 @@ elvish waybread#@E0
 
 mushroom of restoring#!k!s!d
 ~mushroom of restore
+!mushroom of disease
+!mushroom of unhealth
 
 #===============================================================
 #  Light sources
@@ -69,6 +71,7 @@ Feanorian Lamp
 #===============================================================
 phial of galadriel#%all;@A0!!
 
+unidentified:^stone
 stone of lore#!s!d@A8
 A:\e\e\\A8\e(
 P:^e
@@ -104,10 +107,13 @@ artifact weapons:broken
 # ego.
 !worthless weapons:blade of chaos
 weapons:blade of chaos
-shields:mirror shield#!k
+shields:mirror shield#%all!k
 weapons:poison needle
 armors:dragon#%all
 armors:mythril
+armors:elvenkind#%all
+armors:elven
+armors:black clothes
 
 # Discard boring weapons and armors depending on the player level.
 # TODO: Move the Weaponsmith to the class-specific file.
@@ -118,6 +124,12 @@ armors:mythril
 ?:[AND [GEQ $LEVEL 25] [NOT [EQU $CLASS Weaponsmith]]]
 !good weapons
 !good armors
+
+?:[AND [GEQ $LEVEL 30] [NOT [EQU $CLASS Weaponsmith]]]
+# We don't need "Sword of Slay Human" but we may need "Sword of
+# Slaying".
+~ego weapons:of slaying
+!ego weapons:slay
 ?:1
 
 # Unidentified weapons are potentially useful. Pick them all.
@@ -128,6 +140,8 @@ unidentified armors
 #  Potions
 #===============================================================
 potion of heroism
+potion of resist cold
+potion of resist heat
 potion of cure critical wounds#@q0
 
 potion of speed#!*
@@ -173,6 +187,7 @@ scroll of teleport level#!k!s!r
 
 scroll of monster confusion#!k@r2
 scroll of identify#@r8
+scroll of *identify*#!r
 
 # Players may be relying on Rod of Recall. If they aren't collecting
 # the scrolls leave them on the floor. If they are, pick them with a
@@ -204,7 +219,7 @@ wand of rockets#!k!s
 wand of dragon's flame#!k!s
 wand of dragon's frost#!k!s
 
-# Magic-eaters should pick every wand except for useless ones.
+# Magic-eaters should pick every wand except for truly useless ones.
 ?:[EQU $CLASS Magic-Eater]
 magical devices:wand
 
@@ -299,6 +314,7 @@ unidentified:ring
 # Some amulets are totally worthless, like Amulet of Strength [-5].
 !worthless:amulet
 
+amulet of resistance#%all
 ~amulet of resist
 ~amulet of charisma
 
@@ -316,6 +332,7 @@ unidentified:amulet
 #===============================================================
 #  Books
 #===============================================================
+
 ~first realm's first spellbooks#@ma!k
 ~first realm's second spellbooks#@mb!k
 first realm's third spellbooks#@mc!k
@@ -326,9 +343,15 @@ first realm's fourth spellbooks#@md!k
 second realm's third spellbooks#@mg!k
 second realm's fourth spellbooks#@mh!k
 
+# We want to pick up expensive unreadable books for money. Note that
+# Arcane ones are cheap.
 !unreadable first spellbooks
 !unreadable second spellbooks
-~unreadable third spellbooks
+
+!unreadable third spellbooks:arcane
+unreadable third spellbooks
+
+~unreadable fourth spellbooks:arcane
 unreadable fourth spellbooks
 
 #===============================================================
diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index d84dc6e..712bf7a 100644
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -782,7 +782,7 @@ Will prompt you shell name when you type `C-u' before this command." t)
  '(diff-added ((t (:inherit diff-changed :foreground "medium spring green" :weight extra-bold))))
  '(diff-removed ((t (:foreground "gold3" :weight extra-bold))))
  '(flyspell-incorrect ((t (:foreground "OrangeRed" :overline t))))
- '(font-lock-function-name-face ((t (:foreground "light steel blue" :weight bold))))
+ '(font-lock-function-name-face ((t (:foreground "sky blue" :weight bold))))
  '(jaspace-highlight-tab-face ((((class color) (background dark)) (:foreground "gray70" :underline t))))
  '(navi2ch-bm-new-unread-face ((t (:foreground "PaleGreen" :weight bold))))
  '(navi2ch-bm-updated-cache-face ((t (:foreground "CornflowerBlue" :weight bold))))
-- 
2.40.0