Pitted creatures lose all items

src/Dodge/Creature/Update.hs

@@ -2,6 +2,7 @@ module Dodge.Creature.Update (
     updateCreature,
 ) where
 
+import Dodge.Inventory
 import LensHelp
 import Geometry
 import Dodge.SoundLogic
@@ -18,7 +19,7 @@ import qualified Data.List as List
 
 updateCreature :: Creature -> World -> World
 updateCreature cr
-    | _crZ cr < negate 100 = id -- can remove creature and all items
+    | _crZ cr < negate 100 = destroyAllInvItems cr
     | _crZ cr < 0 = (tocr . crZVel -~ 0.5)
             . (tocr . crZ +~ _crZVel cr)
     | otherwise = updateCreature' cr