Jump to content

pixle pointer


Recommended Posts

i need pixle serch script, wich would serch for two pararel pixsels(one next to one) difrend colors, when it would found it it would clisk on it

i think i saw that script somewhere long ago but i cant find it agen

so if anyone can help =)

Link to comment
Share on other sites

i have these two colors- 0x3D5F44 on left and 0x594A32 on right.

now i need script wich will point mouse on combination of these two pixsles and click with left mouse button,

if there is no combination of that pixsles on screan it will just keep loking and loking unitil they show up.

*i need that script to make bot in some online game

hope someone can help now =)

Link to comment
Share on other sites

WoW bot? :)

Here's my suggestion

While 1
    For $x=0 to @DesktopWidth step 1
        for $y=0 to @DesktopHeight step 1
            if PixelGetColor($x,$y)=*Color you need on the left* and PixelGetColor($x+1,$y)=*Color you need on the right*
                MouseClick("left",$x,$y)
            EndIf
        Next
    Next
WEnd

If it's a battleground farming bot I can give u a few hints cuz i made one myself :)

Link to comment
Share on other sites

$coord = PixelSearch(0, 0, 1279, 1023, 0x3D5F44)
[u]$pixel PixelGetColor ( $coord[0] + 1 , $coord[1] )[/u]
if $pixel = 0x594A32 Then
    mouseclick( $coord[0] + 1 , $coord[1] )
i litle edited that script but i still getting 1 error

now it's

Func Enter()
$coord = PixelSearch(0, 0, 1279, 1023, 0xFFFFF)
$pixel PixelGetColor ( $coord[0] + 1 , $coord[1] )
if $pixel = 0xFFFFF Then
    mouseclick( $coord[0] + 1 , $coord[1] )
EndIf
EndFunc

but i getting that error

: ERROR: syntax error

in lunderlined line

Link to comment
Share on other sites

  • 6 months later...

Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
WinWait("Tales of Pirates - Paradise Found","")
If Not WinActive("Tales of Pirates - Paradise Found","") Then WinActivate("Tales of Pirates - Paradise Found","")
WinWaitActive("Tales of Pirates - Paradise Found","")

; creates a progress meter with comments.
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{END}", "Terminate")
; creates a progress meter with comments.
ProgressOn("A Venluckey Production", "Opening program", "0 %")

For $i = 0 to 100 step 1
    sleep(20) ; wait time.
    ProgressSet( $i, $i & " %") ; set the progress meter to the variable $i.
Next
ProgressSet(100 , "Done", "Complete") ; when the loop is complete, set the progress meter to 100 percent.
sleep(500) ; wait a half of a second.
ProgressOff() ; close the progress meter.

;~ Begin Code After Here

While 1 = 1
Find1()

WEnd

Func Find1()
$Coords = PixelSearch(0, 0, 1250, 1250, 0xFFFFF)
If isArray($Coords) then
MouseClick("Left",$Coords[0], $Coords[1],1,1)
sleep(100)
Send("^a")
EndIf
EndFunc

;~ End Code here

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(1000)
            WEnd
  
EndFunc

Func Terminate()    
    Exit 0
EndFunc

Thats what i got, sometimes it works, other times it wont. If you find a color that works, please post it.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...