-- Ade Alts: sync
local AA = AdeAlts

----------------------------------------------------------------------
-- sync between accounts (guild / party / raid addon messages)
----------------------------------------------------------------------
local function Encode(c)
  local head = "C^" .. c.name .. "^" .. c.realm .. "^" .. (c.class or "") .. "^" .. (c.updated or 0) .. "^"
  local msgs, cur = {}, ""
  for key, exp in pairs(c.cds) do
    local pair = key .. "=" .. exp
    if string.len(head) + string.len(cur) + string.len(pair) + 1 > 240 then
      table.insert(msgs, head .. cur)
      cur = ""
    end
    if cur ~= "" then cur = cur .. "~" end
    cur = cur .. pair
  end
  table.insert(msgs, head .. cur)
  return msgs
end

function AA.Send(msg)
  if IsInGuild and IsInGuild() then SendAddonMessage(AA.PREFIX, msg, "GUILD") end
  if GetNumRaidMembers() > 0 then
    SendAddonMessage(AA.PREFIX, msg, "RAID")
  elseif GetNumPartyMembers() > 0 then
    SendAddonMessage(AA.PREFIX, msg, "PARTY")
  end
end

function AA.Broadcast()
  if not AA.me then return end
  AA.lastBroadcast = GetTime()
  for _, m in ipairs(Encode(AA.me)) do AA.Send(m) end
end

function AA.ReceiveRecord(text)
  local _, _, name, realm, class, upd, body = string.find(text, "^C%^([^%^]*)%^([^%^]*)%^([^%^]*)%^(%d*)%^(.*)$")
  if not name or name == "" then return false end
  upd = tonumber(upd) or 0
  local k = name .. "-" .. realm
  local c = AA.db.chars[k]
  if c and (c.updated or 0) > upd then return false end -- we already have newer data
  if not c then
    c = { name = name, realm = realm, class = class, cds = {}, remote = true }
    AA.db.chars[k] = c
  end
  if class ~= "" then c.class = class end
  c.cds = c.cds or {}
  for key, exp in string.gfind(body, "([^~=]+)=(%d+)") do
    c.cds[key] = tonumber(exp)
  end
  c.updated = upd
  AA.ClampRecord(c)
  return true
end

-- shared file between accounts on the same game folder (needs SuperWoW)
local function InvStr(list)
  if not list then return "" end
  local parts = {}
  for _, e in ipairs(list) do table.insert(parts, e[1] .. ":" .. e[2]) end
  return table.concat(parts, "~")
end

local function ParseInv(str)
  local list = {}
  for id, n in string.gfind(str or "", "(%d+):(%d+)") do
    table.insert(list, { tonumber(id), tonumber(n) })
  end
  return list
end

local function EncodeAlt(c)
  return "A^" .. c.name .. "^" .. c.realm .. "^" .. (c.class or "") .. "^" .. (c.level or 0) .. "^" .. (c.gold or 0)
    .. "^" .. (c.dataTs or 0) .. "^" .. (c.invTs or 0) .. "^" .. (c.bankTs or 0)
    .. "^" .. InvStr(c.inv) .. "^" .. InvStr(c.bank)
end

local function ReceiveAlt(text)
  local _, _, name, realm, class, lvl, gold, dts, its, bts, inv, bank =
    string.find(text, "^A%^([^%^]*)%^([^%^]*)%^([^%^]*)%^(%d*)%^(%d*)%^(%d*)%^(%d*)%^(%d*)%^([^%^]*)%^(.*)$")
  if not name or name == "" then return false end
  local k = name .. "-" .. realm
  local c = AA.db.chars[k]
  if not c then
    c = { name = name, realm = realm, class = class, cds = {}, remote = true }
    AA.db.chars[k] = c
  end
  dts, its, bts = tonumber(dts) or 0, tonumber(its) or 0, tonumber(bts) or 0
  local ch = false
  if dts > (c.dataTs or 0) then
    c.dataTs = dts
    c.level = tonumber(lvl)
    c.gold = tonumber(gold)
    if class ~= "" then c.class = class end
    ch = true
  end
  if its > (c.invTs or 0) then
    c.invTs = its
    c.inv = ParseInv(inv)
    ch = true
  end
  if bts > (c.bankTs or 0) then
    c.bankTs = bts
    c.bank = ParseInv(bank)
    ch = true
  end
  return ch
end

local function ReceiveItem(text)
  local _, _, id, name, tex, q = string.find(text, "^I%^(%d+)%^([^%^]*)%^([^%^]*)%^(%d*)$")
  if not id then return end
  id = tonumber(id)
  AA.db.items = AA.db.items or {}
  local it = AA.db.items[id]
  if not it or not it.n or not it.t or it.t == "" then
    AA.db.items[id] = { n = name, t = tex, q = tonumber(q) or 1 }
  end
end

