User:TamBlack/Macros - Revision history

W4p Bastet: /* Harvest Macro TO BE TESTED */

2010-03-21T15:51:52Z

Harvest Macro TO BE TESTED

W4p Bastet: /* Harvest Macro TO BE TESTED */

2010-03-21T15:51:04Z

Harvest Macro TO BE TESTED

Show changes

W4p Bastet: /* Plant, weed and harvest 20 beds */

2010-03-21T15:50:48Z

Plant, weed and harvest 20 beds

Show changes

W4p Bastet: /* Plant, weed and harvest 40 beds TO DO */

2010-03-21T15:50:22Z

Plant, weed and harvest 40 beds TO DO

Show changes

W4p Bastet: /* Plant, weed and harvest 40 beds */

2010-03-21T13:15:01Z

Plant, weed and harvest 40 beds

Show changes

W4p Bastet: /* Plant, weed and harvest 20 beds */

2010-03-21T13:14:35Z

Plant, weed and harvest 20 beds

W4p Bastet: /* Plant, weed and harvest 20 beds */

2010-03-21T12:15:42Z

Plant, weed and harvest 20 beds

W4p Bastet: /* Plant, weed and harvest */

2010-03-21T12:14:53Z

Plant, weed and harvest

Show changes

W4p Bastet: /* Plant, weed and harvest */

2010-03-21T11:45:16Z

Plant, weed and harvest

Show changes

W4p Bastet: /* Plant, weed and harvest */

2010-03-20T19:00:52Z

Plant, weed and harvest

← Older revision		Revision as of 15:51, 21 March 2010
Line 960:		Line 960:
	</pre>		</pre>

−	~~= Harvest Macro TO BE TESTED =~~

−	~~<pre>~~
−
−	~~// make sure you pin your plant/flax window in the upper left corner of your screen~~
−	~~Constants~~
−	~~CenterX = 637 // at 1280x1024 this is my center windowed~~
−	~~CenterY = 527 // at 1280x1024 this is my center windowed~~
−	~~VariableY = 527 // this doesn't need to be set, it gets set while running~~
−	~~VariableX = 637 // this doesn't need to be set, it gets set while running~~
−	~~MenuX = 0~~
−	~~MenuY = 0~~
−	~~TopY = 10 //Top of the window for zooming~~
−	~~TopCY = 40 //Topclickable Y~~
−	~~TopCX = 40 // Topclickable X~~
−	~~Gridup = 5 //number of flax top to bottom~~
−	~~Gridside = 5 //number of flax side to side~~
−	~~Column = 1 //leave this at 1~~
−	~~NormDelay = 1000 //the delay between actions~~
−	~~StartDelay = 3000 //this is the zoom in delay, larger means closer~~
−	~~DoItAgain = 2 // added so I flax more than once without the F8/F8 reset~~
−	~~// Set DoItAgain to the number of times you want to run 25, the grid is offset so keep that in mind~~
−	~~END~~
−
−	~~Procedure START~~
−	~~Keys {F8}~~
−	~~Keys {F8}~~
−	~~MousePos $CenterX,$TopY~~
−	~~Delay $StartDelay~~
−	~~MousePos $CenterX,$CenterY~~
−	~~End~~
−
−	~~Procedure PLANT~~
−	~~MousePos $TopCX, $TopCY~~
−	~~LeftClick~~
−	~~END~~
−	~~Procedure CLICKMENU~~
−	~~Compute MenuX = $VariableX + 10~~
−	~~Compute MenuY = $VariableY - 5~~
−	~~MousePos $MenuX, $MenuY~~
−	~~Delay 250~~
−	~~LeftClick~~
−	~~END~~
−
−	~~//This is where the actual macro starts, everything above are procedures~~
−	~~Call START~~
−	~~Delay $NormDelay~~
−	~~Compute Gridup = $Gridup-1~~
−	~~Compute VariableX = $CenterX+53~~
−
−	~~Loop $DoItAgain~~
−	~~Loop $Gridside~~
−
−	~~If $Column = 1 or $Column = 3 or $Column = 5 or $Column = 7~~
−	~~Compute VariableY = $CenterY-50~~
−	~~Else~~
−	~~Compute VariableY = $CenterY+50~~
−	~~End~~
−
−	~~Call Plant~~
−	~~Loop $Gridup~~
−	~~MousePos $CenterX,$VariableY~~
−	~~LeftClick~~
−	~~Delay $NormDelay~~
−	~~Call Plant~~
−	~~END~~
−	~~Compute $Column = $Column + 1~~
−	~~MousePos $VariableX,$CenterY~~
−	~~LeftClick~~
−	~~Delay $NormDelay~~
−	~~END~~
−
−	~~Compute VariableX = $CenterX-(($Gridside+1)*50)~~
−	~~Compute VariableY = $CenterY + (($Gridup-1)*50)-20~~
−	~~MousePos $VariableX,$VariableY~~
−	~~LeftClick~~
−
−	~~Delay 1500~~
−	~~RightClick~~
−
−	~~Compute VariableX = $CenterX - 85~~
−	~~Compute VariableY = $CenterY + 140~~
−	~~MousePos $VariableX,$VariableY~~
−
−	~~Delay 11000~~
−
−	~~loop 3~~
−	~~LeftClick~~
−	~~Call CLICKMENU~~
−	~~loop 4~~
−	~~Compute VariableY = $VariableY - 50~~
−	~~MousePos $VariableX,$VariableY~~
−	~~Delay 700~~
−	~~LeftClick~~
−	~~Call CLICKMENU~~
−	~~END~~
−
−	~~loop 2~~
−	~~Compute VariableY = $VariableY - 50~~
−	~~Compute VariableX = $VariableX + 50~~
−
−	~~loop 5~~
−	~~Compute VariableY = $VariableY + 50~~
−	~~MousePos $VariableX,$VariableY~~
−	~~Delay 700~~
−	~~LeftClick~~
−	~~Call CLICKMENU~~
−	~~END~~
−
−	~~Compute VariableY = $VariableY + 50~~
−	~~Compute VariableX = $VariableX + 50~~
−
−	~~loop 5~~
−	~~Compute VariableY = $VariableY - 50~~
−	~~MousePos $VariableX,$VariableY~~
−	~~Delay 700~~
−	~~LeftClick~~
−	~~Call CLICKMENU~~
−	~~END~~
−	~~END~~
−
−	~~Compute VariableX = $CenterX - 85~~
−	~~Compute VariableY = $CenterY + 140~~
−	~~MousePos $VariableX,$VariableY~~
−	~~Delay 1500~~
−	~~END~~
−
−	~~Delay 500~~
−	~~Compute Column = 1~~
−	~~Compute VariableX = $CenterX+53~~
−	~~END~~
−
−	~~</pre>~~

	= Wood pane TO BE TESTED =		= Wood pane TO BE TESTED =

