[DL] BS REINOR

[Cytryn★]

G00D daj Reupload bo linki wygasły, a może sie przydać na draconis

[Exíle]

Nie mam tych plików na komputerze, niestety nie udostępnie, chyba że innym sposobem da się to pobrać.

[Sommer]

Dobra, znalazłem tego bota.

 

ALE... nie mam żadnego metka i nie mogę sprawdzić czy działa.

 

Nie pamiętam tez czy go wogóle skończyłem, ale wygląda na skończonego.

Daje wam kod bo mi na co jak w metka nie gram, a jeśli nie jest skończony to wy go sobie skończycie ;p

 

do wszystkiego brakuje tylko tego injectora, on gdzieś jest na forum, nie chciało mi się szukać

tu znalazłem bsa good'a : bs_reinor.rar

tu bot reinor.rar

tu kod bota

 

 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Bot by Sommer", 219, 105, 287, 178)
$Label1 = GUICtrlCreateLabel("Logi", 12, 12, 140, 17)
$Button1 = GUICtrlCreateButton("Strat", 16, 48, 89, 49)
$Button2 = GUICtrlCreateButton("Miejsce SB", 112, 48, 97, 49)
$Label2 = GUICtrlCreateLabel("esc - wyłączenie", 124, 8, 100, 17)
$Label2 = GUICtrlCreateLabel("liczydło: ", 124, 28, 100, 17)
$Labell = GUICtrlCreateLabel("0", 170, 28, 100, 17)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Global $xs, $ys, $iii, $xe, $ye, $x1, $y1, $xr, $yr, $xm, $ym, $il
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            wlacz()
        Case $Button2
            test()


    EndSwitch
WEnd
Func esc()
    Exit 0
EndFunc   ;==>esc
Func wlacz()
    $licz = 0
    While 1
        HotKeySet("{ESC}", "esc")
        $iii = "Logi"
        GUICtrlSetData($Label1, $iii)


        $result = _ImageSearch("mieczyk.bmp", 1, $xm, $ym, 40)
        If $result = Not 1 Then
            $iii = "Nie widze mieczyka"
            GUICtrlSetData($Label1, $iii)
            ExitLoop
        EndIf
        $result = _ImageSearch("eq.bmp", 1, $xe, $ye, 40)
        $result1 = _ImageSearchArea("zmianka.bmp", 1, $xe - 88, $ye + 229, $xe + 76, $ye + 519, $x1, $y1, 40)
        While $result1 = 1
            $result1 = _ImageSearchArea("zmianka.bmp", 1, $xe - 88, $ye + 229, $xe + 76, $ye + 519, $x1, $y1, 40)
            If $result1 = 0 Then


                Sleep(1000)
            EndIf
            $iii = "Czekam..."
            GUICtrlSetData($Label1, $iii)
        WEnd
        ;
        $result = _ImageSearchArea("tp.bmp", 1, $xe - 88, $ye + 229, $xe + 76, $ye + 519, $x1, $y1, 40)
        If $result = 1 Then
            $iii = "Otwieram pierscien..."
            GUICtrlSetData($Label1, $iii)
            MouseClick("right", $x1, $y1, 1, 3)
            Sleep(1400)
            MouseClick("left", $xm + 102, $ym - 307, 1, 3)
            Sleep(800)
        Else
            $iii = "Nie widze pierscienia"
            GUICtrlSetData($Label1, $iii)
            ExitLoop
        EndIf
        ;
        $result8 = _ImageSearch("eq.bmp", 1, $xe, $ye, 40)
        If $result8 = 1 Then
            $iii = "Widze okno ekwipunku"
            GUICtrlSetData($Label1, $iii)
            $result1 = _ImageSearchArea("szkata.bmp", 1, $xe - 88, $ye + 229, $xe + 76, $ye + 519, $x1, $y1, 40)
            If $result1 = 1 Then
                $iii = "Otwieram szkatulke..."
                GUICtrlSetData($Label1, $iii)
                MouseClick("right", $x1, $y1, 1, 3)
                Sleep(1000)
                ;-------------------


                $result1 = _ImageSearchArea("tak1.bmp", 1, $xm + 99, $ym - 388, $xm + 125, $ym - 241, $x1, $y1, 130)
                If $result1 = 1 Then
                    $iii = "TAK"
                    GUICtrlSetData($Label1, $iii)
                    MouseClick("left", $x1, $y1, 1, 3)
                Else
                    $iii = "Nie znalazlem TAK'a"
                    GUICtrlSetData($Label1, $iii)
                    ExitLoop
                EndIf
                ;---------------------------------
            Else
                $iii = "Nie widze szkatulki"
                GUICtrlSetData($Label1, $iii)
                ExitLoop
            EndIf
        Else
            $iii = "Nie widze okna ekwipunku"
            GUICtrlSetData($Label1, $iii)
        EndIf
        ;
        $il = $il + 1
        GUICtrlSetData($Labell, $il)
        Sleep(1000)


    WEnd




EndFunc   ;==>wlacz


Func test()
    $result = _ImageSearch("mieczyk.bmp", 1, $xe, $ye, 40)
    If $result = 1 Then
        $iii = "Widze mieczyk"
        GUICtrlSetData($Label1, $iii)
        $resultr = _ImageSearch("realfreak.bmp", 1, $xr, $yr, 40)
        If $resultr = 1 Then
            $iii = "Widze okno SB"
            GUICtrlSetData($Label1, $iii)
            MouseClickDrag("left", $xr, $yr, $xe - 48, $ye - 466)
        Else
            $iii = "Nie widze okna SB"
            GUICtrlSetData($Label1, $iii)
        EndIf
    Else
        $iii = "Nie widze mieczyka"
        GUICtrlSetData($Label1, $iii)
    EndIf


EndFunc   ;==>test

 

 

 

 

Dawać lajki

 

[Solymr]

Linki wygasły, zamykam.

[Zarax]

DL nie działa.

Kosz.