Mer's Peon (auto mill/disenchant/prospect)

[hedesel]

Hey there,

If you're like me and crafting/buying lots of items to disenchant/mill/prospect then you're probably wasting a lot of time clicking stuff. This script will do the job for you.

Basically,you provide the screenshot of the item you want to be processed and coordinates for area of the screen where the item could be found. You can find more detailed explanation on top of the code.

Link below has both the source and the compiled version. I also included a sample image so you'll have an idea what yours should look like.

This script is using ImageSearch function which is NOT included in AutoIt.You need to search and download ImageSearch in the forum if you wanna compile the script yourself.

See if it suits you.

; ********************************************************************************************************************
; Simple script for repetitive tasks like milling,disenchanting or prospecting.
; ********************************************************************************************************************
;
; First thing you need to do is capturing the image of the item in your bag that needs to be processed.
; You can simply do this using Windows 7's Snipping Tool or using any other screen capture software of your liking.
; You need to save the image in your script/program folder as a JPG file.Other formats may work too (GIF,PNG,...),I just didn't test them.
;
; Next,
; Open your bags and imagine a rectangle that covers them all.
;
; Start the program.
; Script will first ask you for the action button location.This is the button of the task you want the script to perform that sits on your action bar.
;
; Then it will ask for the Top Left corner and Bottom Right corner of the rectangle that covers your bags.
;
; Finally you'll be asked for the image file name.If it can't find the file,you'll be asked again until you click "Cancel" or enter the correct file name.
;
; If the script can't find the item in your rectangle,it will ask you whether if you want to rescan the same area (maybe you'll get some more from your mailbox,etc...) or end the program.
;
; You also need to enable Auto loot in Interface options -> Control.
;
; Mergun.
#include <ImageSearch.au3>
$exitmsg=""
$answer=6
$filename=""
If WinExists("World of Warcraft") Then
 HotKeySet("{ESC}","Ex")
 $buttonpos=0
 $x=0
 $y=0
 $errcount=0
 $bagtopleft=0
 $bagbottomright=0
 WinActivate("World of Warcraft")
 WinWaitActive("World of Warcraft")
 ToolTip("Place your cursor on the ACTION BUTTON (mill,prospect,disenchant...).You have 5 seconds.",0,300,"Coords",2)
 Sleep(5000)
 $buttonpos=MouseGetPos()
 Tooltip("Open up your bags and place your cursor on the TOP LEFT CORNER of scanning area.You have 5 seconds.",0,350,"Coords",2)
 Sleep(5000)
 $bagtopleft=MouseGetPos()
 Tooltip("Open up your bags and place your cursor on the BOTTOM RIGHT CORNER of scanning area.You have 5 seconds.",0,400,"Coords",2)
 Sleep(5000)
 $bagbottomright=MouseGetPos()
 ToolTip("Processing",0,500,"Processing",1)
 Do
  $filename=InputBox("Image file name","What is the name of the image file that you want to be searched for?")
  If WinActive("World of Warcraft") = 0 Then
   WinActivate("World of Warcraft")
   WinWaitActive("World of Warcraft")
  EndIf
  If @error=1 Then
   Ex("Program terminated")
  EndIf
 Until FileExists($filename)
 While $answer=6
  If WinActive("World of Warcraft") = 0 Then
   WinActivate("World of Warcraft")
   WinWaitActive("World of Warcraft")
  EndIf
  If _ImageSearchArea($filename,1,$bagtopleft[0],$bagtopleft[1],$bagbottomright[0],$bagbottomright[1],$x,$y,200) Then
   MouseClick("left",$buttonpos[0],$buttonpos[1])
   Sleep(500)
   MouseClick("left",$x,$y)
   Sleep(5000)
  Else
   $errcount=$errcount+1
   If $errcount=2 Then
    $answer=MsgBox(36,"Confirmation","Item not found in scanning area.Do you want to start again with the same coordinates?")
    $errcount=0
   EndIf
  EndIf
 WEnd
 MsgBox(0,"Exit msg","Program terminated")
Else
 Ex("Warcraft window not found")
EndIf
Func Ex($exitmsg)
 If $exitmsg Then
  MsgBox(0,"Exit msg",$exitmsg)
 Else
  MsgBox(0,"Exit msg","Program terminated by user")
 EndIf
 Exit
EndFunc

And here's the download link;

MEGAUPLOAD - The leading online storage and file delivery service

Have fun.
Mergun

[Aegan]

Seems nice, but a bit too complex.

I just use a macro like this:

/use Prospecting/Disenchanting/Milling (pick whichever you use)
/use Noobium Ore/Leetsword of the Roflcopter/Failbloom (pick whatever you happen to be using)

Clear inventory of junk and then pop an autoclicker over that macro (mine lets me set a delay time between clicks, which I usually put as 5 seconds to account for casting time and any significant latency or loot delay) then go afk for a few minutes to bio, grab a snack, fap, whatever.

Tis simple, fast, and noob-friendly.

[mnbvc]

just get "panda" from curse.com and bind a suiteable macro, for example milling: "/click MassMill"
bind it to a key and use this simple script:

$hWnd=WinGetHandle("[CLASS:GxWindowClassD3d]")
While True
	ControlSend($hWnd, "", "", "1")
	Sleep(3700)
WEnd

(runs in background unlike you script )

[macias619]

just get "panda" from curse.com and bind a suiteable macro, for example milling: "/click MassMill"
bind it to a key and use this simple script:

$hWnd=WinGetHandle("[CLASS:GxWindowClassD3d]")
While True
	ControlSend($hWnd, "", "", "1")
	Sleep(3700)
WEnd

(runs in background unlike you script )

Hey mnbvc,

I need your help. I made the macro but I can't get it to bind to the left button and I don't get where you put the "/click MassMill"

Can you give me more details on how to bind the macro to the left button

Thanks

AIM: LM619
Yahoo: macias619