Fix wristArmour drop bug

2023-02-23 14:35:17 +00:00
parent 683acf8a05
commit c5bfa36bde
2 changed files with 6 additions and 3 deletions
@@ -80,9 +80,11 @@ onEquipWristShield itm cr w =

 onRemoveWristShield :: Item -> Creature -> World -> World
 onRemoveWristShield itm _ =
-    (pointerToItem itm . itUse . equipEffect . eeParams .~ NoEquipParams) . deleteWallID i
+    (pointerToItem itm . itUse . equipEffect . eeParams .~ NoEquipParams) . mremovewall
  where
-    i = _eparamID $ _eeParams $ _equipEffect $ _itUse itm
+    mremovewall = fromMaybe id $ do
+        i <- itm ^? itUse . equipEffect . eeParams . eparamID
+        return $ deleteWallID i

 setWristShieldPos :: Item -> Creature -> World -> World
 setWristShieldPos itm cr w =