[Pytanie] Fishbot V2 Dodatek Killd Fish

[Woj96]

Ok chce teraz dodać opcję Kill Fish

 

Wygląda to tak

 

 

#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, 103)

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

$chceckbox1 = GUICtrlCreateCheckbox("Kill Fish", 20, 89, 50, 18)

$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 = 0xFFFFFF Then

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

sleep(2650)

send("{SPACE}")

send(1)

endif

wend

 

endfunc

 

func stop()

while 1

sleep(1000)

wend

endfunc

 

func koniec()

exit

endfunc

 

 

Jak widzicie dedałem niewiele tylko $chceckbox1 = GUICtrlCreateCheckbox("Kill Fish", 20, 89, 50, 18)

okienko ktore zaznacza sie ptaszkiem.

I teraz trudne jak tu zrobic zeby po zaznaczeniu[okienka] do func start() dochodziła nowa rzecz a doglebniej mowiac koordynaty na ktore ma myszka najechac i

klikna[TO WIEM]

 

MouseMove(x , y)

MouseClick( "Left" )

Prosze o pomoc

[hP2396]

Nie jestem zaawansowany, ale spróbuj tak :

 

To jest ukryta treść, proszę

• Zaloguj się
• lub
• Zarejestruj się

Jak $result = 0 to musisz wpisac imagesearch szukający innej ryby.

 

.bmp to jakas ryba ,np. karaś

[Woj96]

Łap plusa Tylko jest problem jak to zrobić zeby auto umieszczało sie w func start()

 

Ma ktos jakiś pomysł???

[jackraymund]

dodaj to poprstu do funkcji

tylko powtórz ją pare razy jeden skrypt na jedna rybke np/

If CheckBox1 = True Then

$result = _ImageSearch("karas.bmp", 1, $x, $y, 20)

If $result = 1 Then

MouseClicl("right", $x, $y)

ElseIf $result = 0 Then

endif

If CheckBox1 = True Then

$result = _ImageSearch("szczupak.bmp", 1, $x, $y, 20)

If $result = 1 Then

MouseClicl("right", $x, $y)

ElseIf $result = 0 Then

endif

If CheckBox1 = True Then

$result = _ImageSearch("rekin.bmp", 1, $x, $y, 20)

If $result = 1 Then

MouseClicl("right", $x, $y)

ElseIf $result = 0 Then

endif

[adwi32]

ale woj pisz jak tam postępy ciekawi mnie to