1) the first 7 seconds (after I pressed the button) should show up normally
2) the following 80 seconds should show up with an orange background but when 1) is finished the timer should be resetted and start counting to 80 with the orange background
3) then if 2) is finished the timer should be resseted to and start counting to 6 with a red background
4) finally if 3) is finished the timer should reset again and start counting ip to 8minutes and I want it so it displays minutes : seconds
5) after all this is finished it should start from the beginning again
AutoIt expand popup
Code:
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
;==> Set our $font variable
Global $font
$font = "Arial Black"
;Constants
Const $sleepLen = 100
; New variables
Dim $check1 = False
Dim $check2 = False
Dim $check3 = False
Dim $check4 = False
Dim $botcounter = 0
;==> Create our Graphic User Interface
;Opt("GUIOnEventMode", 1) ; Change to OnEvent mode
$varWindow = GUICreate("Jungle Timers Deluxe", 150, 400, 1675, 30)
$startbutton = GUICtrlCreateButton("start bot", 10, 10, 100, 50, $BS_MULTILINE)
$varButtonTopmost = GUICtrlCreateButton("window topmost", 10, 60, 100, 50)
$varButtonNormal = GUICtrlCreateButton("window normal", 10, 110, 100, 50)
$varLoop = True
;==> Display our Graphic User Interface.
GUISetState(@SW_SHOW)
While $varLoop
$varMessage = GUIGetMsg()
Select
Case $varMessage = $GUI_EVENT_CLOSE
$varLoop = False
Exit
Case $varMessage == $varButtonTopmost
_Button_Topmost_Clicked()
Case $varMessage == $varButtonNormal
_Button_Normal_Clicked()
EndSelect
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
CLOSEClicked()
Case $startbutton
; Start the timer
$check1 = True
; Reset the counter
$botcounter = 0
; Delete the controls and make the new ones
$bot = GUICtrlCreateLabel("Bot active:", 10, 165)
GUICtrlDelete($startbutton)
Global $botlabel = GUICtrlCreateLabel("0", 15, 180, 50, 40)
GUICtrlSetFont(-1, 22, 500, $font)
EndSwitch
sleep($sleepLen)
check1()
WEnd
Func check1()
If $check1 Then
$botcounter += 1
If $botcounter = (1000/$sleepLen)*7 Then
$botcounter = 0
$check2 = True
EndIf
; Update the label & font
If Mod($botcounter, (1000/$sleepLen)) = 0 Then
GUICtrlSetData($botlabel, Round($botcounter/(1000/$sleepLen)))
EndIf
check2()
if $check2 = True then
$check1 = False
endif
EndIf
EndFunc
Func check2()
if $check2 then
$botcounter += 1
GUICtrlSetBkColor($botlabel, 0xff9900)
If $botcounter = (1000/$sleepLen)*80 Then
; Set the back color
GUICtrlSetBkColor($botlabel, 0x66ccff)
$botcounter = 0
$check3 = True
EndIf
If Mod($botcounter, (1000/$sleepLen)) = 0 Then
GUICtrlSetData($botlabel, Round($botcounter/(1000/$sleepLen)))
EndIf
EndIf
check3()
EndFunc
Func check3()
if $check3 then
If $botcounter = (1000/$sleepLen)*6 Then
; Set the back color
GUICtrlSetBkColor($botlabel, 0xff0000)
$botcounter = 0
$check4 = True
EndIf
If Mod($ybluebuffcounter, (1000/$sleepLen)) = 0 Then
GUICtrlSetData($botlabel, Round($botcounter/(1000/$sleepLen)))
EndIf
EndIf
check4()
EndFunc
Func check4()
if $check4 then
If $botcounter = (1000/$sleepLen)*6 Then
; Set the back color
GUICtrlSetBkColor($botlabel, 0xff0000)
$botcounter = 0
EndIf
If Mod($botcounter, (1000/$sleepLen)) = 0 Then
GUICtrlSetData($botlabel, Round($botcounter/(1000/$sleepLen)))
EndIf
EndIf
EndFunc
Func _Button_Topmost_Clicked()
WinSetOnTop($varWindow,"",1)
EndFunc
Func _Button_Normal_Clicked()
WinSetOnTop($varWindow,"",0)
EndFunc
; Finished!
please help me :ermm:
(oh and btw the second code has 2 extra buttons to choose if it should be topmost or not)
