Skocz do zawartości
CSH External VIP Project - Legit Premium CS2 Hack

[AutoIT] Bot na łowienie do gry warofdragons.pl

AndyF

AndyF
  w Gotowe kody źródłowe
 4314   1

# CSH External VIP Project

Masz dosyć problemów z czynnikiem zaufania w CS2 lub notorycznymi banami?

Sprawdź CSH External VIP Project.


Więcej informacji  

Rekomendowane odpowiedzi

AndyF Ciekawski

AndyF Jedenaście lat służby

Opublikowano
Opublikowano

Bot na łowienie jest do gry warofdragons.pl, napisałem dwie jego wersje.

 

1. Jedną z łowieniem i przerabianiem ryb na atramenty.

; x >>>
; y  \/
$X_min = 500
$X_max = $X_min + (15 * 24)
$Y_min = 240;
Dim $Y_max[30] = [500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500]

While 1 ; GŁOWNA PĘTLA BOTA
	    szukanie() ;WYWOŁAJ PĘTLE SZUKANIE
	    sleep(50) ; MALA PRZERWA DLA PROCESORA
WEnd

func szukanie() ; PETLA PODRZEDNA
	    While 1
		  $idx = 0
		  For $X = $X_min To $X_max Step 15
			   For $Y = $Y_min To $Y_max[$idx] Step 15
				    ; While 1	   JAK DAJESZ NA POCZATEK PETLI WHILE TO GDZIE JEST WEND? USUNIETE.
				    If PixelGetColor($X, $Y) = 5006803 Then
						 MouseClick("left", $X, $Y, 1)
				    ElseIf PixelGetColor(844, 214) = 15320985 Then ; TU NIE BYLO ZNAKU " = " Feliońska
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 15189657 Then ; księżycowy
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 11922582 Then ; srebrzysty
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 9155958 Then ; mroczny
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 8424131 Then ; diamentowy
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 13670638 Then ;purpurowy
						 MouseClick("left", $X, $Y, 1)
				    ElseIf PixelGetColor(844, 214) = 6160384 Then ; podstawowy
						 MouseClick("left", $X, $Y, 2)
				    EndIf
				    If PixelGetColor(584,342) = 16770454 Then
						 sleep(36000)
						 MouseClick("left",450,390, 1)
						 sleep(150)
						 MouseClick("left",1000, 390, 1)
						 sleep(1000)
						 MouseClick("left", 860, 400, 1)
						 sleep(100)
						 MouseClick("left",420, 131, 1)
						 sleep(3000)
						 MouseClick("left", 515, 190, 1)
						 sleep(130)
						 MouseClickDrag("left",884,480,885,400)
				    EndIf
				    $idx = $idx + 1
			   Next
			   $idx = 0
		  Next
	 WEnd
EndFunc   ;==>szukanie

2. Druga tylko z łowieniem.

; x >>>
; y  \/
$X_min = 500
$X_max = $X_min + (15 * 24)
$Y_min = 240;
Dim $Y_max[30] = [500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,]

While 1 ; GŁOWNA PĘTLA BOTA
	    szukanie() ;WYWOŁAJ PĘTLE SZUKANIE
	    sleep(50) ; MALA PRZERWA DLA PROCESORA
WEnd

func szukanie() ; PETLA PODRZEDNA
	    While 1
		  $idx = 0
		  For $X = $X_min To $X_max Step 15
			   For $Y = $Y_min To $Y_max[$idx] Step 15
				    ; While 1	   JAK DAJESZ NA POCZATEK PETLI WHILE TO GDZIE JEST WEND? USUNIETE.
				    If PixelGetColor($X, $Y) = 5006803 Then
						 MouseClick("left", $X, $Y, 1)
				    ElseIf PixelGetColor(844, 214) = 15320985 Then ; TU NIE BYLO ZNAKU " = " Feliońska
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 15189657 Then ; księżycowy
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 11922582 Then ; srebrzysty
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 9155958 Then ; mroczny
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 8424131 Then ; diamentowy
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 13670638 Then ;purpurowy
						 MouseClick("left", $X, $Y, 1)
				    ElseIf PixelGetColor(844, 214) = 6160384 Then ; podstawowy
						 MouseClick("left", $X, $Y, 2)
				    EndIf
				    If PixelGetColor(584,342) = 16770454 Then
						 sleep(36000)
						 MouseClick("left",450,390, 1)
				    EndIf
				    $idx = $idx + 1
			   Next
			   $idx = 0
		  Next
	 WEnd
EndFunc   ;==>szukanie

!!! PRZECZYTAJ !!!

Dla graczy od razu mówie:

