ah_sce_unpacked/unpacked/Custom_Model_Bag Legacy Assets 7165a9/Checker_white Token Arranger 4825a7.ttslua
2022-12-13 14:02:30 -05:00

249 lines
5.5 KiB
Plaintext

---
--- Generated by Luanalysis
--- Created by Whimsical.
--- DateTime: 2021-12-19 5:00 p.m.
---
---@type table<string, string>
local token_ids = {
elder_sign = "Elder Sign",
skull = "Skull",
cultist = "Cultist",
tablet = "Tablet",
elder_thing = "Elder Thing",
autofail = "Auto-fail",
bless = "Bless",
curse = "Curse",
frost = "Frost",
unnamed = ""
}
---@type table<string, string>
local name_ids = {
["Elder Sign"] = "elder_sign",
["Skull"] = "skull",
["Cultist"] = "cultist",
["Tablet"] = "tablet",
["Elder Thing"] = "elder_thing",
["Auto-fail"] = "autofail",
["Bless"] = "bless",
["Curse"] = "curse",
["Frost"] = "frost",
[""] = "unnamed"
}
---@type Vector
local rotation = {0, 270.00, 0}
---@type table<string, number>
local offsets = {
x = -2,
z = -2
}
local left_right = "z"
local up_down = "x"
local vertical = "y"
---@type TTSObject[]
local tracking = {}
function onload(data)
data = JSON.decode(data)
if data then
local existing = data.tracking
if existing then
for _, guid in ipairs(existing) do
local object = getObjectFromGUID(guid)
if object then
table.insert(tracking, object)
end
end
end
if data.tokens then
Wait.frames(function ()
for token, value in pairs(data.tokens) do
revalue(nil, value, token)
end
end, 3)
end
Wait.frames(function ()
if data.auto_update then
self.UI:setAttribute("auto_update", "isOn", data.auto_update)
updateToggle(nil, data.auto_update, "auto_update")
end
end, 3)
end
self:addContextMenuItem("Clear", function ()
tracking = {}
end, false)
end
function onSave()
local targets = {}
for _, token in ipairs(tracking) do
table.insert(targets, token:getGUID())
end
local tokens = {}
for id, _ in pairs(token_ids) do
tokens[id] = self.UI:getValue(id)
end
return JSON.encode({
tracking = targets,
tokens = tokens,
auto_update = self.UI:getAttribute("auto_update", "isOn")
})
end
---@param player Player
---@param value string
---@param token string
function revalue(player, value, token)
if not tonumber(value) then value = 0 end
self.UI:setValue(token, value)
self.UI:setAttribute(token, "text", value)
if player then -- player is nil when we call this in onload
-- False since "on" looks greyed out
if self.UI:getAttribute("auto_update", "isOn"):lower()=="false" then
Wait.frames(function()
layout()
end, 3)
end
end
end
---@param player Player
---@param token string
function inc(player, token)
local value = tonumber(self.UI:getValue(token)) or 0
revalue(player, value+1, token)
end
---@param player Player
---@param token string
function dec(player, token)
local value = tonumber(self.UI:getValue(token)) or 0
revalue(player, value-1, token)
end
---@param player Player
---@param value string
---@param id string
function updateToggle(player, value, id)
local value = value:lower() == "true" and true or false
self.UI:setAttribute(id, "isOn", value)
if player then
broadcastToAll("Token Arranger: Auto-Update " .. (value and "Disabled" or "Enabled"))
end
end
---@return TTSObject
local function get_chaos_bag()
return getObjectsWithTag("chaos_bag")[1]
end
---@type table<string, number>
local token_precedence = {
["Skull"] = -1,
["Cultist"] = -2,
["Tablet"] = -3,
["Elder Thing"] = -4,
["Elder Sign"] = 100,
["Auto-fail"] = -100,
["Bless"] = -1,
["Curse"] = -2,
["Frost"] = -3,
[""] = -1000,
}
local function token_value_comparator(left, right)
if left.value>right.value then return true
elseif right.value>left.value then return false
elseif left.precedence>right.precedence then return true
elseif right.precedence>left.precedence then return false
else return left.token:getGUID() > right.token:getGUID()
end
end
local function do_position()
local data = {}
for index, token in ipairs(tracking) do
local name = token:getName()
data[index] = {
token= token,
value = tonumber(name) or tonumber(self.UI:getValue(name_ids[name])),
precedence = token_precedence[name] or 0
}
end
table.sort(data, token_value_comparator)
local pos = self:getPosition()
local location = {}
pos[left_right] = pos[left_right] + offsets[left_right]
location[left_right] = pos[left_right]
location[up_down] = pos[up_down]
location[vertical] = pos[vertical]
local current_value = data[1].value
for _, item in ipairs(data) do
---@type TTSObject
local token = item.token
---@type number
local value = item.value
if value~=current_value then
location[left_right] = pos[left_right]
location[up_down] = location[up_down] + offsets[up_down]
current_value = value
end
token:setPosition(location)
token:setRotation(rotation)
location[left_right] = location[left_right] + offsets[left_right]
end
end
function layout()
for _, token in ipairs(tracking) do
token:destruct()
end
tracking = {}
local chaos_bag = get_chaos_bag()
local size = #chaos_bag:getObjects()
for _,data in ipairs(chaos_bag:getObjects()) do
chaos_bag:takeObject {
guid = data.guid,
smooth = false,
---@param tok TTSObject
callback_function = function (tok)
local clone = tok:clone()
Wait.frames(function () chaos_bag:putObject(clone) end, 1)
table.insert(tracking, tok)
end
}
end
Wait.condition(function () do_position() end, function () return size==#tracking end)
end