#SingleInstance Force
SetWorkingDir %A_ScriptDir%
HideArr := Object()
Global compliance := {}
  
applicationname=oclock
SetingsTime=1200
;**************
a1=NUKEXPLO.wav
a2=MEHANICS.waw
a3=MEHANIx.waw
a4=NUKEXPLO2.mp3
SeALARM= %A3%
i1=Metro.mp3
i2=X.wav
i3=Clock.wav
SeINTRO= %i2%
SeHKI=^printscreen
SeHKS=^#printscreen
;**************
gosub ini
Loop 60 
    n := A_Index-1, n := n < 10 ? 0 n : n, a := StrSplit(n) 
    , compliance[n] := a[2] > 4 || a[2] = 0 || a[1] = 1 ? 3 : a[2] > 1 && a[2] < 5 ? 2 : 1 
    loop
    {
    
    sleep 1500
    777=%A_Hour%%A_Min%
    gosub ini
    if 777 in %clock2% 
    {
    SoundPlay, %ALARM% , wait    
    gosub 555
    }
    } 
return
  


!space:: gosub 555
555:
SoundPlay, %INTRO%, wait
Speech(A_Hour, A_Min) 
return    
Speech(h, m)  { 
    a := StrSplit(h)
    SoundPlay, % (h = "00" ? 0 : a[1] = 0 ? "" : a[1] = 1 ? h : a[1] 0) ".wav", wait
    SoundPlay, % (a[1] = 1 || a[2] = 0 ? "" : a[2]) ".wav", wait
    SoundPlay, % "Hour_" compliance[h] ".wav", wait
    a := StrSplit(m)
    SoundPlay, % (a[1] = 0 ? "" : a[1] = 1 ? m : a[1] 0) ".wav", wait
    SoundPlay, % (a[1] = 1 || (a[2] = 0 && a[1] > 1) ? "" : a[2] = 1 || a[2] = 2 ? a[2] "M" : a[2]) ".wav", wait
    SoundPlay, % "Min_" compliance[m] ".wav", wait 
}  
    return
 
    
#!space::

SETTINGS:
        Gui,Destroy
        Gui,Add,GroupBox, x12 y10 w230 h350,clock
        Gui,Add,Button, x202 y380 w100 h30 GSETTINGSOK,Сохранить
        Gui,Add,Button, x332 y380 w100 h30 GSETTINGSCANCEL Default, &Отмена
        Gui,Add,Edit,x22 y30 w210 h320 vsclock,%clock2%
        Gui,Show, x127 y87 h427 w509,%applicationname% Settings %A_hour%:%A_min%
        Gui, Add, GroupBox, x252 y10 w220 h140 , ALARM
        Gui, Add, Radio, x262 y30 w200 h20 Group vsA1 , NUKEXPLO
        Gui, Add, Radio, x262 y60 w200 h20 vsA2 , MEHANICS
        Gui, Add, Radio, x262 y90 w200 h20 vsA3 , MEHANIX
        Gui, Add, Radio, x262 y120 w200 h20 vsA4 Checked, NUKEXPLO2 
        Gui, Add, GroupBox, x252 y160 w220 h110 , INTRO
        Gui, Add, Radio, x262 y180 w200 h20 vsi1 Group Checked, METRO
        Gui, Add, Radio, x262 y210 w200 h20 vsi2, X
        Gui, Add, Radio, x262 y240 w200 h20 vsi3, Clock
        Gui, Add, Button, x72 y380 w100 h30 GExit, Exit_Clock
    Return

Exit:
 ExitApp
 
SETTINGSOK:
        Gui,Submit
        clock:=sclock
        HKI:=sHKI
        HKS:=sHKS
        if sA1 > 0
        sALARM:=A1
        else if sA2 > 0
        sALARM:=A2
        else if sA3 > 0
        sALARM:=A3
        else if sA4 > 0
        sALARM:=A4
        if si1 > 0
        II:=i1
        else if si2 > 0
        II:=i2
        else if si3 > 0
        II:=i3
        IniWrite,%clock%,%applicationname%.ini,Settings,Time
        IniWrite,%sALARM%,%applicationname%.ini,Settings,ALARM
        IniWrite,%II%,%applicationname%.ini,Settings,INTRO
    Return

SETTINGSCANCEL:
        Gui,Destroy
    Return

INI:
    IfNotExist,%applicationname%.ini
    {
        IniWrite, %SetingsTime% ,%applicationname%.ini,Settings,Time
        IniWrite, %SeALARM% ,%applicationname%.ini,Settings,ALARM
        IniWrite, %SeINTRO% ,%applicationname%.ini,Settings,INTRO
    } else
    {
        IniRead,clock2,%applicationname%.ini,Settings,Time
        IniRead,ALARM,%applicationname%.ini,Settings,ALARM
        IniRead,INTRO,%applicationname%.ini,Settings,INTRO
    }
    If clock2=ERROR
        clock2=1200
    If ALARM=ERROR
        ALARM=MEHANIx.waw
    If INTRO=ERROR
        INTRO=x.waw
    If HKI=ERROR
        HKI=^printscreen
    If HKS=ERROR
        HKS=^#printscreen
    return
    
^F1::reload

#Include %A_ScriptDir%
HideArr := Object()
applicationname=oclock
SetingsTime=2000
;**************
1=NUKEXPLO.wav
2=MEHANICS.waw
3=MEHANIx.waw
sound= %1%
;**************


loop
{
gosub ini
sleep 1500
777 := ""
777=%A_Hour%%A_Min%
if 777 in %clock2%
{
SoundPlay,%sound%        , wait
gosub %777%
}
}


F22::
777 := ""
777=%A_Hour%%A_Min%
gosub %777%
return

0000:
SoundPlay,clock.wav        , wait
SoundPlay,x.wav            , wait
SoundPlay,0.wav            , wait
SoundPlay,Hours.wav        , wait
SoundPlay,0.wav            , wait
SoundPlay,Minutes.wav    , wait
return

f2::

SETTINGS:
            
        Gui,Destroy
        Gui,Add,GroupBox, x12 y10 w230 h350,clock
        Gui,Add,Button, x202 y380 w100 h30 GSETTINGSOK,Сохранить
        Gui,Add,Button, x332 y380 w100 h30 GSETTINGSCANCEL,&Отмена
        Gui,Add,Edit,x22 y30 w210 h320 vsclock,%clock2%
        Gui,Show, x127 y87 h427 w509,%applicationname% Settings
    Return


SETTINGSOK:
        Gui,Submit
        clock:=sclock
        IniWrite,%clock%,%applicationname%.ini,Settings,Time
    Return

SETTINGSCANCEL:
        Gui,Destroy
    Return

INI:
    IfNotExist,%applicationname%.ini
        IniWrite, %SetingsTime% ,%applicationname%.ini,Settings,Time
        IniRead,clock2,%applicationname%.ini,Settings,Time
    If clock2=ERROR
        clock2=1200
    return