Users > Coyan > Macros

==Flax Seed macro==

This macro uses ACTools, your milage may vary.

// flax seed growing macro - Coyan - 6/10/2006

// resolution is 1280x1024 and ACTools required

// Okies, some setup is needed for this to work

// first in one-click related, turn on flax hotkeys

// next on chat related, turn on chat and inventory can be minimized

// your choice on whether to turn on minimized chat channels are still visible

// minimize your chat

// now, hit F8 twice so you are zoomed all the way out

Constants

	time = 150 // mouse movement timer
	movetime = 500 // physical move between flax patches
	movebigtime = 3000 // physical movement between columns of flax
	pickseeds = 1800 // seed picker timer
	waitforseeds = 16000 // waiting for seeds to grow

	varyseedpos = 50 //first time its 50 on the Y axis, after that 0
	MouseX = 45 // where your pinned seed window should be
	MouseY = 45 // where your pinned seed window should be
	MouseXC = 640 // center of the screen on the X axis
	MouseYC = 512 // center of the screen on the Y axis
  MouseX1 = 640 // this is where you are planting and seeding on the X axis
  MouseY1 = 512 // this is where you are planting and seeding on the Y axis

End

Call seeds

Procedure seeds

		Mousepos 20,20 // okies this is zooming into about the right height for the macro

// The next timer may need adjustment. If you run the macro and the flax

// fields are too spread out, then increase the timer by 100 or so

// if the fields are too tight, then decrease it

		delay 2450 // this is the delay that determines the zoom height

		Mousepos $MouseXC,$MouseYC

		loop 6
			Compute $MouseY1 = $MouseYC - 25
			Compute $MouseX1 = $MouseXC
	    Loop 5
				Delay $movetime
 				Mousepos $MouseX, $MouseY
				Leftclick
 				Delay $time
				Mousepos $MouseX1, $MouseY1
				Leftclick
		  END
			Compute $MouseY1 = $MouseYC +100
			Compute $MouseX1 = $MouseXC -40
			Mousepos $MouseX1, $MouseY1
			Leftclick
			Delay $movebigtime
			Mousepos $MouseX, $MouseY
		end

	loop 5
		Compute $MouseY1 = $MouseYC + $varyseedpos
		Compute $MouseX1 = $MouseXC +180
		Mousepos $MouseX1, $MouseY1
		Leftclick
		Delay $waitforseeds
		loop 6
			Compute $MouseY1 = $MouseYC - 50
			Compute $MouseX1 = $MouseXC
	    Loop 5
 				Mousepos $MouseX1, $MouseY1
 				Delay $time
				Keys H
				Delay $pickseeds
		  END
			Compute $MouseY1 = $MouseYC +120
			Compute $MouseX1 = $MouseXC -40
			Mousepos $MouseX1, $MouseY1
			Delay $time
			Leftclick
			Delay $movebigtime
		end

			if $varyseedpos = 50
				compute $varyseedpos = 0
				compute $waitforseeds = 4000
			end

	end		

End