Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Rekomendowane odpowiedzi

Opublikowano

Cześć chce zrobic bota do gry wolni farmerzy do siania marchwi itp mam kod AutoIT ale cos jest chyba źle

 

To jest ukryta treść, proszę

 

SS GRY W CZERWONYM POLU TO KOLOR ZIELONY I WTE KOLORY MA KLIKAĆ BOT I SIAĆ

 

 

To jest ukryta treść, proszę

 

CHCIAŁBYM ABYŚCIE MI POMOGLI W PO POPRAWIENIU KODU!!

sygn1.png

Opublikowano (edytowane)

zawsze będzie Ci klikał w pierwszego bo ciągle jego jako pierwszego znajduje i dalej już nie szuka

 

To jest ukryta treść, proszę

Edytowane przez Sopelek997
Opublikowano

zawsze będzie Ci klikał w pierwszego bo ciągle jego jako pierwszego znajduje i dalej już nie szuka

 

To jest ukryta treść, proszę

 

 

nadal nic chce aby we wszystkie pola siał ;/ i nic hmm...

 

jak mozesz testnij u siebie strona gry www.wolnifarmerzy.pl

sygn1.png

Opublikowano (edytowane)

To zrób pixel searche i mouseclicki dla każdego pola z osobn,

Albo jak znasz dokładne położenie pixela to użyj pixelgetcolor. Szybciej przemieli

Edytowane przez Sopelek997
Opublikowano

ok to tyle tych mouseclicków mam teraz zdąrzyłem zrobic i co dalej z pixel searche nie kumam

 

Sleep(5000)

MouseMove(438,268, 0)

MouseClick("")

MouseMove(477,267, 0)

MouseClick("")

MouseMove(521,268, 0)

MouseClick("")

MouseMove(559,268, 0)

MouseClick("")

MouseMove(585, 422, 0)

MouseClick("")

MouseMove(627, 419, 0)

MouseClick("")

MouseMove(667, 419, 0)

MouseClick("")

MouseMove(707, 418, 0)

MouseClick("")

MouseMove(748, 418, 0)

MouseClick("")

MouseMove(788, 418, 0)

MouseClick("")

MouseMove(590, 458, 0)

MouseClick("")

MouseMove(633, 460, 0)

MouseClick("")

MouseMove(667, 460, 0)

MouseClick("")

MouseMove(713, 460, 0)

MouseClick("")

MouseMove(751, 459, 0)

MouseClick("")

MouseMove(1044,269, 0)

MouseClick("")

MouseMove(1082,268, 0)

MouseClick("")

sygn1.png

Opublikowano

No trzeba zrobić po kolei pixel searche dla każde pola w grze... Prościej nie wytłumacze. Ale nadal mi się wydaje, że nie zrobiłeś tego o co Cie prosiłem

To jest ukryta treść, proszę

 

Daj tam gdzie jest 405 wartość kordów Y prawego dolnego rogu.Jeżeli po zebraniu plonu na kratce 1x1 ten kolor już na niej nie występuje to jak najbardziej bot będzie działał. Jeśli występujue nadal to znajdź jakiś inyy bo ci będzie ciągle w 1 kratke klikał

 

Ps. Ile razy wszędzie można tłuc, że mouseclick zawiera w sobie mousemove...

to

MouseMove(707, 418, 0)

zamień na

MouseClick("left", 707, 418)

Weteran
Opublikowano

Zamiast pisać tysiąc razy MouseClick... itd. to lepiej użyć pętli

 

For $i To [ilosc zmiennych]

MouseClick("left",$yzmienna[$i],$xzmienna[$i])

Next

 

Jeżeli dobrze pamiętam to tak to powinno wyglądać..

1329036830-U154499.png
Opublikowano

To jest ukryta treść, proszę

 

Tak wyskoczy pierwszy msg box to kierujesz mychą w lewy gorny róg obszar szukania i naciskasz scrolllocka, potem to samo z prawym dolnym

Opublikowano

nie wiem po co do tej gry piepszyć się z kilkaniem myszką skoro całą zawartość strony czy obsługe gry mozna obsłuzyć w IE albo FF . każda zmianma rozdzielczości czy położenia przeglądfarki w tym przypadku spowoduje błędne działanie programu , no i to że ma się zablokowany komputer w czasie używania bota

 

