Slightly refactored the handling of unknown potions.

Author: Kodiologist

simalq/tile/item.hy

@@ -132,12 +132,14 @@
         (+= G.player.hp (refactor-hp @hp-effect)))))
 
 (setv (get Tile.types-by-iq-ix 21) (fn [pos _ te-v2]
-  ; IQ's three types of unknown potion are mapped to items with fixed
-  ; HP effects equal to the mean HP effect of the given type.
-  [(
-    (get Tile.types
-      (get ["meal" "empty platter" "rotten food"] (- te-v2 1)))
-    :pos pos)]))
+  [(unknown-potion pos te-v2)]))
+
+(defn unknown-potion [pos i]
+  "IQ's three types of unknown potion are mapped to items with fixed
+  HP effects equal to the mean HP effect of the given type."
+  ((get Tile.types
+      (get ["meal" "empty platter" "rotten food"] (- i 1)))
+    :pos pos))
 
 (deftile "% " "a meal" Food
   :color 'red

simalq/tile/scenery.hy

@@ -278,9 +278,9 @@
   ; on top of the item contained within.
   [
     ((get Tile.types "treasure chest") :pos pos)
-    #* (if (= te-v1 21) ; An unknown potion
-         ((get Tile.types-by-iq-ix te-v1) pos None te-v2)
-         [((get Tile.types-by-iq-ix te-v1) :pos pos)])]))
+    (if (= te-v1 21) ; An unknown potion
+      (hy.I.simalq/tile/item.unknown-potion pos te-v2)
+      ((get Tile.types-by-iq-ix te-v1) :pos pos))]))
 
 ;; --------------------------------------------------------------
 ;; ** Metal doors