local versionString = "version 0.1.7, modified 2024-02-26"
function widget:GetInfo()
    return {
        name = "Top Bar with Buildpower",
        desc = "Shows resources, buildpower, wind speed, commander counter, and various options.",
        author = "Floris and Floris and Floris and Robert82 and gmcnew",
        date = "Feb, 2017",
        license = "GNU GPL, v2 or later", 
        layer = -99980,
        enabled = true, --enabled by default
        handler = true, --can use widgetHandler:x()
    }
end
local Debugmode = false
function Log(Message)
    if Debugmode==true then
        Spring.Echo(Message)
    end
end

-------------------------------CONFIG------------------------------------------
-------------------------------------------------------------------------------


-- for bp bar only
local config = {
    metalCostForCommander = 1250,
    includeFactories = true,
    proMode = false,
    drawBPBar = true,
    autoHideButtons = false,
    debugTooltip = false,

    -- Buildpower bar: behavior tweaks to consider making permanent _or_ options
    includeConsBeingBuilt = true, -- should we count cons being built? If so, their BP will be considered reserved.
    countStalledAsIdle = false, -- should we consider stalled BP to be idle? If not, it'll be considered used.
    guardingIdleBuilderCountsAsIdle = true, -- should builders guarding idle builders be considered idle themselves?

    -- Show markers on the buildpower bar that indicate how much buildpower our metal and energy income could support.
    drawBPIndicators = true,
    drawBPWindRangeIndicators = false,

    barScale = 1,
    barWidth = 1,
}

-- used to identify when config values have changed
local prevConfig = {}

local OPTION_SPECS = {
    {
        configVariable = "drawBPBar",
        name = "buildpower bar",
        description = "Draw the buildpower bar (requires reload)",
        type = "bool",
    },
    {
        configVariable = "countStalledAsIdle",
        name = "count stalled buildpower as idle",
        description = "Should stalled buildpower count as idle? (If not, it will count toward reserved buildpower.)",
        type = "bool",
    },
    {
        configVariable = "proMode",
        name = "pro mode",
        description = "Show advanced buildpower statistics and debug info (requires reload)",
        type = "bool",
    },
    {
        configVariable = "drawBPIndicators",
        name = "eco support indicators",
        description = "Estimate how much buildpower is supported by your metal and energy income",
        type = "bool",
    },
    {
        configVariable = "drawBPWindRangeIndicators",
        name = "wind range indicators",
        description = "Show how energy-supported buildpower might vary with wind speed",
        type = "bool",
    },
    {
        configVariable = "autoHideButtons",
        name = "auto hide buttons",
        description = "",
        type = "bool",
    },
    {
        configVariable = "debugTooltip",
        name = "debug data",
        description = "Show debug data in tooltip when hovering over the buildpower bar",
        type = "bool",
    },
    {
        configVariable = "barScale",
        name = "top bar height",
        description = "height of the top bar (requires reload)",
        type = "slider",
        min = 0.5,
        max = 2,
        step = 0.01,
        value = 1,
    },
    {
        configVariable = "barWidth",
        name = "top bar width",
        description = "width of the top bar (requires reload)",
        type = "slider",
        min = 1,
        max = 3,
        step = 0.01,
        value = 1,
    },
}

local function getOptionId(optionSpec)
    return "top_bar_bp_" .. optionSpec.configVariable
end

local function getWidgetName()
    return widget:GetInfo().name
end

local function getOptionValue(optionSpec)
    if optionSpec.type == "slider" then
        return config[optionSpec.configVariable]
    elseif optionSpec.type == "bool" then
        return config[optionSpec.configVariable]
    elseif optionSpec.type == "select" then
    -- we have text, we need index
        for i, v in ipairs(optionSpec.options) do
            if config[optionSpec.configVariable] == v then
                return i
            end
        end
    end
end
  
local function setOptionValue(optionSpec, value)
    if optionSpec.type == "slider" then
        config[optionSpec.configVariable] = value
    elseif optionSpec.type == "bool" then
        config[optionSpec.configVariable] = value
    elseif optionSpec.type == "select" then
    -- we have index, we need text
        config[optionSpec.configVariable] = optionSpec.options[value]
    end
end
  
local function createOnChange(optionSpec)
    return function(i, value, force)
      setOptionValue(optionSpec, value)
    end
end

local function addOptionFromSpec(optionSpec)
    local option = table.copy(optionSpec)
    option.configVariable = nil
    option.enabled = nil
    option.id = getOptionId(optionSpec)
    option.widgetname = getWidgetName()
    option.value = getOptionValue(optionSpec)
    option.onchange = createOnChange(optionSpec)
    WG['options'].addOption(option)
end

function widget:GetConfigData()
    return config
end

function nullSafeString(s)
    if s == nil then
        return "<nil>"
    end
    return tostring(s)
end

function configHasChanged()
    local anyChange = false
    for k, v in pairs(config) do
        --Spring.Echo("comparing " .. nullSafeString(k) .. " = " .. nullSafeString(v) .. " to " .. nullSafeString(prevConfig[k]))
        if prevConfig[k] ~= nil and prevConfig[k] ~= v then
            --Spring.Echo(nullSafeString(k) .. " has changed from " .. nullSafeString(prevConfig[k]) .. " to " .. nullSafeString(v))
            anyChange = true
        end
        prevConfig[k] = v
    end
    return anyChange
end

function widget:SetConfigData(data)
    if data ~= nil then
        for k, v in pairs(data) do
            if config[k] ~= nil then
                config[k] = v
            end
        end
    end
end

-------------------------------------------------------------------------------
-------------------------------------------------------------------------------

-- stores the date that is used for the res calc and BP bar
local BP = {0, 0, 0, 0, 0, 1, 1}

-- Used to store recent positions of the M/E-supported sliders on the BP bar so they can be moved more smoothly.
BP['mSliderPositions'] = {}
BP['eSliderPositions'] = {}
BP['metalIncome'] = 0
BP['energyIncome'] = 0
BP['metalExpense'] = 0
BP['energyExpense'] = 0

-- Use circular queues so we don't have to repeatedly shift the tables' contents.
function initWeightedAverage(maxN)
    return {
        maxn = maxN,-- max number of elements
        i = 1, -- next index to write to
        curn = 0, -- current number of elements
        sum_sw = 0, -- sum(sample*weight)
        sum_w = 0, -- sum(weight)
        s = {}, -- samples
        w = {}, -- weights
    }
end

function addSampleAndGetWeightedAverage(t, newSample, newWeight)
    if newSample ~= nil then
        if t.i <= t.curn then
            -- remove the old sample and weight
            t.sum_sw = t.sum_sw - (t.s[t.i] * t.w[t.i])
            t.sum_w = t.sum_w - t.w[t.i]
        end

        -- add the new sample and weight
        t.s[t.i] = newSample
        t.w[t.i] = newWeight
        t.sum_sw = t.sum_sw + newSample * newWeight
        t.sum_w = t.sum_w + newWeight

        -- update the table's size
        if t.curn < t.maxn then
            t.curn = t.curn + 1
        end

        -- move i ahead
        t.i = t.i + 1
        if t.i > t.maxn then
            t.i = 1
        end
    end

    if math.abs(t.sum_w) < 0.01 then
        return nil
    end

    return t.sum_sw / t.sum_w
end

-- Lists of recent datapoints, used for smoothing. The first element is the number of datapoints to keep, the second is the datapoints themselves.
BP['history_usedBP'] = initWeightedAverage(30) -- used to calculate the average used BP
BP['history_reservedBP'] = initWeightedAverage(30) -- used to calculate the average reserved BP
BP['history_nonBuilderMetalExpense'] = initWeightedAverage(100) -- average metal expense from non-builders
BP['history_nonBuilderEnergyExpense'] = initWeightedAverage(100) -- average energy expense from non-builders
BP['history_mSliderPosition'] = initWeightedAverage(30) -- average metal expense from non-builders

-- How much of our buildpower can be supported by our energy income, expressed as a ratio from 0 to 1?
BP['history_eSliderPosition'] = initWeightedAverage(30)
BP['history_eSliderPosition_minWind'] = initWeightedAverage(30) -- if wind is at its minimum?
BP['history_eSliderPosition_maxWind'] = initWeightedAverage(30) -- if wind is at its maximum?
BP['history_eIncomeNoWind'] = initWeightedAverage(30) -- how much energy income is from non-wind sources?

BP['reservedBP_instant'] = 0
BP['usedBP_instant'] = 0

local unitsPerFrame = 100 --limit processed units per frame to improve performance
local trackedNum = 0
local nowChecking = 0
local trackPosBase = 0 -- will start the next checks from here
local cacheDataBase = {0, 0, 0.1, 0, 0, 1, 1} -- gives the data to the next calc frame
cacheDataBase['usedBPMetalExpense'] = 0
cacheDataBase['usedBPEnergyExpense'] = 0
cacheDataBase['usedBPExceptStalled'] = 0
cacheDataBase['usedBPIfNoStall'] = 0
cacheDataBase['metalIncome'] = 0
cacheDataBase['energyIncome'] = 0
cacheDataBase['metalExpense'] = 0
cacheDataBase['energyExpense'] = 0
local trackedBuilders = {} -- stores units of the player and their BP

-- Keep track of wind generators
local trackedWinds = {}
local numWindGenerators = 0

local unitCostData = {} --data of all units regarding the building costs, M/BP and E/BP
local totalStallingM = 0
local totalStallingE = 0

-- build power/ res calc entries end here

local allowSavegame = true--Spring.Utilities.ShowDevUI()

local ui_scale = config.barScale * tonumber(Spring.GetConfigFloat("ui_scale", 1) or 1)

local fontfile = "fonts/" .. Spring.GetConfigString("bar_font", "Poppins-Regular.otf")
local fontfile2 = "fonts/" .. Spring.GetConfigString("bar_font2", "Exo2-SemiBold.otf")

local textWarnColor = "\255\255\215\215"

local vsx, vsy = Spring.GetViewGeometry()

local orgHeight = 46
local height = orgHeight * (1 + (ui_scale - 1) / 1.7)

local escapeKeyPressesQuit = false

local relXpos = 0.3
local borderPadding = 5

local wholeTeamWastingMetalCount = 0

local noiseBackgroundTexture = ":g:LuaUI/Images/rgbnoise.png"
local showButtons = true

local playSounds = true
local leftclick = 'LuaUI/Sounds/tock.wav'
local resourceclick = 'LuaUI/Sounds/buildbar_click.wav'

local barGlowCenterTexture = ":l:LuaUI/Images/barglow-center.png"
local barGlowEdgeTexture = ":l:LuaUI/Images/barglow-edge.png"
local bladesTexture = ":n:LuaUI/Images/wind-blades.png"
local wavesTexture = ":n:LuaUI/Images/tidal-waves.png"
local comTexture = ":n:Icons/corcom.png"
if UnitDefs[Spring.GetTeamRulesParam(Spring.GetMyTeamID(), 'startUnit')] then
    comTexture = ':n:Icons/'..UnitDefs[Spring.GetTeamRulesParam(Spring.GetMyTeamID(), 'startUnit')].name..'.png'
end

-- Local variables for function names improve performance. See page 17 of https://www.lua.org/gems/sample.pdf ("Lua Performance Tips", by Roberto Ierusalimschy)
local math_ceil = math.ceil
local math_floor = math.floor
local math_round = math.round
local math_min = math.min
local math_max = math.max
local math_isInRect = math.isInRect

local widgetScale = (0.80 + (vsx * vsy / 6000000))
local xPos = math_floor(vsx * relXpos)
local currentWind = 0
local gameStarted = (Spring.GetGameFrame() > 0)
local displayComCounter = false
local displayTidalSpeed = not (Spring.GetModOptions().map_waterislava or Game.waterDamage > 0)
local updateTextClock = os.clock()

local glTranslate = gl.Translate
local glColor = gl.Color
local glPushMatrix = gl.PushMatrix
local glPopMatrix = gl.PopMatrix
local glTexture = gl.Texture
local glRect = gl.Rect
local glTexRect = gl.TexRect
local glRotate = gl.Rotate
local glCreateList = gl.CreateList
local glCallList = gl.CallList
local glDeleteList = gl.DeleteList

local glBlending = gl.Blending
local GL_SRC_ALPHA = GL.SRC_ALPHA
local GL_ONE_MINUS_SRC_ALPHA = GL.ONE_MINUS_SRC_ALPHA
local GL_ONE = GL.ONE

local spGetUnitIsBuilding = Spring.GetUnitIsBuilding
local spGetUnitDefID = Spring.GetUnitDefID
local spGetSpectatingState = Spring.GetSpectatingState
local spGetTeamResources = Spring.GetTeamResources
local spGetMyTeamID = Spring.GetMyTeamID
local spGetMouseState = Spring.GetMouseState
local spGetWind = Spring.GetWind
--local spFindUnitCmdDesc = Spring.FindUnitCmdDesc
--local spGetUnitCmdDescs = Spring.GetUnitCmdDescs
--local spValidUnitID = Spring.ValidUnitID
--local spGetUnitCurrentBuildPower = Spring.GetUnitCurrentBuildPower
local spGetUnitResources = Spring.GetUnitResources
--local spGetUnitCommands = Spring.GetUnitCommands
--local spGetFactoryCommands = Spring.GetFactoryCommands

local isMetalmap = false

local widgetSpaceMargin, bgpadding, RectRound, TexturedRectRound, UiElement, UiButton, UiSliderKnob

local gaiaTeamID = Spring.GetGaiaTeamID()
local spec = spGetSpectatingState()
local myAllyTeamID = Spring.GetMyAllyTeamID()
local myTeamID = Spring.GetMyTeamID()
local myPlayerID = Spring.GetMyPlayerID()

local myAllyTeamList = Spring.GetTeamList(myAllyTeamID)
local numTeamsInAllyTeam = #myAllyTeamList

local function checkPriority(unitID) -- needed for exact calculations
    -- Check if the "priority" command is set to "High Priority" or "Low Priority"
    local cmdDescID = Spring.FindUnitCmdDesc(unitID, 34571) -- CMD_PRIORITY=34571, low-priority builders
    if cmdDescID then
        local cmdDesc = Spring.GetUnitCmdDescs(unitID, cmdDescID, cmdDescID)[1]
        if cmdDesc then
            if cmdDesc.params[1] == "1" then
                return "high"  -- The unit is set to "High Priority"
            elseif cmdDesc.params[1] == "0" then
                return "low"  -- The unit is set to "Low Priority"
            end
        end
    end
    return nil  -- The unit does not have these settings
end


local supressOverflowNotifs = false
for _, teamID in ipairs(myAllyTeamList) do
    if select(4, Spring.GetTeamInfo(teamID, false)) then    -- is AI?
        local luaAI = Spring.GetTeamLuaAI(teamID)
        if luaAI and luaAI ~= "" then
            if string.find(luaAI, 'Scavengers') or string.find(luaAI, 'Raptors') then
                supressOverflowNotifs = true
                break
            end
        end
    end
end

local sformat = string.format

local minWind = Game.windMin
local maxWind = Game.windMax
-- precomputed average wind values, from wind random monte carlo simulation, given minWind and maxWind
local avgWind = {[0] = {[1] = "0.8", [2] = "1.5", [3] = "2.2", [4] = "3.0", [5] = "3.7", [6] = "4.5", [7] = "5.2", [8] = "6.0", [9] = "6.7", [10] = "7.5", [11] = "8.2", [12] = "9.0", [13] = "9.7", [14] = "10.4", [15] = "11.2", [16] = "11.9", [17] = "12.7", [18] = "13.4", [19] = "14.2", [20] = "14.9", [21] = "15.7", [22] = "16.4", [23] = "17.2", [24] = "17.9", [25] = "18.6", [26] = "19.2", [27] = "19.6", [28] = "20.0", [29] = "20.4", [30] = "20.7", }, [1] = {[2] = "1.6", [3] = "2.3", [4] = "3.0", [5] = "3.8", [6] = "4.5", [7] = "5.2", [8] = "6.0", [9] = "6.7", [10] = "7.5", [11] = "8.2", [12] = "9.0", [13] = "9.7", [14] = "10.4", [15] = "11.2", [16] = "11.9", [17] = "12.7", [18] = "13.4", [19] = "14.2", [20] = "14.9", [21] = "15.7", [22] = "16.4", [23] = "17.2", [24] = "17.9", [25] = "18.6", [26] = "19.2", [27] = "19.6", [28] = "20.0", [29] = "20.4", [30] = "20.7", }, [2] = {[3] = "2.6", [4] = "3.2", [5] = "3.9", [6] = "4.6", [7] = "5.3", [8] = "6.0", [9] = "6.8", [10] = "7.5", [11] = "8.2", [12] = "9.0", [13] = "9.7", [14] = "10.5", [15] = "11.2", [16] = "12.0", [17] = "12.7", [18] = "13.4", [19] = "14.2", [20] = "14.9", [21] = "15.7", [22] = "16.4", [23] = "17.2", [24] = "17.9", [25] = "18.6", [26] = "19.2", [27] = "19.6", [28] = "20.0", [29] = "20.4", [30] = "20.7", }, [3] = {[4] = "3.6", [5] = "4.2", [6] = "4.8", [7] = "5.5", [8] = "6.2", [9] = "6.9", [10] = "7.6", [11] = "8.3", [12] = "9.0", [13] = "9.8", [14] = "10.5", [15] = "11.2", [16] = "12.0", [17] = "12.7", [18] = "13.5", [19] = "14.2", [20] = "15.0", [21] = "15.7", [22] = "16.4", [23] = "17.2", [24] = "17.9", [25] = "18.7", [26] = "19.2", [27] = "19.7", [28] = "20.0", [29] = "20.4", [30] = "20.7", }, [4] = {[5] = "4.6", [6] = "5.2", [7] = "5.8", [8] = "6.4", [9] = "7.1", [10] = "7.8", [11] = "8.5", [12] = "9.2", [13] = "9.9", [14] = "10.6", [15] = "11.3", [16] = "12.1", [17] = "12.8", [18] = "13.5", [19] = "14.3", [20] = "15.0", [21] = "15.7", [22] = "16.5", [23] = "17.2", [24] = "18.0", [25] = "18.7", [26] = "19.2", [27] = "19.7", [28] = "20.1", [29] = "20.4", [30] = "20.7", }, [5] = {[6] = "5.5", [7] = "6.1", [8] = "6.8", [9] = "7.4", [10] = "8.0", [11] = "8.7", [12] = "9.4", [13] = "10.1", [14] = "10.8", [15] = "11.5", [16] = "12.2", [17] = "12.9", [18] = "13.6", [19] = "14.4", [20] = "15.1", [21] = "15.8", [22] = "16.5", [23] = "17.3", [24] = "18.0", [25] = "18.8", [26] = "19.3", [27] = "19.7", [28] = "20.1", [29] = "20.4", [30] = "20.7", }, [6] = {[7] = "6.5", [8] = "7.1", [9] = "7.7", [10] = "8.4", [11] = "9.0", [12] = "9.7", [13] = "10.3", [14] = "11.0", [15] = "11.7", [16] = "12.4", [17] = "13.1", [18] = "13.8", [19] = "14.5", [20] = "15.2", [21] = "15.9", [22] = "16.7", [23] = "17.4", [24] = "18.1", [25] = "18.8", [26] = "19.4", [27] = "19.8", [28] = "20.2", [29] = "20.5", [30] = "20.8", }, [7] = {[8] = "7.5", [9] = "8.1", [10] = "8.7", [11] = "9.3", [12] = "10.0", [13] = "10.6", [14] = "11.3", [15] = "11.9", [16] = "12.6", [17] = "13.3", [18] = "14.0", [19] = "14.7", [20] = "15.4", [21] = "16.1", [22] = "16.8", [23] = "17.5", [24] = "18.2", [25] = "19.0", [26] = "19.5", [27] = "19.9", [28] = "20.3", [29] = "20.6", [30] = "20.9", }, [8] = {[9] = "8.5", [10] = "9.1", [11] = "9.7", [12] = "10.3", [13] = "11.0", [14] = "11.6", [15] = "12.2", [16] = "12.9", [17] = "13.6", [18] = "14.2", [19] = "14.9", [20] = "15.6", [21] = "16.3", [22] = "17.0", [23] = "17.7", [24] = "18.4", [25] = "19.1", [26] = "19.6", [27] = "20.0", [28] = "20.4", [29] = "20.7", [30] = "21.0", }, [9] = {[10] = "9.5", [11] = "10.1", [12] = "10.7", [13] = "11.3", [14] = "11.9", [15] = "12.6", [16] = "13.2", [17] = "13.8", [18] = "14.5", [19] = "15.2", [20] = "15.8", [21] = "16.5", [22] = "17.2", [23] = "17.9", [24] = "18.6", [25] = "19.3", [26] = "19.8", [27] = "20.2", [28] = "20.5", [29] = "20.8", [30] = "21.1", }, [10] = {[11] = "10.5", [12] = "11.1", [13] = "11.7", [14] = "12.3", [15] = "12.9", [16] = "13.5", [17] = "14.2", [18] = "14.8", [19] = "15.4", [20] = "16.1", [21] = "16.8", [22] = "17.4", [23] = "18.1", [24] = "18.8", [25] = "19.5", [26] = "20.0", [27] = "20.4", [28] = "20.7", [29] = "21.0", [30] = "21.2", }, [11] = {[12] = "11.5", [13] = "12.1", [14] = "12.7", [15] = "13.3", [16] = "13.9", [17] = "14.5", [18] = "15.1", [19] = "15.8", [20] = "16.4", [21] = "17.1", [22] = "17.7", [23] = "18.4", [24] = "19.1", [25] = "19.7", [26] = "20.2", [27] = "20.6", [28] = "20.9", [29] = "21.2", [30] = "21.4", }, [12] = {[13] = "12.5", [14] = "13.1", [15] = "13.6", [16] = "14.2", [17] = "14.9", [18] = "15.5", [19] = "16.1", [20] = "16.7", [21] = "17.4", [22] = "18.0", [23] = "18.7", [24] = "19.3", [25] = "20.0", [26] = "20.4", [27] = "20.8", [28] = "21.1", [29] = "21.4", [30] = "21.6", }, [13] = {[14] = "13.5", [15] = "14.1", [16] = "14.6", [17] = "15.2", [18] = "15.8", [19] = "16.5", [20] = "17.1", [21] = "17.7", [22] = "18.4", [23] = "19.0", [24] = "19.6", [25] = "20.3", [26] = "20.7", [27] = "21.1", [28] = "21.4", [29] = "21.6", [30] = "21.8", }, [14] = {[15] = "14.5", [16] = "15.0", [17] = "15.6", [18] = "16.2", [19] = "16.8", [20] = "17.4", [21] = "18.1", [22] = "18.7", [23] = "19.3", [24] = "20.0", [25] = "20.6", [26] = "21.0", [27] = "21.3", [28] = "21.6", [29] = "21.8", [30] = "22.0", }, [15] = {[16] = "15.5", [17] = "16.0", [18] = "16.6", [19] = "17.2", [20] = "17.8", [21] = "18.4", [22] = "19.0", [23] = "19.6", [24] = "20.3", [25] = "20.9", [26] = "21.3", [27] = "21.6", [28] = "21.9", [29] = "22.1", [30] = "22.3", }, [16] = {[17] = "16.5", [18] = "17.0", [19] = "17.6", [20] = "18.2", [21] = "18.8", [22] = "19.4", [23] = "20.0", [24] = "20.6", [25] = "21.3", [26] = "21.7", [27] = "21.9", [28] = "22.2", [29] = "22.4", [30] = "22.5", }, [17] = {[18] = "17.5", [19] = "18.0", [20] = "18.6", [21] = "19.2", [22] = "19.8", [23] = "20.4", [24] = "21.0", [25] = "21.6", [26] = "22.0", [27] = "22.3", [28] = "22.5", [29] = "22.7", [30] = "22.8", }, [18] = {[19] = "18.5", [20] = "19.0", [21] = "19.6", [22] = "20.2", [23] = "20.8", [24] = "21.4", [25] = "22.0", [26] = "22.4", [27] = "22.6", [28] = "22.8", [29] = "23.0", [30] = "23.1", }, [19] = {[20] = "19.5", [21] = "20.0", [22] = "20.6", [23] = "21.2", [24] = "21.8", [25] = "22.4", [26] = "22.7", [27] = "22.9", [28] = "23.1", [29] = "23.2", [30] = "23.4", }, [20] = {[21] = "20.4", [22] = "21.0", [23] = "21.6", [24] = "22.2", [25] = "22.8", [26] = "23.1", [27] = "23.3", [28] = "23.4", [29] = "23.6", [30] = "23.7", }, [21] = {[22] = "21.4", [23] = "22.0", [24] = "22.6", [25] = "23.2", [26] = "23.5", [27] = "23.6", [28] = "23.8", [29] = "23.9", [30] = "24.0", }, [22] = {[23] = "22.4", [24] = "23.0", [25] = "23.6", [26] = "23.8", [27] = "24.0", [28] = "24.1", [29] = "24.2", [30] = "24.2", }, [23] = {[24] = "23.4", [25] = "24.0", [26] = "24.2", [27] = "24.4", [28] = "24.4", [29] = "24.5", [30] = "24.5", }, [24] = {[25] = "24.4", [26] = "24.6", [27] = "24.7", [28] = "24.7", [29] = "24.8", [30] = "24.8", }, }
-- precomputed percentage of time wind is less than 6, from wind random monte carlo simulation, given minWind and maxWind
local riskWind = {[0] = {[1] = "100", [2] = "100", [3] = "100", [4] = "100", [5] = "100", [6] = "100", [7] = "56", [8] = "42", [9] = "33", [10] = "27", [11] = "22", [12] = "18.5", [13] = "15.8", [14] = "13.6", [15] = "11.8", [16] = "10.4", [17] = "9.2", [18] = "8.2", [19] = "7.4", [20] = "6.7", [21] = "6.0", [22] = "5.5", [23] = "5.0", [24] = "4.6", [25] = "4.3", [26] = "4.0", [27] = "3.7", [28] = "3.4", [29] = "3.2", [30] = "3.0", }, [1] = {[2] = "100", [3] = "100", [4] = "100", [5] = "100", [6] = "100", [7] = "56", [8] = "42", [9] = "33", [10] = "27", [11] = "22", [12] = "18.5", [13] = "15.7", [14] = "13.6", [15] = "11.8", [16] = "10.4", [17] = "9.2", [18] = "8.2", [19] = "7.4", [20] = "6.7", [21] = "6.0", [22] = "5.5", [23] = "5.0", [24] = "4.6", [25] = "4.3", [26] = "4.0", [27] = "3.7", [28] = "3.4", [29] = "3.2", [30] = "3.0", }, [2] = {[3] = "100", [4] = "100", [5] = "100", [6] = "100", [7] = "55", [8] = "42", [9] = "33", [10] = "27", [11] = "22", [12] = "18.4", [13] = "15.6", [14] = "13.5", [15] = "11.8", [16] = "10.4", [17] = "9.2", [18] = "8.2", [19] = "7.4", [20] = "6.6", [21] = "6.0", [22] = "5.5", [23] = "5.0", [24] = "4.6", [25] = "4.3", [26] = "3.9", [27] = "3.6", [28] = "3.4", [29] = "3.1", [30] = "2.9", }, [3] = {[4] = "100", [5] = "100", [6] = "100", [7] = "53", [8] = "40", [9] = "32", [10] = "25", [11] = "21", [12] = "17.8", [13] = "15.2", [14] = "13.2", [15] = "11.5", [16] = "10.2", [17] = "9.1", [18] = "8.1", [19] = "7.3", [20] = "6.6", [21] = "6.0", [22] = "5.4", [23] = "5.0", [24] = "4.6", [25] = "4.2", [26] = "3.9", [27] = "3.6", [28] = "3.4", [29] = "3.1", [30] = "2.9", }, [4] = {[5] = "100", [6] = "100", [7] = "49", [8] = "36", [9] = "29", [10] = "23", [11] = "19.4", [12] = "16.4", [13] = "14.0", [14] = "12.2", [15] = "10.8", [16] = "9.6", [17] = "8.6", [18] = "7.7", [19] = "7.0", [20] = "6.3", [21] = "5.8", [22] = "5.3", [23] = "4.8", [24] = "4.4", [25] = "4.1", [26] = "3.8", [27] = "3.5", [28] = "3.3", [29] = "3.0", [30] = "2.8", }, [5] = {[6] = "100", [7] = "41", [8] = "30", [9] = "24", [10] = "19.5", [11] = "16.2", [12] = "13.9", [13] = "11.9", [14] = "10.4", [15] = "9.3", [16] = "8.3", [17] = "7.5", [18] = "6.8", [19] = "6.2", [20] = "5.7", [21] = "5.2", [22] = "4.8", [23] = "4.4", [24] = "4.1", [25] = "3.8", [26] = "3.5", [27] = "3.2", [28] = "3.0", [29] = "2.8", [30] = "2.6", }, [6] = {[7] = "16.0", [8] = "12.4", [9] = "10.5", [10] = "9.0", [11] = "8.0", [12] = "7.3", [13] = "6.6", [14] = "6.0", [15] = "5.5", [16] = "5.1", [17] = "4.7", [18] = "4.4", [19] = "4.2", [20] = "3.9", [21] = "3.6", [22] = "3.4", [23] = "3.2", [24] = "3.0", [25] = "2.8", [26] = "2.7", [27] = "2.5", [28] = "2.4", [29] = "2.2", [30] = "2.1", }, }
-- pull average wind from precomputed table, if it exists
local avgWindValue = avgWind[minWind]
if avgWindValue ~= nil then
    avgWindValue = avgWindValue[maxWind]
