Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- Opt("GUIOnEventMode", 1)
- Global $mainWindow, $autoClickerWindow, $optionCheckbox[8], $btnStartStop, $btnExit, $inpDelay, $btnAutoClickerStartStop, $btnAutoClickerExit
- Global $isRunning = False, $autoClickerActive = False, $autoClickerDelay = 1000
- $mainWindow = GUICreate("AutoIt Automation", 300, 330)
- GUISetOnEvent($GUI_EVENT_CLOSE, "CloseScript")
- $optionCheckbox[0] = GUICtrlCreateCheckbox("Clicking", 10, 10, 100, 20)
- $optionCheckbox[1] = GUICtrlCreateCheckbox("Skills", 10, 40, 100, 20)
- $optionCheckbox[2] = GUICtrlCreateCheckbox("Auto Heal", 10, 70, 100, 20)
- $optionCheckbox[3] = GUICtrlCreateCheckbox("Target Closest", 10, 100, 120, 20)
- $optionCheckbox[4] = GUICtrlCreateCheckbox("Pickup Items", 10, 130, 100, 20)
- $optionCheckbox[5] = GUICtrlCreateCheckbox("Digging", 10, 160, 100, 20)
- $optionCheckbox[6] = GUICtrlCreateCheckbox("Monitor", 10, 190, 100, 20)
- $optionCheckbox[7] = GUICtrlCreateCheckbox("AutoClicker", 10, 220, 100, 20)
- $btnStartStop = GUICtrlCreateButton("Start/Stop", 10, 270, 100, 30)
- $btnExit = GUICtrlCreateButton("Exit", 230, 270, 60, 30)
- GUISetState(@SW_SHOW, $mainWindow)
- While 1
- $msg = GUIGetMsg()
- Switch $msg
- Case $GUI_EVENT_CLOSE, $btnExit
- CloseScript()
- Case $btnStartStop
- ToggleAutomation()
- Case $optionCheckbox[7] ; Autoclicker checkbox
- ToggleAutoClickerGUI()
- EndSwitch
- WEnd
- Func CloseScript()
- Exit
- EndFunc
- Func ToggleAutomation()
- If Not _IsChecked($optionCheckbox) Then
- MsgBox(48, "Error", "Please select at least one option.")
- Else
- $isRunning = Not $isRunning
- If $isRunning Then
- GUICtrlSetData($btnStartStop, "Stop")
- StartAutomation()
- Else
- MsgBox(64, "Stop", "Stopping automation.")
- ; Add logic to stop automation tasks
- GUICtrlSetData($btnStartStop, "Start")
- EndIf
- EndIf
- EndFunc
- Func StartAutomation()
- Local $appWindow, $coords, $result, $tolerance = 10 ; Define tolerance here
- While $isRunning
- If GUICtrlRead($optionCheckbox[0]) = $GUI_CHECKED Then
- ; Clicking option selected
- $coords = PixelSearch(1110, 642, 360, 110, 0x6A140A, 40)
- If Not @error Then
- MouseClick("left", $coords[0], $coords[1], 2, 1)
- Sleep(700)
- EndIf
- EndIf
- If GUICtrlRead($optionCheckbox[1]) = $GUI_CHECKED Then
- ; Skills option selected
- ; Add skills logic here
- EndIf
- If GUICtrlRead($optionCheckbox[2]) = $GUI_CHECKED Then
- ; Auto Heal option selected
- ; Add auto heal logic here
- EndIf
- If GUICtrlRead($optionCheckbox[3]) = $GUI_CHECKED Then
- ; Target Closest option selected
- ; Add target closest logic here
- EndIf
- If GUICtrlRead($optionCheckbox[4]) = $GUI_CHECKED Then
- ; Pickup Items option selected
- ; Add pickup items logic here
- EndIf
- If GUICtrlRead($optionCheckbox[5]) = $GUI_CHECKED Then
- ; Digging option selected
- ; Add digging logic here
- EndIf
- If GUICtrlRead($optionCheckbox[6]) = $GUI_CHECKED Then
- ; Monitor option selected
- ; Add monitor logic here
- EndIf
- Sleep(100) ; Add a delay between iterations to prevent excessive CPU usage
- WEnd
- EndFunc
- Func _IsChecked($checkboxArray)
- For $i = 0 To UBound($checkboxArray) - 1
- If GUICtrlRead($checkboxArray[$i]) = $GUI_CHECKED Then Return True
- Next
- Return False
- EndFunc
- Func ToggleAutoClickerGUI()
- If GUICtrlRead($optionCheckbox[7]) = $GUI_CHECKED Then
- $autoClickerWindow = GUICreate("AutoClicker Settings", 200, 120, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_CAPTION))
- GUISetOnEvent($GUI_EVENT_CLOSE, "CloseAutoClickerGUI")
- GUICtrlCreateLabel("Delay (ms):", 10, 10, 100, 20)
- $inpDelay = GUICtrlCreateInput("1000", 110, 10, 60, 20)
- $btnAutoClickerStartStop = GUICtrlCreateButton("Start", 10, 50, 80, 30)
- GUICtrlSetOnEvent($btnAutoClickerStartStop, "ToggleAutoClicker")
- $btnAutoClickerExit = GUICtrlCreateButton("Exit", 110, 50, 80, 30)
- GUICtrlSetOnEvent($btnAutoClickerExit, "CloseAutoClickerGUI")
- GUISetState(@SW_SHOW, $autoClickerWindow)
- Else
- GUIDelete($autoClickerWindow)
- EndIf
- EndFunc
- Func ToggleAutoClicker()
- $autoClickerActive = Not $autoClickerActive
- If $autoClickerActive Then
- GUICtrlSetData($btnAutoClickerStartStop, "Stop")
- $autoClickerDelay = GUICtrlRead($inpDelay)
- StartAutoClicker()
- Else
- GUICtrlSetData($btnAutoClickerStartStop, "Start")
- EndIf
- EndFunc
- Func StartAutoClicker()
- While $autoClickerActive
- MouseClick("left") ; Perform a left click
- Sleep($autoClickerDelay) ; Delay between clicks
- WEnd
- EndFunc
- Func CloseAutoClickerGUI()
- GUIDelete($autoClickerWindow)
- GUICtrlSetState($optionCheckbox[7], $GUI_UNCHECKED)
- $autoClickerActive = False
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement