                           :ticks 0
                           :p1-level-score 0
                           :high-score 0
-                          :p1-lives 3
+                          :p1-lives 0;3
                           :game-state :attract-mode
                           :formation-expand? false
                           :wave-respawning? false

    ))

(defn on-new-game [screen entities]
  (do (update! screen
               :ticks 0
               :p1-level-score 0
               :p1-lives 3
               :game-state :in-game
               :formation-expand? false
               :wave-respawning? false)
    (prn :on-new-game)
    (remove #(:enemy? %) entities)))

(defn handle-all-entities [screen entities]
  (->> entities

                    (body-position! 0 (c/screen-to-world c/game-height) 0))
          bottom-oob (doto (create-oob-entity! screen (c/screen-to-world (+ c/game-width 20)) (c/screen-to-world 20))
                    (body-position! (c/screen-to-world (- 10)) (c/screen-to-world (- 20)) 0))
          space (sp/create-space)]
      [(assoc top-oob :id :top-oob :oob? true :render-layer 0)
       (assoc bottom-oob :id :bottom-oob :oob? true :render-layer 0)
       space]))

  :on-render
  (fn [screen entities]
