— Obrigado ao Kirill Kudryavtsev @ kin0shkin de https://sbtg.ru/ pelo script!

‘— Inicio script

dim translateInput as string = “Input Audio Zoom” ‘Nome do input com o audio da traducao
dim origInput as string = “Audio Estudio” ‘Nome do input com o audio do estudio

dim volumeStandart as string = “100” ‘Volume padrao do input estudio
dim fadeTimeStandart as string = “1200” ‘duracao do fade de audio pra quando silencio eh detectado na traducao

dim volumeSpeaking as string = “60” ‘Volume que o input do estudio fica quando algum remoto fala
dim fadeTimeSpeaking as string = “200” ‘duracao do fade pra quando o remoto inicia a fala

dim voicethreshold as string = “0.05”

dim checkingIter as integer = 10
dim checkingIterTime as integer = 200 ‘intervalo de duracao do loop, ideal entre 100 e 200

‘—- End of settings —-

dim voicemeter as string = “”
dim speaking as boolean = false
dim silence as boolean = false
dim silencechecking as integer = 0
dim muted as boolean = false

do while true

dim xml as string = API.XML()
dim x as new system.xml.xmldocument
x.loadxml(xml)

voicemeter = (x.SelectSingleNode(“//input[@title='”& translateInput &”‘]/@meterF1”).Value)
if (x.SelectSingleNode(“//input[@title='”& translateInput &”‘]/@meterF2”).Value) > voicemeter
voicemeter = (x.SelectSingleNode(“//input[@title='”& translateInput &”‘]/@meterF2”).Value)
end if
muted = (x.SelectSingleNode(“//input[@title='”& translateInput &”‘]/@muted”).Value)

‘API.Function(“SetText”,Input:=”TextInput”,SelectedName:=”Timer.Text” ,Value:=voicemeter)
‘console.writeline(voicemeter)

if voicemeter > voicethreshold And voicemeter.IndexOfAny(“[E]”.ToCharArray) = -1 And Not muted

if silencechecking >= checkingIter ‘<> 0 ‘!=

‘console.writeline(“Speaking”)
silencechecking = 0
‘API.Function(“SetTextColour”,Input:=”TextInput”,SelectedName:=”Timer.Text”,Value:=”yellow”)
‘API.Function(“SetText”,Input:=”TextInput”,SelectedName:=”Timer.Text” ,Value:=”Перевод говорит! ” + voicemeter)
Input.Find(origInput).Function(“SetVolumeFade”, volumeSpeaking + “,” + fadeTimeSpeaking)

end if

‘console.writeline(silencechecking)

else

if silencechecking < checkingIter

silencechecking += 1

end if
if silencechecking = checkingIter

‘console.writeline(“Silence”)
‘API.Function(“SetTextColour”,Input:=”TextInput”,SelectedName:=”Timer.Text”,Value:=”white”)
‘API.Function(“SetText”,Input:=”TextInput”,SelectedName:=”Timer.Text” ,Value:=”Перевод молчит! ” + voicemeter)
Input.Find(origInput).Function(“SetVolumeFade”, volumeStandart + “,” + fadeTimeStandart)
silencechecking = checkingIter + 1

end if

‘console.writeline(silencechecking)

end if

sleep(checkingIterTime)

Loop

‘— End Script