     (update! screen :p1-level-score (+ (:p1-level-score screen) (* (:score enemy) (:p1-bonus screen))))
     (if (some? spark-emitter-id)
       (spark/remove-spark-emitter spark-emitter-id))
-
     (cond (= (:movement-state enemy) :beaming)
           (let [ship (first (filter #(:ship? %) entities))
                 all-others (filter #(nil? (:ship? %)) entities)

                    (spark-enemy enemy other-entity screen entities))
                  (= :returning m-s)
                  (do
                    (if (not (:boss? enemy))
                      (create-minis screen (:ship-texture enemy) x (:y enemy)))
                    (if (= hp 0)
                      (explode-enemy enemy other-entity screen entities)

(def large-size (c/screen-to-world 16))
(def mini-size (c/screen-to-world 10))

(defn- create-enemy-entity! [screen ship-texture col]
  (let [pixel-ship (texture ship-texture)]
    (doto (assoc pixel-ship
            :body (create-enemy-body! screen)
