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

Błąd podczas wczytywania programu napisanego w AutoIT


Rekomendowane odpowiedzi

Opublikowano
; 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

Napisane do gry warofdragons. Ma łowić rybki, kiedy wczytuje w AutoIt wyskakuje błąd. ( KOMPLETNIE NIE ZNAM SIĘ na autoIT prosze o pomoc)

Opublikowano

Fajnie że wiadomo jaki to błąd 

 

p.s Przecinek ostatni w 6 lini

Mózg to nie mydło; nie ubędzie Ci go, gdy go użyjesz.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...