end
if avgWindValue == nil then
    avgWindValue = "~" .. tostring(math_max(minWind, maxWind * .75)) --fallback approximation
end
-- pull wind risk from precomputed table, if it exists
local riskWindValue = riskWind[minWind]
if riskWindValue ~= nil then
    riskWindValue = riskWindValue[maxWind]
end
if riskWindValue == nil then
    if minWind+maxWind >= 0.5 then
        riskWindValue = "0"
    else
        riskWindValue = "100"
    end
end
local tidalSpeed = Spring.GetTidal() -- for now assumed that it is not dynamiccally changed
local tidalWaveAnimationHeight = 10
local windRotation = 0

local lastFrame = -1
local topbarArea = {}
local resbarArea = { metal = {}, energy = {}, BP = {} }
local resbarDrawinfo = { metal = {}, energy = {}, BP = {} }
local shareIndicatorArea = { metal = {}, energy = {}, BP = {} } --get rid of BP
local dlistResbar = { metal = {}, energy = {}, BP = {} }
local windArea = {}
local tidalarea = {}
local comsArea = {}
local buttonsArea = {}
local dlistWindText = {}
local dlistResValuesBar = { metal = {}, energy = {}, BP = {} }
local dlistResValues = { metal = {}, energy = {}, BP = {} }
local currentResValue = { metal = 1000, energy = 1000, BP = 0 }
local currentStorageValue = { metal = -1, energy = -1, BP = 0.1 }

local r = { metal = { spGetTeamResources(myTeamID, 'metal') }, energy = { spGetTeamResources(myTeamID, 'energy'), }}

local showOverflowTooltip = {}

local allyComs = 0
local enemyComs = 0 -- if we are counting ourselves because we are a spec
local enemyComCount = 0 -- if we are receiving a count from the gadget part (needs modoption on)
local prevEnemyComCount = 0

local guishaderEnabled = false
local guishaderCheckUpdateRate = 0.5
local nextGuishaderCheck = guishaderCheckUpdateRate
local now = os.clock()
local gameFrame = Spring.GetGameFrame()

local draggingShareIndicatorValue = {}

local font, font2, firstButton, fontSize, comcountChanged, showQuitscreen, resbarHover
local draggingConversionIndicatorValue, draggingShareIndicator, draggingConversionIndicator
local conversionIndicatorArea, quitscreenArea, quitscreenStayArea, quitscreenQuitArea, quitscreenResignArea, hoveringTopbar, hideQuitWindow
local dlistButtonsGuishader, dlistComsGuishader, dlistButtonsGuishader, dlistWindGuishader, dlistTidalGuishader, dlistQuit
--local dlistButtons1, dlistButtons2, dlistComs1, dlistComs2, dlistWind1, dlistWind2

local chobbyLoaded = false
if Spring.GetMenuName and string.find(string.lower(Spring.GetMenuName()), 'chobby') ~= nil then
    chobbyLoaded = true
    Spring.SendLuaMenuMsg("disableLobbyButton")
end

local numPlayers = Spring.Utilities.GetPlayerCount()
local isSinglePlayer = Spring.Utilities.Gametype.IsSinglePlayer()

local isSingle = false
if not spec then
    local teamList = Spring.GetTeamList(myAllyTeamID) or {}
    isSingle = #teamList == 1
end

local allyteamOverflowingMetal = false
local allyteamOverflowingEnergy = false
local overflowingMetal = false
local overflowingEnergy = false
local playerStallingMetal = false
local playerStallingEnergy = false

local isCommander = {}
for unitDefID, unitDef in pairs(UnitDefs) do
    if unitDef.customParams.iscommander then
        isCommander[unitDefID] = true
    end
end

--------------------------------------------------------------------------------
-- Graphs window
--------------------------------------------------------------------------------

local gameIsOver = false
local graphsWindowVisible = false

local function RectQuad(px, py, sx, sy, offset)
    gl.TexCoord(offset, 1 - offset)
    gl.Vertex(px, py, 0)
    gl.TexCoord(1 - offset, 1 - offset)
    gl.Vertex(sx, py, 0)
    gl.TexCoord(1 - offset, offset)
    gl.Vertex(sx, sy, 0)
    gl.TexCoord(offset, offset)
    gl.Vertex(px, sy, 0)
end
local function DrawRect(px, py, sx, sy, zoom)
    gl.BeginEnd(GL.QUADS, RectQuad, px, py, sx, sy, zoom)
end

function widget:ViewResize()
    vsx, vsy = gl.GetViewSizes()
    widgetScale = (vsy / height) * 0.0425
    widgetScale = widgetScale * ui_scale
    xPos = math_floor(vsx * relXpos)

    widgetSpaceMargin = WG.FlowUI.elementMargin
    bgpadding = WG.FlowUI.elementPadding

    RectRound = WG.FlowUI.Draw.RectRound
    TexturedRectRound = WG.FlowUI.Draw.TexturedRectRound
    UiElement = WG.FlowUI.Draw.Element
    UiButton = WG.FlowUI.Draw.Button
    UiSliderKnob = WG.FlowUI.Draw.SliderKnob

    font = WG['fonts'].getFont(fontfile)
    font2 = WG['fonts'].getFont(fontfile2)

    for n, _ in pairs(dlistWindText) do
        dlistWindText[n] = glDeleteList(dlistWindText[n])
    end
    for res, _ in pairs(dlistResValues) do
        for n, _ in pairs(dlistResValues[res]) do
            dlistResValues[res][n] = glDeleteList(dlistResValues[res][n])
        end
    end
    for res, _ in pairs(dlistResValuesBar) do
        for n, _ in pairs(dlistResValuesBar[res]) do
            dlistResValuesBar[res][n] = glDeleteList(dlistResValuesBar[res][n])
        end
    end

    init()
end

local function short(n, f)
    if f == nil then
        f = 0
    end
    if n > 9999999 then
        return sformat("%." .. f .. "fm", n / 1000000)
    elseif n > 9999 then
        return sformat("%." .. f .. "fk", n / 1000)
    else
        return sformat("%." .. f .. "f", n)
    end
end

local function float_to_s(n)
    if n == nil then
        return "nil"
    end
    return sformat("%.3f", n)
end

local function updateButtons()

    local fontsize = (height * widgetScale) / 3

    if dlistButtons1 ~= nil then
        glDeleteList(dlistButtons1)
    end
    dlistButtons1 = glCreateList(function()

        -- if buttonsArea['buttons'] == nil then -- With this condition it doesn't actually update buttons if they were already added
        buttonsArea['buttons'] = {}

        local margin = bgpadding
        local textPadding = math_floor(fontsize * 0.8)
        local sidePadding = textPadding
        local offset = sidePadding
        local lastbutton
        local function addButton(name, text)
            local width = math_floor((font2:GetTextWidth(text) * fontsize) + textPadding)
            buttonsArea['buttons'][name] = { buttonsArea[3] - offset - width, buttonsArea[2] + margin, buttonsArea[3] - offset, buttonsArea[4], text, buttonsArea[3] - offset - (width/2) }
            if not lastbutton then
                buttonsArea['buttons'][name][3] = buttonsArea[3]
            end
            offset = math_floor(offset + width + 0.5)
            lastbutton = name
        end

        if not gameIsOver and chobbyLoaded then
            addButton('quit', Spring.I18N('ui.topbar.button.lobby'))
            if not spec and gameStarted and not isSinglePlayer then
                addButton('resign', Spring.I18N('ui.topbar.button.resign'))
            end
        else
            addButton('quit', Spring.I18N('ui.topbar.button.quit'))
        end
        if WG['options'] ~= nil then
            addButton('options', Spring.I18N('ui.topbar.button.settings'))
        end
        if WG['keybinds'] ~= nil then
            addButton('keybinds', Spring.I18N('ui.topbar.button.keys'))
        end
        if WG['changelog'] ~= nil then
            addButton('changelog', Spring.I18N('ui.topbar.button.changes'))
        end
        if WG['teamstats'] ~= nil then
            addButton('stats', Spring.I18N('ui.topbar.button.stats'))
        end
        if gameIsOver then
            addButton('graphs', Spring.I18N('ui.topbar.button.graphs'))
        end
        if WG['scavengerinfo'] ~= nil then
            addButton('scavengers', Spring.I18N('ui.topbar.button.scavengers'))
        end
        if isSinglePlayer and allowSavegame and WG['savegame'] ~= nil then
            addButton('save', Spring.I18N('ui.topbar.button.save'))
        end

        buttonsArea['buttons'][lastbutton][1] = buttonsArea['buttons'][lastbutton][1] - sidePadding
        offset = offset + sidePadding

        buttonsArea[1] = buttonsArea[3]-offset-margin
        UiElement(buttonsArea[1], buttonsArea[2], buttonsArea[3], buttonsArea[4], 0, 0, 0, 1)

    end)

    -- add background blur
    if dlistButtonsGuishader ~= nil then
        if WG['guishader'] then
            WG['guishader'].RemoveDlist('topbar_buttons')
        end
        glDeleteList(dlistButtonsGuishader)
    end
    if showButtons then
        dlistButtonsGuishader = glCreateList(function()
            RectRound(buttonsArea[1], buttonsArea[2], buttonsArea[3], buttonsArea[4], 5.5 * widgetScale, 0, 0, 1, 1)
        end)
        if WG['guishader'] then
            WG['guishader'].InsertDlist(dlistButtonsGuishader, 'topbar_buttons')
        end
    end

    if dlistButtons2 ~= nil then
        glDeleteList(dlistButtons2)
    end
    dlistButtons2 = glCreateList(function()
        font2:Begin()
        font2:SetTextColor(0.92, 0.92, 0.92, 1)
        font2:SetOutlineColor(0, 0, 0, 1)
        for name, params in pairs(buttonsArea['buttons']) do
            font2:Print(params[5], params[6], params[2] + ((params[4] - params[2]) * 0.5) - (fontsize / 5), fontsize, 'co')
        end
        font2:End()
    end)
end

local function updateComs(forceText)
    local area = comsArea

    -- add background blur
    if dlistComsGuishader ~= nil then
        if WG['guishader'] then
            WG['guishader'].RemoveDlist('topbar_coms')
        end
        glDeleteList(dlistComsGuishader)
    end
    dlistComsGuishader = glCreateList(function()
        RectRound(area[1], area[2], area[3], area[4], 5.5 * widgetScale, 0, 0, 1, 1)
    end)

    if dlistComs1 ~= nil then
        glDeleteList(dlistComs1)
    end
    dlistComs1 = glCreateList(function()

        UiElement(area[1], area[2], area[3], area[4], 0, 0, 1, 1)

        if WG['guishader'] then
            WG['guishader'].InsertDlist(dlistComsGuishader, 'topbar_coms')
        end
    end)

    if dlistComs2 ~= nil then
        glDeleteList(dlistComs2)
    end
    dlistComs2 = glCreateList(function()
        -- Commander icon
        local sizeHalf = (height / 2.44) * widgetScale
        local yOffset = ((area[3] - area[1]) * 0.025)
        glTexture(comTexture)
        glTexRect(area[1] + ((area[3] - area[1]) / 2) - sizeHalf, area[2] + ((area[4] - area[2]) / 2) - sizeHalf +yOffset, area[1] + ((area[3] - area[1]) / 2) + sizeHalf, area[2] + ((area[4] - area[2]) / 2) + sizeHalf+yOffset)
        glTexture(false)

        -- Text
        if gameFrame > 0 or forceText then
            font2:Begin()
            local fontsize = (height / 2.85) * widgetScale
            font2:Print('\255\255\000\000' .. enemyComCount, area[3] - (2.8 * widgetScale), area[2] + (4.5 * widgetScale), fontsize, 'or')

            fontSize = (height / 2.15) * widgetScale
            font2:Print("\255\000\255\000" .. allyComs, area[1] + ((area[3] - area[1]) / 2), area[2] + ((area[4] - area[2]) / 2.05) - (fontSize / 5), fontSize, 'oc')
            font2:End()
        end
    end)
    comcountChanged = nil

    if WG['tooltip'] ~= nil then
        WG['tooltip'].AddTooltip('coms', area, Spring.I18N('ui.topbar.commanderCountTooltip'), nil, Spring.I18N('ui.topbar.commanderCount'))
    end
end

local function updateWind()
    local area = windArea

    local bladesSize = height * 0.53 * widgetScale

    -- add background blur
    if dlistWindGuishader ~= nil then
        if WG['guishader'] then
            WG['guishader'].RemoveDlist('topbar_wind')
        end
        glDeleteList(dlistWindGuishader)
    end
    dlistWindGuishader = glCreateList(function()
        RectRound(area[1], area[2], area[3], area[4], 5.5 * widgetScale, 0, 0, 1, 1)
    end)

    if dlistWind1 ~= nil then
        glDeleteList(dlistWind1)
    end
    dlistWind1 = glCreateList(function()

        UiElement(area[1], area[2], area[3], area[4], 0, 0, 1, 1)

        if WG['guishader'] then
            WG['guishader'].InsertDlist(dlistWindGuishader, 'topbar_wind')
        end

        -- blades icon
        glPushMatrix()
        glTranslate(area[1] + ((area[3] - area[1]) / 2), area[2] + (bgpadding/2) + ((area[4] - area[2]) / 2), 0)
        glColor(1, 1, 1, 0.2)
        glTexture(bladesTexture)
        -- glRotate is done after displaying this dl, and before dl2
    end)

    if dlistWind2 ~= nil then
        glDeleteList(dlistWind2)
    end
    dlistWind2 = glCreateList(function()
        glTexRect(-bladesSize, -bladesSize, bladesSize, bladesSize)
        glTexture(false)
        glPopMatrix()

        -- min and max wind
        local fontsize = (height / 3.7) * widgetScale
        if minWind+maxWind >= 0.5 then
            font2:Begin()
            font2:Print("\255\210\210\210" .. minWind, area[3] - (2.8 * widgetScale), area[4] - (4.5 * widgetScale) - (fontsize / 2), fontsize, 'or')
            font2:Print("\255\210\210\210" .. maxWind, area[3] - (2.8 * widgetScale), area[2] + (4.5 * widgetScale), fontsize, 'or')
            -- uncomment below to display average wind speed on UI
            -- font2:Print("\255\210\210\210" .. avgWindValue, area[1] + (2.8 * widgetScale), area[2] + (4.5 * widgetScale), fontsize, '')
            font2:End()
        else
            font2:Begin()
            --font2:Print("\255\200\200\200no wind", windArea[1] + ((windArea[3] - windArea[1]) / 2), windArea[2] + ((windArea[4] - windArea[2]) / 2.05) - (fontsize / 5), fontsize, 'oc') -- Wind speed text
            font2:Print("\255\200\200\200" .. Spring.I18N('ui.topbar.wind.nowind1'), windArea[1] + ((windArea[3] - windArea[1]) / 2), windArea[2] + ((windArea[4] - windArea[2]) / 1.5) - (fontsize / 5), fontsize * 1.06, 'oc') -- Wind speed text
            font2:Print("\255\200\200\200" .. Spring.I18N('ui.topbar.wind.nowind2'), windArea[1] + ((windArea[3] - windArea[1]) / 2), windArea[2] + ((windArea[4] - windArea[2]) / 2.8) - (fontsize / 5), fontsize * 1.06, 'oc') -- Wind speed text
            font2:End()
        end
    end)

    if WG['tooltip'] ~= nil then
        WG['tooltip'].AddTooltip('wind', area, Spring.I18N('ui.topbar.windspeedTooltip', { avgWindValue = avgWindValue, riskWindValue = riskWindValue, warnColor = textWarnColor }), nil, Spring.I18N('ui.topbar.windspeed'))
    end
