Hello listers.
If you have not seen my name these last few weeks, it is because I was
somehow inadvertently unsubscribed from this list. I finally did the
obvious thing and re-subscribed.
I have a couple of questions for those who like to find bugs in scripts
that, from my perspective, at least, should function. Any suggestions
would be much appreciated.
The first concerns the set synth language function, used, as the name
implies, to change languages in Eloquence from within scripts. Following
is the script I wrote for this purpose in which I wish to select one of
three languages. Eloquence keeps on pirking away but, unless I go to the
menus to affect the change, nothing whatsoever happens. It is either
something faulty in my script or, conceivably, the set synth language
function does not work. Here is the first script.
Script chooseSynthLanguage()
;to be used exclusively with the Eloquence soft synthesizer
var
Int Index
; construct pop-up box
Let index = DlgSelectItemInList ("english|french|spanish", "select
language",
false)
; change to specified synthesizer language
If (index == 1) then
SetSynthLanguage("enu") ; change to English
ElIf (Index == 2) then
SetSynthLanguage("fra") ; change to French
Else
SetSynthLanguage("esm") ; change to South American Spanish
EndIf
EndScript
* * * *
The second problem, mysteriously having occurred only very recently, does
not allow me to return to my internal Dectalk, once I have switched to
Eloquence, again from within a script. As I recall, this script used to
work perfectly. What have I done wrong here folks? Any ideas?
Script SwitchSynthesizer()
var
Int Index
; construct pop-up box
Let index = DlgSelectItemInList ("Dectalk|Eloquence", "select
synthesizer",
false)
; change to selected synthesizer
if (Index == 1) Then
SetSynth ("dectalk") ; change to internal Dectalk pc
Pause()
ResetSynth()
SayString ("SWITCHING TO dectalk ")
Else
SetSynth ("eloq") ; change to Eloquence soft synthesizer
Pause()
ResetSynth()
Pause()
SayString("switching to eloquence")
EndIf
EndScript
Thanks for any tips.
jerry
-
Visit the jfw ml web page: http://yoyo.cc.monash.edu.au/~nallan/jfw
