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

Sithid: /* Download */

2009-03-19T08:51:08Z

Download

Sithid at 08:48, 19 March 2009

2009-03-19T08:48:50Z

Sithid at 08:46, 19 March 2009

2009-03-19T08:46:33Z

Sithid: /* The Macro */

2009-03-19T08:46:04Z

The Macro

Sithid: /* The Macro */

2008-12-19T13:11:22Z

The Macro

Sithid at 01:00, 18 December 2008

2008-12-18T01:00:57Z

Sithid at 00:59, 18 December 2008

2008-12-18T00:59:39Z

Sithid: New page:

 #cs -------------------------------------------------------------------------------------- 	 	AutoIt Version 3.2.12.1 	Author:		Sithid 	Date:		07.12.08 	Version:	0.3 	 	Script Functi...

2008-12-18T00:59:05Z

New page: <pre> #cs -------------------------------------------------------------------------------------- AutoIt Version 3.2.12.1 Author: Sithid Date: 07.12.08 Version: 0.3 Script Functi...

New page

<pre>
#cs --------------------------------------------------------------------------------------

AutoIt Version 3.2.12.1
Author: Sithid
Date: 07.12.08
Version: 0.3

Script Function:
Plant Watering Hotkey

#ce --------------------------------------------------------------------------------------

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt( "MustDeclareVars", 1 )

Global $Paused = False

HotKeySet( "{ESC}", "Terminate" )
HotKeySet( "{PAUSE}", "TogglePause" )
HotKeySet( "{w}", "WaterPlant" )

WinWaitActive( "eGenesis Client" )

Main()

Func Main()
Do
Sleep( 100 )
Until 1 = 2
EndFunc

Func WaterPlant()
Local $MouseLoc = MouseGetPos()
MouseClick( "left", $MouseLoc[0], $MouseLoc[1], 1, 1 )
Sleep( 200 )
MouseClick( "left", $MouseLoc[0] + 50, $MouseLoc[1] + 3, 1, 1 )
EndFunc

Func TogglePause()
$Paused = Not $Paused

While $Paused
Sleep(100 )
WEnd
EndFunc

Func Terminate()
Exit
EndFunc
</pre>

← Older revision		Revision as of 08:51, 19 March 2009
Line 58:		Line 58:

	== Download ==		== Download ==
−	[[Media:Sithid_PlantWaterMacro.~~exe~~]]	+	[[Media:Sithid_PlantWaterMacro.zip]]

← Older revision		Revision as of 08:48, 19 March 2009
Line 56:		Line 56:
	EndFunc		EndFunc
	</pre>		</pre>
		+
		+	== Download ==
		+	[[Media:Sithid_PlantWaterMacro.exe]]

← Older revision		Revision as of 08:46, 19 March 2009
Line 1:		Line 1:
−	Simple plant watering hotkey-like macro. Build/Run, switch to atitd, and press "w" over a plant. Macro acts like a hotkey, clicks the plant, adjusts the cursor, and clicks water.	+	Simple plant watering hotkey-like macro. Build/Run, switch to atitd, and press alt + w over a plant. Macro acts like a hotkey, clicks the plant, adjusts the cursor, and clicks water.

	== The Macro ==		== The Macro ==

← Older revision		Revision as of 01:00, 18 December 2008
Line 1:		Line 1:
		+	Simple plant watering hotkey-like macro. Build/Run, switch to atitd, and press "w" over a plant. Macro acts like a hotkey, clicks the plant, adjusts the cursor, and clicks water.
		+
	== The Macro ==		== The Macro ==
	<pre>		<pre>

@@ Line 7: / Line 7: @@
 	AutoIt Version 3.2.12.1
 	Author:		Sithid
-	Date:		07.17.08
+	Date:		07.12.08
-	Version:	0.4
+	Version:	0.3
 	Script Function:
-	Plant Watering Hotkey
+	Plant Watering - Automagical
 #ce --------------------------------------------------------------------------------------
@@ Line 21: / Line 21: @@
 HotKeySet( "{ESC}", "Terminate" )
 HotKeySet( "{PAUSE}", "TogglePause" )
-HotKeySet( "{w}", "WaterPlant" )
+HotKeySet( "!{w}", "WaterPlant" )
 WinWaitActive( "eGenesis Client" )
@@ Line 29: / Line 29: @@
 Func Main()
 	Do
+		Sleep( 100 )
 	Until 1 = 2
 EndFunc
 Func WaterPlant()
 	Local $MouseLoc = MouseGetPos()
-	MouseClick( "left", $MouseLoc[0], $MouseLoc[1], 1, 1 )
+	MouseClick( "left", $MouseLoc[0], $MouseLoc[1], 1, 0 )
-	Sleep( 200 )
+	Sleep( 100 )
-	MouseClick( "left", $MouseLoc[0] + 50, $MouseLoc[1] + 3, 1, 1 )
+	MouseClick( "left", $MouseLoc[0] + 50, $MouseLoc[1] + 3, 1, 0 )
 EndFunc