kenners Posted May 24, 2008 Posted May 24, 2008 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 =)
Prophet Posted May 24, 2008 Posted May 24, 2008 Look in this Topic for starters +==================================================================+| The Definition of Madness: Creating a GUI, with GUI automation scripts |+==================================================================+
kenners Posted May 24, 2008 Author Posted May 24, 2008 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
Muchuchu Posted May 24, 2008 Posted May 24, 2008 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?
kenners Posted May 24, 2008 Author Posted May 24, 2008 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 =)
mladost1 Posted May 24, 2008 Posted May 24, 2008 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
kenners Posted May 24, 2008 Author Posted May 24, 2008 thanks mladost1, i going try your code that moment and its not WoW bot, its for Tales of pirates, to chop some trees =)
kenners Posted May 24, 2008 Author Posted May 24, 2008 i got error ERROR: multi-line 'If' missing 'Then' hope someone can pass it, i tried to do but i am lost =)
Muchuchu Posted May 24, 2008 Posted May 24, 2008 $coord = PixelSearch(0, 0, 1279, 1023, 0x3D5F44) $pixel PixelGetColor ( $coord[0] + 1 , $coord[1] ) if $pixel = 0x594A32 Then mouseclick( $coord[0] + 1 , $coord[1] )
kenners Posted May 24, 2008 Author Posted May 24, 2008 $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
kenners Posted May 25, 2008 Author Posted May 25, 2008 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 =)
Scrippter Posted December 10, 2008 Posted December 10, 2008 expandcollapse popupOpt("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.
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now