Implemented magical keys.

Author: Kodiologist

simalq/tile/item.hy

@@ -327,6 +327,18 @@
     f"Protects you (for {@duration} more turns) from harmful status effects and disenchantment.")
   :flavor "Also known as a ring of anti-anti-magic. Fortunately, anti-anti-anti-magic traps are still in dungeon R&D.")
 
+(deftile "⚷ " "a magical key" StatusEffectItem
+  :color 'purple
+  :iq-ix 183
+  :acquirement-points 100
+
+  :effect StatusEffect.MKey
+  :duration 12
+
+  :help (meth []
+    f"Grants you a magical key for {@duration} more turns. In this state, you can open scenery objects that would require a key without actually using one. Furthermore, you can open metal doors, and bumping into a one-way door turns it into a normal door (even if its direction is such that you could normally enter it).")
+  :flavor "A huge key blinged out with a nearly-as-huge finely cut amethyst. It's so powerful that within a few moments of being activated by your body heat, it opens itself, leaving only a shiny dust that has too many heavy metals to be useful as glitter.")
+
 ;; --------------------------------------------------------------
 ;; * Usables
 ;; --------------------------------------------------------------

simalq/tile/scenery.hy

@@ -205,9 +205,10 @@
         f"replace the tile with {(. Tile types [@result-when-opened] name-with-article)}."
         "destroy the tile.")))
 
-    (unless G.player.keys
-      (raise (CommandError "It's locked, and you're keyless at the moment.")))
-    (-= G.player.keys 1)
+    (unless (.player-has? StatusEffect.MKey)
+      (unless G.player.keys
+        (raise (CommandError "It's locked, and you're keyless at the moment.")))
+      (-= G.player.keys 1))
     (if @result-when-opened
       (@replace @result-when-opened)
       (@rm-from-map))
@@ -270,6 +271,11 @@
 
   :blocks-move T
 
+  :hook-player-bump (meth [origin]
+    (when (.player-has? StatusEffect.MKey)
+      (@rm-from-map)
+      T))
+
   :flavor "This massive slab of steel will certainly not be opened with a sad little bargain-basement skeleton key. Your best bet is looking for a remote switch of some kind.")
 
 (deftile "+|" "a metal-door control" Scenery
@@ -309,6 +315,11 @@
     direction None
     color #('brown 'red))
 
+  (defmeth hook-player-bump [origin]
+    (when (.player-has? StatusEffect.MKey)
+      (@replace "door")
+      T))
+
   (defmeth hook-player-walk-from [target]
     (doc f"Only allows you to walk {@direction.name}.")
     (unless (= (+ @pos @direction) target)

simalq/tile/unimplemented.hy

@@ -38,7 +38,6 @@
     [178 "magical_barrier_generator"]
     [179 "magical_barrier_east"]
     [180 "magical_barrier_north"]
-    [183 "magical_key"]
     [184 "giant_ant"]
     [185 "dark_brain"]
     [187 "magical_mirror"]

tests/test_item.hy

@@ -353,6 +353,31 @@
   (check 88 F T))
 
 
+(defn test-magical-key []
+
+  (setv becomes {
+    'floor                     'floor
+    "locked door"              "door"
+    "door"                     "door"
+    "locked disappearing door" 'floor
+    "closed portcullis"        "closed portcullis"
+      ; The portcullis will open, but then close again after we walk
+      ; through it.
+    "treasure chest"           'floor
+    "one-way door (east)"      "door"
+    "one-way door (north)"     "door"
+    "metal door"               'floor})
+  (init [:tiles [
+    "magical key" "magical key"
+    #* (.keys becomes)
+    'floor "wall"]])
+
+  (wk 'E 19)
+  (cant (wk 'E) "Your way is blocked.")
+  (for [[i result] (enumerate (.values becomes))]
+    (assert-at [(+ i 3) 0] result)))
+
+
 (defn test-inventory []
   (init [:tiles [
      "wand of shielding" "wall-making wand"