       :direction      direction
       :rotation-speed rotation-speed
 
-      :collidable?    (not debris?)
+      :collidable?    (if debris? false asteroid-damage)
 
       :life-time      (if debris? debris-life-millis nil)
       }))


(defn do-action!
  ([ship {:keys [acceleration rotation shoot fire-missile] :as action} activate?]
   (when acceleration (dosync (alter ship assoc :acceleration (if activate? acceleration 0) :collidable? true)))
   (when rotation (dosync (alter ship set-rotation rotation activate?)))
   (when shoot (dosync (alter ship assoc :shooting? activate? :collidable? true)))
   (when fire-missile (dosync (alter ship assoc :firing? activate? :collidable? true))))
  ([ship action]
   (do-action! ship action true)))


    :direction      dir
    :rotation-speed 0

    :collidable?   missile-damage
    })
  ([{:keys [position size direction speed] :as ship}]
   (let [dir-vec (m/rotate-vec direction [0 1])
