User:Moses/macro

// Written by: Coyan/Mosaic Guild originally as a mining Macro
// Adjusted by Menhotep for woodplane work.
// Will work with any number of woodplanes in any configuration
// with minor adjustments
// This is what I suggest for setting up for this macro
// This Macro DOES NOT fix broken blades

Constructs
	MouseX=List // this is an array of mouse X coords for gem sample points
	MouseY=List // this is an array of mouse X coords for gem sample points
END

Constants
	totalpulls = 200 // How many times do you want it to run all pottary wheels? (This number X Woodplanes = Wood in Inventory)
	loopcnt = 1 
	Mousecnt = 1
 	MouseXN = 0
	MouseYN = 0
End

// First part that requires a detailed explanation
// this loop will pause for 3 seconds then grab the current mouse location
// its purpose is to identify the 6 locations for the woodplanes (or however
// many) when it grabs the woodplane spot(s), it will then echo a . to the chat window
// make sure you are in your main chat tab.  After it finds all the woodplanes, you
// may need to minimize your chat window.  BE SURE TO BE IN MAIN TAB!

// Adjust this Loop numer to the number of Woodplanes being used
Loop 25
	Delay 3000
	Listadd MouseX, {MouseX}
	Listadd MouseY, {MouseY}
	SayPaste .
END
Delay 3000
loop $totalpulls
	Compute loopcnt = 1
// Adjust this Loop numer to the number of Woodplanes being used
	loop 25
		mousepos MouseX[$loopcnt], MouseY[$loopcnt]
		Delay 350
		keys j
		Compute loopcnt = $loopcnt + 1
		Delay 200
	END	
	Delay 72000
	//Delay 100000 for testing
	//Delay 200 //200
	Delay 2300 // Delay to manage the delay woodplane operation, adjust as needed
	// The more woodplanes, the less this delay needs to be
	
END