added concept of different background musics.

2014-11-03 22:51:08 -08:00
parent 0390c2bfa5
commit 57a84f5101
8 changed files with 30 additions and 10 deletions
--- a/desktop/src-common/advent/screens/rooms/cat_tree.clj
+++ b/desktop/src-common/advent/screens/rooms/cat_tree.clj
@@ -12,7 +12,8 @@
  (let [cat-stand-sheet (texture! (texture "cat-tree/cat-stand.png") :split 22 10)
        cat-stand (animation 0.15 (for [i (flatten [(repeat 10 0) 1 1 (repeat 10 0) 2 3 4 3 0  0 2 3 4 3 (repeat 10 0) 1 1 (repeat 10 0) 5 5 6 6 7 (repeat 10 [7 8]) 6 5 0])]
                                   (aget cat-stand-sheet 0 i)))]
-    (rooms/make :interactions
+    (rooms/make :music :town-2
+                :interactions
                {:down-dir {:box [150 0 270 20]
                            :script (actions/get-script entities
                                                        (actions/walk-to entities :ego [203 1])