to obsługa ledwo jednego pola a gdzie reszta ?

 

boty w autoit są nieprzydatne w większości przypadków najlepiej sprawują się te aktualne robiące wszystko, więcej informacji w odpowiednim dziale dla takich gier jak Wolni Farmerzy

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Opublikowano

;;;;;;;;;;;;;;;;;;;;;

MsgBox(64, "", "nakieruj kursor na lewy gorny rog mapki i nacisnij scrolllock (nie musi być dokladnie)")

Do

Until _IsPressed("91")

$lol2 = MouseGetPos()

Sleep(1000)

;;;;;;;;;;;;;;;;;;;;;

MsgBox(64, "", "nakieruj kursor na prawy dolny rog mapki i nacisnij scrolllock (nie musi być dokladnie)")

Do

Until _IsPressed("91")

$lol = MouseGetPos()

Sleep(1000)

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

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

while 1

sleep(100)

WEnd

 

func stop()

Exit

EndFunc

func start()

MouseClick("")

while 1

 

$zmienna = PixelSearch($lol2[0], $lol2[1],$lol[0], $lol[1] ,0xEB1609,5)

 

if not @error Then

mouseclick("left", $zmienna[0],$zmienna[1])

 

 

EndIf

WEnd

EndFunc

 

nie działa błąd

>"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\Gordon\Desktop\Nowy AutoIt v3 Script (4).au3"

C:\Users\Gordon\Desktop\Nowy AutoIt v3 Script (4).au3 (4) : ==> Unknown function name.:

Until _IsPressed("91")

Until ^ ERROR

>Exit code: 1 Time: 9.617

sygn1.png

Opublikowano

zrobiłem to tak i nic

 

;;;;;;;;;;;;;;;;;;;;;

#include <misc.au3>

MsgBox(64, "", "nakieruj kursor na lewy gorny rog mapki i nacisnij scrolllock (nie musi być dokladnie)")

Do

Until _IsPressed("91")

$lol2 = MouseGetPos()

Sleep(1000)

;;;;;;;;;;;;;;;;;;;;;

MsgBox(64, "", "nakieruj kursor na prawy dolny rog mapki i nacisnij scrolllock (nie musi być dokladnie)")

Do

Until _IsPressed("91")

$lol = MouseGetPos()

Sleep(1000)

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

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

while 1

sleep(100)

WEnd

 

func stop()

Exit

EndFunc

func start()

MouseClick("")

while 1

 

$zmienna = PixelSearch(487, 435, 952, 823,0x49433D,5)

 

if not @error Then

mouseclick("left", $zmienna[0],$zmienna[1])

 

 

EndIf

WEnd

EndFunc

 

zrobiłem to tak i nic

 

;;;;;;;;;;;;;;;;;;;;;

#include <misc.au3>

MsgBox(64, "", "nakieruj kursor na lewy gorny rog mapki i nacisnij scrolllock (nie musi być dokladnie)")

Do

Until _IsPressed("91")

$lol2 = MouseGetPos()

Sleep(1000)

;;;;;;;;;;;;;;;;;;;;;

MsgBox(64, "", "nakieruj kursor na prawy dolny rog mapki i nacisnij scrolllock (nie musi być dokladnie)")

Do

Until _IsPressed("91")

$lol = MouseGetPos()

Sleep(1000)

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

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

while 1

sleep(100)

WEnd

 

func stop()

Exit

EndFunc

func start()

MouseClick("")

while 1

 

$zmienna = PixelSearch(487, 435, 952, 823,0x49433D,5)

 

if not @error Then

mouseclick("left", $zmienna[0],$zmienna[1])

 

 

EndIf

WEnd

EndFunc

sygn1.png

Opublikowano (edytowane)

Myślisz, że to $zmienna = PixelSearch($lol2[0], $lol2[1],$lol[0], $lol[1] kolor) dałem po to żebyś sobie zamienił na to $zmienna = PixelSearch(487, 435, 952, 823,0x49433D,5)? W sumie to może być, ale to 1 jest bardziej uniwerstalne

 

Jak nie działa to próbuj z innymi kolorami

 

PS. Możesz napisać co nie działa/czego nie robi. W każdym razie nie przeszkodziłoby mi to w rozwiązywaniu problemu

Edytowane przez Sopelek997
×
×
  • Dodaj nową pozycję...