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
Line 21: Line 21:
  
 
     HotKeySet( "^2", "SetClickDelay" )
 
     HotKeySet( "^2", "SetClickDelay" )
 +
 +
 +
 +
<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>

Revision as of 01:42, 26 February 2009

Shuofthefieryheat Utilities Page

Other Pages of Interest

MyHomePage

Shu's Repeat Clicker Macro

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


This one has a prompt to 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" )



#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=56611"