[Pytanie] Dla Ambitnych

[Woj96]

Cześć postanowiłem zrobić fishbota.

 

1)Czy wie ktos jak zrobić zeby bot rozpoznał daną animację nad głowo

2) Jak zrobić zeby w dolnym prawym rogu pokazał sie jakis komunikat w takiej chmurce

3) Najwarzniejsze jak zrobic zeby metin2 rozwpznawał przycisk bo gdy sie zrobi send(1) to on nie czyta tego jako klawisza do nacisniecia tylko do pisania jest jakas inna komenda ???

 

 

 

 

Daje + itp prosze o pomoc

[adwi32]

1. PixelGetColor(x,y) sprawdza kolor piksela w danym punkcie możesz zrobić żeby sprawdzał czy jest biały jezli jest to ma wcisnąć spacje ,to co ci powiedzialem działa na zmaksymalizowanym kliencie

2. ToolTip("text",x,y) tekst w chmurce na wybranych koordynatach

3. NIEWIEM o co biega

[Woj96]

A z kad ja ma wziasc te pixele..??

 

Kiedys na forum widziałem taki twemat ze poprostu robi sie shota zapisuje w jakims formacie a potem auto to rozpoznaje

[adwi32]

tak tylko to troche przydługo szuka tego a pobieranie koloru pixela jest błyskawiczne muszisz tylko znać współrzędne

tu masz link to programu robem'a : http://www.mpcforum.pl/index.php?app=core&module=attach&section=attach&attach_id=8648 on ci pokazuje kolor i koordy w cliencie

 

mam nadzieje ze się nie obrazi

przez kodem musisz dodać Opt (MouseCoordMode,2) 2 - client

przypuscmy że jak łowisz to czekasz na białą chmurke gdy sie pojawi to najezdzas myszką na ten biały kolor zapisujesz koordy i kolor a potem

send(1)

send("{Space}")

While 1

$kolor = PixelGetColor(twoje koordy x ,y)

if $kolor = twoj kolor Then

sleep(2500) ; czekaj 2,5 sek

send("{SPACE}"); wyciągnij wędke

sen(1); załóz przynęte

endif

Wend ;wróc do while

 

oczywiscie muszisz dodac funkcje autologin,przynęty zabijanie ryb,auto wstawanie i ponowne łowienie gdy ktoś cie padnie,zminnie przynet jeżli jestes ambitny

[Woj96]

send(1)

send("{Space}")

While 1

$kolor = PixelGetColor(twoje koordy x ,y)

if $kolor = twoj kolor Then

sleep(2500) ; czekaj 2,5 sek

send("{SPACE}"); wyciągnij wędke

sen(1); załóz przynęte

endif

Wend

 

 

A to While nie powinno być na samym początku

[adwi32]

nie zastanów sie gdyby tak było to by cochwile zmieniał i wciskał spacje

 

 

While 1

send(1) ; wciska 1

send("{Space}") ; wciska spacje

$kolor = PixelGetColor(twoje koordy x ,y) ;jezli nie ma chmurki to idzie dalej do wend a potem z powrotem i sam widzisz

if $kolor = twoj kolor Then

sleep(2500) ; czekaj 2,5 sek

send("{SPACE}"); wyciągnij wędke

sen(1); załóz przynęte

endif

Wend

w rezultacie co chwile by zarzucał i wyciągał wędkę i nic by nie złowił

[Woj96]

Oto co narazie wyszło nie testowałem i koody są złe ale działa chodziz

Adwi32 masz moze jaka postac 30+ bo mi ukradli to bys te koordy zrobił

 

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <GUIConstants.au3>

HotKeySet("{HOME}", "start")

HotKeySet("{END}", "stop")

HotKeySet("{DEL}", "koniec")

GUICreate("NemoBot by Woj96", 370, 100)

$btn1 = GUICtrlCreateButton("start", 10, 10, 80, 80)

$btn2 = GUICtrlCreateButton("instrukcja", 100, 10, 80, 80)

$btn3 = GUICtrlCreateButton("Dzieki", 190, 10, 80, 80)

