Thank you in advance.
<code>Sub VR_Result (Success As Boolean, Texts As List)
If Success = True Then
Dim advice As String
advice = Texts.Get(0)
Select advice
Case "advice one"
TTS1.Speak("love your enemies. Be kind to those who hate you and pray for your persecutors.",True)
Case "advice two"
TTS1.Speak("Focus your thoughts on the many wonderful blessings that God has bestowed upon you ",True)
Case Else
Return
End Select
End If
End Sub
</code>
<code>Sub VR_Result (Success As Boolean, Texts As List)
If Success = True Then
Dim advice As String
advice = Texts.Get(0)
Select advice
Case "advice one"
TTS1.Speak("love your enemies. Be kind to those who hate you and pray for your persecutors.",True)
Case "advice two"
TTS1.Speak("Focus your thoughts on the many wonderful blessings that God has bestowed upon you ",True)
Case Else
Return
End Select
End If
End Sub
</code>
Last edited: