Implemented amulets of poison.

Author: Kodiologist

simalq/game_state.hy

@@ -169,6 +169,8 @@
       ; How much with the relevant artifact (and no magic arrows).
     player-shot-damage-magic 3
       ; How much damage the player does with magic arrows.
+    player-poison-damage 3
+      ; How much damage the player does with a poisonous aura.
     magic-arrows-pickup-size 10
       ; How many magic arrows come in a pickup.
     time-bonus 25
@@ -178,7 +180,7 @@
     paralysis-duration 3
       ; How many rounds paralysis lasts for.
     poison-emitter-damage 2
-      ; Damage per turn from poisonous fountains.
+      ; Damage per turn (to the player) from poisonous fountains.
     dainty-monsters T])
       ; Whether monsters will only step on empty floor (with some
       ; exceptions, like spiders walking on webs). Otherwise,

simalq/main.hy

@@ -6,7 +6,7 @@
   contextlib [contextmanager]
   simalq [version-string]
   simalq.strings
-  simalq.util [CommandError StatusEffect message-queue msg DamageType GameOverException menu-letters]
+  simalq.util [CommandError StatusEffect message-queue msg DamageType GameOverException menu-letters burst-damage]
   simalq.color :as color
   simalq.geometry [burst at turn-and-pos-seed]
   simalq.game-state [G]
@@ -107,6 +107,16 @@
     (when extra-poison
       (.damage G.player G.rules.poison-emitter-damage DamageType.Poison)))
 
+  ; The player herself deals out passive poison damage, if she's
+  ; poisonous.
+  (when (.player-has? StatusEffect.Pois)
+    (burst-damage G.player.pos
+      :damage-type DamageType.Poison
+      :amount (* [G.rules.player-poison-damage] 2)
+      :color 'moss-green
+      :quick-flash T))
+        ; This is happening every turn, so it should be fast.
+
   ; Tick down status effects.
   (for [se StatusEffect]
     (when (.player-has? se)

simalq/tile/item.hy

@@ -292,7 +292,7 @@
   :flavor "Looks like the ethereal power of one of those many, many evil undead phantasms rubbed off onto this little trinket. Try not to let the magic run out when you're entirely surrounded by walls. Getting buried alive is a bad way to go.")
 
 (deftile "! " "a potion of speed" StatusEffectItem
-  :color 'dark-green
+  :color 'red
   :iq-ix 34
   :acquirement-points 100
 
@@ -303,6 +303,21 @@
     f"Lets you act twice per turn for {@duration} more turns.")
   :flavor "This cool concoction puts a pep in your step and a swiftness in your sword-swings.")
 
+(deftile "! " "an amulet of poison" StatusEffectItem
+  :color 'dark-green
+  :iq-ix 159
+    ; IQ calls this an "amulet of poisonous touch", but no real
+    ; touching is required, and IQ's poisonous amulets have also been
+    ; renamed, so there should be no danger of confusion there.
+  :acquirement-points 250
+
+  :effect StatusEffect.Pois
+  :duration 15
+
+  :help (meth []
+    f"Surrounds you in a cloud of poison for {@duration} more turns. You are immune to the effect, but all monsters within 1 square take {G.rules.player-poison-damage} damage.")
+  :flavor "Finally, somebody concoted a poison that hurts monsters but not you. This handy wearable fumigator lets you apply it hands-free.")
+
 (deftile "! " "a cloak of invisibility" StatusEffectItem
   :color 'blue
   :iq-ix 25

simalq/tile/unimplemented.hy

@@ -30,7 +30,6 @@
     [132 "golem"]
     [134 "siren"]
     [152 "random_gate"]
-    [159 "amulet_of_poisonous_touch"]
     [164 "cyclops"]
     [165 "dark_prince"]
     [166 "blind_mage"]

simalq/util.hy

@@ -180,7 +180,7 @@
 
 
 (defn burst-damage [
-    center color amount damage-type [player-amount 0]]
+    center color amount damage-type [player-amount 0] [quick-flash F]]
   "Damage every tile in a burst. `amount` should be a list like `[3 2
   1]`, which means that 3 damage is dealt at the center, 2 damage is
   dealt at distance 1 from the center, and so on. But note that this
@@ -199,7 +199,7 @@
     color
     :ps b
     :labels {}
-    :flash-time-s .5)
+    :flash-time-s (if quick-flash .125 .5))
 
   (for [p b  tile (at p)  :if (isinstance tile Damageable)]
     (.damage tile

tests/test_item.hy

@@ -7,6 +7,7 @@
   simalq.geometry [Pos Direction at]
   simalq.game-state [G]
   simalq.util [StatusEffect]
+  simalq.tile [Monster]
   simalq.quest-definition [mk-tile])
 (setv  T True  F False)
 
@@ -288,6 +289,27 @@
   (check 21 11))
 
 
+(defn test-amulet-of-poison []
+  (init [
+    :map "
+      . @ .
+      o ! o
+      o o o"
+    :map-marks {
+      "o " ["orc" :hp 10]
+      "! " "amulet of poison"}])
+
+  ; Pick up the amulet, doing 3 damage to all the surrounding orcs.
+  (wk 'S)
+  ; Make another orc on our own square. Wait 1 turn, doing another
+  ; 3 damage to all of 'em.
+  (Monster.make G.player.pos "orc" :hp 10)
+  (wait)
+  (for [direction ['E 'SE 'S 'SW 'W]]
+    (assert-hp direction 4))
+  (assert-hp 'here 7))
+
+
 (defn test-cloak-of-invisibility []
   (init [
     :map "