TwitchPlaysSpeedrunS

;Opt("SendKeyDelay", 25) ;5 milliseconds
;Opt("SendKeyDownDelay", 20) ;1 millisecond

HotKeySet("+!2", "_exit") ; Shift-Alt-2
HotKeySet("{UP}", "_up") ; `
HotKeySet("8", "_up") ; `
HotKeySet("{DOWN}", "_down") ; `
HotKeySet("2", "_down") ; `
HotKeySet("{LEFT}", "_left")
HotKeySet("4", "_left")
HotKeySet("{RIGHT}", "_right")
HotKeySet("6", "_right")
HotKeySet("9","_upright")
HotKeySet("{NUMPAD9}","_upright")
HotKeySet("3","_downright")
HotKeySet("{NUMPAD3}","_downright")
HotKeySet("1","_downleft")
HotKeySet("{NUMPAD1}","_downleft")
HotKeySet("7","_upleft")
HotKeySet("{NUMPAD7}","_upleft")
Global $slowmodeup = 0
Global $slowmodedown = 0
Global $slowmodeleft = 0
Global $slowmoderight = 0
Global $slowmodeupright = 0
Global $slowmodedownright = 0
Global $slowmodedownleft = 0
Global $slowmodeupleft = 0
Global $commanddelay = 10
While 1 = 1
    Sleep(200)
WEnd


;~ {NUMPAD0} - {NUMPAD9}
;~ Macros: #up(*), #search, #blaze1, #blaze2, #cccc, #heal, #c(*), #right(*), #d(*), #l(*), #back, #stay, #left(*), #atk, #r(*), #save, #down(*), #u(*), #testmacro



Func _upright()
    If $slowmodeupright = 0 Then
        Send("upright")
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodeupright = 1
    ElseIf $slowmodeupright = 1 Then
        Send("Upright",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodeupright = 0
    EndIf
EndFunc   ;==>_up

Func _downright()
    If $slowmodedownright = 0 Then
        Send("downright")
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodedownright = 1
    ElseIf $slowmodedownright = 1 Then
        Send("Downright",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodedownright = 0
    EndIf
EndFunc   ;==>_u

Func _downleft()
    If $slowmodedownleft = 0 Then
        Send("downleft")
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodedownleft = 1
    ElseIf $slowmodedownleft = 1 Then
        Send("Downleft",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodedownleft = 0
    EndIf
EndFunc   ;==>_up

Func _upleft()
    If $slowmodeupleft = 0 Then
        Send("upleft")
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodeupleft = 1
    ElseIf $slowmodeupleft = 1 Then
        Send("Upleft",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodeupleft = 0
    EndIf
EndFunc   ;==>_up


Func _up()

    If $slowmodeup = 0 Then
        Send("up")
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodeup = 1
    ElseIf $slowmodeup = 1 Then
        Send("Up",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodeup = 0
    EndIf
EndFunc   ;==>_up
Func _down()

    If $slowmodedown = 0 Then
        Send("down",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodedown = 1
    ElseIf $slowmodedown = 1 Then
        Send("Down",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodedown = 0
    EndIf

EndFunc   ;==>_down
Func _left()

    If $slowmodeleft = 0 Then
        Send("left",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodeleft = 1
    ElseIf $slowmodeleft = 1 Then
        Send("Left",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmodeleft = 0
    EndIf


EndFunc   ;==>_left
Func _right()

    If $slowmoderight = 0 Then
        Send("right",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmoderight = 1
    ElseIf $slowmoderight = 1 Then
        Send("Right",0)
        Sleep($commanddelay)
        Send("{Enter}")
        Sleep($commanddelay)
        $slowmoderight = 0
    EndIf

EndFunc   ;==>_right
Func _chat()
    MouseClick("left", 1384, 824, 1, 1) ;click in chat while chrome full screen
    Sleep($commanddelay)
EndFunc   ;==>_chat
Func _blank()
    MouseClick("left", 1001, 855, 1, 1)
    Sleep($commanddelay)
EndFunc   ;==>_blank
Func _exit()
    Exit
EndFunc   ;==>_exit