The Wiki for Tale 4 is in read-only mode and is available for archival and reference purposes only. Please visit the current Tale 11 Wiki in the meantime.

If you have any issues with this Wiki, please post in #wiki-editing on Discord or contact Brad in-game.

Difference between revisions of "User:Shuofthefieryheat/MyUtilitiesPage/Shu Repeat Clicker"

From A Tale in the Desert
Jump to navigationJump to search
(New page: == Shuofthefieryheat Utilities Page == '''Other Pages of Interest''' MyHomePage ==== Repeat Clicker Macro ====)
 
 
(11 intermediate revisions by the same user not shown)
Line 1: Line 1:
−
== Shuofthefieryheat Utilities Page ==
+
== Shuofthefieryheat Repeat Clicker Page ==
  
 
'''Other Pages of Interest'''
 
'''Other Pages of Interest'''
Line 5: Line 5:
 
[[User:Shuofthefieryheat | MyHomePage]]
 
[[User:Shuofthefieryheat | MyHomePage]]
  
−
==== Repeat Clicker Macro ====
+
[[User:Shuofthefieryheat/MyUtilitiesPage | MyUtilitiesPage]]
 +
 
 +
==== Notes ====
 +
 
 +
These macros where created and compiled on Vista x64 using AutoIt 3.0.  If you are using a different OS or get an error when you run them, you need to get the AutoIt 3.0 compiler/editor utility and recompile the macro on your own system. The macro utilities and compilers can be found on the main macro page : [http://www.atitd.org/wiki/tale4/Macro Macros]
 +
 
 +
==== Shu's Repeat Clicker Macro ====
 +
 
 +
This is an improved clicker based on '''Sithid's Clicker''' [http://www.atitd.org/wiki/tale4/User:Sithid/Macros/AutoIT/Clicker '''Sithid's Clicker''' ].
 +
 
 +
 
 +
This one has a prompt for the Pause Delay between clicks.  The Pause Delay defaults to 30000 (30 seconds). To change the Pause Delay while the macro is running use (CTRL+2). This allows you to experiment with the delay.
 +
 
 +
You start the macro by doing one of the TogglePause key commands. I added (CTRL+1) as a TogglePause because sometimes my keyboard doesn't respond properly to the PAUSE key.
 +
 
 +
<pre>
 +
HotKeySet( "^1", "TogglePause" )
 +
HotKeySet( "{PAUSE}", "TogglePause" )
 +
 
 +
HotKeySet( "{ESC}", "Terminate" )
 +
HotKeySet( "{F1}", "SetClickPos" )
 +
 
 +
HotKeySet( "^2", "SetClickDelay" )
 +
</pre>
 +
 
 +
==== Shu's Repeat Clicker Macro: Zip file with Source & EXE & Info File ====
 +
 
 +
[http://www.atitd.org/wiki/tale4/Image:Shu_Clicker.zip Shu's Clicker Zip File]
 +
 
 +
==== Shu's Repeat Clicker Macro Source ====
 +
 
 +
<pre>
 +
#cs --------------------------------------------------------------------------------------
 +
 +
AutoIt Version 3.2.12.1
 +
 +
Author: ShuoftheFieryHeat
 +
Date: 02.23.09
 +
Version: 1.0.b
 +
Script Function:
 +
Repeat Clicker - With Prompt for Delay Time.
 +
Based on the work of Sithid.
 +
 +
Author: Sithid
 +
Date: 07.12.08
 +
Version: 1.3
 +
 +
Script Function:
 +
Repeat Clicker - Automagical
 +
 +
 
 +
#ce --------------------------------------------------------------------------------------
 +
 
 +
#include <GUIConstants.au3>
 +
#include <GUIConstantsEx.au3>
 +
#include <WindowsConstants.au3>
 +
 
 +
Opt( "MustDeclareVars", 1 )
 +
 
 +
Global $Paused = False
 +
Global $ClickPosSet = False
 +
Global $ClickPos[2]
 +
 
 +
Global $Delay  = 30000; time in ms between clicks about 30 seconds
 +
 
 +
HotKeySet( "{ESC}", "Terminate" )
 +
HotKeySet( "^1", "TogglePause" )
 +
HotKeySet( "{PAUSE}", "TogglePause" )
 +
HotKeySet( "{F1}", "SetClickPos" )
 +
HotKeySet( "^2", "SetClickDelay" )
 +
 
 +
 
 +
WinWaitActive( "eGenesis Client" );
 +
 +
TogglePause()
 +
 
 +
SetClickDelay()
 +
 
 +
SetClickLocation()
 +
 
 +
While Not $ClickPosSet
 +
Sleep( 100 )
 +
WEnd
 +
 
 +
Main()
 +
 
 +
Func SetClickLocation()
 +
 +
MsgBox( 0x0, "Click Location", "Please hover over the place you want to repeat click and press F1." )
 +
 +
EndFunc
 +
 
 +
Func SetClickDelay()
 +
 +
 
 +
$Delay = InputBox( "Pause Delay", "Please enter the delay time between clicks. 30000 is about 30 seconds.", $Delay)
 +
 
 +
$Delay = Int($Delay)
 +
 
 +
MsgBox( 0x0, "Pause Delay Value", "The Pause Delay is now set for: " & $Delay)
 +
 +
 +
EndFunc
 +
 
 +
Func SetClickPos()
 +
$ClickPos = MouseGetpos()
 +
$ClickPosSet = True
 +
EndFunc
 +
 
 +
Func Main()
 +
Local $OldMouseLoc[2]
 +
Do
 +
WinWaitActive( "eGenesis Client" );
 +
 +
$OldMouseLoc = MouseGetPos()
 +
MouseClick( "left", $ClickPos[0], $ClickPos[1], 1,1 )
 +
MouseMove( $OldMouseLoc[0], $OldMouseLoc[1], 1)
 +
 +
Sleep( $Delay )
 +
Until 1 = 2
 +
EndFunc
 +
 
 +
Func TogglePause()
 +
$Paused = Not $Paused
 +
 +
While $Paused
 +
Sleep(100 )
 +
WEnd
 +
EndFunc
 +
 
 +
Func Terminate()
 +
Exit
 +
EndFunc
 +
</pre>

Latest revision as of 01:31, 19 April 2009

Shuofthefieryheat Repeat Clicker Page

Other Pages of Interest

MyHomePage

MyUtilitiesPage

Notes

These macros where created and compiled on Vista x64 using AutoIt 3.0. If you are using a different OS or get an error when you run them, you need to get the AutoIt 3.0 compiler/editor utility and recompile the macro on your own system. The macro utilities and compilers can be found on the main macro page : Macros

Shu's Repeat Clicker Macro

This is an improved clicker based on Sithid's Clicker Sithid's Clicker .


This one has a prompt for the Pause Delay between clicks. The Pause Delay defaults to 30000 (30 seconds). To change the Pause Delay while the macro is running use (CTRL+2). This allows you to experiment with the delay.

You start the macro by doing one of the TogglePause key commands. I added (CTRL+1) as a TogglePause because sometimes my keyboard doesn't respond properly to the PAUSE key. 

HotKeySet( "^1", "TogglePause" )
HotKeySet( "{PAUSE}", "TogglePause" )

HotKeySet( "{ESC}", "Terminate" )
HotKeySet( "{F1}", "SetClickPos" )

HotKeySet( "^2", "SetClickDelay" )

Shu's Repeat Clicker Macro: Zip file with Source & EXE & Info File

Shu's Clicker Zip File

Shu's Repeat Clicker Macro Source

#cs --------------------------------------------------------------------------------------
	
	AutoIt Version 3.2.12.1
	
	Author: ShuoftheFieryHeat
	Date:		02.23.09
	Version:	1.0.b
	Script Function:
	Repeat Clicker - With Prompt for Delay Time.
	Based on the work of Sithid.
		
	Author:		Sithid
	Date:		07.12.08
	Version:	1.3
	
	Script Function:
	Repeat Clicker - Automagical
	

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

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

Opt( "MustDeclareVars", 1 )

Global $Paused = False
Global $ClickPosSet = False 
Global $ClickPos[2]

Global $Delay  = 30000; time in ms between clicks about 30 seconds

HotKeySet( "{ESC}", "Terminate" )
HotKeySet( "^1", "TogglePause" )
HotKeySet( "{PAUSE}", "TogglePause" )
HotKeySet( "{F1}", "SetClickPos" )
HotKeySet( "^2", "SetClickDelay" )


WinWaitActive( "eGenesis Client" );
	
TogglePause()

SetClickDelay()

SetClickLocation()

While Not $ClickPosSet
	Sleep( 100 )
WEnd

Main()

Func SetClickLocation()
	
MsgBox( 0x0, "Click Location", "Please hover over the place you want to repeat click and press F1." )
	
EndFunc

Func SetClickDelay()
	

$Delay = InputBox( "Pause Delay", "Please enter the delay time between clicks. 30000 is about 30 seconds.", $Delay)

$Delay = Int($Delay)

MsgBox( 0x0, "Pause Delay Value", "The Pause Delay is now set for: " & $Delay)
	
	
EndFunc

Func SetClickPos()
		$ClickPos = MouseGetpos()
		$ClickPosSet = True
EndFunc

Func Main()
	Local $OldMouseLoc[2]
	Do
		WinWaitActive( "eGenesis Client" );
		
		$OldMouseLoc = MouseGetPos()
		MouseClick( "left", $ClickPos[0], $ClickPos[1], 1,1 )
		MouseMove( $OldMouseLoc[0], $OldMouseLoc[1], 1)
		
		Sleep( $Delay )
	Until 1 = 2
EndFunc

Func TogglePause()
	$Paused = Not $Paused
			
	While $Paused
		Sleep(100 )
	WEnd
EndFunc

Func Terminate()
		Exit
EndFunc
Retrieved from "http://www.atitd.org/wiki/t4w/index.php?title=User:Shuofthefieryheat/MyUtilitiesPage/Shu_Repeat_Clicker&oldid=85133"