User:Sithid/Macros/AutoIT/Grass - Revision history

Sithid at 20:33, 31 December 2008

2008-12-31T20:33:18Z

Sithid: /* The Macro */

2008-12-15T11:12:53Z

The Macro

Sithid at 10:50, 15 December 2008

2008-12-15T10:50:41Z

Sithid at 10:49, 15 December 2008

2008-12-15T10:49:41Z

Sithid at 10:48, 15 December 2008

2008-12-15T10:48:34Z

Sithid at 10:47, 15 December 2008

2008-12-15T10:47:14Z

Sithid at 10:40, 15 December 2008

2008-12-15T10:40:34Z

Sithid at 10:39, 15 December 2008

2008-12-15T10:39:46Z

Sithid: New page: Grass Macro Info

2008-12-15T10:26:04Z

New page: Grass Macro Info

New page

Grass Macro Info

← Older revision		Revision as of 20:33, 31 December 2008
Line 178:		Line 178:
	EndFunc		EndFunc
	</pre>		</pre>
−
−	~~Downloadable version of script and exe will be around shortly, need to figure out how first :P.~~

@@ Line 14: / Line 14: @@
 	Author:		Sithid
 	Date:		07.12.08
-	Version:	0.0.3.0
+	Version:	0.3
 	Script Function:

← Older revision		Revision as of 10:50, 15 December 2008
Line 179:		Line 179:
	</pre>		</pre>

−	Downloadable version of ~~scrit~~ and exe will be around shortly, need to figure out how first :P.	+	Downloadable version of script and exe will be around shortly, need to figure out how first :P.

← Older revision		Revision as of 10:49, 15 December 2008
Line 178:		Line 178:
	EndFunc		EndFunc
	</pre>		</pre>
		+
		+	Downloadable version of scrit and exe will be around shortly, need to figure out how first :P.

@@ Line 8: / Line 8: @@
 == The Macro ==
-<code>
+<pre>
 #cs --------------------------------------------------------------------------------------
@@ Line 177: / Line 177: @@
 	Exit 0
 EndFunc
-</code>
+</pre>

← Older revision		Revision as of 10:47, 15 December 2008
Line 5:		Line 5:
	Once running, simply switch to atitd and hit the pause button, things should go on their own from there.		Once running, simply switch to atitd and hit the pause button, things should go on their own from there.

−	~~grass.exe coming shortly, script form only until then( having the .exe makes it so you dont have to have autoit installed to use my script ).~~

