Ac not Acing

[toothyXdip]

NEVERMIND i figured it out like as soon as i posted i was like WAIT and it worked so my working script is at the bottom if you want a ac : \

Im making a simple autoclicker with 3 speed settings it did click until i put in the speeds now it just doesnt click

i think it has to do with setting the hotkey to a variable then telling it to search for when that variable is used

idk

help?

expandcollapse popup

Global $F10OnOff

$hotkey1 = HotKeySet('{F10}', '_Sendleftclick')

#include <GUIConstants.au3>
GUICreate("Toothydip AC", 230, 300)
GUISetBkColor(0x0000ff)
$user = GUICtrlCreateDummy()
GUICtrlSetOnEvent ($GUI_EVENT_CLOSE, 'onclick')
$group = XSkinGroup("Speed Setting", 40, 80, 130, 130, $SS_CENTER)
GUISetFont(16, "", "", "Alien Encounters")
;Labels-------------------------------------------
$title = GUICtrlCreateLabel("Toothydip" & @CRLF & "AutoClicker", 40, 40)
guisetfont(9)
; Buttons & Checkboxes----------------------------
$fast_speed_checkbox = GUICtrlCreateRadio("  Fast Speed", 50, 100,90,20)
$medium_speed_checkbox = GUICtrlCreateRadio("  Medium Speed", 50, 130,110,20)
$slow_speed_checkbox = GUICtrlCreateRadio("  Slow Speed", 50, 160,90,20)
; Color Sets -------------------------------------
guictrlsetcolor($title, 0x000000)

$clicksetting_helper = 0
$defalt_delay = 10
$speed_setting = 0


GUISetState(@SW_SHOW)



While True
    $msg = GUIGetMsg()
    Sleep(10)
    $clicksetting_helper = $clicksetting_helper + $speed_setting
    If (($clicksetting_helper * $defalt_delay) / 500) >= 1 Then
        Sendleftclick()
        $clicksetting_helper = 0
        EndIf
    Switch $msg
        Case $GUI_EVENT_CLOSE
            OnExit()
        Case $hotkey1
            If _IsChecked($fast_speed_checkbox) Then fast()
            If _IsChecked($medium_speed_checkbox) Then medium()
            If _IsChecked($slow_speed_checkbox) Then slow()
    EndSwitch
WEnd

; Functions -------------------------------------

Func OnExit()
   Exit
EndFunc

Func onclick()
    GUICtrlSendToDummy($user)
EndFunc

Func Sendleftclick()
    If $F10OnOff Then MouseClick("Left")
EndFunc

Func _Sendleftclick()
    $F10OnOff = Not $F10OnOff
EndFunc

Func fast()
    $speed_setting = 50
EndFunc

Func medium()
    $speed_setting = 30
EndFunc

Func slow()
    $speed_setting = 10
EndFunc

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Func XSkinGroup($text, $Pleft, $Ptop, $Pwidth, $Pheight, $color)
    $color = 0Xffffff
    Local $XS_n, $PControl
    If StringInStr(@OSTYPE, "WIN32_NT") Then
        $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
    EndIf
    $PControl = GUICtrlCreateGroup($text, $Pleft, $Ptop, $Pwidth, $Pheight)
    ;GUICtrlSetBkColor($PControl, $color1)
    GUICtrlSetColor($PControl, $color)
    If StringInStr(@OSTYPE, "WIN32_NT") And IsArray($XS_n) Then
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
    EndIf
    Return $PControl
EndFunc   ;==>XSkinGroupoÝ÷ Ùc(Fjëh×6Global $F10OnOff

HotKeySet('{F10}', '_Sendleftclick')

#include <GUIConstants.au3>
GUICreate("Toothydip AC", 230, 300)
GUISetBkColor(0x0000ff)
$user = GUICtrlCreateDummy()
GUICtrlSetOnEvent ($GUI_EVENT_CLOSE, 'onclick')
$group = XSkinGroup("Speed Setting", 40, 80, 130, 130, $SS_CENTER)
GUISetFont(16, "", "", "Alien Encounters")
;Labels-------------------------------------------
$title = GUICtrlCreateLabel("Toothydip" & @CRLF & "AutoClicker", 40, 40)
guisetfont(9)
; Buttons & Checkboxes----------------------------
$fast_speed_checkbox = GUICtrlCreateRadio("  Fast Speed", 50, 100,90,20)
$medium_speed_checkbox = GUICtrlCreateRadio("  Medium Speed", 50, 130,110,20)
$slow_speed_checkbox = GUICtrlCreateRadio("  Slow Speed", 50, 160,90,20)
; Color Sets -------------------------------------
guictrlsetcolor($title, 0x000000)

$clicksetting_helper = 0
$defalt_delay = 10
$speed_setting = 0


GUISetState(@SW_SHOW)



While True
    $msg = GUIGetMsg()
    Sleep(10)
    $clicksetting_helper = $clicksetting_helper + $speed_setting
    If (($clicksetting_helper * $defalt_delay) / 500) >= 1 Then
        Sendleftclick()
        $clicksetting_helper = 0
        EndIf
    Switch $msg
        Case $GUI_EVENT_CLOSE
            OnExit()
    EndSwitch
WEnd

; Functions -------------------------------------

Func OnExit()
   Exit
EndFunc

Func onclick()
    GUICtrlSendToDummy($user)
EndFunc

Func Sendleftclick()
    If $F10OnOff Then MouseClick("Left")
EndFunc

Func _Sendleftclick()
    $F10OnOff = Not $F10OnOff
    If _IsChecked($fast_speed_checkbox) Then fast()
    If _IsChecked($medium_speed_checkbox) Then medium()
    If _IsChecked($slow_speed_checkbox) Then slow()
EndFunc

Func fast()
    $speed_setting = 50
EndFunc

Func medium()
    $speed_setting = 30
EndFunc

Func slow()
    $speed_setting = 10
EndFunc

Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc

Func XSkinGroup($text, $Pleft, $Ptop, $Pwidth, $Pheight, $color)
    $color = 0Xffffff
    Local $XS_n, $PControl
    If StringInStr(@OSTYPE, "WIN32_NT") Then
        $XS_n = DllCall("uxtheme.dll", "int", "GetThemeAppProperties")
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
    EndIf
    $PControl = GUICtrlCreateGroup($text, $Pleft, $Ptop, $Pwidth, $Pheight)
    ;GUICtrlSetBkColor($PControl, $color1)
    GUICtrlSetColor($PControl, $color)
    If StringInStr(@OSTYPE, "WIN32_NT") And IsArray($XS_n) Then
        DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $XS_n[0])
    EndIf
    Return $PControl
EndFunc   ;==>XSkinGroup

Edited November 6, 2007 by toothyXdip