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
  • 0

Pomoc z pixel search


kostek123456

Pytanie

Opublikowano

Witam mam problem z funkcja pixel search a mianowicie po wykonaniu kalibracji sypie sie error

$Found = PixelSearch($Screen1[0],$Screen1[1] , $Screen2[0] $Screen2[1], $col1,$ShadeVariant)
$Found = PixelSearch($Screen1[0],$Screen1[1] , ^ ERROR

 

 

kod :

HotKeySet("{ESC}", "myExit")

;$Screen1[0] = 423
;$Screen1[1] = 196

;$Screen2[0] = 1497
;$Screen2[1] = 946

MsgBox(0,"Kalibracja: Lewa cześć","Ustaw Myszke w lewym gornym rogu")
$Screen1 = MouseGetPos()

MsgBox(0,"Kalibracja: Prawa cześć","Ustaw Myszke w prawym dolnym rogu")
$Screen2 = MouseGetPos()

;$MiniMapX1 = 1560
;$MiniMapY1 = 818
;$MiniMapX2 = 1887
;$MiniMapY2 = 1015

MsgBox(0,"Kalibracja : Minimapy", "Ustaw Myszke w Lewym górnym rogu minimapy")
$MiniMap1 = MouseGetPos()

MsgBox(0,"Kalibracja : Minimapy", "Ustaw Myszke w Prawym dolnym rogu minimapy")
$MiniMap2 = MouseGetPos()

;surki

$Endurium_color_1 = 0x57C1E3 ;jasno niebieski
$Endurium_color_2 = 0x378AD8 ;ciemno niebieski

;Boxy

$Box1_color_1 = 0xFFFFFF
$Box1_color_2 = 0xFFDAAA

$ShadeVariant =  20

$ColorSearchCounter = 0

$HuntCounter = 0


MouseClick("left",$MiniMap1[0],$MiniMap1[1],1)
Sleep(10000)

$CurrentHuntPoint = $MiniMap1

$X_Steps = ($MiniMap2[0] - $MiniMap1[0]) / 5
$Y_Steps = ($MiniMap2[1] - $MiniMap1[1]) / 5

$Hunting = True

While(1)
   WinActivate("DarkOrbit")

   SearchForColor($Endurium_color_1, $Endurium_color_2)
   SearchForColor($Box1_color_1,$Box1_color_2)
   sleep(250)

   if $Hunting = True Then
      $HuntCounter = $HuntCounter + 1
      if $HuntCounter = 10 Then
         $HuntCounter = 0
            if $CurrentHuntPoint[0] + $X_Steps >  $MiniMap2[0] Then
               if $CurrentHuntPoint[1] + Y_Steps > $MiniMap2[1] Then
                  $CurrentHuntPoint = $MiniMap1
               Else
                  $CurrentHuntPoint[0] = $MiniMap1[0] ;ustawieie pozycji x
                  $CurrentHuntPoint[1] = $CurrentHuntPoint[1] + $Y_Steps ;ipmlemetacja osy Y
               EndIf
            Else
               $CurrentHuntPoint[0] = $CurrentHuntPoint[1] + X_Steps
            EndIf
         MouseClick("left",$CurrentHuntPoint[0],$CurrentHuntPoint[1],'1')
      EndIf
   EndIf
WEnd

func SearchForColor($col1, $col2)
      $Found = PixelSearch($Screen1[0],$Screen1[1] , $Screen2[0] $Screen2[1], $col1,$ShadeVariant)
      If Not  @error Then
            SetError(0)
            $Found = PixelSearch($Found[0] - 32,Found[1] - 32 , $Found[0] + 32, $Found[1] + 32, $col2, $ShadeVariant)
            If Not @error Then
               MouseClick("left",$Found[0],$Found[1],1,1)
               sleep(3000)
               SearchForColor($col1, $clol2)
            EndIf
         EndIf

      $Found = PixelSearch($Screen2[0],$Screen2[1], $Sreen1[0], $Screen1[1], $col1,$ShadeVariant)
      If Not @error Then
         SetError(0)
         $Found = PixelSearch($Found[0] - 32,$Found[1] - 32 , $Found[0] + 32, $Found[1] + 32, $col2,$ShadeVariant)
         If Not @error Then
            MouseClick("left",$Found[0],$Found[1],1,1)
            sleep(3000)
         EndIf
      EndIf
EndFunc

Func myExit()
   Exit
EndFunc

Craftownia Podkarpacie Wielka reaktywacja 4/5 czerwiec więcej na https://www.facebook.com/CraftowniaPodkarpacie?ref=hl

1 odpowiedź na to pytanie

Rekomendowane odpowiedzi

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...