end

-- return true if tidal speed is * relevant * , enough water in the world (>= 10%)
local function checkTidalRelevant()
    local mapMinHeight = 0
    -- account for invertmap to the best of our abiltiy
    if string.find(Spring.GetModOptions().debugcommands,"invertmap") then
        if string.find(Spring.GetModOptions().debugcommands,"wet") then
            -- assume that they want water if keyword "wet" is involved, too violitile between initilization and subsequent post terraform checks
            return true
        --else
        --  mapMinHeight = 0
        end
    else
        mapMinHeight = select(3,Spring.GetGroundExtremes())
    end
    mapMinHeight = mapMinHeight - (Spring.GetModOptions().map_waterlevel or 0)
    return mapMinHeight <= -20  -- armtide/cortide can be built from 20 waterdepth (hardcoded here cause am too lazy to auto cycle trhough unitdefs and read it from there)
end

local function updateTidal()
    local area = tidalarea

    -- add background blur
    if dlistTidalGuishader ~= nil then
        if WG['guishader'] then
            WG['guishader'].RemoveDlist('topbar_tidal')
        end
        glDeleteList(dlistTidalGuishader)
    end
    dlistTidalGuishader = glCreateList(function()
        RectRound(area[1], area[2], area[3], area[4], 5.5 * widgetScale, 0, 0, 1, 1)
    end)

    if tidaldlist1 ~= nil then
        glDeleteList(tidaldlist1)
    end
    if tidaldlist2 ~= nil then
        glDeleteList(tidaldlist2)
    end
    local wavesSize = height * 0.53 * widgetScale
    tidalWaveAnimationHeight = height * 0.1 * widgetScale
    tidaldlist1 = glCreateList(function()
        UiElement(area[1], area[2], area[3], area[4], 0, 0, 1, 1)
        if WG['guishader'] then
            WG['guishader'].InsertDlist(dlistTidalGuishader, 'topbar_tidal')
        end
        -- waves icon
        glPushMatrix()
                -- translate will be done between this and tidaldlist2
    end)
    tidaldlist2 = glCreateList(function()
        glColor(1, 1, 1, 0.2)
        glTexture(wavesTexture)
        glTexRect(-wavesSize, -wavesSize, wavesSize, wavesSize)
        glTexture(false)
        glPopMatrix()
        -- tidal speed
        local fontSize = (height / 2.66) * widgetScale
        font2:Begin()
        font2:Print("\255\255\255\255" .. tidalSpeed, area[1] + ((area[3] - area[1]) / 2), area[2] + ((area[4] - area[2]) / 2.05) - (fontSize / 5), fontSize, 'oc') -- Tidal speed text
        font2:End()
    end)

    if WG['tooltip'] ~= nil then
        WG['tooltip'].AddTooltip('tidal', area, Spring.I18N('ui.topbar.tidalspeedTooltip'), nil, Spring.I18N('ui.topbar.tidalspeed'))
    end
end


local function updateResbarText(res)
    if dlistResbar[res][4] ~= nil then
        glDeleteList(dlistResbar[res][4])
    end
    dlistResbar[res][4] = glCreateList(function()
        RectRound(resbarArea[res][1] + bgpadding, resbarArea[res][2] + bgpadding, resbarArea[res][3] - bgpadding, resbarArea[res][4], bgpadding * 1.25, 0, 0, 1, 1)
        RectRound(resbarArea[res][1], resbarArea[res][2], resbarArea[res][3], resbarArea[res][4], 5.5 * widgetScale, 0, 0, 1, 1)
    end)
    if dlistResbar[res][5] ~= nil then
        glDeleteList(dlistResbar[res][5])
    end
    dlistResbar[res][5] = glCreateList(function()
        RectRound(resbarArea[res][1], resbarArea[res][2], resbarArea[res][3], resbarArea[res][4], 5.5 * widgetScale, 0, 0, 1, 1)
    end)

    -- storage changed!
    if currentStorageValue[res] ~= r[res][2] then
        -- flush old dlist caches
        for n, _ in pairs(dlistResValues[res]) do
            if n ~= currentResValue[res] then
                glDeleteList(dlistResValues[res][n])
                dlistResValues[res][n] = nil
            end
        end

        -- storage
        if dlistResbar[res][6] ~= nil then
            glDeleteList(dlistResbar[res][6])
        end
        dlistResbar[res][6] = glCreateList(function()
            font2:Begin()
            if res == 'metal' then
                font2:SetTextColor(0.55, 0.55, 0.55, 1)
            elseif res == 'energy' then
                font2:SetTextColor(0.57, 0.57, 0.45, 1)
            elseif res == 'BP' and config.drawBPBar then
                font2:SetTextColor(0.45, 0.6, 0.45, 1)
            end
            -- -- Text: Storage
            if res ~= 'BP' then
                font2:Print(short(r[res][2]), resbarDrawinfo[res].textStorage[2], resbarDrawinfo[res].textStorage[3], resbarDrawinfo[res].textStorage[4], resbarDrawinfo[res].textStorage[5])
            end
            if res == 'BP' and config.proMode and config.drawBPBar then
                -- total buildpower
                font2:Print(short(r[res][4]), resbarDrawinfo[res].textStorage[2], resbarDrawinfo[res].textStorage[3], resbarDrawinfo[res].textStorage[4], resbarDrawinfo[res].textStorage[5])
            end
            font2:End()
        end)
    end

    if dlistResbar[res][3] ~= nil then
        glDeleteList(dlistResbar[res][3])
    end

    -- Add stalling M/E for any low-priority builders
    if res == 'metal' then
        r[res][3] = r[res][3] + totalStallingM
    elseif res == 'energy' then
        r[res][3] = r[res][3] + totalStallingE
    end

    if res ~= 'BP' or config.drawBPBar then
        dlistResbar[res][3] = glCreateList(function() 
            font2:Begin()
            -- Text: pull
            if res ~= 'BP' then
                font2:Print("\255\240\125\125" .. "-" .. short(r[res][3]), resbarDrawinfo[res].textPull[2], resbarDrawinfo[res].textPull[3], resbarDrawinfo[res].textPull[4], resbarDrawinfo[res].textPull[5])
            elseif res == 'BP' and config.proMode then
                -- used buildpower
                font2:Print("\255\0\255\0"  .. short(r[res][5]), resbarDrawinfo[res].textPull[2], resbarDrawinfo[res].textPull[3], resbarDrawinfo[res].textPull[4], resbarDrawinfo[res].textPull[5])
            end
            -- Text: expense
            local textcolor = "\255\240\180\145"
            if r[res][3] == r[res][5] then
                textcolor = "\255\200\140\130"
            end
            if res ~= 'BP' then
                font2:Print(textcolor .. "-" .. short(r[res][5]), resbarDrawinfo[res].textExpense[2], resbarDrawinfo[res].textExpense[3], resbarDrawinfo[res].textExpense[4], resbarDrawinfo[res].textExpense[5])
            elseif res == 'BP' and config.proMode then
                -- reserved buildpower (including used)
                font2:Print("\255\50\155\0" .. short(r[res][3]), resbarDrawinfo[res].textExpense[2], resbarDrawinfo[res].textExpense[3], resbarDrawinfo[res].textExpense[4], resbarDrawinfo[res].textExpense[5])
            end
            -- Text: income
            if res ~= 'BP' then
                font2:Print("\255\120\235\120" .. "+" .. short(r[res][4]), resbarDrawinfo[res].textIncome[2], resbarDrawinfo[res].textIncome[3], resbarDrawinfo[res].textIncome[4], resbarDrawinfo[res].textIncome[5])
            end
            font2:End()

            local startingFrame = 90
            if debugMode then
                startingFrame = 1
            end
            if not spec and gameFrame > startingFrame then

                local notifyMetalStall = playerStallingMetal
                local notifyEnergyStall = playerStallingEnergy

                -- Only warn about buildpower surplus in pro mode.
                local notifyBPSurplus = false
                local notifyBPDeficit = false
                local reservedBP = BP[3]
                local totalBP = BP[4]
                local notifyBPIdle = reservedBP / totalBP <= 0.5 and (totalBP - reservedBP) > 300
                if BP['buildpowerSurplus'] ~= nil then
                    local indicatorPosM = BP['mSliderPosition']
                    local indicatorPosE = BP['eSliderPosition']

                    -- Buildpower surplus is calculated based on current metal/energy income and _predicted_ metal/
                    -- energy expenses if all builders were actively building. If this is negative, we have a buildpower
                    -- deficit, since income exceeds what all builders could possibly support.
                    notifyBPDeficit = BP['buildpowerSurplus'] < 0

                    -- A surplus isn't necessarily a problem, as builders don't spend 100% of their time building (if
                    -- they're driving from one location to another, for instance). And in the early-game your commander
                    -- alone will likely cause a buildpower surplus. For now, let's only warn about a surplus that
                    -- exceeds a fixed number _and_ a fixed ratio of eco-supported BP.

                    -- Later, we might want to focus just on the amount of BP that's actively building yet stalled, to
                    -- ignore any BP that's on guard/repair/reclaim duty. (But even a stalled-only surplus warning might
                    -- be redundant given the existing "Need metal"/"Need energy" overflow tooltips.)

                    -- Try to ignore early-game states where we may only have the commander and a single factory on the map.
                    notifyBPSurplus = BP['buildpowerSurplus'] > 400
                        -- Only warn about a surplus if less than 40% of our BP can be supported by our income.
                        and ((indicatorPosM ~= nil and indicatorPosM < 0.4) or (indicatorPosE ~= nil and indicatorPosE < 0.4))
                end

                -- If we're not in pro mode, be more selective with which alerts we show users.
                if config.proMode == false then

                    -- These two messages aren't very useful, since you can just look at the metal and energy bars.
                    -- Only show these alerts in pro mode.
                    notifyMetalStall = false
                    notifyEnergyStall = false

                    -- Try to only show the most important alert at a time.
                    if notifyBPDeficit then
                        notifyBPIdle = false
                        notifyBPSurplus = false -- shouldn't happen at the same time as a deficit, but leaving it just in case
                    elseif notifyBPIdle then
                        notifyBPSurplus = false
                    end
                end

                if (res == 'metal' and (allyteamOverflowingMetal or overflowingMetal))
                        or (res == 'energy' and (allyteamOverflowingEnergy or overflowingEnergy))
                        or (res == 'BP' and config.drawBPBar and (notifyMetalStall or notifyEnergyStall or notifyBPSurplus or notifyBPDeficit or notifyBPIdle)) then
                    if showOverflowTooltip[res] == nil then
                        showOverflowTooltip[res] = os.clock() + 1.1
                    end
                    if showOverflowTooltip[res] < os.clock() then
                        local bgpadding2 = 2.2 * widgetScale
                        local text = ''
                        if res == 'metal' then
                            text = (allyteamOverflowingMetal and '   ' .. Spring.I18N('ui.topbar.resources.wastingMetal') .. '   ' or '   ' .. Spring.I18N('ui.topbar.resources.overflowing') .. '   ')
                            if not supressOverflowNotifs and  WG['notifications'] and not isMetalmap and (not WG.sharedMetalFrame or WG.sharedMetalFrame+60 < gameFrame) then
                                if allyteamOverflowingMetal then
                                    if numTeamsInAllyTeam > 1 then
                                        if wholeTeamWastingMetalCount < 5 then
                                            wholeTeamWastingMetalCount = wholeTeamWastingMetalCount + 1
                                            WG['notifications'].addEvent('WholeTeamWastingMetal')
                                        end
                                    else
                                        --WG['notifications'].addEvent('YouAreWastingMetal')
                                    end
                                elseif r[res][6] > 0.75 then    -- supress if you are deliberately overflowing by adjustingthe share slider down
                                    WG['notifications'].addEvent('YouAreOverflowingMetal')
                                end
                            end
                        elseif res == 'energy' then
                            text = (allyteamOverflowingEnergy and '   ' .. Spring.I18N('ui.topbar.resources.wastingEnergy') .. '   '  or '   ' .. Spring.I18N('ui.topbar.resources.overflowing') .. '   ')
                            if not supressOverflowNotifs and WG['notifications'] and (not WG.sharedEnergyFrame or WG.sharedEnergyFrame+60 < gameFrame) then
                                if allyteamOverflowingEnergy then
                                    if numTeamsInAllyTeam > 3 then
                                        --WG['notifications'].addEvent('WholeTeamWastingEnergy')
                                    else
                                        --WG['notifications'].addEvent('YouAreWastingEnergy')
                                    end
                                elseif r[res][6] > 0.75 then    -- supress if you are deliberately overflowing by adjusting the share slider down
                                    --WG['notifications'].addEvent('YouAreOverflowingEnergy')   -- this annoys the fuck out of em and makes them build energystoages too much
                                end
                            end
                        end
                        local fontSize = (orgHeight * (1 + (ui_scale - 1) / 1.33) / 4) * widgetScale
                        local textWidth = font2:GetTextWidth(text) * fontSize

                        -- background
                        local color1, color2
                        if res == 'metal' or res == 'energy' then
                            if res == 'metal' then
                                if allyteamOverflowingMetal then
                                    color1 = { 0.35, 0.1, 0.1, 1 }
                                    color2 = { 0.25, 0.05, 0.05, 1 }
                                else
                                    color1 = { 0.35, 0.35, 0.35, 1 }
                                    color2 = { 0.25, 0.25, 0.25, 1 }
                                end
                            else
                                if allyteamOverflowingEnergy then
                                    color1 = { 0.35, 0.1, 0.1, 1 }
                                    color2 = { 0.25, 0.05, 0.05, 1 }
                                else
                                    color1 = { 0.35, 0.25, 0, 1 }
                                    color2 = { 0.25, 0.16, 0, 1 }
                                end
                            end
                            RectRound(resbarArea[res][3] - textWidth, resbarArea[res][2] - 15.5 * widgetScale, resbarArea[res][3], resbarArea[res][2], 3.7 * widgetScale, 0, 0, 1, 1, color1, color2)
                            if res == 'metal' then
                                if allyteamOverflowingMetal then
                                    color1 = { 1, 0.3, 0.3, 0.25 }
                                    color2 = { 1, 0.3, 0.3, 0.44 }
                                else
                                    color1 = { 1, 1, 1, 0.25 }
                                    color2 = { 1, 1, 1, 0.44 }
                                end
                            else
                                if allyteamOverflowingEnergy then
                                    color1 = { 1, 0.3, 0.3, 0.25 }
                                    color2 = { 1, 0.3, 0.3, 0.44 }
                                else
                                    color1 = { 1, 0.88, 0, 0.25 }
                                    color2 = { 1, 0.88, 0, 0.44 }
                                end
                            end
                            RectRound(resbarArea[res][3] - textWidth + bgpadding2, resbarArea[res][2] - 15.5 * widgetScale + bgpadding2, resbarArea[res][3] - bgpadding2, resbarArea[res][2], 2.8 * widgetScale, 0, 0, 1, 1, color1, color2)
                        end

                        font2:Begin()
                        font2:SetTextColor(1, 0.88, 0.88, 1)
                        font2:SetOutlineColor(0.2, 0, 0, 0.6)
                        if res ~= 'BP' then
                            font2:Print(text, resbarArea[res][3], resbarArea[res][2] - 9.3 * widgetScale, fontSize, 'or')
                        elseif config.drawBPBar then
                            local offset = 0

                            local warning_lowlight = { 0.35, 0.1, 0.1, 1 }
                            local warning_highlight = { 0.25, 0.05, 0.05, 1 }
                            local info_lowlight = { 0.20, 0.20, 0.20, 1 }
                            local info_highlight = { 0.12, 0.12, 0.12, 1 }
                            if notifyMetalStall then
                                offset = showBuildpowerAlert(resbarArea[res], 'Need metal', fontSize, warning_lowlight, warning_highlight, offset, bgpadding2)
                            end

                            if notifyEnergyStall then
                                offset = showBuildpowerAlert(resbarArea[res], 'Need energy', fontSize, warning_lowlight, warning_highlight, offset, bgpadding2)
                            end

                            if notifyBPSurplus then
                                offset = showBuildpowerAlert(resbarArea[res], 'Too much buildpower', fontSize, info_lowlight, info_highlight, offset, bgpadding2)
                            end

                            if notifyBPDeficit then
                                offset = showBuildpowerAlert(resbarArea[res], 'Need buildpower', fontSize, info_lowlight, info_highlight, offset, bgpadding2)
                            end

                            if notifyBPIdle then
                                offset = showBuildpowerAlert(resbarArea[res], 'Idle buildpower', fontSize, info_lowlight, info_highlight, offset, bgpadding2)
                            end
                        end

                        font2:End()
                    end
                else
                    showOverflowTooltip[res] = nil
                end
            end
        end)
    end
end

function showBuildpowerAlert(resourceArea, text, fontSize, lowlightColor, highlightColor, offset, padding)
    text = '   ' .. text .. '   '
    local textWidth = font2:GetTextWidth(text) * fontSize
    -- The gradient has the lowlight color at the bottom and the highlight color at the top.
    RectRound(resourceArea[3] - (offset + textWidth) + padding, resourceArea[2] - 15.5 * widgetScale + padding, resourceArea[3] - offset - padding, resourceArea[2], 2.8 * widgetScale, 0, 0, 1, 1, lowlightColor, highlightColor)
    font2:Print(text, resourceArea[3] - offset, resourceArea[2] - 9.3 * widgetScale , fontSize, 'or')
    return offset + textWidth
end

