                                                 (- (:x entity) player-speed) 
                                                 0)
                                             (assoc entity :x (- (:x entity) player-speed))
-                                            (assoc entity :x 0))))
+                                            (assoc entity :x 0))
+    :else entity
+    ))
 
 
 (defn create-box []  

      (throw (Exception. "Game over"))
      (conj (apply conj (conj [] backgr) boxes) player))))

(defscreen main-screen
  :on-show
  (fn [screen entities]
    (update! screen :renderer (stage))
    (add-timer! screen :spawn-enemy 0 2)
    (let [
          sheet (texture "bird.png")
          birdy (texture! sheet :split (/ 506 3) (/ 918 5))
          
          background (texture "background.jpg")
          background (assoc background :x 0 :y 0 :width 800 :height 600)                
          
          player-image (texture (aget birdy 0 0))
          ;;images (->
            ;;       []
              ;;     (conj (texture (aget birdy 0 0)))
                ;;   (conj (texture (aget birdy 0 1)))
                ;;   (conj (texture (aget birdy 0 2)))                   
                ;;   (conj (texture (aget birdy 0 3)))
                ;;   (conj (texture (aget birdy 0 4)))
                ;;   (conj (texture (aget birdy 1 0)))
                ;;   (conj (texture (aget birdy 1 1)))
                ;;   (conj (texture (aget birdy 1 2)))                  
                ;;   (conj (texture (aget birdy 1 3)))
                ;;   (conj (texture (aget birdy 1 4))))
     ;;     player-image (assoc player-image :moving (animation 0.15 images))
          player-image (assoc player-image :x 10 :y 10 :width 59 :height 59)]  
      [background player-image]))  
  
  :on-render
  (fn [screen entities]

                 (moving entities)
                 (collision))
               (catch Exception e 
                 [(->
                    (texture "gameover.jpg")
                    (assoc :x 0 :y 0 :width 800 :height 600))           
                  ])))) 
       
  :on-timer
  (fn [screen entities]
    :spawn-enemy (conj (conj (vec (drop-last entities)) (create-box)) (last entities)))
  
  :on-touch-down
  (fn [screen entities]
    (first-screen screen entities))
  
  :on-key-down
  (fn [screen entities]
