Tehm at 12:41, 3 March 2010

2010-03-03T12:41:10Z

Tehm at 12:38, 3 March 2010

2010-03-03T12:38:38Z

Tehm at 12:36, 3 March 2010

2010-03-03T12:36:38Z

Tehm at 12:35, 3 March 2010

2010-03-03T12:35:04Z

Tehm: New page: //This Macro will plant several rows of flax in order to harvest seeds from them // //You will need to sue double F8 view. Zoom all the way in, then 7 mousewheel clicks out //(this is so t...

2010-03-03T12:34:34Z

New page: //This Macro will plant several rows of flax in order to harvest seeds from them // //You will need to sue double F8 view. Zoom all the way in, then 7 mousewheel clicks out //(this is so t...

New page

//This Macro will plant several rows of flax in order to harvest seeds from them
//
//You will need to sue double F8 view. Zoom all the way in, then 7 mousewheel clicks out
//(this is so that your avatar is about the size of the thumb in the gather grass macro
//For this to work you need to **minimize chat***
//Open the Plant menu and pin it to the top or bottom of the screen
//When the macro starts, you will need to quickly mouse-over the Plant Flax Seed instruction
//As the macro runs, your avatar should stay in the middle of the flax beds, but he will stray
//It is up to you to move him back to the middle (or close) when this happens
//It is my belief this is caused by server lag and therefore cannot be avoided
//I use screen resolution 1280x1024 on a wide-screen monitor

//MousePos 638,508 //My Head
delay 3000
Constructs
MouseX=List // this is an array of mouse X coords
MouseY=List // this is an array of mouse Y coords
END

Constants
RowLen=7 //actually does n+1 -- Recommend 7 or fewer if Seedcycles is 3
ColLen=2 //actually does n*2 -- Recommend 2 or fewer if Seedcycles is 3
ActualCols=0 //program sets this
ActualRows=0 //not used
XHomeDist=0 //Not necessary because it plants even numbers of rows
YHomeDist=0 //sets later
SeedCycles=3 //harvest how many times (n+1) -- for best results use 3 or less
InitialDelay=50000 //Time until the flax goes to seed and can be harvested
NextDelay=0 //Program sets this - the time between subsequent harvest cycles
LoopVal = 1 //do not modify

END

Compute ActualCols = $ColLen * 2
Compute YHomeDist = (($ActualCols) * 375)
Compute InitialDelay = $InitialDelay - (475 * ($RowLen + 1) * ($ColLen * 2)) + 475
Compute NextDelay = 66000 - ($ColLen * 2) * ($RowLen + 1) * 1950
Compute NextDelay = MAX ($NextDelay, 0)
//Acquire Location of Plant:Flax Seed
Listadd MouseX, {MouseX}
Listadd MouseY, {MouseY}

Call Plant $RowLen, $ColLen
Delay $InitialDelay

loop $SeedCycles
Call HarvestAllSeeds $RowLen, $ColLen, 0 //This cycle harvests only
Delay $NextDelay
end

//This cycle harvests then rips out the flax bed.
//If you like picking a lot of seeds up off the ground, remove the next line.
Call HarvestAllSeeds $RowLen, $ColLen, 1

