[Mac] Industrial automation with AppleScript

[wowpew]

We've all seen the numerous posts about buying Saronite Ore, prospecting, crafting and then disenchanting for profit. The tedious part is the prospecting and disenchanting which you will have to do several times per stack of ore.

Luckily this can be mostly automated.

Requirements:
Addons:
Auctioneer
Postal

On a Mac AppleScript is build in. On other platforms, you need some sort of scriptable autoclicker.

Theory:
----------------------------------------------------
On an AH-alt buy massive amounts of ore, or herbs. Send them to your prospecter/miller-char in only full mails. That is, only send mails with 12 full stacks.
On the prospecter/miller-char (The worker from here on out) make a few macros:

Open mail-macro:

/click PostalInboxCB1
/click PostalSelectOpenButton

Disenchant/Prospect/Mill-macro:

/use Lesser Cosmic Essence
/use Small Dream Shard
/click AutoDEPromptYes

Then set auctioneer to auto-disenchant anything in your bags. Right click the shard on the Auctioneer tab on the right side of your screen, then click "Automation" and check the only box. Be careful, this will ask if you want to disenchant/prospect/mill all the stuff that can be disenchanted/prospected/milled on your bags.

Now your status should be: A character with Jewelcrafting, Inscription or Enchanting with an open inbox full of emails with 12 items/stacks. Somewhere your should have the two macros on a button, I have keybound them to J for the Disenchant/Prospect/Mill-macro and i for the open mail-macro.

As I assume you are on a Mac (Why wouldn't you be? Glider is dead anyway ) open Script Editor and copy the following script:

on run
	set mails_to_open to 50 -- How many emails do you have?
	set times_to_process to 4 -- 1 if disenchanting 4 if milling/prospecting
	repeat (mails_to_open) times
		my open_mail()
		repeat ((12 * times_to_process) + 1) times
			my do_action(5, 5.5)
		end repeat
	end repeat
	say "I am done!"
end run

on do_action(r1, r2)
	my send_key("j")
	delay (random number from r1 to r2)
end do_action

on open_mail()
	my send_key("i")
	delay (random number from 2 to 5)
end open_mail

on send_key(key)
	tell application "World of Warcraft" to activate
	tell application "System Events" to keystroke key
end send_key

The only thing you need to change is line 2 and 3.
Line 2: "set mails_to_open to 50" Change 50 to the number of emails you have waiting for you.
Line 3: set times_to_process to 4 Change 4 to 1 if you are disenchanting, leave it at 4 if your are Prospecting/Milling.

Once you have changed those two values, if needed, run the script and it will:
1: Open the first email, get the attached stuff
2: Disenchant/Prospect/Mill 13 or 52 times
3: Repeat until it has done all the mails

Then you can move on to jewelcrafting the results, and send those to a disenchanter doing it all over again, or selling the pigments, or make inks and try for a Nobles Deck. But this post is not about the profit making, but about the industrialization before the profit.

A few notes about the AppleScript:
Right now it waits between 5 and 5.5 seconds between each mill/disenchant/prospect. This works for me as there are hardly any clicks while the character is still looting. You might be able to make it less if your connection is good.
I have added 1 extra click each cycle as usually one is missed anyway.

This has worked nicely for me. To the point of me starting to ask goldsellers how much gold they have on my server, then laughing when I find out they have about 1/3 the gold I have.

Oh, and I will ignore anybody saying something like "OMG Wall of text!!!1!!" If you are not here to read go look at some porn-pictures. They are probably a better match for you intellectual level.

I will also ignore anybody asking something I already explained in this post. If you are not going to read my post throughly, why should I spend time writing it again?

If anybody have any real questions, I'll be happy to answer them if I can. Remember though, I do this on a Mac, somebody else will probably know how to do this on a PC. But that guy is not me, go bugger him instead

[wowpew]

I forgot to add another nice time-saver macro:

/run for bag=0,4 do for slot=1,GetContainerNumSlots(bag) do local texture,itemCount,locked,quality=GetContainerItemInfo(bag,slot) if quality==2 then UseContainerItem(bag,slot) end end end

This will add any green items in your bags to a mail if you have the "Send Mail"-tab open.