Sign in to follow this  
Followers 0
kenners

pixle pointer

12 posts in this topic

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 =)

Share this post


Link to post
Share on other sites

Look in this Topic for starters


+==================================================================+| The Definition of Madness: Creating a GUI, with GUI automation scripts |+==================================================================+

Share this post


Link to post
Share on other sites

i readed that topic 10 times, but i am still noob in those thinks, so if anyone can jsut give me link or post exsample script wich i need :)

Share this post


Link to post
Share on other sites

wait so you want to set the coordinates of where to search for a pixel, get that color, then search the pixel parallel to it and get that color as well?

Share this post


Link to post
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 =)

Share this post


Link to post
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 :)

Share this post


Link to post
Share on other sites

thanks mladost1, i going try your code that moment :)

and its not WoW bot, its for Tales of pirates, to chop some trees =)

Share this post


Link to post
Share on other sites

i got error

ERROR: multi-line 'If' missing 'Then'

hope someone can pass it, i tried to do but i am lost =)

Share this post


Link to post
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

Share this post


Link to post
Share on other sites

com'on someone give me full fworking script, cuz i was trying all afternon and did nothig, now i see how big newbie i am =)

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
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
Sign in to follow this  
Followers 0