mp3 fixes

goal_src/jak1/engine/mods/mod-common-functions.gc

@@ -386,27 +386,27 @@ if the result of rand-vu-int-range is 1, then DANCE! if it is not 1, then Don't
   (in-bubble? (meters x) (meters y) (meters z) (meters w))
   )
 
-(defun music-manager ()
-  (stop-main-music)
-      (case (-> (level-get-target-inside *level*) name)
-         (('test-zone)
-         (if (> (knuth-rand-int-range 0 15) (+ 8 5))
-          (play-main-music "SND/music-test-zone.mp3" (the int (-> *setting-control* default music-volume)))
-          (play-main-music "SND/music-test-zone-track2.mp3" (the int (-> *setting-control* default music-volume))))
-         )
-         ;;Add more cases here for each level
-         (else
-          (play-main-music "" (the int (-> *setting-control* default music-volume)))
-          ;;(stop-main-music) This function is broken but playing a invalid sound does the same thing
-         )
-      )
-(none)
-)
-
-(defbehavior music-manager-proc process ()
-  (music-manager)
-  (none)
-)
+;; (defun music-manager ()
+;;   (stop-main-music)
+;;   (case (-> (level-get-target-inside *level*) name)
+;;     (('test-zone)
+;;       (if (> (knuth-rand-int-range 0 15) (+ 8 5))
+;;       (play-main-music "SND/music-test-zone.mp3" (the int (-> *setting-control* default music-volume)))
+;;       (play-main-music "SND/music-test-zone-track2.mp3" (the int (-> *setting-control* default music-volume))))
+;;     )
+;;     ;;Add more cases here for each level
+;;     (else
+;;       (play-main-music "" (the int (-> *setting-control* default music-volume)))
+;;       ;;(stop-main-music) This function is broken but playing a invalid sound does the same thing
+;;     )
+;;   )
+;; (none)
+;; )
+
+;; (defbehavior music-manager-proc process ()
+;;   (music-manager)
+;;   (none)
+;; )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Jak Color functions

goal_src/jak1/engine/mods/mod-custom-code.gc

@@ -59,7 +59,7 @@ an orb |#
         (lambda :behavior process () 
           (let ((stime (current-time)))
             (format 0 "playing zed select~%")
-            (play-rand-sound "snd/Zed_Select.ogg" 80)
+            (play-sound-file "snd/Zed_Select.ogg" 60)
             (until (> (- (current-time) stime) (seconds 3.5))
               (suspend)
               )
@@ -73,7 +73,7 @@ an orb |#
         (lambda :behavior process () 
           (let ((stime (current-time)))
             (format 0 "playing gol NOOO~%")
-            (play-rand-sound "snd/gol-nooo.mp3" 100) 
+            (play-sound-file "snd/gol-nooo.mp3" 170) 
             (until (> (- (current-time) stime) (seconds 3.5))
               (suspend)
               )
@@ -87,7 +87,7 @@ an orb |#
         (lambda :behavior process () 
           (let ((stime (current-time)))
             (format 0 "playing fart~%")
-            (play-rand-sound "snd/random-fart-1.mp3" 100) 
+            (play-sound-file "snd/random-fart-1.mp3" 100) 
             (until (> (- (current-time) stime) (seconds 1.5))
               (suspend)
               )