World of Tanks swap-direction-on-reverse

; HEY, LISTEN
;
; This is an AutoHotkey script built for World of Tanks. The purpose is to reverse your turning controls while driving backwards.
;
; "but why do you want that you are an idiot"
;
; It's so if you're hitting the "left" key, then the front of your tank always turns left, whether you're driving forwards or backwards or standing still.
; By default, hitting the "left" key and driving backwards makes you turn right. I think this is silly! So I fixed it.
;
; "wow cool so I guess I just plug this into autohotkey and it works"
;
; Nope, not quite that simple.
;
; First: Plug it into AutoHotkey.
; Second: Go into the WoT config and change your normal WASD movement keys to YGHJ.
; Don't *use* YGHJ - use WASD and this script will map them to the appropriate YGHJ keys.
;
; Known issues:
;
; * If you have the window focused and are trying to type text, your text will be garbled. You'll need to disable the script by turning scroll lock on. Then turn it back off to drive.
; * If they ever rename the WoT window, the script will break.
; * It's pretty dang inefficient, but it still uses an unmeasurable amount of CPU on my computer, so I don't care.
; * If you have a single-core computer it might have jerky results. Sorry! Go upgrade.
; * Does not detect the automatic-throttle behavior, only manual driving.
;
; I have no idea if this is technically permitted by the WoT admins but it's such a small change that I'd be amazed if it was banned.

#NoEnv                                                  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input                                  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%     ; Ensures a consistent starting directory.
#SingleInstance force                   ; Force reopen script instance

SetKey(key, state)
{
  cstate := GetKeyState(key)

  ;OutputDebug %key%, %cstate%, %state%

  if cstate && !state
    Send {%key% Up}

  if !cstate && state
    Send {%key% Down}
}

Resync()
{
  wantw := GetKeyState("w", "P")
  wants := GetKeyState("s", "P")

  if wants {
    wanta := GetKeyState("d", "P")
    wantd := GetKeyState("a", "P")
  } else {
    wanta := GetKeyState("a", "P")
    wantd := GetKeyState("d", "P")
  }

  SetKey("y", wantw)
  SetKey("h", wants)
  SetKey("g", wanta)
  SetKey("j", wantd)
}

Loop
{
  WinGetActiveTitle, title
  j := RegExMatch(title, "W.o.T.")
  If j {
    If !GetKeyState("Scrolllock", "T") {
      Resync()
    }
  }

  Sleep 1
}