local function updateResbar(res)  --decides where and what is drawn
    local area = resbarArea[res]

    if dlistResbar[res][1] ~= nil then
        glDeleteList(dlistResbar[res][1])
        glDeleteList(dlistResbar[res][2])
    end
    local barHeight = math_floor((height * widgetScale / 7) + 0.5)
    local barHeightPadding = math_floor(((height / 4.4) * widgetScale) + 0.5) --((height/2) * widgetScale) - (barHeight/2)
    --local barLeftPadding = 2 * widgetScale
    local barLeftPadding = math_floor(47 * widgetScale) --xxx 53*
    local barRightPadding = math_floor(14.5 * widgetScale)
    local barHorizontalPadding_BP = barRightPadding
    local barArea = { area[1] + math_floor((height * widgetScale) + barLeftPadding), area[2] + barHeightPadding, area[3] - barRightPadding, area[2] + barHeight + barHeightPadding }
    local sliderHeightAdd = math_floor(barHeight / 1.55)
    local shareSliderWidth = barHeight + sliderHeightAdd + sliderHeightAdd
    local barWidth = barArea[3] - barArea[1]
    local glowSize = barHeight * 7
    local edgeWidth = math_max(1, math_floor(vsy / 1100))

    if not showQuitscreen and resbarHover ~= nil and resbarHover == res then
        sliderHeightAdd = barHeight / 0.75
        shareSliderWidth = barHeight + sliderHeightAdd + sliderHeightAdd
    end
    shareSliderWidth = math_ceil(shareSliderWidth)

    if res == 'metal' then
        resbarDrawinfo[res].barColor = { 1, 1, 1, 1 }
    elseif res == 'energy' then
        resbarDrawinfo[res].barColor = { 1, 1, 0, 1 }
    elseif res == 'BP'  and config.drawBPBar == true then
        resbarDrawinfo[res].barColor = { 0, 1, 0, 1 }
    end
    resbarDrawinfo[res].barArea = barArea

    resbarDrawinfo[res].barTexRect = { barArea[1], barArea[2], barArea[1] + ((r[res][1] / r[res][2]) * barWidth), barArea[4] }
    resbarDrawinfo[res].barGlowMiddleTexRect = { resbarDrawinfo[res].barTexRect[1], resbarDrawinfo[res].barTexRect[2] - glowSize, resbarDrawinfo[res].barTexRect[3], resbarDrawinfo[res].barTexRect[4] + glowSize }
    resbarDrawinfo[res].barGlowLeftTexRect = { resbarDrawinfo[res].barTexRect[1] - (glowSize * 2.5), resbarDrawinfo[res].barTexRect[2] - glowSize, resbarDrawinfo[res].barTexRect[1], resbarDrawinfo[res].barTexRect[4] + glowSize }
    resbarDrawinfo[res].barGlowRightTexRect = { resbarDrawinfo[res].barTexRect[3] + (glowSize * 2.5), resbarDrawinfo[res].barTexRect[2] - glowSize, resbarDrawinfo[res].barTexRect[3], resbarDrawinfo[res].barTexRect[4] + glowSize }

    local storageColor = "\255\150\150\100"
    local pullColor = "\255\210\100\100"
    local expenseColor = "\255\210\100\100"
    local incomeColor = "\255\100\210\100"

    if res == 'BP' and config.drawBPBar == true then
        resbarDrawinfo[res].barArea = { area[1] + barHorizontalPadding_BP, barArea[2], area[3] - barHorizontalPadding_BP, barArea[4] }
        storageColor = "\100\125\125\100"
        pullColor = "\100\255\0\100"
        expenseColor = "\100\150\0\100"
        incomeColor = "\100\100\100\100"
    end

    resbarDrawinfo[res].textStorage = { storageColor .. short(r[res][2]), barArea[3], barArea[2] + barHeight * 2.1, (height / 3.2) * widgetScale, 'ord' }
    resbarDrawinfo[res].textPull = { pullColor .. short(r[res][3]), barArea[1] - (10 * widgetScale), barArea[2] + barHeight * 2.15, (height / 3) * widgetScale, 'ord' }
    resbarDrawinfo[res].textExpense = { expenseColor .. short(r[res][5]), barArea[1] + (10 * widgetScale), barArea[2] + barHeight * 2.15, (height / 3) * widgetScale, 'old' }   
    resbarDrawinfo[res].textIncome = { incomeColor .. short(r[res][4]), barArea[1] - (10 * widgetScale), barArea[2] - (barHeight * 0.55), (height / 3) * widgetScale, 'ord' }
    resbarDrawinfo[res].textCurrent = { short(r[res][1]), barArea[1] + barWidth / 2, barArea[2] + barHeight * 1.8, (height / 2.5) * widgetScale, 'ocd' }
    if res == 'BP' then
        barArea = resbarDrawinfo[res].barArea
        barWidth = barArea[3] - barArea[1]
        if not config.proMode then
            resbarDrawinfo[res].textCurrent = { short(r[res][2]), barArea[3], barArea[2] + barHeight * 1.8, (height / 2.5) * widgetScale, 'ord' } -- right-aligned
        end
    end

    -- add background blur
    if dlistResbar[res][0] ~= nil then
        if WG['guishader'] then
            WG['guishader'].RemoveDlist('topbar_' .. res)
        end
        glDeleteList(dlistResbar[res][0])
    end
    dlistResbar[res][0] = glCreateList(function()
        RectRound(area[1], area[2], area[3], area[4], 5.5 * widgetScale, 0, 0, 1, 1)
    end)

    dlistResbar[res][1] = glCreateList(function()
        UiElement(area[1], area[2], area[3], area[4], 0, 0, 1, 1)

        if WG['guishader'] then
            WG['guishader'].InsertDlist(dlistResbar[res][0], 'topbar_' .. res)
        end

        -- Icon
        glColor(1, 1, 1, 1)
        local iconPadding = math_floor((area[4] - area[2]) / 9) --xxx /7
        local barHorizontalPadding_BP = math_floor(14.5 * widgetScale)
        local iconSize = math_floor(area[4] - area[2] - iconPadding - iconPadding)
        if res == 'BP' then
            iconSize = height / 3
        end
        local bgpaddingHalf = math_floor((bgpadding * 0.5) + 0.5)
        local texSize = math_floor(iconSize * 2)
        if res == 'metal' then
            glTexture(":lr" ..texSize ..", " ..texSize ..":LuaUI/Images/metal.png")
        elseif res == 'energy' then

            glTexture(":lr" ..texSize ..", " ..texSize ..":LuaUI/Images/energy.png") 
        elseif config.drawBPBar == true then
            glColor(1, 0.9, 0.2, 1)
            glTexture(":lr" ..texSize ..", " ..texSize ..":LuaUI/images/stripes.png") --for bp bar only
        end

        if res == 'BP' then
            TexturedRectRound(area[1] + barHorizontalPadding_BP, area[4] - bgpaddingHalf - iconPadding - iconSize, area[1] + barHorizontalPadding_BP + iconSize, area[4] - bgpaddingHalf - iconPadding,
                iconSize * 0.2, -- corner radius
                1, 1, 1, 1, -- corners
                iconSize * 1, 0)
        else
            glTexRect(area[1] + bgpaddingHalf + iconPadding, area[2] + bgpaddingHalf + iconPadding, area[1] + bgpaddingHalf + iconPadding + iconSize, area[4] + bgpaddingHalf - iconPadding)
        end
        glTexture(false)

        -- Bar background
        local addedSize = math_floor(((barArea[4] - barArea[2]) * 0.15) + 0.5)
        local borderSize = 1
        local fullBarColorLow = { 0, 0, 0, 0.12 } -- bottom (lowlight)
        local fullBarColorHigh = { 0, 0, 0, 0.15 } -- top (highlight)
        if res == 'BP' then
            -- red background, since unused BP is a problem
            fullBarColorLow = { 1, 0, 0, 0.22 } -- bottom (lowlight)
            fullBarColorHigh = { 1, 0, 0, 0.25 } -- top (highlight)
        end
        RectRound(barArea[1] - edgeWidth + borderSize, barArea[2] - edgeWidth + borderSize, barArea[3] + edgeWidth - borderSize, barArea[4] + edgeWidth - borderSize, barHeight * 0.2, 1, 1, 1, 1, fullBarColorLow, fullBarColorHigh)

        gl.Texture(noiseBackgroundTexture)
        gl.Color(1, 1, 1, 0.16)
        TexturedRectRound(barArea[1] - edgeWidth, barArea[2] - edgeWidth, barArea[3] + edgeWidth, barArea[4] + edgeWidth, barHeight * 0.33, 1, 1, 1, 1, barWidth * 0.33, 0)
        gl.Texture(false)

        glBlending(GL_SRC_ALPHA, GL_ONE)
        RectRound(barArea[1] - addedSize - edgeWidth, barArea[2] - addedSize - edgeWidth, barArea[3] + addedSize + edgeWidth, barArea[4] + addedSize + edgeWidth, barHeight * 0.33, 1, 1, 1, 1, { 0, 0, 0, 0.1 }, { 0, 0, 0, 0.1 })
        RectRound(barArea[1] - addedSize, barArea[2] - addedSize, barArea[3] + addedSize, barArea[4] + addedSize, barHeight * 0.33, 1, 1, 1, 1, { 0.15, 0.15, 0.15, 0.2 }, { 0.8, 0.8, 0.8, 0.16 })
        -- gloss
        RectRound(barArea[1] - addedSize, barArea[2] + addedSize, barArea[3] + addedSize, barArea[4] + addedSize, barHeight * 0.33, 1, 1, 0, 0, { 1, 1, 1, 0 }, { 1, 1, 1, 0.07 })
        RectRound(barArea[1] - addedSize, barArea[2] - addedSize, barArea[3] + addedSize, barArea[2] + addedSize + addedSize + addedSize, barHeight * 0.2, 0, 0, 1, 1, { 1, 1, 1, 0.1 }, { 1, 1, 1, 0.0 })
        glBlending(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)
    end)

    dlistResbar[res][2] = glCreateList(function()
        -- Metalmaker Conversion slider
        if res == 'energy' then
            mmLevel = Spring.GetTeamRulesParam(myTeamID, 'mmLevel')
            local convValue = mmLevel
            if draggingConversionIndicatorValue then
                convValue = draggingConversionIndicatorValue / 100
            end
            if convValue == nil then
                convValue = 1
            end
            conversionIndicatorArea = { math_floor(barArea[1] + (convValue * barWidth) - (shareSliderWidth / 2)), math_floor(barArea[2] - sliderHeightAdd), math_floor(barArea[1] + (convValue * barWidth) + (shareSliderWidth / 2)), math_floor(barArea[4] + sliderHeightAdd) }
            local cornerSize
            if not showQuitscreen and resbarHover ~= nil and resbarHover == res then
                cornerSize = 2 * widgetScale
            else
                cornerSize = 1.33 * widgetScale
            end
            UiSliderKnob(math_floor(conversionIndicatorArea[1]+((conversionIndicatorArea[3]-conversionIndicatorArea[1])/2)), math_floor(conversionIndicatorArea[2]+((conversionIndicatorArea[4]-conversionIndicatorArea[2])/2)), math_floor((conversionIndicatorArea[3]-conversionIndicatorArea[1])/2), { 0.95, 0.95, 0.7, 1 })
        end
        --show usefulBPFactor
        local ignore = false
        if ignore ~= true then
            for i = 1, 1 do
                if res == 'BP' and config.drawBPIndicators then
                    local texWidth = 1.0 * shareSliderWidth
                    local texHeight = math_floor( shareSliderWidth / 2 ) - 1
                    local indicatorPosM = BP['mSliderPosition']
                    local indicatorPosE = BP['eSliderPosition']
                    local indicatorAreaMultiplyerM = 1
                    local indicatorAreaMultiplyerE = 1

                    if playerStallingMetal == true then
                        indicatorAreaMultiplyerM = 1.4
                    end
                    if playerStallingEnergy == true then
                        indicatorAreaMultiplyerE = 1.4
                    end

                    local indicatorH = barHeight -- how tall are the metal-supported-BP and energy-supported-BP indicators?
                    local barIntrusion = barHeight * 0.4 -- how much of the BP bar can be obscured (vertically) by one of these indicators?
                    local indicatorW = indicatorH * 1.2 -- 1.0 would bring the indicator to a perfect point, sort of like a home plate in baseball, but 1.2 gives a little extra softness and visual weight
                    local cornerSize = indicatorH / 2
                    local metalIndicatorHalfWidth = indicatorW * indicatorAreaMultiplyerM / 2
                    local energyIndicatorHalfWidth = indicatorW * indicatorAreaMultiplyerE / 2

                    -- Indicator for buildpower that current METAL income can support. This is shown along the BOTTOM edge of the BP bar.
                    if indicatorPosM ~= nil then
                        RectRound(
                            barArea[1] + (indicatorPosM * barWidth) - metalIndicatorHalfWidth, -- left
                            barArea[2] + (barIntrusion - indicatorH * indicatorAreaMultiplyerM), -- bottom of the bar, plus an intrusion upward, minus the indicator's height
                            barArea[1] + (indicatorPosM * barWidth) + metalIndicatorHalfWidth, -- right
                            barArea[2] + barIntrusion, -- bottom of the bar, plus an intrusion upward
                            cornerSize * indicatorAreaMultiplyerM,
                            1, 1, 0, 0, -- round TopLeft, TopRight, but not BottomRight, BottomLeft (so it looks like it's pointing upward)
                            { 0.6, 0.6, 0.6, 1 }, -- lowlight color (RGBA)
                            { 1,   1,   1,   1 }) -- highlight color (RGBA)
                    end

                    if indicatorPosE ~= nil then
                        -- Indicator for the range of buildpower that energy COULD support if the wind changes.
                        if config.drawBPWindRangeIndicators and numWindGenerators > 0 and BP['eSliderPosition_minWind'] ~= nil and BP['eSliderPosition_maxWind'] ~= nil then
                            -- Draw a thin rectangle showing the possible positions of the E-supported BP slider based on min and max wind conditions.
                            RectRound(
                                barArea[1] + (BP['eSliderPosition_minWind'] * barWidth) - energyIndicatorHalfWidth, -- left
                                barArea[4] + barIntrusion, -- top of the bar, plus an intrusion upward
                                barArea[1] + (BP['eSliderPosition_maxWind'] * barWidth) + energyIndicatorHalfWidth, -- right
                                barArea[4] - barIntrusion + indicatorH, -- to the top of the E indicator assuming no multiplier
                                (indicatorH * 1 - 2 * barIntrusion) / 2, -- corner size
                                0, 0, 0, 0, -- don't round any corners
                                { 0.8, 0.8, 0.0, 1 }, -- lowlight color (RGBA)
                                { 0.4, 0.4, 0.0, 1 }) -- highlight color (RGBA)
                        end

                        -- Indicator for buildpower that current ENERGY income can support. This is shown along the TOP edge of the BP bar.
                        RectRound(
                            barArea[1] + (indicatorPosE * barWidth) - energyIndicatorHalfWidth, -- left
                            barArea[4] - barIntrusion, -- top of the bar, minus an intrusion downward
                            barArea[1] + (indicatorPosE * barWidth) + energyIndicatorHalfWidth, -- right
                            barArea[4] - barIntrusion + indicatorH * indicatorAreaMultiplyerE, -- top of the bar, minus an intrusion downward, plus the indicator's height
                            cornerSize * indicatorAreaMultiplyerE,
                            0, 0, 1, 1, -- don't round TopLeft, TopRight but round BottomRight, BottomLeft (so it looks like it's pointing downward)
                            {0.8, 0.8, 0.0, 1}, -- lowlight color (RGBA)
                            { 1, 1, 0.2, 1 }) -- highlight color (RGBA)
                    end

                    Log("sliders end" ..i)
                end
            end
        end
        -- Share slider
        if not isSingle then
            if res ~= 'BP' then
                if res == 'energy' then
                    eneryOverflowLevel = r[res][6]
                else
                    metalOverflowLevel = r[res][6]
                end
                local value = r[res][6]
                if draggingShareIndicator and draggingShareIndicatorValue[res] ~= nil then
                    value = draggingShareIndicatorValue[res]
                else
                    draggingShareIndicatorValue[res] = value
                end
                shareIndicatorArea[res] = { math_floor(barArea[1] + (value * barWidth) - (shareSliderWidth / 2)), math_floor(barArea[2] - sliderHeightAdd), math_floor(barArea[1] + (value * barWidth) + (shareSliderWidth / 2)), math_floor(barArea[4] + sliderHeightAdd) }
                local cornerSize
                if not showQuitscreen and resbarHover ~= nil and resbarHover == res then
                    cornerSize = 2 * widgetScale
                else
                    cornerSize = 1.33 * widgetScale
                end
                UiSliderKnob(math_floor(shareIndicatorArea[res][1]+((shareIndicatorArea[res][3]-shareIndicatorArea[res][1])/2)), math_floor(shareIndicatorArea[res][2]+((shareIndicatorArea[res][4]-shareIndicatorArea[res][2])/2)), math_floor((shareIndicatorArea[res][3]-shareIndicatorArea[res][1])/2), { 0.85, 0, 0, 1 })
            end
        end
    end)
    local resourceTranslations = {
        metal = Spring.I18N('ui.topbar.resources.metal'), 
        energy = Spring.I18N('ui.topbar.resources.energy')
    }

    local resourceName = resourceTranslations[res]

    -- add tooltips
    if WG['tooltip'] ~= nil and conversionIndicatorArea then  -- tool tips 
        if res == 'energy' then -- tool tips for share sliders
            WG['tooltip'].AddTooltip(res .. '_share_slider', { resbarDrawinfo[res].barArea[1], shareIndicatorArea[res][2], conversionIndicatorArea[1], shareIndicatorArea[res][4] }, Spring.I18N('ui.topbar.resources.shareEnergyTooltip'), nil, Spring.I18N('ui.topbar.resources.shareEnergyTooltipTitle'))
            WG['tooltip'].AddTooltip(res .. '_share_slider2', { conversionIndicatorArea[3], shareIndicatorArea[res][2], resbarDrawinfo[res].barArea[3], shareIndicatorArea[res][4] }, Spring.I18N('ui.topbar.resources.shareEnergyTooltip'), nil, Spring.I18N('ui.topbar.resources.shareEnergyTooltipTitle'))
            WG['tooltip'].AddTooltip(res .. '_metalmaker_slider', conversionIndicatorArea, Spring.I18N('ui.topbar.resources.conversionTooltip'), nil, Spring.I18N('ui.topbar.resources.conversionTooltipTitle'))
        else
            WG['tooltip'].AddTooltip(res .. '_share_slider', { resbarDrawinfo[res].barArea[1], shareIndicatorArea[res][2], resbarDrawinfo[res].barArea[3], shareIndicatorArea[res][4] }, Spring.I18N('ui.topbar.resources.shareMetalTooltip'), nil, Spring.I18N('ui.topbar.resources.shareMetalTooltipTitle'))
        end
        if res == 'BP' and config.drawBPBar == true then -- for bp bar only
            -- TODO: ensure these are consistent with text/highlight colors elsewhere in BAR.
            local textColor = '\255\215\215\215'
            local highlightColor = '\255\255\255\255'
            local avgTotalReservedBP = math_round(BP[3])
            local totalAvailableBP = BP[4]
            local avgTotalUsedBP = math_round(BP[5])

            local reservedDesc = "(Reserved: in-use, walking to a job, or stalled.)"
            local idleDesc = " idle BP (red)."
            if config.includeConsBeingBuilt and config.countStalledAsIdle then
                reservedDesc = "(Reserved: being built, in-use, or walking to a job.)"
                idleDesc = " idle BP (red), including stalled BP."
            elseif config.includeConsBeingBuilt then
                reservedDesc = "(Reserved: being built, in-use, walking to a job, or stalled.)"
            elseif config.countStalledAsIdle then
                idleDesc = " idle BP (red), including stalled BP."
            end

            --WG['tooltip'].RemoveTooltip(res .. '_all')
            local bpTooltipTitle = "Buildpower"
            local bpTooltipText = textColor .. "You have a total of " .. highlightColor .. totalAvailableBP .. textColor .. " buildpower (BP).\n"
                .. textColor .. "You are using " .. highlightColor .. avgTotalUsedBP .. textColor .. " BP (green), "
                .. textColor .. "with " .. highlightColor .. avgTotalReservedBP .. textColor .. " reserved (dark green).\n"
                .. textColor .. reservedDesc .. "\n\n"
                .. textColor .. "You have " .. highlightColor .. (totalAvailableBP - avgTotalReservedBP) .. textColor .. idleDesc

            if config.drawBPIndicators and BP['mSliderPosition'] ~= nil and BP['eSliderPosition'] ~= nil then
                bpTooltipText = bpTooltipText .. "\n\n"
                    .. textColor .."If no builders were idle, your metal and energy income\n"
                    .. textColor .."would support an estimated " .. highlightColor .. math_ceil(BP['mSliderPosition'] * 100) .. textColor .. "% and ".. highlightColor .. math_ceil(BP['eSliderPosition'] * 100) .. textColor .. "% of your BP\n"
                    .. textColor .."(grey and yellow indicators on bar)."
            end

            if config.debugTooltip then
                local eIncomeNoWind = BP['energyIncomeNoWind']
                if eIncomeNoWind == nil then
                    eIncomeNoWind = 0
                end

                local nBuilders = 0
                local nBuiltBuilders = 0
                for k, v in pairs(trackedBuilders) do
                    currentUnitBP = v[1]
                    unitIsBuilt = v[2]
                    nBuilders = nBuilders + 1
                    if unitIsBuilt then
                        nBuiltBuilders = nBuiltBuilders + 1
                    end
                end

                bpTooltipText = bpTooltipText
                    .. "\n\nDEBUG:"
                    .. float_to_s(avgTotalUsedBP) .. " BP used (smoothed), " .. float_to_s(BP['usedBPIfNoStall']) .. " if no stall \n"
                    .. tostring(nBuilders) .. " tracked builders\n"
                    .. tostring(nBuiltBuilders) .. " built builders\n"
                    .. float_to_s(BP['usedBPExceptStalled']) .. " BP non-stalled\n"
                    .. tostring(BP[4]) .. " total BP \n"
                    .. float_to_s(BP['metalExpense']) .." M, " .. float_to_s(BP['energyExpense']) .." E spent by all units\n"
                    .. float_to_s(BP['usedBPMetalExpense']) .." M spent by builders, \n"
                    .. float_to_s(BP['usedBPEnergyExpense']) .. " E spent by builders, \n"
                    .. float_to_s(BP['nonBPMetalExpense']) .. " M spent by non-builders, \n"
                    .. float_to_s(BP['nonBPEnergyExpense']) .. " E spent by non-builders, \n"
                    .. float_to_s(BP['metalExpense']) .. " / " .. float_to_s(BP['energyExpense']) .. " metal/energy expense, \n"
                    .. float_to_s(BP['metalExpensePerBP']) .. " / " .. float_to_s(BP['energyExpensePerBP']) .. " M/E expense per BP, \n"
                    .. float_to_s(BP['energyIncome']) .." E income\n"
                    .. float_to_s(numWindGenerators) .." wind generators\n"
                    .. "\nprojections:\n"
                    .. float_to_s(eIncomeNoWind) .." E income without wind\n"
                    .. float_to_s(BP['metalExpenseIfAllBPUsed']) .. " M spent if all BP is used, \n"
                    .. float_to_s(BP['energyExpenseIfAllBPUsed']) .. " E spent if all BP is used, \n"
                    .. float_to_s(BP['metalSupportedBP']) .. " BP supported by M income, \n"
                    .. float_to_s(BP['energySupportedBP']) .. " BP supported by E income,\n\n" .. versionString
            end

            -- One tooltip for the entire BP area, which isn't that big.
            WG['tooltip'].AddTooltip(res .. '_all', {
                    resbarDrawinfo[res].barArea[1],--resbarArea[res][1],
                    resbarDrawinfo[res].barArea[2],--resbarArea[res][2],
                    resbarDrawinfo[res].barArea[3],--resbarArea[res][3],
                    resbarDrawinfo[res].barArea[4],--resbarArea[res][4],
                },
                bpTooltipText, nil, bpTooltipTitle)

            local bpSurplus = BP['buildpowerSurplus']

            local currentTooltipText = ""
            if config.proMode then
                if bpSurplus ~= nil then
                    if bpSurplus == 0 then
                        currentTooltipText = textColor .. "You have just enough buildpower to keep up with your income"
                    elseif bpSurplus > 0 then
                        currentTooltipText = textColor .. "You have " .. highlightColor .. bpSurplus .. textColor .. " buildpower more than you need " .. textColor .. "to keep up with your income"
                    else
                        currentTooltipText = textColor .. "You need " .. highlightColor .. -bpSurplus .. textColor .. " more buildpower " .. textColor .. "to keep up with your income"
                    end
                end
            elseif BP[4] > 0 then
                currentTooltipText = textColor .. "You are using " .. highlightColor .. math_min(100, math_round(BP[3] * 100 / BP[4])) .. textColor .. "% of your buildpower."
            end
            if currentTooltipText ~= "" then
                WG['tooltip'].AddTooltip(res .. '_Current', {
                    resbarDrawinfo[res].textCurrent[2] - (resbarDrawinfo[res].textCurrent[4] * 2.5),
                    resbarDrawinfo[res].textCurrent[3],
                    resbarDrawinfo[res].textCurrent[2] + (resbarDrawinfo[res].textCurrent[4] * 0.5),
                    resbarDrawinfo[res].textCurrent[3] + resbarDrawinfo[res].textCurrent[4]
                }, currentTooltipText)
            else
                WG['tooltip'].RemoveTooltip(res .. '_Current')
            end

        elseif res ~= 'BP' then
            WG['tooltip'].AddTooltip(res .. '_pull', { resbarDrawinfo[res].textPull[2] - (resbarDrawinfo[res].textPull[4] * 2.5), resbarDrawinfo[res].textPull[3], resbarDrawinfo[res].textPull[2] + (resbarDrawinfo[res].textPull[4] * 0.5), resbarDrawinfo[res].textPull[3] + resbarDrawinfo[res].textPull[4] }, Spring.I18N('ui.topbar.resources.pullTooltip', { resource = resourceName }))  
            WG['tooltip'].AddTooltip(res .. '_income', { resbarDrawinfo[res].textIncome[2] - (resbarDrawinfo[res].textIncome[4] * 2.5), resbarDrawinfo[res].textIncome[3], resbarDrawinfo[res].textIncome[2] + (resbarDrawinfo[res].textIncome[4] * 0.5), resbarDrawinfo[res].textIncome[3] + resbarDrawinfo[res].textIncome[4] }, Spring.I18N('ui.topbar.resources.incomeTooltip', { resource = resourceName })) 
            WG['tooltip'].AddTooltip(res .. '_expense', { resbarDrawinfo[res].textExpense[2] - (4 * widgetScale), resbarDrawinfo[res].textExpense[3], resbarDrawinfo[res].textExpense[2] + (30 * widgetScale), resbarDrawinfo[res].textExpense[3] + resbarDrawinfo[res].textExpense[4] }, Spring.I18N('ui.topbar.resources.expenseTooltip', { resource = resourceName })) 
            WG['tooltip'].AddTooltip(res .. '_storage', { resbarDrawinfo[res].textStorage[2] - (resbarDrawinfo[res].textStorage[4] * 2.75), resbarDrawinfo[res].textStorage[3], resbarDrawinfo[res].textStorage[2], resbarDrawinfo[res].textStorage[3] + resbarDrawinfo[res].textStorage[4] }, Spring.I18N('ui.topbar.resources.storageTooltip', { resource = resourceName })) 
        end
    end
