-- Script
(* playMantelSound - 7/30/04
*)
set mantelSound to (path to documents folder as string) & "clutter:Sounds:mantel" as alias
tell (get volume settings) -- this line is more for a record for future ref.
set {a, b, c, d} to {output volume, input volume, alert volume, output muted}
end tell
--> {50, 50, 100, false}
set currentVolume to a
run script POSIX file "Library/Scripts/Universal Scripts/SetSoundVolume.app" as alias
ignoring application responses
tell application "Play Sound" to play mantelSound
delay 3
end ignoring
-- reset volume to previous value
set soundVolume to currentVolume
set volume output volume (soundVolume)
tell application "Play Sound" to quit
-- end script
Robert Poland - Fort Collins, CO