Implemented explosive walls.

Author: Kodiologist

simalq/tile/scenery.hy

@@ -10,7 +10,7 @@
   fractions [Fraction :as f/]
   toolz [unique]
   simalq.color :as color
-  simalq.util [CommandError DamageType next-in-cycle StatusEffect]
+  simalq.util [CommandError DamageType next-in-cycle StatusEffect burst-damage]
   simalq.geometry [Pos Direction at burst dist dir-to ray]
   simalq.tile [Tile Actor PosHooked EachTurner Damageable annihilate]
   simalq.game-state [G])
@@ -589,6 +589,29 @@
 
   :flavor "An immobile switch that toggles phasing walls. Tris's expertise in target shooting allows her to trigger one of these with a single arrow.")
 
+
+(deftile "X█" "an explosive wall" Wallish
+  :color #('pale-orange None)
+  :color-bg #('black None)
+  :iq-ix 207 ; exploding wall
+
+  :$damage 3
+
+  :hook-player-bump (meth [origin]
+    (doc f"Explodes in a 3-by-3 burst of fire, doing {@damage} damage to monsters (but not harming you) and setting off any other explosive walls in the area.")
+    (setv target @pos)
+    (@rm-from-map)
+    (for [
+        pos (burst-damage target :damage-type DamageType.Fire
+          :amount [@damage @damage]
+          :color 'orange)
+        tile (list (at pos))
+        :if (= tile.stem "explosive wall")]
+      (.hook-player-bump tile None))
+    T)
+
+  :flavor "This section of stonework is packed with bombs. Just one good smack could set them all off.")
+
 ;; --------------------------------------------------------------
 ;; * Pushblocks
 ;; --------------------------------------------------------------

simalq/tile/unimplemented.hy

@@ -23,7 +23,6 @@
     [202 "rotation_trap"]
     [204 "vampire"]
     [205 "moving_wall"]
-    [207 "exploding_wall"]
     [209 "snitch"]
     [210 "dark_king"]]
 

tests/test_scenery.hy

@@ -387,6 +387,37 @@
   (assert-at [11 3] "phasing wall (out of phase)"))
 
 
+(defn test-explosive-wall []
+  (init [
+    :map "
+      @ X█o X█K X███X█
+      X█X█X███X█X███X█
+      T T T T T T T T"
+    :map-marks {
+      "T " ["thorn tree" :hp 100]
+      "K " ["Dark Knight" :hp 100]}])
+  (setv G.rules.reality-bubble-size 1)
+
+  ; Hit one of the explosive walls, setting off a chain reaction
+  ; (which can extend past the reality bubble).
+  (wk 'E)
+  (assert-textmap
+    :text "
+      @ . . . K . ██X█
+      . . . ██. . ██X█
+      . . . . . . . T"
+    :map-marks {
+      "T " ["thorn tree" :hp 100]
+      "K " ["Dark Knight" :hp (- 100 (* 4 3))]})
+  ; The player is unhurt.
+  (assert (= G.player.hp 100))
+  ; And she gets points for harmed monsters, as normal.
+  (assert (= G.score (+ 3 (* 10 7))))
+  ; Hitting an explosive wall takes a turn. In IQ, it doesn't, which
+  ; is presumably a bug.
+  (assert (= G.turn-n 1)))
+
+
 (defn test-pushblock []
   (init
     [:tiles ["pushblock" "pile of gold"]])