Juggernaut Posted September 20, 2008 Posted September 20, 2008 (edited) I came here before looking for help with pixelsearching, and i've encountered another problem. Basically, what im looking to make is there is a "maze" or a line of sorts and im looking to make my player walk over the lines, without touching the edges. I can get him to move, but i can't seem to get it. Im looking to make my guy automatically walk over the lines. Any help? I currently have this: expandcollapse popup$target = 0x5A86C6 ;water - 0x3961A5 $player = 0x292829 $iPixRange = 2 HotKeySet("z", "Quit") HotKeySet("g", "Get") Global $target, $player Func Get() $pos = MouseGetPos() $var = PixelGetColor( $pos[0] , $pos[1] ) ;MsgBox(0,"The hex color is", Hex($var, 6)) MsgBox(0,"xy", $pos[0] & "," & $pos[1]) EndFunc HotKeySet("{ESC}", "Quit") While 1 Sleep(500) $pixelSearch = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, $target);target If @error Then ContinueLoop $pixelSearchPlayer = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, $player);player If @error Then ContinueLoop if $pixelsearch[0] > $pixelsearchPlayer[0] then Send("{Right}") EndIf If $pixelsearch[0] < $pixelsearchPlayer[0] Then Send("{Left}") EndIf if $pixelsearch[1] > $pixelsearchPlayer[1] Then Send("{Up}") EndIf if $pixelsearch[1] < $pixelsearchPlayer[1] Then Send("{Down}") EndIf WEnd Func Quit() Exit EndFunc I also have this other code i was given, im not sure where to go now. I think im missing how to impliment if the player is on the pixel or near it.. expandcollapse popup$target = 0x42594A $player = 0x525152 $iPixRange = 48 HotKeySet("z", "Quit") HotKeySet("g", "Get") Global $target, $player Func Get() $pos = MouseGetPos() $var = PixelGetColor( $pos[0] , $pos[1] ) ;MsgBox(0,"The hex color is", Hex($var, 6)) ;MsgBox(0,"xy", $pos[0] & "," & $pos[1]) EndFunc HotKeySet("{ESC}", "Quit") While 1 Sleep(10) $pixelSearch = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, $target , 1, 5);target If @error Then ContinueLoop $pixelSearchPlayer = PixelSearch(0, 0, @DesktopWidth, @DesktopHeight, $player , 1, 5);player If @error Then ContinueLoop Switch $pixelSearchPlayer[0] Case $pixelSearch[0] -$iPixRange To $pixelSearch[0] +$iPixRange Switch $pixelSearchPlayer[1] Case $pixelSearch[1] -$iPixRange To $pixelSearch[1] +$iPixRange ;Send("s") Beep(2000, 100) Sleep(500) EndSwitch EndSwitch WEnd Func Quit() Exit EndFunc Edited September 20, 2008 by Juggernaut
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