Highlight dropped items, work towards fixing pickup selection change

2026-05-16 10:04:28 +01:00
parent 569ea1e1ab
commit db2ce72076
11 changed files with 39 additions and 35 deletions
@@ -73,7 +73,7 @@ destroyItem itid w = case w ^? cWorld . lWorld . items . ix itid . itLocation of
    Nothing -> error $ "Tried to destroy item that does not exist; item id: " ++ show itid
    Just InInv{_ilCrID = cid, _ilInvID = invid} -> destroyInvItem cid invid w
    Just OnTurret{} -> error "need to write code for destroying items on turrets"
-    Just OnFloor ->
+    Just OnFloor{} ->
        w
            & cWorld . lWorld . items . at itid .~ Nothing
            & cWorld . lWorld . floorItems . at itid .~ Nothing