       (throw (Exception. "Game over"))
       (conj (apply conj (conj [] backgr) boxes) player))))
 
+(defn first-screen [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]))
+
 (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]))  
+    (first-screen screen entities))  
   
   :on-render
   (fn [screen entities]

                                                (- (:x entity) player-speed) 
                                                0)
                                            (assoc entity :x (- (:x entity) player-speed))
                                            (assoc entity :x 0))))


(defn create-box []  

      (vec)
      (conj (move screen (last entities))))))
        
 

(defgame clo-runner-game
  :on-create
