           (= :dropping ms)
           (update-dropping entity screen)
           (= :beaming ms)
+          (update-beaming entity screen)
+          :Else
           entity)))
 
 (defn update-emitter [screen entity]

          (body-position! entity (:home-x entity) (c/screen-to-world c/game-height) 0)
          (assoc entity :movement-state (state-machine (:movement-state entity))))))



(def ticks-next-bomb-max-delta 60)
(def large-size (c/screen-to-world 16))
(def mini-size (c/screen-to-world 10))
(def beaming-ticks 120)

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