Start more sensibly separating avatar from ai creatures

2024-12-17 19:55:07 +00:00
parent 234b10df40
commit d0ef2628ce
23 changed files with 392 additions and 368 deletions
@@ -15,6 +15,7 @@ module Dodge.Item.Equipment (
    speedLegs,
    jumpLegs,
    flameShield,
+    pulseChecker,
 ) where

 import Geometry.Data
@@ -123,3 +124,9 @@ wristInvisibility =
        & itUse . uequipEffect . eeOnEquip .~ ECamouflage Invisible 
        & itUse . uequipEffect . eeOnRemove .~ ECamouflage FullyVisible 
        & itType .~ EQUIP (INVISIBILITYEQUIPMENT GoesOnWrist)
+
+pulseChecker :: Item
+pulseChecker =
+    defaultEquipment
+        & itUse . uequipEffect . eeSite .~ GoesOnWrist
+        & itType .~ EQUIP PULSECHECKER