end


local function drawResbarValues(res, updateText) --drawing the bar itself and value of stored res
    Log("drawResbarValues")
    if res ~= 'BP' or config.drawBPBar then
        local cappedCurRes = r[res][1]    -- limit so when production dies the value wont be much larger than what you can store
    
        if r[res][1] > r[res][2] * 1.07 then
            cappedCurRes = r[res][2] * 1.07
        end

        local barHeight = resbarDrawinfo[res].barArea[4] - resbarDrawinfo[res].barArea[2]
        local barWidth = resbarDrawinfo[res].barArea[3] - resbarDrawinfo[res].barArea[1]
        local valueWidth 
        local additionalWidth = 0  
        if res == 'BP' and config.drawBPBar == true then -- for bp bar only
            local totalBP = math_max(1, r[res][4])
            local reservedBP = math_min(totalBP, r[res][3])
            local usedBP = math_min(totalBP, r[res][5])

            valueWidth = math_floor(((usedBP / totalBP) * barWidth))
            if valueWidth > barWidth then
                valueWidth = barWidth
            end
            -- Show reserved BP as a proportion of total BP
            additionalWidth = math_floor((reservedBP / totalBP) * barWidth) - valueWidth
            if additionalWidth < math_ceil(barHeight * 0.2) or math_ceil(barHeight * 0.2) > barWidth then
                additionalWidth = 0
            end
        else 
            valueWidth = math_floor(((cappedCurRes / r[res][2]) * barWidth)) -- this is needed even if no bp bar
        end
        if valueWidth < math_ceil(barHeight * 0.2) or r[res][2] == 0 then
            valueWidth = math_ceil(barHeight * 0.2)
        end
        local uniqueKey = valueWidth * 10000 + additionalWidth -- for bp bar only
        if not dlistResValuesBar[res][uniqueKey] then
            dlistResValuesBar[res][uniqueKey] = glCreateList(function()
                local glowSize = (resbarDrawinfo[res].barArea[4] - resbarDrawinfo[res].barArea[2]) * 7
                local color1, color2, glowAlpha
                if res == 'metal' then
                    color1 = { 0.51, 0.51, 0.5, 1 }
                    color2 = { 0.95, 0.95, 0.95, 1 }
                    glowAlpha = 0.025 + (0.05 * math_min(1, cappedCurRes / r[res][2] * 40))
                elseif res == 'energy' then
                    color1 = { 0.5, 0.45, 0, 1 }
                    color2 = { 0.8, 0.75, 0, 1 }
                    glowAlpha = 0.035 + (0.07 * math_min(1, cappedCurRes / r[res][2] * 40))
                elseif config.drawBPBar then -- for bp bar only
                    color1 = { 0.2, 0.65, 0, 1 }
                    color2 = { 0.5, 0.75, 0, 1 }
                    glowAlpha = 0.035 + (0.06 * math_min(1, cappedCurRes / r[res][2] * 40))
                end
                RectRound(resbarDrawinfo[res].barArea[1], resbarDrawinfo[res].barArea[2], resbarDrawinfo[res].barArea[1] + valueWidth, resbarDrawinfo[res].barArea[4], barHeight * 0.2, 1, 1, 1, 1, color1, color2)

                local borderSize = 1
                RectRound(resbarDrawinfo[res].barArea[1]+borderSize, resbarDrawinfo[res].barArea[2]+borderSize, resbarDrawinfo[res].barArea[1] + valueWidth-borderSize, resbarDrawinfo[res].barArea[4]-borderSize, barHeight * 0.2, 1, 1, 1, 1, { 0, 0, 0, 0.1 }, { 0, 0, 0, 0.17 })

                -- Bar value glow
                glBlending(GL_SRC_ALPHA, GL_ONE)
                glColor(resbarDrawinfo[res].barColor[1], resbarDrawinfo[res].barColor[2], resbarDrawinfo[res].barColor[3], glowAlpha)
                glTexture(barGlowCenterTexture)
                DrawRect(resbarDrawinfo[res].barGlowMiddleTexRect[1], resbarDrawinfo[res].barGlowMiddleTexRect[2], resbarDrawinfo[res].barGlowMiddleTexRect[1] + valueWidth, resbarDrawinfo[res].barGlowMiddleTexRect[4], 0.008)
                glTexture(barGlowEdgeTexture)
                DrawRect(resbarDrawinfo[res].barGlowLeftTexRect[1], resbarDrawinfo[res].barGlowLeftTexRect[2], resbarDrawinfo[res].barGlowLeftTexRect[3], resbarDrawinfo[res].barGlowLeftTexRect[4], 0.008)
                DrawRect((resbarDrawinfo[res].barGlowMiddleTexRect[1] + valueWidth) + (glowSize * 3), resbarDrawinfo[res].barGlowRightTexRect[2], resbarDrawinfo[res].barGlowMiddleTexRect[1] + valueWidth, resbarDrawinfo[res].barGlowRightTexRect[4], 0.008)
                glTexture(false)

                if res == 'BP' and config.drawBPBar then -- for bp bar only
                    local color1Secondary = { 0.1, 0.55, 0, 0.5 } 
                    local color2Secondary = { 0.3, 0.65, 0, 0.5 }
                    RectRound(resbarDrawinfo[res].barArea[1], resbarDrawinfo[res].barArea[2], resbarDrawinfo[res].barArea[1] + valueWidth + additionalWidth, resbarDrawinfo[res].barArea[4], barHeight * 0.2, 1, 1, 1, 1, color1Secondary, color2Secondary)
                end

                if res == 'metal' then
                    -- noise
                    gl.Texture(noiseBackgroundTexture)
                    gl.Color(1, 1, 1, 0.37)
                    TexturedRectRound(resbarDrawinfo[res].barArea[1], resbarDrawinfo[res].barArea[2], resbarDrawinfo[res].barArea[1] + valueWidth, resbarDrawinfo[res].barArea[4], barHeight * 0.2, 1, 1, 1, 1, barWidth * 0.33, 0)
                    gl.Texture(false)
                end

                glBlending(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)
            end)

        end
        glCallList(dlistResValuesBar[res][uniqueKey]) --uniqueKey for bp bar only

        if res == 'energy' or (res == 'BP' and config.drawBPBar) then --  or... is for bp bar only
            -- energy flow effect
            gl.Color(1, 1, 1, 0.33)
            glBlending(GL_SRC_ALPHA, GL_ONE)
            glTexture("LuaUI/Images/paralyzed.png")
            TexturedRectRound(resbarDrawinfo[res].barArea[1], resbarDrawinfo[res].barArea[2], resbarDrawinfo[res].barArea[1] + valueWidth, resbarDrawinfo[res].barArea[4], barHeight * 0.2, 0, 0, 1, 1, barWidth/0.5, -os.clock()/80)
            TexturedRectRound(resbarDrawinfo[res].barArea[1], resbarDrawinfo[res].barArea[2], resbarDrawinfo[res].barArea[1] + valueWidth, resbarDrawinfo[res].barArea[4], barHeight * 0.2, 0, 0, 1, 1, barWidth/0.33, os.clock()/70)
            TexturedRectRound(resbarDrawinfo[res].barArea[1], resbarDrawinfo[res].barArea[2], resbarDrawinfo[res].barArea[1] + valueWidth, resbarDrawinfo[res].barArea[4], barHeight * 0.2, 0, 0, 1, 1, barWidth/0.45, -os.clock()/55)
            glTexture(false)

            -- colorize a bit more (with added size)
            local addedSize = math_floor(((resbarDrawinfo[res].barArea[4] - resbarDrawinfo[res].barArea[2]) * 0.15) + 0.5)
            gl.Color(1, 1, 0, 0.14)
            RectRound(resbarDrawinfo[res].barArea[1]-addedSize, resbarDrawinfo[res].barArea[2]-addedSize, resbarDrawinfo[res].barArea[1] + valueWidth + addedSize, resbarDrawinfo[res].barArea[4] + addedSize, barHeight * 0.33)
            glBlending(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)
        end
        if updateText then
            currentResValue[res] = short(cappedCurRes)
            if not dlistResValues[res][currentResValue[res]] then

                local bpCurrentColor = { 0.7,  0.7,  0.7,  1.0 }
                local bpCurrentText = nil
                local suffix = ""

                if res == 'BP' and config.drawBPBar == true then
                    currentResValue[res] = ""
                    -- Should we show surplus BP, or percent-reserved?
                    if (not config.proMode) then
                        if BP[4] > 0 then
                            currentResValue[res] = math_min(100, math_round(BP[3] * 100 / BP[4]))
                            if     currentResValue[res] < 40 then bpCurrentColor = { 0.82, 0.39, 0.39, 1.0 } --Red
                            elseif currentResValue[res] < 60 then bpCurrentColor = { 1.0,  0.39, 0.39, 1.0 } --Orange
                            elseif currentResValue[res] < 80 then bpCurrentColor = { 1.0,  1.0,  0.39, 1.0 } --Yellow
                            else                                  bpCurrentColor = { 0.47, 0.92, 0.47, 1.0 } --Green
                            end
                            suffix = "%"
                        end
                    elseif BP['buildpowerSurplus'] then
                        currentResValue[res] = BP['buildpowerSurplus']
                        if     currentResValue[res] < -400 then bpCurrentColor = { 0.82, 0.39, 0.39, 1.0 } --Red
                        elseif currentResValue[res] < -300 then bpCurrentColor = { 1.0,  0.39, 0.39, 1.0 } --Orange
                        elseif currentResValue[res] < -100 then bpCurrentColor = { 1.0,  1.0,  0.39, 1.0 } --Yellow
                        elseif currentResValue[res] <    0 then bpCurrentColor = { 0.84, 0.90, 0.39, 1.0 } --Light Yellow
                        else                                    bpCurrentColor = { 0.7,  0.7,  0.7,  1.0 } --Grey: no judgment as to how _much_ surplus someone has, as long as it's non-negative
                        end
                    end
                end
                dlistResValues[res][currentResValue[res]] = glCreateList(function()
                    -- Text: current
                    font2:Begin()
                    if res == 'metal' then
                        font2:SetTextColor(0.95, 0.95, 0.95, 1)
                    elseif  res == 'energy' then
                        font2:SetTextColor(1, 1, 0.74, 1)
                    elseif config.drawBPBar then  -- for bp bar only
                        font2:SetTextColor(bpCurrentColor[1], bpCurrentColor[2], bpCurrentColor[3], bpCurrentColor[4])
                    end
                    -- Text: current
                    font2:SetOutlineColor(0, 0, 0, 1)
                    font2:Print(currentResValue[res] .. suffix, resbarDrawinfo[res].textCurrent[2], resbarDrawinfo[res].textCurrent[3], resbarDrawinfo[res].textCurrent[4], resbarDrawinfo[res].textCurrent[5])
                    font2:End()
                end)
            end
        end
        if res ~= 'BP' or config.drawBPBar == true then
            if dlistResValues[res][currentResValue[res]] then
                glCallList(dlistResValues[res][currentResValue[res]])
            end
        end
    end
    Log("drawResbarValues  end")
end

function init()
    r = { metal = { spGetTeamResources(myTeamID, 'metal') }, energy = { spGetTeamResources(myTeamID, 'energy') } }
    if config.drawBPBar then
        r['BP'] = BP
    end
    ui_scale = config.barScale * tonumber(Spring.GetConfigFloat("ui_scale", 1) or 1)
    height = orgHeight * (1 + (ui_scale - 1) / 1.7)
    topbarArea = { math_floor(xPos + (borderPadding * widgetScale)), math_floor(vsy - (height * widgetScale)), vsx, vsy }

    local filledWidth = 0
    local totalWidth = topbarArea[3] - topbarArea[1]
    local width = math_floor(totalWidth / 4.4) * config.barWidth
    local bpWidth = 0 -- width of buildpower bar
    local buttonWidth = math_floor(totalWidth / 4) -- buttons

    local maxTopBarWidth = totalWidth - buttonWidth
    local smallSections = 1 -- wind
    if displayTidalSpeed and checkTidalRelevant() then
        smallSections = smallSections + 1
    end
    if displayComCounter then
        smallSections = smallSections + 1
    end
    -- need room for wind/tidal/coms
    local smallSectionsWidth = math_floor((height * 1.18) * widgetScale + widgetSpaceMargin) * smallSections
    local maxTopBarWidth = totalWidth - buttonWidth * 1.5 - smallSectionsWidth - widgetSpaceMargin

    -- How much space should be used by metal, energy, and buildpower bars combined?
    local mebCombinedWidth = math_min(width * 2, maxTopBarWidth)
    if config.drawBPBar then
        mebCombinedWidth = math_min(width * 2 - widgetSpaceMargin, maxTopBarWidth) -- need an extra widgetSpaceMargin since we have an extra element
        -- 'width' is used for both metal and energy sections. We're stealing some of this space for buildpower.
        if config.proMode then
            bpWidth = math_floor(mebCombinedWidth / 3)
        else
            bpWidth = math_floor(mebCombinedWidth / 6)
        end
    end
    -- Split the remaining width equally between metal and energy
    width = math_floor((mebCombinedWidth - bpWidth) / 2)

    -- metal
    resbarArea['metal'] = { topbarArea[1] + filledWidth, topbarArea[2], topbarArea[1] + filledWidth + width, topbarArea[4] }
    filledWidth = filledWidth + width + widgetSpaceMargin
    updateResbar('metal')

    --energy
    resbarArea['energy'] = { topbarArea[1] + filledWidth, topbarArea[2], topbarArea[1] + filledWidth + width, topbarArea[4] }
    filledWidth = filledWidth + width + widgetSpaceMargin
    updateResbar('energy')

    -- buildpower
    if config.drawBPBar then
        resbarArea['BP'] = { topbarArea[1] + filledWidth, topbarArea[2], topbarArea[1] + filledWidth + bpWidth, topbarArea[4] }
        filledWidth = filledWidth + bpWidth + widgetSpaceMargin
        updateResbar('BP')
    end

    -- wind
    width = math_floor((height * 1.18) * widgetScale)
    windArea = { topbarArea[1] + filledWidth, topbarArea[2], topbarArea[1] + filledWidth + width, topbarArea[4] }
    filledWidth = filledWidth + width + widgetSpaceMargin
    updateWind()

    -- tidal
    if displayTidalSpeed then
        if not checkTidalRelevant() then
            displayTidalSpeed = false
        else
            width = math_floor((height * 1.18) * widgetScale)
            tidalarea = { topbarArea[1] + filledWidth, topbarArea[2], topbarArea[1] + filledWidth + width, topbarArea[4] }
            filledWidth = filledWidth + width + widgetSpaceMargin
            updateTidal()
        end
    end

    -- coms
    if displayComCounter then
        comsArea = { topbarArea[1] + filledWidth, topbarArea[2], topbarArea[1] + filledWidth + width, topbarArea[4] }
        filledWidth = filledWidth + width + widgetSpaceMargin
        updateComs()
    end

    -- buttons
    buttonsArea = { topbarArea[3] - buttonWidth, topbarArea[2], topbarArea[3], topbarArea[4] }
    updateButtons()

    if WG['topbar'] then
        WG['topbar'].GetPosition = function()
            return { topbarArea[1], topbarArea[2], topbarArea[3], topbarArea[4], widgetScale}
        end
        WG['topbar'].GetFreeArea = function()
            return { topbarArea[1] + filledWidth, topbarArea[2], topbarArea[3] - buttonWidth - widgetSpaceMargin, topbarArea[4], widgetScale}
        end
    end

    updateResbarText('metal')
    updateResbarText('energy')
    if config.drawBPBar == true then
        updateResbarText('BP')
    end
end

local function checkSelfStatus()
    myAllyTeamID = Spring.GetMyAllyTeamID()
    myAllyTeamList = Spring.GetTeamList(myAllyTeamID)
    myTeamID = Spring.GetMyTeamID()
    myPlayerID = Spring.GetMyPlayerID()
    if myTeamID ~= gaiaTeamID and UnitDefs[Spring.GetTeamRulesParam(myTeamID, 'startUnit')] then
        comTexture = ':n:Icons/'..UnitDefs[Spring.GetTeamRulesParam(myTeamID, 'startUnit')].name..'.png'
    end
end

local function countComs(forceUpdate)
    -- recount my own ally team coms
    local prevAllyComs = allyComs
    local prevEnemyComs = enemyComs
    allyComs = 0
    for _, teamID in ipairs(myAllyTeamList) do
        for unitDefID, _ in pairs(isCommander) do
            allyComs = allyComs + Spring.GetTeamUnitDefCount(teamID, unitDefID)
        end
    end

    local newEnemyComCount = Spring.GetTeamRulesParam(myTeamID, "enemyComCount")
    if type(newEnemyComCount) == 'number' then
        enemyComCount = newEnemyComCount
        if enemyComCount ~= prevEnemyComCount then
            comcountChanged = true
            prevEnemyComCount = enemyComCount
        end
    end

    if forceUpdate or allyComs ~= prevAllyComs or enemyComs ~= prevEnemyComs then
        comcountChanged = true
    end

    if comcountChanged then
        updateComs()
    end
end

function widget:GameStart()
    gameStarted = true
    checkSelfStatus()
    if displayComCounter then
        countComs(true)
    end
    init()
end

