                                      20 4
                                      25 5
                                      (:level player))]
-                     (->> entities
-                          (replace {player (assoc player :life new-life :level new-level)})
-                          #_(replace {score (doto score
-                                            (label! :set-text (str new-life)))})))
+                     (run! score-screen :update-score :score new-life)
+                     (replace {player (assoc player :life new-life :level new-level)} entities))
                    (let [new-life (inc (:life player))]
+                     (run! score-screen :update-score :score new-life)
                      (->> entities
                           (remove #(= % enemy))
-                          #_(replace {score (doto score
-                                            (label! :set-text (str new-life)))})
                           (replace {player (assoc player :life new-life)}))))
                  entities)))
 


           :on-key-down
           (fn [_ entities]
             (set-screen! con-world main-screen)
             entities)

           :on-resize


           :on-timer
           (fn [screen entities]
             (if (= :spawn-enemy (:id screen))
               (conj entities (cell/spawn-enemy screen))
               entities)))

(defscreen score-screen
           :on-show
           (fn [screen _]
             (update! screen :renderer (stage) :camera (orthographic))
             (assoc (label "" (color :white))
               :y (- u/w-height 16)
               :score? true))

           :on-render
           (fn [screen entities]
             (render! screen entities))

           :update-score
           (fn [{:keys [score]} entities]
             (let [score-label (cell/find-score entities)]
               (replace {score-label (doto score-label (label! :set-text (str score)))} entities)))

           :on-resize
           (fn [screen entities]
             (size! screen (game :width) (game :height))
             entities))

(defscreen intro-screen
           :on-show
