global.ttslua

available = {
        Marquise = 1,
        Eyrie = 1,
        Woodland = 1,
        Vagabond = 2,
        Riverfolk = 1,
        Lizard = 1,
        Duchy = 1,
        Corvid = 1,
        Fangus = 1,
        VagaThief = 1,
        VagaTinker = 1,
        VagaScoundrel = 1,
        VagaArbiter = 1,
        VagaRanger = 1,
        VagaVagrant = 1,
        VagaAdventurer = 1,
        VagaHarrier = 1,
        VagaRonin = 1,
        Arachnid = 1,
        WeeklyCroak = 1,
        Boars = 1,
        Aviators = 1,
        Republic = 1,
        Necropossums = 1,
        Shrewd = 1,
}

colors = {Blue=true, Orange=true, Teal=true, Yellow=true, Green=true,
          Purple=true, White=true, Red=true, Brown=true, Pink=true}

BUTTONS =
        {
            "Marquise1", "Eyrie1", "Woodland1", "Vagabond2", "Vagabond1", "Riverfolk1", "Lizard1", "Corvid1", "Duchy1",
            "rBotMarquise1", "rBotEyrie1", "rBotWoodland1", "rBotVagabond2", "rBotVagabond1",
            "VagaArbiter", "VagaRanger", "VagaScoundrel", "VagaThief", "VagaTinker", "VagaVagrant", "VagaAdventurer", "VagaHarrier", "VagaRonin",
            "OverRiverfolk1", "ClocLizard1", "CybeCorvid1", "bbdcMarquise1", "bbdcEyrie1", "bbdcWoodland1", "bbdcVagabond1", "bbdcVagabond2",
            "Arachnid1", "WeeklyCroak1", "Boars1", "Fangus1", "Aviators1", "Republic1", "Necropossums1", "Shrewd1",
       }

factionboards = {}
bot = false
XML_UPDATED = false
-- par = {factionboard instance}
function ImHere(par)
    factionboards[#factionboards+1] = par[1]
end

-- par = {factionboard instance}
function ImGone(par)
    local where = 0
    for x=1, #factionboards do
        if factionboards[x] == par[1] then
            where = x
        end
    end
    table.remove(factionboards, where)
end

-- par = {faction}
function FactionChosen(par)
    local faction = par[1]
    available[faction] = available[faction] -1
    ShowAllButtons()
end

function ShowAllButtons()
    for _, x in ipairs(factionboards) do
        x.call('showButtons', {})
    end
end

function update_faction_data()
    local TEXT = ""
    log("Global: Finding keeper of faction info")
    KEEPER = find_object_by_name("The keeper of information")
    log("Requesting latest Faction data")
    function transfer()
        TMP = find_object_by_name("TMP")
        local everything = TMP.getTable("EVERYTHING")
        KEEPER.setTable("EVERYTHING", everything)
        local buttons = TMP.getTable("BUTTONS")
        if buttons ~= nil then
            BUTTONS = buttons
        end
        log("Newest data received")
        TMP.destruct()
        available = {Vagabond=2}
        for faction, _ in pairs(everything.factions) do
            available[faction] = 1
        end
        for faction, _ in pairs(everything.fanfactions) do
            available[faction] = 1
        end

        -- print(logString(available))
    end
    function spawned(o)
        o.setLock(true)
        o.setLuaScript(TEXT)
        o.setName("TMP")
        o.reload()
        Wait.condition(transfer,||not o.spawning)
    end
    function callback(wr)
        repeat
            --
        until  wr.is_done
        if wr.is_error then
            log("Something went wrong retreiving newest data")
            log(wr.error)
        else
            log("Faction Data received.")
            TEXT = wr.text
            local TMP = spawnObject({type='backgammon_piece_white', position={5.00, -24.22, 0.00}, sound=false, callback_function=spawned})
        end
    end
    WebRequest.get("https://raw.githubusercontent.com/McChew/Root-TTS/master/factionsv3.ttslua", callback)
end

function update_xml_data()
    log("Global: Finding keeper of XML")
    XMLKEEPER = find_object_by_name("The keeper of XML")
    log("Requesting latest XML data")
    function callback(wr)
        repeat
            --
        until  wr.is_done
        if wr.is_error then
            log("Something went wrong retreiving XML")
            log(wr.error)
        else
            log("XML Data received.")
            XMLKEEPER.setLuaScript(wr.text)
            XMLKEEPER.reload()
            Wait.time(function() XML_UPDATED = true; log("flag set") end, 0.5)
        end
    end
    WebRequest.get("https://raw.githubusercontent.com/McChew/Root-TTS/master/factionboardxml.ttslua", callback)
end

function onLoad(save_state)
    update_xml_data()
    update_faction_data()
end

function find_object_by_name(name)
    for _, obj in ipairs(getAllObjects()) do
        if obj.getName() == name then return obj end
    end
    return nil
end