On/Off Toggle

[JaredT]

This is my script. In stead of assigning 2 keys to turn it on and off. I would like only one key, but I can't figure out how to do that. Can anyone help?

AutoItWinSetTitle ( "Health" )
#NoTrayIcon
#AutoIt3Wrapper_icon=TwelveSky.ico
$Health = IniRead ( "Config.ini", "Setup", "Health", "q" )
HotKeySet("{F3}", "AutoHPOn")
HotKeySet("{F4}", "AutoHPOff")
$GetColor = PixelGetColor(60, 10)
$checksum = PixelChecksum (60, 10, 110, 15)
$Toggle = > 2

While 1
    Sleep (1)
WEnd

Func AutoHPOn()
    WinActivate("TwelveSky2")
While 1
If $checksum = PixelChecksum (60, 10, 110, 15) Then
  Sleep(100)
  Else
    Send($Health)
    Sleep (1)
EndIf
WEnd
EndFunc   ;==>AutoHPOn

Func AutoHPOFF()
    WinActivate("TwelveSky2")
    While 1
        Sleep (1)
    WEnd
EndFunc   ;==>AutoHPOFF

[Yashied]

This is my script. In stead of assigning 2 keys to turn it on and off. I would like only one key, but I can't figure out how to do that. Can anyone help?

AutoItWinSetTitle ( "Health" )
#NoTrayIcon
#AutoIt3Wrapper_icon=TwelveSky.ico
$Health = IniRead ( "Config.ini", "Setup", "Health", "q" )
HotKeySet("{F3}", "AutoHPOn")
HotKeySet("{F4}", "AutoHPOff")
$GetColor = PixelGetColor(60, 10)
$checksum = PixelChecksum (60, 10, 110, 15)
$Toggle = > 2

While 1
    Sleep (1)
WEnd

Func AutoHPOn()
    WinActivate("TwelveSky2")
While 1
If $checksum = PixelChecksum (60, 10, 110, 15) Then
  Sleep(100)
  Else
    Send($Health)
    Sleep (1)
EndIf
WEnd
EndFunc   ;==>AutoHPOn

Func AutoHPOFF()
    WinActivate("TwelveSky2")
    While 1
        Sleep (1)
    WEnd
EndFunc   ;==>AutoHPOFF

expandcollapse popup

#AutoIt3Wrapper_Icon=TwelveSky.ico

#NoTrayIcon

Global $Flag = False

AutoItWinSetTitle("Health")
$Health = IniRead("Config.ini", "Setup", "Health", "q")
HotKeySet("{F3}", "AutoHPToggle")
$GetColor = PixelGetColor(60, 10)
$checksum = PixelChecksum(60, 10, 110, 15)

While 1
    Sleep(10)
WEnd

Func AutoHPToggle()
    $Flag = Not $Flag
    If $Flag Then
        AutoHPOn()
    Else
        AutoHPOFF()
    EndIf
EndFunc   ;==>AutoHPToggle

Func AutoHPOn()
    WinActivate("TwelveSky2")
    While 1
        If $checksum = PixelChecksum(60, 10, 110, 15) Then
            Sleep(100)
        Else
            Send($Health)
            Sleep(10)
        EndIf
    WEnd
EndFunc   ;==>AutoHPOn

Func AutoHPOFF()
    WinActivate("TwelveSky2")
    While 1
        Sleep(10)
    WEnd
EndFunc   ;==>AutoHPOFF

[JaredT]

Thank you, works like a charm.