first attempt at an intro screen.

2015-02-07 11:24:36 -08:00
parent 41e75513f5
commit e7b2e13f4a
6 changed files with 86 additions and 19 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -116,4 +116,12 @@
  (update-in entities [:room :interactions] (fn [i] (remove #(= id (:id %)) i))))


+(defn play-sound [snd]
+  (music! snd :play))
+
+(defn stop-sound [snd]
+  (music! snd :stop))
+
+(defn make-music [r]
+  (doto (music r) (music! :set-looping true)))