Цветовая конвертация RGB <=> hex <=> dec

function decimalToHex(num)
    local num = math.tointeger(num)
    if num == 0 then
        return '00'
    end
    local neg = false
    if num < 0 then
        neg = true
        num = num * -1
    end
    local hexstr = "0123456789ABCDEF"
    local result = ""
    while num > 0 do
        local n = math.fmod(num, 16)
        result = string.sub(hexstr, n + 1, n + 1) .. result
        num = math.floor(num / 16)
    end
            
    if #result < 2 then
        result = "0" .. result
    end
            
    if neg then
        result = '-' .. result
    end
    return result
end

function decimalToHex(num,sum)
    local num = math.tointeger(num)

    local neg = false
    if num < 0 then
        neg = true
        num = num * -1
    end
    local hexstr = "0123456789ABCDEF"
    local result = ""
    while num > 0 do
        local n = math.fmod(num, 16)
        result = string.sub(hexstr, n + 1, n + 1) .. result
        num = math.floor(num / 16)
    end
    if sum then --если число sum введено 
        if #result<sum then
            local k = sum-#result

            for i=1,k do
                result = '0'..result
            end
        end
    end
            
    if neg then
        result = '-' .. result
    end
    return result
end

--num - число, sum - кол-во символов
function decimalToHex(num,sum)
    local num = num//1 --math.tointeger(float) возвращает целое от float. Но есть частный случай с нулями, как целое ноль не показывается. Пример 0.5 => вместо ноль,  показывает nil. Поэтому используем другой способ - деление a//b при котором получаем целое число 
    local d="%x" --спецификатор форматирования, который определяет как отобразить строку. если sum не указан, то string.format с таким спецификатором не рисует впереди нули.
	if sum then
		 d='%0'..sum..'x' --другой спецификатор, в котором указано в строке какое-то число символов. при недостающих символах дорисовывает впереди нули
	end
	return string.format(d,num)
end

r =decimalToHex( (( (max_hp-current_hp)/max_hp)*255 )
g =decimalToHex( (current_hp/max_hp)*255 )
b =decimalToHex(0) --синий в данном примере игнорируем, поэтому значение обнулено
string='|cff'..r..g..b..text..'|r' --склеиваем все в одну строку

function H2D(hex)
  local abc = "0123456789abcdef"
  local i = 0
  local dec 
  if hex then
    if #hex==2 then
        repeat  --циклом находим символ из строки abc
            i = i + 1
        until ( abc:sub(i,i)==hex:sub(1,1) or i>16 )

        dec = (i-1) * 16
        
        i = 0
        repeat --циклом находим символ из строки abc
            i = i + 1
        until ( abc:sub(i,i)==hex:sub(2,2) or i>16 ) 
        dec = dec + i - 1
    elseif #hex==1 then
      i = 0
      repeat
        i = i + 1
      until ( abc:sub(i,i)==hex:sub(1,1) or i>16 )
      dec = i - 1
    end
    return dec
  else
    return 0
  end
end

function H2D(hex)
    hex = hex:gsub("#","")
    return tonumber("0x"..hex:sub(1,#hex))
end

function H2D(hex)
    return tonumber(hex, 16)
end

function rgbToHex(r,g,b)
    local rgb = (r * 0x10000) + (g * 0x100) + b
    local s = string.format("%x", rgb)
    local k = 6-#s

    for i=1,k do
        s = '0'..s
    end

    return s
end
function argbToHex(a,r,g,b)
    local argb = (a * 0x1000000) + (r * 0x10000) + (g * 0x100) + b
    local s = string.format("%x", argb)
    local k = 8-#s

    for i=1,k do
        s = '0'..s
    end
    return s
end

function rgba2hex(r, g, b, a)
  return string.format('%02x%02x%02x%02x', a or 255, r, g, b)
end

function rgbToDec(r,g,b)
    local rh = string.format("%02x", r) -- minimum returned numbers 2, left padded with 0's see https://developer.roblox.com/en-us/articles/Format-String
    local gh = string.format("%02x", g)
    local bh = string.format("%02x", b)
    local hex = "0x"..rh..gh..bh
    local dec = tonumber(hex) --или можно сразу tonumber(rh..gh..bh,16)
    --print("Vals: " .. r .. ", " .. g .. ", " .. b)
    --print("Hex: " .. hex)
    --print("Decimal: " .. dec)
    return dec
end

function rgba2dec(r, g, b, a)
  return ((a or 255) << 24) + (r << 16) + (g << 8) + b
end

function CreateCircleShapeImage(data,file,size,cx,cy,radius,imagetype,line_width,color1,color2)
	
	local a1,r1,g1,b1 
	local a2,r2,g2,b2
	if color1 then --если указан цвет внутреннего круга
		a1,r1,g1,b1 = hex2argb(color1)
	end
	if color2 then --если указан цвет кольца/контура 
		a2,r2,g2,b2 = hex2argb(color2)
	end
	
	--тело функции
end

function hex2rgb(hex)
    hex = hex:gsub("#","")
    return tonumber("0x"..hex:sub(1,2)), tonumber("0x"..hex:sub(3,4)), tonumber("0x"..hex:sub(5,6))
end
function hex2argb(hex)
    hex = hex:gsub("#","")
    return tonumber("0x"..hex:sub(1,2)), tonumber("0x"..hex:sub(3,4)), tonumber("0x"..hex:sub(5,6)), tonumber("0x"..hex:sub(7,8))
end

function HEXtoRGB(hexArg)

   hexArg = hexArg:gsub('#','')

   if(string.len(hexArg) == 3) then
      return tonumber('0x'..hexArg:sub(1,1)) * 17, tonumber('0x'..hexArg:sub(2,2)) * 17, tonumber('0x'..hexArg:sub(3,3)) * 17
   elseif(string.len(hexArg) == 6) then
      return tonumber('0x'..hexArg:sub(1,2)), tonumber('0x'..hexArg:sub(3,4)), tonumber('0x'..hexArg:sub(5,6))
   else
      return 0, 0, 0
   end

end

function hex2rgba(h)
  local n = tonumber(h, 16)
  return n >> 16 & 255, n >> 8 & 255, n & 255, n >> 24 & 255
end