sorter.lua

local c = require('component')
local fs = require('filesystem')
local term = require('term')
local atm = c.atm

function status(x, y, txt, len)
    local private, public = {}, {}

    do
        private.x = x
        private.y = y
        private.txt = txt
        private.len = len
        private.lastPercent = 0
    end

    public.draw = function(percent)
        percent = math.floor(percent)
       if private.lastPercent < percent then
         term.setCursor(private.x, private.y)
         term.clearLine()
         io.write(private.txt..'[')
         local cp = 100 / len
         local chars = math.floor(percent / cp)
         for i = 1, chars do
            io.write('#')
         end
         term.setCursor(private.x + len + #(private.txt..'['), y)
         io.write(']'..math.floor(percent)..'%')
         print()
         private.lastPercent = percent
        end
    end
    return public
end

local players = atm.getAllPlayers()
local playersBalance = {}

local load = status(1, 1, "Loading ", 20)
local sort = status(1, 2, "Sorting ", 20)
local save = status(1, 3, "Saving ", 20)

local len = #players
for i = 1, len do
    playersBalance[#playersBalance + 1] = {players[i], atm.getBalance(players[i])}
    load.draw(i / (len / 100))
end

local len = #playersBalance
local count = 1
for i = 1, len do
    for q = 1, len do
        if playersBalance[q][2] < playersBalance[i][2] then
            local tmp = playersBalance[q]
            playersBalance[q] = playersBalance[i]
            playersBalance[i] = tmp
        end
        sort.draw(count / (len * len / 100))
        count = count + 1
    end
end

local f = fs.open('rangs', 'w')

for i = 1, len do
    f:write(playersBalance[i][1] .. " : " .. playersBalance[i][2].."\n")
    save.draw(i / (len / 100))
end

f:close()