@@ Line 984: / Line 984: @@
    SeedCycles=3 //weed, water and harvest how many times
-   InitialDelay=25000 //Time until the flax goes to first weed status
+   InitialDelay=25500 //Time until the flax goes to first weed status
-   NextDelay=3000 //Time between subsequent weed, water, harvest cycles
+   NextDelay=7000 //Time between subsequent weed, water, harvest cycles
    i=0
@@ Line 998: / Line 1,003: @@
    LoopVal = 1 //do not modify
 END
@@ Line 1,023: / Line 1,023: @@
 	Compute LoopVal = 1
    loop $Down //this one controls how many columns (N+1)(B)
 		mousepos $PlantX, $PlantY
-		delay $Delay100
+		delay $DelayShort
 		LeftClick
 		loop $RowLen //this one controls how many in a line (n) (A)
 //   		KeyDown {RIGHT} 375
 			compute BedX = $SelfX + $BedLen
 			mousepos $BedX, $SelfY
 			LeftClick
     		Delay $DelayWalk
      	mousepos $PlantX, $PlantY
      	LeftClick
    	end
 //  	KeyDown {DOWN} 375
 		compute BedY = $SelfY + $BedLen
 		mousepos $SelfX, $BedY
 		LeftClick
    	Delay $DelayWalk
    	mousepos $PlantX, $PlantY
    	LeftClick
@@ Line 1,050: / Line 1,051: @@
 	  loop $Across //this one controls how many in a line (n+1) (A)
 //  		Keydown {LEFT} 375
 			compute BedX = $SelfX - $BedLen
 			mousepos $BedX, $SelfY
 			LeftClick
    		Delay $DelayWalk
     		mousepos $PlantX, $PlantY
    		LeftClick
   		end
@@ Line 1,061: / Line 1,063: @@
 		if $LoopVal < $Down
 //	  	KeyDown {DOWN} 375
 			compute BedY = $SelfY + $BedLen
 			mousepos $SelfX, $BedY
 			LeftClick
 			Delay $DelayWalk
 	 	end
    	Compute LoopVal = $LoopVal + 1
 	End
@@ Line 1,073: / Line 1,074: @@
 //	KeyDown {UP} $YHomeDist
 	mousepos $XHomeDist, $YHomeDist
 	LeftClick
 	Delay $DelayWalk
@@ Line 1,085: / Line 1,087: @@
 		mousepos $BedX, $SelfY
 //		Call HarvestOneSeed $BedX, $SelfY
-		Delay $Delay100
+		Delay $DelayShort
 		LeftClick
 		compute MenuX = $BedX + 20
 		compute MenuY = $SelfY - 9
 		mousepos $MenuX, $MenuY
-		Delay $Delay100
+		Delay $DelayShort
 		LeftClick
 		Delay $DelayWeed
@@ Line 1,097: / Line 1,098: @@
    	loop $Across //this one controls how many in a line (n) (A)
 //   		KeyDown {RIGHT} 375
 			compute i = $i + 1
 			compute BedX = $SelfX + ($BedLen * $i)
 			mousepos $BedX, $SelfY
 // 			Call HarvestOneSeed $BedX, $SelfY
