Skocz do zawartości

Adrstalik

Members
  • Zawartość

    17
  • Rejestracja

  • Ostatnio

  1. tibia 11 bot

    Global $Paused HotKeySet('{Insert}','TogglePause') Sleep(3000) ;Delay na uruchomienie się heala WinActivate("Tibia") While True ;Heal high If (PixelGetColor(x,y) <> 0xff7171) Then ControlSend('Tibia','','','{F8}') ;Heal low ElseIf (PixelGetColor(x,y) <> 0xff7171) Then ControlSend('Tibia','','','{F9}') EndIf Sleep(200) $Mana = PixelGetColor(x,y) If $Mana = 5857129 Then ControlSend('Tibia','','','{F10}') Sleep(200) EndIf WEnd Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Heal zatrzymany!',10,70) WEnd ToolTip('Heal działa!',10,70) EndFunc Zmień koordynaty HP i MP tam gdzie x,y
  2. Prosta sprawa. Użyj AutoIt, a dokładnie ImageSearch. https://www.autoitscript.com/forum/topic/148005-imagesearch-usage-explanation/ W skrócie: Jeżeli znajdzie obrazek " 2+3 " niech szuka w polu odpowiedzi obrazka " 5 ".
  3. Kod generalnie działa. Ale jest problem w momencie, gdy postać znajduje się na miejscu czerwonego znacznika. Mysz powraca na środek mapy (czyli obecny punkt).
  4. Mamy cztery ćwiartki, każdą ćwiartkę przeszukuje w pionie i poziomie. Kiedy znajdzie powinien w danej ćwiartce kliknąć w ten pixel. Teoretycznie działa, praktycznie... Stąd jesteśmy tutaj. ;)
  5. Napisałem ale nadal mam ten problem.. Tu nowy kod: Global $WPos1 = [1206,266,1260,321] Global $WPos2 = [1260,266,1313,321] Global $WPos3 = [1206,321,1260,376] Global $WPos4 = [1260,321,1313,376] Global $h1 = $WPos1[1] Global $h2 = $WPos2[1] Global $h3 = $WPos3[1] Global $h4 = $WPos4[1] Global $dot1 = 0 Global $dot2 = 0 Global $dot3 = 0 Global $dot4 = 0 Global $xPrev = 0, $yPrev = 0, $PDist While 1 If _IsPressed('1B') Then Exit EndIf For $i = 1 to 8 If $i = 1 Then For $w = $WPos1[0] + 2 to $WPos1[2] Step 10 $dot1 = PixelSearch($w, $h1, $w + 1, $WPos1[3] - 3, 0xff4646, 0, 1) If Not @error Then If $xPrev <> 0 Or $yPrev <> 0 Then Pixel_Distance($xPrev, $yPrev, $dot1[0], $dot1[1]) EndIf MouseMove($dot1[0], $dot1[1], 5) $xPrev = $dot1[0] $yPrev = $dot1[1] EndIf Next Else For $w = $WPos1[2] To $WPos1[0] + 2 Step -10 $dot1 = PixelSearch($w, $h1, $w - 1, $WPos1[3] - 3, 0xff4646, 0, 1) If Not @error Then If $xPrev <> 0 Or $yPrev <> 0 Then Pixel_Distance($xPrev, $yPrev, $dot1[0], $dot1[1]) EndIf MouseMove($dot1[0], $dot1[1], 5) $xPrev = $dot1[0] $yPrev = $dot1[1] EndIf Next EndIf For $w = $WPos2[0] + 2 to $WPos2[2] Step 10 $dot2 = PixelSearch($w, $h2, $w + 1, $WPos2[3] - 3, 0xff4646, 0, 1) If Not @error Then If $xPrev <> 0 Or $yPrev <> 0 Then Pixel_Distance($xPrev, $yPrev, $dot2[0], $dot2[1]) EndIf MouseMove($dot2[0], $dot2[1], 5) $xPrev = $dot2[0] $yPrev = $dot2[1] EndIf Next For $w = $WPos2[2] To $WPos2[0] + 2 Step -10 $dot2 = PixelSearch($w, $h2, $w - 1, $WPos2[3] - 3, 0xff4646, 0, 1) If Not @error Then If $xPrev <> 0 Or $yPrev <> 0 Then Pixel_Distance($xPrev, $yPrev, $dot2[0], $dot2[1]) EndIf MouseMove($dot2[0], $dot2[1], 5) $xPrev = $dot2[0] $yPrev = $dot2[1] EndIf Next For $w = $WPos3[0] + 2 to $WPos3[2] Step 10 $dot3 = PixelSearch($w, $h3, $w + 1, $WPos3[3] - 3, 0xff4646, 0, 1) If Not @error Then If $xPrev <> 0 Or $yPrev <> 0 Then Pixel_Distance($xPrev, $yPrev, $dot3[0], $dot3[1]) EndIf MouseMove($dot3[0], $dot3[1], 5) $xPrev = $dot3[0] $yPrev = $dot3[1] EndIf Next For $w = $WPos3[2] To $WPos3[0] + 2 Step -10 $dot3 = PixelSearch($w, $h3, $w - 1, $WPos3[3] - 3, 0xff4646, 0, 1) If Not @error Then If $xPrev <> 0 Or $yPrev <> 0 Then Pixel_Distance($xPrev, $yPrev, $dot3[0], $dot3[1]) EndIf MouseMove($dot3[0], $dot3[1], 5) $xPrev = $dot3[0] $yPrev = $dot3[1] EndIf Next For $w = $WPos4[0] + 2 to $WPos4[2] Step 10 $dot4 = PixelSearch($w, $h4, $w + 1, $WPos4[3] - 3, 0xff4646, 0, 1) If Not @error Then If $xPrev <> 0 Or $yPrev <> 0 Then Pixel_Distance($xPrev, $yPrev, $dot4[0], $dot4[1]) EndIf MouseMove($dot4[0], $dot4[1], 5) $xPrev = $dot4[0] $yPrev = $dot4[1] EndIf Next For $w = $WPos4[2] To $WPos4[0] + 2 Step -10 $dot4 = PixelSearch($w, $h4, $w - 1, $WPos4[3] - 3, 0xff4646, 0, 1) If Not @error Then If $xPrev <> 0 Or $yPrev <> 0 Then Pixel_Distance($xPrev, $yPrev, $dot4[0], $dot4[1]) EndIf MouseMove($dot4[0], $dot4[1], 5) $xPrev = $dot4[0] $yPrev = $dot4[1] EndIf Next Next WEnd Ktoś coś?
  6. @Pawellek A czy skrypt nie zatnie się w takim wypadku? : W 2 ćwiartce mamy 2 punkty. Skrypt bez przerwy wyszukiwałby tych dwóch punktów.
  7. Cześć, Potrzebuje Waszej pomocy. Napisałem kod, który przeszukuje okno mapy w poszukiwaniu pixela. Niestety nie bardzo mam pomysł, jak zrobić tak, aby klikając w jeden punkt na mapie szedł dalej, a nie wyszukiwał pixeli wcześniejszych. Tu kod: While 1 If _IsPressed('1B') Then Exit EndIf For $i = 1 To 2 If $i = 1 Then For $w = $WPos[0] + 15 To $WPos[2] Step 10 $dot = PixelSearch($w, $h, $w + 10, $WPos[3] - 30, 0xffffff, 0, 1) If Not @error Then If $xPrev <> 0 Or $yPrev <> 0 Then Pixel_Distance($xPrev, $yPrev, $dot[0], $dot[1]) EndIf MouseMove($dot[0], $dot[1], 5) $xPrev = $dot[0] $yPrev = $dot[1] EndIf Next Else For $w = $WPos[2] To $WPos[0] + 15 Step -10 $dot = PixelSearch($w, $h, $w - 10, $WPos[3] - 30, 0xff4646, 0, 1) If Not @error Then If $xPrev <> 0 Or $yPrev <> 0 Then Pixel_Distance($xPrev, $yPrev, $dot[0], $dot[1]) EndIf MouseMove($dot[0], $dot[1], 5) $xPrev = $dot[0] $yPrev = $dot[1] EndIf Next EndIf Next WEnd Tu przykład jak skrypt działa: Jak widzimy na gifie: Skrypt sprawdza jak daleko jest czerwony X. W pewnym momencie przestaje widzieć dalszy pixel (co jest w porządku), ale nawet gdy w miejscu zielonych fajek są czerwone krzyże, niestety skrypt nie potrafi przejść dalej. Wyglądało by to tak: Ma ktoś jakieś pomysły? Dzięki

×