#RequireAdmin
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#include <Array.au3>
#include "WindowControl_FOR_NOX.au3"
#include "GETCOLOR.au3"


Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
Opt("GUIOnEventMode", 1)

#AutoIt3Wrapper_icon=icon.ico
#Region ### START Koda GUI section ### Form=

$From1 = GUICreate("TEST", 260, 433-180-17, 383, 168)
GUISetBkColor(0x444444)
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Restore")



$Group2 = GUICtrlCreateGroup("Status", 8, 248-180, 241, 113-17)
GUICtrlSetBkColor(-1, 0xFFFFFF)
$Status = GUICtrlCreateEdit("", 24, 272-180, 209, 33, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Welcome")

$Label2 = GUICtrlCreateLabel("เล่นไปแล้ว :", 24, 312-180, 100, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$All_Amount = GUICtrlCreateLabel("0", 136, 312-180, 97, 17, $SS_RIGHT)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)


$Start = GUICtrlCreateButton("Start", 16, 376-180-17, 75, 25)
GUICtrlSetOnEvent(-1, "StartClick")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x008000)


$Check = GUICtrlCreateButton("Check", 104, 376-180-17, 51, 25)
GUICtrlSetOnEvent(-1, "CheckClick")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x008080)


$Pause = GUICtrlCreateButton("Pause", 168, 376-180-17, 75, 25)
GUICtrlSetOnEvent(-1, "PauseClick")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, 0x800000)

GUICtrlSetState($Start, $GUI_DISABLE)
GUICtrlSetState($Pause, $GUI_DISABLE)


$Label1 = GUICtrlCreateLabel("TEST", 96, 16, 71, 17, $SS_CENTER)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label6 = GUICtrlCreateLabel("Header", 32, 48, 39, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$title = GUICtrlCreateInput("NoxPlayer", 72, 40, 153, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
$Label13 = GUICtrlCreateLabel("Create by Danupon Butrngam", 56, 408-180-17, 144, 17)
GUICtrlSetOnEvent(-1, "Credit")
GUICtrlSetColor(-1, 0xFFFFFF)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


Global $TiTle_Name = "NoxPlayer"
Global $shadeValue = 20
Global $GameHD = WinGetHandle($TiTle_Name)

Global $PSsix = 0
Global $pPause = False


Global $Round = 0



While 1
    Select
        Case $PSsix = 1
            WinActivate($GameHD)
            $PSsix = 0
            start()
        Case $PSsix = 2
            $PSsix = 0
        Case $PSsix = 3
            $PSsix = 0
    EndSelect

    Sleep(100)

WEnd



Func start()
    Edit_Show("เริ่มทำงาน")

    While 1

        Click_ingame()
        EndGame()
        Sleep(100)
    WEnd

    Edit_Show("ตั้งค่าเสร็จสิ้น")
    Edit_Show("ทำงานเสร็จสิ้น")

EndFunc   ;==>start


Func Click_ingame()

    if WindowColorGet($GameHD,761, 291,0x1A1A23) = False Then
;~      Sleep(3000)
        if WindowColorGet($GameHD,691, 393,0xFE5B9E)  Then
            WindowClick($GameHD, 691, 393)
        EndIf
        if WindowColorGet($GameHD,695, 391,0x2B71DA)  Then
;~          Local $i = 0
            WindowClick($GameHD,718, 416)
            While WindowColorGet($GameHD,768, 280,0x1A1A23) = False
                Sleep(1000)
;~              If $i = 15 Then
;~                  ExitLoop
;~              EndIf
;~              $i += 1
            WEnd

        EndIf

        if WindowColorGet($GameHD,361, 366,0x8000CC)  Then
            WindowClick($GameHD, 361, 366)
        EndIf

        Sleep(500)
    Else
        Click_arrow(6)
    EndIf
EndFunc



Func Click_arrow($count)

    If GetColor($GameHD, 252, 391, 0x121219,0,2,5) = False Then
        Edit_Show("กด Key")
        For $i = 0 To $count-1 Step 1
    ;~      ControlSend($GameHD,"","","{A}")
            WindowClick($GameHD, 86, 408)
            Sleep(50)
        Next
        Spacebar()
    EndIf



EndFunc

Func Spacebar()


    While 1
;~      Edit_Show("รอ Space")
        if GetColor($GameHD, 550, 404, 0x010101,0,1,3) = False Then
;~            GetColor($GameHD, 550, 404, 0x010101,0,1,3) = False Then
            WindowClick($GameHD, 474, 401)
;~          ControlSend($GameHD,"","","{SPACE}")
            Edit_Show("Space")
            ExitLoop
        EndIf
    Sleep(50)
    WEnd




EndFunc

Func EndGame()
    if WindowColorGet($GameHD,677, 446,0x8100CC,10) Then

        WindowClick($GameHD, 677, 446)
        Sleep(200)
        Edit_Show("จบเกมส์")
        While WindowColorGet($GameHD,32, 285,0xFFB938) = False
            Sleep(200)
            Edit_Show("รอเข้าล็อบบี้")
        WEnd
        $Round += 1
        GUICtrlSetData($All_Amount,$Round)
        Sleep(10000)
    EndIf

EndFunc


Func CheckClick()
    $TiTle_Name = GUICtrlRead($title)
    $GameHD = WinGetHandle($TiTle_Name)
    If @error Then
        MsgBox(4096, "", "หา Titel" & $TiTle_Name & "ไม่เจอ")
        Exit
    EndIf

    Local $aPos = WinGetPos($GameHD)
    WinMove($GameHD, "", $aPos[0], $aPos[1], 797, 471)

    GUICtrlSetState($Start, $GUI_ENABLE)
    GUICtrlSetState($Pause, $GUI_ENABLE)

EndFunc


Func StartClick()
    $PSsix = 1
EndFunc

Func PauseClick()
    $PSsix = 2
    TogglePause()
EndFunc

Func TogglePause()
    $pPause = Not $pPause
    If $pPause Then
        ControlSetText($From1, "", $Pause, "ทำงานต่อ")
        Edit_Show("หยุดทำงานชั่วคราว")
    Else
        ControlSetText($From1, "", $Pause, "หยุดชั่วคราว")
        Edit_Show("กลับมาทำงานตามปกติ")

    EndIf
EndFunc


Func Close()
    Exit
EndFunc   ;==>Form1_1Close
Func Maximize()

EndFunc   ;==>Form1_1Maximize
Func Minimize()

EndFunc   ;==>Form1_1Minimize
Func Restore()

EndFunc

Func Credit()
    ShellExecute("https://www.facebook.com/TheLectures")
EndFunc

Func Edit_Show($text)
    GUICtrlSetData($Status, StringFormat($text &"\r\n ______________"))
EndFunc