Improve item location code

src/Dodge/Creature/Action.hs

@@ -15,7 +15,7 @@ module Dodge.Creature.Action (
     copyInvItemToFloor,
     youDropItem,
     pickUpItem,
-    pickUpItemID,
+--    pickUpItemID,
 ) where
 
 import Control.Applicative
@@ -210,8 +210,6 @@ copyInvItemToFloor :: Creature -> Int -> World -> World
 copyInvItemToFloor cr i =
     copyItemToFloor (_crPos cr) $
         _crInv cr IM.! i
-            & itIsSelected .~ False
-            & itIsRoot .~ False
 
 sizeSelf :: Float -> Creature -> World -> Maybe World
 sizeSelf x cr w
@@ -236,11 +234,3 @@ sizeSelf x cr w
     cid = _crID cr
     cpos = _crPos cr
 
-pickUpItemID :: Int -> Int -> World -> World
-pickUpItemID cid flid w = pickUpItem cid (w ^?! cWorld . lWorld . floorItems . ix flid) w
-
--- | Pick up a specific item.
-pickUpItem :: Int -> FloorItem -> World -> World
-pickUpItem cid flit w =
-    maybe w (soundStart (CrSound cid) (_flItPos flit) pickUpS Nothing . snd) $
-        tryPutItemInInv cid flit w