$btn4 = GUICtrlCreateButton("koniec", 280, 10, 80, 80)

GUISetState()

 

While 1

 

 

$msg = GUIGetMsg()

Switch $msg

 

Case $btn1

GUIDelete()

start()

Case $gui_event_close

exit

 

Case $btn2

Sleep(10)

MsgBox(0, "INFO", "strat NemoBot - HOME, STOP NemoBot - END, KONIEC - DELETE")

sleep(10)

MsgBox(0, "INFO", "Rozdzielczość 800x600 zmaksymilizowane okno Metin2")

 

MsgBox(0, "INFO", "Robaki na 1")

 

Sleep(10)

MsgBox(0, "INFO", "Nie sterowac myszką bo grozi to zaburzeniem pracy bota")

Case $gui_event_close

Exit

Case $btn3

sleep(15)

MsgBox(0, "Dzieki", "Menu głównego uzyczyłem od Wrrr")

Case $btn4

koniec()

Case $gui_event_close

exit

EndSwitch

wend

 

 

 

func start()

ToolTip("Hallo tutaj jestem ",1100,721)

Sleep(4000)

ToolTip("Za 10 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 9 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 8 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 7 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 6 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 5 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 4 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 3 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 2 sekund zaczynam łowić!",1000,721)

sleep(1000)

ToolTip("Za 1 sekund zaczynam łowić!",1000,721)

sleep(50)

ToolTip("Start",1000,721)

send(1)

send("{Space}")

While 1

$kolor = PixelGetColor(1000 ,7001 )

if $kolor = 0X1F40F4F9 Then

ToolTip("O jest ryba wyciągam ją za około 3 sekundy!",1000,721)

sleep(2650)

send("{SPACE}")

send(1)1

endif

wend

 

endfunc

 

func stop()

while 1

sleep(1000)

wend

endfunc

 

func koniec()

exit

endfunc

 

[RobeM]

prościejszy bardziej profesionalny fishbot do metina autorstwa francuz01 :

 

 

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

x i x okreslasz samemu

[Woj96]

Nie obraz sie ale nie ide na latwizne zrobie sam a tak pozatym co oznacza ta komenda ???

 

Opt("SendKeyDownDelay", 1000)

[Woj96]

juz działający skrypt nawet nie otwierdajcie okna z metinem otwozcie białą kartkę i zobaczcie sami

[jackraymund]

@up2

tak jak byś czytał po angielsku

Opt("SendKeyDownDelay", 1000)

wyslijkluczdółczas 1sek

tzn funkcja send przyciska guzik z 1milisec a jeżeli dodasz tą funkcje to będzie trzymac 1sec

robem dodał przy f1 bo metin może nie zobaczyć ze f1 zostało kliknięte

 

dodam że funkcje Opt() można zastąpić AutoItSetOption()

[RobeM]

nie ja pisałem skrypt a osoba która można śmiało powiedzieć pisze jedne z lepszych skryptów do metina, jego fishboty są bardzo dobrze znane graczą. jako przykład dałem najprostrzy z możliwych

Woj96 a o ile się nie myle najpierw otwiera się gre a dopiero potem uaktywnia bota

 

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

służy do regulacji bota, zmieniając wartość załapiemy wkońcu tą właściwą przy której działa najlepiej bot, jak wiadomo nie za każdym razem wyciąga spokojnie można wstawiać wartości od 500 do 2000 , któreś z lepszych wersji fishbota miała taką regulacje, słuzy to głownie do opuźnień jak się ma lagi , duże mała wartość , małe większa

 

i jak każdy fishbot z pixelsearch musi być gra akrtywna na pierwszym planie i dane największe zbliżenie jak i ustawiony widok z góry nad postacią

 

dla ułatwienia można dodać sobie funkcje PixelGetColor i MouseGetPos do pobierania pozycji i koloru , mając ustawione na sztywno koordynaty nie zawsze właściwie działa bot

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

potem moze dopisze jak to dodać do kodu

[dziób tukana]

