gistfile1.lua

local passnouns = { 'Loc', 'Rot', 'Scl', 'Color' }
local anim_safe_data = {}
setmetatable(anim_safe_data, { __mode = 'k' })
local animverbs = { 'seek', 'move' }

function Util.animsafe(obj)
  if anim_safe_data[obj] then
    return
  end
  local d = {}
  local f = {}
  anim_safe_data[obj] = true
  for i = 1, #passnouns do
    local noun = passnouns[i]
    for j = 1, #animverbs do
      local name = animverbs[j] .. noun
      f[name] = obj[name]
      obj[name] = function(...)
        if d[noun] then
          d[noun]:stop()
        end
        d[noun] = f[name](...)
        return d[noun]
      end
    end
    local name = 'set' .. noun
    f[name] = obj[name]
    obj[name] = function(...)
      if d[noun] then
        d[noun]:stop()
        d[noun] = nil
      end
      -- set doesn't return a value, so no need to stash it
      return f[name](...)
    end
  end
end