Hi there Robert and all,
I have such a script which was originally written by Ronald J McEwan. I
have since modified the script to use my synthesizers and added others as I
have got them. The script is given below. It works for me and my list of
synths but would have to be modified for you, unless you happen to have
exactly the same synths as I do and in the same order. I have assigned the
INS+Z key stroke to do this. It brings up the listbox of synths from which
you can choose in the normal way. Anyway, this may give you a
startingpoint. Incidentally, if you put this into your scripts, be warned
that some of the lines look as though they are already too long to fit in
this message, so there may be breaks where you don't want them.
Script SwitchSynth ()
; Author Ronald J McEwan 07.98, modified 09.98
var
Int Index
; build pop-up box
Let index = DlgSelectItemInList
("DecTalkExpress|Eloquence|BNS|KeynoteMultimedia|MicrosoftSpeech|FlexTalk|No
Speech", "select synthesizer",
false)
; change to selected synthesizer
if Index == 1 Then
SetSynth ("DTE")
ResetSynth()
SayString ("SWITCHING TO DEC TALK ")
ElIf Index == 2 Then
SetSynth ("eloq")
ResetSynth()
SayString ("SWITCHING TO eloquence")
ElIf Index == 3 Then
SetSynth ("bns")
ResetSynth()
SayString ("SWITCHING TO bns")
ElIf Index == 4 Then
SetSynth ("kngmm")
ResetSynth()
SayString ("SWITCHING TO keynote gold")
ElIf Index == 5 Then
SetSynth ("msspeech")
ResetSynth()
SayString ("Switching to microsoft speech")
ElIf Index == 6 Then
SetSynth ("FlexTalk")
ResetSynth()
SayString ("Switching to Flextalk")
ElIf Index == 7 Then
SayString ("turning speech off")
SetSynth ("nospeech")
ResetSynth()
EndIf
EndScript
--
Carol Pearson
[EMAIL PROTECTED]
-
Visit the jfw ml web page: http://jfw.cjb.net
