Jump to content

Rodrigo Chaves Neto

Membros
  • Content count

    35
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by Rodrigo Chaves Neto

  1. Incorporar libmpv no programa

    Aqui arquivos em mp4 funcionou. Sua aplicação eh portable? Se não for, poderia colocar a instalação de plugins de video como pre requisito Ontem não consegui criar o código. A empresa ta sugando a gente esse fim de ano.. huahauhau Mas essa semana ainda vou tentar verificar o aspect ratio
  2. Incorporar libmpv no programa

    Tendi. Obrigado por postar o exemplo Vou tentar replicar aqui e posto o codigo em breve
  3. Incorporar libmpv no programa

    Tendi. Vc pode postar se for possivel o tamanho da janela e um video de exemplo? Posso tentar encontrar os ajustes corretos
  4. Incorporar libmpv no programa

    Tendi. Vc pode postar se for possivel o tamanho da janela e um video de exemplo? Posso tentar encontrar os ajustes corretos
  5. Incorporar libmpv no programa

    Tendi. Vc pode postar se for possivel o tamanho da janela e um video de exemplo? Posso tentar encontrar os ajustes corretos
  6. Incorporar libmpv no programa

    Legal, conseguiu resolver de outra forma! Sobre o aspect ratio eu coloquei uma propriedade só .stretchToFit = True Essa propriedade preenche todo o espaço definido pela sintaxe abaixo $objActiveX = GUICtrlCreateObj($oWMPlayer, 0, 0, $_Width, $_Height)
  7. Incorporar libmpv no programa

    A maioria dos objetos listados nesse aplicativo podem ser manipulados pelo Autoit
  8. Incorporar libmpv no programa

    Meu teclado não tem funções de atalho para controle do player. Então não consigo testar se os controles serão desabilitados. Mas vc pode controlar o player pelo objeto $oWMPlayer Eu coloquei algumas propriedades With $oWMPlayer ; Object tag pool .fullScreen = False .windowlessVideo = True .stretchToFit = True .settings.playCount = 99999 .URL = $f_Video .enableContextMenu = False .enabled = False .Controls.currentPosition = 0 ; Move to location in movie .Controls.Play ;/ Pause and Stop .uiMode = "none" ; none / mini full .settings.autostart = True .settings.mute = False .settings.volume = 0 ; 0 - 100 .settings.Balance = 0 ; -100 a 100 EndWith Vc pode enviar instruções alterando os valores do objeto, por exemplo Se vc quiser aumentar o volume do video vc faz executando do seguinte modo $oWMPlayer.settings.volume = 20 ;Pra aumentar 20% o volume Se vc quiser colocar o volume só no lado direito $oWMPlayer.settings.balance = 100 Deve haver mais propriedades no objeto que desativam teclas de atalho, caso elas estejam ativadas Mas tem que olhar as propriedades do objeto usando o OLEView.exe Pra encontrar esse executável vc abre o help do Autoit e seleciona a aba search Digita OLEView.exe Vai aparecer uma referencia: COM Reference Ao abrir o arquivo de ajuda vá até o subtópico OLE/COM Object Viewer Lá tem o endereço pra baixar o arquivo e instruções de como encontrar as propriedades do objeto
  9. Incorporar libmpv no programa

    Deve ser a versão do Autoit Para funcionar em versões mais antigas você pode apagar a linha 23: Dim $WMPlayer = hwnd_Player E a linha 28: $WMPlayer() Em lugar dessas linhas apagadas você pode fazer a chamada direto na função: hWnd_Player() #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <WinAPIDiag.au3> #include <WinAPIMisc.au3> ;Control Video File Dim $f_Video ;Create Player Object Dim $oWMPlayer = ObjCreate("WMPlayer.OCX.7") ;Define Player Size Dim $_Width = 640, $_Height = 360 ;Control Video Player Dim $WMPlayer = hWnd_Player ################## Excluir ;Extract Demo Video _Extract_Video(True) ;Start Player Video $WMPlayer() ################### Excluir Func hWnd_Player() $hWnd_Video = GUICreate("", $_Width, $_Height, -1, -1, $WS_POPUPWINDOW) $objActiveX = GUICtrlCreateObj($oWMPlayer, 0, 0, $_Width, $_Height) $oWMPlayerEvt = ObjEvent($oWMPlayer, "MediaPlayer_")
  10. Incorporar libmpv no programa

    Legal. Obrigado Eh possível incorporar muita coisa Vou postar um exemplo de como incorporar o word na Gui do autoit
  11. Incorporar libmpv no programa

    Vc se refere ao código que eu postei?
  12. Incorporar libmpv no programa

    Encontrei o script Autoit que integra scripts Lua Encontrei o script Lua que integra o libmpv. Mas não consegui utilizar. Alguns parametros no player (mpv.exe) eu consegui fazer funcionar mas a maioria não. Se quiser eu te passo o material que eu encontrei. Baixei os arquivos do repositorio do GitHub que você passou e encontrei na pagina do help da biblioteca libmpv de como utilizar scripts Lua na biblioteca
  13. Incorporar libmpv no programa

    Entendi. Sem problemas Encontrei exemplos na linguagem lua. Vou tentar traduzir em autoit
  14. Incorporar libmpv no programa

    Peguei esse aqui do fórum americano Não está com as configurações ajustadas mas vale um teste. Se chegar perto do que você está precisando a gente pode explorar as opções Baixa a versão 32Bits desse link: https://mpv.srsfckn.biz/ Extraia o arquivo baixado, crie e execute o código abaixo na mesma pasta #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Dim $sStream = "http://distribution.bbb3d.renderfarming.net/video/mp4/bbb_sunflower_1080p_60fps_normal.mp4" Dim Const $hWnd_Main = GUICreate("MPV Test", 640, 360, -1, -1) GUISetState(@SW_SHOW) Dim $iPID = Run(@ScriptDir & '\mpv.exe --wid="' & $hWnd_Main & '" "' & $sStream & '"') While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
  15. Incorporar libmpv no programa

    Tendi. O código abaixo usa o ActiveX do WMPlayer.OCX.7 Acho que é esse mesmo que você está citando mas se quiser testar mesmo assim... https://1drv.ms/u/s!AnsPM67Cyv4Xj9olB5qKxLoHOqDjWA?e=WecY2l Essa API eu nunca vi. Vou dar uma pesquisada em outras linguagens e tentar traduzir pro Autoit
  16. Incorporar libmpv no programa

    Tendi. Vou dar uma olhada pra ver se consigo te ajudar No caso da incorporação do vídeo no código, no seu projeto tem que ser essa ou se incorporar um vídeo de outra maneira serve?
  17. Incorporar libmpv no programa

    O link do GitHub é do seu código, da API ou dos dois?
  18. Timer de Exemplo

    @alexandre Muito bom esse exemplo Fiz um contador (criando do meu jeito porém seguindo a lógica do video) e adicionei a opção de reiniciar o contador. Mas quando o contador é reiniciado o tempo começa com 2 segundos a menos #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Rodrigo Chaves Script Function: Timer 11/2019 #ce ---------------------------------------------------------------------------- #NoTrayIcon #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <WinAPISys.au3> #include <Misc.au3> ;Forca a execucao de apenas uma instancia If _Singleton(@ScriptName, 1) = 0 Then Exit ;/Variaveis controle / tempo Dim $sCreditos = 1 Dim $sHoras, $sMinutos, $sSegundos = 0 ;// ;/Paleta de cores Dim $iColor_Text = 0xFFFFFF ;White Dim $iColor_Background = 0x252525 ;Dark ;// ;Controle de exibicao da GUI e controle Dim $iShowGUI = 'Bottom' ;Top / Bottom Dim $sShow, $bContinue = True ;Dimensao da GUI Dim $iW = 200, $iH = 70 ;GUI Dim Const $hWnd_Main = GUICreate("Timer", $iW, $iH, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOPMOST) ;Define a cor da GUI GUISetBkColor($iColor_Background) ;Coleta as dimensoes e posicao da gui $aGetPos = WinGetPos($hWnd_Main) ;Label Timer $sLabel_Timer = GUICtrlCreateLabel("--:--:--", 0, 0, $aGetPos[2] - 1, 70, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, 34, 400, 0, "Segoe UI") GUICtrlSetColor(-1, $iColor_Text) ;Label mensagem $sLabel_Aguarde = GUICtrlCreateLabel(" Aguarde. . .", 0, 55, $aGetPos[2] - 1, 17, $SS_CENTERIMAGE) GUICtrlSetFont(-1, 8, 400, 0, "Segoe UI") GUICtrlSetColor(-1, $iColor_Text) ;Configura a visualizacao da GUI If $iShowGUI = 'Bottom' Then ;Move a GUI para perto do tray moveToTaskbar($hWnd_Main) ElseIf $iShowGUI = 'Top' Then GUICtrlSetPos($hWnd_Main, 0, 0, $iW, $iH) EndIf ;Aplica efeito de entrada pela direita _WinAPI_AnimateWindow($hWnd_Main, 0x00040002, 350) GUISetState(@SW_SHOW) ;Configura tecla de atalho HotKeySet('{ESC}', '_Quit') ;Registra a funcao _Clock AdlibRegister('_Clock', 1000) Do ;Calculo do tempo _CoreClock() $iQuestion = MsgBox(262144+32+4, 'O tempo acabou', 'Deseja reiniciar o contador?', 60) If $iQuestion = 6 Then $idInput_Time = InputBox('Timer', 'Insira a quantidade de créditos', 1, '', -1, -1, Default, Default, 60, $hWnd_Main) ;Verifica se algo foi informado If $idInput_Time <> '' Then ;Verifica se eh um caracter numerico If StringIsDigit($idInput_Time) Then $sCreditos = $idInput_Time _CoreClock() $bContinue = True Else MsgBox(262144+64, 'Timer', 'Informações inválidas', 10) $bContinue = False EndIf EndIf Else $bContinue = False EndIf Until $bContinue = False ;Aguarda para zerar o relogio Sleep(1000) ;Cancela o registro da funcao _Clock AdlibUnRegister('_Clock') ;Exibe mensagem GUICtrlSetData($sLabel_Aguarde, ' Concluido Pressione Esc para fechar') While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE _Quit() EndSwitch WEnd ;Contador do tempo Func _Clock() $sSegundos -= 1 GUICtrlSetData($sLabel_Timer, $sShow) If GUICtrlRead($sLabel_Aguarde, 1) <> '' Then GUICtrlSetData($sLabel_Aguarde, '') EndFunc ;Calculo do tempo Func _CoreClock() Do $sSegundos += $sCreditos * 60 $sMinutos = Mod($sSegundos / 60, 60) $sHoras = $sSegundos / 3600 $sCreditos = 0 $sShow = StringFormat('%02i:%02i:%02i', $sHoras, $sMinutos, Mod($sSegundos, 60)) Until $sShow = '00:00:00' EndFunc ;Funcao de saida Func _Quit() If WinActive($hWnd_Main) Then _WinAPI_AnimateWindow($hWnd_Main, 0x00050001, 300) Exit EndIf EndFunc ;Exibe GUI perto do tray Func moveToTaskbar($hwndByRef) $___aTaskbar = WinGetPos("[CLASS:Shell_TrayWnd]", "") $___aWin = WinGetPos($hwndByRef) WinMove($hwndByRef, "", @DesktopWidth - $___aWin[2] - 2, @DesktopHeight - $___aWin[3] - $___aTaskbar[3] - 2) EndFunc
  19. BackEffect

    Embora o ultimo post foi de 2017 e vi o codigo apenas agora Muito bom a UDF. Criei um script pra testar e ficou legal Notei que as vezes ao passar o mouse o efeito vem acompanhado de alguns blinks Adicionei uma função de sleep (_HighPrecisionSleep) na UDF mas não consegui eliminar totalmente o blink #include "BackEffect.au3" #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <WinAPI.au3> #include <UDF_AnimateWindow.au3> #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Rodrigo Chaves Script Function: Popup Exemplo 2 11/2019 #ce ---------------------------------------------------------------------------- ;Variavel de dimensionamento Dim Const $iW = 610, $iH = 430 ;Variavel para arrendondamento das bordas da janela e dimensionamento do botao fechar Dim Const $iC = 25 Dim Const $iC2 = 8 ;0 = Quadrado / 8 = Quadrado com cantos arredondados / 16 = Quase circular / 32 = Circulo ;Variavel para controle do MouseHover Dim $fOver0 = False, $fOver1 = False, $fOver2 = False ;/Tabela de cores Dim $tSTRUCTCOLOR = 'struct;char white[8];char alpha[2];char blueCustom[8];char blue[8];char dark[8];char red[8];char gray[8];endstruct' Dim $oColor = DllStructCreate($tSTRUCTCOLOR) DllStructSetData($oColor, 'blueCustom', 0x006BB7) DllStructSetData($oColor, 'blue', 0x01558C) DllStructSetData($oColor, 'white', 0xFFFFFF) DllStructSetData($oColor, 'alpha', -2) DllStructSetData($oColor, 'dark', 0x252525) DllStructSetData($oColor, 'red', 0xD61425) DllStructSetData($oColor, 'gray', 0xD1D1D1) ;// ;Cria o Popup Dim Const $hWnd_Main = GUICreate("", $iW, $iH, -1, -1, $WS_POPUP) GUISetBkColor($oColor.blueCustom) $aGetPos = WinGetPos($hWnd_Main) ;Arredonda os cantos da form Dim Const $hRegion = _WinAPI_CreateRoundRectRgn(0, 0, $iW, $iH, $iC, $iC) _WinAPI_SetWindowRgn($hWnd_Main, $hRegion) Dim $idBtn_Ok = GUICtrlCreateLabel("Ok", 410, 369, 75, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetBkColor(-1, $oColor.dark) GUICtrlSetColor(-1, $oColor.white) Dim $idBtn_Cancel = GUICtrlCreateLabel("Cancelar", 500, 369, 75, 25, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetBkColor(-1, $oColor.dark) GUICtrlSetColor(-1, $oColor.white) ;Aplica efeito de entrada WinAPI_AnimateWindow($hWnd_Main, 'explode', 350) GUISetState(@SW_SHOW) ;/Cria o botao close Dim Const $hWnd_Close = GUICreate('', $iC, $iC, $aGetPos[2] - 35, 10, $WS_POPUP, $WS_EX_MDICHILD, $hWnd_Main) ;Arredonda os cantos da form Dim Const $hRegion_ = _WinAPI_CreateRoundRectRgn(0, 0, $iC, $iC, $iC2, $iC2) _WinAPI_SetWindowRgn($hWnd_Close, $hRegion_) ;Define a cor de fundo GUISetBkColor($oColor.dark) ;/Cria o botao X Dim $idBtn_Close_C = GUICtrlCreateLabel('X', 0, 0, $iC - 1, $iC - 1, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, 11, 400, 0, 'Segoe UI', 0) GUICtrlSetBkColor(-1, $oColor.dark) GUICtrlSetColor(-1, $oColor.white) ;// ;Executa a animacao de entrada WinAPI_AnimateWindow($hWnd_Close, 'explode', 300) ;Exibe a form GUISetState(@SW_SHOW) WinActivate($hWnd_Main) ;// ;Altera os estilos da form GUISetStyle(-1, $WS_EX_COMPOSITED, $hWnd_Main) ;Registra uma funcao definida para um Windows Message ID (WM_MSG) conhecido GUIRegisterMsg($WM_NCHITTEST, "_WM_NCHITTEST") ;Habilita o efeito nos controles __BackEffectStart($hWnd_Main, $oColor.gray) ;Adiciona o efeito no botao $idBtn_Ok AddBack_Effect($hWnd_Main, $idBtn_Ok, 3) ;Adiciona o efeito no botao $idBtn_Cancel AddBack_Effect($hWnd_Main, $idBtn_Cancel, 3) While 1 ;Identifica a posicao do mouse sobre a form _MouseHover() $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $idBtn_Close_C Exit Case $idBtn_Ok MsgBox(262144 + 0, 'Debug', 'Botao Ok pressionado', 0, $hWnd_Main) Case $idBtn_Cancel MsgBox(262144 + 0, 'Debug', 'Botao cancelar pressionado', 0, $hWnd_Main) Exit EndSwitch WEnd ;Retorna a posicao do mouse relativa a Form Func _MouseHover() $aCInfo = GUIGetCursorInfo($hWnd_Main) ;/Button Ok If $aCInfo[4] = $idBtn_Ok Then If $fOver0 = False Then GUICtrlSetBkColor($idBtn_Ok, $oColor.blue) GUICtrlSetColor($idBtn_Ok, $oColor.white) $fOver0 = True EndIf Else If $fOver0 = True Then GUICtrlSetBkColor($idBtn_Ok, $oColor.dark) GUICtrlSetColor($idBtn_Ok, $oColor.gray) $fOver0 = False EndIf EndIf ;// ;/Button Cancel If $aCInfo[4] = $idBtn_Cancel Then If $fOver1 = False Then GUICtrlSetBkColor($idBtn_Cancel, $oColor.red) GUICtrlSetColor($idBtn_Cancel, $oColor.white) $fOver1 = True EndIf Else If $fOver1 = True Then GUICtrlSetBkColor($idBtn_Cancel, $oColor.dark) GUICtrlSetColor($idBtn_Cancel, $oColor.gray) $fOver1 = False EndIf EndIf ;// $aCInfo = GUIGetCursorInfo($hWnd_Close) ;/Button Close If $aCInfo[4] = $idBtn_Close_C Then If $fOver2 = False Then GUICtrlSetBkColor($idBtn_Close_C, $oColor.red) GUICtrlSetColor($idBtn_Close_C, $oColor.white) $fOver2 = True EndIf Else If $fOver2 = True Then GUICtrlSetBkColor($idBtn_Close_C, $oColor.dark) GUICtrlSetColor($idBtn_Close_C, $oColor.gray) $fOver2 = False EndIf EndIf ;// EndFunc ;==>_MouseHover ;Habilita o movimento da form de qualquer ponto de referencia Func _WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam) ;https://docs.microsoft.com/en-us/windows/win32/inputdev/wm-nchittest #forceref $hWnd, $iMsg, $iwParam, $ilParam If $iMsg = $WM_NCHITTEST Then Return $HTCAPTION EndFunc ;==>_WM_NCHITTEST Abaixo eu anexei a UDF com a função _HighPrecisionSleep adicionada E a UDF AnimateWindow que não vem na instalação do Autoit mas esta presente nesse código de exemplo BackEffect.au3 UDF_AnimateWindow.au3
  20. Exemplo de Popup

    Caros bom dia, Compartilhando um código com vocês! É um popup com um texto genérico. O objetivo é compartilhar diversas funções que o Autoit consegue entregar Janela com cantos arredondados Utilização de audio (Abrir e fechar) Utilização do mouse cursor (Troca a cor do botão ao passar o mouse) Troca automatica de texto Animação de entrada e saida da form Entrada com posição centralizada Entrada como se fosse notificação Imagem e som embarcados no script Utilização de variaveis estruturadas Registro de função Para as animações de entrada e saida utilizei uma UDF propria que esta em anexo (UDF_AnimateWindow) #NoTrayIcon #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Rodrigo Chaves Script Function: Popup Exemplo 11/2019 Build Autoit 3.3.14.5 SciTE 19.102.1901.0 Visual Studio Code 1.40.2 Git 2.24.0.windows.1 #ce ---------------------------------------------------------------------------- #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <WinAPI.au3> #include <UDF_AnimateWindow.au3> #include <GifAnimation.au3> #include <Sound.au3> ;Variavel de dimensionamento Dim Const $iW = 620, $iH = 310 ;Variavel para arrendondamento das bordas da janela Dim Const $iC = 25 ;Dimensionamento do botao fechar Dim Const $iC2 = 32 ;0 = Quadrado / 8 = Quadrado com cantos arredondados / 16 = Quase circular / 32 = Circulo ;Variavel para controle do MouseHover Dim $fOver1 = False ;/Aponta o endereco do arquivo de audio (e carregamento) Dim $sSoundOpen, $_SoundOpen Dim $sSoundClose, $_SoundClose ;// ;/Extrai e carrega os arquivos de audio _Extract_Sound_Open(True) _Extract_Sound_Close(True) ;// ;Mensagem do popup Dim $_Message = 'Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat.' & _ @CRLF & @CRLF & 'Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.' & _ @CRLF & @CRLF & 'Sed ut perspiciatis unde omnis iste natus error sit voluptatem accusantium doloremque laudantium, totam rem aperiam, eaque ipsa quae ab illo inventore veritatis et quasi architecto beatae vitae dicta sunt explicabo.' ;/Tabela de cores Dim Const $tSTRUCTCOLOR = 'struct;char white[8];char alpha[2];char blueCustom[8];char blue[8];char dark[8];char red[8];char gray[8];endstruct' Dim $oColor = DllStructCreate($tSTRUCTCOLOR) DllStructSetData($oColor, 'blueCustom', 0x006BB7) DllStructSetData($oColor, 'blue', 0x01558C) DllStructSetData($oColor, 'white', 0xFFFFFF) DllStructSetData($oColor, 'alpha', -2) DllStructSetData($oColor, 'dark', 0x252525) DllStructSetData($oColor, 'red', 0xD61425) DllStructSetData($oColor, 'gray', 0xD1D1D1) ;// ;/Titulo da form / Controle de exibicao do titulo Dim $hWnd_Title, $hwndControl = False ;Liga / desliga a troca de titulo automatica (True = Habilita / False = Desabilita) Dim $iChangeTitle = True ;Tempo da proxima troca de titulo Dim $iChangeTimeTitle = 6000 ;Titulo da barra de titulo Dim $sTitle = 'Lorem ipsum dolor sit amet' ;Ativa a fonte negrito Dim $sFontNegrito = False ;Cor do titulo Dim $iColorTitle = $oColor.white ;Cor da barra de titulo Dim $_ColorTitle = $oColor.blueCustom ;Titulo da form Dim $strTitle = 'Popup' ;Mover form (True = Habilita / False = Desabilita) Dim $iMoveTitle = True ;Exibir form perto do tray (True = Habilita / False = Desabilita) Dim $iMoveTray = False ;// ;Inicio da Form ####################################################################################################################################################################### ;/Form do Popup Dim Const $hWnd_Main = GUICreate($strTitle, $iW, $iH, -1, -1, $WS_POPUP) GUISetBkColor($oColor.blue) ;Identifica as dimensoes e posicao da janela $aGetPos = WinGetPos($hWnd_Main) ;Arredonda os cantos da form Dim Const $hRegion = _WinAPI_CreateRoundRectRgn(0, 0, $iW, $iH, $iC, $iC) _WinAPI_SetWindowRgn($hWnd_Main, $hRegion) ;/Cria a barra de titulo If $iMoveTitle = True Then $_Title = GUICtrlCreateLabel('', 0, 0, $aGetPos[2] - 1, 36, -1, $GUI_WS_EX_PARENTDRAG) Else $_Title = GUICtrlCreateLabel('', 0, 0, $aGetPos[2] - 1, 36) EndIf GUICtrlSetBkColor(-1, $_ColorTitle) ;// ;Extrai o logo Autoit $_ExtractLogo = _Extract_LogoAutoit(True) $iPicture = _GUICtrlCreateGIF($_ExtractLogo, '', 25, 6, 75, 26) ;Cria uma linha abaixo do titulo $gLine = GUICtrlCreateGraphic(0, 36, $aGetPos[2] - 1, 1) ;Exibe mensagem do popup $sLabel_Msg = GUICtrlCreateLabel($_Message, 23, 45, 570, 250) GUICtrlSetFont(-1, 11.5, 400, 0, "Segoe UI") GUICtrlSetBkColor(-1, $oColor.alpha) GUICtrlSetColor(-1, $oColor.white) ;Exibe mensagem no rodape $sLabel_Msg = GUICtrlCreateLabel('Duis aute irure dolor in reprehenderit in voluptate velit esse cillum', 0, 290, $aGetPos[2] - 1, 20, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, 7, 400, 0, "Segoe UI") GUICtrlSetBkColor(-1, $oColor.alpha) GUICtrlSetColor(-1, $oColor.gray) If $iMoveTray = True Then moveToTaskbar($hWnd_Main) EndIf ;Executa o som de abertura _SoundPlay($_SoundOpen) ;Executa a animacao de abertura If $iMoveTray = False Then WinAPI_AnimateWindow($hWnd_Main, 'slideInTop', 300) Else WinAPI_AnimateWindow($hWnd_Main, 'slideInRight', 300) EndIf ;Exibe a form GUISetState(@SW_SHOW) ;// ;Define a cor da variavel gLine (Linha do titulo da janela) GUICtrlSetBkColor($gLine, $oColor.dark) ;Controla a exibicao de titulos If $iChangeTitle = True Then AdlibRegister('_DynChangeTitle', $iChangeTimeTitle) ;Aguarda para exibir a opcao de fechar Sleep(2500) ;/Cria a form fechar Dim Const $hWnd_Close = GUICreate($strTitle, $iC, $iC, $aGetPos[2] - 35, 10, $WS_POPUP, $WS_EX_MDICHILD, $hWnd_Main) ;Arredonda os cantos da form Dim Const $hRegion_ = _WinAPI_CreateRoundRectRgn(0, 0, $iC, $iC, $iC2, $iC2) _WinAPI_SetWindowRgn($hWnd_Close, $hRegion_) ;Define a cor de fundo GUISetBkColor($oColor.dark) ;/Cria o botao X Dim $idBtn_Close_C = GUICtrlCreateLabel('X', 0, 0, $iC - 1, $iC - 1, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont(-1, 11, 400, 0, 'Segoe UI', 0) GUICtrlSetBkColor(-1, $oColor.dark) GUICtrlSetColor(-1, $oColor.gray) ;// ;Executa a animacao de entrada WinAPI_AnimateWindow($hWnd_Close, 'explode', 300) ;Exibe a form GUISetState(@SW_SHOW) ;// While 1 ;Identifica a posicao do mouse sobre a form _MouseHover() $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $idBtn_Close_C _CloseAndExit() EndSwitch WEnd ;Retorna a posicao do mouse relativa a Form Func _MouseHover() $aCInfo = GUIGetCursorInfo($hWnd_Close) ;/Button Close If $aCInfo[4] = $idBtn_Close_C Then If $fOver1 = False Then GUICtrlSetBkColor($idBtn_Close_C, $oColor.red) GUICtrlSetColor($idBtn_Close_C, $oColor.white) $fOver1 = True EndIf Else If $fOver1 = True Then GUICtrlSetBkColor($idBtn_Close_C, $oColor.dark) GUICtrlSetColor($idBtn_Close_C, $oColor.gray) $fOver1 = False EndIf EndIf ;// EndFunc ;==>_MouseHover ;/Internal functions ;Altera o titulo da janela dinamicamente Func _DynChangeTitle() If $hwndControl = False Then hWnd_Title() $hwndControl = True Else WinAPI_AnimateWindow($hWnd_Title, 'fadeOut', 300) GUIDelete($hWnd_Title) $hwndControl = False EndIf EndFunc ;==>_DynChangeTitle ;Altera o titulo da janela Func hWnd_Title($sMsgByRef = $sTitle) $hWnd_Title = GUICreate($strTitle, 250, 30, 8, 7, $WS_POPUP, $WS_EX_MDICHILD, $hWnd_Main) GUISetBkColor($_ColorTitle, $hWnd_Title) Local $sMsg = GUICtrlCreateLabel(' ' & $sMsgByRef, 0, 0, 250, 30, $SS_CENTERIMAGE) If $sFontNegrito = True Then GUICtrlSetFont(-1, 12, 800, 0, 'Segoe UI', 0) Else GUICtrlSetFont(-1, 12, 400, 0, 'Segoe UI', 0) EndIf GUICtrlSetBkColor(-1, $oColor.alpha) GUICtrlSetColor(-1, $iColorTitle) WinAPI_AnimateWindow($hWnd_Title, 'fadeIn', 350) GUISetState(@SW_SHOW) EndFunc ;==>hWnd_Title Func _CloseAndExit() ;Cancela o registro da funcao AdlibUnRegister('_DynChangeTitle') ;Altera a cor do botao fechar GUICtrlSetBkColor($idBtn_Close_C, $oColor.red) ;Executa o som de saida _SoundPlay($_SoundClose) ;/Executa as animacoes de saida WinAPI_AnimateWindow($hWnd_Title, 'fadeOut', 150) GUIDelete($hWnd_Title) WinAPI_AnimateWindow($hWnd_Close, 'implode', 150) GUIDelete($hWnd_Close) ;Verifica se o modo Tray esta habilitado If $iMoveTray = False Then WinAPI_AnimateWindow($hWnd_Main, 'slideOutTop') Else WinAPI_AnimateWindow($hWnd_Main, 'slideOutRight') EndIf GUIDelete($hWnd_Main) ;// Exit EndFunc ;==>_CloseAndExit Func moveToTaskbar($hwndByRef) ;Verifica a posicao da barra de tarefas $___aTaskbar = WinGetPos("[CLASS:Shell_TrayWnd]", "") ;Coleta a posicao da form $___aWin = WinGetPos($hwndByRef) ;Move a form para perto do tray WinMove($hwndByRef, "", @DesktopWidth - $___aWin[2] - 1, @DesktopHeight - $___aWin[3] - $___aTaskbar[3] - 1) EndFunc ;==>moveToTaskbar ;Extrai o logo do Autoit Func _Extract_LogoAutoit($bSaveBinary = False, $sSavePath = @TempDir) Local $Extract_LogoAutoit $Extract_LogoAutoit &= 'iVBORw0KGgoAAAANSUhEUgAAAEsAAAAaCAYAAAD/nKG4AAAACXBIWXMAAAsTAAALEwEAmpwYAAAABGdBTUEAALGOfPtRkwAAACBjSFJNAAB6JQAAgIMAAPn/AACA6QAAdTAAAOpgAAA6mAAAF2+SX8VGAAAIRUlEQVR42mL4//8/wygmDgMEEJj48OEDLswFxKFA3AvEh4H4ARA/AuJTQDwTiBOBWAyP/mGBYYEFEED4AssbiPd//Pjx/9cvn////P7l/89vXyA0EH/7+vn/J6AcUM15II4fCYEFEEDYAosJiKuB+Pd3YIB8+fzp/8MnL3/uP33z86Jtp7/M33Lq645j1z7devDsBzCw/v349vn/xw8fQIE2D4gFhnNgAQQQemCBAqr/48cP/38BU8/dRy9+TFx15Fta14Zf4fUr/wTXLP8HwqG1K/8kt6//3bpw3/eLtx59+wFMcZ8+gVPZBiDmHa6BBRBA6IFVAEolP4ABtfvk9a+pnRt+Blcv/x9Rv+p/TNOa/3HNEBwLxJENq/6H1KwAif9etefCt+/fPv+BZsu5wzWwAAIIObB0gfgTKEUdPnf7OzCAfofXrQQHDAyHAfmgAIpuXA0XAwVaaO2Kv6v2nP8GLMv+AQP7H9Acv+EYWAABhBxYs78BC/IHT178SAOmKGC2QwkoEL9s2o7/bQv3/Y9rWfs/qnEVXA7EjgBm0xOX7/0AVQJAs04DMQfUXDYgFoaWZ8xYHMMCxIJALATErFAxVihfEAcWBWJ+JDPYgVgeiDWBWAOIJbHYwwjEfFC3cCCJC+LBIDeIwgILIIBggQW04ON7YIH+b/Lqo1+DgFkPOaBAqal5/r7/r9++A9aIn/9vOXLlPyjVRTchUlhI7Yr/dbN3//j86eNvaHYMhjomDIhvAvE5IFbB4glLIL4GxNeB2BjqkXVAfBsqfgWKYWquQ82zAmI5IK4C4gNA/BaIvwPxNyB+AsTrgTgZKVBB9G6oudlQsVioeTeA+CrUnqtI9twD4umwwAIIIFhg5Xz9/Pn/nYfPfyS2rvuFnGpA2SylYz1I7v/vH1//f4M2I4CB+h9Y2MPVgco0YDb9cwiYhX9AUtcCqIMyPkBqS1D21MESWG5QeRC2A+J2JD4uPAVq1i008X9Y1G4FYm5oqnoBFasBYm0gfkfAHlAEGMMCCyCAYIG1BBQAO49f+wVMIf/gAQDEwPIInJL+/Pz6//37D/9fv3n3HxQYj569+p/auR6U/eABBqoM5mw6+ePX968giy5Ba9cEqMVfgVgLS2A5IzkOFHAhQJwExDHQhu9/aGopA+I4qDgHNDJAcp+BuAuIPYDYAppSQWasRjI3A5q170P5FUCsDxUHmZkGxM+hchuhdoBSpRlymQUQQLDAuggKrEXbz3wNrl6B8Dww+7Uv2v//K7Ct9efnt/97Tt34P3XNsf/Amg+cyjYfvgIOTOQKoHHe3m+gthmw+fESaC4P1DHEBpYTmlwEVBwEpJHEQVnqMVRuBo6CmROarWCpnAuarUD8Bizqb0Dl6nEV8AABBCaANdgzUAO0d/mhryFQz4OyH7At9f/GvafggHr64vX/vAlbwGXT6Wv3/wNbrOAGa/P8veAyDaQH1MQonLj1z7v370HtLpAHRaCte1hgqWNxpB1SYDmjySVBxT+i6VWEioHkivHUZOuhatZC23/3cAQID1KWbscVWAABBAus56DA6lmGCCxQebTpECT7gVLRFGAZ5VWy6L9/5bL/OX2b/z9/+eb/L6D49btP/ie0rgMHLiiwCiZuQQ4sYWiWADniNxCbYvFQJFJgWRMZWAJIHl+MI6CEoIU5SM1saEqjKLAAAgiWDa/8BKaUhVtPfwGlElDWqpuz5z+oX/gXmKoOnb31v3TK9v+7TlwHlmvX/28GBuK9xy/+f/70CRxgy3ae/R9UtRycDRvm7vn2GZwNP76EVr9K0FoK5JCjQFwCLcdAuByI70Dl7kLVExNYDNAAAMn9AuI5' $Extract_LogoAutoit &= 'QJwPLXsyoOXbbqRIiEErs8gKLIAAggXWClCZtf3Ytd+BVcv+gQru+8DA+P//1//nr9/+L526/f+56w+B/L/////7Cca/gSkOpAcUmKAaElhW/fctX/J/1sYT36EF/FVoLQQyvwNHTfUfKdUlYkkdaUjymmhyakB8gYiaczG0HQYq515CxVrRzOKFNjf+Q0dYsAYWQADBAiv/65dP/2/cf/ozqmHV76oZO/8fBKamA0AMzJr/S4CpCsTedfI6OHWh40Pnbv2fsf74/4DKZX/2nb4Ja5guQWsQBkPbTxehqQmUki5D+5NeOLISqCdwFjT6AcQKWOTFoaloHzRy7kLNvgg1NxLaKGaANh02QgM4DctQ1DqoXA6uwAIIIFhg6Xz88PHzN2CjtHf54W+gRimoxQ7KVrAuDzIfGcPEQoBlXNXMXT9AqQDaKI3CEQA80PJEGBqjjHgKaGaoRzgJqGNFap0LQe1gxNKC54CmdhYsZsDkWHEFFkAAIXd3FoHGqG4/fPYjsW3dL1AggBqasPZWDLC1jh3D+4d/Dp+//R2UNaExyz3c+oYAAYQcWCagghhU3uw7deN7WO3KP6DaDbnbgw1HATvVwLbZn8XANhqwsfoXNLwDNCd8OHakAQIIfYimBlQDglromw5d/pbQuvYXqGEKSjmxzahDNKBAAjUzIhtW/1m07cw3YCH/BzqmtWK4DtEABBB6YIHy6zxQgIGy07W7T763LzrwLQmYLYFNir+gsgyEgQH4L7Zlza/a2bu/n7x079v3r1+AzQhwQO3BUv0Pm8ACCCBsw8rs0L7Wf9CQMSi13Lr/7PuGg5c/T193/Ne0tcd/r9xz/sulW49ALfK/oFQIzXprh+vkBSywAAII34QFqNo9A6rZQAU/KKWBAuYHdNLiO2IoGVRd5+GoYYZVYAEEEKGpMGFoEwDUQj4KbEZf+ggZTTgBLZvSoINuI2IqDCCARidPScAAAQYACYH5JVhnQlIAAAAASUVORK5CYII=' Local Const $bString = Binary(_WinAPI_Base64Decode($Extract_LogoAutoit)) If $bSaveBinary Then Local Const $hFile = FileOpen($sSavePath & "\LogoAutoit.png", 18) If @error Then Return SetError(1, 0, 0) FileWrite($hFile, $bString) FileClose($hFile) EndIf Return $bString EndFunc ;==>_Extract_LogoAutoit ;Extrai o som de abertura Func _Extract_Sound_Open($bSaveBinary = False, $sSavePath = @TempDir) Local $Extract_Sound_Open $Extract_Sound_Open &= '/z9SSUZG9C0BAFdBVkVmbXQgEAAAAAEAAQCAuwAAAHcBAAIAEABkYXRhgC0BAPn/9v8KAAgA8v/5/xYACgDf/+j/HQAaAN//wP/j/+v/wP/Z/zEAOQDO/73/SQCUABMAoP8WALAAXQCu/8v/XwAwAIb/d//z/8X/M/9w/1gAWwCB/5f/0gAyARIAY/+BAHcBtgCU/wYA/gB6ABv/5f6i/6L/G/+M/6IAhwCF/6L/4wASAc3/d//eAKsBbgAt/+H/AwGNAFn/ZP8UAKn/1f5D/2AAMAAv/4D/1QDmAJb/aP/iAIQBNwA9/0EALgE6AMb+/P7h/53/5P5+/40ANQAt/5z/9QDBAFr/U/8YAasBEADZ/sf/xwD0/8P+NP8wALr/0f5P/2sAOABf/+H/CQGtAET/af8fAW8B1v8S/2MAWAEBAIH+4f4CAML/H/+5/7AAPwBq/w0AOwHRAJP/DQDEAckB+f85/5UAMgG1/1/+I/82AKj/yP51/48ANgBx/xIAHwGMAE//0f9hATIBhf9M//kAgAG1/1z+Sf9rAMT/4/67/+AAWQBb/97/6wBsAGf/IwC4AVMBZv8f/7gAFQFB/zH+Zf9uAGT/Wv5U/7AAPABD/97/7QBmAFb/AgBiAdAAE/8w/+4A9QDn/vb9jf+sAKP/pP64//cAQwA5/+P/6gBSAFv/SAC3ARIBTf94/wQBzwDC/j3++v/QAFn/Yf67/yABYQBO/wAADQF6AKz/kADQAfsAZf/C/0IByACi/iz+6/+qAGj/sf4nAEcBUgA9//z/BwFtAJz/gACXAb4AQ//G/y8BowCb/nj+NgCuABH/bP4KACoBFQAD//f/BAFJAHf/eQCnAawAJP++/zMBdQBW/j3+DABhAL/+ZP5IAE0B6f/U/vv/HgFBAEz/ZwCOAYUA9v6J/+YAFgBI/pr+jACeAMr+gf5YACoBpv/C/gMAGwEsAGv/lwCdAYUAO/8FADwBIQBW/sP+jAByANj+6f7LAEEBs/8X/40AYwFOAKf/AwHwAbEAUv8NAPgA4P9c/hr/uwBJALD+A//vAB8BZ//h/nEAOAETAIf/3gChAUwAG/8PAAwB6f9y/in/oAATAKn+Ov8RAfcAMP/p/pMALgHa/23/8AC0AUUAE//7/8IAdP8h/hz/kgDc/2v+If/pALMA/P4T/9cAJQGO/zb/2AB/AdP/xP7w/9sAiP9C/lf/tADr/4f+af8aAZ8A5/4l//sAKQGh/4j/VgHUAQUA9P4XAMkAZv9O/pX/6AABAML+vP9IAaMA/P5u/zsBTQHc/+n/jgGmAdX/Gv9yAO8ARv82/pj/0QDh/8v++f9rAZIA6/55/yUB/ACH/9L/gQFzAYD/7/5kAM8AK/9L/s7/2gCa/3j+yf9OAXEA1f6E/zAB7ACD/+P/jQFNAUT/xf41AIwA1P4w/sj/vQBb/1T+y/9AAUUAtf6S/y8BxgBF/8P/XgEKASD/4P5fAHcAtf5U/iEA4gA8/yr+uP8eAQkAs/7O/3kB5wB3/yMAwQE+AUz/M/+tAI4AvP6J/nsAIwF7/57+OgBmAQoAz/4SAMIBDAGt/2MA4gE2AVr/b//TAIgAwf66/ocA7wA7/8L+dQBcAbH/kf73/58BvwBy/yoAegGbAOj+SP+4AEcAkv7G/pEAsgDy/qz+mgBLAYr/ff4eAKUBqABp/2EAnwGCAKL+Af98AAQAZf68/n8AcQCl/pH+nwBSAYX/jf4tAGkBOgAK/0QAoAF5AJ/+Fv+RABgAnv4T/74AZgB9/nH+hAAhAX//5v6yAM0BagBM/5IAxwF0ALv+Xv/IABoAs/53/0kB7QDz/vb+1wA3AX7/Hv8AAfcBdgBy/8wA4wF/APH+uP/5AP//iv5i/zcBvwDe/vL+vADcACn/7v7cAKsBIAAy/2kAPwHV/53+t//kANf/Yf48/9gAVQDI/kT/AgHWAA3/Av//AKYBJABZ/5sAIgF9/1D+e/+lAKz/eP5q/70A' $Extract_Sound_Open &= '7P93/kH/BAGyANv++P7nAF4ByP9C/7gANgF1/0D+ef+vANL/vP6X/5MAjP8y/if/BgG8AD//lf9nAYEBxf+A/yABoQG0/27+kf+7AAAAK/8lABIBBAC7/pf/EQGgAGL/KgDtAaUBvv+Y/3IB4AHz/8z+9v/4APX/Dv8AAOwA3P+l/lv/hQDi/+b+CADeAU0BNf8N/+YAQwF1/5b+8v/UAJ7/of6n/70A9/8D/7r/pgDY/+7+IADOASkBRv9L/+MAxQDR/kj+/f//AMX/q/53/1EAmP///tb/qgDD/wb/NQCUAboAEv99/wcBnwCH/i3+BgAEAcr/wP5n//v/RP/c/v//4gAkAIf/kACcAa0Ab/88ALUB/ADC/nX+RgA3ARcAUP8DAIwAqP8X//n/zgBzADoAPgG+AYMAYP9lANIB/wD4/tf+jwAnAfH/S/8rAJ8AmP/K/l3/EgDl/xAAKgFiAeL/vf7P/y4BVACV/tH+eQCqACn/tP4OAOIA9f8e/5X/IgDf/wIAHAFmAQcAAP/s/9oAyv9F/gL/3ADbAAX/Zv68/4oAqf/s/nz/EwDQ/93/0wAbAQMAV/87AL0AYP8U/jf/LwEFARH/a/6H/yAATP/v/uP/mwBJACwA3QAOATUA8//iABgBi/9j/qf/gQFAAaL/Xf+FAK8Aff8B/xgAEgHuAKgA5AC4AAQAEAALASMBq//E/vb/XAHUAGT/b/+TAHwAFP95/oj/qQDTALgAuQA8AGD/af9OAFwAKv+h/rH/rADU/8D+YP/OALcAPf+0/rP/qgCwALQA9ACqAL3/g/8JAPr//f7f/iUA4ACr/2T+E/+OAF4A5/6F/qz/eAA6ACUAtgDIAAkAr////73/1v7n/msAJAHM/03+0f4pABQABv8s/4AADAFuADgA0gAFAWAAHgBsABAADf8d/68AfAFnAC3/q/+MAAIA8P5o/wEBjQHUAIgAAAEWAYEAYADAAFUANP8d/1cA/AAKADb/0P96AKL/bP7i/o8ATAHQAFsAaQAmAJ3/uf9CAAwAK/8i/xQAcgCl/yn/6v+AAKj/jP7m/ksAAwHSAKYAtAA2AID/af/e/8H/Sv98/1QAWABp/wb/7f+KALz/sv4G/ycAiwA5AE8AuQBpAIj/Jv9p/23/N/+v/5IAbQAy/6/+ov+EAPz/Rf/O/+cA9wBYAHEAFAEHARYAnP+5/6H/Uf/Z/+QA6wDD/xr/zv9VAL3/R/9OAJMBhwGnAKcATAEsAWEADABPAAUAZP+Z/4YAlgCL/w7/rP/j/wb/mf7W/08BQAFJAA0AhQBYAL//zP9HAAAANf89/xsAZAC1/1//6P/3/wj/jP6e/wABGgFaACUAWwAXAHH/gf8FAAYAgP+A/xMAIQCB/2T/AwAuAF7/yv6R/7sA8AB1AFwAewDy/xv/6/5l/4z/Wf+S/xkA6P8I/+/+9P+pAB4Ahv8TABQBNAG1AMUAFwGiAKb/WP+9/9b/hP/N/3cAUQAm/8D+tv+YAD4A3P+rAMwBrAHWALIAMgH+ACwA2P8FALb/Kf+D/38AdwA4/6X+aP/+/3P/Fv8zAHYBMgEoAPr/mgCQAAMA4f8ZAKv/Bf92/4UAdgA0/8L+pf8jAFH/7P4yALEBcQEoALz/KQAjAKD/sP8lAOj/Pf9c/xcA7v/7/ur+DgCOAIL/yf7q/4IBbwE2ALX/CgDs/zL/Bf+B/6H/OP9U/9v/wP8c/2X/ugAmAeT/Dv8xAOUB2QGWADQAyAC0AL//RP+1/9//jf+N/+//ef+C/sL+eQBoAXwAyP8CAYACAgJjAB8ADQEHAb//Bv91/7z/av+R/zEA3v+i/nr+3/+oAMP/Nv+RAP8BNgGb/6z/IgFWAQcAQP+k/9T/Y/93/xoA2v+6/pD+yP9gAH3/Uf/2AGACUgFu/2T/tADkAMr/Xv8DAA8ARP8O/7L/wf/6/v/+IABsAFz/Hf/CAB0C/wAg/xf/UQBVACr/9P78/zgASv/Y/of/' $Extract_Sound_Open &= '5/9v/4T/fgDFAL3/hP8nAYICcwG+/9L/8gCkACf/4f7n/xUA3v5I/gf/k/81/5T/AQGgAboAWQCqAZICUgHE/0AAcwGoANb+s/4UADUA3f5n/lr/n/+j/pr+NAAbAToA2P9AASUC0wCC/30A6gH/APf+Cv+IAHcAtv5T/oz/uv9S/hL+1P8KAUcA/P9xAWIC5ABq/1IAuAHLAPL+Iv9yAOT/B/4B/uH/VwDp/oj+TAA7ASkAgv/nAMIBMgCN/ln/wwAgANH+hv/iAA4ACf5J/l8AvQDn/n7+dwCsAY8A8P+CAZgCFAFO/+P/BgEgAK3+UP+IAGb/Q/2z/QsAjAD1/gv/cQGKAt0A1v9bAZ0CQgGv/18AUAEkAK3+fP+dAC7/+fyC/bD/pf/k/X7+cgF1AosAov9uAZMC+gCc/6oAmQEhAMP+CgAzAXX/MP0b/kgAp/94/UL+XQEeAg4AqP/6AdkCqwA4/80A6wEyAJz+u/+pAKj+yfxn/usA+/+s/ab+1wEYAp//M/99AesBVv8i/kAArwERAMn+LQALAcL++PzZ/jUB0v9j/bP+DgImAr7/2f+CAsUC4//e/h0BJQLN/zf+sP9VAMv9Bfxe/gkBy/++/aD/4wJWAnP/4/8EAyUD7v/L/hYB2wFo/yT+DgCTAIf9nvsp/s4AY/+O/e//KgMUAgD/xP8OA+YCnP/8/rwBRAKN/6L+4QAmAbD95Puq/uEAzv4G/d7/MwO2AdP+TQDEAwQDgf9n/2ECUgLh/u/9XQCAAPH81fs0/zYBjP7i/DcAhQN9AWn+9f8sA9IBSv7r/lcCHAKk/jX+DQHuABf9JPyt/2ABZv7b/GoAbgMqAWv+pgDNAyICtP7T/x0DHgIj/r79egDV/9T7efu3/5YBq/6P/UkBxAMKAZj+RwEcBJIB5v1u/98CjQG1/Qj+DAHn/5X7ifspALcBdP5r/U4BZQNJAFP+rAF0BIYBJ/5TAM8D5wHn/Z7+qQHN/w/7aPs9AH4BJ/7C/RIC1QNbALb+cQLRBFgBPv7YAM0D6ADY/F7+qwF2/8T6vfu5AEkBl/22/UwCbgNc//v9FQIoBHAA7/1OAQwEogDW/DL/mwLQ//r6XvxFAQ0B5fxP/SYCEgMH/0j+ywKRBJAAav7+AS4E5//t+17+bQFC/vT5ZPzQAXMBWf0z/ggDagMZ/4L+zQLJA0v/lf29Ae0Dsv9R/Df/6QEb/vT5Af1GAiABvPzx/QwDKAP1/gn/xwN4BL7/Ov6GAioEe/9a/Kf/AgKp/bz5cf3pAmgBAP2P/oYDEQOo/jr/QwS/BNz/jP6xAsIDzv42/OL/3wER/VP5W/2EAqwAu/zx/scDkgL9/eP+7wMbBGP/rf7bAnMDq/4N/TYBpwJO/cP54P0yAoT/x/ut/okDGALc/YD/oQRXBKb/Nf/5Am8CAP12+7P/6gAV/OT5//4jAx8AufwCAFQE/z/vAUj9zf5rA6sCa/4X/3ED8gLP/bn8nADtAMv7O/qA/8kCAf8O/DkArAQjAgP+RwCxBBUDa/5O/6EDpQJ4/fH8DQHUAKn76vrLAJ0DJv8o/HoAbAQiAXX9/AACBuwDzf6n/9EDXAL5/Kv8uwD1/3f6V/rnAOMDdv/5/IkBwwSNAJX8VQBSBdcCyv05/+sDvQLt/Tv+UQL7ACH7mvpgAEgClv2/++8ALAQYAA39qQGMBoQDIP4l/9ACiQBS+wD8lgDl/xH7kPtwAeICPv7Y/NkBBQQQ/8T7VgAIBUQC6v0DAN4DZwE0/O/8FAECAEj7xvsiARICx/1g/bICnwTS/x79hAElBacBtf1pAD0EkAHD/OD9pAEbAKr71PzoAeIBNf0j/YYCIQTA/2f+kQOCBvQBoP1JAHkDIwB5+xP9qQDk/kH72/2TAzADKf7+/bAC4gLK/ez8nwI4BY8ATf1KAfoEhQEj/R3/LgIH/0n6SfxpAbAAXfyK/QADWgOp/qj+fwQ8BoYA0PwGAEsC6v1H+q/9' $Extract_Sound_Open &= 'wgET/yf7+v0SA7YBDv0T/q4CnAE1/KD8LgNgBX8AFP4SAu8D2v7g+i7+nQFP/lf6oP3pAq8Blf1m/zEE3QJA/W/9QgOUBIH/xv2EAoUEkf8I/JD/xAIs/yL79P1bAmcAevz4/lMEoQMl/yUAYgUgBfz+7/xOAbICaP1j+qT+VQJu/6f8VQB0BKcB3PxT/nwCFAHf/J/+PwRGBFH/xf6qA5oEFP/5+2n/bgE//T36Rv6FAlEA9fyb/+ADOQJV/h4AxgREA1L9Xvy3AGAB8PzU+3IAgAJv/tH7ef95Al3/EPyt/hgCAgA0/YkAlQUDBKX+QP7ZAeEAwfst+wgAhAGC/S78AgH9A44Ab/0dALkCoP+S/PH/igTBAob+9P88BM0CX/0g/cQBDwLY/Dj72v9zAiX/YP2kAfgE/wEM/ywCZAXYAar8/v3sAfz/CftW/HQCjgMR/zj+yQLKA3X+jPt4/1gCIv+//AsBcgXvAtD+6gC2BMABufsj/PoAqACa+1z7CwE8Axf/T/3RAZwExwDV/RkB9wMrAKH7uv3nARgA4/vO/RcDZQL//GH86gC1Aeb8M/u8/70CBgCK/tACwwXHAQj9Q/7lAF3+sPoQ/QACWAE6/SP+/wIiAxj+f/xVAOoBh/5o/dMBsgSEAaL+RAHhA8cAB/38/lwCFACm+wD9+AEwAon+B//LA+cE8gCJ/9kCngPW/uH70f44AXP+cvx9AMEEigJx/rH/BgO/AMn7Zfw1AckBPP7Z/g8EdQXaAFz+WQFaAsX96/rJ/k8CMf+K+5r+UgOPAS79vP7PA18Dbf4T/nwCtwKG/df7MwAvAjn+W/z+ACEE2P84+8v95AFZ/8f6IP0hA1YDKv+t/zsEsQN7/SP7Cv+cAIf8NPunAG8EvQAI/QIAfQPj/6H6bPzNAXABjf0t//oERAXo/1f+TgIsA0z+JPxlAPsC7v7c++f/JwR6AZf9jwDQBYQEZ/9t/yQD4gEo/Dz7BgDyAc3+lv6nA5EFoQDW/I7/DQJT/nD6hv2kArQBfv70AOcFmwSi/vH8DwAaAEb8MfwqAdQCkf69/AIBogPX/6b8BADgA0MBF/0e/2wDowGf/An9gQGpAcj99/1kAo8CKv39+iD/bwHf/Sb8JgFkBVMCDf7Z//UCzv97+oX7YgBoAPH8b/4OBIQEGf/Z/BEAhACZ++X5cf/nAykBTP4WAlQGOAPO/bj+oQIGAUj8XP2eAtAC//2Q/bYCPASS/wj+SwNVBqwBTv34/xUDSP9p+jf9WANHA0L/VwDVBIsDQ/2a+7j/fwD0+wP7KQE1BeQBCv+EAh4FLABP+j38XQGVAKz8eP7PA14D1/3S/DYBHAKj/W38WAEBBDgAq/2AAV4ECgAq+4X9IwLaAPz8vv5bA/cBQPx6+xkAcwHs/bP9pAKJBPH/3vzN/+8B4f0m+kj94gHCAOD9hwD8BN4Ccfzy+nX+Af/3+9b8igLnBFIBYv/FAnEENACk/DD/XAIuAFH9HABKBIIC8P1//oMCSwK//pP/fAQgBS0Aov17AIMBkf3W+4AAlARQAhj/JwH8A98AtPso/Lf/BP/F+8H9rQMeBRIBbv/1AYoBQPwk+uT+8QKzAC/+AwH0A9gAPPyu/c8BDQFD/T3+zQI7A3b/DP+XAn0CbP2j+ygAYANwAKP9UQC0Avz+iPqs/IcBiAGX/t7/0QPXArT9ZPyA/6j/f/uv+qX/MQNjAQYAHgNfBMn+y/j2+Vf+s/5C/ScAKgXmBGsAj//UAtICY/64/AYA3QFk/4n+kgJkBQMC4/0x/1kCSAHu/gMBoQQ1A2v+S/0JAHgAJf7v/l4DigTCAJ7+EQEFAgn+s/rL/Ob/Bv+o/QsBfAUZBA3/dP0U/27+8PsY/ekB4gMoAa7/qwHXAef9r/uo/qMB8P/8/bMApgTVAzsAof/uACH/2/v+/IsBFQOYAJj/mwE6ARL9RvvA/ssBNQAh/h0AgwKEACD9gv2n/63+PvyW/ZMB' $Extract_Sound_Open &= 'mQJlACcA2gE4ABb7V/lA/fsAigD4/4kCcwTGAWf+SP+hAXwA9f3x/h0CdgLeALwBMATkAlL+zPwCADkC5wCdAJ8D5QQJAcv8UP0JACUAFf+5AD8DUQKL/4//dQE6AEn8XftD/tf/uf5n/wMDXwTJABD9kP0q/yf+Vf1AAMMDxwJ5/0X/MwFeADz98/wSAGwBlP+q/0QD7QTdAXP+qf7B/3b+c/0bADwDeQLo/6j/hgC3/gP8RP1dAVYCiP9k/p0AWwF+/nn8Ef6P/+T9qPx7//8CyAJfAJz/bv/e/BX6i/v6//gBAQFEAVgDEAOV/7X9nv8gAZT/ef6aABcDxgJ4ARgCzwJ2AHD9RP6EAXkCeAEOApEDEwIr/s/8af9JARUAXP9FAZECBQFb/+//hABb/uv7+fyl/yEAmv/6ANUCWgFj/Qv8iv6SADIASAAXAqICWgAw/qj+ff9p/tH9KwB5AooBFAC9AfADSgJm/gP9v/6N/4v+l/80A4wElQF0/lT+2v7D/XH90P/WAcIAv/52/0MB4v+n/HT81P5+/0v+9v4jAocD3gDp/YL9Kf1z+7r7i/8GA54C0gA5AVoC6AA0/l3+gwCLANn+n/8YA88E6ALYAPYAgAA7/rn9mwBYAxgDywEfAiACWv++/CL+YAH+ASYAs/9dAaMBif9R/kP/Xf9L/Xn86v5GATQBcgD7AAUBZ/6M+7j8QgDZAZgB9QGcAh8BAv7j/I7+k//A/sP+9gDJAjACnAGiApsCmv+z/Cb9Yf9wAMoAZgLhA0gCh/4K/Zj+Vf+G/vf+8gCKAcX/bv5n////Jf6A/Lf9vf/J/0P/xgDRAsMBNv4m/KX8D/0O/ez+OgJ2A9MBMgCWALoA/v4P/tD/fQEZAYEA9wEMBEsDSADr/rD/vv/g/tT/xAJZBLQCowBSAAoAbv4T/iYA+QFUAQoAWgAlAfT/2v3e/fH+f/5M/Rf+2wBKAvsAj/+a/8D+o/yn/Mj/oQK7AnYBOgH5AMH+r/zD/S0AtgCv/wQA6QEBAzoCYgFhAU0A2f3o/PD+fQGQAs4C6ALIAQH/hPzh/M/+pP+V/3MAjQGfAJn+af6b/xD/Jf20/FX+//93ABABTQIMAh7/GfzJ+x/9Av4J/1kBZQPKAj8Az/6Q/0EAuP99/6EAvAHqAU4CWANEA/sAZ/77/dv++/61/3cCIAW+BPoBpv/K/t79Rv29/jIBFgL+AO3/awD8ALH/FP7W/az9r/zr/H//5gHiAUgAGf/2/m3+Vv0x/mQBGgMBAl0AjP84/9P+0v6s/zgArP/U/9oBfwPCAiQBkABmAEn/7v1k/soA1QISAy8CEQFT/2r9hP1f/xkAWf8o/93/LgCc/w3/gv+S/x7+vPxw/Xn/7wB7AakB7QDe/ur8ZPxT/dn+8//qABACvAHJ/9/+8f/dAMIAfACvADgBrwH+AZECwQJUARH/7/16/vD/uwFpAwQE2gKIAH7++v14/g//CACQAQsC9QCS/yb/fv8s/9n9If05/ZP9gP6gAKQCfQIQAMD9Cv0B/UH91v6vAcoDQgP+AGz/B//J/sL+Mf+//xoAaACTAX0D6gNoAtkAy/9u/jb90f3QANcDbQT0ArEAov51/TH9Sf4cALIAIAD+/9n/Pf/H/qz+ff7I/Rb9sf2l/4UBUgIJApUA9v3N+6P7y/yi/gMB4gIIA8YBxv+x/kD/HwA6ABgAWgAJASECHwP5A8YDdQFq/v38hf0y/z8BfAPhBAME6QBL/pr94/1K/l7/2wCIAQcBPABVAJwAp//S/cH8ovxF/Y/+MwCsAdQBQgBY/mH9Sv3U/Tz/ewElA7wC9ABA/5v+7v6I/97///9XAMsAeAGHAjMDYwLoACj/lf2y/bH/7QFhA4cDUgLHADb/6/3X/cP+x/8lAPb/hP9U/2T/av8d/3r+df0W/RT+hf8lAXgCVgKbACf+5vsb+4j8XP8BAtACJwLIAF//F//0/5QAPQDR/ywATwFEAuIC' $Extract_Sound_Open &= 'XgMNA14By/5v/UX+9P9+AScDDwQBA6cA5f56/p3+2P6B/3sAMQG8AMj/mv/p/5L/jP4e/T389Py//pQAygG1AR0AJ/7z/Nz84v3E/7QBiQLyAYsAY/8a/4L/EAAwAN//5v/PAMsBSwKRAhQC3ABy/5T+2f5LAOwBHAMRA7QBzv9P/t39dv59/14A0QCiACsAd//d/nb+GP7O/cD9uf07/pT/UgF/AtwBtv9m/d77vftJ/cn/zwF3AsIBhQDd/97/GQA+ADcA3f/s/xMBlQJDAygDMwKKAAz/X/6j/g4AIwJjAxsD2AE4ABX/n/59/v/+NgAgAQsB9/8Y/3P/7f9z/0j+Lf3P/Jr9L//mAKkBAAGp/wL+gPwv/Lj9dgDRAnMDRgJQAA//+P4J/zn/sv8tAIMA1ACuASwD4wOkAjsABP4H/cf9BwCnAjwEIwSMAksAMv4S/ZL9TP+6ANgA7v9B/3T/sv+5/4n/Xf6w/Gr83f0QAJoBGgIEAp8AtP1H+0/7nv1UANIBMQLtAdwAuf9O/1b/h/8gAJgA2QBLAfkBowJDA/AC6QBm/mD9fv6+AKYC0wMGBLoCOgDP/eT82f15/40AJAE1AbQABwCs/3f/m/4p/WD89vy9/rQAkQGGASIBTf+I/DX7Pvxv/q0AfAKFA+cCiQBC/rv9nv5+/6D/MgBrAWkCtgLbAs8CQAIHAEj9v/xg/oYACQMVBfMEagIt/3r93/2o/lL/BQC1AH4AR/+m/kT/g//k/n3+Dv58/dj9pf/wAU8C/f+f/ST9SP1F/Xr+DQEVA7YCQwA1/mz+ff8MAOEA9QEhAgsBkQCdASICMQG1ANwA4v+S/i3/CQJDBGQD9wCk//n+/f0H/gEA6AHGAakA2f8k/xn+kf1n/sD/cv8G/sf9JP96AJcAEQCt/8X+S/2f/Ov9/z9UANoB/wHLARwBMv9A/YP9GAAuAvIBkwBsADMBswEDAjgCRgFu/yn+jP6bAE4C3wJqA/4CXwCL/eP8cP41AIMAZwAMAQ8BT//3/aP+9P+G/2b9T/zD/bX/twC+AVsCwwDg/XT8Lv3n/Tf+HgDkAiwD2QD5/k//WgDp/yL/3P8hATYB/QDEAfUC4AIvAWn/0P7L/gv/+ADQA0wEHALH/4v+Lf5G/gH/WQAxAfoAWQCQ/xH/7P5t/nT+JP+K/gL9z/3gANoC1AFL/7L9LP1q/KH8LP/6AeEC0AFHAKf/Mf/E/u//fQEzASsAMgBIAVMCOAJOAekATgBH/hr9cP8+A4gE4QL/AEkACf9z/ff9PQCQAUABfwBgAKX/of0j/eD+3/9p/3T+Kv74/jgAGwE8AfX/5f1P/H/8dv6UAM8BYgLrARsAGf4Q/iEAlgGkAeYADQDN/zkALgF9ApACbgGHAKb/Kv/z/xsBDwKqAqgBL/8A/gn/VQDHAL0AaQArAM3+zPxI/av/NAEnAYD/Av6f/bP9V/+YAf8Ay/6a/bX9ov4//6b/SgGJAg4Buv6A/i8A/wCdAHoABQHdAB4AhADCAUkCIgJdARMA8f40/hL/9wGWA20C0wA3AMb/m/7v/Sn/uAAiAZUAmf/u/sP+zv5Z/6v/rv4g/Tf9Uv9/AWUCygGZ/2j9qvzr/Hf+2QA/Ah4C2wBn//L+Tv/L/5UA8wBAAMX//wBlAuwB9gD7APIAff8K/v3+SAGYAskCJQL1AOn/Xf6D/QL/mADdADABOAHE/yj+Sv6W/9r/8/6X/uP+pP55/mkAmgJ+AVb+wfxQ/Sn+qP7X/7wBggJSAUr/Z/58/9QA8wBiALb/uv9BAOQAKgIcAzgCcAAb/3X+cf78/hoBkwM4A9oA1f/5/wf/CP7o/p8A/ABnAJIAAQHe/1X+L/4j/q39F/7I/goAGwKBApIAVv68/CL8Av2l/pgATgIVA5wCqgBk/r/9U/4N/xQAIgHOASEC8QEpAX0AlwCYADn/If6Y/2YCogOiAjgBmQCo/yT+3/0X/48AggFwAbkAsf+Z/p3+' $Extract_Sound_Open &= 'Tv8u/w3/av8j/6X+FP9vAG8BuwDR/ir9nvyW/bn/MAE0AfgAwgAAABL/Jf+eAF4BCgBl/3YA2gClAIYBogKrAoAA9P10/sP/1f8jAQUDaQJpAHj/pP9A/4H+Dv8rAAUBnQHfAFb/z/4g/1b/Fv+A/n7+6P7a/z0BywHcANn+L/1F/cz9Yv7VAEEDIwKW/xL/6f8jALL/sv9KAEUAjP+c/50AsAGTAhoCBgCt/u3+Pf/L/4IBJwOGAtIAXgAcAMb+SP43/w8AHwAYAJIAyQBpAEAA8v+5/nP9Qv3w/jcBfQEvAbkBNgCA/Ej7f/28/0QAoADZAfMBVgBh//n+Rf57/oT/sQAIAggCAQEDAUkBGQAp/o79JP9HAZUC4AIOAhEBAgBu/iP+dP9nAMAB5AKpAWP/YP7H/l3/cP+//5AAnAD4/xv/R/7K/tz/Hf/7/br+iwDcAGX/yv4mAIsAPf9t/xwBGQFs/6f+fP9ZAMD/9v74//EBGwObAqoAwv67/WP+3gB+Ar0C6wK3AWz/3v4l/yz/ov/l/wIAQwD3AMsBxQAC//L+qP6A/R7+NwDhAZMB1f8K/77+7P3Y/Vn+ef/5APEA9f+f/2r/OP9e/w8ApQDq//3+7/+OAaABnwDOAA4CZgGm/kT9tv61ADIBbwFuAmACfgFmAIj+av0l/pb/MAFQAq4CFQJxAGf/Jf+i/ST8J/3g/0cBOgHeAZsB7v5R/WL9r/3B/mAAYgEnATUAwAAqAYL/M/4S/nT+/P/yAIcA4gBbAtECcwDf/X3+of8O/wX/UgHiA3YDLwFPABkAKv9T/tn9wP58AFcBGQKNAoUBBgAg/m78SP2o/9AAbAFAArABQ/9w/dL9NP6K/dL98v+rAdwBCwHC/4b+HP5V/ln/GAAYAGwA/QDyAFEB6gE0AW3/Ev4d/nj/KAEsArgBmAC2AE0BlQAUAIAAQwAp/8T+dQAZAw8D3QD+/5b/vP1o/En9qf91AYEBPAHTAJH/AP6t/Mf8uv5dAIIBHQI0AREALP/J/Ub9qv1W/lkAwgKfA8MBXv+y/yUADP6v/YwAtwI+AiIBNAFcAbAAEgD6/4gAyQAn/xj+9P8cAqIBVQAtAc8BO/+h/DX98v7e/1MAjAGEAjMBqf7s/JL8l/1l/vL+XQCAAfwBgAFh/9H9ff1b/Zv+2gA6Au0ClwI2Adf/gv6S/ej9z/8hAh4D0AKEAfL/vf9yADUAg//L//IAQQFHABQA9AD5AHUABADO/6j/qf6t/cf+lwCeAd8BngB+/k79J/2w/Ub+kP5p/1ABbAOCA1wADP1w/B39t/3h/mMB/wOsA0QB7v8Y/7H9y/y+/Q4BAgTBA1wC0AFMAbr/Xf77/hIAdf8l/7wAawJWAmkBuADM/53+/v15/ST+LgC3AYMCUQJfAOz9gPx2/ej/9/+b/tb+/v/cAJQAqf9F/wD+u/wc/iUBBgPHAaT/bgAiAaf/4f47/wsACgF5Ab0BIQFxAPEAZwDY/zoBNwGZ/wX/wf98AdIC0gLYAWn/mv1w/vL+Vf4y/woBvAFqAYIAvv5u/YT9GP3c/Az/cAF8AY0AOwGfAU3+I/vU/OX+4P5qAFED6gOCARz/af79/W/+KQDtAGMBHgPBAxkCiACVAP//Dv6J/r8AxwCXAMIBdwLeAvYBxv6M/A39o/6w/5kABQI9AmYAIf90/u78IP3e/q3+MP4jALoByAAHAEgAIP8g/Sb98v0X/kwA1wNABMsB6P8Z/zL+7f2j/7kBFQLjARUCAQIpAk8BXv7t/G7+uf8sAP8BZAR+BEQC7v/W/Qb8Kfxs/sAAugIvA7MA9P1U/hL/0v2I/S7/ov/Y/p//1ABkAOv/1P8g/zv/HP8x/SP9/v/xAfkCqwMiAtz+vPzA/eD/GQA6AL8B8AKQA1MDOwEs/yr+lf0o/mEA6wI7BBED6gDs/1j/o/02/Jb9mABQAhgCbQFSAEz+V/3+/jcAmv6+/HP98f+6AdMBEgHA/9r9' $Extract_Sound_Open &= 'Q/29/cD9if4RAMsAfwJpBF4Cf/5y/ev9Nf7y/7wCWAPcAZcBSgIhAfL+LP7j/Wb+LQEPBP8DjAJtAdn/Lf7B/Xj+7//FADoAEAAPAdQABf/t/cX+Xf8Z/q/8Uf2N//0AugDlAOwBWgAm/KH6J/1v/8YAIQMcBNQCuAEq/4f72Pu3/rwA1gI4BOUDSwIxABcA9gBs//H96/5ZAMcBRwO0AzcDVgGq/Wn7bf2MAM4Axv9IAEIBFAEeAOT+dv2y/Er9yf01/j4A4AGJAZEB9gC2/fb6D/sD/fz/8gJoBN0DuQFq/979HP2V/cz/EALvAm8DHwOcAP7+PwBtAOr+nv+TAToBXACSAQoDcQLCAOv++P3A/un+E/43/0oBxAH6ABQA5P/3/nL8PPtr/O39EwDmAgwEUwKY/4T9m/v++nf9qACAAqkDUQPzAFL+ZP1v/qP/jwAJAi8CpwB4AFoBnQHwAesBTgCL/gj/IAAQAIoB0AOGAhcAw/9n/m78G/5VAbUB4gDRANT/k/4C/wP/8f0U/nj+EP0//SQBawOJAVQAg/8X/KP6Yf2s/0sBTwO7A8kBHf+j/cn9aP7M//4BCwPoAecArQH+AbMABQCX/3D+zv6QAEkCsAN6Aw4ClwC4/oX9Dv4K/9X/zwAlAhcCif+//eH9vP3w/Xn+4f2J/tAAHAEWAEgAFgAU/rT8vv26/ykAdf84APMBmgEHALP/3v8e/yb+sf6jAMQB+AIPBccE1AEi/+v8QfxV/mUBAQSTBcIEvAFG/lf8mvwQ/vL/fgKiA9MASf24/dT/2f9t/0T/yv2G/OD8/v3a/+IBRwJZAU0Aov0H+tL6hP88AuwCwwOHAnn/Cf4M/q39If7PAC8DWgOWAykESwKQ/1r+o/3I/bH/RALKA2cDWwLtAUYAnP0A/QT+hf9PAVwBFAEZAlIA9PyJ/Zn+5/zx/JP+Dv9JAOsB3QHrAFn/2/we+6D7Kf55AGICpwSyA97+7/wL/4X/Ov8yAWQCEAFfAKABxQIoAuoAtwDU/0z9cv22AFEDdwRFBF4CPgDv/Qf8Gv2O/3kA9wAAApUCeAGH/jL8dfzz/bf+of6l/tD+jP+vAXsCk/+4/PX80v06/gAAOgIvAs7/kv5TAFsBeP9X/sn/owEhAgcBswB6AvsCSgKuAVb+RPuG/ScB+gNSBjAEHABE/x7+iPzS/U//aAB6A18EugBR/Rj8IPye/kUBFACJ/Z39Yf9wALkAIQEoAMj8/vq3/Ob+5AChAl4DbAPCACT8Jfxa/3f/Zf/RAmIFhAP9/9n+XQCZASUBdAB4ALkAPQAoAO0B1wIKAcwABQIb/1H7cvwd/5QBUgRwA+D/dv5e/Wv7APz1/cX+fACAAncBp/8z/379Qvzp/an+qP4XAW4CXgAa/5IA8gFbAWYAUf82/Uz9OgEjBGgE/wSNBHgAqvu++kL9FABpAr0EUwYHBdv/Qvt1+1/93f4NArUEawNDAMj9jPyA/UT/6f+DACkAhfz1+X/8mwB9Ay4FCwP+/KT4ovl0/ZEA7ALTBH0EwQGo/sH8BfwT/Y8AegRQBSYDHgHIAEwAn/4Q/xcBsgAYAG0BogEJAUkB/AA7AX8BnP5b+1v9ygG8AhECKwJ9/zj7nfvj/uP/2P6P/Sr+mgHvAq//fv1R/oD96fxBANEBZP9L/+AAnwBYATYCcAAw/1b/vP44/0cBRAJrAukCrwINATn+6Pxe//4BWwL1AgYD3ACL/67/y/5N/ef9EgHnAo4BbwCj/wb+Cv/aAPv+Pfxf+7j7p/67AsMDawJhAJD8Svlg+0sAvgLMAhoCPAAW/gv+pgDxAeP/mf4DAIMBnwKqAsoAOgAMApcCGQAu/en8j/97AyAGxwRFAYT/iv4t/Gn7X/5wAtgENwSBAC38MPr8+9wAwgOZAOL7ivsv/sD/KQAiARgBhf65/A7+Mv/P/pj/dQLtAw0CZADL/5v9w/wJ/58ATgKhBPICGv/U/kYB3AKQAhMB' $Extract_Sound_Open &= 'zP9O/xn/a/+8AbcERASRAFf9vvtZ/A3/nAHQAmACRQCn/rH+w/1h+xX8uP/ZAIYAmAGEAIv9y/wN/WX91/95AjUCeP+j/VP/NgJpAkEBcwBy/oH9VAA0A3oD5AJOAab/Qf91/sL+GQGFAXkBsAPpA4EBUACk/i/8g/0gAfwBZAE+AbD+IvwF/ksAYgBCAd8A8vxO+v77qP/3AkgE2wGZ/eD6HfrD+08AgwM9BKcEuAGS/Iz8+/6l/nj/TgLtAmECUwJDAYD/Mf8sAQcD/ADg/ZX+8ADpAm8FigTB/zf9+/wc/c/+7ACmAosD9QA+/fr8RP6j/mz/WgD0/t/7uvus/8UCSgKLAIH/4f1y+yr7Q/4EAh8DFQJeArYCw/53+4H9of+UAJQD/z8yBV8Cj/43/tsAQgKuAJ7+0f6FAf0CwQJ5BLUEkQD9/eX95fxE/a/+i/+0AeQCPQFvAIYAIP5F+3L7oP3X/j//bwH8AvD/nfzb/M/8mf24AQAD+v/l/pwATQIYAuv+sfyD/aX+rwBAA0cDEQPgA6AB5P5v/2L/2/1q/zgCrAKKAu4CJwJvAEb/i/86AET/6f2X/pj/if8ZAEwBdAFM/yj8ZPv5/Nn+7AEtBFsBk/3V/N37hPtJ/ksAgwCEATkCNgJtAeP/hADWAF79zPw6AMEAOQHgA+sC0wGGA2oB8v2c/kP/2v9oAlkDYQOwAiL/Ev3f/aL9kv54AcUCpwK/ABb+pf0g/cn7RP0pAAMCUQLu/0/+sv+x/yv+T/4b/hX9Xf33/eT+0AFxBHoEgwKI/g77kvwkAdQD/wO3AQj/IgAjAUD/cAA7A3sBS//0/40AqwEsA2EDAwL2/Wj63Psd/2cBSQMOA7sB6gCA/lv7+PpO/WMA4QGUAPH9lP1DAM8BJADw/fT8gf2J/mD+8/7eARIE7AKr/wL+G/57/Vz/5AMkBPMBXgJDASv/uP9y/4/+oQACAjwBWAKVA8sBkgCz/yn9V/0nAJkARgCTAD4A1ADxADT/qP6n/lL92fzV/Rb/rf/g/1UBsgL0/1b7i/r1/Bz/AQI+BGoC8P9x/6X+4f5l/6f+QwCVAosBkwCtAbEDsQSzAdL9vvwU/f7/GwRZBGgCDQHd/4r+ivze/CQBUANmAZD/j/5o/roAyALLANf8xPvE/Ln9lf91ASwCnQJGACX7xfm0/F//4AFTA5MBkP8m/8n+mP9RAf8AwP9v/9n/CQETAsYCxgMZA68AX/4q/Jj8sQAOBOwEvQNPAEH9JP1c/sT/AQGiAcYBlwD9/dL9VABWARYBNgC9/JP6V/x8/qQBlQS9Au7/g/2H+Qv68v5KAW4CMAMhAV//Tv83/zb/if8TAc0CvAFJ//H/zwJJAw0CjwHo/kH8n/4bATQBmAIbA6MB1/+R/YH9D/8n/64AfwLhAHL/pf/j/+kAPgCr/SH9z/3y/hkBXQDb/bj/7QGR/j38d/7p/hb+EwCUARgBcgFmAgEBnP3f/PL/fgIKAzUCrgAAAakBjwD4/g/+wv9GArIAE/8IAY0CZwOgAmj+OPyC/Pr82wDwA/UB2QBQASv/DP3n/Y3/WACYADT/b/zA/Nb/GAGvAaEB2f2x+gj9igA2Ac0BUQPyAUb/Zv8B/sH7nQDGBTkDngBaADf/nwArAkYA+f+HAJT+h/9IAT7/jQBQBUQDFP4+/YL85vvw/+gDVgNqAXIAyv9C/iT91P/eAu0A7f3S/Af7WfuI/+oCPgMQAVn+0f0m/er8gwHUBfkEFQL7/Af5DfzNALgDIAZMBNn/9f7t/0r/Mf7N/9cC/QDK/a8AhQOdAVwAEgDy/jv+nP2h/qoAgQBBARAELAK//ff+UwGU/mr8eP41AL3/bf7q/bj+uv45/pb/RQHRAZIAc/6q/6cCMgJAAMb/x/5Y/QL+DQGhAlQCwAP1A+///vza/fL/QgH6/zn/8wCjACb/CAG7AnABdAAC/yf8E/1QAc4BsgDYAaYBQQC2/8T+Cf+c/k/8' $Extract_Sound_Open &= '8P3OALr/qv/6/1n9u/x9/7QCMAMv/0r9lAD8Ac4ARwGKAYEATQBJAHn+3f00AZ4DDALQ/+f9bf20/2sC8QOBArz+Av5s/7b++v7CACUBmwHEAdT/A/4F//kBfAL7/2P/gv8W/Yz8nP4Q/8oA8wO4AEz6DvuP/88AKQKnAzYARvy4/gIDfwK1AGMBQQAs/eT9PwBPAdADDwQm/9n8Mf6U/n0BMQURAin9Bv2j/3QCwgF2/o7/AwEa/uv9cwHCA7kElwGb/JL8QP7C//EBR/+e+yv+TgDT/qP/KAESAL7+Kf9CAJT/N/59APsDTAP3AGH/dPyf/O4B2wKz/jn/LwNQBBACM/66/Jr+YgBiAhIDov+j/YL/9v+K/kf/jQFyAZX/o/9HAH0AQgO1BCQAnftr/Nr+2v+lAEEBIP8H/JX8i//iAFQC4ANzAOb61/u//4sAOwJjBAMCkf5f/UL+gQA8AdEBogM0Apv+K/2r/Zn/3QH6AxgE3v4K/Ir/U//g/c4ALAF/AVIDhf6d+kv/sANiBOICB/+f/VP/9/4//fb9ngBoAWP/WP26/WUAYgF5/5P/rgBC/8D+5P7L/qYCCwVrAfn+yP3o+1b/zQQnBeYDOQHa+2360P12ANoBnQKCAhIB1P2R/JX+zgDYA/UEvv8c+3D7fP1NA18ImwPl/Ar97v3f/FX+7QHPAicALP5W/mL9hf2eASUEowHh/lX+Xv7J/nsAUwK6AT3/+f5fAC0A2P88AOoA+wKrAgv+YPxs/8cA7f8p/4D/+gHSA4UB/f1T/XX+n/+MAfUB9P/OAFICRv42++z9NgCgAUIDYwEO/qL9YwDIAwADdf5H+9b6pvz0/0EC1QPSBKUC/vyp+MD7cwMVBmMDHAAX/Mn6CQBGBGcDPAMgAw//tfrc+fr8YwIWBdsEtgL9+2D4Ev68ApIDcQVeAsH8OP0M/6T/QQHnACMAdAGbALH8m/qy/X0DBAaJAs777Pgd/cwBBQI8AUoCpANpAZv7L/lT/SgDlwVsBLMA7fvX/EgDggPp/zQBSgDq/FD92vzm/ZcCTQPuAeD/S/z6/tUCBgEEAjYC7/1m/z8Cpv/K/pH/6v88Af7+tvs1/ZH/pgEiAzQABP01/qoAEwFz/lT9NAJ6BVwCFf50+8X8jQGEAzIC5f+F/dD/bwMlAYf9jf1PAbIFUQEF+VP7RQFSAZcCxAO1/pH7fP9SApr/u/56A84Ehf/T/H/9H/zY/rcFYAXT/jL8Lf02/rr/GQJmA70Bh/4U+5X5RP59BOkESgQ/Akf7MvpM/2sAcAO5B+MCIfz++oD8CAAdApgBrQK3AQD9l/rD/GoCsAVrA5sAPf3++Ur9cwHFAZEDygPL/8f9bP6U/iT/7gENBekChPwK+q78UAArAr8BswCt/9n9OPwj/dUAIAOjAhwCzf9E/YP/ewKuAgYCt/98/mj/i/1/+z3+YAMaBqoCwvsx+sP+WQJiApEBIwBC/oL/EgI2ADj+5gCRA4EBjv2p/c7/zP4L/wACCQEV/5MANAA9/Sf9hQCWA2ACxfzf+db9wwFyAnEEeARl//77vP0CASUCQQHDAQEBNv1r/Qb/1v1lAdMF9P/m+KH8EwTfA0AAhABkABL+Pf9JAVn/tv3/APkD+/8i/GT+FgByAasEXALT/K78uP5j/hj+AACBAVoAIgB7AEH+Qf43AuMDJQGQ/Vb9//9DASYByAAPAI4BDgMeAOL8XP3J/uUAagIG/5P7hf4UAvoBkQC6/zYBNwEl/Zn8NgCbA1cGIAMo/Fn73v1nAGoD9wHV/X/8tP73AScB1//QAV3/Kfz8/loA3f7E/1wD+wQP/sP5AQImBXH/F/5z/NH91wZ7BXX7avtvAEwCpQHY/tz+qwAE/yb+tf80AkQEEv+t+A38nABsAlgGJAUq/+v86/uv/R4EcgWLAHr8W/p7+5sAAAVwBXEC3/zj+BP7GwBsAywGagR2/JL4x/wSAwMG7wONAED9RfoA/jkD' $Extract_Sound_Open &= 'egIbAxAD4fvy+Nj+bgM5Apr/GwBTAP/99/5eAJr+oQB5BBUDEwA///z+bf3Y/IwAbAM2AisBSv6o+rD+BAUNBB//1vtw+0X9MwAGBB4FkQIJAQT/tvtt/fkCCwU9AQ77zflY/XIAFAVEB9IBu/3x/QT8a/vf/5sFowYZALT5E/qW/vIDGAWMAfr+GfwR+wYBswUzBBgCE/9e+8f73f/qAjMDigKA/2/5D/oRAtIERgGa/wYA5f+I/4QAsgGfANX+gv23/QwBlgE//8oB1gOSAPb/gf+r/Lz9K/6v/bUC6QLx/SoAxAAL/bcAXAT3AWAAWP5C/cL/PQF0AroCsv76/Fn+4/1XAOsFLgVn/cr4BfyNAJMCgwMmAmn/u/3q+/H8gwPyCE0Giv2L9/D5+v+mAyYE+QG2/uP8Z/0EAesDUwFU/tH+Af3++4QBGAXdAgUAIP0d/TIB5AER/6b/kgJrAej87fwaAbECugIcAI/7rf7gA+T/m/s//qQBSgM1A+z/QfxI/ZsBkALT/6j9M/26/koA9AH+BVYG2/8Y+mv5gv7tBLwEUgCj/OT5+frn/9UEQwc6BFb9APjH+FQBnwiwBSb/Xvwj/dL/6QFOBJ0FAgD7+fb6y/y2/8QFKQWS/4n9kvsu/FMCYwQjArUASv2x/O8ATAITAsMBfv9BAJkBWf3d+yMA4f8Q/bgA3gMiAaAAAwLn/r/8SQBmAyz/s/mp/SkC6v8rA8wGBQC8/ML9nfq1/cUEnwNSAP3+Bf3P/SkCeAU3BLn/gfwQ/Mz9bABoAnMCqv/Q/aX/av/I/SMA2ALoAef+w/yE/h0BrgIkBRQD5vy8/Hj+Xfxn/sACEALt/y/+nv3h/7kAaQINBdD/dPpG/lABTAHjAR4Alf/fAIYALQGlAEb+tv/BANj9lPz3/jwCCQK0/8cAkgLaAJ7+7f09/m7/CgK9A4MAjPxn/fwAtAO2AnX/Mv7z/Db8jP7zAMUCLgN9ANz+r/2Y+3r/IAV+A3oAZgDk/TL8pgECBq8CX/52+4T6lv6fARgCXwTVATr7Lfs0AIgEnwVuARX9UPwK/Qn+MwAmBA0FjP+3+jL82QBFBJ0EGwJw/Zn6aPyq/t8BMAYhA7v8XPyO/qEB3ARLAn791/wO/gT+uv2g/wkD8gOEAWv+Iv56AWsDjgCG/Vn/tAHs/3P+z/6K/ur/HwLLAWsAUP+j/i7++/5jA/0Er/96/Jn9Mf7m/qoAyQLVAi3/0fxH/kABRAMaAgsASv6T+yX9BwLdA3UDFwBR/Av+7f/3/mAA5QHHAJv/2f6p/xcCcQLh/2z+I/9j/oH9Af/iAGkCqQGm/pz/2wFFANz+Gv7N/RoADQHR/z0AwgKzBYUD3v1Q/OP74fqR/YcA1gKxBLIBI/7Q/UP/+AMoBQn+tPnA++b9pQB4AyMEbAO2/lr5cf0cBjMG9v8g/NL67fsdAXgFVgUbArv8wvls/a4CswTxApD9x/ra/VYAMgLoBF0Ci/30/PX8if78A/EFBQKN/BH6N/9QBeoCNv8n/1v8PPo7/nECXgMFBK8Ct/1i+5EAhQWSAUL6aflY/eMAIgR3BaQCegBFAMP9rvwcAPMBEQCi/RX9vf/dAnsD+QAw/fD+nwIQ/wX9WQAi/87+ugKtAVQADwJq/3b8hf5RAMH/IP8qAB0CMQLNALwAcwAb/T77Sv6PAMgAwwGyAJf/vQELAxUC2P/m/WD+zP0v/nACewLQ/k/+e/6Q/xkD2wRcAWT7NPuB/6QAzgJ1BHAAWv8QAIX9xP+8Ajj/9/sb/FIABga1BOr+zvxG/mIB9QJHAKP88vxw////ygB7Aw4DHP/9+3P7Fv+qBLwFPQGe/En8/z+u//ICTQI5AAUAqvxE+Rz//wQEBAUDUf8Q+6f+/gH2Ab0C3v/6++X8m/8eAncCsP8B/sn/XQMBA/395fylAJQBhf5//v8BeACK/Jv9GP9VAY8E2gFz/iv9S/ujAGsGPQJL/oD9jPyl/8wD' $Extract_Sound_Open &= '3ASRAp39QPvH/HYBSQZ7As36P/v7/6UCAQQGA+n+jvxq/sP/LQHSBIQD+/0c+w76Fv53BVoG4AHk/Hz6Af0YALEDUAajAlX+8PuS+uX/kAQyAhv+oPmv++UDxAMmAbAD9wER/n39f/20/2oDgQPc/qn69f2uAu0A7v+BAtgBGv+7/Tr9Fv+rAsUClP+Y/fD9sQCSA6wCz//x/UD+1v8k/5X/CgJH/5D8av+mABYBMQEY/rn+RgFmAIYB9wFc/y7/fv+m/vL/7wFbAr8ABP5X+xz8GQPeBj0B1/zi/Y3/wgBKAAkA2QDy/37/nf+0/woCaQMiAuv/9fz5/Iz/FQDS/1r/JP9kAJwBfgJHAKP9TgFwAzAAZf4//Ff9GgIM/wD+HQW0Ayb+ff5O/aT9VgJkAjz/Wf/DAFT/nvyb/nMDhQQTAYf8WvxiAcQDsQENAE//Qf2H+nT8lAQZCWsDN/qV9w7+GwY/B0sDW/9j+0f5S/5/Bm8H1ABl+dn2ZfyXA2MEzQKaAVX9BvoI/bUDGwjMA2X5C/fm/iYGAQm+BAj7sfm3/u3+TAE2BFv+Dfsd/rYAWgXNBYr/+/05/wf/eAChAAcBjQEl/mX9oACJAocC5/4N/C3+sgC5AjAAgvm//KAEDgRxAaz/LP50AOkBvQCbAHcAif/J/cL98P/ZACsCOAHU+oH6nAGuBI0DlQD7/MD8RP9CA7wFSwIP/Un6kvuJAqkG4wGl/X3+4P7K/xgDDgKo/EH7Y/0EAFcDVgM6ABT/bf63/rgBtAPoAS7+r/wR/oL/nwGnAtj/yvsH+y4BLwZ7AGf9nwEpAF7/ZgLc/z//RQDm+wP9CgNjAwIBDv9x/vf/9P+JAKUCPwDc+yn8+P9VBA4GrQBN+p79YQO5AUH/+v7Q/bH/0QI/AXv+nv8IAXv9nPue/0cBZgE+A2kBygDyAVH++f49A1H+W/mN/ccBHQLIAQMBJgArAC3+YPpu/QcEjgNuAdz/FfyN/s4D8gLxAMr+/fxW/xsB4AH3AjcA6/su+zkAWgfIBRn9qPj3+Tv+xANYBmAD2/1G+hf6aAAyCScGkPvl97v6BgQNCyECyvky+336oP8XCZIFwP4p/fz5GfzWBC4HkwEy/Ar7n/1lASkEdAVYA0n7evYZ/q4HcQhPAir5EPdj/44E+QI3Aa7+5fzM/gkB4QHBAKn91Pyw/9YCLQTmAUL9/PuK/ocARwG2AVQCAgGp+337vgMNBbv/2f2j+zv+XAejBGX7Uv19/6f7Qf6GA3oBSP9eAUkClwIJAmf99/tV/woAkQA3AeP/6wDE/+D72P04AkAF/wLX+Zf5KwGCAfIAUP+n/DwDfARz/ZT/9gBL/iEBowCrABoENP25+NoBxAY4AVH7WfvK/gb/aP8cA3gFiATo/Uj3vP3+B3MFXv1e+/f82f1eAUkFBAI6/h0Atf/M/isCxwHt/YH8u/te/o4CygCe/4ADmQLk/vP/eADH/0EBAwD7/d//lQCO/20AZgB7/un9Rf/L/4v/UwJZBM7/qPo3+/L/hwRIBJsBvf8H/G/7LQEvBOsBbv9I/rP+aADfAgkEJQDC+jP65PwsAE0E7QUDAVH7dPydAIsDkQRFAOv5Fvkl/jkEhgWBAoD+4vhd+ycH+AfU/oz7wvtS/ooClwKKAkoCZv3c+Zf82gRjCEj/EfgN+wcAHgbiBvH+U/xl/pr8Dv83BvYG5ABa++761f5YAn8BC/8h/5H+xftF/S4EHwg7AS33PfmYATkE3wUbBbr+VfwT/kT+mgCnAlz/OPzK/yMFIQKT+wj+4AJ1/wL8lP9UA7sDywHy++z4cf/fBCQE3wMOAWT8vfzh/ej/YQSxAWb7qfw6AS4DQALF/mb87fyW/SP+FAKtBpsDQfws+6z+SAFgAikBa////50CgQQIAgb9NPo8+1YAbQQ7BNUCTv4y+ZX8owNsBtYD3/t192z7xf5DA3UJ3AM5+mT8xgCvAisGgAAR+S//HQGu+3QC' $Extract_Sound_Open &= '4QXC+nr5uAJjBI4CYQBx++T87AP4AMj6ugF5Bjb/Xf6jARoA7gJsAsP68PsbAdkCxQReADr6Ff2uABP/Xv1V/1gBzP+eAckD//71/cQBxgI7A8b9KvlOASAEdf9jAl4B9Pv7/SP/7gDqBAP/yPiH/X4B2wDxAaIDuwEv/Kr6+QC1BQ4DRf5A+xP+oAXIBHz9Bf70/k/6Df5kBRUEXgH3/nf7CP5GAcH/ev/k/9T/EwF9AXMDagQ8/ZL4/P2pAj8EIAS//sb8mQDq/1kAcwTY/wT5Nfx4AR4DPgL4/UT7jP6YA7YE9AAa/hX/lf61/JX/GQX1BagBSfxt+sT/pAT1AEf++P7a/GsAswW3AJ79yv2P+gQAdgYUAlEA0P4F+1UCFwhJAKf7xf7oAF0AyP91AScCwf6E+t/7QwQFBsT9PPv4/DX+FwQeBAz/GQAL/dT6hgSFBgb+QPzm/WYBOAjlBc78wPuI/nb9Av/EAf7/1wATAXP6Kv0iB5YEJP6t/Er73/50A+oB6gFiAm7/G/63/zkE1QVz/Jz0JfsyBe0GwAJn/l78Hv32/64CgwLU//n8sPtt/pcDZQRqAVYAyv8LAOwBswHXAGv/C/zn/SwCXwHK/8/8Vfu1AQADyv0yAOYCLQAEALL/Sf9/AgQCbP1l/XD/av7c/+AEKAX9AIf8Fvq//48GPgLo/Fv/fP+g+6L7+f9IBHIF+ADe+rv8zwKZAnwCWwMi/Kb3y/4nBboFfwOt+xD1/fwbCaQGbgEEAlP64PVdAX4HzgIp/Kj07vjyBo8MzwnNAAD3afiF/dIBhQr/CZ36RPEO+coGag20BhX2I/A8/ogIwgURBdABmvjZ9j/9RQZsC7IDifjO9pz9qwfsCVMAsPiV+Yn+awT4BjEDsvrY9AH74wZaCscExPtA9i/8lgXaBlYFHgGL+Bj6kQJYAacA5QNJ/LD3TgEABr8EJgTY/LL5hv/c/1ECZAak+6f0Yf6hBGsFogOl+zf8qANyANj8EQEDAdT9PwE9Bd4Adf2PAQABUPzQ/pQBJgCU/6D+zQDCBOr/xPkE/UIBlgCo/3EBdwJd/q37CgIeCX0G2/wQ9kn5zAJlB/YDTf4H+hX6UAHsB7oD0PuL+kH86P9qBXwEjQEdATr6QPhMA6AGJwPqA8z9qPjxADMHygQo/yn4B/d3/TEFZQiVAtf5cffe/PcFxggQAkz6pPjf/iAFoAb+BlAB5Pj8+cD+9wJGB7MCq/lC92v7xgPoBxYDyfxD+Wf70wODCbIFU/xE91L5f/+FCaQKYP189/j8ZQE7BycHmvvm9tL7T/+rBBAJCAFW9jD44P6rA0sJywTm9rH2IANoCNcEFwHJ/mf8Qv1cAV8DyQN+/7D3MPx4BsUEhQCW/uD6vPv2/SkA5QaHBHf5gfrRAoUEAARIAbX7ev6/A0T/7f0KA3H/RvvLAEUEhgK3/4783f2rABz+V/xo/+AB6wM2BXj/kvpPAHoDev/I/qb+MAEWBfP9Fvw/Bh0C6/hB/Y3/1AD5BYwAd/kC/Q3/+P8kBsoEn/tR+rL92v+kBrQIhP6J90b70gL9BxYFnP0o+yX+hv+T/3kDTwIY+b76qQIwAD4CtwjXAKP3N/nf/V4FfQliAlP7kvvw/VUCXAelAvr2QffWAjgI7wUtAbf66vhX+8f95wSPCA3+Pvfo/0gHKgZvAH757vsAA5oBOQGsA7v+7PsU/z//tADiAzkAy/pV/BYC0wRBAHj6xv68BRoAw/krAO8EYgGU/b38twJnB5AAufua/24AtP1S/oYCVQI1/BL8/QEhBMQBhPwk+3oAKQI/AQEBJP0x/UUCEgNxA9MD5f5Z+1z+pwFtALH9V/xw/SQC5QSYAscAff1w+bP9QgPEAU0APQDA/Uv+DwQ3Buz/gPq2/HoBvAMmAtb+df0X/3wBsf9p/W4BiQLH/an+wADC/64CpQLz/HX8Bf84ALMD2gMl/tX7gfxJ/+sHvweg+sz3F/8DA+cG' $Extract_Sound_Open &= '9QLk+Iz7gAAl/lMC1AU6/yb7I/7EAjcFSwED+zD96AMEAub9EQFNAvn+TfyS/J4DnwW0/OT7xQH1AAYAI/9p/pQCzAB/+rv9ywPYAuX/DP+Q/qD/lAKpAi4BhwAv/DP7tAKkBYcBiv2G+9X+qwN5Ar790vl8/NYECgfDAcz8I/tG/nMCwQHc/rj+6ADAAn4DSgF//Dv8cwG0AzcAePtl+3oB8QX5AVT75/oeAF8EPgTw/8P7bfxnAMUDpQJy/en8xgAgAz8FHwLv+lv8RQL2AtL/gfv4/FcCygCx/bn/OgLOAjoAdv4WACz+a/rs/fQFRwfB/5D7pACQBNoAJPya/Qb/m/v3/QUFUwZNBLb8YPbF/8EGnAAC/3T+XPoJ/lcFGQjjAv73SvfnATEHAwWcAGz8hvyR/3gBZQOJAl36BvaUADMK5AQc/Lb5pPtmAMUE4QS6AdD9jPu1/kkF5QU5/9j5VPqWAJcGGgQW/jn9GwCPAf/+B/7YAMP+rfrt/VcDygTpArX/LP8zAHr+4f3JAvwEKP7r+Gn97QQNBi/+Z/ku/zIDzwOMBDT/T/uT/MT8iAFQA/H8fP64AU0AewQoAmD6Tv9PAx7/YwF+BCABgv6o/Aj8zQDGAv39bf3u/2H+gAB3BBwCp/5L+8r8dQfCB9v62PeC/rwDWgZIA+r9ZvxX/F/+qwMrBMf94Pv/AEEDrAGY/+f8DP1Q/iP+uwKNBkMCA/9h/oz7ff7nBCICzv0w/0T+9P8GBksCkfsf/Rf+Y/9NA9cBAP9h/pz9w/83AXL/IgDPAbkAsv4dAKADmAIAAC3/3/zN/SoC5AJGAFX73PrBAo4FpwBs/n/+Ev+lAScDiwA3/IP7Tv5yAqEF6AEq/cH+zP8aASwDKwA8/ub8rfozAscIIAP7/jb9bvo1//kD+P9I/I388P46BZAI7QE5+f73J//UCCoI6vw2+SH+vQAOBDsFI/3q9uj77gN+BlUBPvrB/MoEAAQw/wb/6/0A/fz/6wG9Ak0CZv8l/+H/xP/VAGD/Z/1A/0cAcgAzApACqP/B/Pb9Af/8/vMCEgIz/BAAJQVXAbf+JP3u+psAMgdRAir7IP5LAh4B6gGnAAz8Zv0aABYCKQW3/3P53f0bAjoC3wDF/UP/aQHz/0ADWQR0+yP4QQE9BxQDNP5v/fv9Vf9bAIT/ef+e/wv/rwA6A3oCxP5Y/Lz+KgN+AmT9gvx3AOkB/QDRAJkAXgDB/r/8YP9CA9kBHf9wAT8Dv/we+Fb/8QWVAsL8cvvJAQkH3gGi/ML9R/2D/aAD6waOAKf4u/n6AhEJXgNK+9b7/z9P/a7/wAe9BQT72vhW+zgCLArKAcj3LfwKABYDFgePAEr53/t3AcgGqQa8/l36E/yT/QEB7ASUAZD8L/0SABcDFgM9/qz98f8f/lH/hwMRBF8BHvv/+c8CMgUO/5L8rvxJ/8YENQfSA3z6vPXV/gUHEgQ9/tj6vP2GBHAFGQKM/cn3XvnVAvAHVQRq/fL6bv/dA6IDWgFl/tX8Fv8dAej/b/8q/5X8zv2+BCkGMf/A+xX/sABP/2T/ewEXArr9l/tpA50HNP/0+SH+HAJxAcr9PP6uAuQAy/2AASgDLf9X/c3/vAFe/3r8Ff+QBOgDlvwe+8kA0QFHADwBzADS/kz8jv8jCNgDufg1+iwARQRfBFj8N/z8Arj/d/6sAsv/Bv7pAB4CTALL/uP78wD4A2X/V/wP/mgAIgFsAPb/dQDWAPMAVQB1/S39pAFrAp//PQCHANj+SQDCAcL+oPtd/iAEZAQi/zb82f63ARcBJAEuAXz88vpzAt8G9gDn+vv8SAF7AesAywCA/sv9dAE9BC4BavwN/W0AgAARABcChAFD/Rf9sAAXAawASQAg/oX/xwDd//QCewJo/WH++v/y/9wBlP9d/UP/7v8+AhMEIf99+wT/JQJyAGAAPQIk/2H9nAAdAZAALv/m/K7/gAAd/xMDiALq/UP+mv72AI8E' $Extract_Sound_Open &= 'UACk/JD+Ev8PAq4Fy//b+F78CwJeBLMEbv71+EP+BwRxBDgBTvqL+uUCbQbxAmb8GvvPAHICtgGuAdT8wPrpAJEGJAMN+pP5ywBnBKAEgP9l+2YAdAJcAOT/6/xE/mMB6P8CAoIBI/3X/2IBmgCUAZz9R/1mAwgDGQBz/6L8RPwEAiUFEgAX+1n9LAP+BAT/fPu+AFkCtf9zAJP/Uf4S/0kAzgNTAsj7PvvE/r0C1gQTAYz9Jv2E/6AE6gMK/ob7bvw5AXQEZgBT/ID8FwBvBGcE2QHQ/QH6bP4SBWMDH/5r+5791APdBQIA0PnH+5MD8gSi/kb8y/6v/04C6QSz/9r56f1NBosFKvvF+c4CPANL/zv/RfwU/aYDeQYpBGX7wPaxAMcH3QI8+1D5+gG+B0QCDP3q+ZX7jQTGB9sB4vmH+KkB+AYbA3f9a/lY/6AHVgOm/Kr6qPycA44E0f6R/dv+oP/8ARAENQKA/Zr8Uf86ASQA//yq/2QDqgDsADYBrv2GAOQAwPsN/nQBdgAuAbUDAAM1/GT7OAOgAun9Dv7s/awAiQPuAa0ACv2J+l//yAU/BygAnvn0+y7/IwK/BF8Af/pw+YUAaAmUBUb9hvqX+wkEMwdF/pD6Pv1AAQgGLAQQ/nj5GPuCBGYHmP9w+Yz7ZQNiBdwAMv/w/Dz9qQKOA7H/w/oV/BwGFAfn/vr7//sN/pcBSQKNAdj/AgFWAfX8Yv5AAZ7/TgF/AA79Ef7v/+sDQAQR/i39Pv9vAaQC+f3s/ggDef5u/a4ACgB0/y0AigJYAdn92ABRAJ38hv9KALkAlgKN/+r+tf4Q/wkFHQNI/ZP9/PtC/kUDRQFrAL4Anf+zAagA9/zi/YoBJAN5/zD9kQDLADL+Ef87AQYC4gHmALL9Mfw2AKEC7AAy//r+tQDv/73/6QIp//D74gC/AVEBEgF8/B/+/QAZ/8cCXgP9+xr8UQTCBQH9/PnXAC8DSQGE/9T8nP4ZAmUCzf/M+yD+FQMlAu3/Av5P/0oDwAFHAGz+KPod/gIEkQSKAqL8Hv0iAvH/4P2g/VL+MwPvBOgCw/xj+IAAJQW4AaL/kvpP/0wIJgF5+1f81f1BBDgCNP7oAHv+RgAGAk/9cQFYAZL83AEqAmn/ff4W/KwCMgMs/EkA4v+W/DcCgQIUAWUATP3o/zsBTADBAVwAIwBa/m387wBMAeX/1/+Y/c4DtATO+sn8dgEqAUwDtf+G/ab+N/2EAlsEPv0n/EMApQRoApz7Uf6WAM//fQNWAHT81v6e/3UCNQGT/QcCZABJ/IoBSgGq/Bj+vAIlBa3/T/wSADP/8v9/BJoACPud/cYDPQRa/lD84/4yAWMCAQG5/0b9uvsDA9IFEv5Q/EP/TADwAXMBwv+n/qv9DQAwA/wBTP0M/RQClAAj/sEBiv/y/ewCBAHa/SH/8/5JAYID+ACC/un82v3oAZgDwQAM/cr+KwIAAKT+GAAHAJkAPwEMANv9CP6ZAeEB7gAqAiL+Sft3AAkDuQD0/X39dABUAi8CPP/T+60AcgRH/zH8cv00AJMCUwHAAQoB4/x0/iAB/v82AKMAnAHYAJL+awAm/+j7Vf9mAZcC3AO0/Sv8QQI+Adv+uABMAL//TgCu/+T/OADG/2wAYf+F/aQAFgQHApb+B/1O//gBj/5a/tsB/v6v/yADw/7Y/m0B0v18//4CwQCj/5D+yP0VAAEBOQCaAPYC6gK//b/7/v3IADsEtwIj/xr+6/xQAasEX/1f+zgCkwTNAFH7DPxNAp4E1ALl/Kn5SwFuBhsDBf6t+Fn7CQXLBzgCnvqY+PX+5wUfBs/9pvdB/uYGRwZL/h35+PzGAIoDmQbw/mD53ADSA3sA1Pxt+yUD2AZoADn8ZPt6/5UEkAJe/677tP35BtMCuPpJ/oP+RwAWBggCVv0n/Vz/+QJy/qX7lAIiA6n/8/9z/2v+jP4qAoUDW/0o/foBXwH3/5b92v2QA+gCtP7k/TT+' $Extract_Sound_Open &= 'hALfA67+vPxD/V8AuQRgAcT8gf2kAC8EiwJz/pr+B/8BAKkB///0/T792f/CBLwC8/zN/R0CYwKM/m786f3JAKEDqwB6/BYA1AFW/2QBqAGM/ov+8v5c//3/8v9vAf4BfACP/8H/8f/5/c7+xwPRAeT7Xfyt/4ADYASO/8n9tADcAe//mv3//iMAQ/82ApQBEP1e/4YAjP4SA6EEJ/46+5f/KAQnAd/7fv3ZAH0BjwB2/sD/jAJaASX/zfz5/NICBgQ4/mn9JgEPA+kCrP45+2f/OwK+/2AApf+h/BYCcQZC/0H5JPyrAxUHCQCa+/H/KwBVAPMDpP4s+UEATwY5Ak38DvzoADQEpwG+/OL65v6jBEQEqf7J+9P+FwPoAbX86PvYAD0EOgJe/h/9zf4LARkDbwJT/Rf8aALbAxj9sfsVAdUC8gGGAN37GPz8A/cGkwHO+876d//1AzsD1f2c+ZT/qQeoA7D8PfpO+0gE1wghAPX6Nvw4/mgENgXb/Nf6ZwHrBBsCgf3J+v780wO8BT3+0vgi/dYEmweBA6n8tfgp/U8F3AMo/cT8ZgGQBq4DSPns99z+pQP2BjEEyfuu+an/HQTm/9X7uADrA0gBCAAB/wn+if2r/7cFfgLf+Fn8zQRGA0H+Bv0O/1kBIANVAvr81vrf/vQCRgO6/Wz7ZQImBZwBgP/P/IP81QABBJAAKPrn/hoGvv9F/DsABACEAjEDhv3f/QsBrQK8AlP92vsZAVsCKgCz/bj93gB6Afr/cf91AFYA//0wADsBtfydAJkEtP9QAA8AGPxfAOYBNP8FAa7/Kf10/0kCjQHC/Bj+HAQoAlUASgCo+3j+1gVNA5H8PPue/2cC4wEFAxX/U/lQAJgH7/8V+Wz/BwWKAbb+zfyC+uAAAQhrBTb+Rvc9+gwFIwWB/d/6QP+1Ba4DU/+l/r36rf4NCDQCrvid+pED5AheAJr4GP0GATkEAwPF+TP71ARwBmsBdPpQ+rcBIAXaAhn+ef2XAUMBAgFVAJz7yP7qA4gAt/3N/ZD/xgFOAmED7f5p+uf+MQH0ApYCtfkP/kIHbf9i/EcA5P6oAScDrP/I/O78YAW+BBD50PzQA9MAPwHz/tH7yQEXBoECtfr5+WMDnwQU/3b/4P6D/pUCBgMV/dH6TAOOBiH9w/rU/uf/9wP/Ayf+ivyL/qECGwI7/I79ywD7ACAD/wA7/XH9p/5/ApwCZf5r/ygBCQJcAT/7jfysAvz/6/+EA1z/HPzh/wgC3f5X//gDbAF6/kcC/AC7/CD8p/3gAwkGdgBy/Qj8Av1dAcgBRAFkACH/owEc/8n7sADNATMBNgKs/dL+oAKc/Sn+sANjAZv+rP7H/lv/jP8zAEkAegAEAoIAev44//QAXwIF/8j8cAKpAiX+tAAaASX83fw7AvcC1/+3AJsBy/6TAVUCKvoz+swB7wPbAvEAlQCu/7D78f2LAML9vQFYBBP/M/8MALf9i/+xAOEA6gLRAVX9vPp4/ysE3/9n/7YDFwCX/rEA+vsW+9sB0gOnAJH/BgCo/lAAFQTa/0L9TgNRAhn+HgCp/kH9DwEsAZj/2f+q/sr+sgBqAcn/7/58AiMDS/1M/GUAjwCL/1AA4wA3AhIC0f1B/LkAOAN3AOj8tPy4AcEEPP9d+z0AIAQwAc39mf5GADcChQQC/6P4zf91BSz/rf25AdUBcwCb/oP+NQA9//H/DAJtAFwAEwEx/hj+CgGcAEr+Rv7nABoCrP6f/S8C8gFC/fj+KAIbAUwBOf/l+n//EAalAgr8QPvi/wIE/wJz/mz6lv4SBrEB+/sjAHoA1f+IA6b/0vueAVYFsAJL/ev5Rf4cBMwD9v1/+S/+rAS5A2UA+fxH/XsEKgR/+o35GAFjBF8CJP84/hIA2AAmACYAev+7/hABSQJs/239If1X/iQDbwTt/sH8DAGcBCsC7/tN+9ABygVeAhn7G/mLAasIMwM3+t/5lgFNB70Bd/dA+Y4F' $Extract_Sound_Open &= 'YArDAq/57PjH/xQFogK4/Ej7PABLBMABY/3l/AgA3wMWBIkAJvzW+an+UgQGAYn+MwF3ANkAMwJp/bz7FgBwAmQD+ADT+lP7AAS+CBsBJPja/GMEUwIS/xP+6P7JBIUF/frs9QAA7gc2AXn6rP4dA+QBr/9V/5sA0ACU/9P99P3UAgAESf1n++gADQUVAkn6HvyuBOsClP4N/7j+WQBwAC39RP8UA8IDvQHj/lr/Qf5y/UAC+QAR/4IDWf/6+4ICSwHj/Af/OgGxAskAWv2i/v8A0AO3AlX7ofohAhUGkABV92r7ywVHA4T+gP45/nwCggUcAKD6PPxkAx4FOv8F/Xj9Bv+wA/cB0vuo/P0BnwNA/8f9bwIIAv/9pP9kAkr/GfwRAWwERP4w/tEB1v08AKkFjv/2+ff8GQJyA9L/j/50/4X/XQFlAOr+UwGxAGn/O/+d/eEASwLE/cT/EgPi/+b9rf67/xQBtwGm/0H8UgAGBjkAJfvmAOkD3P/p/aP/CQCKAS4DvPwb+gAE+wTv+5v8zgIpBIkA0Pwu/U7+fwJFBiP/dvtLAFj/df8+Aib/Zf8OAtP//P5E/9H+2v8LADP/Rv8kAdoBlf+hAL4BGP3u/TMEEQOs/TX7If2dAh4E0f9C/joAyP+i/y4B8/5t/bwBiAOxAdMAov8vADUAzvzZ/doB9/+C/V8AOgLG/rX9oAE3ASn/RwIvAUv8+P4eAtz+CAA9BEX/oPugAYQA1PsoApoE8/2D/fsAhwAt/mn+fgFGAe4AWgO2AAX+/z8MANMAswDM/TP8QQKlAwcAUQAW/af74AKuBGD+l/zEAtoEKf2Q+gIA9wHqAXYAyf7YALYAXf9CAAH/2f4D/8r92ACyA4wC9P7J+///7gJ9/vb+cwDh/tsB5wH5/nT/j/7N/8MCxP/l/CP+vQEzBOH/zvwnADoCXQKL/zj7RP/fBVMCMvsh/NQA0AAhAaACzP1J/CkDagLG+9794wKTAokBj//Z+6f+OgQIAI76y/6NBHcEWf8T/Kz/YgGY/Tr91gDQArsAAv88AaUA9v5FAngBsv2d/40ARQDOAfj+pvsB/4oD8QLB/nv9GABSAmoC8v7k+8//kwM6AI/8Sf4jA0oE/P+z/V7+//wJ/vcC9gKs/jz9QP5cAZcEtgA2+3X+uQM7AqL9vvykALAD4QHV/d77TABBBeMAtfqY/AYC0wSSAZ382f4rA0YB5P0B/mcAKQLsAHT+0f4dAfD/vfwT/zoDFgEU/n7/2wD9AMkA1P4P/8QBv/9d/Cb/XQOSA9v/Ovs0/dQCeAL1/s/9x/9XAtj/RP1A/8cAlgOyAzn8cvxqA/kB/v9NAFv97/9hBEoA5ftD/ToAxAIbAtj9Z/zbAb8EYP7n+yMCyQJT/ur/6wKnANb9Lf5w/77/5v73/s0B5QGX/Yv9QQD8/9ICSgTJ/X783QKLAjT8Cfo4/94GyAaM/vf49vz0BVoFAPqk+C4EoQct/dH2oP8vCdUEpvzv+mP/bAY/Aw74cfoYBWYFtv5h+gT9qwMqA+L92P0BAWQCZAGr/n79FwEzBPX+Q/tYAWkCcf1W/iv/lQCjBOP/pfv0AU4Csvx3/2QD4wBDAGABnP0Q/XYCXAH9/t0Bkv7R+3cB8AEUAAgDngHx/e/8bfwuAF4FTQOF/b/8UAEeBEQBAPxt+wADTgXk+6b5mAIPBdL/zPvt/E8DXQXh/nf82QGbAqH9+fz9/6ABbwFA/ij+vAP8Aib8+vu+AvAFGv8++Pv8zQMcBJQAt/w4AD4Fdf+s+c79WwWGBkr9r/geADADjwGy/7L65v6hBsUAzvsd/6cATQLhAD/8Tf8eA0kAdP5d/kL/AAJEAXr/HgEsAHH88/1kAg4DuwDV/er8sQF5BZn/v/pvAGUE5P/v+6z9ZQMiBRz+iPsEAgUCevxI/XQB+AOaAiX+Kv7yAJf/Zf4uAJABJAAA/k8AbgLn/ob9AP/t/w0DmwGn/HoA3QKu/Qz+' $Extract_Sound_Open &= 'mABaANsBVf87/ZgBzAA0/3gDiAEJ/sP/jP1h/MUASQI6ABf+o/9jAxUBq/48AYAB+gDo/i37pv+zA7b/P/8BABv+SgAtAQ7//P+vADb/EP5r/2kCzwFC//b+8P9QAWv/iP34AnQEHP0C+/L+swLNA1b+hfu5ATkDXf1I/dIBJQMbA8sA6/pY/BsFeASu/HD8vQAwAiwBef5k/cMAkgNVAFL9ZgDSALL8qP7QA7wDbf+S+7f+8QNtAAn91/91/1T+fgGKAj8AHf9WAPcBxQBx/c38ZgBwAsP/YP+uARAAmf7O/1L+/f4JBFADE/xA+v0ABAZzAk/8xvytAuoC1Pyd/GIBsQKSAdz9RPz7Av4Ecv5//Gz+wQAYAzj/w/wBAm4Cb/2E/Or/9QPYAf/7j//dBRsB1vqI/WoCfAIP//z8tv5kAbsB9P9Q/hgA6gMXAm/81PzZAAsDAQME/p/7qAE9A+L+G/55/k8B3AQVACT8mAB6Aqj/Wf3F/eUBegOC/6L8j/6uAmECgP85AdgA8/tT/GD/IgJnBRcBQ/tu/zMCR/4x/r8A9ABxAbAAvP0X/4QDoQFU/a/+6f9X/7gBIwHT/RMAgAE5/q7/owMzAg3/ffwS+1f/pQQoAyP/mf6IAIYAWP6h/woCif/7/V7/KgD1ATQAtfziACADwP6R/lIARQEgAh39kvtgAjkE9QGt/yv7R/3GA4kCvP5e/w0B9/6E/CUCVweNAVz7lvua/vUCrgIb/sL+MwMyAnP8lf3NBKoBSflk/KgDowW2Avz7DfwrA7wCm/1I/WsAbwOwAL/6fvwlA/8FhgI9+4H7LQT0A837evx0AjMCCP/J/hoBtgK5/+z7M/6mArECxv/H/br+cwBPAMEAVgGS/uL80wBnBGkBwv0j/yEAZf+3/239Iv71BFIDA/zY/T0BQAAm/2z9zQArB9wBdPh1/PAFywOR+Rv6NgbkCLH94vZ6/bkFHgOQ/KL+tQOAAV38svzqAVEFHwKm+8n7qAJ0A9392/zS/x4D4AMV/Tz7AAVCBSb6hfotBI4EX/0//GIBkQMjAan8qfyeA9ACM/weAOwB+fz5AZUDwvo1/fYE0QIw/h/8/P57BNMBzfzJAK8DIPwy+DQCxQcAAPr9HgGn/Ev8+QI9BPgBe/5x+/P/0AJA/pn/rgMs/6b7OP/tAfoBKQGb/7L+5v0u/x0DNgI8/Rj95ACRAiYA0P1EAHgBgf2Y/RIDTQU8AbD6WPrNACEEWAKf/rr8fAF5AyL90vxkAxEEHAA5/Az8pAIhBVj9qfvxA8ID6vvs/N0BKQLOAIP8Hv3TBp4ExvlP/E4BHAHLAgn/r/zpA34DYPub+38B4APv/zv83//+AwoCn/z0+qwCBQfF/hL63P+kA8T/tvt5/ywEngEu/rz9HAA0A/P/h/yV/ygB8AGPAcz8Pv4LA0UAx/4GARUBOQBV/H/68gF6Bj0CZv9J/gP8HP1YAW4D+gAd/jYAnAF6/a79PQNnAhz+9P0q/4QB6gImAPL+cf/d/lb/K//F/3cC7QCS/or/qv/8AMwBK/9a/wEAc/9MAen/J/66AU0Bnv4bADwAGgGCAUv8hfzWArUCvv/y/zsAEwAB/1v9Pf9CBPoDsPzK+gIBTgTHAu3+OPzX/8oAIP0iAbcEMf+q/M3+hADKArECiQBs/t/7zv24Av0BK/6z/woEpAHe+mj8jwRtBMP7nvopAyMFC//C/Db/vwL8AVv8Mf2eAiYCkP7Q+1z/KweJBMP8z/qc/GcDXQTK++H9rgTXAKz7bvscAxUJNP8d+bUACAPu/578rf2kBYkCZvlK/2EFnwEP/rD7yf4XBAMByf5MAdgANAB7/gD8fgE+Bjv/FPr6/1YEHgF7/X/+RwPlAgr7ePvVBA8EsPt4+38CCgaGAM365P/qBF7+Uvr6AEsE6P/W/TP+Zv+QAywDMP5M/jX/Tf9NATv+vv7dBkkCLPl4/ZwBRAHEAC/+8gB3AQr8zwCABP7+' $Extract_Sound_Open &= 'w//8/vD7XwJdBML/bv7g/Bb/sQIHAEr/fAASAMsAVP9l//UBfP8W/UD+YQA+BPgDCv60+o79WwNEA0f+pf7GAVEBAf5N/H4BLQU1AL/70fwtA54G9f0O+nECFQPw/Gr+tgPsA739uvmi/pEE2QN+/9T9u/7o/m8ABgJqAYoAn/3Z/MoBCQMlAXz/nPvg/VgDHgKFAcwBn/6Q+8b6XwIhCSkAvfnk/z0Ccv/x/Dj/mgUOAjD6bf1JA/MDcADO/KH/dgH6/V39hP5+Ap8Guv87+cj+hwWkBFn8cflvApoDefvB/LoDoQWW/xr4b/44CEEDgvvc+6//+QHq/zH//AGpAt3/avs6/RcFsgPh/J/7nv02AyUEbf6+ANACBvyg+nMAmAYdBs/7gvhf/3ICPwPuAsj/Y/47/Tf9ngB3A4ECSf5r/CT+MAF7BtAD2foL/Dv+tP2HBK4E7/7//8/9FvwLAnQDSwDM/fj8nwC+Aq8ApP+SAJ4Ai/3M/jUEqQB4+2z+3wFCA88AA/5aAYf/Fvv8/ycDXAAK/rb9zgIGBHP+MAALAo38AvyRAJADKQIY/W/9ygFnAbb/cQAeAeD/Qf0e/vkAjQGYAcAAHf5S/qgBcQHC/K39WgRYA838nvz6AfEDV/1h+i8ESQY//DX7FgGnA7kBGvzf/1QG/v2J+QkBZwJcAL7+8/1jAwcEof58/vz+4P7n/2D/TQH/AS7/pP7m/roBkwNt/uv81v7d/ycE8AD++lYAuAKM/1v/A/8jAvcBT/uw/ngFawPE/nr60PylAyMC9v6RAGsAAv5O/YAATQN/AmsAofyG/UUCvwAtACsBLv6r/5b/qf7EBJIAwvpKApUAHPyQAhECgP8xAF78q/+FBNn+nvyEAD8BfgBcAbIBt/6j/Ln+eAHyAw0B1/uM/gEA9/7GA88CjP6l/3X8kf2IBRoCeP0AAOb9AP/vA/L/4/3bAkgBev0q/6b/rP/WAKf9Rf8aB1UCaPk//QEA3/9lBKECdv4N/1r9yP9BBOQASABk/xf5ef3vBNQBIQDyAB7/AP8U/wsA8QKLASL+UP4XABIATQFyA/n9MvnsAPUEc/6V/RkDOwT3/A75uwLABoj9MPvRAKcEYQF4+Vf+BgiyARP6hv0RA1QDMPzt+g0EDgbM/sz52P3VBQgD3Psn/RQCegRM/rD4ggFdBkQAiP2o/S4C1ANK+zj9/AQjAVb+lv4w/4UDLAFc/Z3/2v5s/wEB+f09ABwF7gEh/ED93QOeAm37UP3tAkoCYv1j/B4E5QRR+9/8mANtAUb+ofzZ/xQGOwFP+h3+XgMsA6D+9/woAhoCwPv7+0oChAUlAGr62//2BGoAVf17/ysBtwAw/37/y/85/0EBGwGt/Vv/9ANrAuj75fpXAuQFkwDx+0D8RwCwApz/zf+fArn//f2Q/wkA6ALgAhb8FPp6AE0FtQEj/MT+7AM7AXr7Av5qBRsDz/t4/bwA5wC5AG7+ywDRA//9E/2+AV4BNgHC/tf7hgGFA+z+Tv78/6cBZAAg/U4AEgON/vb83wGNAy7+Jf02AicBZv4z/1X/QwKyAZ386P92AaD9HgGlAjr/8v/hAMv/UP0W/bYCnAP6/mD9n/7bArcCtf3B/4UAl/wzAPQDzwF7/5n9Ef7O/TL+ogTgBFn9R/wDACwDQAKI/RD/bgHX/In8cwLvBK0AJ/th/pwDiQBP/sf/lv+FAeoBp/2M/rsCJwH0/fj9Sv9BAeYBof4g/oUDZAOT/AL8wAHnA5v/pvuUABIFCv5j+pcBDgXpAPD7HP2dBPMC6/od/60E5/4w+xn/CgOYAsb+tP65AvIBB/zN+/oCkASF/hL9/v+0AeEA7/yi/rMEFwHp+3n/rgLTAfv+9fx9ACQD4P5m/JgASgNuABf+0f72APgCzP+m+1P/VALm/3v/TQBvAVsCRf+q/XwAeQGv/rD8kv+ZAR8AqQFPAfj9DADhAJf+OQClAVsBFv/++4QAHQR6/zb+' $Extract_Sound_Open &= 'RwAEADn/v/2FAFwFnwH5+/f9qABc/wUAdQOsATn9Tv1z/qABwQWQAVX82f0C/+H/ggEFAZwAUP9d/oEBCgI6/nD94v96AaEBCQGQ/vn8TgAJA38A6/6n/wYAVQAY//n+swGWAK/9AQAIAo4Apv8H/5n+KgA+AUAA+/6o/xQC+AFs/ir9hwAvAkz+9vy+Ak0EpP5u/CL/0AJmAh/85PxPBI0BYfxfAK8COQCE/rH9PAAYAxwAI/6+AP///z/M/d4AvwE2/zkBpwAv/AIArwMQ/l78BgI+BJX/XfvC/6wEaAAA/aMAzgEu/gb9sAAOA00ALf5rAcQCEf20/NkDLQGY+38BkAIM/N3+JwQrAgf+dvw6AFUDJQA5/gsBiAIU/wn8wf/nAvP/vv4eAI8AogABAPD/c/8p/mX/XADCAOwC8QDa/Bj+kABbAaMBGACH/v7/0QFX/zr9WQAiAZP+awChAhoBe/7v+zH/7ASiAXj8V/+xAXD/6f8JA9sAq/tr/awCKwK2/qn+bgEKAQX9f/5BA+MAlf3X/08CRQJe/qz7LQEwAy7+7/9fAtD+Af/U/0T+0wATAmMAZgAV/8r9Wv90AKQB3gGq/zr+Sv7oAOsD9wAv/N39zwEfAYf+n/+lAc8ACv8X/oEAjAMLAE388QAzBKX+IPtMAGEDo/+P/lUAAwAfAJP/wv6nAOgBFAIHAGn7JP6WBE4Cqfzh/B0CPwO8/LT9nAZaA4P4GvrQBAQHDf7Z+k8BlgKU/i//cQE0AIv+2v8AAVIAy/9M/xIAxQB1/4cAvAAu/hQAZAFW/iT/4QFcATT+Jf3KAvEDhP3f/ZsBGgFm/0/9/P9wA2X/nv5qAUT/7v7SAC4BxAG3/1j9JP6Y/4gBSgHj/1EB7v94/VMAyAHZ/s7+OAIHAgn+1/5lAgAA4vyU/38CNADX/GT/yAOLAYj9ef+XA68A2PqD/24F5f3x+XoCQwS8/qn+mQAXAOj/uACkALD/6v8fAB7/yv4w/3UA2wEZAPj+WgHLAIX+FQAMAc3+Gf79AM0CdP/Z/cwBbgGU/Y3/1AFk/3z+bgCbAVoANf7K/kgABACrAG4CuABO/dL+VQJ9ALH8Fv7nArACGv7m/5gDhf4//AkBGQH7/p7/IQCFAJj/VADKAmAAz/2M/oH/MwKFARL+BP8YAJEAowBj/jkAKAFz/lgBBQIW/nn/aAAJAA4Buf45/tP/igBxA1oCGv1q/Mz+JwEiAgsCzgB+/A/9tAK0AQkASAG1/nL9z/+4AQoCEgAO/yv+Ff2eAA0DwQHV/+b8uf/iAr79G/8pBLD+nvtmAV0F0QFz+uj8ugOr//z9lAOpABX80P9wAioAXv+kAFr/e/1HACYDowBj/a7+DQKmAUT+cv5eAvQBtfxV/fMCxgGo/fD+QQFfAfT/5P5gACoAyP3E/vwBBQQbAe37oP69Aoz+Lf17Av4CFf7O+y4AlwTxACn9BQDVAMf+kQBRAuj/p/2q/qwASQC5/h4AYgKrACf+6P/8AWT/qfyc/2QDSwCz/KIBgASv/R/7pgByAvf/Wf96AfkB1/2x/QYCy/9+/UEBZgJoAGD9ef04A+wBBf2WAHwBxv3u/tMBOwNc//X7kgLkAmb6cv2QBDICvv2X/hEClP9F/YYDrQOR+4L6ngBmBTkCxP3zAF3/HfrcACAH1QDL+lH+dwIn/1H/agPX/kX9+AJGAYv9lP5fAQ4Dp/0l/G4DPwJr/UgA8gG+/6D9zf/sAkz+J/3zAvMAEP7+AAAB7P+s/3b/y/97/vX/pQJ0/z7+6wFNAaT9C/68AaEBU/5YAP4ClP6j/JkBvwLJ/df9xALNAH78LgDnAhb/Xv7CAcsBD/9O/kb/ov8NAZYC/wDc/uD+hP9pABUAYv6L/z0CMAB8/W8ADAMtAGn+MAAgAI/+rf/kAFwA7gCnAM79Xv90A6v/R/uRAOID0f7q/aAB9P9D/rQBwwHf/ZT+1wG9AYn/wf25/oECNwL5/Wf/' $Extract_Sound_Open &= 'wQHg/Vj++QM4AcL76f56A9EBMf5e/U7/JQIwAij/tP91AAP8O/+fB8sBKvkh/l8DlQB7/pIAfwAI/nUA2gFQ/uj/hAHw/lgBlAHD/Mf+8wLcAD79m/93A3H+yvuWA8ADc/0f/goA4ADCAVQA0v8u//f9Ef9rAYUC6/7V/MYCcAPT/az+jQCk/kv+HgF4BNEA4/rj/a4CAgJH/6X+rgF2AMP8zADaAs39jP0wAr4Div7n+rMBdwQ4/WT95QI+AE78tQDIBZgAC/vKAFADYPxt/HADagMy/g/+NQGh/wj+gwLeA9T9v/soAR4DOf61/egCTQEI+0z+hgVeAiL8+v/eA1z9Y/qRAugFRv7J+qYAHQOi/uL+aQPb/yv7rgFrBd/8aPsbBCUCrPoMAA0F1/zK+v8E9QUG/U78FwHXACL/wQDUAfX+Kv0cAQkEGAC6+yn+OgLkAPn+rQBVAEv+8P/wAsABxvx4/ZUDAgH++kwA8QSL/pv8GwNqAab68v/ABdH9m/uABNcCC/vD/gcFUgA/+5EAmANd/hf+RgKUARP+j/1RAaoC5f40/w4CRQBl/YP+PAMJAvz61f7dBcX/5PuyAdQCVP61/SwBjADu/Y4BvgLf/e792QA+ARYB3f5n/nMBwADT/cv/uwFY/tv+eATiAAr7dQBNAqf8WAD9BVr/4vnKAEEEAP5k/8kDnP5+/T4B7/8xAooCzvpj/HADugAd/8UDswCp+av+0Aa/AZD8IgDc/sD8NgIRA/j+Nv9l/8b/PALe/gz8tQJLA6P7Wv+ABdH92Pp2BHIEqPrE/G0FXgE6+xUBUAMI/QD/JAQJAAP8Av8VA6QCCf70/JIAEwGiAKUCXgEH/VX81QC6AyP/h/xnAagB7f4rAhQCuPzu++7/PgQaAzn96/wSAJ0AsQI+A8f9CPpU/h4EfQJw/uD/fgA3/z8BzAAg/aD+bgKmARQAvgAr/5n9+ACqAvz+3vxD/84CZwKb/3YAov/S/HYAOwM0/zn9nv/sAakAN/92AVn/+vsJAsEEyv02/MsAQQLNANP/If8o/XP+gQMWAyv/4f5t/n7+wgEcAdz9ogDsAhX/Qf4mABn/UABAAj4Am/+KAAAA5v/n/97/gf/6/pUAHgG2/wUAaQCNAI//Wf0eAA4CD/7d/0oEDgC0/OL/zgBk/mD/OQIvAD79UACnA2IAPPxQ/30D7v4h/HQCvAOA/ZP8PgHHAjr/d/6LAaX/Af6EAj0CTP0M/rYBTAFk/pz/MQOuAOf8yf6eADsBNgE6/47/g/8g/b8BvgV0/e751AL+Az39Nv+xAl79GP1mBJABHPurAOED0P1q/ugBpf5z/sABpP+q/kUCdAAX/QACVwNc/Gr9CgKG/1wBcATV/V/7XAHQATD/uQBBAfz+av+RAGH/0wAIAbH84v9sBNb9mvxYA7r/ovxfBPYD+vqK/GoC+f8A/6cCggAc/UX/YAENAYb+9/w0AnIFgv4H+xEBIQI9/VMA3gO4/PD7pwUoBMH7pf1hASUAvgCWASb/1f3y/zIC9QEp/7b8ov5RAsUBjf++/8D/+P53AGcBuf60/YYAGgJXAYH/qv23/jkAgwCgAZMAZP7N/6YBpwD2/cL9VAK8Agr+D/7n/0n/3gCTAun/Cf2J/3IC0P/m/0gCXP5T/gEDUf+J/BcA1QAuAhQDvf2X/XEDWABG+7AB5gMr+mX9lAhe/x33qQN6Bib7GP2GBFIAlPyQATED1/1a/BoAZQLCAUX+dP3JAf8ATP3yAF4C8/1q/6ACM/80/WUBDwPM/nn+9QFf/yz+SALQ/9v99gIuAVj9MgE5Afz9LwAjAaH+5/4nAQkBD/8u/5QADAFtACP+6/6GAqP/Ev1lAj0CCPyN/t8D6gAN/UH/fAFgAOn/vP8i//D/igD4AJ0Bkv+7/Vz/IgHBABj/T//XATkBUv86AOP+Av65AegB6f7M/+z/iP40AZMCNf88/jwAUAC9/9T/M//8/z0CvwAi/uz/' $Extract_Sound_Open &= '7//4/JMAxQNh/jv9KgJYAXX/ywCe/h79+QCWAk8A3f4N/kP/FwNOAZ384/+fAoz+h/8kA67+Yfw9AhADVP1L/5kEPf+B+z4CzAGV/NYAiAI8/pj/4AAU/q//PAMBAVT92v7NAH3/egD0AEz+LACQAXj9GP/QAiz/Pv/pAmr+uPypA8MBMvtxAIMDdf1j/5UD/v1O/c4DoAKZ/XT9ef/9AZ4Ckv5I/eIBWAHn/ZACxgLU+un+lgXX/Sz8kAO6/5H8GQNGAiz9FQDsAT/+c/6UASwAyf56AYUAJP2M/24CygDQ/of+XAC0AcT/C/9NAMP/4f62/8ABAQG0/XUADgTw/mH9TgJM//L7EwOOBKn7QvySBBEC9v1ZAcv+P/wIBMsDhfwj/2MAKf0YAk0Dy/sc/rgELgBC/fkB1P7V+tcCLwU0/Wj+BgKL/tcAEgO8+4X70QMGAxf++P+qAL79GQEXBEH9yPuNA8oBHP1FAgsCWfxGANgC7vwy/voEqAED+zr/ywTOAOr9KP9q/QT/cgMrATr/zQDI/hH//QEK/7H9BQJEAeL9zv/MAK7+PwDrAUP/hP5dAOL/zP93AXoAu/6Y/xYAPQCUAWf/Fv3sAVsDHf1t/toCSf5C/pIERgEU/OP/tALc/3L+9P8gADr/egH1Ar/+5PzEAKUBK/9k/0oAzP49/zECWwH9/fP+UwFKAA3/pf+5AIIAFP9k/48AU/+5/7ICZACT+1j/egQSABv+RAKD/nz78wIoBFH/CAD+/v39xQEQANb9kAFjAJf+IQOiAWL78P6+BBgAkPw+AuwB7PsI/wQCnf7lAEECgv2+/9ACDP7j/esA8f42AMkDef/u+9IArQIk/u/+PwJN/17+jgK9AMD84//mAWj/VQCLAMb9zwBFA57+NP8oAqv9zv4iBEf+hvt+A1ECA/3/AYMChvz7/xYCjftH//0FDv7n+8sElQAm++cCLwEC+gkCyQVg/Fz9zwOn/ib8CANIApP9GQETAm/8H/2UArQCJf8M/r//FQALAQ0Dd/6H+xgDxwOY/BT/OgFw/YgBkATh/Zn92gI0/4/81QI4AvT7RwDGAk39RgHdAhX6U/+1Bk794/wkBFH96ftoBRcCgvtFAWYCnPtY/3wEW/0Z/VQEGv+s/AYE5f9U/FwESAIS+wr/PwIQABIAxf+a/lsAfgJHADz+mQCr/8/95wLgAuX8RP80AcT9+ABUA1L+Sv15AHABfAB+/jj+zgBUAngAGP4tAIIBN/0e/ucDMwGu/N3/zAG+/i/+JQLSAlP91/ylAqcBU/2w/+MB2P+s/3sBKQFL/9z+e/9s/x4AnQGfAcL/tv0w/6ACbQCG/QkBUAG0/XoAZQKQ/rf+gwCp/7MACQHW/h7/IQAQ/4D/LALbAMf8hgBwBFf9+fvfAnoAsv6JAhz/lv7LAj//Sv7rAAX+w/9oA3b/wf4MAiz/PP1iA/ADFPoi/CoHVAAt+m4EegHX+jEFGwN0+JoAWASS/Gv/LQI5/UAA6wPX/TP9JQQIAcL7FQG9AMj8ggNxAi/61P8jA2b+uQFzAfv7/v/nAgb/8v5WAC//8//zAsQADfyFAAIE4/3t/vwCPP59/tQBFv+M/3MBYABuABj/3f+wAcn9Df8jBAr/jfsiAfAC+/++/mX/7/9HAL8BCAB5/Nb/RwIl//7/0v9w/kAD+wDQ+ngBOgRn/Aj+aAL8/gQA/z+eA3j/Jfy1ALACp/46ABoDk/6C/mMBP/1v/44Es/6U/awCOP/h/sEDAv9F+6kB1gJv/h0B7QEQ+wH+ugV+/5b7sAIEAWb9dQKcADv8oABaAaf+TgIpAu/73v2fAykAr/3qAjwAgPpFAjwFFvwM/1QEKPx6/UsG0v+Z+t0BEQOX/rH/cgEH/wf+NAEQAmL+x/1lATQDlwAP/XT+3gC0/wUBxgG5/cH+vAFK/7D/+wD6/qUAcAHj/er+igA+/kIA/wOH/3f79wFzBHD8lf1tBDv/avz7AUsA' $Extract_Sound_Open &= '5/50AgwA6f5OASr/vP9/Aa79Bf8dBFQA3/uRABYEYP9A/ZoA7P/l/iUCtwB5/ToAvAFz/4D+Rv9tAXgBcf6f/kkBjgCM/wMB5f9b/UYAbgKE/ir/SgKj/kv+oQL//zD+9AEOAET9dwFHArj+agAzAQ/9If83A5D/Qv+CAhD+/PyRA1kBG/wDAUADI/41/wECpf4o/wwCgf6s/mkCgv4N/qgDIABX/NcB0wEO/UsAPgJY/YX+GwO5//H9uwHl/73+GgP5AIf8F//zALQA0wDU/lr/UgJhAAf+2wC+AdD9Y/0mAp8Cff9pAFQA0fyB/6sE6QB6+zz/JAPa/8T+wwD8/ij/uQLTAMT8jv4kAvoAwv5bAPj/K/6sAUsB9fzfAP4BRf1CAZ0COvxY/+cDMf++/c0ACABv/1ACtQEp/JP94QNEAXn+sQFA/8P9kgKVAI79UQFVAEL+YgLiADH8kADZAyL/Kf7//+b9JABJBDX/yfs7AVcCzv88ADz+Vv43AoMAm/5sACz/9/9wAjb/HP78AAEAs/+kAWD/WP0qAZwCPP5F/8wCY/7N/hoEAf7T+w0EWgEZ/T8CHwCf/MECFQMo/CD9jQJyAXL/XwFn/zT9VAEfAWH+BAHW/1T+FAIuAFD+iQEZ/9r9OgKeAGr9kP/MASwCq/+R/bb/jwCm/7sAMgGX/zH+cABTAlP+n/57A/H+TfxjAzgCg/wxAIYCqP5g//oBmv76/TADcADi+wMBJQK+/2ECBP7j+qcDjAMU/MT+cwFP/zABlQFN/f/9HAN0ATj9+v7y/8T/hQLDAP79IwEwAYf9y/40AfT++/6RA28BEv2hAQ0BjfvaAcsD2fv4/j8DiP4yAI0C+vw5/pAEQwBh+zIB6gL+/fX/fAEu/uP/PAEK/3cASAC2/Z//2AGuANr/AwB7/0H/LgCa/8X+GgENAb3+awAZAUL/ugCN/9H9KwJGATf9XAF7AOb8wAM4Arz6PQJJA4j6/QCZBH37nP44BA3+Uf7ZA73/kvylAUgBbP3OAV4Caft5/icEn/8s/h8BPv8BALwCwv6W/PcB7gGH/AX/pQJq/67/9QG3/vz9rAHLAQP/lf58APcAW//z/mwALAGm/6T/9wH1/6L99gBYAKD+lAL6/xn8DwJNAnz9kwByADv+4QLeAP/7YQGpApD9XP8IAYj+cf8IAuwAi/1s//4CCf9n/sECS/4O/GAC2gICAAL/ef7vABkBmP7q/lQAzwGEAHP+qAClABgAxAB4/af/fAMH/yb+aQD7AEwCA/7x/YYCNf7Q/4AD4fy9/58Cu/xdAYkC5PzVAH//QP2SA4YAe/0bAo3/i/4cAhr/f/7LARv/3f1bAnABOv3dAKYCJ/2R/7MCdfyD/ygG5/1x+/IDVAGE/Z8BBv+o/VYD8gD7/NMABQFM/2YBaP9K/YIBDAJ3/Un/lgMIAF395ACgAMD+hgCA/xP+dAE9AoH+y/7NAdj/5f3WAC4BGQAIAQT/Yf5GAB//mwB0ApL/bf/I/53+ywDYAJ/+OAAsAhwBof6t/oL/xv6+AYAC7/3z//wBRP62/0UBzv4o/5gAcAFYAAf//f8Q/lYAtgRr/Vb8mAOh/sH+lQQe/eP9hwW5/UL7tgKjAF3/aQIx/8v9bQGLATb/+v6BAOP/zP7tARICe/21/tQBKABW/8L/4f/bAGMBQQD6/MP+tQQsANn8RwKw/vf9FQRE/gb+AgTu/b7+8AIV/RH/ngIb/4cADgE4/1H/G/9MAj4BX/xw/xYB4/+HAbT/Pv+eAV4AZP+l/hP/NAHz/8H/rAAKAOwAy/8h//z/H/5xATIDsv2y/9MAYP1XAmECa/xv/+4BvwBCALb+ef/y/0QA/wGt/kv+HgIT//7+NALb/vf+rgEa/wb/RwGNAEr+5f7YAgcB9/yAAMYAEv8uA3D/K/w/A9sALfw4Afr/Nv+zAwYAzP02AHj/HAFNAMn9PwF9AYH/9v+7/v//wgAGAF4Bjf6o/v0B' $Extract_Sound_Open &= 'Jf8CASYB/vslAicCNfw4A2IAkvojA6MB1P1qATz+UgDFAgb9rP/yAJ/+SQMnAQz94v9F/9n/GgI2ALj+rf6AAWMCDf6W/nsARQAaAsz+ff2jAooAAP4CAYIAZf8j/1kAEwK4/rv+7wBJ/iACWAJB+twAjgV0+yr+wwNd/pQAxwG6/L3/ZQH4/78Bgf4X/jgCNACm/xYAXP7JAPr/Av/QAub/I/62AEn+PwBMAib/bgDa/iH/zwME/mz9RQP0/Uf/hgOe/fP/yQKv/UH/KAFAAJv/F/7qAVsBbfz4AO0BDP7MABIAd/6fAbkAbv4C/8MADAEJ/1YAwQBd/qAAaACE/6IC2v4v/VQCwv9G/vQA3P7xAM4CiP5O//8AMf/e/9//Qf+2AH4BEwB3/eb+2AE+AHsAWgBq/YQBhQJ8/PX/pwKj/Y3/GwI+AKP/rf4hAMgAuP8hArH9YvysBSYAt/rLA67/Jv3TBIj+TP1QA37+sv+SAVb92wBIAbj/ugBe/S8BdAJG/DQBUgGq/RUECP8V+ykD9v9u/tICP/9U/xcA4v/9AZT9e/8kA378EQCYAjz8fQK6Atv7OQLeAJz7xAFvARj/nwCW/tcAjALM/rz9kP4cAowCKP1l/9MBE//PAfz/vPwhAmkAPv04AnUB9v5g/1X+1ABnAez/twCo/U8AogMI/D3/iARx/DUApQP8+vsA0QQ7/K3+wwCt/lICtQHh/iH+PP8yAkT+Xv+IBNj89f02BVb9av41Azb8awCeBIL9Hv6BAG4AagFN/2AA0/8O/sgC0v+y/PcCjf/C/XkDN/79/a8DSv7P/sgC8v0LAIUCMP0x/xICG/96AKEBZP4m/hcBoAHM/rH/DgIr/7D/MgE5/DD/bwSG/mT++gI8//f+fAF2/jr+FwLiAan9XP84AxX+Av6EA0/+Jf6lAyL+HP4yAwsAwv6Q/+7/KgG3/40AmP8u/hUCiv85/6EDj/zn/K0Dj/5JALMCKf6SASX/m/xnA08AxP7/AAT9OgJUAoP7FwKUAfr8CAI7/9X+RwPN/uv+nAAp/64BXP/m/vMBvf57ABABPf3lARgBnf3uAXH+Ev7CA1P+bf/4BA/9dPxvAlMApAAbAH79RQFVAdf+lf/m/hMCnQLg/OL/cAFt/XUBIQCi/U0ExP+d+9YCmwC0/uwBXf6T/1YBvP6aAJ3/VQAQAi39EgAqArP9ywE2ABj93QLS/43/vAG9+7IBSwPk+o8B0AFh/eQD6P5R/PoC1/9PAC8Ajf3rArj+pP1TBar98Pz0A07+aQAHAgv88wByAWH+8AHI/yoADwEN/UcBUwDI/NcDegCs/PYDj/9P/I4Ccf/Q/ssC6P6r/nUB5P/m//b/SwC4APL9tf/HAnX/Ev9wAG7/vADB/xL/ygFW/8T+2wH1/oD/BQL2/o7/lQC1/wABXP5A/wIDbv+d/wMAqP1KA1UBM/tbAecBeP7SAN/++f+OAi7/Mf8A/8z/LAOJ/6/+fABa/n8BFQG8/b8BCQB//SIBUwDCAAIBhf5iALX/kf9KABT9fQKBA5D7BQGFAqj8AwJVALL81QIGAP39QAKF/9z+zgCpAJwA6/3z/8wBh/2VAPkB0v0uAckAgv7lAQP/af4DAub+kP9QATj/mwGP/w79OwKyAFP+6gCj/roAlAPO/fX9zACX/4ABGv8B/kIDaP9A/bMCCQBl//gAjf2RAQ8CLPwHALEBlgDEAW/8UP80BIf9hP8xAXn8mwL+AcT80QGFAFb/yQA4/V0BaQFC/SwDdf/v/DUE8/1B/YEEEf/a/o4Aj/0BAk8BkP6tAOD+CgGNAFT9dAK//yj+wgNT/fz9LASn/d//BQJ1/DEC6QGe/C4B6/9p/1UCbf79/5MAXf0CAs4A3P1FAhf/Uv5pA83+5P21Agb/8P4jAgP+Kv+nA+3+Pf19AcUAK/+9/87/CQDu/ysBXQC0/T4BIQGD/eIBXwD//J0C5/+d/RQDEv/x/ZsCo/+d/kIA' $Extract_Sound_Open &= 'HwGzAKf84ACTAxD9FwBGASv9DwIEAEb9XQNsAM399QDH/7L/U/9UALwB1f2LAIwCq/0UAGoA1/6XAf39X//CA1r/kP9R/7n9DgLJ/2X/2wFn/UQBHQN8/Nz/7gCf/lAB9P7F/9sBy/7jAB8A0/41AZb9vgCVAw/8i/+vAgT+0QFGABb9rAIDAHb9/wGQAPz+XQC0/yL/WAC9ARr/OP7VAb//Zv5IApEAOf6AAG4A0v4TAGIBNf9c/4UB1P6Y/00CQP7w/hwCKv8v/4YArf8mAM0APAHX/rn+zQGJ/g//YgKd/oQAugCs/BICEgED/vYCRv83/jcBkv6IAtL/gfsbBFUAfvxqAx7/yP/pAW77VgFkAjb9LQPr/9T8LQL//t7/MgFe/r0Civ8J/XYCWP5YAKYDKvuR/xUEG/3gAAIC2fyGAR0BVfywAAYDzv+H/kj/ZgAaAfT/5P7z//QAcgBA/5v+uQCTAa//vf/x/sD/NAKj/gf/qAKr/un+RQEk/1oBxP/5/dACe//Z/WIC6f7V/ucBwf+RAEn/3f1/AY4AIgAjAXb+qf8IAaz/cf8Q/1QBSgFK/i4ArQAQAKMAu/2r/9ACuf/s/pP/AAEeAY39RwCMAbT+7gHf/mn9TwQS/6f84QK4/v7/PgOn/KX/jQM8/nb+JgHJAC3/BP/VAYL/S/5TAkAAvv4wANH++wAfAcH+7gAJAAv/fgBZ/0gAOgBU/xcCx/+T/QABBgEhAG3/y/7gAW8AlP20ADMBXP8EAEgAMwAL/0P/DAL0AAn+RP9AAV4Ap/94ABsAdP+Q/9r/BwHp/0j/wAFT/0D+QAFr/vD/jgOk/j7/AwGV/oABS/+w/QMDvf/c/mYBav4iAoQAlfvoAg0BMf2PAnD+e/8QBEH9uf5dAZD++QFO/4z+gAMa/7f+QgAO/nsCwP8I/cwDPAAX/goCPP5i/xkBXf7KAYwABv6/AUoAp/7g/5//ogDP/3EAvQF0/hX/HwF1/6n/yf9cANMAVv89AOr/BgAMAZT9xv/CAmf+SADWAIj9KwKAAQ79uv8OAQ8Bdf8V/l8BJwA1/wUBeP76APwBjP2gAMYAD/4iAdP/F//6ALX/AgGU/4L+DgL2/wf/mwDD/koANACA/+ABzf6C/kEBov/LAE8A2/6ZAGf/gwDq/6v9pAIfAdn9/z85AW3+8P+LAjj9igAQAjr+7QAq/3//LAE8/UQCwAHk+2UCMgH4/b4Bjv47AJwA9PySAiAAZ/6SA5j9p/8GAgP7ygKrAn77VgMRALH8ZAMN/2f/oQHD/VcB4f+I/hoCSP7mAPQBdfyzAYcA8fy3Ax8Ax/ziAV7/gP7oASkB/P6j/vUAhQCN/1IAgP6sAYoCbPzU/gMBk//MAYj/pv+6AEv++AGm/4H9XwPZ/oT+nwLO/csBbAD5+isECgED/CoDOv+W/10CovxjAXUBGf2SAWb/TgBXArj8oQCrAWX+oQFk/hT/KAJh/okB9P87/SwD2v48/koDev7M/xQBk/6uAX/+bf4cAkf/PQGg/1T+awPm/Wv+3AK2/KcB5ALU+8gB9QAf/m4CMf6j/y0B+/yPAksBQ/2jAX//SAAnAav8JAFAAXr+MQIK/7z+0gEy/zkAt/8a/4sBLP8mAOUAqP5gAV3/hP7vARP/5f/qAM7+LQHu/q//wwJP/dz/bAJu/VsAqQA8//cB9P4FAEQBt/0VAF8A6gCnAZX8QwBOAvD9XgHL/2/+qgK2/kP/TwGY/n0BRP+E/m8CiP4QADsBXP4+Amv+L/7lA/r8s//TA6j85wCGAET9SwNo/lD/4gNP/C0AhwKX/eQBW/4Z/oEDvP0NAeICiPskAaMBLf7yAbj9NP8LBA7+7f64AYH/aQD//jP/bQG9/5v/DgDM/yEAgADHAHP+MQC7AYn9WgCCARv++gH//5P+awJy/Sf/sQLM/W4BPgBx/aMD0/4Q/pADlf2f/+cBS/3AAV8Ad/7aAmH+4/5SApf+5P9MALr/' $Extract_Sound_Open &= 'zgCR/hwB4AAW/vIB1v9+/h0B2/5QAaYAn/0MAnz/mf4EAn3+yACzAKT92QJe/8v9mgJU/koAlgGh/XgCYf9h/Y0DBP9m/xkB5fzRAuAAsPwcAz3/S/5jAkP+/QAWAUD+GwLy/Zz+eAMT/jYA3wGV/eIASgCu/10BRv2RAKsCOv6+/5X/LADBAUn+HwALAeL+RQF9/9D+0AB4/6IBHgDP/SgCTwBT/v//q/8CAtX/E/6VAq3/Uv1vAMQAagHN/g7/fQLO/tn/IgGF/VEBrADs/uoBf/3z/wwDG/0VAZABxv3AASf+l//AA8X8ZABeAvb8twEH/+/9FAS2/Tz/awOL/P8AwgKi/HMA6gC5//MAPP6OAFgBvP5bAL7/LgB3AKr+fgEqAAj+BgESADwAiQBr/gUB0gBQ/y0AhP49AB4B4v/SAEv+5wDGAjD87P++Aof9iQC3/73+CQP1/u3+qAGX/nkAkP9M/2ACL/48APABxvyCARoBZ/25Ar7/Nv53AeL9GQGwAlv9qP/1ADAAjf8+/jQCdwDU/dwBhf9w/7sAh/1BAkwBIf1ZAvD/of7SAar97v+LASH/pgEo/pf/YQOi/BMAUAJ9/CQBoQCr/1EDDvxX/kkEbf5DADQA4/2gAhr/9P4oAuD9/QAnAbj9XgGt/iYAPgNM/Of/ygKX/a8A3f+b/3EC5fwpADIDkfxpACgCuP6wAHf+HQChAsD9WABSAdf8jwAQAlj/t//N/6YA8v/V/lYAUAARAIn/9/9fAb3+U//tAX3/MP+Z/7AAFQJq/fz+2wJe/pf/jQC1/mUCgf+Y/kYCk/2Z/zYCGP7hAYwAXf0BAhH/gP/zASr9TgE3Aof9FgG4/jb/ZAM2/dj/6gL4/FcBnwH//PAAnf97/1sCVv6J/w8BkP7SABsBcgDi/+r9tQB6AFH+zgE7AQ7//P4B/7gBRABO/icBPQDG/2YAOP/GACH/Mv9CAkT+Wf+7Aov+6f/rAIr+5QBU/43/QgJ4/uv/sgG2/Xf/CQEqAVIBM/0p/ygCKP8lAG8AWP+WAOn+p/+dAUIAMQD0/qP/kQGj/j//EgHQ/0oBRf/N/WIBsgATADoA9f71AKT/Xv7ZAVYA3v6mACkAJQDw/lb/4QHk/3z/hgAi/xwAEABlAAUBrv3s/80C7v6c/iMA7gDGAGH9IAC4AvX+ZQBMAO793AA2AKP/awFA/6D/EABw/xsBc/+0//gAEP8hAUYAyv0vAT0Ayf+vAQP+c//wAbD+IwCxADz/JgECAO/+EQA+AJIA/v5V/9sBaAAb/03/9/9WAb3/J/9UAFoAUQC2/hEAzwGy/k0A4QAF/oUBcABd/oUBoP7O/z0Cr/2gAEcBV/7PAcD+Ef8+A4X9fv/jAaX9JwKmALX9PQJr/mn/gAKv/S8BdQDZ/EwDTQCc/ckBtv4CAbkBsfxCAUABMP7bAF3/5gBMAYD92gANAFz+0ALA/3X+UAHc/sL/uwCd/ycBxv8V/0cAkv/0/xoA/gDCABr+LQAPAUz/8f9k/3EB4AB6/FcBuQLo/W//3v8WAQYBk/ygAYMC2/zmADsAZf6UAjf/Iv9cAYj+KgEGAA/+FgJz/zH/RwFm/jcBwADK/Z0BGAAD/6oAbf72AEABlv7bAIH/qf+mAUr+Of8xAaYAmwDM/YX/SgLY/83/R/8lAP4ABf1lAV8Dpvye/xUBE/98AVj+DACGAlr9EwExAcr8DwJfALn+bwGo/YcBMgLz+3ABYgHN/aMB6f63/z8CiP1gAEMBP/47AXn/Qv8BAhL/sv8XAAb/kAGn/xH/PAF//9z/sf9+/7wBm/+w/lAAkQBRANr9SgCxAlD+3f8mAW7+xABQ/2P/ZQJa/qz/gAFP/mkBSAAZ/jABNP/EAPUA+fz7AQkBHv1VAdv/WgBVAT39kwFdAK/8QwN5AKf9TgGd/kEBSwEn/SUC7v+E/a8CmP9m/90ADP69AQ0Ai/17AvH/k/5hANH+sQFmACX+HQJZ/xz+' $Extract_Sound_Open &= 'PgEBAPAAEwCL/sQAIv8nAPMBh/4JAPUA8P7T//T+NwDHAbD/x/9f////ugBL/oIB6wGw/UQAyf/O/swBeP+LANEASf2HAboA/f0DAkr/5f5OAYv+zAEoADb8uAJCAd39dQFb//D/5wB9/msB6v+K/v8BMv9k/wcBEP5SAJ4Aa/+nAV//kf/cABr+EgAdAUQA2wA3/hP/OwHY/8UAoP+P/10BNf7b/+UBvf61ABoAY/5nAZX/2P8EASn+FQF/AGr9wwHQACH/8QBg/qYAkAGA/eUAcQFi/kEAQgCeAJj/rP0eAuoAn/0YAnUAdP39AKQAaf/V/6f/FwEpAOD+VQA5ANv/m//p/6sBDgAz/mIA0wBb/wYAMwHC/yb+HwCMAe7/MP8TAN4A0v+y/n0AEQFm/zr/7f9fAb4AoP7X/4kAf/86ACIAcQBWAN3+FgBiAJ3/fQD3/un/WQKy/6v+g//G/8EBvP+D/pQBDAAI//gAIgDl/17/V/+aAe3/xf7uAHcAqP80/57/VQG8/0T/LwGs/1P/fgASAG8Akf9S/3gBLQBi/nwAYAEa/+D+hgHuAGX+bP+eAGgA/v+q/+oAAQA1/mYA+AAYADQA7/5lAO0A3/4BAZoAQv6UAC8AzP+HAVP/Z/9fAEL/0QAXADP/SgG0//n+UQDn/zcBLQB9/qAAHACo/xcB0P96/7L/CwBoAYT/FP9EAYn/Mv8HAWkAiP9R/1IA+gBX/0P/QAB/AK8Aw/9c/8T/ogA0Aff++/54AXMA4/97/6b+bQHAADj+egApAfP/Wv+R/3oBNv/6/TgCRwGI/nP/6//jALf/lf8uAgP/Qf4IAur/9/55ACUAjgDy/hEAIAIo/g3/ZAGz/p4AWwE8/0YAIf/m/6AB5P6B/+cA8v///yP/CgGHAaH9tf/oAaD/av9o/7AAsgAt/tAAmAHp/sb/4P+FAAwAQ/7WAfMAh/0qAesALP84AA//NwG4AEH+IQHW/zn/GwHn/eMAUwJ9/bwAvgBr/vEB8f6g/hUCY/83AHr/xf7RA8D+LPwwA3oAtP4sAVL/cgDC/wj/8AHE/sD+LgJ//8r/cgCo/pIALwDr/zEBJ/88/z8ASwDGAN/+5/+FAdv+e//ZAPH/UQBn/5X/dwDe/80Aq//7/sYAGP/n/7QBO/9MAGcAA/5WABoBFQAeAHv/lQCT/+j+oQF2/7z+3gGM/y//CwFH//D/WwCS/5MAlv+T/4AA8P/UAKj/Uf7XAPUAyP8GAJH/EwACAP3/nwCI/+n/jgAU/8f/mwAWANj/W//QAL8Aa/7p//UAxf9UALX/av+4AA0Apf8ZACUALgCF/wcAmgCV/+j/dwDp/zn/Qv8PAQsBK//H/woAlf9AACAAewAXADn/ogDg/yP/9AC6/5L/VQFH/y7/yQDS/yoAHQBQ/+n/3/93AHwAQf95ACUADv8YAUMAmf6rADwAO/9hAAEARwCLABj/+P+4ADH/tv+eAHMANQAw/8H/egBJ/5MAKgGz/tj/mQD2/sgAxwC8/nYAbAB1/80A8P8+/zoAg/+h/60AzwAVAMX+yv/cAEr/FQAqAU7/lP/kAO3/XP/z/9r/FQDcABcAEv/z/10AEwBAAKL/6P96AH7/oP+pAKQAdP/X/u4A+ACV/i8AwQBX/4EA4f+b/5EABv9qADoBYv4CAD0Bw/8kADT/9v/gAKX+NgBWAYX/CgAF/wwAFQIY/oL+SQIxADD//f8xAK0AaP/s/0sAQP/QAN3/Pv+zAan/+/5jAJr+uADDAaL+2//XAJT/h//p/3QBqv8l/pwBUgCJ/kYBIABJ/2YAW/9IAJoAzP8wADn/sP++AFEAaQCJ/oH/CQII/1n/5QE4/2L/yAD7/wAAyv4fAKgBHf/5/xABff+D/77+UwDbAbD+3v9DAbz+XQCyAGb/0QBd/x//5wApAFgA3P+U/4oA6f6QAM4Blv1v/xMCHv8fAPIAyP6y/y0Auf/LAMIAfP+L/kIAeQFQ/7D/' $Extract_Sound_Open &= 'AgE+/1z/4gD9/33/mQAMALD+iQCMAf/+N/+OANP/egD4/xj/SQDx/zwAJgGt/1v/f//V/9UAwf/8/2sAz/5kAPMAVP80AIf/7P9AAZz+t/+zAbr+LP/qABIA6P9u/5MAhACW/rwAgwBy/vwAigAU/7wAUf9e/1kBuv9d/4gAFABd/6n/AAHi/6j+FwGCAKr+ZQAPAHP/6QBQAH7/0v/y/+X/o/98AH4ARP/o/0kA8//h/zr/YwD6ACr/d/90AA0AEADv/wwA8v/2/0YAt/7//8EB2/6k/88Bm/4C/0cBBAAqAJf/BP9pAO//NAC6AKP/vf8n/wsA3wHV/o/+igHG/5H/JQFM/0X/jgAUAPH/GwAaAIz/ev+3APf/Yv9jALL/4f/HAHX/5/+2ANP+PP+8AZoAXf7+/zgBDP9M/zQBMQBC/+b/VQAhALL/ZwAEAAz/owBFALT+twD6ACb/af8hADYBIQBA/ooAzAA7/9wAs/+d/mgBfwDe/m0AGgCP/wAA6v8fAOX/6f8lAD0A+gBk/0L+UgELATD+GABeATn/Df+YAPIABgCR//L/rP+r/+T/PwBHAR0Ajv57AGoAIP53AE4CO//L/rkAxv+A/74AGwC4/1sA7P/N/zgA8f/V/y8AIb8ABACP/wkAzAAAuf89/4MALgAAff8vABMAs/8A9f8/AIcAiv8AL/8KAecA9/4ABv+iALgAN/8AIwCEAR3/o/4AsQC6/9D/HgEAPAAHAGT/xP4A+wAKAVT/oP8Azf8pAFEA8f8AxAC8/5r+0QAA3wDz/rr/ZwAAcAANAGD/dgAAfgDP/vD/FQEAfv97/+kAEQAA2/4sACQBzP8AXf87ANv/w/8AsAAfAGP/CAAA6v/Z/9wACwAA6f46AI8A1P+CYQAXgf/f/3kAnwByAf7/kP7o/wDbAOn/cf+HAAAhAFP/ywAyAADt/v0AQwBN/gALAQ8BU/4nAAAcAfH+2P9mASCw/yX/lwBD/P4AWgESAen9DAAARwKk/m7+AAIgYQBv/o6Aa33/AML///9vADoAAAz/+v9UAQ4AAOb+3//tAAwAAFv/hAAlAA3/AH0AtgBR//b/gFMANQAnADaAgyAtAXr/kYBoOP8Az/8pAeD/Of8AcQDJAJL/Vv8AWgD2/7L/yQCAXgDO/8z/CYAZCJkBOoCkUgGL/wCh/jUBFwH0/oCm/8cAi/9zgKAAUQDc/lkAnwACboA8CQDh/7sAAMD/dP/mAKb/CN3+64CqX/8g/wB/AOAAgP+V/wCUAL//b//0/wJ8gAdz/+T+3QAARgBP/8MAVQAABP8BAIAAu/+AHQCoAHX/UYCjANz/bv8MAQUAKBr/nYBrYICvCgACr4BRfQB5/4n/IKQA2f8wgJpQAIhE/9JAfHr+b0CBACb/wABVATz+oPL+8gHswFjRQIQCQEAfBACq/ysAAOf/fgBSAEf/KLj/HsBcEEAAqgAA0f9g/2QAZf8Ak/9PAdP/HP8AkgASALf/TACC+sByHQAbANLAKgAhAFj+ZwAKAoC//hP/jAFmwHoAMQG7/4H/SAAKokBUosB9a/9bAAhuAGFATtQAhP4gMP+HASPAQxwBAOf/Wv6XAEcBIPr+jf+mwC16AAC/ABP/iABkACAZ/n4Ax8AFLP8ALQGKAB3/t/8IrwCNwD3eAIIAKJ//1UAoc0B1Ef8I8ACBwHSqAKQAAKX+BQCBAYr/AML+mQCNAHD/AEQAfAB6/97/AnRAobb/Zf/b/wBYAawAYv58/4CUAdz/yf65wCIAYv94/4sAWwAEQ//AowCy/3L/AEcAhABxADL/AJ//OAFu/w3/CEcBHEAfngBnACBW/7z/08CG3/6ANADsAKf/OUC8IEP/PgD+wMnlAAjk/05AGiUAk/8iY0A6Y//wQMiq/yr3wJUiwEnEQMlwAAA2Abn+uP8dAaqOQI91wLa3wENJQKAIWgDZQOCb/yQBANH/hP8tALX/AEoA3QDF/+H+AC0AFAFr/53/' $Extract_Sound_Open &= 'Iv1Ag2X/rcBpWgACAkB8ogAeAPT+ABoBAwGz/nX/AP4AHQA//44AAHoAuf47AB8BIk1AkGYAScDfCgEgdv5G/z7gLEf/AAkBOACB/qAAAGIBCf+o/6AAAIb/5/8cAAUAgLIA2P8+/5ZgTAA2/0MACwEf/wDj/nIBswCa/ihrAONgDbXgW7D/AmzgTpz/0f+QAACO/43/CAHG/wAE/14BZQBR/iBhAOkAKKBrDgEABgAO/+P/5wAIrv8o4E+aAIL/KqrgH6cgkIMgJ+j/AOr+jwDFAFz/CMD/cyBHEADQ/4CL/5kAIADuoI0AcAHH/tj+QAGIvAACoG6fAAYgYQDdAGYAAf9t/yA4AEEAA+BdZQAALwBt/zMApgAAJP8W/yYB7gAAt/7g/2QB//4A+/5kAVQAWv8g8f9+/xggOLX/ClEgKzogFagA0wCKa+ARuGAkXv+xoAACAiBlrADe/8T/IOj//P8OoF7K/4I2oDFk/9YAomARgG4AlgCW/hcgUQht/4WgksL+dAAi2iBCCwDxYJv//gAjAlAAo/2uAAAxAeL+RgBAACojYI9FYJdkYAs+/6CG/6wAe+BKMGACADr/RQAxAJT/iHcAvWA9UQCQoHMIggAJoJ9iAKH/CPL/BKAB8//r/gDBALsAeP63/yA8AfH/BqCE2QCY7v+HYCSgdv+SoGGj4JQgbywBwuCc4uBCABv/zACuADz/Cn+gMekgBKgAyP8onP/YIHk4oCHv/wA1/64Ao/8T/4ADAekA1P4kYGYABQCp/wQBkv8gyP6RAKDgdbv/gCz/bQCYAKjgc4Cp/9P/hgC+IGAAYwDP/+n/6/8iv+AUVwDXoEST/wAlAGgA4P8fAICLAH7/Hv/IYKkA+P7c/9AArf8q3eBCZWCWoOC3mv8grv9gAOxgbG4AAspgEQ8APgB2ACjE/1uguWMgkbf/qCoAWGDQHWBmCiAFgq9ggZoATADAIEIAbADj/qIA/wCCDyA9iQDG/4ygS6BhAMr+HuAKmeCwqsFgIe5grUGgfi/gB4L44JPl/1cANyASiDYAm+A5pv/rIHyq+eDbWuCxd2CSoeByCs/gLRzgThMAPf+qp+CYUKCELmCXP6AKKoAgTNUgb1+gil//gIr/vgHq/6XgXYINYIV2AEX/GeAcqk6gGbRgVEOgnc5gCYqOoHywoLzGADCgdaggAOpguaAgMAigUSjU/2jgBgJgxez/oL0A9P+sYFZYoCKCTuCltwBs/+DgBAjn/2FgTtAARACg9v4/AMpgsQ9gdQDs/uP+xAGjAAAw/m0ALAG8/qAcAE8BAeDDy6AUIudgSZr/p+AlCgCI8P9AoO6C/+6gPQJe4I6V/+wAKQCAFv80AIUAheAQKq3gDBqgE/WgEmv/gD0B1v/L/txgcIDi/sf/KAEk0EIgSABUACXwDogAAhfQYyUA5/6uACpgkAQHMC4vcE2v/woMUAbcsEc5AP3/AmdwKAABpv8q/yKP0AHO/zIQOcr/IrnQExwAq3BaKQAqStBDKfAREpA9YQCAYQDC/4j/Y5CAoPgAuP+lcCTNEGWq1bATWbAzUfCBPTBBADIAzf5xALwAIsyQRKP/BnBrLgAoIwA1ECjW8BHb/6AAAJH/S7BW7dADiqTwEVAwIuX/SfAFAK4AUv++/xYAAtZwK/3/1/86AIr1kFLBEBxeAEiwSyp+UBhKkBJ9cDeT/wKr8GYvAAEAm/8KFFBzWVA+egBd/6qAsCxZMDnbsDyZcCgAOQDiAKH+GwCiYNCKZf9BUDmb8EMIwgAZ8DTKAE3/KjNQQwDwJmtwV/3/qJD/JjAeX1A7dpAQKhqwDbaQW1IwhHn/guJQIb3/uv83MGSCShAe/v8xAC+QFaDoAKX/LjAEIjB6qFIAiLAAFjAPyRArgpsQQ/P/ugADUDQoEwE+8CrX8DUTASgYACGQPw8QACQAivsQCimwIzABzzAvKBcAyxBQD3CDy/+C7xAx6//e/lewToBeAAkAAP9d' $Extract_Sound_Open &= 'cA6qTVBlOjCdRpA4LFAICHb/2pAsegBPAApYUAbpcBQFAfr/oisQDuj/sxApvlAaip0Qcgjwmbr/arANqBAAVrANoJB2ORCKIgTwQYwA07BwXgAiPXAHz/9fcDQAACqhkAzIsIpgUAALAaDm/zT/PDAdTPAXKCMBPVBkqhBlPP8i/5AJ0/7j8I4yAIAYAKD/Af+80GwI+P4uUJSl/l8AoBAB5/42sB5AUC6KcRBTfRBREQEMMDSqq7AUWtAC25AOcLAgqs/QImgwYDIQnIhwHqpIsBSCkEkIsGMIsF6qfRArqpBngvB2tNB3KKn/TxALEfCBRwEA3/9u/hgBcQAqBhAXDfBKOrCBSwAY6P4O0qORseP+tgAAtACo/lYAakVQBImwH8L/VZBQ/FEQTur/ILAcu7AxJQVQEYzwL5kBzf/SxTCrOTBVFQDdUJBQWlQAsfB+gnCyBbAoR0T/99ASk/6TEIqVFP+K8FqVMBNKAOFRECFK/+9QGRDQTspE/lxQfUQAzbAvTlHwWGn/zxA2Q5AuI1UwY/5wZHQwTYzQr39RkAD1AK+Qg7HQAl9F0I+ncFiW/+TwTilE/yGQooL/lPB7A0WQB4OwCOn+W/BqAFVwcLXQNOoQXjFQNJVV8FHeMAGSUAwMELwqVbCeRbChqpC4u9Aue1UwWo9QWccQeWJwBp0FEFuJcDNZATH/IkD/AQERABqwNyZRkJDw/63wvZNwJIFEAGtQWFn/xtBUYlXQMc+wfeoQQNNwfxgUACbwk63QsOH/cAD/cgFE/zL//FWQGRcQc2BQKdpwt3hFkLFmEAtf/6UwUp0VUAJ0EIGfECAhAKsUAKTQsizQTH3/DUWwuV9wRg8BDhBU41QASxCEkdA94fBgXlGQB63/tjBbC5BHJVXQPYzQWabwGdiwjqdVsErFEBrj8I+hEFLwRP6ncEGl/jxwMJoA/pgBAACm/g4UATAwZApwIRAAhFWwFjOQdXdQJyEQMoJFsG+H0j1e/3aws+RU/5xQB59wufQQLiMEAVUQMFQB6v6QEVCkrP9cEDpAADxQANr+IPCtEFAGdREQ1f4AFbBjMwGIVdAU6jBg8lBkhdBvdlVQDl9Q1CQQGR3wdnxR8Ab8/5mQPRGSNOxV0NDmUEevcCbwkC0OEP9SAL0whvv/+hFQnr8AcvAXkf9YBP+A8J5Z/y4BEVWQkbsQoMwwcdcwqjNBcCTf/1f/InCD5FD+IQHtkBSqUAcPVABvMIn3UA1psAoMUVBZdAD+UFkocFN0VfA961AA1PBAqlCkVBUQYj1QIQNwQS3/1QFQVlz+ygDQALtV0MRTcE+AsE21UEYkBfBdE9BNBAHw/kxAAMEAnv5z0LV7BP94MJQm/zQBUEWwL99wGBQAK7AowUVwgXqwaXj/tHB8HFXQYFwQSQZQi9ZwztNE/3nwDgEAadCo2QVwISuwauT+sADnVRBn2XB1gPAe3zCgAFVQCZ2wFVkwXyNwSkVB8ASFAO//zhADplXQmBpwaD0whzhQ5kVE/7kwSHD/15APmlT/6HCVzvDG1TAx1JVQR/9QL+NwgvL+0WMqzFBGjrASQrDtcwAol/78sBsNkCbFAIgH/6PwR/v+QBAZKtqQRvZwHcYQH0sAImYwW4IAb3A0BwCKw9CMSLCJdADyEKYKVXAFBbCLw//aAKpCEAC00DSpsIFO0ByqTxC1EzAB+TA6SNA+oqaQ3gkAcVAL5BBeqk9QAFHQb0TwDHywe6qsUI3R0FlVkOdZ8AmgSQGy/5uwCk/wrKDZAHf/l/BkGzCdKhiwB7vwZPvwknsAUL4A5/+J/00Atv8A8v+bAMb/vP8Azf8aAIcAYP8AGQCjAPz+aQAA1gCe/joA6gAALf82AGEAbf8AEQAsAKH//f8ApQDi/yL/fAAAWgCb/2kAlf8Axv/gAEL/+/8A+AAN/87/hwAAt/9fALP/6/8IsQA3AAqkAFH/AF0AegAZ/wYAALQACQB5/8j/IrsADmz/' $Extract_Sound_Open &= 'GwAFrv8A9f/IAEoA2/4ANgDBAF7/XgAA2v8J/zcBTgAAAP9VAAYATwCASQDc/jAAnQBRAGAAzP+p/2IAAOb/5f8WAFMAACYAPv9OADIAABr/DgGSALD+AA0APgAlAFIAAIn/ggDN/yn/AFEBwP/1/kEBAJ3/Y//+AFv/AK3/zwCn//H/CEsAsAA/NQDV/yqngAVsgGAmgEB0/wApAEAAxf8wAADc/8H/WwAkAIKxgDZLAFQAxIAPKtOAj3OADCuAR/P+iGAA/IB4+P8FgGIAjgBFAL3/1v8A8/9tAIj/yv8A2QBf//z/xQAgA/8NAJGAOpkAABUAPf+9APL/CGH/b4A8xv/lAID7/yX/AABkgCqALgATAHr/TIBmgMn/CwCU/0WAlAhG/1OAjGb/CQEAZ/9R/2gBBf8Auf9eAZ7+KQAgDQHB/n6ASEz/AMMArf/d/1oAIB3/pgBggJubAABW/6T/8wCM/wBRACIAD//yAAD3/zn/tADD/wD//1YAZP9+AIgCAFyASvj/kIAuIOH/AgAIggCF/wJBwFjg/1gAqv8K5kAKmkA54f9I/wLoQEdw/58Atf8AQwABAHD/EgEAef8j/xgBI/8APABpAXT+HgCA6ADM/ogAacBBCJIAA8AZGAC//wBIAN3/FQBCAII8QGByADb/ZUA1grBAJXv/0/+gQCGIIwARQGZjAFhAWQDYAPr+FACzAAAx/yoAqACB/wCI/2sAWwCK/6I5wEU2/1JAdzBAkAAFAIL/sgBX/wDQ/wUBg//A/wLwQD22AI3/7/8gagAp/5HAbQv/AOQAy/8O/yUBiUAW/67AYggAF0BzIDAACwAgQGtc/wIiwGGb/7T/FwAINwDkQBJaAND/gqrASQAAWQDUQFgClsBjev+5AJ3/AHH/AQHH/w3/oJUAdQBUQLSuwHcA1v/TAGn/z/+iisBlRQCcwF4nwAsgtP+aALnAcj8AIKj/gQAWQBlVAIrjQMhiQDlCAGNAZKAgAAwAykB87cDECP7/DMCpsv8dAADn/5f/9wAPAKoeQDvJQJD2wBl7wNIq/UCkscADgUDYQgAINAA/QHQiACL/gHoAOgCe/2TAfCCt/1n/PUAyrv+KKEAWe8Cd/f+iwMSAs/8+AF0AKkCvCi1Abp1ABsf/xwCAa//0/3QAZcAGKl7Arx3AtdfAyu7/CvpA3RDAner/VwCokv+z4lKoYDzhoFWCCmAnHQAvAClgEIi5/6EgDYr/rCBAiN//f2ABHQAfIB6gOQDW/0lgBCvgKwpG4BuLoFel/6oAAKb/DwBzAJb/KAEAG6AXE+AfWwACBGATzQBO/6D/IEoBTf+HoEl//4BUAHwASv/2oDcKRqBdqqBXxf8EACB5AAf/XCBf9/6o8gCOoABeIH+4oB0qsyCJ7WA+leADdAAAMAFd/iEAEwGqGWAjPKBHXmB0HOB9gnAgliYAIwBI4B0AQABDAGf/kwAq8eAsn6B9qWBQNgACMCA4JgCFABT/Ar+glrj+FwEkAKDH/hEB+WATpqCIoAAAggDeoFc8IFQALgEs/9r/UACCkWAXx/9F/8TgOoLP4GXF/4MAzqAnKFQAF6BbNWAJQwEA6f/P/gEB7P8Ikv+NoDQUAP//IOH/hgBI4JPmAIKXIGHz/3L/wKAhqmIgqyIgB64gHkggCQDIAPT/eP4CAQCgABj/0gCD/6oq4GvJoAxxICgZoHEoAgBX4EKB4Ej+/oC4ACoABv+rIBqAp/+wAJ//w2CkItQgRQEAKCBIuf+IhQC0YKjSABNgHSoJoHTxoElsoH5UAKjR//fgPTvgD/VgEwqUoJV7IDzQ/yQAqBkA2yAIYCAHDSBaiAb/AyCL+v4XYHoCQGBB4v9d/yIBoO//Xv9sIJpbYFooM/+QoEZ9IL+t/yDc/8sAY2CpPgAou/91IHZ3IEtmAIodYEE8ICV6/6JgI4BP/zMAFADqoCiixyAPDgDBYFquIESqjqAiL+ARXGB4DCDKgqngRpT/' $Extract_Sound_Open &= 'jwDfYECA3//M/3cA2KB0KCMAO6CFjmBkKwCqEiACdCBV/iCUkCBYyPn/muA6zP/gheDAKu0gln0gr4Hgqu3/iIQAmKC0fACkIEaohwBTIA/bIAnOYCcqy2DcquAE0eAZxf+oRwBqoARmoBpkIMaKj+AhsqCBjwAoYAOArAD6/9L/EuCvisQgETlgSS8AieAVqBoAdmAzCGAXEiBMAaEgzf8lALwAWl0ggZtgoKBK4MJT4HM4BWC6LyCMUwAaAMJU/6agDUUgXnugBgUV4HJB4JWt4JKz/zJRIDyEAJSgnCUgNdRA//oAdv9toEfjEeDI7f8W4ChZAEkRIB5/AJNgZ0MALlQA7OAxpaBAt+BJklEgldj/y6DxgGC7AEQAq2CVkf/EYAeHRP9h4Lo3/76g9WMV4KjHIEVaIBYOAO8VYENeIMTvYLyj/+hV4BT/sAfDUFX8UGBBVbBgC1AKe1AdIHAgsFVwPBJwET1QQyWwT8cQ/wcBOfAo2P/wVdCChLATiRAS4/AOqkT/bhAZcgDocGNwRRAS4LAhnv8tUFidUbAb1P+38DivMDFpEdAX2v9GUHQkADFFMCGdMEuUALpwAGFV8D7MUCwEUFIIkCDZVXA2QFBI61BVsRAUG1HQg6gAnxIhWRABTFEwNJr/dlAEpBAFMEUQS9mwCwAAB/AD5lVQA/BwLWowZZUSZOFA/xAAaP9n8El6UdAw+v+fEGsYsC/qVbBdYlBPuRBd3/AaM1FQD0sAdxAlDbAPCVXwY74wPC4QDCFwc+ZVcAYKsATMMJNbEGz/VRAJuzB35zADklAXwBT/WZANHXB2qv9PVVAG97AWrXAdKHBQK1QAvNAGZdADC7AT3EXQe9XwbkQAeBBlwVQANbAClnAoBpAv2VWwluoQDC5wkAiQM9JVcGQUsBIj8Bm/EDxJVVAw8nBC31Bt1zBOvgEwBlz/FAHG/0oVEGzCEB5nkINfAE5VsAxu8BGUEA7jEC1gxXAgwzAnJwD80ADxNqqFMA1FMAxHECmo0AUqMpBQ3nAd+bAhVf+IngAekBPX/4uwG6I3MCP//x5QLf+QGaoRcGc/kBCrMD3b8EdafNBk73Aa0W0HEBGlRRAlctBj9P/jcBqOFRAqUfAsCjAMKgBuRTAZ1VAv6//YcAEaVbAi37BODhAPETAnE68QLLBW8EcRkaewHq7QJajf/8rwB+ewRMCwOCDL/6//p7BDh/8uMXAVMRqRJmkwB9f/Ku5wG3mQFYBQdzkAKotQZinQGCCQFO7/qCwAzxBPalBMk7AHKkdwItWQUCewVeL/qt6QCQbwSxNQH/SQDqrw8BgXsAwD0EbkUB+iFRCtLwBWcKK98EYqJLAC7jACJzA+2P+qfdAhr1A75ZBHV9BZq3AR0ImrEC31kB8VUGyqXVAEbtAyZJAHEfBGqpkwAncQEPvwUKswU6orkChLUArP8AKbcA6K4JADbbAgMQBVsAmqlJAHcjB6j1A8ghBAqrpQTQmwMdlQC5GQJqqokFmjsH5ycFhSEAOCR1AxQACE/4wwC1p30G70sAcRcL8QNR6tMBr+kFkRYDawUjNwNaKtEIbl/30QDPawBqpA0Df98op0MBfhcCGohv/pcDty0C9ccBoqKlAFwZAXAPIwAwCKULAlwJAIKACEMAKIb//CMILC/zUwKqr1UES30Cg28BHxkBgqDVAJshAog1AEnP+qOrAkkzCRHNBdVpCqqo0wAxtwD/rQVGIQKapv0C1M0A0Y8LwS8Amqk7AKS5CIJlACqpAMq9CjMEtHkKmbsFou8FOqIBAp2xAl3jAWMXA7qiaQA6dwDBHQKzFQZ6rnUCLbUDXscAtg0BOKkjAXHlAjEgA/kB+qvlAW/lBCNBAcAFB3Vp7QBdGHPzAwjtBMHquQf3FxshAGGVAHG3AVotCQKwcA8JAi19AaokoQl9f/8VBMXFADqhSwV/vwmknQxagQfajY/5FwOVdQauWwVKrQkCg0EEztUFfskBEi' $Extract_Sound_Open &= '9LBVYQDIEEFWAKLpMApLAEFQHpvwE6IX0BO//4kws7dwU6rNMFwkcAUacAQikCRqndBMAlAJaPCxUdSBVVAQRbB3h9CQnZApdlXQR9FwRdsQS75wh+hF0COGUC2l/wfQiBkVkFL+sB71EMq9/561UAbRcEdD8ElRHsIQ0wir/1iQl9L/CQCoUQBx8BNKsOL78FYqUVAGXPCqZdAKzv+i0TAd8f9DMFUgUDmqf5AGuVAAnPBlczAtqghQF80QEdpQCy4QGaoBsAnr0BXy8DPuUMGqG7ARDDAw69AXtzAFolswbycAtxAN5hB/KrUwHukwRzywDBcAqoZwCiuwMJ/wI9VQJ6pacBYkEMO7EAzaMCKqKPApWjAGw/BPo7BOqGoAWXBTJpAmebB4KrSwC6PwqnCwtQ4AqjhwBy/QShCwQ7xQ26r1sC9GkJgB8G7PsBai93AOKwCgMAhPkFSqShC2jlBd+BAEWtAOqvXwKN2QQQbwJxYwWar+MO0MsAjzEBnu0D+KQzA/6BAkuP8fUAValtACFpBLETGocMPy1TA0IfAAIBATzdAWUKRVUEJXEEuV0C80cHoeVXBbG7CEerAPbLA7SkVQBXowVfz/abBfERVQJi9wuBSQItb/tlVwDzeQU++QWt0QNNxQ/3X/2vAKJ/AKFFUQB2gwlgrQR3EwUEAVsHNl8CfMMD3E/2u9AAEAQwC0/xoAAA0AwP9FADIAAM//xf9OADoAAJD/GAACAMb/AL0Au/9Y/8oAANP/lf+4AML/ANH/NgDE/z8AIPj/0P93AGzB/yBkAOL/CwB+3/8IIADuAGomALX/CgoAkgsARtz/OgAA1f/e/6IAiP8giv/OAOQAujoAAKf/QQA5AIv/ADsANgDr//X/ALT/MABGAOX/AusAL0MAEACY/yBHAPn/ygBZ6/8iFABFdv+HAKWD/4ImAI88AH0AGwBvAMcAkf/P/+f/ACQAjACU/9v/ADkApP9hACoAAIX/SgD7/7j/ACkAIgD3/6H/CAIAfADT0f/s/woPAAmAAFWrAF//APH/rABs/xsAAFwAfP8xAAoAItGAaNH/8IAWBAAAaQCd/6//UQCA0v8oACQAvoCKIMr/x/9vgA/6/yDz/7z/ZoBo2f8CYoCQLABbAFv/AI4APQAU/3UAIFkAl/8XgIgUAKCIAK//v4CTHoBECtmAVTKAicT/hf8AewBSAGv/JwAoOADLgALlgIQrAABM/yoAfgCy/4I+gHOZ/20A/oCGgi2ABQcAIADmgAICHoATx/9EADwAgIT/IgBaAJmAVyAOAKz/cYAhj/8AmQAWAM7/BAACvICbKQCu/y4AAN3/1v9jAOj/AsmAQwYAJQD9/wDM//b/GQAYAKDa/xMAB4BtLoCSIMX/aQAAgKg6AKgTAOBAB8LAFhlAFSA3ABUAw8Am//8I6P8RwE/1/w0ACh1AE87Adun/7f8CIcAEQADe/1v/IHoAZwCMwAvk/4Cm/2wA9v/mQHOorf/lwFEUwFCxQJSIWACmwGdFAO3AbarqwIk5wDLVwHjywBqgNQDv/6RAN2VABgLkQH+6/9r/WQCoHADhQBr8wBD8QGgg//8AAC7AF87/KD0ADMAd2sA0ZgCKMEAwEMAY+/8JwACAIwDc/+7/Z8CuiMv/U0BR9P9dQEAqBUBRxkBnKEAu5P8o+/9QwFCpwE00ACrxwAnzQFzZQBc6AKLHwKkvAOPAT81AEohHAHNAJoYAVUAIiJYA0MAb2v/9QBWK2MADJcADCwD6QCUqP8BbzcAeIEAXlP8A9/+eAMj/yP+KBkAda8Aqgv9ewDuK40ANrUDCRQB7QEwqS0AnEcBh/MBfxP+qDMCC8kBB7cAUG0BBiCEAm0AZmwCiwKyIRAC/wIFTAJ/ALKr6QEdmQDTUwFvPQAigMADX/xZAHefAugIGQDL2/+H//v8qA0B4D0BH6kDXaQAAhwBZ/+r/dgAKycAL+8A2bQCV/6ia/4bA2tvALONAWCoI' $Extract_Sound_Open &= 'QDoSQHfpwA4oAAo7wLjYIAH8/08AqhEgXQogGBYgTcOgACAjALn/L+Bz0/8q1eADRCIqGKAOHgCKLKBFFGAIwf9I4AmK8OBco2AjVACq4BKiLSB2HADMYG1R4AGAFwAzALD/H6AWqt2gGd4iX73gDRsgFooQoI79YDABABfgMIL0oBaz/7X/ciBfiMD/FeA7///voCaqD6BWGmAP86BL42CHqBAAGiBe6yBaIyAyquLgEg4gEO+gey8gLCrqIBX6oAwdYBnF/6BMAFUAtmBnYeBRqqlgGx8gggggAwKgFIoQIJXyYC/x/9PgRCoVYGDsYDpWIC20/6hfAAmgNzWgZPBgHqAAAGMAuKAweuAhqsagO+dgERHgBSHgZ6LuoBrw/x2gK+fgTir9oCrd4A5qoCiw/yKNoHGw/6ogPsf/ikJgRi8gmpr/cKBoqqjgmgdgivHgFk0gASKioBlFACGgnuH/ootgG6X/DiBlE+AHqhxgnXBgD5rgY7YgEqr3YBXa4AFT4GTpIAqq0CAeFuAnBmBD+KApihQgLbXgH1AAf+ABqlagXiGgLsKgFuIgqypVIFnK4KUSoGL0/6o0IBfO4A4KIDzzYCEaV+AjqWAzYYUuAKtR4KxDAHrgB1DguvpVYIhDoJx7IHlWYEr7VWJpDqAEHWAn5eAbwVXgET4gODOgBpmgBAJV4HJkoJLVoCm8YG09VWCZ/mASAuA9zeAFFrUibuMgAyDgqmERneA1KCMA1uBL4OBkHQCKt6BHB+BGOQDUoByqTSB2xSAbJ6AD2WAeog/gMA4A7OAHHGAbqgzghc5gEvwgwiZgS6rt4ALoIJf6YIMjoCOo/f8III/wIEn/IJqqFmDVyaAvS2Aj56ChoulgASIAA6AJ3yAEqhJgcgcgB/ggC/LgWKr5oDIq4BAB4MKi4MiqeSAw3CBh7KAYyqAOqnvgAaZgzhmgRu6gvqonYFf64A3goFwFYCeqK2Ab5mAO++B95+AhqkngC7Ngbw3g4wBgJ4oQ4AMGoCbH/+BgIYrtYDgJYGTw/0agoYq6oFZLoCzh/2DgH1Vh6+qgCt5gG1jgSsOM/2jgB2FSFgCNIDiqeKBZhGDHVCAM16B9qikgDMugGBvgGPFgKAolYJ3PoMMQADcAqPP/omC3YaAs6RAXqvywEu5wHw9QBhDQA6oC8H/GsEVEEB0WUEyqyvAi7ZAAVtBt+xAMqrVwXmAQDcRwP0TwD6rO8BkLsAnv0FZb8BYqerAnI/A9cRArnv+qVHAc5lBA0XA9GjArqhDQHRpQDqlwWmCwCWLDEEkuAPTwDRGD/lHQJv7/OBAKyrAT7lWQEEAQVupwV9AQLj5VEArzsATcMFslUAXaVZALMVAD1VABOFAFs9WwG13wSbIQhBCQCVFkqiiwNMzwAiEwBeVwHaoHkHIJ8BPdMAUxsDuq0XAIKTBGAZAb2/AhVhtwBREo43QgOrAB1lWQXv7QNwoQUyFwBttVkEYVcAX40Fg1EA+1VfAyMlAw6vAmHlBS1VXQATfwNuJQLP/wKRVRMAkEAGJQDq5QBQ1VEAMiMDvsMBr2MAMHFdAnJzANxDA6JgCeVbAGMNAHAbAo4fJ33VXwFxSQEhAwF9vQRwZVsAIfkAPYUAAh0ArjVTJJHJJQ8ZAJLHAJqlVwClXwHc2yGe6wE9pV0DoicA8AUADW0AEHVfAJLJABvlBUGjJfEK2QSysQL/FqKpA6/bBLqvzQfelQHEEwAtMwJKrtECM5sBzfEAH3kC2qJTAJ8HI2LdBq11A/agZQbBYQDfzwClEdAatQE3GIx1A2PtBAxdArqgrQYTXQj8iQBhMwT1YKsBmxPOPwFhlQCAGrUAGRVQGwMBaQFNRwDKo2kD3fMAUNUAIFUACq9VARBFAP8vA4ELArqt5QAwxQDe8wEyqwM6LN8Cf2/5gQOTAwEqrw8CwKMAn50CbgUACqKhBI6TBA/BA0AlAEavtwEQ3wAt9SbHGCG1XwCdhQCRYQ' $Extract_Sound_Open &= 'RhpwBchVEAENsFM38BjLEE0Fq1AFERoJkFHXkEcnUB5a0FAEHxAJsQz58AjqVdAdKlA687AMzJA2N1WQIgXwCMgQBRBSAButMAb38AJRMfDwEwSQIFbtkCGRBRAQO9swJANFsAYjkCcFAEEwFvdVEDWsEEZUkIPncFnyVdAqCZA+A1AM/fAH7a0QAxwQEPEyLJBO+HAuqtvwQRUwFh2QI/IQIarDUBhb8EfNMA0BMA2qFNAd9LA9B5AC8xA3tgcQopEIFVAVMYbaMEiqFzASKNACxhANNDAUq/Ggcb7lMClEsBW5MCCqNHAI8vAG79ABBXAnqiWwBd0wSfAQFz7QR6rgcHL88E8KkDf6ECmqG/Ar6HAKCtAcADAjqhuweuEQQAkQCAMSFCoPkIn0cjQc8AP8/1YysAXxxiaQAs4wYCZrkFhRQhZQG89wN7F9CFUwAeTwDhkwAv4wBw9VcIjkEBoSUA7h8Aw9VVKUPZAC07AzBxCP8lXQzCUQBvewOtxwJUSrkBQROzkwE+OwRAPwKqoTsA4K8Ef0ECDvkAaqRXAG01As6VA3OnA0qufQDOqwDCLQGAJSc6oxkkcFUBHaEJ88cC6q2dAB6JBEJtAP/nBcqvZQb9+wGDbwD9hQP2oKMBkH0CT2sF7xE/pV0AYMUAD/EAPxUMkYVABxkGKxsAsCsCozVfAb5lAA8LJt6BAUE1XwGfzQA/LS2+hwAyJVUBvtMAgEEAACcAsZVVAV0zLPzDBAF3ARBlXQDQGUEQqwLiEwGdhVUCP/0BUksDbYMHIAVXACM7AYpJAXT9AV01WwKQbwE/yw3R5wE9RVcEcoEpHpMBsekAHoVZBUH7BPv5AqTXAVzlXQBRrwCdIQMS6wCO5VMAn78tbvcAsRkCbqVTACJxAHvJABPPAGxrXwBzWwCcqwIzEV95ApWgNQD/dQADEACfAeBdQATrAcyxA/G5AesZmqArAB/PAvFZAM1PAE6iLwKgRQBdeQAfGyE8VWHJBC8SXxMCH3UGErVZAK3JAKAdAXHRAd2FXwFCCwHvIQBAiwDOy1EAYkkAPjMHpxqToQOKjd/1KwL8+QqRhwAFUxSyhQDcmQAz1QNNBV8JkcECoDcJLzklvmVTAZCrAs3/AMOdAczlVwNAyQVBHwA+wwG/dVUDAUcCDpsAb0UBIeNRAO/xAO5JALcVsCAKpAEGbz8H7LsBFAkAKq1RAWGTAH1ZA7KTADVZHUChBTC5AI51Ax/dWwLRywJ+hwAfwQL3GSqgUwB+DQBi1QCdLwAae8AC8A4v/E/yIAADgA6P/h/xoAAAoA0P8HACcAAN7/+/8XANv/AB0AFwC//xUAADYA1P///x8AANH/+f8oAAMAAuYAzAQAwv8RAAAuAOf/7P8SAIAdAO//5P8sACqAzP8WAA8A7gCaIvoAihMA4ACiGQAK8gAqBgCiDgAbAAD7/+7/EAAWACDl//H/LgAN3v8CBABHEAC8/wEAIlQAR9L/DwBjEQAA/f/r/xgABwCA+f8DAP//CQAJgAQA8P/t/ycApwLfAF/z/8v/NAAIJQD2AE/k/yEAIC0Ay//1AGEEAKAaAOn/5QCdEABHgv0APR4A8f/QALMAMADK/+f/PQAoBQDPAM0TAIEJAAr0gBgwgGzV/0IAqAgA14BMHYAy24B6oiSAg/T/LYAg5oBjgg6AbBIAPQDNgDaoPwDOgBBMgFXigCOA9v8CAAkA3IAjKiKACO+AIAuAGfT/Cv2ARv6Ae/7/4/8CI4BJvf8GAFUAAMH/uP9nABIAoMD/GwAAgBcpgDlo3/8zgAXngJSBXt5VgF04gqQugEG2gCEaEAD1/zCAlKv/JlQAQoDI6ICL+IAKIlWAFeiAzP2AbRSATPBU/x6AYQCAFO+AJQlFgH//gOsWAByAPQAUAFyAd9CAk/T/81GAmwkA0oBPEcBG/RXACBlAV93AOgwAtRFAHS8AuMB+NAC6VP8FQFXrQBj6wDgrRUAo1kAHFQDh' $Extract_Sound_Open &= 'QDcXVUAg+cJPA0Ap8UAcDxXAEPzAOhDCWeD/RxQA7UA2F8B+CQAgRADWwAkhAOpATw5RwEL5/9lAfTHAAcYFQAcpQCYBAB8A1UXACDzAoOL/NsKTEUQAAkAA6f8MRGg+VcCjzsAICEAdDUAG3wXCdg5AAtb/8v8yrUBJ2cBJQTYWwJzawkOiF8A17f8xwETNQAOqKMAR9UBX3cAnM0AmiuBATvLAJCwA7ECbihfAGgrAIcf/+EATqu3ADQ1ANgzAi+BAW0b5QDPBccX/CECn51HATO3/1MAJHUCT+kXAVwDAHOv/2sB1ERXAhOJANC7A1bz/SRVAUpBACHJAYcr/T0XAOuNAUdP//MCR7lT/yUBqEkBG3sAiQzXAELTABiNAykFwAwCqKsKiCkAg9UDe98BviijAX9NAnRQAvkA5ojtAJt7/HMBt7EIuKtzAjjpAYc1As/r/CLP/TkAWlv8kAIBMAKr/9/9bwEmozv8vQAvhwDoWQDtq56AQFuBE9mB14XIZFSA1zmACIKAd6v8LVSBZE+Ao4CAmBqAiHxWgLdPgNyTggeT/KkUgLdUgJCIA5KABPAXgErggRTwA4//pRSAF/eBWCwDZoBhCVSAs3CAqCmALBOAHDa1gduqgAyFn/yA49OAEqgcgJxHgCu7gKPqgS6ov4oscIEPb4AUb4BWq+2Be+SBOH6Al5iBYqB4AAWAjDaAA5OByqiggLdwgJwugFRfgDKrJ4Aol4ATkoFIZIApVoYEeoAgBICzVIBcjVACzIA07IATu4ArmVSCRFOBZBSKADyCg1FUgBjTgSu6gU+fgaw9VYA8R4A3iIEXwoD4+reAbyKBK4Rkn4C3e4ECi92A5IgAY4AD+oB1WCaA3YQb8IDkeYIDgVSBTAWBHNuBFuCACIsQAxuBtNQCsYCDhRKoSIDrVYE0joEru4ACqESBW6uAxAyAMM6BwAJ7/9v9vANj/qsFiheKgCQIgMgMgA6oHIBLyIAb2IBooIDyo1P9AYB7FoI0b4BdW/6ARoR7+IHgLYE/fUaAOIADD4Bs5YDvhrWA9/GAEYYj6IGMB4Bdq/6As/yAKFeAHYYojVWBPAaBF5uADLqA11avgSaGW7KAY6aALJaAgatigeSPgC9HgAGEx+tT/NWA82GArCWAqITqqHOAr4WAPFqAc/OAaWvdgOAUgUWGVFmBH7LWgHg0gDfsgBeEpCyARquhgTQvgIfzgHO4gC9b/4CphgvkgcPDgByFzqv5gN+ogBxxgIuxgFqoJ4AAEYILxIBcU4AOq3aAZJqAEyCB4ICB1qvjgNd4gBTngJczgHKoUoMn/YGMFIAru4E6oCwDIYAwl4icy4COq+KAT9eAXAiAyDuBZaPX/RKAezuBQYRAS1eQX9WAOE2AB6yAWYZZa+aASF2ARYRQDIBgdReAm0CBzIwCuIA0xVWAUDuAH0iLs2uANAKtgCuFI0qAGESAn+6Bli+EdoTD6YDYcAA0gLqoAIIrtYCMWIAvxIASqCuAG8mB4EiA13OAcWinieAOgDqHm96JW+dUgHO/gHCQgB/bgCCHGWi5gEukgLKHUJDASzVUQBBhQBwzQCOawHghV0BYMcCUA0lP4kDD3q1AH8WrukHAG8ATxkASqItAk2RAMJ7AE4dAIqgfwDwPQAfKwAB6QCCrgUBkPkA4GUAvT/4jd/1OQDKr/NxBJisYQDB4wYgAALHAMqufQCRVQPe6QCQnQCKoCcBbyEAYPcEnxUB6q/tAJAxAB9RALBdJeqt2wASkQD+PQOA/yYaoHUEACkDUAMAkTcAOq8NAADPAjBhBU61A7aipwAs9QAxXQPFEO61XyVQ/QKOiwICnwIepVMAgDcAMFMAb20jv3VVAmB3Ab/XAKD/AX5FXwCSawEeawGwWwDAFVcBbxUBsQEAHvkAYPVVAE6ZAtBBBQFvAU5lVwAwPwCAswY+hQBBZVMAP+8AX2sCIBsB4NvfAC61AVsQuxHDEVCTJtqg1wGwvQ' $Extract_Sound_Open &= 'FPcQNgIQXqoJkAIEcBPpkIg18ANq2nA0AvAMG3Af0XkHVfAI/NACGTAD0hBiGnUwdPpQDQwQCvEcETztVbAE+1AAHXAg21AYElXQkhwwK8pwCCswBvVFkAkNUBXY/9FSMNFVEBQZMEnskEIX8ArhVbBN7jAsN/ApyzAWD1UwUgZQN+qwDwrwAQV1kB/hEA8ScBORgZGP8VsQGrGB3VADUQsg0BTkVTAU9lAACLAF/TA68lVQCPuQFQ+QHezwFBLV8AXfMA0bkCPwUE6xRar78BsEcmks0DIEcG6q2bAHLLBO7rAJD9AHqugSRu9wBxXQFPewAKoQMA/gspP+0AX7MBuqDPAL+rAS7XASGdInqiZyaAYQARByWh3wErricBMQUGcRMLEM+3AQqgJwIgyQB+5wCAJQCtVRQwQwBwiQJOzQDjGt1vjQNbGj7NA6FDAMsUrq9bJ99PAI/TAccaUxaqoHsBUQkBfksiPZ0oSq5dASBVAHJ1AA5JAWagvQHRxQAOCyJlE69tWQHRuQHezwCv5QMXEmVbE1CXATCBAxCLAY3EVQIynQGf//K7AECbVQDtjwEA2QC3E189ATauoQCERwKMSwBFFKI60wFPVwh5GhPJKuIxAlqtaQbf6SX+4wFCywLKrgUBD50AwTsC3x0CdWAFACMTH3sA3/UF7+VRBAGJAY5lATApBeILUwGdawGRiyU9GaFpTA1uxSXzF7F9AJB1AL8RGqEzAD9BAZDRAzCnAS2vvQKvkwCfObCzJkMUVVUQYCUAwH0CYMsAXpVdAJ/XBmHfBE3pIw/dXwLgTwGP/SfP3SEnGCVVFRBFAeAzAJ7lAnD1XQBAewBuuwEQkQIBfVsAznkBsBEAoY0BJxO6oO8mj9sBX2UBIU8ABVcRAfkAT3EBz68CgdVfAb6PB293B5HPBi8FVQJPDwAxTwA/pwXexV0rHi0mDoEAkw0AzbVfACANJc/9ASGXA0AVXQC+6QAgpQAxDQC+Cr0CBR1gwQIPvwCeSwAmoj8ADqUGf5MEPRPgW1sCP5cAwDgacwA/HQCKoEsA4TUAHSsAos0Di10TTtECAC8ECxI9cQAqoFcAQ2sAvQsAQHMBOqIRAQ43AnB7AODvAAVTGE9RJ19HA9DdAC+NWwAARQBQXwHe8wMFGcqsgwESXyTwaQA/5QCKr58BsUMrkVkAne8BWqBvABErAa9XCu37B2Wj9QC9mwETFdKFAH9lUwEf7wEuOwAiiQE9pV8AcOkAnvkhbbkAwZVXCcFXAGy/AFNTAM6KuwhtGf8BAyB9AMCzA1rTFjARAL0VfzMAPzkAmqE1Qd4xAFGRBfAVAAVvfyOTEJ/zALBpAN76uQCVHkAvAC6jACJlAKqvWwLfAQCRTwAfPwBFoEsDkGsCmRzelSctv1MAIw8ALf8Cjx2zFuUV6q93BD6NAyJVJ1IFAKtVEA81AZAlACEULc8DSqCDAGEpAr8ZBKGXInqvzwJfjwDPgwhSbQLirvkAvqEAolEOIKAFZK0N7xytSwABv2gg9VMAbxMAPrEAoasAT6rfBB9XBacSQD8AEGUpyqAjAH9tAG+tAT+PACWh0wDOqQHhGELfAm7gD/srsAJgDz//v/HAAA3/8GAAkA5/8AIgAFANT/LAAABADJ/y0AFQAo1/8OAFz1ABTs/wLuAET7/+f/FQAABwDr/xEAAQAg6P8ZABAAXgYAKCYA6gCOIQAK9f8ADQD+/wgA9P8AAAAqAOb/3P8gKQD//+MAav//CPb/FwAu7/8YAIAIAPj/8//4AIqqBQAzEgAF4gALHQAFAPz/GwD5//L/iAQA/ABLAAAOAG0g8f/+/xMAD/H/Ag8AgeP/EAARAArpABEVAKUPADYAoMv/6f8mAI8HAF2C7AAJ9v/L/zkADYjO/y8ABcv/KAB7it0AnQEAjxsA9wBXAhgACQkAIQDH/yj//zaAe9yAeQ0AqNr/8IAPCICJCoBPAvyAYvz/9//5/4ABABwA7//o' $Extract_Sound_Open &= 'gJMK84AdEIB+AQAPACLkglTU/zOAAs3/okOAB9f/RIATx4A6CPn/5IB46P8MAAATAOP/CwAUAKrggI8YgE/tgKUBgCOKFYBD4oA6/P/OgFggEgDK/xqAPO7/AhaAgQAALADb/4j9/ySASAEAF4AIIiGAkNH/IICG8f8iA4CYDgAjgF0GAKotgAfsgFYIgAn4gEeq/4AGEICR+4Av6YAdAgGABSIA3f/a/yJPgDnE/y6AOu7/KjKA6++A5t+AZiMAKuVAGhtACw5AVdf/qAIAGUAp+0Au+MAVKgbABQXAOvJAYBcAqPr/9MAcBEAZCcA5VcEzBMAdBcA4+sAs/1VATxFAMvDAeRVABu9VQAkKQA73QC8AwD8NVcAX9EALA0AiEMA9DUQAGMI3KQDQQBspVcCR/kA860B+E8Jo8kVAlxNACPr/HcBT9UVAACBAFdT/HsAR1VHAHgcA3MAC/sAFBFVAqBrARspAkhrAMw5VwCLvQA/xwjHxQBoPQcBAHgACANlAGBQtQFIVQDnBKQBAIxAAiv3AKP7ACwsA3sAsqhNAYRHACvPAYuTAQII2QJny/z0AzcAIKjNASBVAGtXAlPr/qNj/MEBY4MAU7sCRqhVAN/7AAQdAPefAHKgZANZAJihAHvnAFioGwAviwCcdQAUJAKgkANhAPh9ATw3ANBXBhPxATxxAjPj/Ki1ALPBASEG4DkAgDwCqDMAXGsAj7UBA/8DNqhZAdfJAbQtAUOpAF6obwK7pwDoPwAPwQIDVwRQGwG8DwDr2QApBAarxQFH7wBUPQEz7QAaq/8AA+cBWDWAz86AyqgGgFwygTPjgEvygEKoDICAD4DD44BkO4CJqAuBQ+WALB2BNYWL8VaATAWAtBuAl5CApGtVgFwtgHs4gIDFgIuFkVuPgGuEvB2AM6uBHDW2gAPagBCE2DyAVoVT2VWAvDKBE+yAR82AaFlWgAOtgBwigIgAgPfhVYAIBoI8GonsU4AHkdeAFD2JUAyA3YS4hCv+r4BGhCw0gCv7gGu7gPVYDoEdhYtSgXA+gQxHUABvgagpgAeliC+EcqvWgCwdgIgKgG/8gB4gCABbgFvb/J2ASWumgGu5gAqMAGeAeAK3gD/ugGuF3DGAJGaAkRvLkNuFp5/81YBHxVeAU8uJm8WABFeAe81WgHBWgGAOgKOVgCRtVYAUHYEHaoBYPIEImRWBPvCA/HwDEoI4aVWAfFGAb6KAZCOAJ+a3gJQuiI6EBCOAV7iAIqPT/3uJf6+AT+CIwuvKgMgGgFKOs4TUDoAuq2WAqI2AMCuCl3aBAivjgSDBgEdL/PqBEaslgDxAgGRrgDWFm/rUgJwygDgHgJmG4EeAOqvLgEBXgNe/gMvliNGrrYAMf4A32IAIhR/lV4DMIIBsAIKX6Yqb6tWAJ9mC1GOADoSrqYBiqJqAe82Ce8uICBqAj1gaiLuFZ9GAMBeAa4c1VIVEHYCAWYDHZ4AIkVaC1/SAN6mAoE2A3FKuifuFt+yA77eASIiACqu/irO8iLgxgOAigAKr4oiUAYCLzIC0FIA6qBaIBEWBD6qAlEOAqVWGyDOCW6eABDmADAlVgAu6gFQfgFAOgAPpV4HXxogLwoAIO4AQJW2AdYSH44BzhZwJgBOvV4CH7IEYeYAPkoAzhZGshe+Ej7iAWCaK2ISMUraLKBWABYRPoIHIToDFa/aAW7yAQYbnnIAMNV2KuYSjhagmgDPCgKxZVYA7soALw4B8MoA79taAA9aAG8yApoWsFYEer4YvhzQ0gAuCgCgNgIaog4Abq4Ab/YB0DIAKq+SIs8qL+5VADIJACWPL/KzAg0UMCcAAHVdAIEhAU6/ACH/ItH1WwCO6QBPGQBB2SSQurEAbxMAuwDAkSXwpSEqoNEFDhUAAc0BsIMDda3FAPINAD8TX30AIAtfAcFZAH6RKBcSb2shCrAALwCQcQA9aQAjJQEVbqkBoRSAfwCRkwB+JtUAUOEgFxOwyyTJEd' $Extract_Sound_Open &= 'D6vwBtEf4TAjBTBaKlI1qhrwCdcQGBAQBwuSaKoRkATvUA8LMoUYEBuK+pAQ4xJ36P/lkDyq+3ABCRAbC1AD2nAG2hkwKwUQCZFC/zJH8Q6q9hALFjAI6ZAQ/FARtZEdBnJfA9AcMWwQ0AGqAzAR/PAEBTADAfAOtfF9BfAL8HASUQD8cALa/7Jw8TKNcQMIcAqRK1bsUAhxTf3wIveQCwTXsASRUNE0A7Az+xApcX7VMYoB0Abu0AQSUgpxW9/RZlEJ0QpRKFFt6TAckTat8QjwEipRRgqwPxawB2rdMAkRMB0GkAnxkfPtsBcXkCCRbAswBzEKEU268FAED/AF0QvRIwDQAtb3EAGRUQzSaQsyWxEWtvlwAbEADpAGMSXuEiVV8ZAQkAYMUATdUAAW1XAr/tAH8zIC/VAFMUjVEQvokCEL8Bz/UBrxTGIL0H8KACKQDPFG9VXQHPxQCiBSqQ8wLfzrEAGRgg/QD/ZwD3FHUS5aCZAG6rAA8Yf0MAjy1XAdEJIMEJAC/rAE8SuqAtABDZICDJAk4/ADVxE2EwRTcgjQGfuQAvDfUAGRaHE9cWrRdv1wBFEPVfEb/BAE/jAKCPAXA3WSOw3SDPmwBxEksQ71rZAj91ANcbHsEBj2MA62EbAD8WfhUiTxbxgyY33xKBHwH1Ep8TXxJPFyEFUwAgXQBARSvAYwTOxV8AMacCT1kCz08A0a0bAS9P8lcAXxsAAxM1FRrgwAJ5A0+XCZ67XwAg5yehawGJE+5tAMVg3yTxGuCjCy3fAdJV2QAvIwZ1EzsSYHMAnrq3AEUU0J8sAQcp0NUAetMXgH8jDRlfkSn/fQDW4YMBHxgxFl/3KZ0bHs3fAJHdAPcRlxPQnSCFE3qgrSegNQRNzSlOPQAavRtBHB4LAIDPAJB/B0WuYSgP6wAPEFD/LK/9VwDQhQGe1QDhYSGHPMavfSFwhyEhAynvFgBqtQNVEcE3IVDDAMB9Igdg7QFrFhAxAPEa0RDwarUlOxXwDQAvZQDfhQlW4SkALRvpFi/JAB0ZH7VP/gEBYL8BMHEBXsrdAgBnJ7EbsgsArlMBO98YsaEAExnVFhUSQCEC+rEcjx2P4wCPZQAQ8yMrWxA+3QEvNwIxGj+HARq/E+8YAP8AnlUCIGUAPVEdrf8FIF0qMAUCzRJNsRiFG1ElIZsa8PsBCxFVoaMFHvMAJxsBWwBPetUoLiUHXxPw7SPxAyK/uRpNG9/VJA8XExFPGYcSPaFnKaDdAEkS760gERgq7/0CdRPVM++tAP9BAB9hFQIdE0/FAAkTmRoTHi37GHETqxUXHFcSTxkmWRd+4WkAYx0bGeHjIuEVBReqr2MC/xFHjhUAcKctp2CjAI8QME1D9Rq3ELBFcQA5EFsZX78A0F0lUDrVJbDjAQsQ74cln4MrBq/fAFB5AG/fACkQ0K/zAl06rxrbFrUUSRWHF7MbReB7I6MVFTtpEkCNKE+1XwKRFQEvgQC/8QCxPbMAoxQ/pwE9Eg6rB28QJXUchR2PFfG5IXExAF+dUwCfIQBhLU6P5wBPEDbgayZlEwUQEG8ChRRPV1sCUNMA/68Brxa9MLCQPQBHF43bkA+v8TAPb/+v8ADwD///3/EQCC9QAoEgD4//sAKAD9/wQA/v/3/4AQAAcA7P8KABQo+/8FAJz4AEQEAKDr/wwABgCM/wAmAPD/AwAPAO//IAIAEgDqAJoTAFr0AEoPAAoBOvUACgZFABYJAHb0/w0A3vdBALr6/+7/GADS8EUAJwEAIwgAAABfBAUAAwMAae3/CwAQRADuAA8JAPMABQpcAPwAIQE/Aan0AD8DVQBHDACf9ACZCABH/EUAYwIARwAADAAt5wUABx8Al+r/FwAFVQBHCgI1FABj6ALZ9FT/DgAF+QCd9oBOE1GAEPr/G4BR5oARBVWAOAGAcASAEP6AaQSrgC6BYwGAAA2ABfWAkwAEAPL/BwAOAKr5gBQAgBgGgE8GgFuq9oAH' $Extract_Sound_Open &= 'BoAIB4AJ/4BBrv+AK4FbgQj/gBwGgBxVgXP8gLMEgBYDgBP1VP/2gHb+gBQFgDj3FYJJCIAT6YAEEADmRYAoG4BP9f8VgK3/VYCf8YBKDYBV/YAP+FWCbPOAFwqAyAOAT/rVgBEHgCn8gHACggaBvtWDLgWAHQWALAGAM4HmWvqAIQvAD8EfCkIXCtXCOgrCbw3CU/5AEkE9qvFAWwHAZQZACu1ADxoDwBIKwBFBWAkA5FVAGwnAVgjAGPLARwlUAOXAAgjAHwzAAPQRwAj4/+zAVhMA4l/AGsEFQUjBfsNxBkATD1XAG/DAAg1AHQLACAGxQD0LAAvCKUF97EIkVvTCUkEpAEJkAMBgAxVADATAfe5AMhYA97T/78AL+0BFwTbzwqGqAkAV7cA0FEAL9sAnt8EkwYHBGwTAbkG2BkATrUGTDEABwQgAwAEVQAGu6sA2wRbBIPLAIAnAAtYDQAFBc/9ADgbAMMGBqv5ABf7CfPjCR/jAJFtBAcFf9cAGQQkEQBn4VcAHBsLS/kACCkAE86/ACEEdwSdBtBfAAvNApar9wBsVwCf0wALxwAiqFsAW90AK+EAbF8KBshpAAQAAQTXB2/xABCoRwksQQu4MwEIBAIoRQFj4QLf4/+hAB+4KwGdBykGP/ELNY1FhYbXhPf/gNvqgAmEVBOABqgEiBgSgNfhiJPFifWrqoAASYg8JYAyhK/TVIkPwIAIa4CP34BahXKoR4Aj0oBHxYAQMIA22ACAIoUcOIAjhQOngAnYR4AUhEvTgBSEWYYr+VaAA/WJp8iAsAqAD+K1gAgogE+GD/aBRB2AD66MB4XP8oIv6YlxhXWErY2FEoUH+/+3iUeENDmvimOMZCaARCSA+4XP9tSAGDSA9/CANoSIE4g2qCmAB9yATCKAXAeBQtaGCDOAZAGAK4YH+IJjaEKJYCqI24WP3YkAhQdb3IBThaPXgTAQgCGGY3WEYCeADo26hIf4iK2GMtaGwFCJRBqKJoTIJoBhW9OAI4QoIImUJIAXtdWJW+mAV+2KA4SNhZvF1oAoHYqYKYAIhN6EN9avgCiGS9aAD/CBjCKANrSFuAOKqYS0J4hsT4BhW8uAlYU4MoiAAYhgItaAABaAl9GAa4Rz34AhVIQgGYCH1IKgRojEJr2AW4VthFeFiCGAB/SAGqyGNoWACIhgCoBMJoFVa7KAIE2AUIWQC4qfvq+ACIXkPoADsIAUL4l1tIXT5IAAhDvviaKFpENXgCetgLhKgBgAgpCF6uhDgIfniOaFW4RAG4jK1oa354AD7IC/hBwOiUtUhh/2iDwYitgWgB6E2tvhiHCHCBOAV4QQCInp6/GALAmAroWmhwyEz/+1gAf2gLOEN+iId4TDhgdYHojihcfagAw3gBWFf1aF+CeIPACAG+2JU4ZmK7aAdDODVBAAZIoBaCWIeB+AWYZv74uL61WKe96AABeIqC2LaodFX4RahSKEFA2IG96AdAOugDaHo/eACAyIj4SGhGqshwCE3+OTSA3AB9TJkbvlyY/EkMQUI0AsRBfyvUgGxEDEYUQULMoIBEB77ERXxI/wwA1NPEWaxJbF2/7En8RLRZhEMsTwRBNEp8UiqD/AJ8vAJDnI/EdAE/TEG+XADkXaRC7E4sRcxCm8RQdEqUVRxCQZyQpGK+fXQWQAQBQWQCTEEERoRCX+RApEMMXoxNbEUcTbREv6r8gCxcQmSWwsyLA7QAfbzEkTRBAgyGrEcMzKRQndRBdNFESX80nJRADFACf8wMlFOUQjxWVFFMTqRVtELVgjQDjEJ/HJZARADBa1wGPI2MHEPAFABAbI297FJ0SURFfswAZEE0R/RB/9xAFEJcQBxPdE1EShRkPEF+1ELMQgHEBZxUpEOlSmxAK9RHtEAEXRxAfiUOQRwXfb1MAfxFPHyUJE8U5KTbdb1sAMxGviSl/jSXLF3+xElkQwNsljTZTEXcQnRFV720jMxQNMgMx76UA4H/1IYMRNx' $Extract_Sound_Open &= 'DRFLMQ4xHzEg8QFfESBxflFZMTuxGvSyY+6/sjERKjErUWFzI5Gi+PAR3gLSMPEcMVuTDA1SBXEkvTEZ/jIusVqRZ1ErAJJL9vvQAJGYBNAAUVIRcbGpvgSSnPE7c1rTqvEi+hAJ6gnQGwfyPvqQKTFD8Wq78XSRMQpSBnFaEUzzEge9ESIUcAHxl9FWUZz1skW/EQMxT1GjsZrxERFF8/ACev3wAg3yFxM1MQ0RSfr90oT+MlhRTbFqcSdRYjEE/1ExET/zKJEp8W5RMpEM0RjbEWJzI/bQAFEh8pJ01RnvURjxo7E3kQz+MAkROBGGbv2wB7EY0QEIUoERC/b/EghRQdEB8yYxr9NGkZuRGf+RNREckSmRZXEjUTHRFRG0d1Eg05XRZPhSNpNC1VQCV1IesYBxFAGQBAMwFhL1MATs0obtcoaxH7Eb8RzrswvxqfxSnQzQG3G1869eAFKS8RLxBpEJ71AFEvUwD/dSDf1SmDEPsT6xRdXxI/GQHQGQAhKSPDEI35E3ES0xJnEqsScKkApxhf2RV/vQNvEfsSDxHDEpEQz9kbzxMiaTuwEAETuRG7Gnv5HVkdHTTnFNsRJxeRFSqu/xS3EzcR4xewmQJfEhMV//8TwRwtEN8QixUJECk0iRF/+xNTEQUW/115FRMZUzSPEs/5ECEx/xPjEZkQpRGVFsMQX/E1NR1FEAsRzxNpEecSuREf9THFFJUQBxHLEA8V6zQpE7v7OEU24RApGbEQ0RHgswAr9xCzEJcSoTXXE2UW8O8r/+DXILEUWREhE8sUDxEpFG79M2cQkzAnOv+9ADMbqzQ++TRVFy0ykxX/7yPREZcTH/kRBRZTEGkSBxFxEQMzGxXH9xEnEBcT3xTfFs0VoRLQH/FAMRLLEUUSoRMbFMc0uxFf9xNbPhEcMxEvEK8UHRQLFS/zEM03PRG7EBUQiTdHEK8QAHcQfRejENAQAguAABAP7/AwD6/wD8/wcAAAD5/1AGAPv/AWj/AHj3AQAoBgD8/+//CRQAAQCM/gBM/f/4BP8CAKQAAP//C6QA+AA0BwABfgMATqgCAAcAKgMAVvsAKoAGAPb/BAALAgoKBgBSBgIiBQAJAKr0AAoDAJL+AA7+AAWqBAAv/QALAAAfCwAXUvcAK/3/ATcFAIMGNQAr8QBV/wCVAY37/6oIAG/9AAX2AHEGAjXGBwAXARUAAAIABQGR1vsCPQGzCQAh/gLJAcPoBQAIAIv+AC0BwQVVIv2AAgIABIAT/f8aAYAM+oAGgUwCAPPFgBwKgBj3/w6AAoFcqv+AQASAYQiANfaCL9WBmAmAVAOARv2AF4UqqgSApwmCFwWAjPyAC64EgA+BX4Ea+oAUDoK86gSAC/eACAKAF4Oega/W/YACgZIAgAcBgCKBUXWBLPiABgWAJoHVgSYBvYACB4JWgUKBWYHo/oAONgKAHIFz/YBggRsJAHWBZAWCNgiALYFRgd0HV0AKwQzBCwRCAQJAGPhVQBwHQCQBwC77QBcGrcAC+EASwWcIwAL/QhzaAcBT90ABQSEBwg7BYFr/QBD/wilDDgTABwOvQCLBVsFhQX4FwBACQA+2+sAHQS0CQBDBc/nCgm9BbMVRQ2PBE/vCqkEMB7HChAMA9cACQ0gDQGN6CMKHDMAQwbPBMEGB/PdCi8F+QVcAwA5BIkFhwzb2/0AHwVkHwAtBe8OkwR6/wUhBAsEXQXvDD0ED98ALdUGyAMA2AMABwU1BxgHtQAz/QAVBVfvADUFhwQLVQZv/QAn6wAAJwsFBJPj+/w1CSEEywVbBVEOjtgVCVEHj/ESYQdHywhnvwU3BC0E2wQUAQEFBV0MpbUHa+8LlwSr9QAbDh/2/wNZBXsF2Q3tBAkErCWIh3gCgAeEDoTGjDwMgIqFa/+FYoQNjMCFRoQkhGmE2oS6rYTKjPQRgEQGgfvngU/4I4hZhC6GJ4xyhFGE/4Xp/oSUjRyERYTuhAOEIoToEeyAZoRT0' $Extract_Sound_Open &= 'YAdhJ6F3oUH77eBPDGAGoSD+ICzhIaE/3vogAqEi4R2hAwGibWE5tyFT4UphGPwiQ6EeBKAA/yFsYR5hDqEU4VRjUSFAIW3+DuAG4TfhOmFfozQhYGE1/yEfIYcjiyEIoV9hRqM04QH/oQphHiEB4U6jqKEAoRohcH724BnhKuEFI4WhSqFfBdeiCWFFY2X3IiX/ImDhU//hB+EaYRzhBqEE4yGha2Gi9WGkA2IECyAp4V0hIOEn7+OoYTzhLyNsDSKrYZahAO1heQkkJiEMEWBuIQghYaoKJIP1IBkMICX7oEt69+ASDSJjo4ejI2FJ+P9iQaE0ITThnaGRIXshAqFG/yGWoSxje6VXo7LjKKFHoST/YShhL2Fs4TrhSuEG4WAhFv+hHeE8oQJjBGFVoS9hNKEj/yF64bTjnWEB48ahP2OTYVr/IVkhVaHK4Vmj3qPVoS8jPv7+IhxhEmHYIcjhKGELoY77YThjHPbiGmObIQXhYWEV/2NGoRGhHiFKIRdhcGE7IVn/IRQhAuEC45ThFmFloyQhIfvhCCEl92KcYTihDOEC4R//oQBhVGE44c6hKmGao3GRBf8RJ7EikQwRDLEpURwxETNN9zMhMxARZPYSAVEK8SjxKtdxFXM1sWYHEAHzsh8TYb1RSf4yQVFPcRbxEwByIP/xJNF0UQhxK7GDsRfTR3EJ3gQSMJFT8T1xFAKyADFb/9FScRdxLrFccz0RDjFD8Qz78wfxQPw0ajERswrxFHMO3/NMMQSRSXEBMzYLUgWxHv+TQ1EVsR2RFNE4sTXRMLEvvfFYBbJJczOxItEU+bKO//GVkTRxOZECkTSRRPEPkRz/UUKxLVFPMUvRAzMa8RiRVP9RG1MNsQwzHbEA0yxRIBMP/1FBs2oRAfN4844TLlEAMSv/kyQRAVEFcQExHbEKUzExAv/xM5EPkWhxMNEUlTYTIfVD/zEU0R91frEnUwyRAdNKFzf/8QjxBpOD01GRAHEbkQgxDf8TnLOYES2RDNOm8wsRNlNe/gfSGLGdcanxIXEHEUo1NO/RdJEMUauxCwCwF7MAcQb+9FBMERvzDFMPU0TRGPMz//Ec8SFRPbEjMwtREPESdQn/EQ2TmrEOkwxxDxEHsUSTcP/xG9M+0RNRHbEDcQMRHXNO/zOU0QnzOfGFUULxN9MUkQrfMUFxcRNS00ARRgowDREs/zEE8S6xErMFExWxCVEKswH/03IxBTM9E0mTGdEo8S9zHf+xFlELMQ0RAfOO8wwVNrOT//EOMVUxXbOJM3PRQVUWcyz/k1UxBhMlUQvTLDMA00yxAf/TKBM7kR1RAjEC8UfTpvNS/3EBc4+xL7ECkQgRHHEIUxr/UzGzKzEAEwHzW5M1UwKRAO9xDZNk03SxCvqSwbMk0XT/cQGTJnO71RBVDDExU8Uzj/+TtpNIdTQRQpEUcQjxANMN//EHc6xzqZUOczFTXDMTkwv/k2nxIfcBUQYzFbMsMQKRRf8xCPNgU34xAnELMSAzUVOX/5UxUQtzYtPOsS8RAlEikzH/cxyRFhMwdVgzDVNpFUb1n/+TB5Mb0Q6zRXdQ8QgzMVOt/7EBdRsRA3MFkwPxDjMtFZn/FT2VO3EL8RnxA/EA02NTIf9zBbENtSGRAXMI8QkzI9EL//MAFw6zyjOCcx7VVFPhE0X/syhTfFMnM2dzdzEBVWuTVv+zB/PyczJ3KREmUQ3zD9ECfzMCFRcTKNMHE01zFtU2AAAAc7UABAD+/wIA/f+ABQD8/wAAAwDQIv8AOP7/BACYAAAo///+ABQCAGwCABr7ACQBAGQBhP///UMCDAHE+v8DAAFi/6sChgMWAQAu/AAKAgJi3gEAJgESAV4BDvwAugkA7QFTAQBrAScAAh0BEQVxrvkAFwEBAU8BABMCACNVA68DAA0EADcEAFX9qwAXAaUFADv9BhEDAgVtAa8DBJEBLfoAEwFfAP0ACQaCBoFBgRiBeAEAg2GPg3CBQYEi' $Extract_Sound_Open &= 'gV37/weEOe+BfIFYg0OBJwaAEIELgV5fgw6BHIE8gayDcwGADvv7hCyBUfqEuYEvgQ6DM4Na/4GhgQmDVIEmgxGBcINlgRP/g7GDnIMYgcCBYYEKgReBKvWD4wOApQWCLYEGg3KBGvdDSEEOQQoDRBNBT8MRwQftQTUFRBlBHP9EJUFNxQnvQ4HBJsEARY0FQB1BPUEd78MGQyPDFcMnBsIJQQNFHPXBewVCXATCI0EaQx3BGP9BAsEEQThHbMEiQRPDikM5/8EDQ2rBB0NEQ0zBNENow8D/QRlBvcNQwSnFWcOCQxPDA//DFsOcwTfBCsEDwQZDpcPGv8GyQUFBBsWDQRtDJwJEdP/BHcE/wQBBC8MXw8vDNgEA/P//wxXFDMWow0bFcsEC/0OnQ9RBA0GEQ91BE0MdwxTvQ5CjAmUl42z9ZHIjECFV/2EPIzGhA6EV4wSjVKUQ5V7/4SBhHeFc4TvhFmMBJQQjNv/jTqMrYz+jZeOQo0qjYmMW/6Mb4zfhC6Ebo0ilZuMqIwf/pwAlaSGLYwshEWEAoSphEP8jEGECIwYlXCMBpWkjEOOb/+MM4w6jGKMEYyFjaqVQox3/4UVjQ2Mk4xhhA2NoY0YjT/vjHeEL+6IBY2TjTWVlIwT/6WKhdGFtYyljCOU2Z2YlSv/jWiVcoxNhv+MAoTshLGO3/+GOZXZjhaWyIwtjcWUJ5VD/pQUjYWETo1AjYCMwoxxlg/+jvWUpo10jCWMY4bejIyeK/6NyYxkjkOOS4xfjRWPP4wr/pbehFGUT4TLjRakiY1Fjbf9le6Mbox1jO6M7JbWlf+EB/vwixmEnZUjlHaM/JSkjCv+jHGcdZRTjrCEP4TshD6MF/2EhYUHjBKUIoyqjZqN654L/58hjASN+M2u1AhlWUwE1CfsVNXUdBpZWFRZzGfMH0x73Ux3zB1MP/HADsxI1QPcw/xNklRBTCvMw00PzDRMzMxv/FUGVI3MCUy5zD1MIUwuVFf/3EbVllQCzj5U9FSoVBtU6/7M4kyJbDxUrkyi1MXcUsyf/0yF1AAUAVWKVABdBMzy3Hf9zZdU2+QO1T1M41R3bNNUf/5UmVyy1O5ldNU8XEDUH8wj/9R8bUzcTUwT1Hfcy0xYzAP/TCbcFFwOXFdMdk50Vh5EQ/7FpMxL1DFMg8Rl1ERcSUwD/tSIzB3cIkxw1HjMFt1XTGv85K3cFF0CXFtVJVUgXX7Um//elOaAXHZkgVy7VCFOD0YP/dSGVZpME9wn1BtlGNShVKP+1GXWls3q1GdUA1UcVAvEK/9VJ1Xb1lpciNRYVHrMAlRL/E4ATAXUQUyHTALkDVyiVFv/3PxcTtSW3PpUAd4I1JXcC/5VgtZK1WrFMk1L1QPUSd0j/dyv1FhdHeQrVVVce1YLXkf9VDNUadyDXJhdOuUkVCXO+/zcPU0BVT9W6MzK3gnkANQD/szAVY7UgeRJXmVsAmQDVHf91OzPQdwV3nNUYNQX1OnVd37k6FRGTDBGSMwn7sgDVBf9XKZMMNQC1Gpcw921XFpXS//ldtQlzZncENw5TFlWc11D/+XSTBFkQVyyTxVNmeQyVNP+3ZDP3WSc3NJUl10eVNbUVaLMA/v8DAP3/BQAI+v8GAHACAAEA4v4AKP//AABIAygHPBEBJP7//wDE/P8E7QAMAwA0AVQAAD4FWgES4wOmAToAAAICEgFCBYr/A1oFVgMWAwAFYQUDA1sBQf8BbQErAUUBGwGpBQsBJwmptwmJATEDrf0IZwkAAYRU/4UOgRqBAIMFhWOHHYNngQj/gxyDTYl1g0eBAYVNiVSDhP+JBIUvhYWFYoEPhwqDq4UE/4c6g6qJr4WfhYSFWoGBgxGvhVOFxsUpxSX+wAr7wIT/wQBBGclATS/FEsUCS1pFePtDHcMSAUICwS9FJMkuyw7/RRzDO8c8yYjDScUJRSpHYP/DrEWHwTZBEUOGRUTFM8ck/8UgyRpJWMEPQwlBgscIx4b9' $Extract_Sound_Open &= 'wVAGxhrFMEUexaRFGsMQr8k5xY3JrcUR/cRTBsDt/gRISkexwRhD0MkEy/NHAf8jEGkd4Q/pcqMcY0FrFuFI/+dPKQOtKGMHYxolRadaJ0j/5USrCAkAKyNljGkgrXOrKP8nmCFCYxCnkemSaSolC+UP/yUPISvlZqUN6WTrWmMIJ2P+AioOYyxhAiUBaWgnaedU/6efJQ9jAqWkoxTpCKUD62n+/GiJYS/nliUwaYhrGCe//2tk6UspZ+dfb74lAu1eqQL/pQotI2kDJwHlrDFBpzvhJP8nNmdto6AhMuc0qVbneuM/9yegYVAj6/ukZiVp61LnDf9jsusq60DlKClkq6HxJatmD+ddJR93KjMz+v8HAP750kt3I3sRtwvVY/cyOwD/0wV5LTMFOVX3IT1ZnQW/B/9ZI7l2/3ZbL/sF32P/Ap9p/3s+10CTAD8AuXRZH7UFl1Z/Xx0PAJ1jkRPfAhkR9QkD/1It/1f7mDuFtyc/WdtOvTX//SjzP5VyFxx9O91FVSS1i/+bCNkaezt5lTMQUTo3X5kG/5tM+6w7AB8Gvy87AHkR/37/mUHZkZuxGU09F/0qOThfBP31NvxUDP01fzFbItsFvxr/lSN1EheE1VhXDr0umwp/Zf+7IncFNxhzBzUUHQsTcV1J/3vMv2tTK/VrdZB7KPs0lXgfnTV3HnvJOzOdPExJUwRUHHAASU5GT0kQQVJUELAAUm9kAHJpZ28gQ2hhAHZlcwAAaWQzJCAkMQJEMyORGVQoUEUxcAAPzwI=' $Extract_Sound_Open = _WinAPI_Base64Decode($Extract_Sound_Open) Local $tSource = DllStructCreate('byte[' & BinaryLen($Extract_Sound_Open) & ']') DllStructSetData($tSource, 1, $Extract_Sound_Open) Local $tDecompress _WinAPI_LZNTDecompress($tSource, $tDecompress, 77308) $tSource = 0 Local Const $bString = Binary(DllStructGetData($tDecompress, 1)) If $bSaveBinary Then Local Const $hFile = FileOpen($sSavePath & "\open.wav", 18) $sSoundOpen = $sSavePath & '\open.wav' If @error Then Return SetError(1, 0, 0) FileWrite($hFile, $bString) FileClose($hFile) $_SoundOpen = _SoundOpen($sSoundOpen) EndIf Return $bString EndFunc ;==>_Extract_Sound_Open ;Extrai o som de fechamento Func _Extract_Sound_Close($bSaveBinary = False, $sSavePath = @TempDir) Local $Extract_Sound_Close $Extract_Sound_Close &= '/z9SSUZG9GoAAFdBVkVmbXQgEAAAAAEAAQCAuwAAAHcBAAIAEABkYXRhgGoAAKIBUf/H/CsC/AG3/tYArAAJ/8n/ggD0//z+agAQAVT+Q/7e/87/wABkAcgAngA6/6r+GgJ9AZT83f4I//j5Hv9qAPH9ZQnzCHb/hAORANQA9AbM+yv79v368tr8nQOh/IsH2AawAEIFAvri/AYGZ/ZJ+PL6z+8G/xwFAQB4D1QKlP4yC5ULtP279Tz7hgDD70P7oiBjB6bf6fISAuwBbxOlCL3nSPIgESMPCvxX8m/3ug0YGeT/zemZAWIpZCkn/UrWNNna8LL4C+8h7SwDmha7B+f9hhVnEE3uNPanC7kJiA+sCkn1YvWy/Y4KcBbZ+FfiQf5lC3T9O/tN+yP0neuK8rcK5xN5Dj39GeVt/rUnEhdzAJf41uuL9n/yjedSDyIX//YqBuAQQAx7GOj8G+RZ+dP6HvuLB5L6WfXA+e/+lxPQC8z11frb/0MN4Qzl54TqKgAd8qz1QgKnCcsbEgbo8WYRfBkCC7IBRO5I9hYA4/D7+gsC+v4aERoIoPkLBPX7SQB8BfTkJ+aD//4BPgujBIn89Q0eA7v+LRCk+0n4hwiN9cH5FAS48Cb62AVcBUcV3wqXAbAOJ/1d9ksCqPW89gT05+boAVENuAEiD78HpgF6Eo3/avWYAb7yyfWM/ZXuHv2nB2MAsA8OC+gCkBI/Bu37+P+P70T1Qv5I8qEC/AgA/sANEAg+/fIL7/5N9z0BvO7y7WX6IvXFAxAHwv2MEdoP0gGLCGX+zf6XBHXrnu0U/az2+AVUDawGGBSJCaL+Dw2fADn8wAb98qfu3vST7jQBRwhO/gIJ4wOx/zEKGPr9+ZIG1/Rh9kP/MPhNCSUMzf/xDewJJAEZDPQA8Pta/nDr7fKZ/9/0awDxBxMDag2LAlP7xgz5BNf8Qvur6InymgJ4+18HWgotAOEM3wjf/2EKXAAv+vT9G+8k9QYBPPnDA9oG6f7DDHsJygBACiD/S/m2/gvwIfTx/qP3SAOUB7L+PQr6BYP+nwrQAOj5of618O31BgI//BUJhQuB/hcJewcAAj4N1wBE+Er8+O2/9fsDbPqEAvgF0/3RCpkFc/yDCcn/kPjc/crtwfKoAT77QQYsCHT8RQt8CVYAZw12A3r7TgBq7331KwVF+3gDcgWB+sYKmggs/VQJ0f+V+VQAAO/O8zED9fnvAwoH/PqtCTsIaf+aC0n/4Pbk/ofxr/f8BPv6EwWJCNn8tAn6B78Abwyi/zv2ofxF8Qz5MAWz+m8DrAb/++sGxgSK/xgLtP4c9jL84/HA+W4Fe/ueAh8Fpv3DCnAIvgHkC2YAY/gM/eXxjvnFBeP8PwNhAw36SAfnBu4A8wkm/mT3ZP1y8YP3VwSG/JMCIAMz+1kJbghqAZILiwDK95z9z/OT+aYEffz8A44FC/vzBj8HQAAFCTX+2PX6/JL1hPuABer7wQLfBQb8FQczCHUARQfX/Qb34/we83j46wRx/CEBLgUg/mIItQeHADgJWQCU92z9dPbw+/EFJvxJANsDwPwSCPgIuQCoBjb+NPgh/pL0xvceAnT6CgDbAwb9SwhjCQICtAeh/sr44/7+9Sj68QOD+8sAugQU/g4IBwifAT8HwPz39n3+Pvfh+8oEEPwqAfQEPf/CCIIG//72BFT7X/ZT/rP3APxEAyv6NgA3BYIA4AkGBy0AtwcA//T4y/6493j8agON+b7+KgOo/oUIIAaj/tEER/1m+mUB3PjB+w8D1fqJ/ykCqf2hCCEHdv+LBGv8m/n8APf48vvYAsn6YwA/BO3/wwkxB/r/gwV8/Hb5ZQJP+438yAA4+Db/YgN1/iYItQVn/qQD1frQ9yAAG/oe/dcB3fn5AKkEMAF9C0MHx/7cA2f8zvphARz6kP5zA935YP8FAzQA6gkABoP+QwML/Kr6UgDn+Pj8bgHc+I3+AQIGAMAJGQW+/H0Bb/ue+/8D' $Extract_Sound_Close &= 'vPyS/QICCvuKAFAEggCwCLMGdf4IAV378/rvAi/9Tv3jAPf5rf4hA1MAWwgmBpH9FwF2/AP6lwH0/VT+sQG4+tH+owTvAb0GGwTc/Mb/evs++g4BYv2t/qsBNPtPAGsFIwP1CPMEhvwfAKv8o/tjAWn8bv3xANj6vP68AtYB2gjzBP786P9c/AP92AIO/XX+zgGC+7YApgSCAeYHCgWG/IX+KPsD/CUDeP0C/A//zvrM/18EmwH6BYYDZ/0RAE/8l/urAv7+O/1X/y77uv8LBdAChAa0BFD9iv4H/ZD8UAJ6AGD/9gBn/coAfAW0Aw0FPQES+1D9W/zP+8f/af3U/bAAuf0kAUUFBwRQBuEChvwE/vv82P3bAen9HP0q/2j88f/5Av4BeAW/AaH7if6T/qH/+QKI/kH+oAAn/t0B6QMnAT4EIQLv/GP+/Pz8/SUCxP7j/Rz/r/wdAZwE7QE+A2IBev0g/3L+pf9IA6f/wv21/qD8EADRAwMC2wH8/pn74f2r/br9xwB6/0T/fAB4/pABTwafBRkEuv+e+wj+o/9MADUCHADj/rv/Lv5oAOYDgAJsAf/+QPsM/dD/fwAbAb/+t/yF/iEALQGPARsBVgFM/1X8NP2x/0MC0gKr/+T+HQH2AmwFZwQxAWcBQf9j+9b8+v1M/jUBzACR/g7/CP/5/rf+lP2G/uj+bv6MAGIBrAAIAhcCkQHDAi8DAgPGAV3+hvzb/A3+OQA9AEf+WP0P/TX+TQFvA/QDYQOSAcT+x/zo/eb/n/+//lz+e/67AC0D0wO2A9wDNQPa/tH5OPqX/Cj+cwBx/639cv8bACcC8AXVA+UAgAD3/Yf+WgEBAK//iv8b/dn+5QGeAk4FAQVg/yv8mvyr/ZL+//4aAJYAzv67/bD+LQGqAzMDtABF/mv8VP0sAFsBCwEjAG7+uf1M/64C9AV8BeMAmfzR+xv+qAGwA64C9P/I/c39xf+1AcYCFgK5/rv6Nfl5+1wAPAOyAb7+3fxo/ZcASAN9A+UBDv/f/Gj84/3FAfAECwSbANj9gP5PAiwFiAVUAyb/5fyj/Tz/iAH7AuUBS/8c/HX7A/9gAi4CLv9R+875Vvs4/gEBugFVAMb+iv3Q/bUAVASyBQgDJv4x/K/+EQNxBsIF4wHT/r/95/6cAZEDwgM3AdT7LfgM+qf/5gP0Ann+/fpM+qv8kACgAhMC0//d/Ib7B/1FAVIG+wY1Amn9vfyjAMkFqQenBc4BU/7b/c//7QGVAzMDuf/i+kX4MvskAW0DsgAQ/JH4Lfm6/BIAsgGjACH+cvwN/Gv+5wOtB1QG/gB6/Fz9DQLVBfgGngSxAJ3+7/7xAKwDIAU6BHb/g/hG96H9OwTeBKj/lvmE91X5U/1SAUwChgCb/Yr6jPpG/+YFjAnVBTf+JvuQ/m8EfAj+BzUEJwCP/Tb+KQHMA9IEHgJ0+1z2vfe7/qYEhAOu/en4svdW+sT+dwF7AU7/RPym+ur7MQEzCPQJKgRD/QT8zwCwBgUJPAceA3X/uf5dANgCOgVFBQkBgfp89k75cwD1A8AA6vo995n3vfqo/kkBzQD+/dz6IfkT/BYE2AocClMCX/sq/LwCvAhPCjAHcQLJ/vT9KgBvA74FwQSD/n/2UfTW+m4DbQVbAKH5T/YY+KX8ogBEAs4AUv3T+TL55v3sBVALUAg8/zr6of2KBLcJJgpRBqgBnf7//vsBDwXBBhkEpfys9Yf1MP2ZBLYDN/0l90j1LPhs/MX/UQHC/7D8ffoB+24AJQhHC8IFT/xg+VT/TwevC3wKZgWrAHv+c/87A7MG9gYXAjP5HfNU9sn/+QXoArT67/Wg9bX4Ef/7AJL8W/rJ99Tzdfh+BGgQ6hVVDmIBgvz/Ai4NTArz/Sb7tPyB+34AtwgYCuYCcvu4+3r6DfcBAEkKlgVl/ZT7jvlU9nb7swNZ/sD1DfgP97zxMfd0Aj0I4QOz+bD5/gb4EpMThAvNAyUA9v9+Ai8E' $Extract_Sound_Close &= 'WQjXDF8CrvJ+9BP8W/wt/mv8xPPp9LT8rf+fCu4Vugnu9r3vS+s78TsCmgfNAGH6ZfnpBcsYcxvVD60NSRBfATP03/xf/lrwyuw/8HntpO8AAw0aDhxsEEcHyPYe6r/2YgSn+wvzxPsy/qrtIuxtAqwL4AewC2QIM/0d/4kBRfZY8r39OQgOEqkdHR30Dx4Frv9c95jxJfh8/C74ifVk7YnmQuzQ8FD7wAj3Cf8RDgoM7+sKWTd5J58ObQRR8+LqxeF94EDzJPa1+5caqhgb8U/qJAjMCov3sQFoDGgFIBDjDWfz1O8D9DX18gJTBpICMAGe9fLyEvpQ+ZT+HgpeDYcKyg9eIicnKxolFjwGCd06xSTNRty56CT7PhLEGXgVrxkTGR0GPe2F2UTTLNrf4xvvv/mHAO4KBBe9GHcYoidUN98q1w2PAAsDPgLB/CT6PPdm8nP1dgJ8DnoQQgjm/v7z7uAu2FfmVvT+9Zb1+vRO9fD6ZAD4/KDy9ekN5Q/nNfSOA+8PsxtVHxQb6hlIHtUkUyQAGJ8Js/vO70nwivqqA7QH5AWpAuQDrwjPCyMG/PVX5ZTfHOKj5UrrzvAc8qn0J/hQ+1cFiROWG0cYgQvVAc4CggiVC3gITANN/7z6e/t4AJYB6gJKAzb9U/Wa72zyDf1dAD78UPmz9PPwCPQQ/XgHhAn/AMH27/Ni/ZgMaBNsDjEEcP/SBWMOBhE7D44JUAIO/qX9MQLGCQgP1Q4lB7v8/PtlA4IEsfs38PfnjeWg6CDvffWp+QT8N/vX9xf4Zf8PCecLFgUe/eb7NgHACD0Mzgq0CJQFZAHwAGEFSAukDA4EAPeU8Rn3UQI5CuAGnfuz8uPwQ/Zq/kcCcQGv/j77NfvjAKUKwRNLEmcFmfs0/UAEVwgEB1QD5P6T+sz61/4pAx0H8QWj/K3yf/A9+GIDYgaZ//L39fPx8i/1D/o+/Yb9i/01/Mj6ev+QCLkNtgmC/d/0pvgnAgUK9gzGCIcDuAM3B0ILJA1HC34Gqv2x8xbyfPqXAqYA/PdG85DzTvXP+g0BzQJbA4gDxv+8/YoD+wphC6EDzfnw9nv+RAnxDRIMjAjqBPv/0PzY/gEDfANB/pP2r/K/9R386/+P/aP2dPGl87D76QEhAwcCUP8O/PL5BfqhASkNJA2BArj8SgB6BroIHQkTCRMEAQH1BLEFlAWEBz8B2fn7+AL6fwBUBlUDLf+C94rtc+/M97D4xu+T567wjgJYCrEMyw+OFEMZzA+6+tjwhvmoBoMEIvkMAVMPlwXg+QIE0xW5H9wOludA2HrrLAFOCuYCp/It6qPtFgADFQUXPwj367TTPeXlGFA7oSLH4jnM9fHUFK0X4wmG/Hb7WgmIF6wI1fNmDX0kbv6Y08jcSQ22Kfz8+dBY/2gmdu2SyDr8zhwSCA4AzvOKzePUoB6gQsgK9eS1DVobcfhu/Sca/z8BFX76U/XzEK8YYwDp+HjxWeAF7C0AwAerEVIWSwcu4ZLMh+xcBtz/lwMH/XjeztgW9GMV2SjcGJ3yZuzaFk896zN9BjriFfIIGL4Mn+Rp3835mhPVEQr0tumbBMYZqBKsATHxguK35T/+qRLSF5wQhPTV2H7o+BHtG0X92Ntk3c0CzxuiDaf8igHxCLUGVAVWDc0VaBXLDML91fXm9+/1APy/CH7/SvKW9cny8uyL8/H4MvXG8aD3OwBLAO4DIxAmDiL+YPvDByMNYQdZBOkEcv9k+xQEsgnDAOT8kf/m+Cj1+vuJ//3/Hwb2D3cPJwQOBLsKiQaIANL3lOuz7eb2mffq85nzj/0UCR8NXBJMEu0IjAROBGkG/QeB/y38SwMCAnn+zQArAjoELgBS853ufPV7+pX1Ve6F9JIAsgBh+rP2FvoPByQNZwIb+XX+7wz8Ei4G0vs2/5f82ffM/swD0wE//rX2QPJy92wAIQM4/Oz6LgWYDHAP4w0XCAgKHguaAbL80Pxz/cYBtP8A+tz7' $Extract_Sound_Close &= '2v3w/WD9kvqP/Q4D+wIUA6sFqAqqC57/DfYU+qsABAj4CtwDiAFDBA8A9fkZ9cXyUPSG8U/uffH59EX5Gv4dAk8JOAqYBkkOwBXsEb4IQPoB8qv4/f/YAdX+avoO/5ID0/4e/J7+5gL8AYj29fPQAewLiQxYB40B6AMsBFr++f+kBAwHiwbK+0bzu/hJ/nH9Qfiv8wH5zv98AeUFMAkcB9YAhPZ39s8C/Qo8DXgJLgKUBK0HLAAI+nH3mvRr8n/tou0/+B8Aev+J+0/8LATTBkIFXQqODX0LAwl1Acb9XAT4BQQBMP70/OD/1wTQBOUAf/xS+j348fSA+rgEUgU2AwkDJwF9BbQKIQU6/4T/1/1Z+NT0MvlsAJwBH/+B+kn4ev/0A53/S//OAGb+w/3i/VYA8QfcC/YH2gHVAPQEcwSjALr/evsJ99X2ZPKq8Y78ogNVARf/QAGAB5kMaQ32CAP/tfrl/UL9hv4HBWUEt/9T/2kAewF1AIP8F/l391b6rvxm9xL3sgDIBPkBu//a/wIGXw0sDAwFPgDRASACwvpb+JP+ev+x/Mv8ef1DAT4FLgEI+lH5Pf9YApL+TwAfCOoGhQCx/sj+NAK4BuUD3Pzb+c38NP6V+Gf3vP7IAJj+gQB0A+sGZwmqBp4BSv3D/Bz/aP0z/bcCGwSoAfIAQQBlAYgCr//D+0T4oPhC/AP7Q/o8/x8Agv2S/uUCpghnCkYHdgRQAWsA/gGM/Sz5fPyt/t38nPwHACUEZgFB/C7+aADI//oALwBC/4ICqwV8BegBlgBqBn0HjP9B+6L8xv3F/OD59fp+/oj96/xk/0ABVgNBA14A7f6x/dn+zAJJAab9Mf+jAtcEuAMjAuEF6AZy/x35jPiV+zX9rPlD+Z/+MAAl/1MAOwMbB5wGcwJPAQwB3QD1AZv+Y/qK/KMBNQRXAC77uf6DAyUAQ/z//BkA+gCe/Xz+wgQ4BdsAOf+iASUF9gKF/bX9aP8h/3j/D/6Y/HX9r/3r/lL/9vyl/wUFCwSO/0v9+P96A9L/kfwVAtMGuANl/Tf9WQVYBvz7UPfB+yn/uv34+en7TQKaAnL/Q/8FAkwG1gXDAZYB8wAK/+gABQJFAdb/OfyL/KT/7P4sABoD3gCt/bj9XQAnAir+/Po1/hsCrgIg/zf8kQAsAqf76/oLA2AIIATb+xD9/AN7Arn9yv1DAIwD9AHN/ckAQgO1/iX8dP1z/+b/D/1N/bgBYgQxBngFPwHg/s39Vv7gADT+4/li++v9QQDUAab/rf/cArwCkADR/6ABQQM3/4P77v5gAyYDLv9q/l4EagY8AEj7RPtJ/i7+j/iP+YwBfgJV/oD98gBCBpME1/0t/hsCnQI4AK784P18As4Bfv+j/8sAKgRWBdcC/wEVAEb9d/0B/QD9ZP6q/icCPAViAh0BbwHx/vz82/pc+oX9tP0x/ZoAbQPRA2wAcvwWAMsE6AGu/Jz7swHEBkEB8Pte/9cDKQWCAnj/sQH5AWr9r/y/ACMFIwR6/FP5Df55AEr+Hvsk+xABuwRqAYz/jwIPBXoB6/nR+YkAJwFh/XD9SABIA00C4P1m/yMFFgXS/2b6UfrV/zYB/vxg/GwAmgMOAXL7JvwDAl8ExQGm/er9hQKYA/D/TPwD/pcFhgeOAer/UALJAngAi/ov+f3/LQSNAuj+b/2SAsUFCAEq/V39x/8qAXv8G/jI+g4ApQMCAhn++QAABhUFpABD/Bb8uv6H/aL8g/8tAgEEJwIW/uoAlQYGB60DBf6z+9X+rf7U+8z7Tf1tAEYCfQD+AJgCawG+ABYAR/9Z/3D9bvzr/UP+CQBzAvwBDgLRAdoA2gKaA6oA2PyB+RL87wGZAX7+Gf6EAD0FxwQ9/9r+/AH2AfT9mfeh9yb/xwLoAPP+1f+pBI0Fiv+8/H8AqQRFA9373Phy/kQDKANe/2b9cAPDCMoEQ/6F+wP+IwHh/VD6l/wXAEAC6wDQ/dsALQWKAwAA' $Extract_Sound_Close &= 'Df0I/UIAof+7/Bb9o/55AeICawBHAEUCXQIYArsALf/v/s39+P65AZIAtv+4AKwAVgFYAA7+u/91AawAdf9l/Z/+CQJnAFf9RP33/joCRAGe/MH9GgL1ArMA7vyZ/UMD9wTQAeT+dv9AA7gC+/yd+//+kAEwABv7pfr5ABMFrwNQ/9b9EgNoBZb/Mvu5/IwBPgMn/cz4lvwoATYCl/8L/SYB5AW1BJgBUv+VAAADh//n+939IgByAaIAxP1T/7YC3ALhATb/hv25/+IAcgBE/378yfwF/9b/vAGVAW//jQBxAT4A2f98/on+6v+m/lL+egD+Av8EjAJ8/s//PgLpAaD++vnk+4wBvQAz/Vb9+ADOBWcEOv7n/Pb/iQKcAdH8KfyfAOkBhv/R/OX9owQwB68BAP4B/3kB3gFn/aL6Q/4oAt0BIv5D/OQAvARKAkf/X/6G/1UBQf9S/LH9rgBzAkgBu/4YANACGgJO/zz8ZfyQ/3X/Df5A/4H/Iv+g/0ABmQQyBPH/qv+HAq4D4wBM+4T7uAF4AwoAAPwt/OICVQatAYX9oP1HAewDdP8v+w79dAB4AtIAb/16/38CUQLCAXL/c/2g/X38kv0AAa4AAf8y/xECyQYgBTb+f/wZ/5gBsQAr+zH6tv9DAhgBFv82/xAElgZeA0L/Kvzs/AYAtP6R/ZH/mf9u/54A4QGXA1wCIgBbAXwBZf+P/ZL7Yv2KATkBU/67/HP/qgYFCPsA8PtH/Ij/BQEg/Xr6Wf1JAZ4DBQIM//cAgQOZArgAV/7M/cL/h/8h/8r/Xf6c/X//QwKkBDMCfv3H/c4AIQIJAPD6hfqm/xgC5ABD/ycAjgVxB2wBs/v4+nH+xwHb/0T9NP7D/w0CJANqAZsBQwINARQBeQCm/h7+Pv05/jgBrgCw/oX+aQDvBLoE5P3G+p79UAEtAVf74/hu/lkDEgRiAav+VgJZBmEDD/5j+tr6Uv8GAWAA5f84/v/+UQIVBBQF0AK0/nD/pAGgAJ79Afqt+x0CHgQiAeP9f/4bBOkFhwA//F38d/9iAcr9pPun/hYBqAKvAmwAeQCGAcMANQBR/qX8yP3L/pUAIwJo/z79Mf+dArkF+QMg/pP8jf/PASEAHPt4+s7/5QOrA7H/H/3fAPMDuQEd/8f9C/9ZAd//UP6U/iP+/v9QAtMBNwKfAaL/4ADTAWUAAf+L/O38rQDJADr+lf37/+cEKgVv/3z8H/72AO8BOf5e+xf+5wHoAkwAff1i/yYCGQJIAYr/gf6Q/wcARAA1ACb+gf18//gBRQP5AOX9xf5mAaUC+wAX/TX9LQG1AsYAqv0F/p0CoQPz/0n9RP1SAJgCVwAh/k/+Xv8/ARgBbv/0/yEBcgGJAVcAav5V/Q7+XgAdAXj/Gv67/qMBUgQ/As/9A/3h//4CIgLm/Lz7i/+XARYCp/8//CP/SgI9AUsBvf+Z/vQAhwBAAIsBGf/h/W3/5gC5A/kCnf44/ej+SwI1A3//sfzR/Hj/vQLmAdb/rv9o/yEATAEMAaoA//4I/bL+CAIzAmH/iv2D/g4CAASmADH9kf3B/3wCRgGm/Yz9zf2q/0gD0AGTAJ0Adf3m/qwCOgFe/878G/zZANICHwH7/l/9agA/AyYCuwBB/hb+rQCwAK8AEgCA/bD+sgBtASoDbgEd/lT+kwBQA4YCXv0i+4D99wDQAiEBMv6h/voAhgE3AUYAV/5P/m//OgAVAlUBLP4J/tr/rgLDA13/gfzR/QMA3AI+ATr9CP5R/8IABwPtAOn+Yv+M/2IB8gHX/3P+5/z1/dkBoQJiALv9WP0IAXwD6QEe/+D8yP1cAfsCwgGG/xL+of8FA2QDVQDl/jD+v/zwANgG5wF7+NX4XP5IAUcDMwGU+3D9UARABPgAgf8//u//gwKCAEv+uP+5Ao8EAQIR/n79Gf1E/FX9mv/RAvYBpvsl/AsDqQOEAEr/2v6CAS8ELgO0Adr+gfwb/94Adv9h/vT8' $Extract_Sound_Close &= '4v1vAJ8AVQL8AVD85Py7AiIESgPG/tn4c/xkA9kEXASGAKn71vzl/nMAfwQpAj37Efw0AUcEQQQq/zT7Cv1TANUCPgLf/wP/sP1X/5cDQwEO/Qj9Mf9sBIYFuf49+4L9lgBlAoABtv+h/XH80v/4A9oDbQDN/WH/DgIcAjwArP1C/ef+pAB0AU//Tf1L/jsANQP3AeH8r/2VAM4B1QPtAIr8KP1k/hQBMQOdAJz+m/7o/74CXgKD/9j93/3s/w0CdQIMAFz9vf4vAQID5QLD/QT8Y/9ZAOYBsQEe/vD+LgDP/xoCpQFc//X+w/64AL0BiP/Z/WP9GwAmA94BxP/2/cn9hgH4ApQAyv7g/Sb+BQD0AYIBfv+g/g7+fv/RAvYBWP5j/Ur/4QGDAbv/ef5s/pYBUwJcAEUAyf15/VcBeAGFAWYA//wZ/9IAdAGfAtz+RP7p/7b/LQPPADD9t/93/c3/JANn/cz+N/+j/HMDkgJpAD8DRfzg/cEDPQDxA14BYPpdAGj/7f5TBCD/6/5YANT8nQI7Avn9wwCO/Ej9DgPQAB4CAwBl+wEAOgDuAHwEh/+T/of/pf2PAdcBHgCyAP/8Kv+IAkYAMAG7/nX8dQCoADICTgIk/eD9y/1I/jsEeQJvAEQAyvup/qABmQACA4/+i/xSAVn/ZAFhA839Av8U/xT/VAUaAiD/6v8N+07/IASNAB0CWf/1+58Asf80AbMD+vyr/UkAjf7XAicBD/0r/zX9KAC1BEgAEAAK/8/7tABEAbgAbQOi/ib+/gAl//QCPwLh/Fj/pf5i/80DqP+b/mb/q/saAPYCEAHiAqb+1PvW/5H/fQF1AuX9pP6f/7P/DwNxAeX+/f5R/isB5wKlARMBBf4X/YH/nQBkAiIBdv5r/xT/SwDdAn8Az/5d/qv9JQEnAvP//z/7//n9Ff3CAC4COgKbAQf+R/2w/4kA7QHWARX+8P1TAJsAcwIjAmT+mP67/kb/oQMwAs3+zv4y/CT+ZQKiAMYAmf/f/GsAmQEkAUQCVf41/V//4f/UAhcCtv54/nz9EgA7A6QBhwE//4b9mADZ/38AWQEX/XT+IADq/3IE+AHp/Zf/h/12//IC4P+JAFv/Q/x9AC0BlgDnAb797P0tAa8AKwPOAQf90f06/tL/5wLyAI//a/9C/mEAEQKJAXoA/f3B/bf/awFrAhIAyf3b/ef9qgC6AqQAIQCN/xX+TQD8AeUAIABX/rD9fgBLAu0B1wBJ/nn9+P9wAdgB3gEk/yv+q/+a/zEBwAFZ/gH+p/5T/1cDeQL9/vn+Uv3//qECygC5AKn/u/z8/+wAtQCUAqb++/1oAHL/cgMnAxT+ZP9H/TP+8wNKAPT/rwAM/PQARALt/g8DZv6y+xkCUv+MAMEDQf0O/oD/vP2/AuABuf7Q/xr+bADPAnoAkQBa/vX8WQDJANQB8wG//rH+Mv8OAEwCMgHa/3D+r/0fAeQBcACHAHD91PyKAKoAcwEOAh/+iP6jAFT/KQLSATL9gv9s/7T+LQSfAc3+qABK/Pn/SwT5/hACQADl+rAC9gAD/5AEbPx2/NIBB/zxAloE0vtNAs/+mPrWBfYAP/1wBEj8OPv3A67/XwBHBX/9vPtNAlX+kv7rBuX/mvyqAyn7Sv2SB3X8xP8yBcr2kv/EBPz5dAZFBLr4hgMo/aj6xwfI/v7+mwQE+Wr/5QMc/M4EgwOD+qQA8v5n/MYE8AMT/xQBjf+p+m//wAQ5//oAlANb+Xr82APw/X8DzAYs+wb9+wBT+xEAsAXH/4T9tAHo/pP7jQKyA33+hwFq/zn7FgGqAAgAmgU2/4v77QFQ/ZP70wSlAo79mQAR/uz8EQK5ANYBpATs/En9oAIb/C3/Bgde/yT+DgIU/Ev+nAPY/7MBIQN8/L79lAEM/nABOwbf/s78UQF1/Af9oAS1AH3+6QHa/H/8BQKD/wkBgQWt/gH8xwFo/oD8EwVCBML8Wv//AED8Of5RA/sB' $Extract_Sound_Close &= '4f8KAXv/mvx//6oC5gAnArQC9/t6/IYC5v2M/X4GaAEs+oMBwwCb+sUCqwUy/rH/YgDQ+2P/RQHc/m0DWAJJ+0L/gQA/+8QBhAVs/h0AmQEP/Kv/UwKU/gEDvQOq+yv+0wFs+9/+sQYSAC39egL5/Wn80AIOAa0A/APc/p38rACc/1T+4gJZBWH/q/ugAI7/h/s4AhUFtP4//pEBEv8j/KsACgQhAE8AxQAS+3f9KgIN//oAbQSG//v8vABkAL38NAEQBmr/ZPy/AJH+Nf1JAdABGgGLAVoAxP3o/XcAkf57/94Ejf8q+8kB8f+8++ACUQQR//AAugBf+9L+XAKA/WQBRAa//S399QKV/Rb9LwM9AmUALABG/43+fv6RAFkAHgFqBAT/EPtCANr+6vy2A8kFX/+N/BEBHACC+1oBAAS1/vsAHgC4+jT+9wAJANwB0QNbArH84/3JAi/9tf3DBdkBvP1s/4z+fP58/k4BtAQIAcv/9P9+/DL+2/96/0MCDwLfAOP+uPxSANv/if3xAl4DyP6w/g//2f70/VwAKgSCAEIAcwJC/En9ywF0/Zb/mQTBAfj+7v1b/7L/b/1xAlIENv+KAIT/OfxHALv/gP6sA0gDv/5h/Sz/FwDO/BwARQVxAHD/qwGy/Qn+uf/L/6kCAwIHAtUAhfpx/iMCsPy7ACUFlQDt/ur9l/9EAbD8kgDtBbv/Yv6IAOn9/f3N/tcAJwNAAMcAoQFc/E395QDl/igA6wIqAs3/lfyy/mYBpPyW/j4GogKD/Wb/DP/V/Uv+TgCWAxIBdv/3Atb9g/qMAs0A+vrpAqwG+P4Z/XIAcv9Y/Z3+4QADAtUBXAFHAtT/CftJ/uABTP3l/vIFYQPX/Yf+KABe/9T9b/4JApgDngCb/2cBDv5W+5MALwF8/SwCaAWrAO3+tP62/SYAWP9q/F0B1QXRAIn97f+m/yT+Rf5J/p0BIgXCASL/yADK/hb8LP5j/6D/QgKoAp4AJAGw/4L7D/5PAov+tP1YBMQEHP9a/Yv+GP+D/rL9OwAWBLUCRP/hAIgBLfwu/AcCy//+/K4DnQWD/zP+iP/q/vj+Vv5V/wEEpQMb/zgAwwCo+zv88AFTAGf9rQLcBU4A0PzO/pr/Bf+1/jn+fgEQBZgBZ/5sAIr/PP0g/9T/gv+iApYDhAAGAFAA8fwb/FIAygAq/nkBFgWfAQ/+uv1O/gAAnv++/cQAqQQ1Ag7+gP7p//39Kv1H/18AuAE8A70B0wCaAJP99/xuAIMAuv22/5oEOgPV/XH9p/90/4/+Lv4RABcE7wMLAFP/SQBj/Vv7Qv+NAfv+RwCKBE4DOP+R/Un+9P9GAH7+7v5BA2YE3/8d/lEAOv8M/T3+IwBmAQsC1wG4AVAB5P42/IP9rQDn/4j+bgHaA2wC7P/S/Ub9wP7f/9r+qP51AuQEewEc/qn+B/9A/jD+1/5EAHkCUgMZAZX/fwB0/pj7wv6hAQ3/3/5fAzwE6//G/Rr/Cv+N/uD+i/4QAZYEdgJW/2EAWQD6/DD8KACJAQX/sgBsBBsDT/8I/d397f+w/4P+I/8jAogEVAGo/UH/DgCt/TP9pf9pAZgAUgF7AwUC7f++/qr83f3LAKf/7P2oAPwEeAM+/sP9CP+d/n//F/8V/igBswRQA77+0v1PAO/+5fzL/tf/cgBNAosCTAEAALb/k/6f/Nb+OQEk/x3/ewKpAzkBGf43/lP/Fv+I/+7+6P6jAkwE1AFP/z3/+f+d/Uv8Vv9nAKz/MgEKA1cDRgCG/XD+7f5f/43/H/7NAI8EqgLv/s39GQBMADP8sv0cAs8ANABCAvICxgFt/nz9eP4+/gMA6P/t/YQB2AR1AhL/sf1d/8v/2f22/oP/IgCqAy0Duv9j/8b/DP/u/BD9KQE/ATz/pAH9AmUCPQHt/Q79PP5x//sA1P4H/vwCYQQKAkv/kvzK/nYAIf7e/kv/+v86BFsD7v+5/+f+CP+m/eX7bwCaAdH+' $Extract_Sound_Close &= 'pwGAA94CbQHR/Dr9QgDW/k3/HP96/lIDVARnAEL/w/50//P+iPyE/8QBpf91AdcCxAESAjH/vPxe/nn+ZP8dAIL9UQBVBQkD+/8g/zf+6f+Z/xn9Fv8kAMP/vQNiBBgAhP9s/13+VP/E/Vb8oP8PAUoALgLbAjQBGAHrAJn+Xv2Y/X39YP+lAaj/yv6SAuMD4gFpAPH9C/1Z/3n/Ff5M/43/dP85A88EuQA9/+EAUf+e/aD9Qv1M/9wB4v8x/zMDVgS+AVUAM/6e/Bz/AADq/cf+x/+H/6kCgAQ6ART/BgATALv+g/19/RT/lgE1Aa7+EgGtBK4CiAA9/3X8kf3V/8D+Cv/E/+H+vQBIBLoEpwHw/vX+ff5q/qn/7f2E/Y0AGgDoAPkEtALL/m3/7v6C/lv/rP3d/Jv/4gE5AaUAkwLKArAAyQA//wP8Xv25/h/+hADRACL+QwCABB0EPAEI/679nv2s/0oAtv2j/UwAqQDCAfsDEgKz/6sAef+W/I39W/8B/wgA3gCJ/+kAQgTyAyoB6P6W/ZL9Af/m//H9Pv11AHMBFwF3A9oC/P+IAJsArf6t/af9T/53/9IA7ABx/9kAnAOCAv8A0//k/OL8Xf8o/0L/oACM/yr/LwKCBLUDiQDJ/fv9TP7//TP/wv4G/jUAWwCvAGoEfgOE/8L/7f/H/gn/VP5C/Q3+WQD5AZEAEQDhAuwCLAD3/1//uvw3/UL/Lv8EAIkAxP5mAEsEFwQuAeH+uf4v/yD+FP4+/pH9AwBVAv0A9QBFAmcCfwGYAKj/yfym/IAAff9O/nEBy/8D/0kDfAMlAqwAtP2a/rD+bP25/6f+hP2kATcBHgBqBKgDZP/Y/60A+P5F/pL+jP1F/SgAjgFoACkB8AHDAaEBHQD8/2cAx/wR+9D9JADnArYCm/3A/YoCMQT3A6QBsP17+6z6bf4dA4wAmv5g/6H8Vf8RB28H0wJa/fL51P0/ARYArP+O/Rj9xwDm/2z+IwPfBaEEDwGn+vL5JwBNA+4BKf6Z+/L+EgJxAeECawS8ATr+rfxB/SH/XwG1AVf9v/on//MCKwM4A8cBWwHKAQ3/NP4A/9385v1oANr94f0nAb8A1QFTBCICGwBMAKP+0v0M/5f/v/8e/h/8Lf94A1QDcgKaAZn+yv6aAv4B9vwH+7n9pP+z/kr/8wFDAtIBYAIcAXYATQKWAeT9zfts/MX++P/a/v/+oQA0AZUBwQH+AE0BvwLrASP+MvzJ/s4AxP8iAHwAQv68/qkB7gGsAZIBWP/7/ZX9fPwX/wsDyAHr/9YA/v+V/7EC7QN9AU3/2v13/Ev8x/0OAL4APv9v/o//OwGVA2wFQwPI/m/9Q//B/xv/CgDH/x39Lv0AALoAywCgAWQBEwECAff/ov8r/9b9mf6p/0X+Nf//AU4BgQBCAoECQQF0ALb+8f1q/1H/av4y/5H+0f3aAHsCQACkAKwC6wGyAZ8BG//W/Rr+Nf1B/qQAhQBoALIAZv7I/cMB2wT4A/sA3f3B/NX9MP+wACQBXf+N/lIAWwBv/xUCYATQAWv/NP+P/Rf9+v8kAOX9Kv9DALz9e/4+AsMBLACTAnEDDQGUAAsBGP+y/a7+jv6L/cv+CACK/gz/pQFIAO7+GgM6BdsBYgBEAHn9bv0LAOf+Yf3U/xwAbf3i/jMCWAGDANAC5AIaAMH/WwGvAFv+ov0p/nH+cP+oAAIAZv9NAAUA5f9kAiME6ALFAKT+uf19/kH+f/3F/vL/8/6+/vEAygH0/10ApgPtA3cBygBBAOn94Py0/eD9Lv4nAFQBcv9e/oQAaAGiAP0CLAVRArz+J/4o/kb+Ef+C/mb9t/1F/r/+xwCAAuwBYwEEAvEBqQGeAW4A9P6x/hz++/y9/fT/tAAGAOT/xP8n//n/9AHHAmwCJgEj/2T+qf9lAJn/mP43/mL+qP5k/9cAvgERAUAAtAB7AeMBmwFtAHX/6f4D/tD9Ff8bAIkAJwDa/jj/' $Extract_Sound_Close &= 'sQAbAMQAAQTEA7AAjP/B/mb94f0+/37//f7v/m//Q/88//IAFgJqAZIBvAKTAr0AEP8U/y3/RP5C/vr+aP4O/hj/lv/g/14B7wFTAC8AkgLQAvUAswBpAMb+u/2H/S/+pv+9/xX/V/+N/9D/6v/X/+kBTAT3AvoAuAB2/9/9rP6w/5z+qv2l/iD/d/7c/0YC0QGcALMB1wIcAhoBMwAA/0v+NP6Z/Sv9tP34/ioAiABkAG0BBgKbAI4A+wJABLkC+/+A/jH+q/w0/I/+nv8a/wgAFgAV/6T/UgDrANwCAwRmAw8Cq/98/an9pf6V/sb+bv83/8z+vf6J/lgAcQIeAbYAGgOIAoMAvwAZAMr+4/5N/gH+Vf7Q/dz+iwCu/zgAzQItAoX/4r8ACgCFAp8CewAAS/9s/uT89/wA3f7l/9T/uP8AYwDxAAgANgAAEQKzAWUAdwEASwIyAS8Aiv8Arv4f/jz+N/4Aqv3d/UL/FwEA+wEMAWAAQwEAsAC+/6MBcAMAigKlAIr+tf0AxP3I/Ib9XQAAQQDZ/kQAGwEA0P9CALwBZwEAGQFlAoACGwEAJAD1/un9wv0AW/37/a3/XP8AU/8DAVIADf8AzQDOAWcAdAAAeAL6AooAuf4A3P7A/vz+vv8A5/4//nr+J/4ALv+2AEwA9QAASgJYAXMAYQEAdgJCAkcAp/4ADP/K/kD9Dv0Arf7m/7f/EwAAhgDu/vT+3AEAOALvAPgBwwIAgwGx/1/+HP8AWwD2/1r/tf4A6P1n/pf/SwAAbgA0ADoAzP8ADv+mACgDoQMAfgJ+ANT+oP4APv6O/YX+zf8A1v95/77/7f8CPoCJaQHSADgAAKUCrwOXAQ0AAEX/Rf4P/kr+AG/+Tf+gAFkACEL/0IA77/4hAACLAVAAqACgAgDMAQIAsf/C/wBn//H+SP9x/wA0/iv+6P5i/gAg/8cA3gD8AADqAC0AYAHvAgCRAtEBpgDL/gAa/l/+Jv7E/QDo/j0AbP8y/wAtAAz/3/5sAQC3AXEBOwOAAiLagJNn/xqARJIAABcAkv5l/jf/AOX+U/92APL/ICcAFwE1gIwcAhBlAqIBAAAACv8CY4A1Y/7C/Rr+AGr/MwBKAaoBIFwANwAzgK95/wAlAQgDCAIKAABT/xD+Cf0Z/gC6/sr+SgADAQBNAJAAAQE8AADr/h7/LgEyAQDE/4ABHwM0AQC9/4b/m/5C/gCY/tD+EP8j/wA4/33/2P8XAACQ/9v+ef8kAQBWAl0BCgCgAQDJAvMABgBUAALhQCqi/mD+g/8gIP/V/TNADaj/AJ8A3P9y/x4AIBAALwBlwCMSBACeBJwBpf+L/wAr/4L+3P1t/gDG/9r/Kv+c/gCS/jX/4v8hAABcAN0ApwFMAQCcAOwBtwJHAYC+ALYAk/86wEYApP6X/iD+hf0ANf5E/93/VAAAMgDe/yYAFAEAagGLAG8BFgQA+QP/ACj/C/8AAf/W/Z78gf0A5f4p/6v/KAAiv0B0owB+QAu6AADzARUBrAA1AoCuAqEBXgB9QBMAt/3x/TX/7/8Asv4G/zEAVP8ABv/9/ywAYAAABwFvAWsB7gAAIQH9AaABjQAgwP9X/0FACRD+gJv+Jf/t/ndAbghv/3vArcgAmwAA8P+YAAkBiAAAjwFXA44D4wEgJ/8n/tvAzIL9ALb+lv+e/0z/ANz+1/7g/jD/CDsAjUAMPgJqAgCFAF4ABQIrAgDhAGMAQACD/whf/0NAZpT9CP4AO/7u/ov/W/8AlQAKArQAof8AXwFqAgIBKgAAiAGtAjUCugAgAv8a/kDAoSz+AFX+0/0h/i4AID8BOgCGQLrSAAC5/z3/bAAuASqNwGXdwBZrQHFZ/yAp/lT+80A5If8CNMDEuf2m/1wAAA//G/8EAMwAAAQCoAElAPoAAPgCmwIcAbMAACoAP/85/5f+ABL9F/6n/03+CI39FCAHgAD5AADv////wQGhAQgyAIGghNACYQII3gD5' $Extract_Sound_Close &= '4E3W/jL+AHr97v74/0v/AJn/6v+4/pP+AaBmALf/QwAWAgAxAmYBDgJsAgCSAaMBlwDE/QCg/cz/FP/w/QIoIF2W/T//hQAAEP9J/ykBsQEClaBexACOAOMACMMAsSB+5gCMAADC/5L+GP4N/gAH/vD+Y/9v/qjN/mEgQlugBJ6geCB+APIAAmAEnAGAoQLNAQcBeeAdAJD+2v7G/jb9gLb9+v+5/0Lgmijt/wDgVpYgbKb/AN8BawLTAOEAAkCgF1YBbP8t/gj9/pGgW7/++v0Afv4HAFH/O/4AUv9AAHoAZwEA4wBI/y8ABgIA8gDN/8MBQgMABgIAAUAARP4Aqf3B/pz+1v0Ap/5e/1j/AwACp2BMGf9/AMcAAFv/WgBcAmUBAKMAVAKHAiIBAI4Ajv8s/o7+AHj/7v57/j7/ABz/Uv5D/xEAAtOgQT8BHAKvAAAWACsB5AGDAACf/9YBtQI5ACg+/zIgbG9gKnn/gIj+f/20/rXgbYD3/j4ATQC84EsAmADE/zYBuQEA4f9TAMYCSAICTiCKsv82/gn+KLf+NWASOSBMrv8CkmCQof9GAEgAAFX/CQDXASQCAFoBwwAkASACCA4C7CASsf6Q/wBQ//v+of75/YKb4KeC/7D+dOBNAAMBYwGpAJX/AKUA7gGTAOz/ALkBnAJ1AdAAgF8Amf50/Xvgq4BI/vn+6v9OYEoARAARAFf/y/+CmeCHVwD3AF1gayBlAT8C+aAwif8KrGA6byClyv7H/iCG/xQA5uBV8/8AdAAH/5D/WgEA5wBRAKMBywEA+f+2//sBkAIIPQBN4Jl6/5j+ACj/Uv9k/iT+CG7/I6DKZP6NAACuAMP/0gAOAaDm/yoAYuCT/2AsIA4CPwLLIK1G/wDL/kb+dv4Y/wK3YKNL//T/KQACOWBpWf9pAMUAACcAJADvAFsBgFUB7AE7Av+glABTABwAmP7A/QDW/r//PP/D/gAF/wz/1v4//whyAE6ggfz+agGAkQG4ANsAwCAAIjrgf2MB9qAu8QCopgC24Iqb4BF6ILAANP/r/WD+WQAIyQD/IMXg/2QAKGQAE2AgaOANqwAAXgGWAaUBzQEA0AG8AOf+W/4CFmDB9f0u/nL/gtugIsz/4//HIAigNP9QAJ0gagygCAiOAZngzKUAJwEAPwEeAcYAOwACNyCBvf4lAFb/IBz+rP7A4JiS/iCM/gAA+uAG+v8IwQDRoN11AAUBCt5gGnzgwPoAoQEA1QFVACz/VP8AjP8E/xb+AP4C3SBNJf+0/w0AAs6gpaQA+P/2/wpY4B/1ECImAcIBAN0A6wAyAt4BAKEA8f8Y/4f+oET+zv7PME58kAqA//9q/+b+EvBoGu+QK23RPhAQvgDpEAFUAZcQUv0BzkABYgCDAIQQB60E/kewUaL+Lv7tAP7I/w3/s/5wBfBk3FBXqwAVAYxUAEzwDnKwOQdQPfdAAfQB5AA+0Gv0BRAKILBxYP+G/iNA/rD/cAD7sFozAAD5/4n/ZP+0EABmAaNwYQUBCRACcwHAsEeOAdUAAMj/CACl/wgBME8L/5r/sP+kAP8P//j+VP+zBP8+MGLS/l4AkQAB7AC6ALsAbEQAgnB73gDS0A0TAAAIAXoAxf/sCP8H/xGF2f6Y/yCq/2H+TvAUywCilfAlNQCBEIQM0EQAAAEdAJb/MgEAVQISApsB+QAIKQBzcCyH/4v+AHz9vv6eAKIAqmOQhEIwAeHQbazQFAI8MEVQAeYB2ABKmJAiRrBdAgKwQgAi0lBiSQB28Bvn/krkUCaMMEDK/9EtMxFQNtQA0HADXwCIRADn8D9jAIiwIVpAAV4CWwHBsFc1RVAY+fADiv918IYSQACsAJT/rZAtTBFwdIv/V3CE0//xFP+WkFgoUBnXANtUAVPQf1QQYznQmuAA/rH/k//d/jEBUBzn/2L/Tf/XQP99ACgATnBHEQQBllBVnAGKAJsBcHc3AYYCHwHsRP53EAJU/7VQM6gA' $Extract_Sound_Close &= '/qv+if7C/71RsIRi/hEwjUiwVkYEAFowEun/2AClQAEsABv/qXAckEABWQGJABhwEJ8A/7r/CP9Q/t4U/tgwDYpQOtb/CUD/Sv9lAI9wU68BsFTIAAoBAgHmAACUAEIAxgAtAAG6AA0A3P6oEP7o//4QC2D/fBD/m//RUACQ/2kRMEnT/7GQA3IA/UEQJKwA2gBx0HHlBP8rkADcAPMAHUQBBHCkX//mEAaiAP6t/nv/JAB0EP/y/grQG/T/B0QAePAcRwBvMCclAAE+AUoArf86UAAxATtQTVhwYhcQ/7v+CNAqAf82QP/y/6f/jxCENAWSBs9Qiuz/NgApRAHN8AalAH2wHUUEAL9QQD8A1v5zBdBJfjASlP83/wVB0Hy9/8X/LZB2ZkQA5FA/fAC1UGiYQTAK7gDVANJQCEQAAU8BEQHcAKARkGVX/wrQKgoAFQT/rLBm2P/xAFJAAEH/0/8PsBypQP8/AIoAFZAJdEQA8FAuEwGiEJB/FABrMAHAsJ9m/yZE/+PQB/X/xtCXVAD/mP8dACsA5kT/+fADd/8wEDVkUfAHeQD+MIukcJ6CEAEXAOMwlTAA3VGwqUf/89CzjlA/AFAAC/+IEA4ScA2vVVBKgLCpOfAqcxA3SUAAmQC3ALTQFUNAADT/cP/AsJZiURAG0P97sETRMCTeBdCwJJBqjv/E/9pAAOgAPAA/cANeRRAZTpAZVgCFcAAHUAAMANdQnSlQOY5RMFHY/xYQGuHQbG9UAOdwFjPwARywA7xUAAPwas8QO4BwC7JVUDMBkA4kMJDkcD8+FbAVnPCSfhAZrf9FURAa/v9ZcAK+8AR3EAAxABqwC8b/awQA+FDG/f+zAJJV8E9aUDnvcCetUG9fQP8i/0j/63AKXhUQAyEwswLQT/X/7gD/aP/c/34AaRHwIYMAbRAFZACLVdCF6JCoGTAJlDBmfwD/v/+d/3X/olD/zv+WECwEUAqRVbAFO9AT53AsZZCpBUQA45AM8/9ikAxwFZANmbAcNVABmf9vVdAgZFAeJRBDK3AiqxXQPiwwqhVwM5f/FlXQrw9QEhHQRWMwi7lBECMVAAkAmhBdvKj/LgCxtnXQWtcwqIqZ8AKaEHay/0cQP4LbMAEmAPz/u5CIgqGQJiEAPQCfcAciQjBUGgCH8BdY/4oBUBGzcAT6/wVwUCgP/2UQEOxwZvr/LmcwLNCBsGL7cDAXACK40AstAGIQCFUAigRwPRlwBP7/eJAOoCn/zv4yMDTuEBeqZlARSnAItvC783ARorwQPrsARjCH0xARItDQ4osAXbBToQAiSZA7HgCmccsAbVGQn3L/OzAxG1BaEwQAZxAZcADH/06N8EoDEV9wIbAA/VChoPL/nQAU0CIhUAgqYvAEOzAfAVA8hv+qXZACp7AnRtCJttAIgrKwavL/hP9REHgqSVAMv7ACN9AxbQAI/gAdEAphADn/gNj+rwDB/7TQXwoT0Ggl8H9TAHsAikowC4mwGLv/3xAPovVQKvb/85AQCZAfKqBQF9UwJ/4wlHoAgmiwGzoAXP8e8FqgBwB8/9+wWNmwG4okUMB60AnA/0zQ4qhy/4MwwSJQBGWQdIjE/1IQZh4AmlA1gqZQpsr/6f84MBEAtP+D/wsAvP8qzbAmATAZX1AAjv+obgC+MHb00Aa5sAIqjLBNZXDDRDAODQCILf92EPAwALoQE7qu0JTzsCcQjBAhxTARqq1QQqSwkiCwrr3QP6pI0FCFMGu/sAAmcJqKlbAwWPBAof+N0BaqpVAIYxAv2HAO+JAGivSwYmNwJ/z/ybAxCjLQbA7wF9y9AJoAdf8eACUAAE//zv9jABUAAMH/3v/c/2X/gJ//hAApAN4A2ACa/8L/QQBz/wD0/zQBLgBJ/wBMAD4AnP85AAB7AOf/RABGAACM//X/SADC/wBLAJUAhv9w/wD9/6H/lv9HAABNANn/5f8SAACo/7//cgAhAAjv/6oAolf/5/8AFgDD/2YA' $Extract_Sound_Close &= 'yQAAHADr/1gACQCCkQATBgC7//8AOyAu/1f/KQBZyP+AsQCcAJL/uQANCLn/ywA7owC6/wDN/zoAvP+g/6BkAIQAaAAD5gBpAOz/0f/G//b/AAwAPwCg/0n/CCUA6QAVfgBbAIqiAJkBAC/Z//cAnSCEAEoAHwCT1P8I+P/BAC2QAFQACPD//oBQm/9t/wBDAHoAtP/h/wAhAKb/s//o/wDJ/y4AigDu/wJxgBZKAM3/LwAgrwAEAOKAe9f/AsqAGjQAmQBvAIA6APf/Pf+KgFwAov8aAKQANwCg6P96/7yAJp+AICCoABIA34BY0f8gtP/Y/wKAFzIAABEAWAC//5f/AA8A8v8NAEAAADMAJADJ/7b/Au+AuNr/ewAQAADH//n/4v+m/yCr/zgAfIBAGAAKhoC3U4CUFwB8/whnAMyAQwEAKAAAt/+1/9L/x/8INQBCgGt+AAsAgEH/w/8VAHuA5KCYAIMA0oCKDoCwApWAmlkAmgAaAADW/00ACgBl/wD6/18A9f8kACCIAFIA+0Avo/+gHwDP/15ABMJAgiqYwA/2wF23wGQyAChWAHhAKNxAZq//IIX/BAAmwCxmAAACACwAMAA8/wie/4vARp//lQAojgD2wGWswA6v/wKwQAtNAH8AEwAA+v9bAJ3/Sv8IPAD4QAeaAJQAog/AgdP/EEALZ0AZCrtAXQTARBsAf/+oWf8UQCOtwECbQAeo4P/QQGkDwC+8wAkIgQBOQKYJAEMAArjABSMA7P8ZAKBqAEUAHUA9nkASArpAFOP/RgDHAIA0AM7/2/97wCBCA0AmEwB0AEG1tRT/xMCijEABQAA4RABfQBMFACPAFrIRwDj1/5TAl3gAj0HAaZn/FwANQBDNAUAZbQCMAL7/u1T/O8B4nEAODsCrAxXAu1hALLVADicAbFHAcLb/YEAYz8CgHlFArZb/p8CaPkB6UwFAUg0A0P+L/40FwFshwAYaAKEAYUHAAc//rv+owHsFEcACTQDKwCKF/75Q//v/ksB8BcAqRVAAawAUQBYcQLdPBUBUUEBfp/+cALkUAP9AiPJAALb/iVFAzEEAVcAZHEAKKUAAyP9p/+5AJOQBQF5UAGkALgCsFP+CQCInwKG+/40UAKbAXbHAXSAA2wXAbAxAcfr/RQBlBAAqwHHp/3f/pRFgFOv/1SAofQA9QAAGAMX/qSBLwFD/3//xYBeqYGW1VSA7IOAZwOCD0iBXMwQAZCBw9//t/wcUAICgHBYggK//aFAAvQBPoGqqoE7OFeAErqBrn+AHWAD8QSA6AACy/2ggKgNVIAQuYAqM4FasoE/MVP/joGXbIBpsYIsOVSBX8WAViuA/EiA8UUAASwBHAF5gkaMV4HLSYHoa4B35/4JVoFff4BTjYB6d4IUpUSAhLgCYIGPDIAwKUeCOpf8RIHDQ4GhxVWAIQaBWrWAn2qB330XgOyYgGE4AGeAEwgT/MyAnjP+x/wpR4FGDAB7ga96ghtdE/5ggakEAGOBRa0UgaB3gka//C+BGwBXgHgCgJ4kgOrb/hwVgAdogG/r/XQDzRP83IBsxAC+gCHg0/5PgfOrgG6EFXgCqouBpwyAV5OB76aAOoq/gE3wAkuB352CuKulghKLgJsWgHisAKDkAYCBIFyAJ3v8qkCB50+BLZiB4n/+qMiAiMyA4sOB/F6ALircgoOfgIYAAvuCPqttgJLNgSb5gItxgWKI1oCJPAG0gA/ngsirAoLjooAXb4AkOAKpIoCVroEz14E6sYB2qoyAQT6AOx6CbhKArKglgat4gM8RgTgEAqspgXgBgG5hgD/YgbqqpoCUyIBfkICkBoEiqRSAGx6AR8KBn+mB2oqMgQ2UAB+CObqAYFg4gASGIj6AQy/8xRABcIFIBAHlgYkZVYBad4FzEYGjYoA3+QP8oAPH/VuAiCFHgYCQAlmAe/SAQJQWgAb8gkEcAdQBnFSBAmSAPySA51/+aRP8rYJkxAEQgEABRoG4W' $Extract_Sound_Close &= 'AN1gP3ygrvJFoBwkYDwtAHKgfjpVYH2GYCzmYC8EIBLB1eAUVSAwgyALwCAWYSaq+uA+sCCRIyBCOGDICBYAJ6AH8v8IAKrUoMS0oEwp4GP2oDCiVeAA/v/8YAbDIG0q0+AWBKASEiCxowCqYuAJsCAh2KB9tOAXqizgRAhgQyig4kRgCor9IDGXIMsGAOCgJKrOYFiCoGRaIEueYBqquKAkAiC/qeDrTKBWqIkAl+Cc+uA2tSBHquQgB5QgBjagQB4gfaI/YLQZANPgd+4gNKKi4A4dAIegBpNgpApioIk84LDH/33/qnTgGxegFlggsK/gFAKRIPBwAH3/Jf+qgHAKN3Bd0ZAb3tAHCkJwVK1QG9//E/+KNLAhhlALsP+bMD6qMdAXiHAzAZBRX9BJqPr/cfAHznAJ9nBuioKwATxwJtz/vVAeopXwHCYA7RAh9LBXqCMA7/AG7PBdtTAAKs4QPimwOZdwCfj/AIoA4wCWAMb/il1QAzfQVLf/RxBOigowKyiwC2IAstAiVtQQE3EznfBU3NAE9VUQEB2QM3RwZvVQEw1UAHeQHn6wYKlwAjNVkFEWcFMHMARjEBfcQXAi2P9Q/3gQFWpUAFAQAdiwEknQLDRVMBfOEBWJMATTUAQbBXAD67A4XwDdAKtVsCSjUEHBsEHMsFTJVP9+sCMKMFprMCNRVVAENnBNwvAMwdAIqhWwDNcwEizQF5UAO1VwI/+wDvxQII6wBttFMAANMEAsAEkQCB2rkBtxZLhwL43QZecQEor7sAkfUB81AHawlapdMBaHUF2pkDcXsCiK27As9BAmdwClsA2iMTAKhf92EAv5kAeK3jAUrHByTABZ8C+qXLAUHhADE5AY19COqrbwHayQJgRQB1BQKKq+cAak8DAgMBWUUBqq4lBI2/BQ85AjznCSqj8QYKLQCdkQCSLwF6rGMAKYMEW6MB4PsD+qUjBFJNAPbxBKKDARqpWQZoQQJQPQQBnQRKL80DgAAAwwOm5QTCoWcASscGDhMBXP/4jq/y0wM+n/G/CgqgZwBnrQeMvwEcyQJFUxDu1QZ78QBA+wBFRVkEEyEAQeMBkakCPEVRAojZBw8dA5FlAE/lWwDw/wLYEwETYQOc1V0AvaMGzAMADSUATXVbCQNvAFDzCVTnBtUVUwYdGwm7aQld0wBgZVMIDoEAf+MB0eUECC1TAJ9rAJ0PBJ7pAjsQKq9pAZtBAYVrBeFxBEqmcQDvvQAeQwF8vwNKq+MALj8FfkMGk5sAGqMxAYRJAAKzApz3BBqsUwAM9QCe4wKwKwF6r08EhkUDJbMA31EClWxVBxEQe+sADdcAACVTATTtBxD5BTQTAUA1UQCcqwmNPwA9dwCgdV8BXm0BND0CH4ULWfFfAN/HAaw1AYoP/WVbAm1vAIA/BK69APM0XQOouQKjYA4dAnrbWwAedwBr0QaPFc43CAWm3QegqwTpGx9zAa3lWQBrvQZtQwAN4QiClVcAY3MEj3EAxUMAknVTAJ7fATiFBC/HAPxFUwG/kwFAbQFVIQRE1VMIE5MAIIcAPZsDqOVVBgpNAJGDBU+zCaL1XwNjoQDnUQNCNQObtVECiKsCX1UBjpMCAbVZAj+HACHvAWW5CnN1VQT9+QLaFwCd/wC+9V0A8C8BzbkAxMkAYYVXCWZ1AA3fAz6RAZuKvQRrGYydAAFBAmGrA2qk3wATSwKlnwAM5wBKrG8HSgMCLu0GwHkBJW4FAFUTky0ERFUBcjVdAO6RAN63AJ2FAxr1UwOATwV+ZwFTRQYx5VUDRzsAk1UJ/J0BmjVRAC+VBS4bAQ7LAEA1UwMiRwBH7QjDKwCuNVsBmaMBC8MBzukAIKVbAW+FAAIJAQNNB2TlWwOCLwlaEQNtxwCa1VUAXuUEXOkIYXEARfVfAGF3CRXnAAHPB2rVXwILuwMKiQHgnwEgFVUCLzsBM4MAcrcA5xVVAFElAHu7AS7dAepFXQJdwQAOjQPDMQETdV' $Extract_Sound_Close &= 'EAzwkGhokChQsBHgVXAHsRAKljAz6BAkAlXwTQBwAT6wAvyQzH5VkD44cBLU8CmncALLVdAj4bAY6rAR9lAr7LUSiTQQQ6TwJBFAw7B5qrBwFu6wRb1QBecQMKrncBECUC9c0CQD8Ayqa5BbIlAFBpAVuHCSqsvQE5swEPKQaf+wBar3EBUx8BgnEBB2MCxaTnAO0dAE0SnF8ELpVZAU3pAew9AvM1BwGVWwDzNQCD8QLUSQTgercC2RiKIQAL7wArXwBaoAkBc4EBn/8B5C8FCqExAQbNAx+xAXzHB/asewFcXSOv4QVfFW8FXQRh/QMUQQN2+QJh5VcAXf8B6kEBPLUArjVbAC5hADzPANC9AFH1UwGEcwCywwuFJQSuFVUBPvsBe0kAvFECDFq/AAcd8osDIhUI4SUNSqHNAiYLAFOvAp1BACVRETvJAL7FAn41AJ6GuwDjEDM3AIX5ADkQBCVZAUCLAx6/AB5NBOuFWQC80QQvgwcTcQDRhFcKEJUAsTAOWw13VVUA8a8BPScAi40DurFZAC+9AFBvAMUrwADgACAAcA9P8A7/8RACgAHQAAQwBdABgA6P8A8//w/8X/z/8C9wAc8v/p/9j/CMn/3wA09/8FAAAPADgATAApAADw/xQATgA0AAIFAIIEANX/1v8C5QBO0v/e/9X/INv/AQAGAJ4pAAL7AIIoABQA1/+g/f9RAHEAwhIAcgLYALa5/7P/6v8IAgDlAG0TAO7/CuAAgxcAGwcAOgCAPQAgACoAMAAHKj0AW9oAT9kAL+D/IvgAXcD/6AAH0/8A7P8VAC4AIgCKJgADIgA5JQAzAF2AQQAOAOT/4gCtALX/mP+o/8r/AM7/y//0/w8AChoAARgAqxQALAAAGQD2/yUAawCieIBgKADvgBDagC8oZf9ygC8HgEH9/wrxgDIKgELw/+7/AD0AZwA+AC8AoFcAWgArgEfXgD6C2YAA0f/I/8OAk4rQgDLdgJMFACeAEggPABaAWkMAGwAgNgBpAE2AIQIAiuqAFNaAAbP/voCmqtyASe6AA+SAeBiAPigAAGKAACaAZl4AgkiAIAwAxv/BgBBG6oC6gajJ/+aAeMVU/7KAvy2AJxKAjE/BgMIZADcAUIB3gZ+o/P+6gEP+gEy4gK2Izv+3gIEHAPqAYSgtAB+Aei+Axf7/ohaAeV4AJIAw+IArqr+AGbvAAN1ACvvALwbnwCRBc+r/6/8pVABRwFIbQGFYQD0GVADAwDjkQADzQEbOFP/NQFTswDHj//pE/wZAUBkA8cAyL1QACEAKSsAyO8BjElQA6cAMxMI96kAH+lFAF/n/9cAl68KV/xFAYC8AFUAjTwBS1UAMC8AQ1MA64kAAQVMqEUBGzUBBBcCW2P+CHMAT7f8aADzALqD3/0MAX8AmBUAZqvnADOJAntTACupAUirfwCT+QBnnQD4MAKrjQLYnwDANQD9RwJWgEwARAANABc9AL4rtwCXaQBcBAOtADmroQH7uwA/xQDhBYiUVwHBPwFcYwCcWAOJE/7xABwIA9cAt51T/18BYusCk80CA3VXAJDNAGCPAoApACj9VQGQ5wGclQBwSQNbFVP+qQKzsQCi3QH/uUcJB6P/8wE0CQE0WVAAQwFstQIs+wHNEVUASHEDCz0AY10CKwpHAffH/4UCa8f/B0arqwEwRwK8MwEouQAuKNEALJsAoNQAxQBIoyP+kQDT7QAnD/4rGQDfnwMvo//ZAwqrRwA0ywCceQDMpwCoqIMAcDkAeM8AQHgBW3iAGIXzH4kbGoHf0laB3AaBWFCAs+P+hTYAJAP3/IwBAoA4qMyAcOmAvD6Awy/+opv+tIBv1YDzHYByq2CBCASAR5OABF6BGVaEnH6AFMmANGeAbJVWgbgygcPWgBb6gVdIV4BXT4DXjIBz+/ywVoAUF4EErYAv6/wlVIA0pICobIGJCoAD5VaBG3aAGvWAG2aBE0zVgKARgJfcgVaF5//+qECAH' $Extract_Sound_Close &= '/OIxOmAcEyAqVjWgUaE28KAGu+A75BXgKAmgJ9VgRfn/C1XgEOzgDhLgNBpgDSNUACGgQxlgUijgKwwVICDx4CLzYATK/7FVoAf0YDLS4CoSoFwLRWCINmAi8f8Z4AYaRSAlBCAGNABHYAD9BeAo2eAS3v+c/6+t4AcPIAIhBe/gJAzgDFYWIFChKj5gWRjgE/BFIFUxoAECAMQgN+5VIAbhoBvS4AIG4B8PVeAQ3uBSLSAAJeAZ80XgIADgPh0A3WCE/VT/OuAkFSB79KAG5a2gPwOgbqEUJ6A27mAFqAIA/6AY+CAD8uBBKPf/LuAVCOBhPQCqReBADOAJ6uAa4OAEqhWgKNlgBQfgbs+gQKr4YCna4CQVoAQT4HOCQ6AA+/8kAFvgQKodIC3+IA7eIA3i4FQaxCAy5SABIQ8RAAAV4CgpYHP/YBkeAEtVoBsIYABT4DI2YC3BVP+gYDjgIAzPIFP2RSAT62A5AQDh4AcKVSK6G2BuLGAcKuAACRXgH/UgIR9gSMv/rlUgBvNgEuWgKfNgPgtRIC8NAPLgEAmgNhpVYAEAoC0LoCYMYCXxVWJ2E6CyFCAX62B9+lWgAPCgauHgMfGgIQ1V4AT24Ej+YCrvIGUI1SAbCGAUJGBJNuAt4XNa8SKW32AMYQ70IBfpFaAc7WJH+yAC7v8dVWBGH+AqHaAPEiAXOlWgcvkgBPpgBOqgB89U/8wgK//gB9tgXfFVYB0ZoC0fIBb+IDgntaAFDuAcHiAO4aH94FRV4e3PIDDs4B3r4Eb3VSAgBaARDaAV+eDuG6ugB2F0FyAHC+ACEeBPqvZgCf8gG+3gB8xgN7r/4B0IYCdhEuFpI2AMUaGC//8borMMIB71RP8fMAcXAOAwIPZV8Ab/sAnoEATusAQIVADs0A0QMAQJMBQGVTBD+5APDFI6DjAAENXwIwswCP6QA/GQIjEkqgJQCO1QBQPwD/6QL6oJMCgH0AMcEAsC0AJWBlADEQUPMDD30BP7rTAH/PAK8V71MAcCEApa8pADANAJkR8CsAIQa/AN8Qbx0AkCEm0xeOxV0A0JUAz/EA3bcAnpVTALB/Ay7vAW+HACFttQB1EvF7AC8QQDsAcxEqoL0BYt0AD8MAL78BWq/fAV3DAD/lAgAFABqvLQAwDSPP6QIu0wDKoUsAQI0A8J8AH+0EVaGFACANAEsSPvEAT1VZAH75AGDbAJ4PADCluQAfFA9NATkRMIUAMCVfAL/VAREXAQGFAK/6uwChEn4JAD7xAd+zAAagUwAuxwABOwE7EW4quyVPEOC9AAGpAhA7AQVRGb/lAHCRAI9bAD5W3wCw8yMLEI8lAbUQwDrbAC8vAS0RMOEAgBkAfWENJEsRAOcBD6EA/xAqoGUBL88p780ioMUAKqEBAH9jAEClAPF5AEWvRQEwmwAxF3BfAH7etQCtFR89As6tAHgAbQBLURHPeQAAzQHpEyAfAD2gnQPAuwEDOmIZABMR2q6dAG/bAVB7AF8ZAItfEAE3AB8zAUUSwXsBKqD9Al9dA2/bAGGPAUiviQKBCQifj/DtITqAgA21AjCzADALAw3VGF+XAY8ZHRFRIQAfEgqg3wBg6wA/ByXxUQOqoF8Kb1cHHVEAH/EA+qChAW7jAFDnATFFADqvewAOjwGipQC/+wT+r7sAIHEBUNMDvxONGHqvswTviQDwSQDPEwAtb98AVxF/4wHPmQALE5avJQAgAQBAwQFBEZE+1QAuwSXbEiCJADsQcRK9oUMAztEAcRIxdQCnEuTdERCtASEQIAADE7D6swBDEo7NIt3xABHLAGqgDSi/wQQfGwEB2SFaoNsAACMhEBMpPssAdVMTcOEAj0cAP0EAANVZAB/RAZAHAM5lAJFtVQBgfwC/fQGAAwEjFc1v6QJVEFBVAaJXAJ805W9DAOERb30AD/sAj1q7AM8R0IkBLv0AH5cBVWHrAD0RcH0AcJcAcBrdADBVCXMUzy8BUJMBS2BhAG' $Extract_Sound_Close &= 'MScA0ATxcQPwH9r4UAH88AWRaO/wBREBtgKSK/EmC3AQUXv+UAdrkTKRB/5QAhEQAtEqAVUwAfpwEgIwBAlQAPq1ECn9sCMTMkrRAPhQC6oD8AAF8AL48An48ApVMRX6kBz1EBcFcAIOq9J0UaHk0AkLsAEO8AWr0W7RD/wwBwaQDgrSN6rsUAn/MAsMEAH00AFV8W4F8D0P8AoDkAH2VXICAlAoELAG99AI+lVwAvcyEfdSDAHwSgFrEgnRGvYwBv1wAHGXBHdwETFkURkCsADxDRE69tXwAQK0TPrQAgCQBJE2qgwyS/1QKQZSjwvwM6oJkCAB9D37sAUHkANaBDAA8VAEUZH70BEOq1AG0RcBUhgJ0CoCsAarEQ3RpgjQAwQyiPxwC3URB/xwAf3wI/Eu8XQEazAA8UoTMAgEUlZxOPv1cAcI0AAK0AtRMlFoUbnVUUQBEAP0Ehf2kiuRTLoCUAD78AHxAjENEdADr5Fu0XwxwzFJBhIK9HAc63FmkU4MEAb9cheRzhFd7hSyTjFO0YH/cmTxELEb11Fq0QyxGQ/SLvbQBLEEVVEMCxAG/1ACAvKGAfdyTpEtMQT5dAJxNfHR0U538R7RBxEjEjABEYyxCvPfMALRJzEU0QtTHwXwCHF0egQSLfkwDBMD8T9RAACr0A4xEwFQEAPSgP2wCrvxKxEx9ZJMcWwRH/4wBtURDgiwAwiSBvuQDTFDd5EKscGxNfmwAnFlccYKV/AUcQ0VbwgSbAmQAia1AAIA///7//n/CP7//QAQAgALAIABAP7/AAD6AKig+v8BAAMANAYAVIIIAFwAAPv/+ACURQEAAABkEQD2AIwAUAD9//wAUvgACg9UAAkASvwAPv4Afv8VADoEACIFAAIBAAIdAAbxACYBjgEuBwAGNQBS/gB7AAAZAUMFAF4KACkBiQAiACP+AI8ErQAPDAAVATfzAhn7AgUiDACRAgD3ABX+/4r2AGv9AKX//wkAVdoCADv9AHkBY/0AQwMVXAMAAWcBbwFXAAA9BiMAWwFNAQD1gAj3/7oHgCQEgAuBIIEb+4AAu4EEgUsNgBaBCYF9/IAgavyADAeAVgCAFYE9+tWAH/yAIP2AFQmCLIGoVvqAFoEY/oAMCYJL/KOAMIEV/v8DgmgIgBSrgY2BSfeCq/yCTQqAFouBy4HJ/YJx//8KgDi1g2j7gAH8gACDwgOAN6uB04En+II4/oBC/oZy14ESgeSBJ/yEDguCZ4ExavxABfjABARAEEEzB13AIwPANEEAAwD9wCoBu8BbwWgBQAFBBkE1AsIo9gJCO8FJ+cAFQQpBbcFH7gHAPMEkwR0Ewg1BLMGBfgPEc8MowWTBC8EgQzIE78AEQZ/DicFKAUJlQTJDRP4DwAHBAsGSwSvBIsFywTf+AUJZQRTBncGYwVdBDMFy/0EcwX1BhEEPQRHBDUFYwSr9QRoBQp1BPkEZQX3BHkFI/gfAAUMGQWHBLkNewaLBQP/BE0U1QRnBOMEBwWNBF0Mt/0N/wSHBfkPbQSzBB0FHw739wRwDRkfBKsFsQ3xBIQIv/0JxQSRBAcEgwSPBCsEFQSi7wUNDBf/AfUESQRkBwKf/QwzBTgEA4y/jVeN3YT2jdfb+4BvhDvmgAWE5oQhhC/ujLmE5AiJYIUshBqEUY0P9YQUAohVhDSER4RbhAOMl/6NAoWVhG2EBoQ6jHeEQYQT/IRRhU6ESoTAhA2ESYQshVf8hDeEFoxWjVCEnIx+hAONE/6MKIxAhCKEJoxAjDuENISDfoxChBKMPowshBfrgIGEO72ErIw4hLyEb/aQ9AQCjE//hEyMRIXCjYiNJYQUhDGEI/6MjIwdhF6EEYTbhGqEE4RHvoQmhCGF4oZz7qCwjG+WA/6dC4VKlGiEKIQihAGEB4QL/4yAjQSMnoSjjFCMRYRAjA//hC2Ef4RmhIKEkIyQhIaEE/6NeYwjEASRfYafhBKMmo1L/ozNhRaEUYRVhCqMq' $Extract_Sound_Close &= 'Y1/jCf8lImMvY3BhCuMOoz6hDmEG/2MaIQuhECFF5WFlKGMPoyD/IQahGSMHYwWjXWc5IQJhBvejFOMIYTL6IjEjIKM9oRv/I0WhGGNQ4QylAmUR44KlPf/hBiEDoSKjLWElJUFjZuMo/+Up4zOlAWMEZRAlCmcaIQ7/Yw2jA6NrIQQjKCMe4xwzAP8zDnMA8wCzDJUAcwb1CVMh/7UdsQkxK9Mgk1TVIPcPsR/7FxfxAgX0SxUOOQDTExcN/3cFMxyTAZUmsQQzM/UDtRb/MwqxKDMAMy91FPEQEQyVH/+zADMctQ2XJbMQ1TIVDFMS/fcg+1I6kwMVCBUrtUDVCf/VJ1coHwmTNzMU1xD1SbEB/1UtVyG5FPUHMwezNDMnlQf/vwATQjcEE1cVFrcY9SK1AP9zBlkgtR9zAxcQVRoZAdMSB5UjlwETDExJU1QcAXABSU5GT0lBUgRUELAAUm9kcmkAZ28gQ2hhdmUAcwAAaWQzICQJMQJEM8MoGVRQRQoxcAAPzwI=' $Extract_Sound_Close = _WinAPI_Base64Decode($Extract_Sound_Close) Local $tSource = DllStructCreate('byte[' & BinaryLen($Extract_Sound_Close) & ']') DllStructSetData($tSource, 1, $Extract_Sound_Close) Local $tDecompress _WinAPI_LZNTDecompress($tSource, $tDecompress, 27388) $tSource = 0 Local Const $bString = Binary(DllStructGetData($tDecompress, 1)) If $bSaveBinary Then Local Const $hFile = FileOpen($sSavePath & "\close.wav", 18) $sSoundClose = $sSavePath & '\close.wav' If @error Then Return SetError(1, 0, 0) FileWrite($hFile, $bString) FileClose($hFile) $_SoundClose = _SoundOpen($sSoundClose) EndIf Return $bString EndFunc ;==>_Extract_Sound_Close ;Decodifica Func _WinAPI_Base64Decode($sB64String) Local $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "ptr", 0, "dword*", 0, "ptr", 0, "ptr", 0) If @error Or Not $aCrypt[0] Then Return SetError(1, 0, "") Local $bBuffer = DllStructCreate("byte[" & $aCrypt[5] & "]") $aCrypt = DllCall("Crypt32.dll", "bool", "CryptStringToBinaryA", "str", $sB64String, "dword", 0, "dword", 1, "struct*", $bBuffer, "dword*", $aCrypt[5], "ptr", 0, "ptr", 0) If @error Or Not $aCrypt[0] Then Return SetError(2, 0, "") Return DllStructGetData($bBuffer, 1) EndFunc ;==>_WinAPI_Base64Decode ;Descompacta Func _WinAPI_LZNTDecompress(ByRef $tInput, ByRef $tOutput, $iBufferSize) $tOutput = DllStructCreate("byte[" & $iBufferSize & "]") If @error Then Return SetError(1, 0, 0) Local $aRet = DllCall("ntdll.dll", "uint", "RtlDecompressBuffer", "ushort", 0x0002, "struct*", $tOutput, "ulong", $iBufferSize, "struct*", $tInput, "ulong", DllStructGetSize($tInput), "ulong*", 0) If @error Then Return SetError(2, 0, 0) If $aRet[0] Then Return SetError(3, $aRet[0], 0) Return $aRet[6] EndFunc ;==>_WinAPI_LZNTDecompress ;// UDF_AnimateWindow.au3 GifAnimation.au3
  21. nomear e chamar variaveis

    Muito bom o comando Enum. A forma como o array $aKeyboard é construida lembra bastante a de criação de dicionario $oDictionary = ObjCreate("Scripting.Dictionary") $oDictionary.Add ("01", "Um" ) $oDictionary.Add ("02", "Dois") $oDictionary.Add ("03", "Três") $oDictionary.Add ("04", "Quatro")
  22. nomear e chamar variaveis

    Olá, Talvez este código te ajude #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Dim $tSTRUCTPOS = 'struct;int x[256];int y[256];endstruct' Dim $oMouse = DllStructCreate($tSTRUCTPOS) $hWnd_Main = GUICreate("Exemplo", 615, 437, -1, -1) $idBtn_Show = GUICtrlCreateButton('Show Position', 496, 376, 75, 25) GUISetState(@SW_SHOW) While 1 _GetMousePos() $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $idBtn_Show MsgBox(262144+0, 'Show', 'Mouse x = ' & $oMouse.x & @CRLF & 'Mouse y = ' & $oMouse.y) EndSwitch WEnd Func _GetMousePos() Local $_MouseGetPos = MouseGetPos() $oMouse.x = $_MouseGetPos[0] $oMouse.y = $_MouseGetPos[1] WinSetTitle($hWnd_Main, '', 'Exemplo: Mouse x = ' & $oMouse.x & ' - Mouse y = ' & $oMouse.y) EndFunc
  23. Usando a UDF au3Irrlicht2.au3

    Olá, Compartilhando um script de efeitos com direct3D9 usando a biblioteca au3Irrlicht2.au3 #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Res_Description=Background Sample #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_ProductVersion=1.0.0.0 #AutoIt3Wrapper_Res_LegalCopyright=rcneto #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Rodrigo Chaves Script Function: Background Sample 07/2019 #ce ---------------------------------------------------------------------------- #include "au3Irrlicht2.au3" Opt("MustDeclareVars", True) HotKeySet("{ESC}", "_exit") Dim $camera Dim $cameraNode Dim $cloudTexture Dim $cloudNode Dim $aVector3Df[3] SplashTextOn('Background Sample', 'Por favor aguarde - Iniciando audio', 350, 110, -1, -1, 32) SoundPlay(@ScriptDir & '\Media\audio.mp3') Sleep(3000) SplashOff() _irrStart($irr_Edt_Direct3D9, 1024, 768, $irr_Bits_Per_Pixel_32, $irr_Windowed, $irr_Shadows, $irr_Ignore_Events, $irr_Vertical_Sync_On) _irrSetResizableWindow($irr_on) _irrSetWindowCaption("Background Sample / Pressione Esc para fechar") $cloudTexture = _irrGetTexture("media/cloud1.bmp") $cloudNode = _irrAddClouds($cloudTexture, 1, 1000, 3100) _irrSetNodeMaterialFlag($cloudNode, $irr_Emf_Fog_Enable, $irr_On) _irrSetNodePosition($cloudNode, 4000, 100, 4000) _irrAddRotationAnimator($cloudNode, 0.05, 0.08, 0.05) $camera = _irrAddCamera(0, 0, 0, 0, 0, 0) $cameraNode = $camera _irrSetNodePosition($cameraNode, 4000, 2000.7, 20000.9) _irrSetCameraFov($cameraNode, 1.55) _irrSetCameraClipDistance($camera, 12000) _irrSetAmbientLight(0.1, 0.1, 0.1) While _irrRunning() _irrBeginScene(130, 130, 255) $aVector3Df = _irrGetNodePosition($cameraNode) _irrDrawScene() _irrEndScene() WEnd _irrStop() Func _exit() _irrstop() Exit EndFunc https://www.youtube.com/watch?v=lo03F6CpXXc&feature=youtu.be O código fonte, biblioteca e arquivos de mídia estão no link abaixo https://1drv.ms/u/s!AnsPM67Cyv4XjJF_gnMKVuSCQdpdig?e=QM0aa8
  24. Animate Window (Animar GUI do Autoit)

    E as variáveis parecem ficar mais elegantes
  25. Animate Window (Animar GUI do Autoit)

    Olá, Compartilhando um script de efeitos de entrada e saída de GUI utilizando a função _WinAPI_AnimateWindow Deve ser usado junto com GUISetState() #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: Rodrigo Chaves Script Function: Animate Window 07/2019 Base de pesquisa https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-animatewindow #ce ---------------------------------------------------------------------------- #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <WinAPIDiag.au3> ;Variaveis de efeitos Dim Const $tSTRUCT = 'struct;char fadeIn[128];char fadeOut[128];char Slide_In_Left[128];char Slide_Out_Left[128];char Slide_In_Right[128];char Slide_Out_Right[128];char Slide_In_Top[128];char Slide_Out_Top[128];' & _ 'char Slide_In_Bottom[128];char Slide_Out_Bottom[128];char DiagSlide_In_TopLeft[128];char DiagSlide_Out_TopLeft[128];char DiagSlide_In_TopRight[128];char DiagSlide_Out_TopRight[128];' & _ 'char DiagSlide_In_BottomLeft[128];char DiagSlide_Out_BottomLeft[128];char DiagSlide_In_BottomRight[128];char DiagSlide_Out_BottomRight[128];char explode[128];char implode[128];endstruct' Dim $oAW = DllStructCreate($tSTRUCT) $oAW.fadeIn = 0x00080000 $oAW.fadeOut = 0x00090000 $oAW.slide_In_Left = 0x00040001 $oAW.slide_Out_Left = 0x00050002 $oAW.slide_In_Top = 0x00040004 $oAW.slide_Out_Top = 0x00050008 $oAW.slide_In_Right = 0x00040002 $oAW.slide_Out_Right = 0x00050001 $oAW.slide_In_Bottom = 0x00040008 $oAW.slide_Out_Bottom = 0x00050004 $oAW.diagSlide_In_TopLeft = 0x00040005 $oAW.diagSlide_Out_TopLeft = 0x0005000a $oAW.diagSlide_In_TopRight = 0x00040006 $oAW.diagSlide_Out_TopRight = 0x00050009 $oAW.diagSlide_In_BottomLeft = 0x00040009 $oAW.diagSlide_Out_BottomLeft = 0x00050006 $oAW.diagSlide_In_BottomRight = 0x0004000a $oAW.diagSlide_Out_BottomRight = 0x00050005 $oAW.explode = 0x00040010 $oAW.implode = 0x00050010 ;Verificar a estrutura da variavel ;~ _WinAPI_DisplayStruct($oAW, $tSTRUCT) ;Variaveis de cores Dim Const $tagSTRUCT = 'struct;char white[8];char black[8];char dark[8];char light[8];char darkLight[8];char aqua[8];char alpha[2];endstruct' Dim $oColor = DllStructCreate($tagSTRUCT) $oColor.white = 0xFFFFFF $oColor.black = 0x000000 $oColor.dark = 0x202020 $oColor.light = 0xf5f6f7 $oColor.darkLight = 0x323232 $oColor.aqua = 0x00f2ff $oColor.alpha = -2 ;Verificar a estrutura da variavel ;~ _WinAPI_DisplayStruct($oColor, $tagSTRUCT) ;Texto de exemplo Dim $sSampleText = 'Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor ' & _ 'incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud ' & _ 'exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure ' & _ 'dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur ' & _ 'sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.' $hWnd_Main = GUICreate("", 615, 437, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOPMOST) GUISetBkColor($oColor.dark) $aGetPos = WinGetPos($hWnd_Main) $sLabel_Title = GUICtrlCreateLabel(" Exemplo de janela animada", 0, 0, $aGetPos[2] - 2, 17, $SS_CENTERIMAGE, $GUI_WS_EX_PARENTDRAG) GUICtrlSetFont(-1, 10, 400, 0, "Segoe UI") GUICtrlSetBkColor(-1, $oColor.darkLight) GUICtrlSetColor(-1, $oColor.white) $Label2 = GUICtrlCreateLabel($sSampleText, 35, 40, 546, 337) GUICtrlSetFont(-1, 11, 400, 0, "Segoe UI") GUICtrlSetColor(-1, $oColor.white) $idBtn_Run = GUICtrlCreateButton("Run Effect", 430, 385, 75, 25) $idBtn_Exit = GUICtrlCreateButton("Exit", 510, 385, 75, 25) GUISetState(@SW_SHOW) ;Cria um sublinhado na barra de titulo $lineGraphic = GUICtrlCreateGraphic(0, 18, $aGetPos[2] - 1, 1) GUICtrlSetBkColor(-1, $oColor.aqua) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $idBtn_Exit Exit Case $idBtn_Run GUICtrlSetState($idBtn_Run, $GUI_HIDE) GUISetState(@SW_HIDE, $hWnd_Main) Sleep(1500) For $i = 1 To 20 ;Coleta o valor da variavel da estrutura $oAW $getAW = DllStructGetData($oAW, $i) ;Aplica o efeito _WinAPI_AnimateWindow($hWnd_Main, $getAW, 300) Sleep(200) Next ;Aplica o efeito de entrada fade-in com tempo de entrada de 1s (1000ms) _WinAPI_AnimateWindow($hWnd_Main, $oAW.fadeIn, 1000) ;Recolore o sublinhado GUICtrlSetBkColor($lineGraphic, $oColor.aqua) GUISetState(@SW_SHOW) GUICtrlSetState($idBtn_Run, $GUI_SHOW) EndSwitch WEnd
×