Seagul

watch out for the anti bot nazis dude they'll negative rep you. hotkeyset?

Your post is ridiculously useful, you should definitely work for the cia man very observant to see bot status and that my post is on looting thanks for reading.... Are you serious MR "Does anyone have a ISO of Windows Vista CD?" BE Advised!!! that software pirating is illegal

I've done something real similar to this before with pixelsearch but so far no dice with imagesearch before I call loot I click on the actual loot... and call this function. So it seems like it test it once and goes to still looting and stalls because it never seems to test the imagesearch over again. Func testLoot() While 1 $result = _ImageSearchArea("newglit.gif", 1, $xx1, $yy1, $xx2, $yy2, $a1, $b1, 85) If @error Then ToolTip('Bot Status : Looting done', 430, 71) ExitLoop Else ToolTip('Bot Status : Still Looting', 430, 71) Sleep(200) EndIf WEnd EndFunc ;==>Looting

I'm new to understanding these arrays, so here's what I have very basic, still need to compare the distance in each array. $a1 = 0 $b1 = 0 $target = _ImageSearchArea("target.gif", 0, $x1, $y1, $x2, $y2, $a1, $b1, 35) $shiptarget = _ImageSearchArea("ship.gif", 0, $x1, $y1, $x2, $y2, $sx1, $sy1, 35) $distance = Sqrt((Abs($a1 - $sx1)) ^ 2 + (Abs($b1 - $sy1)) ^ 2) $array[$icount] = $a1 & $b1 If $target = 1 & $distance >= 400 Then $icount = $icount + 1 MouseMove($array[$icount], 0) MouseDown($Click) Sleep(100) MouseUp($Click) Call("FindGlitter") EndIf

and im not so sure about this yours if $head_search= not @error then should be if @error then ; you already declared what headsearch was. your pause function isnt lookin quite right either do you write your stuff in scite it has a syntax checker.

your searching for a red pixel.. thats prolly not gonna work

So something like this but how would I tell it to store multiple targets so I would be able to pick one under my case. like click target a. click target b. $target = _ImageSearchArea("target.gif", 1, $x1, $y1, $x2, $y2, $a1, $b1, 35) $shiptarget = _ImageSearchArea("ship.gif", 1, $x1, $y1, $x2, $y2, $sx1, $sy1, 35) $distance = Sqrt((Abs($a1 - $sx1)) ^ 2 + (Abs($b1 - $sy1)) ^ 2) Select Case $distance >= 800 sleep (15000) Case $distance >= 400 sleep(7500) Case Else call("yada") EndSelect

How do I go about calculating something like so and choosing shortest distance from green dot to yellow dot.

well you are right jRowe I dropped idea of it comparing result now it compares the position of the loot $position = MouseMove($a1, $b1, 0) If @error Then $bootyfound = $bootyfound - 1 Call("Logic") Else Sleep(1000) EndIf

If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) If $result = 1 Then ;still looting Sleep(1000) Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf Else Call("Logic") EndIf

How Do I monitor when title of window changes heres what I have so far trying make a pidgin song changer Global $title WinGetTitle("[CLASS:{97E27FAA-C0B3-4b8e-A693-ED7881E99FC1}]", "") ; Gets Song Title ControlSetText("Buddy List", "", "gdkWindowChild5", "") ; Clears Box ControlSend("Buddy List", "", "gdkWindowChild5", $title) ; Sets Song Title

What am I why wont it find my image, is there an error in my function. Func FindGlitter() $imageresult = _ImageSearchArea("glitter.bmp", 1, 17, 17, $xx1, $yy1, $xx2, $yy2, 0) If $imageresult=1 Then TrayTip("Test", "bmp found", 2, 1) $bootyfound = $bootyfound + 1 MouseClick($Click, $imageresult[0], $imageresult[1], 1, 0) Sleep($loottime) $glitterfound = $glitterfound + 1 $bootyfound = $bootyfound - 1 Else TrayTip("Test", "error somethings wrong", 2, 1) EndIf EndFunc

Everything is working for me but when other people try to run it. It wont randomly click on spots like in script, only thing i had did was use an old autoitsc.bin the av must have deleted the new one. Is this causing the problem, I'm building a new machine I might be able to test it out myself today.

You can find updated versions of working bot at http://seafightmasta.tk

how about this, your H Plant Plow functions arent even in the code.. Adlibenable("Harvest" 60000) Adlibenable("Plow", 60000) Adlibenable("Plant", 60000) HotKeySet("{PAUSE}", "Escape") While 1=1 Call("Check") Sleep(150) ; longer delay less cpu WEnd Func Check() $coord = PixelSearch(142, 46, 900, 600, 0xC3463A) If @error Then Call("Check2") Else MouseClick("Left", $coord[0], $coord[1], 1, 0) EndIf EndFunc ;==>Check Func Check2() $coord2 = PixelSearch(476, 538, 552, 566, 0x94BC41) If Not @error Then MouseClick("Left", $coord2[0], $coord2[1], 1, 0) EndIf EndFunc ;==>Check2 Func Escape() AdlibDisable() Exit EndFunc ;==>Escape