[futurebasic] Problem Interperting commands

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : October 2004 : Group Archive : Group : All Groups

From: Brian Heibert <bheibert@...>
Date: Sat, 23 Oct 2004 10:48:27 -0500
Ok somehow I screwed up these lines of code and I can't seem to figure out
what is wrong all these commands are not being interperted -Brian

CASE UCASE$(LEFT$(lineStr,17)) = "NOTEALERTSTRING$"
strx$ = MID$(lineStr,19)
alertText2$ = strx$
CALL PARAMTEXT (alertText2$,"","","")
butnPressed = FN NOTEALERT (129,0)

CASE UCASE$(lineStr) = "LAUNCH_ICHAT"

CASE UCASE$(LEFT$(lineStr,15)) = "ALERTSTRING$"
alertText2$ = MID$(lineStr,17)
CALL PARAMTEXT (alertText2$,"","","")
butnPressed = FN ALERT (129,0)

CASE UCASE$(LEFT$(lineStr,18)) = "NOTEALERTSTRING$"
alertText2$ = MID$(lineStr,20)
CALL PARAMTEXT (alertText2$,"","","")
butnPressed = FN NOTEALERT (129,0)

CASE UCASE$(LEFT$(lineStr,22)) = "CAUTIONALERTSTRING$"
alertText2$ = MID$(lineStr,24)
CALL PARAMTEXT (alertText2$,"","","")
butnPressed = FN CAUTIONALERT (129,0)

CASE UCASE$(LEFT$(lineStr,18)) = "STOPALERTSTRING$"
alertText2$ = mid$(lineStr,20)
CALL PARAMTEXT (alertText2$, "","","")
butnPressed = FN STOPALERT (129,0)

CASE UCASE$(LEFT$(lineStr,27)) = "SPEAKABLEALERTSTRING$"
alertText2$ = mid$(lineStr,29)
Include "Tlbx SpeechSynthesis.Incl"
strx$ = MID$(lineStr,28)

long if fn hasSpeechMgr
while fn SpeechBusy
wend
err = fn SpeakString (strx$)
xelse
beep
end if
alertText2$ = strx$
CALL PARAMTEXT (alertText2$,"","","")
butnPressed = FN ALERT (129,0)

CASE UCASE$(LEFT$(lineStr,24)) = "SPEAKABLENOTEALERTSTRING$"
strx$ = MID$(lineStr,26)
Include "Tlbx SpeechSynthesis.Incl"

long if fn hasSpeechMgr
while fn SpeechBusy
wend
err = fn SpeakString (strx$)
xelse
beep
end if
alertText2$ = strx$
CALL PARAMTEXT (alertText2$,"","","")
butnPressed = FN NOTEALERT (129,0)

//CASE UCASE$(lineStr,29) = "SPEAKABLECAUTIONALERTSTRING$"
CASE UCASE$(LEFT$(lineStr,28 )) =  "SPEAKABLECAUTIONALERTSTRING$"
Include "Tlbx SpeechSynthesis.Incl"
strx$ = MID$(lineStr,30)
long if fn hasSpeechMgr
while fn SpeechBusy
wend
err = fn SpeakString (strx$)
xelse
beep
end if
alertText2$ = strx$
CALL PARAMTEXT (alertText2$,"","","")
butnPressed = FN CAUTIONALERT (129,0)

CASE UCASE$(lineStr) = "SPEAKABLESTOPALERTSTRING$"

Include "Tlbx SpeechSynthesis.Incl"

long if fn hasSpeechMgr
while fn SpeechBusy
wend
err = fn SpeakString (strx$)
xelse
beep
end if
alertText2$ = strx$
CALL PARAMTEXT (alertText2$,"","","")
butnPressed = FN STOPALERT (129,0)

CASE UCASE$(LEFT$(lineStr,14)) = "SPEAKSTRING$"
strx$ = MID$(lineStr,16)
Include "Tlbx SpeechSynthesis.Incl"

long if fn hasSpeechMgr
while fn SpeechBusy
wend
err = fn SpeakString (strx$)
xelse
beep
end if

CASE UCASE$(LEFT$(lineStr,33)) = "SPEAKABLEDISPLAYMSGBOXWITHSTRING$"
long if fn hasSpeechMgr
while fn SpeechBusy
wend
err = fn SpeakString (msgboxstr$)
xelse
beep
Stop "Doesn't work without MacOS X & Speech."
end if

Include "Tlbx SpeechSynthesis.Incl"
CALL PARAMTEXT (msgboxstr$,"","","")


butnPressed = FN ALERT (129,0)