#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