#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ImageSearch.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>


Global $fenster
Global $active = 0

HotKeySet("s", "_start")
HotKeySet("e", "_end")
HotKeySet("p", "TogglePause")
$x1 = 0
$y1 = 0
$x2 = 0
$y2 = 0
$Count = 0
$Count2 = 0
Global $Paused
$firefox = 'FIFA18.exe'


If ProcessExists($firefox) Then

 GUICreate("My GUI list") ; will create a dialog box that when displayed is centered
 GUICtrlCreateLabel("Found",90,15)
  GUICtrlCreateLabel("Buyed",300,110)
 Local $idMylist = GUICtrlCreateList($Count, 76, 32, 121, 307)
  Local $idMylist2 = GUICtrlCreateList($Count2, 276, 132, 221, 197)
 GUICtrlSetLimit(-1, 1) ; to limit horizontal scrolling

  GUISetState(@SW_SHOW)


    While True = True
        Sleep(5)
        If $active = 1 Then
            WinActivate("[CLASS:FIFA 18]", "")
        Sleep(10)
            $result = _ImageSearchArea("noplayer.bmp", 1, 520, 433, 1400, 624, $x1, $y1, 6)
            If $result = 1 Then
              Send("{ENTER}")
                Sleep(245)
                MouseClick("left",270,771)
                Sleep(245)
                Send("{LEFT}")
                Send("{LEFT}")
                Send("{LEFT}")
                Send("{LEFT}")
                Sleep(150)
                Send("{ESC}")
                Sleep(100)
                Send("d")
                Sleep(150)

            ElseIf $result = 0 Then




             $result2 = _ImageSearchArea("playerfound.bmp", 1, 512, 246, 1482, 955, $x2, $y2, 6)
         If $result2 = 1 Then

        MouseClick("left",976,455,1,0)
        Sleep(33)
        MouseClick("left",1624,477,1,0)
        Sleep(33)
        MouseClick("left",1330,579,1,0)
        Sleep(100)
        Send("{Enter}")
        Sleep(200)
        $Count = $Count + 1
         GUICtrlSetData($idMylist, $Count)
         Sleep(50)
         Elseif $result2 = 0 Then





             $result3 = _ImageSearchArea("abgelaufen.bmp", 1, 520, 333, 1400, 724, $x1, $y1, 6)
        If $result3 = 1 Then
        MouseClick("left",583,594)
       Sleep(411)
       Send("{ESC}")
      Sleep(411)
       Send("{ESC}")
         Sleep(1150)
                MouseClick("left",270,771)
                Sleep(550)
                Send("{LEFT}")
                Send("{LEFT}")
                Send("{LEFT}")
                Send("{LEFT}")
                Sleep(250)
                Send("{ESC}")
                Sleep(250)
                Send("d")
                Sleep(500)
        Elseif $result3 = 0 Then




            ;#cs
            $result4 = _ImageSearchArea("kauf.bmp", 1, 400, 400, 1600, 733, $x1, $y1, 6)
            If $result4 = 1 Then
            MouseClick("left",800,600)
                Sleep(450)
                Send("d")
                Sleep(800)
                Send("{ENTER}")
                Sleep("700")
                $Count2 = $Count2 + 1
         GUICtrlSetData($idMylist2, $Count2,$Count2)

            Elseif $result4 = 0 Then

        $result5 = _ImageSearchArea("nohit.bmp", 1, 520, 433, 1400, 624, $x1, $y1, 6)
            If $result5 = 1 Then
            MouseClick("left",800,600)
                Sleep(1150)
                Send("d")
                Send("d")
                Send("d")
                Sleep(300)
                Send("d")
                Send("d")
        ElseIf $result5 = 0 Then
$result6 = _ImageSearchArea("playerfound.bmp", 1, 773, 617, 1145, 944, $x1, $y1, 6)
            If $result6 = 1 Then
                Sleep(211)
                Send("d")
        Sleep(211)

        ElseIf $result6 = 0 Then
$result7 = _ImageSearchArea("restart.bmp", 1, 99, 617, 538, 944, $x1, $y1, 6)
            If $result7 = 1 Then
                Sleep(150)
                Send("{ESC}")
                Sleep(100)
                Send("d")
                Sleep(100)


            ElseIf $result7 = 0 Then
            $result8 = _ImageSearchArea("kandidaten.bmp", 1, 585, 251, 813, 291, $x1, $y1, 6)
             If $result8 = 1 Then
            Sleep(150)
                Send("{ESC}")
                Sleep(100)
                Send("d")
                Sleep(200)


            ElseIf $result8 = 0 Then
$result9 = _ImageSearchArea("playerfound2.bmp", 1, 684, 306, 897, 362, $x1, $y1, 6)
            If $result9 = 1 Then
                Sleep(211)
                Send("d")
        Sleep(211)

            ElseIf $result9 = 0 Then
        $result10 = _ImageSearchArea("suchen.bmp", 1, 425, 935, 556, 982, $x1, $y1, 6)
            If $result10 = 1 Then
                Sleep(211)
                Send("d")
        Sleep(211)
            ElseIf $result10 = 0 Then
         $result11 = _ImageSearchArea("playerfoundshiny.bmp", 1, 512, 246, 1482, 955, $x2, $y2, 6)
         If $result11 = 1 Then

        MouseClick("left",976,455,1,0)
        Sleep(33)
        MouseClick("left",1624,477,1,0)
        Sleep(33)
        MouseClick("left",1330,579,1,0)
        Sleep(100)
        Send("{Enter}")
        Sleep(200)
        $Count = $Count + 1
         GUICtrlSetData($idMylist, $Count)
         Sleep(50)
 If $result11 = 0 Then
$result12 = _ImageSearchArea("toslow.bmp", 1, 822, 629, 1107, 703, $x1, $y1, 6)
            If $result12 = 1 Then
                Sleep(211)
                Send("d")
        Sleep(211)

EndIf
EndIf
            EndIf
            EndIf
        ;   #ce

        EndIf
        EndIf
        EndIf
EndIf
        Endif
            Endif
            EndIf
        Endif
        Endif
EndIf
    WEnd

Else
    MsgBox(0, "Bot", "Firefox nicht gefunden!")
EndIf

Func _start()
    $active = 1
EndFunc

Func TogglePause()
    $Paused = NOT $Paused
  While $Paused
        sleep(100)
    WEnd
    ToolTip("")
EndFunc

Func _end()
    Exit
EndFunc