Beep-sound

it is not exactly what i wanted, but is nice, very nice!
here is the script:

tell application "Finder"
set xx_1 to alias ((name of startup disk) & ":" &
"System:Library:Sounds:" as text)
set rand_ to random number of (count every item in xx_1)
if rand_ is 0 then set rand_ to 2
set the_f to (item rand_ of xx_1)
end tell


set d to (current date) as date
set h to hours of d
set m to minutes of d
tell application "Play Sound" to play (the_f as text)
tell application "Quicksilver" to show large type (h & ":" & m as
text)

i'll put this script as event in into iCal.