Fix aiming with no weapon crash

src/Dodge/Event.hs

@@ -104,13 +104,15 @@ handlePressedMouseButton but w
         _ -> Just w
     | otherwise = Just w
 
+-- note "reverse" on the inventory indices; otherwise
+-- lower items may be shifted up and items below these removed instead
 doCombine :: Int -> World -> World
 doCombine i w = case combineItemListYou w !? i of
     Nothing -> w
     Just (is,it) -> enterCombineInv
         . uncurry (putItemInInvID yid)
         . copyItemToFloorID (_crPos $ you w) it
-        $ foldr (rmInvItem yid) w is & enterCombineInv
+        $ foldr (rmInvItem yid) w (reverse is) & enterCombineInv
   where
     yid = _yourID w