[Script] #Trade

--Creator: Bolodefchoco
--Made in: 14/06/2016
--Last update: 14/06/2016
--[[ Notes:
    Does:
        Cria uma tabela LETxNUM igual #trade
]]--

LET,NUM = 5,10

tfm.exec.disableAutoNewGame()
tfm.exec.disableAfkDeath()
tfm.exec.disableAutoShaman()

eventPlayerDied=function(n) tfm.exec.respawnPlayer(n) end
tfm.exec.newGame('<C><P /><Z><S><S L="800" o="324650" H="130" X="400" Y="440" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S L="800" o="324650" H="235" X="400" Y="120" T="12" P="0,0,0.3,0.2,0,0,0,0" /></S><D /><O /></Z></C>')

letters = {"A","B","C","D","E","F","G","H","I"}
colors = {"BABD2F","2ECF73","CB546B"}
for k,v in next,{"green","red"} do
    _G[v] = {}
    for j,i in next,letters do
        _G[v][i] = {{},{},{},{},{},{},{},{},{},{}}
    end
end

table.destroy=function(list,value)
    for k,v in next,list do
        if v == value then
            table.remove(list,k);break
        end
    end
end

generateTable = function(n,dimension,q,i)
    q = (q>0 and q<10 and q or 4)
    i = (i>0 and i<11 and i or 10)
    for R = 1,q do
        for I = 1,i do
            local item = letters[R]..I
            local id = mice[n].letters[letters[R]][I]
            local str = "\n<p align='right'><a href='event:%s'>+</a>"
            str = (id==1 and str:format("plus_green_"..item) or id==2 and str:format("plus_red_"..item) or "")
            ui.addTextArea(R..I,"<B><a href='event:change_"..(id+1<3 and (id+1) or 0).."_"..item.."'>"..item..str,n,378 + (I * (dimension+8)),(R * (dimension+8)),dimension,dimension,tonumber(colors[id+1],16),1,.4,true)
        end
    end
end

mice={}
eventNewPlayer=function(n)
    mice[n] = {
        timer = 0,
        letters={
            A = {0,0,0,0,0,0,0,0,0,0},
            B = {0,0,0,0,0,0,0,0,0,0},
            C = {0,0,0,0,0,0,0,0,0,0},
            D = {0,0,0,0,0,0,0,0,0,0},
            E = {0,0,0,0,0,0,0,0,0,0},
            F = {0,0,0,0,0,0,0,0,0,0},
            G = {0,0,0,0,0,0,0,0,0,0},
            H = {0,0,0,0,0,0,0,0,0,0},
            I = {0,0,0,0,0,0,0,0,0,0},
        },
    }
    generateTable(n,30,LET,NUM)
end
table.foreach(tfm.get.room.playerList,eventNewPlayer)

eventTextAreaCallback=function(i,n,c)
    if os.time() > mice[n].timer then
        mice[n].timer = os.time() + 500
        local p = {}
        for val in c:gmatch("[^_]+") do table.insert(p,val) end
        if p[1] == "match" then
            local str = ""
            ui.addTextArea(-3,"<p align='center'><font size='14'><a href='event:close'><J>Close Match</a></font></p>",n,205,210,180,22)
            ui.addTextArea(-4,str,n,205,25,180,180)
        elseif p[1] == "close" then
            for i = 1,4 do ui.removeTextArea(-i,n) end
        else
            local letter,number = p[3]:sub(1,1),tonumber(p[3]:sub(2))
            if p[1] == "change" then
                local int = tonumber(p[2])
                mice[n].letters[letter][number] = int
                generateTable(n,30,LET,NUM)
                if int == 0 then
                    table.destroy(red[letter][number],n)
                end
                if int == 1 then
                    table.insert(green[letter][number],n)
                end
                if int == 2 then
                    table.destroy(green[letter][number],n)
                    table.insert(red[letter][number],n)
                end
            end
            if p[1] == "plus" then
                list,color = nil,nil
                if p[2] == "green" then
                    list,color = red,"R"
                else
                    list,color = green,"VP"
                end
                ui.addTextArea(-2,"<p align='center'><font size='14'><a href='event:close'><"..color..">"..p[3].." <J>Close</a></font></p>",n,5,210,180,22)
                ui.addTextArea(-1,table.concat(list[letter][number],"\n"),n,5,25,180,180)
            end
        end
    end
end