Niekoniecznie zadziała u was ten bot, działa on tylko na lokacji zarośla jaśminu, tylko z powiększonym klientem gry( maksimum ile sie da na przycisku maksymalizuj, koło czerwonego X) przy rozdzielczości ekranu 1024,768. trzeba ustawić w tej lokacji polowanie , obszar z wodą i wmiare na środek, potem tylko nacelować na kółku myszki na jakąkolwiek rybę.

 

Aby bot bez robienia atramenów dobrze zadziałał, należy do tylko uruchomić tego bota.

; x >>>
; y  \/
$X_min = 500
$X_max = $X_min + (15 * 24)
$Y_min = 240;
Dim $Y_max[30] = [500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500,500]

While 1 ; GŁOWNA PĘTLA BOTA
	    szukanie() ;WYWOŁAJ PĘTLE SZUKANIE
	    sleep(50) ; MALA PRZERWA DLA PROCESORA
WEnd

func szukanie() ; PETLA PODRZEDNA
	    While 1
		  $idx = 0
		  For $X = $X_min To $X_max Step 15
			   For $Y = $Y_min To $Y_max[$idx] Step 15
				    ; While 1	   JAK DAJESZ NA POCZATEK PETLI WHILE TO GDZIE JEST WEND? USUNIETE.
				    If PixelGetColor($X, $Y) = 5006803 Then
						 MouseClick("left", $X, $Y, 1)
				    ElseIf PixelGetColor(844, 214) = 15320985 Then ; TU NIE BYLO ZNAKU " = " Feliońska
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 15189657 Then ; księżycowy
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 11922582 Then ; srebrzysty
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 9155958 Then ; mroczny
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 8424131 Then ; diamentowy
						 MouseClick("left", $X, $Y, 2)
				    ElseIf PixelGetColor(844, 214) = 13670638 Then ;purpurowy
						 MouseClick("left", $X, $Y, 1)
				    ElseIf PixelGetColor(844, 214) = 6160384 Then ; podstawowy
						 MouseClick("left", $X, $Y, 2)
				    EndIf
				    If PixelGetColor(584,342) = 16770454 Then
						 sleep(36000)
						 MouseClick("left",450,390, 1)
						 sleep(150)
						 MouseClick("left",420, 131, 1)
						 sleep(3000)
						 MouseClick("left", 515, 190, 1)
						 sleep(130)
						 MouseClickDrag("left",884,480,885,400)
				    EndIf
				    $idx = $idx + 1
			   Next
			   $idx = 0
		  Next
	 WEnd
EndFunc   ;==>szukanie

PRZECZYTAJ WAŻNE...

Należy poczekać, aż bot po złowieniu ryby nie ustawi ponownie widoku na polowanie, ponieważ wtedy będzie dobrze ustawione polowanie.

Należy wyłąćzyć bota naciskająć tą flage na klawiaturze(pomiędzy ctrl i alt) i dodatkowo razem z flagą kliknąć d:

FLAGA+D

to pomniejszy gre i wtedy koło zegara systemowego wyłączacie znaczek autoita. potem można uruchomić bota tylko z łowieniem, ponieważ poprzedni bot ustawił odpowiednio ekran.

DO BOTA Z ATRAMENTAMI nie trzeba nic, bo w czasie gdzy on robi sobie atrament(tylko niebieski) potem on powraca do polowania i za każdym razyem dobrze je ustawia.

Następnie uruchomić bota i pomniejszyć folder, najlepiej jeśli folder jest na pełny ekran, bo bot zaczyna działać gdy wykryje że jest klient gry w odpowiednim miejscu, wiec jesli folder bedzie na pół ekranu na przykład to bot się uruchomi i może nawłączać troche programów ;).

Jeśli coś nie działa prosze przesłać mi fotke(print screen) całego ekranu polowania z ustawioną wodą(najwiekszy obszar wody), a w przypadku bota z robieniem atramentów dodatkowo fotke z okna zawody.

Bot robi tylko niebieskie atramenty, ponieważ na resztę ryb jest dużo kupujących, w razie czego moge dodać możliwość robienia innych atramentów lub zwoi.

0
Odnośnik do komentarza

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Usuń formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

×
Tematy

  Tagi

 Społeczność
Zapoznaj się
 Pomoc
×
×
  • Dodaj nową pozycję...

Powiadomienie o plikach cookie

Umieściliśmy na Twoim urządzeniu pliki cookie, aby pomóc Ci usprawnić przeglądanie strony. Możesz dostosować ustawienia plików cookie, w przeciwnym wypadku zakładamy, że wyrażasz na to zgodę. Regulamin. Polityka prywatności