9 lines
243 B
Clojure
9 lines
243 B
Clojure
(ns sekai.event.queue
|
|
(:require [sekai.core.gamestate :refer [game-state]]))
|
|
|
|
(defn next-tick []
|
|
(-> @game-state :tick inc))
|
|
|
|
(defn enqueue! [event tick]
|
|
(swap! game-state update-in [:queue (max tick (next-tick))] (fnil conj []) event))
|