; SPDX-FileCopyrightText: 2023 Jummit
;
; SPDX-License-Identifier: GPL-3.0-or-later

(fn decay [entities]
  "Removes entities in decay-in ticks."
  (each [id entity (ipairs entities)]
    (case entity
      {:decay-in 0}
      (entities.remove id)
      {: decay-in}
      (set entity.decay-in (- decay-in 1)))))

{: decay}