                 (set! (.. this -lastSpace) (.. game -time -now))
                 (.. this -dialogueText (setText ""))
                 (set! (.-dialogue this) (rest d)))))
-
-
 
 
           ;; Basic Movement

        (set! (.. this -throneRect) (js/Phaser.Rectangle. 225 20 170 195))
        (set! (.. this -throneEvents) (:throne dialogueTree))

        (set! (.. this -doorRect) (js/Phaser.Rectangle. 280 540 40 40))
        (set! (.. this -doorEvents) (:door dialogueTree))

        (set! (.. this -weapon) false)

        (.. game -add (sprite 0 0 "world"))
        (set! (.. this -player) (.. game -add (sprite 280 540 "player")))
        (set! (.. this -weaponSprite) (.. game -add (sprite 295 5 "weapon")))

        ;; Glasses

        (let [gs (.. game -add (sprite 0 100 "glass1"))]
          (set! (.. gs -visible) false)
          (set! (.. gs -fixedToCamera) true)
          (set! (.. this -g1) gs))
        (let [gs (.. game -add (sprite 0 100 "glass2"))]
          (set! (.. gs -visible) false)
          (set! (.. gs -fixedToCamera) true)
          (set! (.. this -g2) gs))
        (let [gs (.. game -add (sprite 0 100 "glass3"))]
          (set! (.. gs -visible) false)
          (set! (.. gs -fixedToCamera) true)
          (set! (.. this -g3) gs))
        (let [gs (.. game -add (sprite 0 100 "glass4"))]
          (set! (.. gs -visible) false)
          (set! (.. gs -fixedToCamera) true)
          (set! (.. this -g4) gs))



        ;; Define animations
        (.. this -player -animations (add "down" (clj->js [0 1 2]) anim-frame-rate true))
