Module Script

local Short = {}

Short.Comma = function(Value)
    local Number
    local Formatted = Value
    while true do
        Formatted, Number = string.gsub(Formatted, "^(-?%d+)(%d%d%d)", '%1,%2')
        if (Number == 0) then
            break
        end
    end
    return Formatted
end

function addComas(str)
    return #str % 3 == 0 and str:reverse():gsub("(%d%d%d)", "%1,"):reverse():sub(2) or str:reverse():gsub("(%d%d%d)", "%1,"):reverse()
end

local function roundWhole(n)
    return math.floor(n + 0.5)
end

local function roundDecimal(t)
    return math.floor(t * 10) * 0.1
end

Short.en = function(Input)
    if Input < -1e3 then
        Input = roundWhole(tonumber(Input))
        Input = addComas(tostring(Input))

    elseif Input < 0 and Input >= -1e3 then
        Input = roundDecimal(tonumber(Input))

    elseif Input < 1e3 and Input >= 0 then
        Input = roundDecimal(tonumber(Input))

    elseif Input < 1e6 and Input >= 1e3 then
        Input = roundWhole(tonumber(Input))
        Input = addComas(tostring(Input))

    elseif Input < 1e9 and Input >= 1e6 then
        Input = tostring(Input/1e6):sub(1,5) .. "M"

    elseif Input < 1e12 and Input >= 1e9 then
        Input = tostring(Input/1e9):sub(1,5) .. "B"

    elseif Input < 1e15 and Input >= 1e12 then
        Input = tostring(Input/1e12):sub(1,5) .. "T"

    elseif Input < 1e18 and Input >= 1e15 then
        Input = tostring(Input/1e15):sub(1,5) .. "Qd"

    elseif Input < 1e21 and Input >= 1e18 then
        Input = tostring(Input/1e18):sub(1,5) .. "Qn"

    elseif Input < 1e24 and Input >= 1e21 then
        Input = tostring(Input/1e21):sub(1,5) .. "Sx"

    elseif Input < 1e27 and Input >= 1e24 then
        Input = tostring(Input/1e24):sub(1,5) .. "Sp"

    elseif Input < 1e30 and Input >= 1e27 then
        Input = tostring(Input/1e27):sub(1,5) .. "Oc"

    elseif Input < 1e33 and Input >= 1e30 then
        Input = tostring(Input/1e30):sub(1,5) .. "No"

    elseif Input < 1e36 and Input >= 1e33 then
        Input = tostring(Input/1e33):sub(1,5) .. "De"

    elseif Input < 1e39 and Input >= 1e36 then
        Input = tostring(Input/1e36):sub(1,5) .. "UDe"

    elseif Input < 1e42 and Input >= 1e39 then
        Input = tostring(Input/1e39):sub(1,5) .. "DDe"

    elseif Input < 1e45 and Input >= 1e42 then
        Input = tostring(Input/1e42):sub(1,5) .. "TDe"

    elseif Input < 1e48 and Input >= 1e45 then
        Input = tostring(Input/1e45):sub(1,5) .. "QtDe"

    elseif Input < 1e51 and Input >= 1e48 then
        Input = tostring(Input/1e48):sub(1,5) .. "QnDe"

    elseif Input < 1e54 and Input >= 1e51 then
        Input = tostring(Input/1e51):sub(1,5) .. "SxDe"

    elseif Input < 1e57 and Input >= 1e54 then
        Input = tostring(Input/1e54):sub(1,5) .. "SpDe"

    elseif Input < 1e60 and Input >= 1e57 then
        Input = tostring(Input/1e57):sub(1,5) .. "OcDe"

    elseif Input < 1e63 and Input >= 1e60 then
        Input = tostring(Input/1e60):sub(1,5) .. "NoDe"

    elseif Input < 1e66 and Input >= 1e63 then
        Input = tostring(Input/1e63):sub(1,5) .. "Vg"

    elseif Input < 1e69 and Input >= 1e66 then
        Input = tostring(Input/1e66):sub(1,5) .. "UVg"

    elseif Input < 1e72 and Input >= 1e69 then
        Input = tostring(Input/1e69):sub(1,5) .. "DVg"

    elseif Input < 1e75 and Input >= 1e72 then
        Input = tostring(Input/1e72):sub(1,5) .. "TVg"

    elseif Input < 1e78 and Input >= 1e75 then
        Input = tostring(Input/1e75):sub(1,5) .. "QtVg"

    elseif Input < 1e81 and Input >= 1e78 then
        Input = tostring(Input/1e78):sub(1,5) .. "QnVg"

    elseif Input < 1e84 and Input >= 1e81 then
        Input = tostring(Input/1e81):sub(1,5) .. "SxVg"

    elseif Input < 1e87 and Input >= 1e84 then
        Input = tostring(Input/1e84):sub(1,5) .. "SpVg"

    elseif Input < 1e90 and Input >= 1e87 then
        Input = tostring(Input/1e87):sub(1,5) .. "OcVg"

    elseif Input < 1e93 and Input >= 1e90 then
        Input = tostring(Input/1e90):sub(1,5) .. "NoVg"

    elseif Input < 1e96 and Input >= 1e93 then
        Input = tostring(Input/1e93):sub(1,5) .. "Tg"

    elseif Input < 1e99 and Input >= 1e96 then
        Input = tostring(Input/1e96):sub(1,5) .. "UTg"

    elseif Input < 1e102 and Input >= 1e99 then
        Input = tostring(Input/1e99):sub(1,5) .. "DTg"

    elseif Input < 1e105 and Input >= 1e102 then
        Input = tostring(Input/1e102):sub(1,5) .. "TTg"

    elseif Input < 1e108 and Input >= 1e105 then
        Input = tostring(Input/1e105):sub(1,5) .. "QdTg"

    elseif Input < 1e111 and Input >= 1e108 then
        Input = tostring(Input/1e108):sub(1,5) .. "QnTg"

    elseif Input < 1e114 and Input >= 1e111 then
        Input = tostring(Input/1e111):sub(1,5) .. "SxTg"

    elseif Input < 1e117 and Input >= 1e114 then
        Input = tostring(Input/1e114):sub(1,5) .. "SpTg"

    elseif Input < 1e120 and Input >= 1e117 then
        Input = tostring(Input/1e117):sub(1,5) .. "OcTg"

    elseif Input < 1e123 and Input >= 1e120 then
        Input = tostring(Input/1e120):sub(1,5) .. "NoTg"

    elseif Input < 1e126 and Input >= 1e123 then
        Input = tostring(Input/1e123):sub(1,5) .. "qg"

    elseif Input < 1e129 and Input >= 1e126 then
        Input = tostring(Input/1e126):sub(1,5) .. "Uqg"

    elseif Input < 1e132 and Input >= 1e129 then
        Input = tostring(Input/1e129):sub(1,5) .. "Dqg"

    elseif Input < 1e135 and Input >= 1e132 then
        Input = tostring(Input/1e132):sub(1,5) .. "Tqg"

    elseif Input < 1e138 and Input >= 1e135 then
        Input = tostring(Input/1e135):sub(1,5) .. "Qdqg"

    elseif Input < 1e141 and Input >= 1e138 then
        Input = tostring(Input/1e138):sub(1,5) .. "Qnqg"

    elseif Input < 1e144 and Input >= 1e141 then
        Input = tostring(Input/1e141):sub(1,5) .. "Sxqg"

    elseif Input < 1e147 and Input >= 1e144 then
        Input = tostring(Input/1e144):sub(1,5) .. "Spqg"

    elseif Input < 1e150 and Input >= 1e147 then
        Input = tostring(Input/1e147):sub(1,5) .. "Ocqg"

    elseif Input < 1e153 and Input >= 1e150 then
        Input = tostring(Input/1e150):sub(1,5) .. "Noqg"

    elseif Input < 1e156 and Input >= 1e153 then
        Input = tostring(Input/1e153):sub(1,5) .. "Qg"

    elseif Input < 1e159 and Input >= 1e156 then
        Input = tostring(Input/1e156):sub(1,5) .. "UQg"

    elseif Input < 1e162 and Input >= 1e159 then
        Input = tostring(Input/1e159):sub(1,5) .. "DQg"

    elseif Input < 1e165 and Input >= 1e162 then
        Input = tostring(Input/1e162):sub(1,5) .. "TQg"

    elseif Input < 1e168 and Input >= 1e165 then
        Input = tostring(Input/1e165):sub(1,5) .. "QdQg"

    elseif Input < 1e171 and Input >= 1e168 then
        Input = tostring(Input/1e168):sub(1,5) .. "QnQg"

    elseif Input < 1e174 and Input >= 1e171 then
        Input = tostring(Input/1e171):sub(1,5) .. "SxQg"

    elseif Input < 1e177 and Input >= 1e174 then
        Input = tostring(Input/1e174):sub(1,5) .. "SpQg"

    elseif Input < 1e180 and Input >= 1e177 then
        Input = tostring(Input/1e177):sub(1,5) .. "OcQg"

    elseif Input < 1e183 and Input >= 1e180 then
        Input = tostring(Input/1e180):sub(1,5) .. "NoQg"

    elseif Input < 1e186 and Input >= 1e183 then
        Input = tostring(Input/1e183):sub(1,5) .. "sg"

    elseif Input < 1e189 and Input >= 1e186 then
        Input = tostring(Input/1e186):sub(1,5) .. "Usg"

    elseif Input < 1e192 and Input >= 1e189 then
        Input = tostring(Input/1e189):sub(1,5) .. "Dsg"

    elseif Input < 1e195 and Input >= 1e192 then
        Input = tostring(Input/1e192):sub(1,5) .. "Tsg"

    elseif Input < 1e198 and Input >= 1e195 then
        Input = tostring(Input/1e195):sub(1,5) .. "Qdsg"

    elseif Input < 1e201 and Input >= 1e198 then
        Input = tostring(Input/1e198):sub(1,5) .. "Qnsg"

    elseif Input < 1e204 and Input >= 1e201 then
        Input = tostring(Input/1e201):sub(1,5) .. "Sxsg"

    elseif Input < 1e207 and Input >= 1e204 then
        Input = tostring(Input/1e204):sub(1,5) .. "Spsg"

    elseif Input < 1e210 and Input >= 1e207 then
        Input = tostring(Input/1e207):sub(1,5) .. "Ocsg"

    elseif Input < 1e213 and Input >= 1e210 then
        Input = tostring(Input/1e210):sub(1,5) .. "Nosg"

    elseif Input < 1e216 and Input >= 1e213 then
        Input = tostring(Input/1e213):sub(1,5) .. "Sg"

    elseif Input < 1e219 and Input >= 1e216 then
        Input = tostring(Input/1e216):sub(1,5) .. "USg"

    elseif Input < 1e222 and Input >= 1e219 then
        Input = tostring(Input/1e219):sub(1,5) .. "DSg"

    elseif Input < 1e225 and Input >= 1e222 then
        Input = tostring(Input/1e222):sub(1,5) .. "TSg"

    elseif Input < 1e228 and Input >= 1e225 then
        Input = tostring(Input/1e225):sub(1,5) .. "QdSg"

    elseif Input < 1e231 and Input >= 1e228 then
        Input = tostring(Input/1e228):sub(1,5) .. "QnSg"

    elseif Input < 1e234 and Input >= 1e231 then
        Input = tostring(Input/1e231):sub(1,5) .. "SxSg"

    elseif Input < 1e237 and Input >= 1e234 then
        Input = tostring(Input/1e234):sub(1,5) .. "SpSg"

    elseif Input < 1e240 and Input >= 1e237 then
        Input = tostring(Input/1e237):sub(1,5) .. "OcSg"

    elseif Input < 1e243 and Input >= 1e240 then
        Input = tostring(Input/1e240):sub(1,5) .. "NoSg"

    elseif Input < 1e246 and Input >= 1e243 then
        Input = tostring(Input/1e243):sub(1,5) .. "Og"

    elseif Input < 1e249 and Input >= 1e246 then
        Input = tostring(Input/1e246):sub(1,5) .. "UOg"

    elseif Input < 1e252 and Input >= 1e249 then
        Input = tostring(Input/1e249):sub(1,5) .. "DOg"

    elseif Input < 1e255 and Input >= 1e252 then
        Input = tostring(Input/1e252):sub(1,5) .. "TOg"

    elseif Input < 1e258 and Input >= 1e255 then
        Input = tostring(Input/1e255):sub(1,5) .. "QdOg"

    elseif Input < 1e261 and Input >= 1e258 then
        Input = tostring(Input/1e258):sub(1,5) .. "QnOg"

    elseif Input < 1e264 and Input >= 1e261 then
        Input = tostring(Input/1e261):sub(1,5) .. "SxOg"

    elseif Input < 1e267 and Input >= 1e264 then
        Input = tostring(Input/1e264):sub(1,5) .. "SpOg"

    elseif Input < 1e270 and Input >= 1e267 then
        Input = tostring(Input/1e267):sub(1,5) .. "OcOg"

    elseif Input < 1e273 and Input >= 1e270 then
        Input = tostring(Input/1e270):sub(1,5) .. "NoOg"

    elseif Input < 1e276 and Input >= 1e273 then
        Input = tostring(Input/1e273):sub(1,5) .. "Ng"

    elseif Input < 1e279 and Input >= 1e276 then
        Input = tostring(Input/1e276):sub(1,5) .. "UNg"

    elseif Input < 1e282 and Input >= 1e279 then
        Input = tostring(Input/1e279):sub(1,5) .. "DNg"

    elseif Input < 1e285 and Input >= 1e282 then
        Input = tostring(Input/1e282):sub(1,5) .. "TNg"

    elseif Input < 1e288 and Input >= 1e285 then
        Input = tostring(Input/1e285):sub(1,5) .. "QdNg"

    elseif Input < 1e291 and Input >= 1e288 then
        Input = tostring(Input/1e288):sub(1,5) .. "QnNg"

    elseif Input < 1e294 and Input >= 1e291 then
        Input = tostring(Input/1e291):sub(1,5) .. "SxNg"

    elseif Input < 1e297 and Input >= 1e294 then
        Input = tostring(Input/1e294):sub(1,5) .. "SpNg"

    elseif Input < 1e300 and Input >= 1e297 then
        Input = tostring(Input/1e297):sub(1,5) .. "OcNg"

    elseif Input < 1e303 and Input >= 1e300 then
        Input = tostring(Input/1e300):sub(1,5) .. "NoNg"

    elseif Input < 1e306 and Input >= 1e303 then
        Input = tostring(Input/1e303):sub(1,5) .. "Ce"

    elseif Input < 1.7976931348e308 and Input >= 1e306 then
        Input = addComas(tostring(Input/1e303):sub(1,5)) .. "Ce"

    elseif Input >= 1.7976931348e308 then
        Input = "Infinite"
    end

    return Input
end

return Short