                                 :music (memo-sound "sound/fond.mp3")
                                 :bg-width (:width background)
                                 :bg-height (:height background)
-                                :last-spawn 0))]
+                                :last-spawn 0
+                                :events []))]
 
                (add-timer! screen :ambiant-sound 3 3)
                (sound! (:music screen) :loop)

                (create-player-entity screen)]))

           :on-render

           (fn [screen entities]

             (clear!)


           (and (= z-side :bottom) (= normal (vector-2 0.0 -1.0)))
           (and (= z-side :left) (= normal (vector-2 -1.0 0.0)))))))

(defmulti apply-event (fn [_ _ [type & _]] type))

(defmethod apply-event :player-moved [screen entities [_ direction]]
  (on-key-move-cell entities direction))

(defn apply-events [{:keys [events] :as screen} entities]
  (reduce (fn [entities evt]
            (apply-event screen entities evt))
          entities
          events))

(defscreen main-screen

           :on-show
