     (cond (> (:current-time entity) 1)
           (do
             (if (not= :capturing (:movement-state entity))
-              (body-position! entity (:home-x entity) (c/screen-to-world c/game-height) 0))
-            (do
-              ;(let [next-keyword (c/rand-keyword)]
-                ;(update! screen next-keyword {:f assoc :args [entity :movement-state :dropping]})
-                ;(add-timer! screen next-keyword 2.0))
-              (assoc entity :movement-state (state-machine (:movement-state entity)))))
+              (do
+                (body-position! entity (:home-x entity) (c/screen-to-world c/game-height) 0)
+                (assoc entity :movement-state (state-machine (:movement-state entity))))
+              (assoc entity :beaming-ticks beaming-ticks :movement-state (state-machine (:movement-state entity)))))
           :else
           (do
             (body-position! entity x y a)

          (= :dropping ms)
          (update-dropping entity screen)
          (= :beaming ms)
          entity)))

(defn update-emitter [screen entity]

                  {:x 3, :y 8} {:x 1, :y 9} {:x 2, :y 9} {:x 3, :y 9} {:x 4, :y 9} {:x 3, :y 10} {:x 4, :y 10} {:x 5, :y 10}]}})

(def state-machine {:drifting :attacking :attacking :returning :returning :drifting
                    :capturing :beaming :beaming :dropping :dropping :returning
                    :guarding :towing :towing :drifting})

(def starting-state :drifting)

(def speed (c/screen-to-world 12))
(def returning-speed (c/screen-to-world 0.6))
(def dropping-speed (- (c/screen-to-world 0.7)))
(def d-time (/ 1.0 60))
(def bomb-y-min (/ (c/screen-to-world c/game-height) 4.0))
(def default-ticks-first-bomb 30)
