ah_sce_unpacked/unpacked/Custom_Token Other Doom in Play 652ff3.ttslua

-- Bundled by luabundle {"version":"1.6.0"}
local __bundle_require, __bundle_loaded, __bundle_register, __bundle_modules = (function(superRequire)
	local loadingPlaceholder = {[{}] = true}

	local register
	local modules = {}

	local require
	local loaded = {}

	register = function(name, body)
		if not modules[name] then
			modules[name] = body
		end
	end

	require = function(name)
		local loadedModule = loaded[name]

		if loadedModule then
			if loadedModule == loadingPlaceholder then
				return nil
			end
		else
			if not modules[name] then
				if not superRequire then
					local identifier = type(name) == 'string' and '\"' .. name .. '\"' or tostring(name)
					error('Tried to require ' .. identifier .. ', but no such module has been registered')
				else
					return superRequire(name)
				end
			end

			loaded[name] = loadingPlaceholder
			loadedModule = modules[name](require, loaded, register, modules)
			loaded[name] = loadedModule
		end

		return loadedModule
	end

	return require, loaded, register, modules
end)(nil)
__bundle_register("__root", function(require, _LOADED, __bundle_register, __bundle_modules)
require("core/DoomInPlayCounter")
end)
__bundle_register("core/DoomInPlayCounter", function(require, _LOADED, __bundle_register, __bundle_modules)
-- common parameters
local castParameters        = {}
castParameters.direction    = { 0, 1, 0 }
castParameters.type         = 3
castParameters.max_distance = 0

local zone
local doomURL    = "https://i.imgur.com/EoL7yaZ.png"
local IGNORE_TAG = "DoomCounter_ignore"

-- playermats 1 to 4
local originAndSize = {
  { origin = { -55, 1.6, 16.5 }, size = { 12, 1, 25 } },
  { origin = { -55, 1.6, -16.5 }, size = { 12, 1, 25 } },
  { origin = { -25, 1.6, 32.5 }, size = { 12, 1, 25 } },
  { origin = { -25, 1.6, -32.5 }, size = { 12, 1, 25 } }
}

-- create button, context menu and start loop
function onLoad()
  self.createButton({
    label = tostring(0),
    click_function = "none",
    function_owner = self,
    position = { 0, 0.06, 0 },
    height = 0,
    width = 0,
    scale = { 1.5, 1.5, 1.5 },
    font_size = 600,
    font_color = { 1, 1, 1, 100 },
    color = { 0, 0, 0, 0 }
  })

  zone = getObjectFromGUID("a2f932")
  loopID = Wait.time(countDoom, 2, -1)
end

-- main function
function countDoom()
  local doom = 0
  for i = 1, 5 do doom = doom + search(i) end
  self.editButton({ index = 0, label = tostring(doom) })
end

-- searches playermats (num = 1-4) or the scripting zone (num = 5)
function search(num)
  local val = 0
  if num == 5 then
    for _, obj in ipairs(zone.getObjects()) do
      val = val + isDoom(obj)
    end
  else
    castParameters.origin = originAndSize[num].origin
    castParameters.size = originAndSize[num].size

    for _, obj in ipairs(Physics.cast(castParameters)) do
      val = val + isDoom(obj.hit_object)
    end
  end
  return val
end

-- checks an object for the doom image and gets quantity (for stacks)
function isDoom(obj)
  if (obj.is_face_down and obj.getCustomObject().image_bottom == doomURL) or
      (obj.name == "Custom_Token" and obj.getCustomObject().image == doomURL) then
    if not obj.hasTag(IGNORE_TAG) then
      return math.abs(obj.getQuantity())
    end
  end
  return 0
end

-- removes doom from playermats / playarea
function removeDoom(options)
  local trashCan = getObjectFromGUID("70b9f6")
  local count = 0
  if options.Playermats then
    for i = 1, 4 do
      castParameters.origin = originAndSize[i].origin
      castParameters.size = originAndSize[i].size

      for _, obj in ipairs(Physics.cast(castParameters)) do
        local obj = obj.hit_object
        local amount = isDoom(obj)
        if amount > 0 then
          trashCan.putObject(obj)
          count = count + amount
        end
      end
    end
    broadcastToAll(count .. " doom removed from Playermats.", "White")
  end

  local count = 0
  if options.Playarea then
    for _, obj in ipairs(zone.getObjects()) do
      local amount = isDoom(obj)
      if amount > 0 then
        trashCan.putObject(obj)
        count = count + amount
      end
    end
    broadcastToAll(count .. " doom removed from Playarea.", "White")
  end
end
end)
return __bundle_require("__root")