dropItem :: (Monad m) => Item -> CyoaT m ()
dropItem item =
  modifyPlayerState $ \ps -> ps { player_carries = Set.delete item (player_carries ps) }
dropItem :: (Monad m) => Item -> CyoaT m ()
dropItem item =
  modifyPlayerState $ \ps -> ps { player_carries = Set.delete item (player_carries ps) }
dropItem item =
  modifyPlayerState $ \ps -> ps { player_carries = Set.delete item (player_carries ps) }