FileInstall, ws4ahk.ahk, %A_WorkingDir%\ws4ahk.ahk, 1
FileInstall, Cola readme.txt, %A_WorkingDir%\Cola readme.txt, 1

#SingleInstance, Force

   #Include ws4ahk.ahk
   WS_Initialize()
   OnExit, ExitCleanup
   
   code = 
   (
      Set ISpeechVoice = CreateObject("SAPI.SpVoice")
      ISpeechVoice.Rate = -2
   )
   WS_Exec(code)   
   Gosub, Nalli
Return





Nalli:



Gui, Add, Slider, x6 y40 w240 h30 +Range-10-10 +tooltip vMySlider, -3
Gui, Add, Edit, x6 y10 w220 h20 vColalol, Is the cola in the freezer? 
Gui, Add, Edit, x266 y10 w50 h20 vTime, 15
Gui, Add, Button, x286 y40 w100 h30 gSub1, Accept
Gui, Add, Button, x246 y40 w40 h30 gTest, Test
jeps:
Gui, Font, S10 CDefault, 
Gui, Add, Text, x226 y10 w40 h20 , Every
Gui, Add, Text, x316 y10 w60 h20 , Minute(s)
Gui, Show, h77 w393, Cola 1.0
Return

GuiClose:
Filedelete, %A_WorkingDir%\ws4ahk.ahk
ExitApp


Sub1:
Minute = 60
Guicontrolget, Time
Guicontrolget, Colalol
Guicontrolget, MySlider
Gui, destroy

MsgBox, 4,, I will remind you every %Time% Minute(s)?
	IfMsgBox No
GoSub, Nalli
else

EnvMult, Time, 60
EnvMult, Time, 1000
OFF = %Time%

Gosub, Sub5

Sub5:
Sleep, 1000

OFF -= 1000

Minutes = %OFF%
Minutes /= 60000


Minute -= 1

Mammoth = %Minute%
If Minute <= 0
Minute = 60


TrayTip, Cola 1.0 Ultrapanel, Warning in: %Minutes% Minute(s) %Mammoth% Second(s), 1, 17
if OFF = 0
GoSub, Sub2
else
GoSub, Sub5


Sub2:
speakee := VBStr(colalol)
   code = 
   (
ISpeechVoice.Rate = %MySlider%
      ISpeechVoice.Speak %speakee%, 3
   )
   WS_Exec(code)

OFF = %Time%
Minute = 60
GoSub Sub5

return


ExitCleanup:
   WS_Uninitialize()
   ExitApp

Return


Test:
Guicontrolget, Time
Guicontrolget, Colalol
Guicontrolget, MySlider
speakee := VBStr(colalol)
   code = 
   (
ISpeechVoice.Rate = %MySlider%
      ISpeechVoice.Speak %speakee%, 3
   )
   WS_Exec(code)
Gosub, jeps
return


+F12::gosub, kiinni
return


kiinni:
Exitapp