made things a little more rewarding.

desktop/src-common/advent/screens/safe.clj

@@ -18,6 +18,7 @@
 (def start-y 83)
 
 (defn close [entities]
+  
   (screen! @(resolve 'advent.screens.scene/scene) :on-reactivate)
   (-> entities
       (assoc :shown? false)
@@ -69,6 +70,7 @@
       entities))
 
   :show-screen (fn [{:keys [success failure]} [entities]]
+                 (sound! (sound "inside-house/open-safe.ogg") :play (utils/current-sound-volume))
                  (assoc entities
                    :start-showing? true
                    :button-choices []
@@ -103,7 +105,9 @@
                                  (> x (+ start-x 200))
                                  (< y start-y)
                                  (> y (+ start-y 75)))
-                           (close entities))))))
+                           (do
+                             (sound! (sound "inside-house/close-safe.ogg") :play (utils/current-sound-volume))
+                             (close entities)))))))
   
   :on-resize (fn [{:keys [width height viewport]} entities]
                (.update viewport width height)))