'-------------------------------------------------------------------------------------------------------------------------------

' Version: v2024-10-22.002

' Credit: MS Pilot and DSteiNeuro

' Appreciation to Jon00 for the HomeSeer VoiceMonkey plugin and support

' https://forums.homeseer.com/forum/3rd-party-developer-area/general-developer-discussion/jon00/voice-monkey-easy-alexa-tts

' Syntax: hs.Speak(<Preset> Text to Speak, False, Alexa:device)

' Syntax example: hs.Speak("<2>Hello World", False, "Alexa:KitchenShow")

' Parameters: Preset, Text to Speak, Device

' e.g. 1, Hello World, KitchenShow (No quotes)

' 

' Default parameters:

' Preset: Default = 1 (I will set this to generic Alexa settings)

' TextToSpeak: Default = "Please Provide Your Text To Speak"

' Device: Default = "Alexa:KitchenShow"

' These defaults will be used if the corresponding parameters are not provided.

'-------------------------------------------------------------------------------------------------------------------------------

Sub Main(ByVal Parms As Object)

    Dim preset As String = "1" ' Default preset

    Dim textToSpeak As String = "Please Provide Your Text To Speak" ' Default text

    Dim device As String = "Alexa:All" ' Default device

    Dim finalString As String = ""

    Dim debugMode As Boolean = True

    Try

        ' Split the parameters into an array

        Dim args() As String = Parms.ToString().Split(","c)

        hs.WriteLog("Script Debug (v2024-10-22.002)", "Received Parameters: " & String.Join(",", args))

        ' Assign parameters with defaults

        If args.Length > 0 AndAlso Not String.IsNullOrEmpty(args(0).Trim()) Then

            preset = args(0).Trim()

            If debugMode Then hs.WriteLog("Script Debug (v2024-10-22.002)", "Preset: " & preset)

        End If

​

        If args.Length > 1 AndAlso Not String.IsNullOrEmpty(args(1).Trim()) Then

            textToSpeak = args(1).Trim()

            If debugMode Then hs.WriteLog("Script Debug (v2024-10-22.002)", "Text to Speak: " & textToSpeak)

        End If

​

        If args.Length > 2 AndAlso Not String.IsNullOrEmpty(args(2).Trim()) Then

            device = "Alexa:" & args(2).Trim()

            If debugMode Then hs.WriteLog("Script Debug (v2024-10-22.002)", "Device: " & device)

        End If

​

        'Put Device String here

        'texttospeak = "Announcement from Home Assistant: " & hs.DeviceString(3433)

        'Set Home Assistant Announce (Device 3433) with Textto Speak

        hs.SetDeviceString(3433, textToSpeak, True)

        ' Construct the final text string to speak (preset & textToSpeak to Alexa:device)

        finalString = "<" & preset & "> " & textToSpeak

        If debugMode Then hs.WriteLog("Script Debug (v2024-10-22.002)", "Final String: " & finalString)

        If debugMode Then hs.WriteLog("Script Debug (v2024-10-22.002)", "Device: " & device)

        ' Speak the textToSpeak

        hs.Speak(finalString, False, device)

    Catch ex As Exception

        hs.WriteLog("Script Error (v2024-10-22.002)", "Error: " & ex.Message)

    End Try

End Sub

​