@Echo off
echo.
Echo date time > nul
Mode 8F,25
mode con:cols=70 lines=10

:Loopz
cls
Color 80
Call Button 15 3 D0 " Start " 45 3 D0 " Exit " X _Box _hover
GetInput /M %_Box% /H 50

Title button # %Errorlevel% clicked.
if %Errorlevel%==1 goto :Start
if not %Errorlevel%==1 goto :Exit

:Start
color DF
cls
Title Alana's Timer
Echo Hello and welcome to your work timer Alana.
Echo.
Echo It is %DATE% and the time is %TIME%
pause
(goto :Durationget)
if @Errorlevel==1 goto :Start
if @Errorlevel== goto :Durationget
if @Errorlevel==3 goto :exit

:Exit
exit

:Durationget
setlocal enableextensions enabledelayedexpansion
cls
set /p "Duration=How long (In Hours) Do you have to work? "
set /a "Test=Duration"
  if %Test% EQU 0 (
  if %Duration% EQU 0 (
    echo Number
    ) else (
  echo Alana,that isnt a number.
  goto :Durationget
  )
) else (
  echo Okay.Ive got you set for %Duration% Hours.
  title Alanas working Timer %Duration% hours total.
)
cls
Echo Thank you for working for %Duration% hours.
(goto :Initiate)

:Initiate
Set /p "Responce=(Would you like to begin now?(Yes will begin the timer) "
if %Responce%== yes goto :Timer
if %Responce%== Yes goto :Timer
if %Responce%== "" goto :Start
if Not %Responce%== Yes goto :Start
if Not %Responce%== yes goto :Start

:Timer
Echo Timer has Started.
Cls
set /a loop = 1
set HoursL=%Duration%
echo %HoursL% Remaining. > nul
goto :loop

:Loop

set file= C:\Users\Alana\Desktop\Alanas Timer\Click.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
timeout /t 20 > nul
echo Query # %loop%
cls
set /a loop=%loop%+1
if "%loop%"=="180" goto next
goto loop

:next
set /a loop = 1
set /a HoursL=HoursL-1
Cls
echo You have completed one hour of work.remember to give your eyes a rest!
echo you have %HoursL% hours left.
pause
if "%HoursL%"=="0" goto :Done
if Not %HoursL%=="0" goto :loop

:Done
set file= C:\Users\Alana\Desktop\Alanas Timer\succeed.wav
( echo Set Sound = CreateObject("WMPlayer.OCX.7"^)
  echo Sound.URL = "%file%"
  echo Sound.Controls.play
  echo do while Sound.currentmedia.duration = 0
  echo wscript.sleep 100
  echo loop
  echo wscript.sleep (int(Sound.currentmedia.duration^)+1^)*1000) >sound.vbs
start /min sound.vbs
echo You are finished! hooray!! (pressing any key will close program)
Pause

:er3
cls
color 8F
pause > nul