#AutoIt3Wrapper_Au3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w- 4 -w 5 -w 6 -w- 7
#include-once

; #INDEX# =======================================================================================================================
; Title .........: _TTStoWav()
; AutoIt Version : 3.3.14.2
; Language ......: English
; Author(s) .....: Nate Ingalls (natedog102)
; Modifiers .....:
; Forum link ....: [link to forum post]
; Description ...: TTS to .wav file using SAPI
; ===============================================================================================================================


; #FUNCTION# ====================================================================================================================
; Name...........:  _TTStoWav
; Description ...: TTS to .wav file using SAPI
; Syntax.........: _TTStoWav($sText, $sLocation[, $iRate = 1[, $iVolume = 100]])
; Parameters ....: $sText           - String you want converted to a .wav
;                  $sLocation       - Save location + file name, example: "C:\folder\sample.wav"
;                  $iRate           - TTS speak rate between -10 and 10
;                  $iVolume         - Volume of the TTS between 0 and 100
; Return values .: Success          - Returns one
;                  Failure          - Returns zero
; Author ........: Nate Ingalls (natedog102)
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================

Func _TTStoWav($sText, $sLocation, $iRate = 1, $iVolume = 100)
	$oFileStream = ObjCreate("SAPI.SpFileStream")
	If @error Then
		Return 0
	EndIf
	$oFileStream.Format.Type = 39
	$oFileStream.Open($sLocation, 3)
	$oSpeech = ObjCreate('SAPI.SpVoice')
	If @error Then
		Return 0
	EndIf
	$oSpeech.AudioOutputStream = $oFileStream
	$oSpeech.Rate = $iRate
	$oSpeech.Volume = $iVolume
	$oSpeech.Speak($sText, 3)
	$oSpeech.WaitUntilDone(10000)
	$oFileStream.Close()
	Return 1
EndFunc   ;==>_TTStoWav