input.KeyHold(input.VK_LCONTROL, game_window)
input.KeyPress(input.VK_F5, game_window)
input.KeyRelease(input.VK_LCONTROL, game_window)

-- Inject alarm.
-- TODO: Module: time.Alarm(31, func) ?
local alarm_time = nil

function alarm_tick()
  if alarm_time then
    if time.Delta(alarm_time) >= 31 then
      alarm_time = nil
      audio.PlaySound('inject.wav')
    end
  end
end

function alarm_start()
  if not alarm_time then
    alarm_time = time.Get()
  end
end

-- Inject.
function inject(sc2)
  -- Save viewport position.
  input.KeyHold(input.VK_LCONTROL, sc2)
  input.KeyPress(input.VK_F5, sc2)
  input.KeyRelease(input.VK_LCONTROL, sc2)

  -- Backspace method.
  input.KeyPress("5", sc2) -- Queens.
  input.KeyPress("x", sc2) -- Grid Inject.
  input.KeyPress(input.VK_BACK, sc2)
  input.KeyHold(input.VK_SHIFT, sc2)
  for i=1,6 do
    input.KeyPress(input.VK_BACK, sc2)
    input.MouseClick(input.MOUSE_LEFT, sc2, 955, 400)
    time.Sleep(0.005)
  end
  input.KeyRelease(input.VK_SHIFT, sc2)

  -- Recall viewport.
  input.KeyPress(input.VK_F5, sc2)
  -- Switch to all hatches key.
  input.KeyPress("4", sc2)
end

-- TODO: Move from assignment to whatever inject will be.
-- Hopefully '55' if I can be arsed figuring out a reliable double click timer.
function queen_inject()
  return input.KeyGetState("i") > 0
end

-- Main.
local sc2 = win.Find("StarCraft II", nil, 0,0, win.FIND_TILE_INSIDE)
while true do
  if sc2 then
    if queen_inject() then
      inject(sc2)
      alarm_start()
    end
  end
  alarm_tick()
  time.Sleep(0.01) -- Just let it run flat out?
end

function printf(...) io.write(string.format(...)) end

while(true) do
   printf("%d %d %d\n", input.KeyGetState(input.VK_CONTROL), input.KeyGetState(input.VK_LCONTROL), input.KeyGetState(input.VK_RCONTROL))
   time.Sleep(0.5)
end

function printf(...) io.write(string.format(...)) end

function ShowStates(Prefix)
   printf("%s %d %d %d\n", Prefix, input.KeyGetState(input.VK_CONTROL), input.KeyGetState(input.VK_LCONTROL), input.KeyGetState(input.VK_RCONTROL))
end

-- Test VK_CONTROL hold and release
ShowStates("A1")
input.KeyHold(input.VK_CONTROL)
ShowStates("B1")
input.KeyRelease(input.VK_CONTROL)
ShowStates("C1")

-- Test VK_LCONTROL hold and release
ShowStates("A2")
input.KeyHold(input.VK_LCONTROL)
ShowStates("B2")
input.KeyRelease(input.VK_LCONTROL)
ShowStates("C2")

-- Test VK_RCONTROL hold and release
ShowStates("A3")
input.KeyHold(input.VK_RCONTROL)
ShowStates("B3")
input.KeyRelease(input.VK_RCONTROL)
ShowStates("C3")