Target Watch (TARGET_WATCH)

local __mh_target_watch_clock = Stopwatch(); __mh_target_watch_clock:start()
local __mh_target_watch_api = (function()
 local stack, mutedThrough = {}, 0
 local function now() return __mh_target_watch_clock:elapsedMs() end
 local function check(frame)
  local match, motion, ocr = _lastMatch, _lastMovingColorMotion, _lastOcrText
  local previous = mutedThrough
  mutedThrough = #stack
  local ok, signal, value = pcall(frame.target)
  mutedThrough = previous
  _lastMatch, _lastMovingColorMotion, _lastOcrText = match, motion, ocr
  if not ok then error(signal, 0) end
  frame.steps, frame.checked = 0, now()
  return signal, value
 end
 return {
  check = check, now = now,
  push = function(frame) stack[#stack + 1] = frame end,
  pop = function(frame) assert(stack[#stack] == frame); stack[#stack] = nil end,
  before = function(counted)
   for index = mutedThrough + 1, #stack do
    local frame = stack[index]
    if (frame.batch > 0 and frame.steps >= frame.batch) or
       (frame.interval > 0 and now() - frame.checked >= frame.interval) then
     local signal, value = check(frame)
     if signal ~= nil then return signal, value end
    end
    if counted then frame.steps = frame.steps + 1 end
   end
  end,
 }
end)()

do
 local _mh_watch_signal_1, _mh_watch_value_2 = __mh_target_watch_api.before(false)
 if _mh_watch_signal_1 == "__VB_RETURN__" then
  do return _mh_watch_value_2 end
 end
end
do
 local _mh_watch_frame_3 = {steps = 0, checked = 0, batch = 1, interval = 0}
 _mh_watch_frame_3.target = function()
  local _mh_watch_quota_6 = 1
  for _mh_watch_target_pass_8 = 1, _mh_watch_quota_6 do
   do
   do
    local _mh_watch_signal_9, _mh_watch_value_10 = __mh_target_watch_api.before(true)
    if _mh_watch_signal_9 == "__VB_RETURN__" then
     do return "__VB_RETURN__", _mh_watch_value_10 end
    end
   end
   System.log("target")
   ::_watch_cont_4::
   end
   if _mh_watch_target_pass_8 < _mh_watch_quota_6 then wait(8) end
  end
  ::_watch_exit_5::
 end
 __mh_target_watch_api.push(_mh_watch_frame_3)
 local _mh_watch_ok_11, _mh_watch_result_12, _mh_watch_return_13 = pcall(function()
  do
   local _mh_watch_signal_17, _mh_watch_value_18 = __mh_target_watch_api.check(_mh_watch_frame_3)
   if _mh_watch_signal_17 == "__VB_RETURN__" then
    do return "__VB_RETURN__", _mh_watch_value_18 end
   end
  end
  for _mh_watch_pass_14 = 1, 1 do
   local _mh_watch_work_signal_15, _mh_watch_work_value_16 = (function()
    do
     local _mh_watch_signal_19, _mh_watch_value_20 = __mh_target_watch_api.before(true)
     if _mh_watch_signal_19 == "__VB_RETURN__" then
      do return "__VB_RETURN__", _mh_watch_value_20 end
     end
    end
    System.log("work")
   end)()
   if _mh_watch_work_signal_15 == "__VB_RETURN__" then return _mh_watch_work_signal_15, _mh_watch_work_value_16 end
   if _mh_watch_work_signal_15 == "__VB_BREAK__" then break end
   if _mh_watch_frame_3.steps > 0 then
    do
     local _mh_watch_signal_21, _mh_watch_value_22 = __mh_target_watch_api.check(_mh_watch_frame_3)
     if _mh_watch_signal_21 == "__VB_RETURN__" then
      do return "__VB_RETURN__", _mh_watch_value_22 end
     end
    end
   end
   if _mh_watch_pass_14 < 1 then wait(8) end
  end
 end)
 __mh_target_watch_api.pop(_mh_watch_frame_3)
 if not _mh_watch_ok_11 then error(_mh_watch_result_12, 0) end
 do
  local _mh_watch_signal_23, _mh_watch_value_24 = _mh_watch_result_12, _mh_watch_return_13
  if _mh_watch_signal_23 == "__VB_RETURN__" then
   do return _mh_watch_value_24 end
  end
 end
end