-			Delay $Delay100
+			Delay $DelayShort
 			LeftClick
 			compute MenuX = $BedX + 20
 			compute MenuY = $SelfY - 9
 			mousepos $MenuX, $MenuY
-			Delay $Delay100
+			Delay $DelayShort
 			LeftClick
 			Delay $DelayWeed
@@ Line 1,114: / Line 1,113: @@
 //  	KeyDown {DOWN} 375
 		compute BedY = $SelfY + $BedLen
   		mousepos $SelfX, $BedY
 		LeftClick
 		Delay $DelayWalk
@@ Line 1,124: / Line 1,123: @@
 		mousepos $BedX, $SelfY
 //		Call HarvestOneSeed $BedX, $SelfY
-		Delay $Delay100
+		Delay $DelayShort
 		LeftClick
 		compute MenuX = $BedX + 20
 		compute MenuY = $SelfY - 9
 		mousepos $MenuX, $MenuY
-		Delay $Delay100
+		Delay $DelayShort
 		LeftClick
 		Delay $DelayWeed
@@ Line 1,141: / Line 1,139: @@
 			mousepos $BedX, $SelfY
 //			Call HarvestOneSeed $BedX, $SelfY
-			Delay $Delay100
+			Delay $DelayShort
 			LeftClick
 			compute MenuX = $BedX + 20
 			compute MenuY = $SelfY - 9
 			mousepos $MenuX, $MenuY
-			Delay $Delay100
+			Delay $DelayShort
 			LeftClick
 			Delay $DelayWeed
@@ Line 1,156: / Line 1,153: @@
 			compute BedY = $SelfY + $BedLen
 			mousepos $SelfX, $BedY
 			LeftClick
 			Delay $DelayWalk
@@ Line 1,164: / Line 1,162: @@
 //	KeyDown {UP} $YHomeDist
 	mousepos $SelfX, $YHomeDist
 	LeftClick
 	Delay $DelayWalk

@@ Line 960: / Line 960: @@
 <pre>
-//This Macro will plant 20 rows of flax, weed/water and harvest them
+//This Macro will plant 20 beds of flax, weed/water and harvest them
 //
 //You will need to use double F8 view. Zoom all the way in, then 7 mousewheel clicks out

@@ Line 987: / Line 987: @@
    SeedCycles=3 //harvest how many times (n+1) -- for best results use 3 or less
-   InitialDelay=35000 //Time until the flax goes to seed and can be harvested
+   InitialDelay=7000 //Time until the flax goes to seed and can be harvested
    NextDelay=1000 //Program sets this - the time between subsequent harvest cycles
@@ Line 1,000: / Line 1,000: @@
    LoopVal = 1 //do not modify
 END
 Compute ActualCols = $ColLen * 2
-Compute XHomeDist = $SelfX - ($BedLen*0.75)
+Compute XHomeDist = $SelfX - $BedLen + 10
-Compute YHomeDist = $SelfY - ((($ActualCols-1)/2) * $BedLen)
+Compute YHomeDist = $SelfY - (($ActualCols-1) * $BedLen)
 Call Plant $RowLen, $ColLen
 Delay $InitialDelay
-//loop $SeedCycles
+loop $SeedCycles
-   //Call HarvestAllSeeds $RowLen, $ColLen, 0 //This cycle harvests only
+   Call HarvestAllSeeds $RowLen, $ColLen, 0 //This cycle harvests only
-   //Delay $NextDelay
+   Delay $NextDelay
-//end
+end
 Procedure Plant using Across, Down
@@ Line 1,079: / Line 1,080: @@
 		Compute LoopVal = 1
 		loop $Down //this one controls how many columns (N+1)(B)
-		compute BedX = $SelfX + $BedLen
+		compute i = 1
-		mousepos $BedX,$SelfY
+		compute BedX = $SelfX + ($BedLen * $i)
 		Call HarvestOneSeed
@@ Line 1,086: / Line 1,088: @@
 //   		KeyDown {RIGHT} 375
 			delay 100
-			mousepos 729,$SelfY
+			compute i = $i + 1
 			LeftClick
 	  	Delay 1000
@@ Line 1,094: / Line 1,098: @@
 //  	KeyDown {DOWN} 375
    	Delay 100
-  		mousepos $SelfX,602
+		compute BedY = $SelfY + $BedLen
 		LeftClick
 	 	Delay 1000
 		Call HarvestOneSeed
@@ Line 1,103: / Line 1,112: @@
 //  		Keydown {LEFT} 375
    		Delay 100
-			mousepos 549,$SelfY
+			compute i = $i - 1
 			LeftClick
 	  	Delay 1000
@@ Line 1,111: / Line 1,122: @@
 		if $LoopVal < $Down
 //	  	KeyDown {DOWN} 375
-			mousepos $SelfX,602
+			compute BedY = $SelfY + $BedLen
 			LeftClick
 	  	Delay 1000
@@ Line 1,118: / Line 1,130: @@
    	Delay 100
 	end
-	KeyDown {UP} $YHomeDist
+//	KeyDown {UP} $YHomeDist
 end