local function EncodeProf(c, pname, p)
  return "P^" .. c.name .. "^" .. c.realm .. "^" .. pname .. "^" .. (p.r or 0) .. "^" .. (p.m or 0)
    .. "^" .. (p.ts or 0) .. "^" .. (p.rts or 0) .. "^" .. table.concat(p.rec or {}, "~")
end

local function ReceiveProf(text)
  local _, _, name, realm, pname, r, m, ts, rts, rec =
    string.find(text, "^P%^([^%^]*)%^([^%^]*)%^([^%^]*)%^(%d*)%^(%d*)%^(%d*)%^(%d*)%^(.*)$")
  if not name or name == "" or pname == "" then return false end
  if AA.BadProf(pname, tonumber(m)) then return false end
  local k = name .. "-" .. realm
  local c = AA.db.chars[k]
  if not c then
    c = { name = name, realm = realm, cds = {}, remote = true }
    AA.db.chars[k] = c
  end
  c.prof = c.prof or {}
  local p = c.prof[pname]
  if not p then
    p = {}
    c.prof[pname] = p
  end
  ts, rts = tonumber(ts) or 0, tonumber(rts) or 0
  local ch = false
  if ts > (p.ts or 0) then
    p.ts = ts
    p.r = tonumber(r)
    p.m = tonumber(m)
    ch = true
  end
  if rts > (p.rts or 0) then
    p.rts = rts
    local list = {}
    for rn in string.gfind(rec, "[^~]+") do table.insert(list, rn) end
    p.rec = list
    p.sig = nil
    ch = true
  end
  return ch
end

local function EncodeEquip(c)
  local parts = {}
  for slot = 0, 19 do
    if c.equip and c.equip[slot] then table.insert(parts, slot .. "=" .. c.equip[slot]) end
  end
  return "E^" .. c.name .. "^" .. c.realm .. "^" .. (c.eqTs or 0) .. "^" .. table.concat(parts, "~")
end

local function ReceiveEquip(text)
  local _, _, name, realm, ts, body = string.find(text, "^E%^([^%^]*)%^([^%^]*)%^(%d*)%^(.*)$")
  if not name or name == "" then return false end
  local k = name .. "-" .. realm
  local c = AA.db.chars[k]
  if not c then
    c = { name = name, realm = realm, cds = {}, remote = true }
    AA.db.chars[k] = c
  end
  ts = tonumber(ts) or 0
  if ts <= (c.eqTs or 0) then return false end
  local eq = {}
  for slot, ref in string.gfind(body, "(%d+)=(%-?%d+:%-?%d+:%-?%d+:%-?%d+)") do
    eq[tonumber(slot)] = ref
  end
  c.equip = eq
  c.eqTs = ts
  return true
end

-- bag sizes / used slots: B^name^realm^invBagsTs^bankBagsTs^inv^bank
local function EncodeBags(c)
  return "B^" .. c.name .. "^" .. c.realm .. "^" .. (c.invBagsTs or 0) .. "^" .. (c.bankBagsTs or 0)
    .. "^" .. (c.invBags or "") .. "^" .. (c.bankBags or "")
end

local function ReceiveBags(text)
  local _, _, name, realm, its, bts, inv, bank =
    string.find(text, "^B%^([^%^]*)%^([^%^]*)%^(%d*)%^(%d*)%^([^%^]*)%^(.*)$")
  if not name or name == "" then return false end
  local k = name .. "-" .. realm
  local c = AA.db.chars[k]
  if not c then
    c = { name = name, realm = realm, cds = {}, remote = true }
    AA.db.chars[k] = c
  end
  its, bts = tonumber(its) or 0, tonumber(bts) or 0
  local ch = false
  if its > (c.invBagsTs or 0) then
    c.invBagsTs = its
    c.invBags = inv
    ch = true
  end
  if bts > (c.bankBagsTs or 0) then
    c.bankBagsTs = bts
    c.bankBags = bank
    ch = true
  end
  return ch
end

local function FileRead(name)
  if not (ImportFile and ExportFile) then return nil end
  local ok, txt = pcall(ImportFile, name)
  if ok and txt and txt ~= "" then return txt end
  ok, txt = pcall(ImportFile, name .. ".txt")
  if ok and txt and txt ~= "" then return txt end
  return nil
end

local function MergeText(txt)
  local n = 0
  for line in string.gfind(txt, "[^\r\n]+") do
    local t = string.sub(line, 1, 2)
    if t == "C^" then
      if AA.ReceiveRecord(line) then n = n + 1 end
    elseif t == "A^" then
      if ReceiveAlt(line) then n = n + 1 end
    elseif t == "P^" then
      if ReceiveProf(line) then n = n + 1 end
    elseif t == "E^" then
      if ReceiveEquip(line) then n = n + 1 end
    elseif t == "B^" then
      if ReceiveBags(line) then n = n + 1 end
    elseif t == "I^" then
      ReceiveItem(line)
    end
  end
  return n
end

local legacyDone = false
AA.FileMerge = function()
  if not AA.db then return end
  local n = 0
  local txt = FileRead(AA.FILE)
  if txt then n = n + MergeText(txt) end
  if not legacyDone then
    legacyDone = true
    local old = FileRead(AA.LEGACY)
    if old then n = n + MergeText(old) end
  end
  if n > 0 then AA.Refresh() end
