Cleaned up code from the Nov 10 ClojureNYC Meetup

bird.clj

(ns flappy.bird
  (:use arcadia.core)
  (:import [UnityEngine Vector2 Input Time Vector3]))

(defcomponent Bird [^Vector2 force]
  (Update [this]
          ;; flap on any keypress
          (if Input/anyKeyDown
            (.. this rigidbody2D
                (AddForce force ForceMode2D/Impulse)))))

(defcomponent Pipe [^float speed]
  (Update [this]
          ;; move left
          (.. this transform (Translate (* (.speed this)
                                           Time/deltaTime) 0 0))
          ;; reset position
          (if (< (.. this transform position x)
                 -1.0)
            (set! (.. this transform position)
                  (Vector3. 1
                            (+ (.. this transform position y)
                               (* 0.1 (rand)))
                            0)))))