User:Kibble/Macros/Grass Picker - Revision history

Kibble at 06:34, 6 February 2009

2009-02-06T06:34:26Z

Lunodragon at 05:08, 6 February 2009

2009-02-06T05:08:58Z

Lunodragon at 05:08, 6 February 2009

2009-02-06T05:08:14Z

Kibble at 04:47, 5 February 2009

2009-02-05T04:47:28Z

Kibble: New page:

 // Repeat Clicker // coded by: kibble  // Instructions: Start the macro and hold the mouse cursor over the spot you wish to click //               and wait for the macro to start. It...

2009-02-05T04:43:38Z

New page: <pre> // Repeat Clicker // coded by: kibble // Instructions: Start the macro and hold the mouse cursor over the spot you wish to click // and wait for the macro to start. It...

New page

<pre>
// Repeat Clicker
// coded by: kibble

// Instructions: Start the macro and hold the mouse cursor over the spot you wish to click
// and wait for the macro to start. It will save the location, you can move the
// cursor after the macro starts.

// Declares
constants
objWindow = eGenesis Client // <-- Program Window Title
Action = leftclick // <-- Action to perform (keys d for dig)
intCount = 500 // <-- Number of Times to Repeat
intDelay = 25 // <-- Delay in seconds between clicks
end // 15 = fish, 25 = limestone/dirt(no food)

constructs
MousePnt = list
end

// Init
SetActiveWindow $objWindow
delay 3 sec // <-- Delay before the macro saves the mouse position
listadd MousePnt, {MouseX}
listadd MousePnt, {MouseY}
delay 2 sec // <-- Delay before the macro starts after getting mouse position.

mousepos MousePnt[1], MousePnt[2]
$Action

// Main
loop $intCount
delay $intDelay sec
setactivewindow $objWindow
mousepos MousePnt[1], MousePnt[2]
$Action
end
</pre>

@@ Line 1: / Line 1: @@
 <pre>
-//Grass Picker
+// Grass Picker
-//coded by:Lunodragon
+// coded by: kibble
 constants
-objWindow = eGenesis Client
+  objWindow = eGenesis Client       // <-- Program Window Title
-intCount = 2
+  Action = leftclick                // <-- Action to perform (keys d for dig)
-intCount2 = 0
+  intCount = 500                    // <-- Number of Times to Repeat
-objWindow2 = Ac Tool 5.4.0
+  intDelay = 5                      // <-- Seconds in delay between Picks
 end
+// Init
 SetActiveWindow $objWindow
-Keys {F5}
+mousepos MousePnt[1], MousePnt[2]
-MousePos 527, 766
+$Action
-//Initial Gathering of grass
+// Main
-MousePos 93, 90
+loop $intCount
-leftclick
+  delay $intDelay sec
-delay 3000
+  call Move
+  delay 1 sec
+  mousepos MousePnt[1], MousePnt[2]
-//Move Back and Forth and Gather Grass
+  $Action
 end
+// Procedures
-//To keep reseting the loop
+procedure Move
-procedure Test
+  if $bSwitch = 0
-if $intCount = 0
+    keys {left}
-		setconst intCount = $intCounter + 1
+    setconst bSwitch = 1
-		end
+  else
-		end
+    keys {right}
+    setconst bSwitch = 0
+  end
 end
 </pre>

@@ Line 1: / Line 1: @@
 <pre>
-// Grass Picker
+//Grass Picker
-// coded by: kibble
+//coded by:Lunodragon
 constants
-  objWindow = eGenesis Client       // <-- Program Window Title
+objWindow = eGenesis Client
-  Action = leftclick                // <-- Action to perform (keys d for dig)
+intCount = 2
-  intCount = 500                    // <-- Number of Times to Repeat
+intCount2 = 0
-  intDelay = 5                      // <-- Seconds in delay between Picks
+objWindow2 = Ac Tool 5.4.0
 end
-constructs
-  MousePnt = list
 end
-mousepos MousePnt[1], MousePnt[2]
+//To keep reseting the loop
-$Action
+procedure Test
-// Main
+//Loop to continue gathering grass
 loop $intCount
-  delay $intDelay sec
+call harvest
-  call Move
+call Test
-  delay 1 sec
+call Run
-  mousepos MousePnt[1], MousePnt[2]
+end
 end
-// Procedures
 </pre>