#include <GUIConstantsEx.au3>
#include <AVIConstants.au3>
#include <TreeViewConstants.au3>

HotKeySet("{F8}", "StopProg")
HotKeySet("{F7}", "StartProg")

While 1
    Sleep(100)
    Wend

Func StartProg()

Do
    $waitpixel=PixelSearch ( 655, 405, 695, 460, $WaitPixelColor, 8, 4 )
 Until Not @error

   While PixelGetColor(664,615,0x00FF00)

$kolor = PixelGetColor(1074,205)
If $kolor = 0xEB412E Then
   $i=2
   MouseClick("left" ,650,463,1,0)
   sleep(2000)
   Do
    $waitpixel=PixelSearch ( 655, 405, 695, 460, $WaitPixelColor, 8, 4 )
 Until Not @error
   If PixelGetColor(1074,205,0xEB412E) Then
	  MouseClick("left", 650,463,1,0)
   ElseIf PixelGetColor(664,615,0x00FF00) Then
	  MouseClick("left", 717,503,$i,0)
	  $i =* 2

EndIf
WEnd

While PixelGetColor(664,615,0x00FF00)
$kolor = PixelGetColor(1074,205)
If $kolor = 0x333333 Then
   MouseClick("left" ,717,503,1,0)
   $i+=1
EndIf
    WEnd
EndFunc


Func StopProg()
    Exit 0
EndFunc