SaveManager

Vortex23

Aug 13th, 2024 (edited)

15,002

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

Lua 11.25 KB | None | 0 0

raw download clone embed print report

local cloneref = cloneref or function(o) return o end
local httpService = cloneref(game:GetService('HttpService'))
if copyfunction and isfolder then -- fix for mobile executors :/
local isfolder_, isfile_, listfiles_ = copyfunction(isfolder), copyfunction(isfile), copyfunction(listfiles);
local success_, error_ = pcall(function() return isfolder_(tostring(math.random(999999999, 999999999999))) end);
if success_ == false or (tostring(error_):match("not") and tostring(error_):match("found")) then
getgenv().isfolder = function(folder)
local s, data = pcall(function() return isfolder_(folder) end)
if s == false then return nil end
return data
end
getgenv().isfile = function(file)
local s, data = pcall(function() return isfile_(file) end)
if s == false then return nil end
return data
end
getgenv().listfiles = function(folder)
local s, data = pcall(function() return listfiles_(folder) end)
if s == false then return {} end
return data
end
end
end
local SaveManager = {} do
SaveManager.Folder = 'LinoriaLibSettings'
SaveManager.Ignore = {}
SaveManager.Parser = {
Toggle = {
Save = function(idx, object)
return { type = 'Toggle', idx = idx, value = object.Value }
end,
Load = function(idx, data)
if getgenv().Linoria.Toggles[idx] then
getgenv().Linoria.Toggles[idx]:SetValue(data.value)
end
end,
},
Slider = {
Save = function(idx, object)
return { type = 'Slider', idx = idx, value = tostring(object.Value) }
end,
Load = function(idx, data)
if getgenv().Linoria.Options[idx] then
getgenv().Linoria.Options[idx]:SetValue(data.value)
end
end,
},
Dropdown = {
Save = function(idx, object)
return { type = 'Dropdown', idx = idx, value = object.Value, mutli = object.Multi }
end,
Load = function(idx, data)
if getgenv().Linoria.Options[idx] then
getgenv().Linoria.Options[idx]:SetValue(data.value)
end
end,
},
ColorPicker = {
Save = function(idx, object)
return { type = 'ColorPicker', idx = idx, value = object.Value:ToHex(), transparency = object.Transparency }
end,
Load = function(idx, data)
if getgenv().Linoria.Options[idx] then
getgenv().Linoria.Options[idx]:SetValueRGB(Color3.fromHex(data.value), data.transparency)
end
end,
},
KeyPicker = {
Save = function(idx, object)
return { type = 'KeyPicker', idx = idx, mode = object.Mode, key = object.Value }
end,
Load = function(idx, data)
if getgenv().Linoria.Options[idx] then
getgenv().Linoria.Options[idx]:SetValue({ data.key, data.mode })
end
end,
},
Input = {
Save = function(idx, object)
return { type = 'Input', idx = idx, text = object.Value }
end,
Load = function(idx, data)
if getgenv().Linoria.Options[idx] and type(data.text) == 'string' then
getgenv().Linoria.Options[idx]:SetValue(data.text)
end
end,
},
}
function SaveManager:CheckFolderTree()
pcall(function()
if not isfolder(self.Folder) then -- who tought that isfolder should error when the folder is not found 😭
SaveManager:BuildFolderTree()
task.wait()
end
end)
end
function SaveManager:SetIgnoreIndexes(list)
for _, key in next, list do
self.Ignore[key] = true
end
end
function SaveManager:SetFolder(folder)
self.Folder = folder;
self:BuildFolderTree()
end
function SaveManager:Save(name)
if (not name) then
return false, 'no config file is selected'
end
SaveManager:CheckFolderTree()
local fullPath = self.Folder .. '/settings/' .. name .. '.json'
local data = {
objects = {}
}
for idx, toggle in next, getgenv().Linoria.Toggles do
if self.Ignore[idx] then continue end
table.insert(data.objects, self.Parser[toggle.Type].Save(idx, toggle))
end
for idx, option in next, getgenv().Linoria.Options do
if not self.Parser[option.Type] then continue end
if self.Ignore[idx] then continue end
table.insert(data.objects, self.Parser[option.Type].Save(idx, option))
end
local success, encoded = pcall(httpService.JSONEncode, httpService, data)
if not success then
return false, 'failed to encode data'
end
writefile(fullPath, encoded)
return true
end
function SaveManager:Load(name)
if (not name) then
return false, 'no config file is selected'
end
SaveManager:CheckFolderTree()
local file = self.Folder .. '/settings/' .. name .. '.json'
if not isfile(file) then return false, 'invalid file' end
local success, decoded = pcall(httpService.JSONDecode, httpService, readfile(file))
if not success then return false, 'decode error' end
for _, option in next, decoded.objects do
if self.Parser[option.type] then
task.spawn(function() self.Parser[option.type].Load(option.idx, option) end) -- task.spawn() so the config loading wont get stuck.
end
end
return true
end
function SaveManager:Delete(name)
if (not name) then
return false, 'no config file is selected'
end
local file = self.Folder .. '/settings/' .. name .. '.json'
if not isfile(file) then return false, 'invalid file' end
local success, decoded = pcall(delfile, file)
if not success then return false, 'delete file error' end
return true
end
function SaveManager:IgnoreThemeSettings()
self:SetIgnoreIndexes({
"BackgroundColor", "MainColor", "AccentColor", "OutlineColor", "FontColor", -- themes
"ThemeManager_ThemeList", 'ThemeManager_CustomThemeList', 'ThemeManager_CustomThemeName', -- themes
"VideoLink",
})
end
function SaveManager:BuildFolderTree()
local paths = {
self.Folder,
self.Folder .. '/themes',
self.Folder .. '/settings'
}
for i = 1, #paths do
local str = paths[i]
if not isfolder(str) then
makefolder(str)
end
end
end
function SaveManager:RefreshConfigList()
SaveManager:CheckFolderTree()
local list = listfiles(self.Folder .. '/settings')
local out = {}
for i = 1, #list do
local file = list[i]
if file:sub(-5) == '.json' then
-- i hate this but it has to be done ...
local pos = file:find('.json', 1, true)
local start = pos
local char = file:sub(pos, pos)
while char ~= '/' and char ~= '\\' and char ~= '' do
pos = pos - 1
char = file:sub(pos, pos)
end
if char == '/' or char == '\\' then
table.insert(out, file:sub(pos + 1, start - 1))
end
end
end
return out
end
function SaveManager:SetLibrary(library)
self.Library = library
end
function SaveManager:LoadAutoloadConfig()
SaveManager:CheckFolderTree()
if isfile(self.Folder .. '/settings/autoload.txt') then
local name = readfile(self.Folder .. '/settings/autoload.txt')
local success, err = self:Load(name)
if not success then
return self.Library:Notify('Failed to load autoload config: ' .. err)
end
self.Library:Notify(string.format('Auto loaded config %q', name))
end
end
function SaveManager:BuildConfigSection(tab)
assert(self.Library, 'Must set SaveManager.Library')
local section = tab:AddRightGroupbox('Configuration')
section:AddInput('SaveManager_ConfigName', { Text = 'Config name' })
section:AddButton('Create config', function()
local name = getgenv().Linoria.Options.SaveManager_ConfigName.Value
if name:gsub(' ', '') == '' then
return self.Library:Notify('Invalid config name (empty)', 2)
end
local success, err = self:Save(name)
if not success then
return self.Library:Notify('Failed to create config: ' .. err)
end
self.Library:Notify(string.format('Created config %q', name))
getgenv().Linoria.Options.SaveManager_ConfigList:SetValues(self:RefreshConfigList())
getgenv().Linoria.Options.SaveManager_ConfigList:SetValue(nil)
end)
section:AddDivider()
section:AddDropdown('SaveManager_ConfigList', { Text = 'Config list', Values = self:RefreshConfigList(), AllowNull = true })
section:AddButton('Load config', function()
local name = getgenv().Linoria.Options.SaveManager_ConfigList.Value
local success, err = self:Load(name)
if not success then
return self.Library:Notify('Failed to load config: ' .. err)
end
self.Library:Notify(string.format('Loaded config %q', name))
end)
section:AddButton('Overwrite config', function()
local name = getgenv().Linoria.Options.SaveManager_ConfigList.Value
local success, err = self:Save(name)
if not success then
return self.Library:Notify('Failed to overwrite config: ' .. err)
end
self.Library:Notify(string.format('Overwrote config %q', name))
end)
getgenv().AutoOverwrite = false
section:AddToggle('__AutoStoreFruit', {
Default = false,
Text = 'Auto Overwrite config',
Tooltip = 'auto overwrite config every 2s',
Callback = function(s)
getgenv().AutoOverwrite = s
end
})
spawn(function()
while task.wait(2) do
if getgenv().AutoOverwrite then
pcall(function()
local name = getgenv().Linoria.Options.SaveManager_ConfigList.Value
local success, err = self:Save(name)
if not success then
return self.Library:Notify('Failed to overwrite config: ' .. err)
end
self.Library:Notify(string.format('Overwrote config %q', name))
end)
end
end
end)
section:AddButton('Delete config', function()
local name = getgenv().Linoria.Options.SaveManager_ConfigList.Value
local success, err = self:Delete(name)
if not success then
return self.Library:Notify('Failed to delete config: ' .. err)
end
self.Library:Notify(string.format('Deleted config %q', name))
getgenv().Linoria.Options.SaveManager_ConfigList:SetValues(self:RefreshConfigList())
getgenv().Linoria.Options.SaveManager_ConfigList:SetValue(nil)
end)
section:AddButton('Refresh list', function()
getgenv().Linoria.Options.SaveManager_ConfigList:SetValues(self:RefreshConfigList())
getgenv().Linoria.Options.SaveManager_ConfigList:SetValue(nil)
end)
section:AddButton('Set as autoload', function()
local name = getgenv().Linoria.Options.SaveManager_ConfigList.Value
writefile(self.Folder .. '/settings/autoload.txt', name)
SaveManager.AutoloadLabel:SetText('Current autoload config: ' .. name)
self.Library:Notify(string.format('Set %q to auto load', name))
end)
section:AddButton('Reset autoload', function()
local success = pcall(delfile, self.Folder .. '/settings/autoload.txt')
if not success then
return self.Library:Notify('Failed to reset autoload: delete file error')
end
self.Library:Notify('Set autoload to none')
SaveManager.AutoloadLabel:SetText('Current autoload config: none')
end)
SaveManager.AutoloadLabel = section:AddLabel('Current autoload config: none', true)
if isfile(self.Folder .. '/settings/autoload.txt') then
local name = readfile(self.Folder .. '/settings/autoload.txt')
SaveManager.AutoloadLabel:SetText('Current autoload config: ' .. name)
end
SaveManager:SetIgnoreIndexes({ 'SaveManager_ConfigList', 'SaveManager_ConfigName' })
end
SaveManager:BuildFolderTree()
end
return SaveManager

Add Comment

Please, Sign In to add comment