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.

User:Shuofthefieryheat/MyUtilitiesPage/Shu Repeat Clicker

From A Tale in the Desert
Jump to navigationJump to search

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 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