−	~~[[Media~~:grass.~~au3~~]]	+	== The Macro ==
		+
		+	<code>
		+	#cs --------------------------------------------------------------------------------------
		+
		+	AutoIt Version 3.2.12.1
		+	Author: Sithid
		+	Date: 07.12.08
		+	Version: 0.0.3.0
		+
		+	Script Function:
		+	Grass collection with simple Gui.
		+
		+	#ce --------------------------------------------------------------------------------------
		+
		+	#include <GUIConstantsEx.au3>
		+	#include <GUIConstants.au3>
		+	#include <WindowsConstants.au3>
		+
		+	Opt( "MustDeclareVars", 1 )
		+
		+	Global $Paused
		+	Global $EventMsg
		+	Global $StartTime
		+	Global $Idle = False
		+	Global $GrassCounter = 0
		+	Global $MinutesPassed = 0
		+	Global $SecondsPassed = 0
		+	Global $PrevTotalSeconds = 0
		+
		+	; Stuff you can/should edit.
		+	Global $XCenter = 720 ; X axis center of screen.
		+	Global $YCEnter = 450 ; Y axis center of screen.
		+	Global $Distance = 200 ; distance from avatar to click( in screen coords )
		+	Global $WaitDuration = 2500; delay between picking and then moving to pick again
		+	Global $GrassToCollect = 500 ; amount of grass to pick
		+
		+	; setup hotkeys
		+	HotKeySet("{PAUSE}", "TogglePause")
		+	HotKeySet("{ESC}", "Terminate")
		+	HotKeySet("{F5}", "Refresh" )
		+
		+	WinWaitActive("eGenesis Client") ; wait for active client window
		+
		+	; setup basic gui
		+	Dim $GUI = GUICreate( "Grass Macro", 250, 50, 1200, 50, $WS_POPUP, $WS_EX_TOPMOST )
		+	Dim $TitleLabel = GUICtrlCreateLabel ("Grass Macro", 1, 5, 250, 15 )
		+	Dim $TimeLabel = GUICtrlCreatelabel( "", 1, 20, 200, 15 )
		+	Dim $CountLabel = GUICtrlCreateLabel( "" , 1, 35, 200, 15 )
		+
		+	GUISetBkColor( 0xFFFFFF, $GUI )
		+	GUISetState( @SW_SHOW )
		+
		+	$StartTime = TimerInit()
		+
		+	; start script paused
		+	TogglePause()
		+
		+	; infinite loop, reset then call main picking function
		+	Do
		+	Reset()
		+	Main()
		+	Until 1 = 2
		+
		+	Terminate()
		+
		+	#cs
		+	*
		+	* Main pick function.
		+	* Function tries to pick grass, increments grass counter and then refreshes.
		+	* Repeated a second time to click below the avatar instead of up like the first time.
		+	*
		+	* Functions tops when the grass counter reaches the total number you wanted to pick.
		+	*
		+	#ce
		+	Func Main()
		+
		+	Do
		+	$EventMsg = GUIGetMsg()
		+
		+	If $EventMsg = $GUI_EVENT_CLOSE Then ExitLoop
		+
		+	MouseClick( "left", 222,70, 1, 5 )
		+	MouseClick( "left", $XCenter, $YCEnter + $Distance, 1, 5 )
		+	Sleep($WaitDuration)
		+
		+	$GrassCounter += 1
		+	Refresh()
		+
		+	MouseClick( "left", 222,70, 1, 5 )
		+	MouseClick( "left", $XCenter, $YCEnter - $Distance, 1, 5 )
		+	Sleep($WaitDuration)
		+
		+	$GrassCounter += 1
		+	Refresh()
		+
		+	Until $GrassCounter >= $GrassToCollect
		+
		+	TogglePause()
		+
		+	EndFunc
		+
		+	; Refreshes the gui time display and title text.
		+	Func Refresh()
		+
		+	Local $CurTotalSeconds = Round( TimerDiff( $StartTime ) / 1000.0 )
		+	$SecondsPassed += $CurTotalSeconds - $PrevTotalSeconds
		+	$PrevTotalSeconds = $CurTotalSeconds
		+
		+	If $SecondsPassed > 60 Then
		+	$SecondsPassed = 0
		+	$MinutesPassed += 1;
		+	ElseIf $SecondsPassed < 0 Then
		+	$SecondsPassed = 0
		+	EndIf
		+
		+	If $Idle Then
		+	GUICtrlSetData( $TitleLabel, "Grass Macro - [IDLE]" )
		+	Else
		+	GUICtrlSetData( $TitleLabel, "Grass Macro - [ACTIVE]" )
		+	EndIf
		+
		+	GUICtrlSetData( $TimeLabel, $MinutesPassed & " minutes, " & $SecondsPassed & " seconds passed." )
		+	GUICtrlSetData( $CountLabel, $GrassCounter & " total grass collected." )
		+
		+	EndFunc
		+
		+	; resets counters and gui elements, refreshes to update displayed gui.
		+	Func Reset()
		+
		+	$GrassCounter = 0
		+	$StartTime = TimerInit()
		+	$MinutesPassed = 0
		+	$SecondsPassed = 0
		+	Refresh()
		+
		+	EndFunc
		+
		+	; pausing support, adjusts gui colors to help know when macro is paused.
		+	Func TogglePause()
		+
		+	$Idle = True
		+	Reset()
		+
		+	Local $SleepCount = 0;
		+
		+	$Paused = Not $Paused
		+
		+	GUICtrlSetBkColor( $TitleLabel, 0xFF3333 )
		+	GUICtrlSetColor( $TitleLabel, 0xFFFFFF )
		+
		+	While $Paused
		+	Sleep(100)
		+	$SleepCount += 100;
		+
		+	If $SleepCount >= 1000 Then
		+	Refresh()
		+	$SleepCount = 0
		+	EndIf
		+	WEnd
		+
		+	GUICtrlSetBkColor( $TitleLabel, 0x11FF00 )
		+	GUICtrlSetColor( $TitleLabel, 0x000000 )
		+
		+	$Idle = False
		+
		+	EndFunc
		+
		+	Func Terminate()
		+	Exit 0
		+	EndFunc
		+	</code>

← Older revision		Revision as of 10:40, 15 December 2008
Line 1:		Line 1:
−
	== Grass Macro ==		== Grass Macro ==

Line 5:		Line 4:

	Once running, simply switch to atitd and hit the pause button, things should go on their own from there.		Once running, simply switch to atitd and hit the pause button, things should go on their own from there.
		+
		+	grass.exe coming shortly, script form only until then( having the .exe makes it so you dont have to have autoit installed to use my script ).
		+
		+	[[Media:grass.au3]]

← Older revision		Revision as of 10:39, 15 December 2008
Line 1:		Line 1:
−	Grass Macro ~~Info~~	+
		+	== Grass Macro ==
		+
		+	My basic grass macro. Be sure to adjust the configurable vars within the script before building and running.
		+
		+	Once running, simply switch to atitd and hit the pause button, things should go on their own from there.