Improve item use hammer, improve wide laser

2022-07-07 10:58:18 +01:00
parent 3759434d92
commit 68cb191063
26 changed files with 328 additions and 301 deletions
@@ -281,7 +281,6 @@ youDropItem' w = case yourItem w ^? _Just . itCurseStatus of
 copyInvItemToFloor :: Creature -> Int -> World -> World
 copyInvItemToFloor cr i = copyItemToFloor (_crPos cr) 
    $ _crInv cr IM.! i 
-        & itPos .~ VoidItm
        & itIsHeld .~ False

 sizeSelf :: Float -> Creature -> World -> Maybe World