freebitcoin.in

Global $Par
While 1 ; GŁOWNA PĘTLA BOTA
    start()
WEnd

func sprawdzenie() ; PETLA PODRZEDNA
        While 3
                $idx = 0
                        If PixelGetColor($mousePos3[0],$mousePos3[1]) = $wincolor Then
                            Mouseclick("left",$mousePos2[0],$mousePos2[1],3)
                            sleep(300)
                            send("^v")
                            Mouseclick("left",$mousePos[0],$mousePos[1],1)
                            sleep(1000)
                            sprawdzenie()
                        ElseIf PixelGetColor($mousePos3[0],$mousePos3[1]) = $lostcolor Then
                            Mouseclick("left",$mousePos4[0],$mousePos4[1],1)
                            sleep(100)
                            Mouseclick("left",$mousePos[0],$mousePos[1],1)
                            sleep(1000)
                            sprawdzenie()
                            start()
                        EndIf ; tu sie nie chce konczyc...
                        $idx = $idx + 1
                $idx = 0
        WEnd
EndFunc   ;==>szukanie

func poczatek() ;wklejenie wartości standardowej i rozpoczęcie petli sprawdzajacej wynik
         While 1
                 $idz = 0
                        Mouseclick("left",$mousePos2[0],$mousePos2[1],3)
                        sleep(300)
                        send("^v")
                        Mouseclick("left", $mousePos[0] , $mousePos[1] , 1)
                        sleep(400)
                        sprawdzenie()
                                $idz = $idz + 1
                        $idz = 0
         WEnd
     EndFunc   ;==>poczatek



func start() ; Początek, kopia wartosci startowej
        While 3
                $idx = 0
                            MsgBox(4096, "Kwota", "najedź na okienko z kwotą i poczekaj 3 sekundy", 2)
                            Sleep(3000)
                            Global Const $mousePos2 = MouseGetPos()
                            MsgBox(4096, "BET HIGH", "najedź na przycisk BET HIGH (tak +- środek) i poczekaj 3 sek", 2)
                            Sleep(3000)
                            Global Const $mousePos = MouseGetPos()
                            MsgBox(4096, "BET HIGH", "Srodek litery T w napisie z wygrana(tak +- środek górnej belki) i poczekaj 3 sek", 2)
                            Sleep(4000)
                            Global Const $mousePos3 = MouseGetPos()
                            Global Const $wincolor = PixelGetColor($mousePos3[0],$mousePos3[1])
                            MsgBox(4096, "BET HIGH", "Srodek litery T w napisie z przegrana (tak +- środek górnej belki) i poczekaj 10 sek", 2)
                            Sleep(10000)
                            Global Const $lostcolor = PixelGetColor($mousePos3[0],$mousePos3[1])
                            MsgBox(4096, "Podwojenie", "najedź na przycisk podwajający stawkę(2x; tak +- środek) i poczekaj 3 sek", 2)
                            Sleep(3000)
                            Global Const $mousePos4 = MouseGetPos()
                            Mouseclick("left",$mousePos2[0],$mousePos2[1],3)
                            sleep(300)
                            Send("^c") ; kopiowanie
                            sleep(400)
                            poczatek() ;WYWOŁAJ PĘTLE POCZATEK
                            sleep(2000)
                            ExitLoop
                            $idx = $idx + 1
                $idx = 0
        WEnd
EndFunc   ;==>szukanie