deleteItemEqp :: MonadStateWrite m => ItemId -> ItemQuant -> ActorId -> m ()
deleteItemEqp iid kit aid =
  updateActor aid $ \b -> b {beqp = rmFromBag kit iid (beqp b)}
deleteItemEqp :: MonadStateWrite m => ItemId -> ItemQuant -> ActorId -> m ()
deleteItemEqp iid kit aid =
  updateActor aid $ \b -> b {beqp = rmFromBag kit iid (beqp b)}
deleteItemEqp iid kit aid =
  updateActor aid $ \b -> b {beqp = rmFromBag kit iid (beqp b)}