#singleinstance,force
#persistent
detecthiddenwindows, on

timer:= 300000
lunch:=2700000
loops:= ceil(lunch/2000)
sysget, mon,monitor,1
myright:= (monright - 350)

gui, add, text,,.
gosub, one
settimer, SetBAR, 1000
return

ONE:
loop, 4
{
	ifwinexist xTask %a_index%
		continue
	else
	{
		xa:= a_index + 1
		if a_index = 1
		{
			xb:= "One"
			xy:= 30
			formattime, one_Start, ,yyyy/MM/dd HH:mm
			start:= one_start
			}
		else if a_index = 2
		{
			xb:= "Two"
			xy:= 165
			formattime, two_Start, ,yyyy/MM/dd HH:mm
			start:= two_start
			}
		else if a_index = 3
		{
			xb:= "Three"
			xy:= 305
			formattime, three_Start, ,yyyy/MM/dd HH:mm
			start:= three_start
			}
		else if a_index = 4
		{
			xb:= "Four"
			xy:= 440
			formattime, four_Start, ,yyyy/MM/dd HH:mm
			start:= four_start
		}
		%xb%_tick:= a_tickcount
		gui, %xa%:add, edit, x5 y+5 w305 r3 v%xb%_edit gsubmit
		gui, %xa%:add, button, x5 y+5 w150 v%xb%_OK gsubmit, Continue
		gui, %xa%:add, button, x+5 yp w150 v%xb%_CAN gsubmit, Done
		gui, %xa%:add, statusbar
		gui, %xa%:default
		sb_setparts(250)
		formattime, _now,,HH:mm:ss
		sb_settext(_now,2)
		gui, %xa%:show, x%myright% y%xy% ,xTask %a_index% - %start%
		gui, %xa%:+alwaysontop
		gui, 1:default
	
		break
	}
}
return

#1::
#numpad1::
gosub, ONE
return

#0::
#numpad0::
one_tick += %lunch%
two_tick += %lunch%
three_tick += %lunch%
four_tick += %lunch%

settimer, task1, off
settimer, task2, off
settimer, task3, off
settimer, task4, off

gui, 2:hide
gui, 3:hide
gui, 4:hide
gui, 5:hide
	
loop, %loops%
{
	splashtexton,100,,Lunch
	sleep, 1000
	splashtextoff
	sleep,1000
}

gui, 2:show
gui, 3:show
gui, 4:show
gui, 5:show

return

#R::reload

submit:
gui, submit,nohide
log_:=

if a_guicontrol = one_OK
{
	gui, 2:show, hide
	settimer, task1, %timer%
}
else if a_guicontrol = one_CAN
{
    if one_edit
    {
        one_Dur:= ceil((a_tickcount- one_tick )/60000)
        log_:= one_start . " (" . one_dur . ") - " . one_edit . "`n"
    }
    gui, 2:destroy
	settimer, task1, off
}
else if a_guicontrol = two_OK
{
	gui, 3:show,hide
	settimer, task2, %timer%
}
else if a_guicontrol = two_CAN
{
    if two_edit
    {
        two_Dur:= ceil((a_tickcount- two_tick )/60000)
        log_:= TWO_start . " (" . two_dur . ") - " . two_edit . "`n"
    }    
    gui, 3:destroy
	settimer, task2, off
}
else if a_guicontrol = THREE_OK
{
	gui, 4:show, hide
	settimer, task3, %timer%
}
else if a_guicontrol = THREE_CAN
{
    if three_edit
    {
        THREE_Dur:= ceil((a_tickcount- THREE_tick )/60000)
        log_:= Three_start . " (" . three_dur . ") - " . three_edit . "`n"
    }
    gui, 4:destroy
	settimer, task3, off
}
else if a_guicontrol = FOUR_OK
{
	gui, 5:show, hide
	settimer, task4, %timer%
}
else if a_guicontrol = four_CAN
{
    if four_edit
    {
        FOUR_Dur:=ceil((a_tickcount - FOUR_tick )/60000)
        log_:= four_start . " (" . four_dur . ") - " . four_edit . "`n"
    }
    gui, 5:destroy
	settimer, task4, off
}
if log_
    fileappend, %log_%, DiYFD.log

return

task1:
gui, 2:show, task 1
settimer, task1, off
return

task2:
gui, 3:show, task 2
settimer, task2, off
return

task3:
gui, 4:show, task 3
settimer, task3, off
return

task4:
gui, 5:show, task 4
settimer, task4, off
return

SetBar:
ifwinnotexist xTask 
	gosub, one

formattime, _now,,HH:mm:ss
loop, 4
{
    xa:= a_index + 1
	gui, %xa%:default
	if a_index = 1
		_tick:= one_tick
	else if a_index = 2
		_tick:= two_tick
	else if a_index = 3
		_tick:= three_tick
	else if a_index = 4
		_tick:= four_tick

	xb:= ceil((a_tickcount - _tick )/60000)
    sb_settext(xb . " mins",1)
    sb_settext(_now,2)
}
gui, 1:default
return