end

local function FileWrite()
  if not (ImportFile and ExportFile) or not AA.db then return end
  local parts, seen = {}, {}
  for k, c in pairs(AA.db.chars) do
    for _, m in ipairs(Encode(c)) do table.insert(parts, m) end
    if c.dataTs or c.invTs or c.bankTs then table.insert(parts, EncodeAlt(c)) end
    local lists = { c.inv or {}, c.bank or {} }
    for _, list in ipairs(lists) do
      for _, e in ipairs(list) do seen[e[1]] = true end
    end
    if c.prof then
      for pname, p in pairs(c.prof) do table.insert(parts, EncodeProf(c, pname, p)) end
    end
    if c.invBags or c.bankBags then table.insert(parts, EncodeBags(c)) end
    if c.equip then
      table.insert(parts, EncodeEquip(c))
      for slot, ref in pairs(c.equip) do
        local _, _, sid = string.find(ref, "^(%d+)")
        if sid then seen[tonumber(sid)] = true end
      end
    end
  end
  if AA.db.items then
    for id in pairs(seen) do
      local it = AA.db.items[id]
      if it and it.n then
        table.insert(parts, "I^" .. id .. "^" .. it.n .. "^" .. (it.t or "") .. "^" .. (it.q or 1))
      end
    end
  end
  pcall(ExportFile, AA.FILE, table.concat(parts, "\n"))
  AA.fileDirty = false
  AA.lastFileWrite = GetTime()
end

AA.FileSync = function()
  AA.FileMerge()
  FileWrite()
end

local function ExportString()
  local parts = {}
  for k, c in pairs(AA.db.chars) do
    for _, m in ipairs(Encode(c)) do table.insert(parts, m) end
  end
  return table.concat(parts, "#")
end

local function ImportString(text)
  local n = 0
  for rec in string.gfind(text, "[^#]+") do
    if AA.ReceiveRecord(rec) then n = n + 1 end
  end
  return n
end

-- export / import box
local io = CreateFrame("Frame", "AdeAltsIO", UIParent)
io:SetWidth(440)
io:SetHeight(90)
io:SetPoint("CENTER", UIParent, "CENTER", 0, 150)
io:SetFrameStrata("DIALOG")
io:SetBackdrop({
  bgFile = "Interface\\Tooltips\\UI-Tooltip-Background",
  edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
  tile = true, tileSize = 16, edgeSize = 16,
  insets = { left = 4, right = 4, top = 4, bottom = 4 },
})
io:SetBackdropColor(0, 0, 0, 0.95)
io:EnableMouse(true)
io:Hide()
table.insert(UISpecialFrames, "AdeAltsIO")

local iotitle = io:CreateFontString(nil, "OVERLAY", "GameFontNormal")
iotitle:SetPoint("TOPLEFT", io, "TOPLEFT", 12, -10)
iotitle:SetText("Copy (Ctrl+C) to export, or paste (Ctrl+V) and press Import")

local eb = CreateFrame("EditBox", "AdeAltsIOEdit", io)
eb:SetWidth(410)
eb:SetHeight(22)
eb:SetPoint("TOPLEFT", io, "TOPLEFT", 15, -30)
eb:SetFontObject(ChatFontNormal)
eb:SetAutoFocus(false)
eb:SetMaxLetters(0)
eb:SetTextInsets(4, 4, 2, 2)
eb:SetBackdrop({
  bgFile = "Interface\\Tooltips\\UI-Tooltip-Background",
  edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
  tile = true, tileSize = 8, edgeSize = 8,
  insets = { left = 2, right = 2, top = 2, bottom = 2 },
})
eb:SetBackdropColor(0.1, 0.1, 0.1, 1)
eb:SetScript("OnEscapePressed", function() this:ClearFocus() end)

local bimp = CreateFrame("Button", nil, io, "UIPanelButtonTemplate")
bimp:SetWidth(90); bimp:SetHeight(22)
bimp:SetPoint("BOTTOMLEFT", io, "BOTTOMLEFT", 15, 10)
bimp:SetText("Import")
bimp:SetScript("OnClick", function()
  local n = ImportString(eb:GetText() or "")
  AA.Print("imported " .. n .. " record(s).")
  AA.Refresh()
end)

local bclose = CreateFrame("Button", nil, io, "UIPanelButtonTemplate")
bclose:SetWidth(90); bclose:SetHeight(22)
bclose:SetPoint("BOTTOMRIGHT", io, "BOTTOMRIGHT", -15, 10)
bclose:SetText("Close")
bclose:SetScript("OnClick", function() io:Hide() end)

function AA.ShowIO(exportMode)
  io:Show()
  if exportMode then
    eb:SetText(ExportString())
    eb:SetFocus()
    eb:HighlightText()
  else
    eb:SetText("")
    eb:SetFocus()
  end
end