Grass Macro - Revision history

Kibble: Replacing page with ':Macros'

2009-02-05T04:46:49Z

Replacing page with ':Macros'

Kibble at 01:07, 5 February 2009

2009-02-05T01:07:55Z

Kibble: New page:

 // Grass Picker // coded by: kibble  // Instructions: // Make sure there is a grass icon in the same spot of the screen when // stepping to the left and right. // Start the Macro and...

2009-02-05T00:56:50Z

New page: <pre> // Grass Picker // coded by: kibble // Instructions: // Make sure there is a grass icon in the same spot of the screen when // stepping to the left and right. // Start the Macro and...

New page

<pre>
// Grass Picker
// coded by: kibble

// Instructions:
// Make sure there is a grass icon in the same spot of the screen when
// stepping to the left and right.
// Start the Macro and hold your mouse over the grass icon.
// Wait for the macro to start picking grass.

// Declares
constants
objWindow = eGenesis Client // <-- Program Window Title
intCount = 500 // <-- Number of Times to Repeat
intDelay = 5 // <-- Seconds in delay between Picks
bSwitch = 0
end

constructs
MousePnt = list
end

// Init
SetActiveWindow $objWindow
delay 3 sec // <-- Delay before the mouse position is captured
listadd MousePnt, {MouseX}
listadd MousePnt, {MouseY}
delay 2 sec // <-- Delay before start after mouse capture

mousepos MousePnt[1], MousePnt[2]
leftclick

// Main
loop $intCount
delay $intDelay sec
call Move
delay 1 sec
mousepos MousePnt[1], MousePnt[2]
leftclick
end

// Procedures
procedure Move
if $bSwitch = 0
keys {left}
setconst bSwitch = 1
else
keys {right}
setconst bSwitch = 0
end
end
</pre>

← Older revision		Revision as of 04:46, 5 February 2009
Line 1:		Line 1:
−	~~<pre>~~	+	:[[Macros]]
−	~~// Grass Picker~~
−	~~// coded by~~: ~~kibble~~
−
−	~~// Instructions:~~
−	~~// Make sure there is a grass icon in the same spot of the screen when~~
−	~~// stepping to the left and right.~~
−	~~// Start the Macro and hold your mouse over the grass icon.~~
−	~~// Wait for the macro to start picking grass.~~
−
−	~~// 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 = 5 // <-- Seconds in delay between Picks~~
−	~~bSwitch = 0~~
−	~~end~~
−
−	~~constructs~~
−	~~MousePnt = list~~
−	~~end~~
−
−	~~// Init~~
−	~~SetActiveWindow $objWindow~~
−	~~delay 3 sec // <-- Delay before the mouse position is captured~~
−	~~listadd MousePnt, {MouseX}~~
−	~~listadd MousePnt, {MouseY}~~
−	~~delay 2 sec // <-- Delay before start after mouse capture~~
−
−	~~mousepos MousePnt~~[~~1], MousePnt~~[2]
−	~~$Action~~
−
−	~~// Main~~
−	~~loop $intCount~~
−	~~delay $intDelay sec~~
−	~~call Move~~
−	~~delay 1 sec~~
−	~~mousepos MousePnt[1], MousePnt[2~~]
−	~~$Action~~
−	~~end~~
−
−	~~// Procedures~~
−	~~procedure Move~~
−	~~if $bSwitch = 0~~
−	~~keys {left}~~
−	~~setconst bSwitch = 1~~
−	~~else~~
−	~~keys {right}~~
−	~~setconst bSwitch = 0~~
−	~~end~~
−	~~end~~
−	~~</pre>~~

@@ Line 12: / Line 12: @@
 constants
    objWindow = eGenesis Client       // <-- Program Window Title
    intCount = 500                    // <-- Number of Times to Repeat
    intDelay = 5                      // <-- Seconds in delay between Picks
@@ Line 29: / Line 30: @@
 mousepos MousePnt[1], MousePnt[2]
-leftclick
+$Action
 // Main
@@ Line 37: / Line 38: @@
    delay 1 sec
    mousepos MousePnt[1], MousePnt[2]
-   leftclick
+   $Action
 end