Procedure Plant using Across, Down
//This procedure creates a grid of Flax of size (Across +1) x (Down * 2)
//It utilizes global variable MouseX and MouseY holding the location of the plant Flax pin
//It also uses global variable $YHomeDist and $InitialDelay to return to the starting point
Compute LoopVal = 1
loop $Down //this one controls how many columns (N+1)(B)
mousepos {MouseX[1],MouseY[1]
LeftClick
loop $RowLen //this one controls how many in a line (n) (A)
KeyDown {RIGHT} 375
Delay 100
mousepos {MouseX[1],MouseY[1]
LeftClick
end

KeyDown {DOWN} 375
Delay 100
mousepos {MouseX[1],MouseY[1]
LeftClick

//this one controls how many in a line (n+1)
loop $Across //this one controls how many in a line (n+1) (A)
Keydown {LEFT} 375
Delay 100
mousepos {MouseX[1],MouseY[1]
LeftClick
end

if $LoopVal < $Down
KeyDown {DOWN} 375
end
Delay 100
Compute LoopVal = $LoopVal + 1
End

KeyDown {UP} $YHomeDist

END //Planting

Procedure HarvestAllSeeds using Across, Down, Yank
//This procedure harvesta seeds from a grid of Flax of size (Across +1) x (Down * 2)
//If Yank = 1 it will also rip out the plant
Compute LoopVal = 1
loop $Down //this one controls how many columns (N+1)(B)
Call HarvestOneSeed
if $Yank = 1
Call Ripout
end

loop $Across //this one controls how many in a line (n) (A)
KeyDown {RIGHT} 375
Delay 100
Call HarvestOneSeed
if $Yank = 1
Call Ripout
end
end

KeyDown {DOWN} 375
Delay 100
Call HarvestOneSeed
if $Yank = 1
Call Ripout
end

//this one controls how many in a line (n+1)
loop $Across //this one controls how many in a line (n+1) (A)
Keydown {LEFT} 375
Delay 100
Call HarvestOneSeed
if $Yank = 1
Call Ripout
end
end

if $LoopVal < $Down
KeyDown {DOWN} 375
end
Compute $LoopVal = $LoopVal + 1
Delay 100
end
KeyDown {UP} $YHomeDist
end

Procedure HarvestOneSeed
//Clicks on flax bed your are standing in, and selects harvest
//I repeat the mousepos because I find it reduces server/client transmission miscues
//which would cause the pop up menu to stray from where it should be
mousepos 654, 504
Delay 30
mousepos 654, 504
LeftClick
Delay 60
mousepos 690, 499
Delay 60
mousepos 690, 499
LeftClick
Delay 1800
end

Procedure RipOut
//Clicks on flax bed your are standing in, and selects Utility->Rip Out
//Because picking up flax seeds off the ground is annoying.
//I repeat the mousepos because I find it reduces server/client transmission miscues
//which would cause the pop up menu to stray from where it should be MousePos 654, 504
Delay 30
MousePos 654, 504
LeftClick
Delay 70
MousePos 724, 533
Delay 30
MousePos 724, 533
LeftClick
Delay 70
MousePos 746, 509
Delay 30
MousePos 746, 509
LeftClick
Delay 70
end

← Older revision		Revision as of 12:41, 3 March 2010
Line 187:		Line 187:
	end		end
	</pre>		</pre>
		+
		+	[[User:tehm/Bastet \| Back to tehm's page: ]]

@@ Line 1: / Line 1: @@
 For ACTools
-<nowiki>
+<pre>
 //This Macro will plant several rows of flax in order to harvest seeds from them
 //
@@ Line 186: / Line 186: @@
 	Delay 70
 end
-</nowiki>
+</pre>

@@ Line 4: / Line 4: @@
 //This Macro will plant several rows of flax in order to harvest seeds from them
 //
-//You will need to sue double F8 view. Zoom all the way in, then 7 mousewheel clicks out
+//You will need to use double F8 view. Zoom all the way in, then 7 mousewheel clicks out
-//(this is so that your avatar is about the size of the thumb in the gather grass macro
+//(your avatar will be a little smaller than the size of the thumb in the Gather Grass icon
 //For this to work you need to **minimize chat***
 //Open the Plant menu and pin it to the top or bottom of the screen

Tehm's Flax Seeding Macro - Revision history

Tehm at 12:41, 3 March 2010

Tehm at 12:38, 3 March 2010

Tehm at 12:36, 3 March 2010

Tehm at 12:35, 3 March 2010

Tehm: New page: //This Macro will plant several rows of flax in order to harvest seeds from them // //You will need to sue double F8 view. Zoom all the way in, then 7 mousewheel clicks out //(this is so t...