#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>

;==> Set our $font variable
Global $font
$font = "Arial Black"

;Constants
Const $sleepLen = 100
; New variables
Dim $ybluebuffactive = False
Dim $ybluebuffcounter = 0

;==> Create our Graphic User Interface
;Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
$mainwindow = GUICreate("Jungle Timers Deluxe", 200, 400)
$startbutton = GUICtrlCreateButton("Start Game", 50, 10, 70)
$ybluebuff = GUICtrlCreateButton("Ancient Golem (Blue)", 10, 40, 50, 50, $BS_MULTILINE)
$yredbuff = GUICtrlCreateButton("Lizard Elder (Red)", 10, 110, 50, 50, $BS_MULTILINE)
$ywraiths = GUICtrlCreateButton("Lizard Elder (Red)", 10, 180, 50, 50, $BS_MULTILINE)
$ywolves = GUICtrlCreateButton("Lizard Elder (Red)", 10, 250, 50, 50, $BS_MULTILINE)
$ydgolems = GUICtrlCreateButton("Lizard Elder (Red)", 10, 320, 50, 50, $BS_MULTILINE)
$ebluebuff = GUICtrlCreateButton("Ancient Golem (Blue)", 100, 40, 50, 50,     $BS_MULTILINE)
$eredbuff = GUICtrlCreateButton("Lizard Elder (Red)", 100, 110, 50, 50, $BS_MULTILINE)
$ewraiths = GUICtrlCreateButton("Lizard Elder (Red)", 100, 180, 50, 50, $BS_MULTILINE)
$ewolves = GUICtrlCreateButton("Lizard Elder (Red)", 100, 250, 50, 50, $BS_MULTILINE)
$edgolems = GUICtrlCreateButton("Lizard Elder (Red)", 100, 320, 50, 50, $BS_MULTILINE)

;==> Display our Graphic User Interface.
GUISetState(@SW_SHOW)

While True
	; Check which buttons have been pressed
	$msg = GUIGetMsg()
    Switch $msg
	Case $GUI_EVENT_CLOSE
		CLOSEClicked()
	Case $startbutton
		StartGame()
		; If this is run at the same time as a timer, it would cause the timer to be off of its original time
	Case $ybluebuff
		; Start the timer
		$ybluebuffactive = True
		; Reset the counter
		$ybluebuffcounter = 0
		; Delete the controls and make the new ones
		$ybb = GUICtrlCreateLabel("Your Blue Buff:", 10, 40)
		GUICtrlDelete($ybluebuff)
		Global $ybblabel = GUICtrlCreateLabel("0", 15, 60, 50, 40)
		GUICtrlSetFont(-1, 22, 500, $font)
	EndSwitch
	sleep($sleepLen)
	checkYBlueBuff()
WEnd

Func checkYBlueBuff()
	If $ybluebuffactive Then
		$ybluebuffcounter += 1
		If $ybluebuffcounter = (1000/$sleepLen)*5 Then
			; Set the back color
			GUICtrlSetBkColor($ybblabel, 0xFFCCCC)
		EndIf
		; Update the label & font
		If Mod($ybluebuffcounter, (1000/$sleepLen)) = 0 Then
			GUICtrlSetData($ybblabel, Round($ybluebuffcounter/(1000/$sleepLen)))
		EndIf
		If $ybluebuffcounter >= (1000/$sleepLen)*10 Then ; This is 10 (buff time) * 10 (a hundred of these checks per second)
			; Reset the controls
			$ybluebuffactive = False
			GUICtrlDelete($ybblabel)
			GUICtrlDelete($ybb)
			$ybluebuff = GUICtrlCreateButton("Ancient Golem (Blue)", 10, 40, 50, 50, $BS_MULTILINE)
		EndIf
	EndIf
EndFunc

Func StartGame()
; Activate your League Window
	WinActivate("[CLASS:Notepad]")

; Wait for the Notepad become active - it is titled "Untitled - Notepad" on English systems
	WinWaitActive("[CLASS:Notepad]")

; Now that the Notepad window is active type some text
	Send("{ENTER}Baron spawns in 15, Dragon spawns at 2:30{ENTER}")
	Sleep(500)
	Send("{ENTER}Wraiths/Wolves/Double Golems spawn at 1:40. Red & Blue spawn at 1:55{ENTER}")
	Sleep(500)

EndFunc   ;==>StartGame

	Func CLOSEClicked()
;Note: at this point @GUI_CTRLID would equal $GUI_EVENT_CLOSE,
;and @GUI_WINHANDLE would equal $mainwindow
	MsgBox(0, "Goodbye", "Thanks for using Jungle Timers Deluxe!")
	Exit
EndFunc   ;==>CLOSEClicked

; Finished!