Re: Speech impediment
Re: Speech impediment
- Subject: Re: Speech impediment
- From: Paul Skinner <email@hidden>
- Date: Wed, 08 Aug 2001 19:52:37 -0400
on 8/8/01 2:54 PM, Jim Baskins wrote:
>
On 8/2/01 3:48 PM, Dennis Wurster email@hidden wrote:
>
>
> Hi Folks,
>
>
>
> Just for fun (My 3 y.o. thinks it's funny) I've been playing with the
>
> 'say' command. I can't seem to get the 'using' parameter to work, I
>
> get a "The variable Zarvox is not defined" error. The 'say' command
>
> works fine if I omit the parameter.
Snip!
>
Here's a little silly thing that was posted by some unknown silly person
>
about 2 years ago during a play-with-voices interlude; my niece used to wear
>
it out:
Snip!
>
Jim
Here's one my five year old likes. Maybe someone else's will too.
Try really large numbers for a fun lesson in terms beyond a Billion.
property defaultText : "default text"
property defaultVoice : "Bruce, high quality"
----------
tell application "Finder"
activate
set theProcesses to name of every process
repeat with thisProcess in theProcesses
if visible of process (thisProcess as text) is true then
set visible of process (thisProcess as text) to false
end if
end repeat
set voiceList to name of every file of folder ((path to the voices
folder) as text)
end tell
if voiceList is {} then
display dialog "There are no active voices to choose from. This script
will now quit." buttons {"Ok"} default button "Ok" giving up after 1 *
minutes
quit
end if
----------
try
set voice to defaultVoice
on error
try
set voice to name of some item of voiceList
set defaultVoice to voice
end try
end try
----------
tell me
activate
end tell
----------
repeat
set theResponse to ""
repeat while theResponse is ""
display dialog "What do you want me to say?" buttons {"Cancel",
"Change Voice", "Ok"} default answer defaultText default button "Ok" giving
up after 1 * minutes
set theResponse to {buttonReturned:button returned of the result,
textReturned:text returned of the result}
if the buttonReturned of theResponse is "Change Voice" then
set voice to item 1 of (choose from list voiceList default items
voice without multiple selections allowed)
set defaultVoice to voice
set defaultText to textReturned of theResponse
else
set defaultText to textReturned of theResponse
say textReturned of theResponse using voice
end if
end repeat
end repeat
--
"AppleScript is digital duct tape."
Paul Skinner