Work on mapper item, simpler generation of items from console

2025-01-02 11:16:04 +00:00
parent 03b25565f1
commit 725a59b9d0
20 changed files with 439 additions and 379 deletions
@@ -341,7 +341,7 @@ useLoadedAmmo itmtree cr (cme, w) (mzid, Just (mz, x, magtree)) = (,) (cme & cme

 itemDetectorEffect :: Item -> Creature -> World -> World
 itemDetectorEffect itm cr w = fromMaybe w $ do
-    DETECTOR dt <- itm ^? itType . ibtHeld
+    DETECTOR dt <- itm ^? itType
    return $ case dt of
        ITEMDETECTOR -> aRadarPulse ObItem cr w
        CREATUREDETECTOR -> aRadarPulse ObCreature cr w