Jesli jest takim geniuszem to mu dyskretnie wyjaśnij ze opcje/parametry programu (jak zwał tak zwał) np ten: Opt("SendKeyDownDelay", 1000) rejestruje sie tylko raz. Analogicznie tak jak to ma miejsce np z hotkey-ami. W pętli jest sens tym mieszać tylko wtedy gdy jego wartość sie zmienia. Np raz jest 1000 a raz 20.

[RobeM]

i to jest sensowna wypowiedź jak zawsze pomocna , +

 

wstawione wszędzie opty by regulować sobe czasy i dobierać do właściwego działania, wartośc można zamienić na zmienna i ustawiać w jednym miejscu na początku skryptu np : $czas = "1111"

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

 

i jewszcze jeden kod do fishbota do dostosowania

 

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

[Woj96]

Sry jestem zielony i za duzo nie wiem ale możecie te przykłady wklejać do skryptu było by łatwiej

[jackraymund]

to pokaż ten skrypt co masz to się zmiesza go

[adwi32]

@UPx10 masz jego skrypt

[jackraymund]

@up

przecież podał go

jeżeli chodzi o robema

[adwi32]

prosiłeś/aś o skrypt woj96 żeby go zmieszać to 10 postów wyżej masz jego skrypt

[jackraymund]

 

;;;;;ustawienia

$czas = "1111"

 

HotKeySet("{F11}", "_getDefault")

$x = 0

$y = 0

$color = 0

$newColor = 0

$status = "on"

;;;koniec tego dobrego ;;evil;;

 

Func _getDefault()

$coord = MouseGetPos()

$x = $coord[0]

$y = $coord[1]

$color = Hex(PixelGetColor( $coord[0], $coord[1]), 6)

$status = "on"

EndFunc

 

#include <ButtonConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <GUIConstants.au3>

HotKeySet("{HOME}", "start")

HotKeySet("{END}", "stop")

HotKeySet("{DEL}", "koniec")

GUICreate("Gdzie jest nemo? ;o", 370, 100)

$btn1 = GUICtrlCreateButton("Start", 10, 10, 80, 80)

$btn2 = GUICtrlCreateButton("Instrukcja", 100, 10, 80, 80)

$btn3 = GUICtrlCreateButton("Dzięki", 190, 10, 80, 80)

$btn4 = GUICtrlCreateButton("koniec", 280, 10, 80, 80)

GUISetState()

 

While 1

 

 

$msg = GUIGetMsg()

Switch $msg

 

Case $btn1

GUIDelete()

start()

Case $gui_event_close

exit

 

Case $btn2

Sleep(10)

MsgBox(0, "INFO", "strat NemoBot - HOME, STOP NemoBot - END, KONIEC - DELETE")

sleep(10)

MsgBox(0, "INFO", "Rozdzielczość 800x600 zmaksymilizowane okno Metin2")

 

MsgBox(0, "INFO", "Robaki na 1")

 

Sleep(10)

MsgBox(0, "INFO", "Nie sterowac myszką bo grozi to zaburzeniem pracy bota")

Case $gui_event_close

Exit

Case $btn3

sleep(15)

MsgBox(0, "Dzieki", "Menu głównego uzyczyłem od Wrrr")

Case $btn4

koniec()

Case $gui_event_close

exit

EndSwitch

wend

 

 

 

func start()

while 1

If $status = "on" Then

If _getCurrentColor($x, $y) <> $color Then

Sleep(2500);czeka

Opt("SendKeyDownDelay", 1000)

Send("{F1}");wyciąga

Sleep(3000)

Send("{F2}");zakłada robala

Sleep(2000)

Opt("SendKeyDownDelay", 1000)

Send("{F1}");rzut

ContinueLoop

EndIf

EndIf

WEnd

endfunc

 

 

Func _getCurrentColor($xDef, $yDef)

$newColor = Hex(PixelGetColor( $xDef, $yDef), 6)

Return ($newColor)

EndFunc

 

func stop()

while 1

sleep(1000)

wend

endfunc

 

func koniec()

exit

endfunc