function widget:GameFrame(n)
    Log("n " ..n)
    spec = spGetSpectatingState()

    local bladeSpeedMultiplier = 0.2
    windRotation = windRotation + (currentWind * bladeSpeedMultiplier)
    gameFrame = n
    
    -- calculations for the exact metal and energy draw value

    Log("cache")
    local gameFrameFreq = 2 -- TODO: get this to 1
    local unp = unpack or table.unpack
    -- If we're supposed to draw the buildpower bar, do some calculations.
    -- Skip frames between calculations _unless_ we have too many builders to do them all in one frame, in which case nowChecking will be positive when the previous frame didn't finish.
    if config.drawBPBar and ((gameFrame % gameFrameFreq == 0) or nowChecking > 0) then
        gameStarted = true -- TODO: is this needed?
        local cacheTotalStallingM = 0
        local cacheTotalStallingE = 0

        --local totalAvailableBP = 0
        local cacheTotalReservedBP = 0
        local cacheTotallyUsedBP = 0

        -- How much metal and energy are being pulled by builders, specifically? (As opposed to metal extractors, etc.)
        local usedBPMetalExpense = 0
        local usedBPEnergyExpense = 0
        local buildingBP = 0 -- how much BP is actively building, regardless of how stalled it is?
        local nonStalledBuildingBP = 0 -- how much BP is actively building and not stalled?

        --local nowChecking = 0 -- counter for trackedUnits per frame
        --Log("." )
        --Log("." )
        --Log("trackedNum" ..trackedNum)

        -- We may have multiple constructors who are building the same unit. No need to call GetUnitDefID multiple times.
        local unitDefsBeingBuilt = {}

        -- Guarding counts as idle if we're guarding an idle builder.
        local builderStates = {}
        local unitsReservedBP = {}

        for unitID, unitData in pairs(trackedBuilders) do --calculation of exact pull
            -- TODO: this is bugged:
            -- (1) pairs() doesn't iterate in a deterministic fashion.
            -- (2) if we have 102 units and check 100 per frame, the first frame is checking units 1..100 and the second frame is checking units 1..2 instead of 101..102.
            if nowChecking >= trackPosBase then -- begin at trackedPos with calcs
                local currentUnitBP, unitIsBuilt, unitDefID, unitTeamID = unp(unitData)
                if (nowChecking >= trackPosBase + unitsPerFrame) or nowChecking > trackedNum then -- end at trackPosBase + unitsPerFrame with calcs
                    break
                end

                if not unitIsBuilt then
                    local isDead = Spring.GetUnitIsDead(unitID)
                    if isDead ~= false then -- unit is dead _or_ nonexistent
                        UntrackUnit(unitID, unitDefID, unitTeamID)
                    else
                        -- Units still being built count as reserved.
                        cacheTotalReservedBP = cacheTotalReservedBP + currentUnitBP
                        unitsReservedBP[unitID] = currentUnitBP
                    end
                else
                    local unitExists, foundActivity, builtUnitDefID, mayBeBuilding, guardedUnitID = findBPCommand(unitID, unitDefID, {CMD.REPAIR, CMD.RECLAIM, CMD.CAPTURE, CMD.GUARD})

                    if not unitExists then
                        UntrackUnit(unitID)
                    elseif not foundActivity then
                        builderStates[unitID] = { false, builtUnitDefID, guardedUnitID, currentUnitBP }
                    else

                        -- Assume all of this unit's buildpower is reserved.
                        unitsReservedBP[unitID] = currentUnitBP

                        -- This unit might be building, but we don't know what. See if it's building something.
                        if mayBeBuilding and not builtUnitDefID then
                            local builtUnitID = spGetUnitIsBuilding(unitID)
                            if builtUnitID ~= nil then
                                builtUnitDefID = unitDefsBeingBuilt[builtUnitID]
                                if builtUnitDefID == nil then
                                    builtUnitDefID = spGetUnitDefID(builtUnitID)
                                    unitDefsBeingBuilt[builtUnitID] = builtUnitDefID
                                end
                            end
                        end

                        builderStates[unitID] = { true, builtUnitDefID, guardedUnitID, currentUnitBP }

                        -- TODO: if we're guarding a constructor who's idle, should we be considered idle, too?
                        -- (We might be repairing the constructor even if we're not helping them build.
                        -- Maybe consider us idle if the unit we're guarding is idle _and_ full-health.)

                        if builtUnitDefID then

                            local _, currentlyUsedM, _, currentlyUsedE = spGetUnitResources(unitID)
                            usedBPMetalExpense = usedBPMetalExpense + currentlyUsedM
                            usedBPEnergyExpense = usedBPEnergyExpense + currentlyUsedE -- A builder may be cloaked, but not while it's building

                            --currentlyUsedBP = (Spring.GetUnitCurrentBuildPower(unitID) or 0) * currentUnitBP
                            currentlyUsedBP = currentlyUsedM / unitCostData[builtUnitDefID].MperBP -- everything costs at least 1 metal
                            buildingBP = buildingBP + currentUnitBP

                            local currentlyWantedM = unitCostData[builtUnitDefID].MperBP * currentUnitBP
                            local currentlyWantedE = unitCostData[builtUnitDefID].EperBP * currentUnitBP

                            -- Low-priority units don't have their pulled M/E reported correctly.
                            if checkPriority(unitID) == "low" then
                                cacheTotalStallingM = cacheTotalStallingM + currentlyWantedM - currentlyUsedM
                                cacheTotalStallingE = cacheTotalStallingE + currentlyWantedE - currentlyUsedE
                            end

                            local nonStalledRateM = 1
                            local nonStalledRateE = 1
                            if currentlyWantedM > 0 then
                                nonStalledRateM = currentlyUsedM / currentlyWantedM
                            end
                            if currentlyWantedE > 0 then
                                nonStalledRateE = currentlyUsedE / currentlyWantedE
                            end
                            nonStalledBuildingBP = nonStalledBuildingBP + currentUnitBP * math_min(nonStalledRateM, nonStalledRateE)

                            if currentlyUsedBP and currentlyUsedBP >= 0 then
                                cacheTotallyUsedBP = cacheTotallyUsedBP + currentlyUsedBP

                                -- This unit is building but might be stalled. Only count as reserved its BP which aren't stalled.
                                if config.countStalledAsIdle then
                                    unitsReservedBP[unitID] = currentlyUsedBP
                                end
                            end
                        end
                    end
                end
            end
            nowChecking = nowChecking + 1
            --Log("nowChecking new one" ..nowChecking)
        end


        --
        -- See if guarded units should be treated as idle because they're guarding an idle builder.
        --

        if config.guardingIdleBuilderCountsAsIdle then
            --Spring.Echo("checking for idle guards")
            local visited = {}
            local builderIdle = {}

            -- Should be O(n), as we'll only visit each node once.
            for unitID, unitData in pairs(builderStates) do
                --Spring.Echo("checking " .. tostring(unitID) .. ", visited " .. tostring(visited[unitID]))
                if not visited[unitID] then
                    isActive, builtUnitDefID, guardedUnitID, currentUnitBP = unp(unitData)

                    visited[unitID] = true
                    local stackIsIdle = not isActive
                    builderIdle[unitID] = not isActive
                    local maybeIdleStack = {}
                    table.insert(maybeIdleStack, unitID)

                    -- We're not building, but we're guarding. Figure out our state based on what the guarded unit is doing.
                    while guardedUnitID do
                        --Spring.Echo("  unit " .. tostring(unitID) .. " is guarding " .. tostring(guardedUnitID))
                        builderIdle[unitID] = (guardedUnitID and not builtUnitDefID) -- assume _this unit_ is idle if it's guarding but not building
                        if builtUnitDefID then
                            -- We're building something.
                            --Spring.Echo("  building something!")
                            stackIsIdle = false
                            break
                        elseif not builderStates[guardedUnitID] then
                            -- We're guarding a non-builder.
                            --Spring.Echo("  guarding a non-builder")
                            stackIsIdle = false
                            break
                        elseif visited[guardedUnitID] then
                            -- We've already run into this unit before. Use its state.
                            --Spring.Echo("  already found this unit, whose idle flag is " .. tostring(builderIdle[guardedUnitID]))
                            stackIsIdle = builderIdle[guardedUnitID]
                            break
                        else
                            -- We're not building, and we're guarding a builder. Recurse: see if that builder is idle.
                            --Spring.Echo("  not building, guarding a builder -- recurse!")
                            unitID = guardedUnitID
                            visited[unitID] = true
                            table.insert(maybeIdleStack, unitID)
                            isActive, builtUnitDefID, guardedUnitID, currentUnitBP = unp(builderStates[unitID])
                            if not guardedUnitID then
                                -- Finally, we're not guarding anything. Make our idle determination based on whether this unit is active.
                                --Spring.Echo("  no longer guarding; active " .. tostring(isActive))
                                stackIsIdle = not isActive
                            end
                        end
                    end

                    -- We've reached an end -- mark the whole stack of guarding builders appropriately.
                    for i, unitID in ipairs(maybeIdleStack) do
                        builderIdle[unitID] = stackIsIdle
                        if stackIsIdle then
                            -- This unit was ultimately guarding an idle builder, so mark it as idle, too.
                            --Spring.Echo("marking unit " .. tostring(unitID) .. " as idle")
                            unitsReservedBP[unitID] = 0
                        end
                    end
                end
            end
        end

        for unitID, unitReservedBP in pairs(unitsReservedBP) do
            cacheTotalReservedBP = cacheTotalReservedBP + unitReservedBP
        end


        cacheDataBase[3] = cacheDataBase[3] + cacheTotalReservedBP
        cacheDataBase[5] = cacheDataBase[5] + cacheTotallyUsedBP
        cacheDataBase[6] = cacheDataBase[6] + cacheTotalStallingM
        cacheDataBase[7] = cacheDataBase[7] + cacheTotalStallingE

        -- TODO: consider averaging income and expense across all frames for which we calculated builder data.
        local metal, metalStorage, metalPull, metalIncome, metalExpense, metalShare, metalSent = spGetTeamResources(myTeamID, "metal")
        local energy, energyStorage, energyPull, energyIncome, energyExpense, energyShare, energySent = spGetTeamResources(myTeamID, "energy")
        cacheDataBase['metalIncome'] = metalIncome
        cacheDataBase['energyIncome'] = energyIncome
        cacheDataBase['metalExpense'] = metalExpense
        cacheDataBase['energyExpense'] = energyExpense

        -- How much metal and energy are builders pulling? (This number will drop when they become resource-stalled, perhaps due to being low-priority.)
        cacheDataBase['usedBPMetalExpense'] = cacheDataBase['usedBPMetalExpense'] + usedBPMetalExpense
        cacheDataBase['usedBPEnergyExpense'] = cacheDataBase['usedBPEnergyExpense'] + usedBPEnergyExpense
        cacheDataBase['usedBPExceptStalled'] = cacheDataBase['usedBPExceptStalled'] + nonStalledBuildingBP
        cacheDataBase['usedBPIfNoStall'] = cacheDataBase['usedBPIfNoStall'] + buildingBP

        if config.drawBPWindRangeIndicators then
            local realWindStrength = 0
            for unitID in pairs(trackedWinds) do
                local metalMake, metalUse, energyMake, energyUse = spGetUnitResources(unitID)
                if energyMake ~= nil then
                    realWindStrength = energyMake
                    break
                end
            end
            cacheDataBase['realWindStrength'] = realWindStrength
        end

        trackPosBase = trackPosBase + unitsPerFrame
        --Log("trackPosBase-----------------" ..trackPosBase)
    end

    -- If enough frames have passed that we've calculated BP data for all builders, we can present this datapoint to the user.
    if trackPosBase >= trackedNum then
        trackPosBase = 0
        if config.drawBPBar then --this section will smooth the values so that factories that finish units won't have too much of an impact
            BP['reservedBP_instant'] = cacheDataBase[3]
            BP['usedBP_instant'] = cacheDataBase[5]
            BP['metalIncome'] = cacheDataBase['metalIncome']
            BP['energyIncome'] = cacheDataBase['energyIncome']
            BP['realWindStrength_instant'] = cacheDataBase['realWindStrength']
            BP['metalExpense'] = cacheDataBase['metalExpense']
            BP['energyExpense'] = cacheDataBase['energyExpense']
            BP['usedBPMetalExpense'] = cacheDataBase['usedBPMetalExpense']
            BP['usedBPEnergyExpense'] = cacheDataBase['usedBPEnergyExpense']
            BP['usedBPExceptStalled'] = cacheDataBase['usedBPExceptStalled']
            BP['usedBPIfNoStall'] = cacheDataBase['usedBPIfNoStall']

            BP[3] = math_floor(addSampleAndGetWeightedAverage(BP['history_reservedBP'], BP['reservedBP_instant'], 1) + 0.5)
            BP[5] = math_floor(addSampleAndGetWeightedAverage(BP['history_usedBP'], BP['usedBP_instant'], 1) + 0.5)

            if config.drawBPWindRangeIndicators then
                BP['realWindStrength_instant'] = cacheDataBase['realWindStrength']
                BP['energyIncomeNoWind'] = addSampleAndGetWeightedAverage(BP['history_eIncomeNoWind'], BP['energyIncome'] - numWindGenerators * BP['realWindStrength_instant'], 1)
            end

            -- Assume our eco supports full BP until we calculate otherwise.
            -- This assumption only matters if we have no active builders _or_ our builders are
            -- spending metal OR energy but not both (e.g., building basic solar collectors).
            local bpRatioSupportedByMIncome = 1 -- what proportion of our total BP can be supported by our metal income?
            local bpRatioSupportedByEIncome = 1 -- what proportion of our total BP can be supported by our energy income?

            BP['buildpowerSurplus'] = nil

            -- What if all builders were active and pulled metal and energy in the same proportions as current builders?
            -- (We can only calculate this if at least one builder is building.)
            if BP['usedBP_instant'] >= 1 then

                local totalBP = BP[4]

                local m_per_bp = 0
                if BP['metalExpensePerBP'] ~= nil then
                    m_per_bp = BP['metalExpensePerBP']
                end
                local e_per_bp = 0
                if BP['energyExpensePerBP'] ~= nil then
                    e_per_bp = BP['energyExpensePerBP']
                end
                -- How much metal and energy are we spending _not_ due to builders?
                local metalExpenseMinusBuilders_instant  = BP['metalExpense'] - BP['usedBP_instant'] * m_per_bp
                local energyExpenseMinusBuilders_instant = BP['energyExpense'] - BP['usedBP_instant'] * e_per_bp

                -- TODO: How to handle metal-makers? They're a non-builder energy expense that will be turned off before we actually E-stall.
                -- We should consider a range of metal-supported BP just like we do for wind energy.

                local metalExpenseMinusBuilders = addSampleAndGetWeightedAverage(BP['history_nonBuilderMetalExpense'], metalExpenseMinusBuilders_instant, 1)
                local energyExpenseMinusBuilders = addSampleAndGetWeightedAverage(BP['history_nonBuilderEnergyExpense'], energyExpenseMinusBuilders_instant, 1)
                BP['nonBPMetalExpense'] = metalExpenseMinusBuilders
                BP['nonBPEnergyExpense'] = energyExpenseMinusBuilders

                BP['metalExpensePerBP'] = BP['usedBPMetalExpense'] / BP['usedBP_instant']
                BP['energyExpensePerBP'] = BP['usedBPEnergyExpense'] / BP['usedBP_instant']
                BP['metalExpenseIfAllBPUsed'] = metalExpenseMinusBuilders + BP['metalExpensePerBP'] * totalBP
                BP['energyExpenseIfAllBPUsed'] = energyExpenseMinusBuilders + BP['energyExpensePerBP'] * totalBP

                BP['metalSupportedBP'] = nil
                BP['energySupportedBP'] = nil
                local minSupportedBP = 0

                if BP['metalExpensePerBP'] > 0 then
                    BP['metalSupportedBP'] = (BP['metalIncome'] - metalExpenseMinusBuilders) / BP['metalExpensePerBP']
                    minSupportedBP = BP['metalSupportedBP']
                    bpRatioSupportedByMIncome = math_max(0, math_min(BP['metalSupportedBP'] / totalBP, 1))
                end

                if BP['energyExpensePerBP'] > 0 then
                    BP['energySupportedBP'] = (BP['energyIncome'] - energyExpenseMinusBuilders) / BP['energyExpensePerBP']
                    minSupportedBP = BP['energySupportedBP']
                    bpRatioSupportedByEIncome = math_max(0, math_min(BP['energySupportedBP'] / totalBP, 1))

                    if config.drawBPWindRangeIndicators then
                        eSupportedBP_minWind = (BP['energyIncomeNoWind'] - energyExpenseMinusBuilders) / BP['energyExpensePerBP']
                        local bpRatioSupportedByEIncome_minWind = math_max(0, math_min(eSupportedBP_minWind / totalBP, 1))

                        maxEPerWindGenerator = math_min(25, Game.windMax)
                        eSupportedBP_maxWind = (BP['energyIncomeNoWind'] + numWindGenerators * maxEPerWindGenerator - energyExpenseMinusBuilders) / BP['energyExpensePerBP']
                        local bpRatioSupportedByEIncome_maxWind = math_max(0, math_min(eSupportedBP_maxWind / totalBP, 1))

                        BP['eSliderPosition_minWind'] = addSampleAndGetWeightedAverage(BP['history_eSliderPosition_minWind'], bpRatioSupportedByEIncome_minWind, BP['usedBP_instant'])
                        BP['eSliderPosition_maxWind'] = addSampleAndGetWeightedAverage(BP['history_eSliderPosition_maxWind'], bpRatioSupportedByEIncome_maxWind, BP['usedBP_instant'])
                    end
                end

                if BP['metalSupportedBP'] ~= nil or BP['energySupportedBP'] ~= nil then
                    if BP['metalSupportedBP'] ~= nil and BP['energySupportedBP'] ~= nil then
                        minSupportedBP = math_min(BP['metalSupportedBP'], BP['energySupportedBP'])
                    end

                    -- How much buildpower do we have, beyond what's necessary to keep up with our economy?
                    BP['buildpowerSurplus'] = totalBP - minSupportedBP
                    -- round up to the nearest 10 BP
                    BP['buildpowerSurplus'] = math_ceil(BP['buildpowerSurplus'] / 10) * 10
                end
            end

            -- Weighted average of slider positions. If weight (BP['usedBP_instant']) is 0 the table won't be altered at all.
            BP['mSliderPosition'] = addSampleAndGetWeightedAverage(BP['history_mSliderPosition'], bpRatioSupportedByMIncome, BP['usedBP_instant'])
            BP['eSliderPosition'] = addSampleAndGetWeightedAverage(BP['history_eSliderPosition'], bpRatioSupportedByEIncome, BP['usedBP_instant'])

            updateResbar('BP')
            cacheDataBase[3] = 0
            cacheDataBase[5] = 0
            cacheDataBase['metalIncome'] = 0
            cacheDataBase['energyIncome'] = 0
            cacheDataBase['metalExpense'] = 0
            cacheDataBase['energyExpense'] = 0
            cacheDataBase['realWindStrength'] = 0
            cacheDataBase['usedBPMetalExpense'] = 0
            cacheDataBase['usedBPEnergyExpense'] = 0
            cacheDataBase['usedBPExceptStalled'] = 0
            cacheDataBase['usedBPIfNoStall'] = 0

        end
        totalStallingM = cacheDataBase[6]
        totalStallingE = cacheDataBase[7]
        cacheDataBase[6] = 0
        cacheDataBase[7] = 0
        nowChecking = 0
    end

    Log("GameFrame(n)")
end


function median(t)
    if not t or #t < 1 then
        return 0
    end

    local tSorted = {}
    for _, v in pairs(t) do
        table.insert(tSorted, v)
    end
  
    table.sort(tSorted)

    midpoint = math_floor(#tSorted / 2)
    if math.fmod(#tSorted, 2) == 0 then
        return (tSorted[midpoint] + tSorted[midpoint + 1]) / 2
    else
        return tSorted[midpoint + 1] -- Lua is 1-indexed!
    end
end

local function updateAllyTeamOverflowing()
    Log("updateAllyTeamOverflowing()")
    allyteamOverflowingMetal = false
    allyteamOverflowingEnergy = false
    overflowingMetal = false
    overflowingEnergy = false
    playerStallingMetal = false
    playerStallingEnergy = false
    local totalEnergy = 0
    local totalEnergyStorage = 0
    local totalMetal = 0
    local totalMetalStorage = 0
    local energyPercentile, metalPercentile
    local teams = Spring.GetTeamList(myAllyTeamID)
    for i, teamID in pairs(teams) do
        local energy, energyStorage, energyPull, energyIncome, energyExpense, energyShare, energySent = spGetTeamResources(teamID, "energy")
        totalEnergy = totalEnergy + energy
        totalEnergyStorage = totalEnergyStorage + energyStorage
        local metal, metalStorage, metalPull, metalIncome, metalExpense, metalShare, metalSent = spGetTeamResources(teamID, "metal")
        totalMetal = totalMetal + metal
        totalMetalStorage = totalMetalStorage + metalStorage
        if teamID == myTeamID then
            energyPercentile = energySent / totalEnergyStorage
            metalPercentile = metalSent / totalMetalStorage
            if energyPercentile > 0.0001 then
                overflowingEnergy = energyPercentile * (1 / 0.025)
                if overflowingEnergy > 1 then
                    overflowingEnergy = 1
                end
            end
            if metalPercentile > 0.0001 then
                overflowingMetal = metalPercentile * (1 / 0.025)
                if overflowingMetal > 1 then
                    overflowingMetal = 1
                end
            end

            if res ~= 'BP' or config.drawBPBar == true then
                local metalIndicatorPos = BP['mSliderPosition']
                local energyIndicatorPos = BP['eSliderPosition']
                playerStallingMetal = (metalIndicatorPos ~= nil and metalIndicatorPos < 0.8 and metal < 2 * metalPull)
                playerStallingEnergy = (energyIndicatorPos ~= nil and energyIndicatorPos < 0.8 and energy < 2 * energyPull)
            end
        end
    end

    energyPercentile = totalEnergy / totalEnergyStorage
    metalPercentile = totalMetal / totalMetalStorage
    if energyPercentile > 0.975 then
        allyteamOverflowingEnergy = (energyPercentile - 0.975) * (1 / 0.025)
        if allyteamOverflowingEnergy > 1 then
            allyteamOverflowingEnergy = 1
        end
    end
    if metalPercentile > 0.975 then
        allyteamOverflowingMetal = (metalPercentile - 0.975) * (1 / 0.025)
        if allyteamOverflowingMetal > 1 then
            allyteamOverflowingMetal = 1
        end
    end
    Log("end")
end

local sec = 0
local sec2 = 0
local secComCount = 0
local blinkDirection = true
local blinkProgress = 0

function widget:Update(dt)
    local prevMyTeamID = myTeamID
    if spec and spGetMyTeamID() ~= prevMyTeamID then
        -- check if the team that we are spectating changed
        checkSelfStatus()
        init()
    elseif configHasChanged() then
        init()
    end

    local mx, my = spGetMouseState()
    local speedFactor, _, isPaused = Spring.GetGameSpeed()
    if not isPaused then
        if blinkDirection then
            blinkProgress = blinkProgress + (dt * 9)
            if blinkProgress > 1 then
                blinkProgress = 1
                blinkDirection = false
            end
        else
            blinkProgress = blinkProgress - (dt / (blinkProgress * 1.5))
            if blinkProgress < 0 then
                blinkProgress = 0
                blinkDirection = true
            end
        end
    end

    now = os.clock()
    if now > nextGuishaderCheck and widgetHandler.orderList["GUI Shader"] ~= nil then
        nextGuishaderCheck = now + guishaderCheckUpdateRate
        if guishaderEnabled == false and widgetHandler.orderList["GUI Shader"] ~= 0 then
            guishaderEnabled = true
            init()
        elseif guishaderEnabled and (widgetHandler.orderList["GUI Shader"] == 0) then
            guishaderEnabled = false
        end
    end

    sec = sec + dt
    if sec > 0.1 then
        Log("sec > 0.1")
        sec = 0
        r = { metal = { spGetTeamResources(myTeamID, 'metal') }, energy = { spGetTeamResources(myTeamID, 'energy') }, BP = BP }
        if not spec and not showQuitscreen then
            if config.drawBPBar == true then
                if math_isInRect(mx, my, resbarArea['BP'][1], resbarArea['BP'][2], resbarArea['BP'][3], resbarArea['BP'][4]) then -- for bp bar only
                    if resbarHover == nil then
                        resbarHover = 'BP'
                        updateResbar('BP')
                    end
                elseif resbarHover ~= nil and resbarHover == 'BP' then -- for bp bar only
                    resbarHover = nil
                    updateResbar('BP')
                end
            end
            if math_isInRect(mx, my, resbarArea['energy'][1], resbarArea['energy'][2], resbarArea['energy'][3], resbarArea['energy'][4]) then
                if resbarHover == nil then
                    resbarHover = 'energy'
                    updateResbar('energy')
                end
            elseif resbarHover ~= nil and resbarHover == 'energy' then
                resbarHover = nil
                updateResbar('energy')
            end
            if math_isInRect(mx, my, resbarArea['metal'][1], resbarArea['metal'][2], resbarArea['metal'][3], resbarArea['metal'][4]) then
                if resbarHover == nil then
                    resbarHover = 'metal'
                    updateResbar('metal')
                end
            elseif resbarHover ~= nil and resbarHover == 'metal' then
                resbarHover = nil
                updateResbar('metal')
            end
        elseif spec and myTeamID ~= prevMyTeamID then
            -- check if the team that we are spectating changed
            draggingShareIndicatorValue = {}
            draggingConversionIndicatorValue = nil
            updateResbar('metal')
            updateResbar('energy')
            if config.drawBPBar == true then
                updateResbar('BP') 
            end
        else

            -- make sure conversion/overflow sliders are adjusted
            if mmLevel then
                if mmLevel ~= Spring.GetTeamRulesParam(myTeamID, 'mmLevel') or eneryOverflowLevel ~= r['energy'][6] then
                    updateResbar('energy')
                end
                if metalOverflowLevel ~= r['metal'][6] then
                    updateResbar('metal')
                end
            end
        end
        Log("sec > 0.1 end")
    end
    
    sec2 = sec2 + dt
    if sec2 >= 1 then
        Log("sec2 >= 1")
        sec2 = 0
        updateResbarText('metal')
        updateResbarText('energy')
        if config.drawBPBar == true then
            updateResbarText('BP') 
        end
        updateAllyTeamOverflowing()
        Log("sec2 >= 1 end")
    end

    -- wind
    if gameFrame ~= lastFrame then
        Log("wind")
        currentWind = sformat('%.1f', select(4, spGetWind()))
    end

    -- coms
    if displayComCounter then
        secComCount = secComCount + dt
        if secComCount > 0.5 then
            Log("secComCount > 0.5")
            secComCount = 0
            countComs()
        end
    end
end

local function hoveringElement(x, y)
    if math_isInRect(x, y, topbarArea[1], topbarArea[2], topbarArea[3], topbarArea[4]) then
        if resbarArea.metal[1] and math_isInRect(x, y, resbarArea.metal[1], resbarArea.metal[2], resbarArea.metal[3], resbarArea.metal[4]) then
            return true
        end
        if resbarArea.energy[1] and math_isInRect(x, y, resbarArea.energy[1], resbarArea.energy[2], resbarArea.energy[3], resbarArea.energy[4]) then
            return true
        end
        if windArea[1] and math_isInRect(x, y, windArea[1], windArea[2], windArea[3], windArea[4]) then
            return true
        end
        if displayTidalSpeed and tidalarea[1] and math_isInRect(x, y, tidalarea[1], tidalarea[2], tidalarea[3], tidalarea[4]) then
            return true
        end
        if displayComCounter and comsArea[1] and math_isInRect(x, y, comsArea[1], comsArea[2], comsArea[3], comsArea[4]) then
            return true
        end
        if buttonsArea[1] and math_isInRect(x, y, buttonsArea[1], buttonsArea[2], buttonsArea[3], buttonsArea[4]) then
            return true
        end
        return false
    end
    return false
end

function widget:drawTidal()
    if displayTidalSpeed and tidaldlist1 then
        glPushMatrix()
        glCallList(tidaldlist1)
        glTranslate(tidalarea[1] + ((tidalarea[3] - tidalarea[1]) / 2), math.sin(now/math.pi) * tidalWaveAnimationHeight + tidalarea[2] + (bgpadding/2) + ((tidalarea[4] - tidalarea[2]) / 2), 0)
        glCallList(tidaldlist2)
        glPopMatrix()
    end
end

local function drawResBars() --hadles the blinking
    Log("drawResBars()")
    glPushMatrix()

    local updateText = os.clock() - updateTextClock > 0.1
    if updateText then
        updateTextClock = os.clock()
    end

    local res = 'metal'
    if dlistResbar[res][1] and dlistResbar[res][2] and dlistResbar[res][3] then
        glCallList(dlistResbar[res][1])

        if not spec and gameFrame > 90 then
            if allyteamOverflowingMetal then
                glColor(1, 0, 0, 0.13 * allyteamOverflowingMetal * blinkProgress)
            elseif overflowingMetal then
                glColor(1, 1, 1, 0.05 * overflowingMetal * (0.6 + (blinkProgress * 0.4)))
            end
            if allyteamOverflowingMetal or overflowingMetal then
                glCallList(dlistResbar[res][4])
            end
        end
        -- low energy background
        if r[res][1] < 1000 then
            local process = (r[res][1] / r[res][2]) * 13
            if process < 1 then
                process = 1 - process
                glColor(0.9, 0.4, 1, 0.08 * process)
                glCallList(dlistResbar[res][5])
            end
        end
        drawResbarValues(res, updateText)
        glCallList(dlistResbar[res][6])
        glCallList(dlistResbar[res][3])
        glCallList(dlistResbar[res][2])
    end

    res = 'energy'
    if dlistResbar[res][1] and dlistResbar[res][2] and dlistResbar[res][3] then
        glCallList(dlistResbar[res][1])

        if not spec and gameFrame > 90 then
            if allyteamOverflowingEnergy then
                glColor(1, 0, 0, 0.13 * allyteamOverflowingEnergy * blinkProgress)
            elseif overflowingEnergy then
                glColor(1, 1, 0, 0.05 * overflowingEnergy * (0.6 + (blinkProgress * 0.4)))
            end
            if allyteamOverflowingEnergy or overflowingEnergy then
                glCallList(dlistResbar[res][4])
            end
            -- low energy background
            if r[res][1] < 2000 then
                local process = (r[res][1] / r[res][2]) * 13
                if process < 1 then
                    process = 1 - process
                    glColor(0.9, 0.55, 1, 0.08 * process)
                    glCallList(dlistResbar[res][5])
                end
            end
        end
        drawResbarValues(res, updateText)
        glCallList(dlistResbar[res][6])
        glCallList(dlistResbar[res][3])
        glCallList(dlistResbar[res][2])
    end
    if config.drawBPBar == true then
        res = 'BP' -- for bp bar only
        if dlistResbar[res][1] and dlistResbar[res][2] and dlistResbar[res][3] then
            glCallList(dlistResbar[res][1])

            if not spec and gameFrame > 90 then
                --if playerStallingMetal then
                --  glColor(0.0, -0.4, -0.4, 0.5 * playerStallingMetal * blinkProgress)
                --elseif playerStallingEnergy then
                --  glColor(0.2, -0.2, -1, 0.5 * playerStallingEnergy * blinkProgress)
                --end
                if playerStallingMetal or playerStallingEnergy then
                    glCallList(dlistResbar[res][4])
                end
                -- low energy background
                --if r[res][1] < 2000 then
                --  local process = (r[res][1] / r[res][2]) * 13
                --  if process < 1 then
                --      process = 1 - process
                --      glColor(0.9, 0.55, 1, 0.08 * process)
                --      glCallList(dlistResbar[res][5])
                --  end
                --end
            end
            drawResbarValues(res, updateText)
            glCallList(dlistResbar[res][6])
            glCallList(dlistResbar[res][3])
            glCallList(dlistResbar[res][2])
        end
    end
    glPopMatrix()
    Log("drawResBars() end")
end

function widget:DrawScreen()

    drawResBars()

    local now = os.clock()
    local mx, my, mb = spGetMouseState()
    hoveringTopbar = hoveringElement(mx, my)
    if hoveringTopbar then
        Spring.SetMouseCursor('cursornormal')
    end

    if dlistWind1 then
        glPushMatrix()
        glCallList(dlistWind1)
        glRotate(windRotation, 0, 0, 1)
        glCallList(dlistWind2)
        glPopMatrix()
        -- current wind
        if gameFrame > 0 then
            if minWind+maxWind >= 0.5 then
                local fontSize = (height / 2.66) * widgetScale
                if not dlistWindText[currentWind] then
                    dlistWindText[currentWind] = glCreateList(function()
                        font2:Begin()
                        font2:Print("\255\255\255\255" .. currentWind, windArea[1] + ((windArea[3] - windArea[1]) / 2), windArea[2] + ((windArea[4] - windArea[2]) / 2.05) - (fontSize / 5), fontSize, 'oc') -- Wind speed text
                        font2:End()
                    end)
                end
                glCallList(dlistWindText[currentWind])
            end
        end
    end

    self:drawTidal()

    glPushMatrix()
    if displayComCounter and dlistComs1 then
        glCallList(dlistComs1)
        if allyComs == 1 and (gameFrame % 12 < 6) then
            glColor(1, 0.6, 0, 0.45)
        else
            glColor(1, 1, 1, 0.22)
        end
        glCallList(dlistComs2)
    end

    if config.autoHideButtons then
        if buttonsArea[1] and math_isInRect(mx, my, buttonsArea[1], buttonsArea[2], buttonsArea[3], buttonsArea[4]) then
            if not showButtons then
                showButtons = true
                dlistButtonsGuishader = glCreateList(function()
                    RectRound(buttonsArea[1], buttonsArea[2], buttonsArea[3], buttonsArea[4], 5.5 * widgetScale, 0, 0, 1, 1)
                end)
                if WG['guishader'] then
                    WG['guishader'].InsertDlist(dlistButtonsGuishader, 'topbar_buttons')
                end
            end
        elseif showButtons then
            showButtons = false
            if dlistButtonsGuishader ~= nil then
                if WG['guishader'] then
                    WG['guishader'].RemoveDlist('topbar_buttons')
                end
                glDeleteList(dlistButtonsGuishader)
            end
        end
    end

    if showButtons and dlistButtons1 and buttonsArea['buttons'] then
        glCallList(dlistButtons1)

        -- changelog changes highlight
        if WG['changelog'] and WG['changelog'].haschanges() then
            local button = 'changelog'
            local paddingsize = 1
            RectRound(buttonsArea['buttons'][button][1]+paddingsize, buttonsArea['buttons'][button][2]+paddingsize, buttonsArea['buttons'][button][3]-paddingsize, buttonsArea['buttons'][button][4]-paddingsize, 3.5 * widgetScale, 0, 0, 0, button == firstButton and 1 or 0, { 1, 1, 1, 0.1 * blinkProgress })
        end

        -- hovered?
        if not showQuitscreen and buttonsArea['buttons'] ~= nil and math_isInRect(mx, my, buttonsArea[1], buttonsArea[2], buttonsArea[3], buttonsArea[4]) then
            for button, pos in pairs(buttonsArea['buttons']) do
                if math_isInRect(mx, my, pos[1], pos[2], pos[3], pos[4]) then
                    local paddingsize = 1
                    RectRound(buttonsArea['buttons'][button][1]+paddingsize, buttonsArea['buttons'][button][2]+paddingsize, buttonsArea['buttons'][button][3]-paddingsize, buttonsArea['buttons'][button][4]-paddingsize, 3.5 * widgetScale, 0, 0, 0, button == firstButton and 1 or 0, { 0, 0, 0, 0.06 })
                    glBlending(GL_SRC_ALPHA, GL_ONE)
                    RectRound(buttonsArea['buttons'][button][1], buttonsArea['buttons'][button][2], buttonsArea['buttons'][button][3], buttonsArea['buttons'][button][4], 3.5 * widgetScale, 0, 0, 0, button == firstButton and 1 or 0, { 1, 1, 1, mb and 0.13 or 0.03 }, { 0.44, 0.44, 0.44, mb and 0.4 or 0.2 })
                    local mult = 1
                    RectRound(buttonsArea['buttons'][button][1], buttonsArea['buttons'][button][4] - ((buttonsArea['buttons'][button][4] - buttonsArea['buttons'][button][2]) * 0.4), buttonsArea['buttons'][button][3], buttonsArea['buttons'][button][4], 3.3 * widgetScale, 0, 0, 0, 0, { 1, 1, 1, 0 }, { 1, 1, 1, 0.18 * mult })
                    RectRound(buttonsArea['buttons'][button][1], buttonsArea['buttons'][button][2], buttonsArea['buttons'][button][3], buttonsArea['buttons'][button][2] + ((buttonsArea['buttons'][button][4] - buttonsArea['buttons'][button][2]) * 0.25), 3.3 * widgetScale, 0, 0, 0, button == firstButton and 1 or 0, { 1, 1, 1, 0.045 * mult }, { 1, 1, 1, 0 })
                    glBlending(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA)
                    break
                end
            end
        end
        glCallList(dlistButtons2)
    end

    if dlistQuit ~= nil then
        if WG['guishader'] then
            WG['guishader'].removeRenderDlist(dlistQuit)
        end
        glDeleteList(dlistQuit)
        dlistQuit = nil
    end
    if showQuitscreen ~= nil then
        local fadeoutBonus = 0
        local fadeTime = 0.2
        local fadeProgress = (now - showQuitscreen) / fadeTime
        if fadeProgress > 1 then
            fadeProgress = 1
        end

        Spring.SetMouseCursor('cursornormal')

        dlistQuit = glCreateList(function()
            if WG['guishader'] then
                glColor(0, 0, 0, (0.18 * fadeProgress))
            else
                glColor(0, 0, 0, (0.35 * fadeProgress))
            end
            glRect(0, 0, vsx, vsy)

            if hideQuitWindow == nil then
                -- when terminating spring, keep the faded screen

                local w = math_floor(320 * widgetScale)
                local h = math_floor(w / 3.5)

                local fontSize = h / 6
                local text = Spring.I18N('ui.topbar.quit.reallyQuit')
                if not spec then
                    text = Spring.I18N('ui.topbar.quit.reallyQuitResign')
                    if not gameIsOver and chobbyLoaded then
                        if numPlayers < 3 then
                            text = Spring.I18N('ui.topbar.quit.reallyResign')
                        else
                            text = Spring.I18N('ui.topbar.quit.reallyResignSpectate')
                        end
                    end
                end
                local padding = math_floor(w / 90)
                local textTopPadding = padding + padding + padding + padding + padding + fontSize
                local txtWidth = font:GetTextWidth(text) * fontSize
                w = math_max(w, txtWidth + textTopPadding + textTopPadding)

                local x = math_floor((vsx / 2) - (w / 2))
                local y = math_floor((vsy / 1.8) - (h / 2))
                local buttonMargin = math_floor(h / 9)
                local buttonWidth = math_floor((w - buttonMargin * 4) / 3) -- 4 margins for 3 buttons
                local buttonHeight = math_floor(h * 0.30)

                quitscreenArea = {
                    x, 
                    y, 
                    x + w, 
                    y + h
                }
                quitscreenStayArea = {
                    x + buttonMargin + 0 * (buttonWidth + buttonMargin), 
                    y + buttonMargin, 
                    x + buttonMargin + 0 * (buttonWidth + buttonMargin) + buttonWidth, 
                    y + buttonMargin + buttonHeight
                }
                quitscreenResignArea = {
                    x + buttonMargin + 1 * (buttonWidth + buttonMargin), 
                    y + buttonMargin, 
                    x + buttonMargin + 1 * (buttonWidth + buttonMargin) + buttonWidth, 
                    y + buttonMargin + buttonHeight
                }
                quitscreenQuitArea = {
                    x + buttonMargin + 2 * (buttonWidth + buttonMargin), 
                    y + buttonMargin, 
                    x + buttonMargin + 2 * (buttonWidth + buttonMargin) + buttonWidth, 
                    y + buttonMargin + buttonHeight
                }

                -- window
                UiElement(quitscreenArea[1], quitscreenArea[2], quitscreenArea[3], quitscreenArea[4], 1, 1, 1, 1, 1, 1, 1, 1, nil, {1, 1, 1, 0.6 + (0.34 * fadeProgress)}, {0.45, 0.45, 0.4, 0.025 + (0.025 * fadeProgress)})

                local color1, color2

                font:Begin()
                font:SetTextColor(0, 0, 0, 1)
                font:Print(text, quitscreenArea[1] + ((quitscreenArea[3] - quitscreenArea[1]) / 2), quitscreenArea[4]-textTopPadding, fontSize, "cn")
                font:End()

                font2:Begin()
                font2:SetTextColor(1, 1, 1, 1)
                font2:SetOutlineColor(0, 0, 0, 0.23)

                fontSize = fontSize * 0.92

                -- stay button
                if gameIsOver or not chobbyLoaded then
                    if math_isInRect(mx, my, quitscreenStayArea[1], quitscreenStayArea[2], quitscreenStayArea[3], quitscreenStayArea[4]) then
                        color1 = { 0, 0.4, 0, 0.4 + (0.5 * fadeProgress) }
                        color2 = { 0.05, 0.6, 0.05, 0.4 + (0.5 * fadeProgress) }
                    else
                        color1 = { 0, 0.25, 0, 0.35 + (0.5 * fadeProgress) }
                        color2 = { 0, 0.5, 0, 0.35 + (0.5 * fadeProgress) }
                    end
                    UiButton(quitscreenStayArea[1], quitscreenStayArea[2], quitscreenStayArea[3], quitscreenStayArea[4], 1, 1, 1, 1, 1, 1, 1, 1, nil, color1, color2, padding * 0.5)
                    font2:Print(Spring.I18N('ui.topbar.quit.stay'), quitscreenStayArea[1] + ((quitscreenStayArea[3] - quitscreenStayArea[1]) / 2), quitscreenStayArea[2] + ((quitscreenStayArea[4] - quitscreenStayArea[2]) / 2) - (fontSize / 3), fontSize, "con")
                end

                -- resign button
                if not spec and not gameIsOver then
                    if math_isInRect(mx, my, quitscreenResignArea[1], quitscreenResignArea[2], quitscreenResignArea[3], quitscreenResignArea[4]) then
                        color1 = { 0.28, 0.28, 0.28, 0.4 + (0.5 * fadeProgress) }
                        color2 = { 0.45, 0.45, 0.45, 0.4 + (0.5 * fadeProgress) }
                    else
                        color1 = { 0.18, 0.18, 0.18, 0.4 + (0.5 * fadeProgress) }
                        color2 = { 0.33, 0.33, 0.33, 0.4 + (0.5 * fadeProgress) }
                    end
                    UiButton(quitscreenResignArea[1], quitscreenResignArea[2], quitscreenResignArea[3], quitscreenResignArea[4], 1, 1, 1, 1, 1, 1, 1, 1, nil, color1, color2, padding * 0.5)
                    font2:Print(Spring.I18N('ui.topbar.quit.resign'), quitscreenResignArea[1] + ((quitscreenResignArea[3] - quitscreenResignArea[1]) / 2), quitscreenResignArea[2] + ((quitscreenResignArea[4] - quitscreenResignArea[2]) / 2) - (fontSize / 3), fontSize, "con")
                end

                -- quit button
                if gameIsOver or not chobbyLoaded then
                    if math_isInRect(mx, my, quitscreenQuitArea[1], quitscreenQuitArea[2], quitscreenQuitArea[3], quitscreenQuitArea[4]) then
                        color1 = { 0.4, 0, 0, 0.4 + (0.5 * fadeProgress) }
                        color2 = { 0.6, 0.05, 0.05, 0.4 + (0.5 * fadeProgress) }
                    else
                        color1 = { 0.25, 0, 0, 0.35 + (0.5 * fadeProgress) }
                        color2 = { 0.5, 0, 0, 0.35 + (0.5 * fadeProgress) }
                    end
                    UiButton(quitscreenQuitArea[1], quitscreenQuitArea[2], quitscreenQuitArea[3], quitscreenQuitArea[4], 1, 1, 1, 1, 1, 1, 1, 1, nil, color1, color2, padding * 0.5)
                    font2:Print(Spring.I18N('ui.topbar.quit.quit'), quitscreenQuitArea[1] + ((quitscreenQuitArea[3] - quitscreenQuitArea[1]) / 2), quitscreenQuitArea[2] + ((quitscreenQuitArea[4] - quitscreenQuitArea[2]) / 2) - (fontSize / 3), fontSize, "con")
                end

                font2:End()
            end
        end)

        -- background
        if WG['guishader'] then
            WG['guishader'].setScreenBlur(true)
            WG['guishader'].insertRenderDlist(dlistQuit)
        else
            glCallList(dlistQuit)
        end
    end
    glColor(1, 1, 1, 1)
    glPopMatrix()
end

local function adjustSliders(x, y)
    if draggingShareIndicator ~= nil and not spec then
        local shareValue = (x - resbarDrawinfo[draggingShareIndicator]['barArea'][1]) / (resbarDrawinfo[draggingShareIndicator]['barArea'][3] - resbarDrawinfo[draggingShareIndicator]['barArea'][1])
        if shareValue < 0 then
            shareValue = 0
        end
        if shareValue > 1 then
            shareValue = 1
        end
        Spring.SetShareLevel(draggingShareIndicator, shareValue)
        draggingShareIndicatorValue[draggingShareIndicator] = shareValue
        updateResbar(draggingShareIndicator)
    end
    if draggingConversionIndicator and not spec then
        local convValue = math_floor((x - resbarDrawinfo['energy']['barArea'][1]) / (resbarDrawinfo['energy']['barArea'][3] - resbarDrawinfo['energy']['barArea'][1]) * 100)
        if convValue < 12 then
            convValue = 12
        end
        if convValue > 88 then
            convValue = 88
        end
        Spring.SendLuaRulesMsg(sformat(string.char(137) .. '%i', convValue))
        draggingConversionIndicatorValue = convValue
        updateResbar('energy')
    end
end

function widget:MouseMove(x, y)
    adjustSliders(x, y)
end

local function hideWindows()
    local closedWindow = false
    if WG['options'] ~= nil and WG['options'].isvisible() then
        WG['options'].toggle(false)
        closedWindow = true
    end
    if WG['scavengerinfo'] ~= nil and WG['scavengerinfo'].isvisible() then
        WG['scavengerinfo'].toggle(false)
        closedWindow = true
    end
    if WG['keybinds'] ~= nil and WG['keybinds'].isvisible() then
        WG['keybinds'].toggle(false)
        closedWindow = true
    end
    if WG['changelog'] ~= nil and WG['changelog'].isvisible() then
        WG['changelog'].toggle(false)
        closedWindow = true
    end
    if WG['gameinfo'] ~= nil and WG['gameinfo'].isvisible() then
        WG['gameinfo'].toggle(false)
        closedWindow = true
    end
    if WG['teamstats'] ~= nil and WG['teamstats'].isvisible() then
        WG['teamstats'].toggle(false)
        closedWindow = true
    end
    if WG['widgetselector'] ~= nil and WG['widgetselector'].isvisible() then
        WG['widgetselector'].toggle(false)
        closedWindow = true
    end
    if showQuitscreen then
        closedWindow = true
    end
    showQuitscreen = nil
    if WG['guishader'] then
        WG['guishader'].setScreenBlur(false)
    end

    if gameIsOver then -- Graphs window can only be open after game end
        -- Closing Graphs window if open, no way to tell if it was open or not
        Spring.SendCommands('endgraph 0')
        graphsWindowVisible = false
    end

    return closedWindow
end

local function applyButtonAction(button)

    if playSounds then
        Spring.PlaySoundFile(leftclick, 0.8, 'ui')
    end

    local isvisible = false
    if button == 'quit' or button == 'resign' then
        if not gameIsOver and chobbyLoaded and button == 'quit' then
            Spring.SendLuaMenuMsg("showLobby")
        else
            local oldShowQuitscreen
            if showQuitscreen ~= nil then
                oldShowQuitscreen = showQuitscreen
                isvisible = true
            end
            hideWindows()
            if oldShowQuitscreen ~= nil then
                if isvisible ~= true then
                    showQuitscreen = oldShowQuitscreen
                    if WG['guishader'] then
                        WG['guishader'].setScreenBlur(true)
                    end
                end
            else
                showQuitscreen = os.clock()
            end
        end
    elseif button == 'options' then
        if WG['options'] ~= nil then
            isvisible = WG['options'].isvisible()
        end
        hideWindows()
        if WG['options'] ~= nil and isvisible ~= true then
            WG['options'].toggle()
        end
    elseif button == 'save' then
        if isSinglePlayer and allowSavegame and WG['savegame'] ~= nil then
            --local gameframe = Spring.GetGameFrame()
            --local minutes = math.floor((gameframe / 30 / 60))
            --local seconds = math.floor((gameframe - ((minutes * 60) * 30)) / 30)
            --if seconds == 0 then
            --  seconds = '00'
            --elseif seconds < 10 then
            --  seconds = '0'..seconds
            --end
            local time = os.date("%Y%m%d_%H%M%S")
            Spring.SendCommands("savegame "..time)
        end
    elseif button == 'scavengers' then
        if WG['scavengerinfo'] ~= nil then
            isvisible = WG['scavengerinfo'].isvisible()
        end
        hideWindows()
        if WG['scavengerinfo'] ~= nil and isvisible ~= true then
            WG['scavengerinfo'].toggle()
        end
    elseif button == 'keybinds' then
        if WG['keybinds'] ~= nil then
            isvisible = WG['keybinds'].isvisible()
        end
        hideWindows()
        if WG['keybinds'] ~= nil and isvisible ~= true then
            WG['keybinds'].toggle()
        end
    elseif button == 'changelog' then
        if WG['changelog'] ~= nil then
            isvisible = WG['changelog'].isvisible()
        end
        hideWindows()
        if WG['changelog'] ~= nil and isvisible ~= true then
            WG['changelog'].toggle()
        end
    elseif button == 'stats' then
        if WG['teamstats'] ~= nil then
            isvisible = WG['teamstats'].isvisible()
        end
        hideWindows()
        if WG['teamstats'] ~= nil and isvisible ~= true then
            WG['teamstats'].toggle()
        end
    elseif button == 'graphs' then
        isvisible = graphsWindowVisible
        hideWindows()
        if gameIsOver and not isvisible then
            Spring.SendCommands('endgraph 2')
            graphsWindowVisible = true
        end
    end
end

function widget:GameOver()
    gameIsOver = true
    updateButtons()
end

function widget:MouseWheel(up, value)
    --up = true/false, value = -1/1
    if showQuitscreen ~= nil and quitscreenArea ~= nil then
        return true
    end
end

function widget:KeyPress(key)
    if key == 27 then
        -- ESC
        if not WG['options'] or (WG['options'].disallowEsc and not WG['options'].disallowEsc()) then
            local escDidSomething = hideWindows()
            if escapeKeyPressesQuit and not escDidSomething then
                applyButtonAction('quit')
            end
        end
    end
    if showQuitscreen ~= nil and quitscreenArea ~= nil then
        return true
    end
end

function widget:MousePress(x, y, button)
    if button == 1 then
        if showQuitscreen ~= nil and quitscreenArea ~= nil then

            if math_isInRect(x, y, quitscreenArea[1], quitscreenArea[2], quitscreenArea[3], quitscreenArea[4]) then
                if (gameIsOver or not chobbyLoaded or not spec) and math_isInRect(x, y, quitscreenStayArea[1], quitscreenStayArea[2], quitscreenStayArea[3], quitscreenStayArea[4]) then
                    if playSounds then
                        Spring.PlaySoundFile(leftclick, 0.75, 'ui')
                    end
                    showQuitscreen = nil
                    if WG['guishader'] then
                        WG['guishader'].setScreenBlur(false)
                    end
                end
                if (gameIsOver or not chobbyLoaded) and math_isInRect(x, y, quitscreenQuitArea[1], quitscreenQuitArea[2], quitscreenQuitArea[3], quitscreenQuitArea[4]) then
                    if playSounds then
                        Spring.PlaySoundFile(leftclick, 0.75, 'ui')
                    end
                    if not chobbyLoaded then
                        Spring.SendCommands("QuitForce") -- Exit the game completely
                    else
                        Spring.SendCommands("ReloadForce") -- Exit to the lobby
                    end
                    showQuitscreen = nil
                    hideQuitWindow = os.clock()
                end
                if not spec and not gameIsOver and math_isInRect(x, y, quitscreenResignArea[1], quitscreenResignArea[2], quitscreenResignArea[3], quitscreenResignArea[4]) then
                    if playSounds then
                        Spring.PlaySoundFile(leftclick, 0.75, 'ui')
                    end
                    Spring.SendCommands("spectator")
                    showQuitscreen = nil
                    if WG['guishader'] then
                        WG['guishader'].setScreenBlur(false)
                    end
                end
            else
                showQuitscreen = nil
                if WG['guishader'] then
                    WG['guishader'].setScreenBlur(false)
                end
            end
            return true
        end

        if not spec then
            if not isSingle then
                if math_isInRect(x, y, shareIndicatorArea['metal'][1], shareIndicatorArea['metal'][2], shareIndicatorArea['metal'][3], shareIndicatorArea['metal'][4]) then
                    draggingShareIndicator = 'metal'
                end
                if math_isInRect(x, y, shareIndicatorArea['energy'][1], shareIndicatorArea['energy'][2], shareIndicatorArea['energy'][3], shareIndicatorArea['energy'][4]) then
                    draggingShareIndicator = 'energy'
                end
            end
            if draggingShareIndicator == nil and math_isInRect(x, y, conversionIndicatorArea[1], conversionIndicatorArea[2], conversionIndicatorArea[3], conversionIndicatorArea[4]) then
                draggingConversionIndicator = true
            end
            if draggingShareIndicator or draggingConversionIndicator then
                if playSounds then
                    Spring.PlaySoundFile(resourceclick, 0.7, 'ui')
                end
                return true
            end
        end

        if buttonsArea['buttons'] ~= nil then
            for button, pos in pairs(buttonsArea['buttons']) do
                if math_isInRect(x, y, pos[1], pos[2], pos[3], pos[4]) then
                    applyButtonAction(button)
                    return true
                end
            end
        end
    else
        if showQuitscreen ~= nil and quitscreenArea ~= nil then
            return true
        end
    end

    if hoveringTopbar then
        return true
    end
end

function widget:MouseRelease(x, y, button)
    if showQuitscreen ~= nil and quitscreenArea ~= nil then
        return true
    end
    if draggingShareIndicator ~= nil then
        adjustSliders(x, y)
        draggingShareIndicator = nil
    end
    if draggingConversionIndicator ~= nil then
        adjustSliders(x, y)
        draggingConversionIndicator = nil
    end

end

function widget:PlayerChanged()
    local prevSpec = spec
    spec = spGetSpectatingState()
    checkSelfStatus()
    numTeamsInAllyTeam = #Spring.GetTeamList(myAllyTeamID)
    InitAllUnits()
    if displayComCounter then
        countComs(true)
    end
    if spec then
        resbarHover = nil
    end
    if not prevSpec and prevSpec ~= spec then
        init()
    end
end

function widget:UnitCreated(unitID, unitDefID, unitTeam)
    TrackUnit(unitID, unitDefID, unitTeam, false)
    if not isCommander[unitDefID] then
        return
    end
    --record com created
    if select(6, Spring.GetTeamInfo(unitTeam, false)) == myAllyTeamID then
        allyComs = allyComs + 1
    elseif spec then
        enemyComs = enemyComs + 1
    end
    comcountChanged = true
end

function widget:UnitTaken(unitID, unitDefID, unitTeam)
    UntrackUnit(unitID, unitDefID, unitTeam)
end

function widget:UnitGiven(unitID, unitDefID, unitTeam)
    TrackUnit(unitID, unitDefID, unitTeam, true)
end

function widget:UnitFinished(unitID, unitDefID, unitTeam)
    TrackUnit(unitID, unitDefID, unitTeam, true)
end

function widget:UnitDestroyed(unitID, unitDefID, unitTeam)
    UntrackUnit(unitID, unitDefID, unitTeam)
    if not isCommander[unitDefID] then
        return
    end
    --record com died
    if select(6, Spring.GetTeamInfo(unitTeam, false)) == myAllyTeamID then
        allyComs = allyComs - 1
    elseif spec then
        enemyComs = enemyComs - 1
    end
    comcountChanged = true
end

function widget:LanguageChanged()
    updateButtons()
end

function widget:Initialize()
    if widgetHandler:IsWidgetKnown("Top Bar") then
        widgetHandler:DisableWidget("Top Bar")
    end
    
    for _, optionSpec in ipairs(OPTION_SPECS) do
        addOptionFromSpec(optionSpec)
    end

    gameFrame = Spring.GetGameFrame()
    Spring.SendCommands("resbar 0")
    InitAllUnits()
    for unitDefID, unitDef in pairs(UnitDefs) do -- fill unitCostData this is needed for exact calculations
        local energy = unitDef.energyCost
        unitCostData[unitDefID] = {
            buildTime = unitDef.buildTime, 
            energy = unitDef.energyCost, 
            metal = unitDef.metalCost, 
            EperBP = unitDef.energyCost/unitDef.buildTime, 
            MperBP = unitDef.metalCost/unitDef.buildTime
        }
        local unitName = UnitDefs[unitDefID].name
        -- Spezielle Behandlung für Kommandeur-Einheiten
        if unitName == "armcom" or unitName == "corcom" then
            unitCostData[unitDefID].metal = config.metalCostForCommander
        end
    end
    -- determine if we want to show comcounter
    local allteams = Spring.GetTeamList()
    local teamN = table.maxn(allteams) - 1               --remove gaia
    if teamN > 2 then
        displayComCounter = true
    end

    WG['topbar'] = {}
    WG['topbar'].showingQuit = function()
        return (showQuitscreen ~= nil)
    end
    WG['topbar'].hideWindows = function()
        hideWindows()
    end
    WG['topbar'].setAutoHideButtons = function(value)
        config.autoHideButtons = value
        showButtons = not value
        updateButtons()
    end
    WG['topbar'].getAutoHideButtons = function()
        return config.autoHideButtons
    end
    WG['topbar'].getShowButtons = function()
        return showButtons
    end

    widget:ViewResize()

    if gameFrame > 0 then
        widget:GameStart()
    end

    if WG['resource_spot_finder'] and WG['resource_spot_finder'].metalSpotsList and #WG['resource_spot_finder'].metalSpotsList > 0 and #WG['resource_spot_finder'].metalSpotsList <= 2 then -- probably speedmetal kind of map
        isMetalmap = true
    end
end

function shutdown()
    if dlistButtons1 ~= nil then
        dlistWindGuishader = glDeleteList(dlistWindGuishader)
        dlistTidalGuishader = glDeleteList(dlistTidalGuishader)
        dlistWind1 = glDeleteList(dlistWind1)
        dlistWind2 = glDeleteList(dlistWind2)
        tidaldlist1 = glDeleteList(tidaldlist1)
        tidaldlist2 = glDeleteList(tidaldlist2)
        dlistComsGuishader = glDeleteList(dlistComsGuishader)
        dlistComs1 = glDeleteList(dlistComs1)
        dlistComs2 = glDeleteList(dlistComs2)
        dlistButtonsGuishader = glDeleteList(dlistButtonsGuishader)
        dlistButtons1 = glDeleteList(dlistButtons1)
        dlistButtons2 = glDeleteList(dlistButtons2)
        dlistQuit = glDeleteList(dlistQuit)

        for n, _ in pairs(dlistWindText) do
            dlistWindText[n] = glDeleteList(dlistWindText[n])
        end
        for n, _ in pairs(dlistResbar['metal']) do
            dlistResbar['metal'][n] = glDeleteList(dlistResbar['metal'][n])
        end
        for n, _ in pairs(dlistResbar['energy']) do
            dlistResbar['energy'][n] = glDeleteList(dlistResbar['energy'][n])
        end
        if config.drawBPBar == true then
            for n, _ in pairs(dlistResbar['BP']) do
                dlistResbar['BP'][n] = glDeleteList(dlistResbar['BP'][n])
            end
        end
        for res, _ in pairs(dlistResValues) do
            for n, _ in pairs(dlistResValues[res]) do
                dlistResValues[res][n] = glDeleteList(dlistResValues[res][n])
            end
        end
        for res, _ in pairs(dlistResValuesBar) do
            for n, _ in pairs(dlistResValuesBar[res]) do
                dlistResValuesBar[res][n] = glDeleteList(dlistResValuesBar[res][n])
            end
        end
    end
    if WG['guishader'] then
        WG['guishader'].RemoveDlist('topbar_energy')
        WG['guishader'].RemoveDlist('topbar_metal')
        WG['guishader'].RemoveDlist('topbar_wind')
        WG['guishader'].RemoveDlist('topbar_coms')
        WG['guishader'].RemoveDlist('topbar_buttons')
    end
    if WG['tooltip'] ~= nil then
        WG['tooltip'].RemoveTooltip('coms')
        WG['tooltip'].RemoveTooltip('wind')
        local res = 'energy'
        WG['tooltip'].RemoveTooltip(res .. '_share_slider')
        WG['tooltip'].RemoveTooltip(res .. '_share_slider2')
        WG['tooltip'].RemoveTooltip(res .. '_metalmaker_slider')
        WG['tooltip'].RemoveTooltip(res .. '_pull')
        WG['tooltip'].RemoveTooltip(res .. '_income')
        WG['tooltip'].RemoveTooltip(res .. '_storage')
        WG['tooltip'].RemoveTooltip(res .. '_current')
        res = 'metal'
        WG['tooltip'].RemoveTooltip(res .. '_share_slider')
        WG['tooltip'].RemoveTooltip(res .. '_share_slider2')
        WG['tooltip'].RemoveTooltip(res .. '_pull')
        WG['tooltip'].RemoveTooltip(res .. '_income')
        WG['tooltip'].RemoveTooltip(res .. '_storage')
        WG['tooltip'].RemoveTooltip(res .. '_current')
    end
    
    if WG['options'] ~= nil then
        for _, option in ipairs(OPTION_SPECS) do
            WG['options'].removeOption(getOptionId(option))
        end
    end
end

function widget:Shutdown()
    --Spring.SendCommands("resbar 1")
    if widgetHandler:IsWidgetKnown("Top Bar") then
        widgetHandler:EnableWidget("Top Bar")
    end
    shutdown()
    WG['topbar'] = nil
end


function findBPCommand(unitID, unitDefID, cmdList) -- for bp bar only most likely
    -- TODO: can we get rid of cmdlist? Moving should count as non-idle for at least commanders, and perhaps other units too.
    local unitExists = false
    local active = false
    local builtUnitDefID = nil
    local mayBeBuilding = false -- will remain false even if builtUnitDefID is non-nil
    local guardedUnitID = nil -- returned in case we want to check for cycles of idle builders

    local commands = nil
    -- We only need one command to figure out if the unit is active.
    -- TODO: Try GetUnitCurrentCommand
    if UnitDefs[unitDefID].isFactory then
        commands = Spring.GetFactoryCommands(unitID, 1)
    else
        commands = Spring.GetUnitCommands(unitID, 1)
    end

    if commands then
        unitExists = true
        for i = 1, #commands do
            active = true
            if commands[i].id < 0 and not builtUnitDefID then
                -- We're building something. A negative ID is the unitdef ID of what's being built.
                builtUnitDefID = -commands[i].id
                --Spring.Echo("unit " .. unitID .. " is building unitdef " .. builtUnitDefID)
            elseif commands[i].id == CMD.GUARD then
                mayBeBuilding = true -- building can be caused by a guard command
                guardedUnitID = commands[i].params[1]
            elseif commands[i].id == CMD.REPAIR then
                mayBeBuilding = true -- building can be caused by a repair command
            end
        end
    end

    return unitExists, active, builtUnitDefID, mayBeBuilding, guardedUnitID
end

function pid(Kp, Ki, Kd, dt, prevIntegral, prevError, setPoint, measuredValue)
    if dt <= 0 then
        return measuredValue, prevIntegral, prevError
    end
    -- setpoint: instantaneous observed value
    -- measuredValue: position of displayed indicator
    local error = setPoint - measuredValue
    local proportional = error;
    local integral = prevIntegral + error * dt
    local derivative = (error - prevError) / dt
    local output = Kp * proportional + Ki * integral + Kd * derivative
    return output, integral, error
end

function TrackUnit(unitID, unitDefID, unitTeam, isBuilt) -- needed for exact calculations
    if isBuilt == nil then
        local health, maxHealth, paralyzeDamage, capture, build = Spring.GetUnitHealth(unitID)
        isBuilt = build >= 1
    end
    if (not config.includeConsBeingBuilt) and (not isBuilt) then
        return
    end
    local unitDef = UnitDefs[unitDefID]
    if (myTeamID == unitTeam) and unitDef then
        if unitDef.buildSpeed and unitDef.buildSpeed > 0 and unitDef.canAssist then
            -- is factory is needed for bp bar only (switch metal cost on/off)
            if unitDef.isFactory == false or config.includeFactories then
                trackedNum = trackedNum + 1
                local unitDefID = Spring.GetUnitDefID(unitID) --handling metal cost
                local currentUnitMetalCost = 100
                if UnitDefs[unitDefID].metalCost ~= nil then
                    currentUnitMetalCost = UnitDefs[unitDefID].metalCost
                end
                local unitName = UnitDefs[unitDefID].name -- Cost of Comms
                if unitName == "armcom" or unitName == "corcom" then
                    currentUnitMetalCost = config.metalCostForCommander
                end

                -- We may have already tracked this unit when it started being built. No need to add its BP again.
                if not trackedBuilders[unitID] then
                    BP[2] = BP[2] + currentUnitMetalCost --BP[2] ^= totalMetalCostOfBuilders
                    BP[4] = BP[4] + unitDef.buildSpeed -- BP[4] ^= totalAvailableBP
                end
                trackedBuilders[unitID] = { unitDef.buildSpeed, isBuilt, unitDefID, unitTeam }
            end
        elseif isBuilt and (unitDef.name == "armwin" or unitDef.name == "corwin") then -- wind generator
            trackedWinds[unitID] = 1
            numWindGenerators = numWindGenerators + 1
        end
    end
end

function UntrackUnit(unitID, unitDefID, unitTeam) -- needed for exact calculations
    local unitDef = UnitDefs[unitDefID]
    if (myTeamID == unitTeam) and unitDef then
        if unitDef.buildSpeed and unitDef.buildSpeed > 0 and unitDef.canAssist then
            -- is factory is needed for bp bar only (switch metal cost on/off)
            if unitDef.isFactory == false or config.includeFactories then
                trackedNum = trackedNum - 1
                local unitDefID = Spring.GetUnitDefID(unitID) --handling metal cost
                local currentUnitMetalCost = 100
                if UnitDefs[unitDefID].metalCost ~= nil then
                    currentUnitMetalCost = UnitDefs[unitDefID].metalCost
                end
                local unitName = UnitDefs[unitDefID].name -- Cost of Comms
                if unitName == "armcom" or unitName == "corcom" then
                    currentUnitMetalCost = config.metalCostForCommander
                end
                BP[2] = BP[2] - currentUnitMetalCost --BP[2] ^= totalMetalCostOfBuilders
                BP[4] = BP[4] - trackedBuilders[unitID][1] -- BP[4] ^= totalAvailableBP
            end
        end
        if trackedBuilders[unitID] then
             trackedBuilders[unitID] = nil
        end
        if trackedWinds[unitID] then
            trackedWinds[unitID] = nil
            numWindGenerators = numWindGenerators - 1
        end
    end
end
--function removeBuildUnitFromBP(unitID)
--  if Spring.ValidUnitID(unitID) and not Spring.GetUnitIsDead(unitID) then
--      local unitDefID = Spring.GetUnitDefID(unitID)
--      -- Sicherstellen, dass ein Metallkostenwert vorhanden ist
--      if not UnitDefs[unitDefID].metalCost then
--          UnitDefs[unitDefID].metalCost = 100 -- Standardwert, falls nicht vorhanden
--      end
--      local currentUnitMetalCost = UnitDefs[unitDefID].metalCost
--      local unitName = UnitDefs[unitDefID].name
--      -- Spezielle Behandlung für Kommandeur-Einheiten
--      if unitName == "armcom" or unitName == "corcom" then
--          currentUnitMetalCost = config.metalCostForCommander
--      end
--      BP[2] = BP[2] - currentUnitMetalCost
--      BP[4] = BP[4] - currentUnitBP   
--  end
--end

function InitAllUnits()
    BP[2] = 0
    BP[4] = 0
    trackedNum = 0
    trackedBuilders = {}
    trackedWinds = {}
    numWindGenerators = 0

    for _, unitID in pairs(Spring.GetTeamUnits(myTeamID)) do  -- needed for exact calculations
        TrackUnit(unitID, Spring.GetUnitDefID(unitID), myTeamID)
    end
end

--function calcTotalMAndBPOfBuilders()
--  Log("calcTotalMAndBPOfBuilders")
--  local totalMetalCostOfBuilders = 0
--  local totalAvailableBP = 0
--  for unitID, currentUnitBP in pairs(trackedBuilders) do
--      -- Prüfen, ob die Einheit gültig und nicht tot ist
--      if Spring.ValidUnitID(unitID) and not Spring.GetUnitIsDead(unitID) then
--          local unitDefID = Spring.GetUnitDefID(unitID)
--          -- Sicherstellen, dass ein Metallkostenwert vorhanden ist
--          if not UnitDefs[unitDefID].metalCost then
--              UnitDefs[unitDefID].metalCost = 100 -- Standardwert, falls nicht vorhanden
--          end
--          local currentUnitMetalCost = UnitDefs[unitDefID].metalCost
--          local unitName = UnitDefs[unitDefID].name
--          -- Spezielle Behandlung für Kommandeur-Einheiten
--          if unitName == "armcom" or unitName == "corcom" then
--              currentUnitMetalCost = config.metalCostForCommander
--          end
--          totalMetalCostOfBuilders = totalMetalCostOfBuilders + currentUnitMetalCost
--          totalAvailableBP = totalAvailableBP + currentUnitBP
--      end
--  end
--  BP[2] = totalMetalCostOfBuilders
--  BP[4] = totalAvailableBP
--end

--function addBuildUnitToBP(unitID)
--  if Spring.ValidUnitID(unitID) and not Spring.GetUnitIsDead(unitID) then
--      local unitDefID = Spring.GetUnitDefID(unitID)
--      -- Sicherstellen, dass ein Metallkostenwert vorhanden ist
--      if not UnitDefs[unitDefID].metalCost then
--          UnitDefs[unitDefID].metalCost = 100 -- Standardwert, falls nicht vorhanden
--      end
--      local currentUnitMetalCost = UnitDefs[unitDefID].metalCost
--      local unitName = UnitDefs[unitDefID].name
--      -- Spezielle Behandlung für Kommandeur-Einheiten
--      if unitName == "armcom" or unitName == "corcom" then
--          currentUnitMetalCost = config.metalCostForCommander
--      end
--      BP[2] = BP[2] + currentUnitMetalCost
--      BP[4] = BP[4] + currentUnitBP   
--  end
--end