[Game] Click

click = {
    new = 11,
    timer = 21,
    info = {},
    init = function()
        for k,v in next,{"utoNewGame","utoShaman","fkDeath","utoScore"} do
            tfm.exec["disableA"..v]()
        end
        tfm.exec.setRoomMaxPlayers(30)
        system.disableChatCommandDisplay("p",true)
        click.map()
    end,
    map = function()
        tfm.exec.newGame('<C><P /><Z><S><S L="800" H="100" X="400" Y="400" T="0" P="0,0,0.3,0.2,0,0,0,0" /></S><D><DS X="25" Y="350" /></D><O /><L><JPL P1="125,127"P3="125,131"P4="124,136"P2="123,142"c="000000,16"/><JPL P1="123,142"P3="123,147"P4="123,153"P2="123,160"c="000000,16"/><JPL P1="123,160"P3="123,166"P4="125,172"P2="126,178"c="000000,16"/><JPL P1="126,178"P3="129,185"P4="133,191"P2="138,196"c="000000,16"/><JPL P1="138,196"P3="144,201"P4="151,206"P2="160,210"c="000000,16"/><JPL P1="160,210"P3="171,214"P4="183,216"P2="197,218"c="000000,16"/><JPL P1="197,218"P3="213,219"P4="231,219"P2="213,219"c="000000,16"/><JD P1="215,244"P2="243,225"c="000000,16"/><JD P1="243,225"P2="229,196"c="000000,16"/><L /></L></Z></C>')
    end,
    eventPlayerDied = function(n)
        tfm.exec.respawnPlayer(n)
    end,
    eventNewPlayer = function(n)
        tfm.exec.chatMessage("<BV>Welcome to <CH><B>#click</B><BV>!\n\t» Typing <B>!info</B> displays the help message\n\t» Typing <B>!p Playername</B> opens the profile of the player",n)
        click.info[n] = {
            count = 0,
            total = 0,
            best = 0
        }
        tfm.exec.setPlayerScore(n,0)
    end,
    eventLoop = function()
        click.new = click.new - .5
        if click.new <= 0 then
            if click.timer > 0 then
                click.timer = click.timer - .5
                ui.setMapName("CLICK!<")
                ui.addTextArea(0,"<p align='center'><font size='30'>Click as fast as you can! You have "..math.floor(click.timer).." seconds!",nil,5,30,nil,nil,1,1,0,true)
                ui.addTextArea(1,"<p align='center'><font size='600'><R><a href='event:.'>•",nil,240,-180,nil,nil,1,1,0,false)
            else
                local p,r = {},""
                for k,v in next,click.info do
                    p[#p+1] = {k,v.count}
                end
                table.sort(p,function(t1,t2) return t1[2] > t2[2] end)
                for k,v in next,p do
                    if k < 51 then
                        if k == 1 and v[2]>0 then
                            tfm.exec.chatMessage("<J>"..v[1].." <G>won!")
                            tfm.exec.setPlayerScore(v[1],1,true)
                        end
                        r = r .. "<J>"..k..". <V>"..v[1].." <BL>- <VP>"..v[2].." clicks\n"
                    end
                end
                ui.addTextArea(0,r,nil,5,30,250,330,1,1,1,true)
                click.new = 11
                click.timer = 21
                for k,v in next,click.info do
                    if #p > 2 then
                        v.total = v.total + v.count
                        if v.count > v.best then
                            v.best = v.count
                        end
                    end
                    v.count = 0
                    tfm.exec.respawnPlayer(k)
                end
            end
        else
            ui.setMapName("<J>New game in <ROSE>"..math.floor(click.new).." <J>seconds!<")
        end
    end,
    eventTextAreaCallback = function(i,n,c)
        if c == "." then
            if click.new <= 0 and not tfm.get.room.playerList[n].isDead then
                click.info[n].count = click.info[n].count + 1
                tfm.exec.displayParticle(15,math.random(150,650),math.random(100,300),0,0,0,0,n)
            end
        end
        if c == "cp" then
            for i = 3,4 do
                ui.removeTextArea(i,n)
            end
        end
    end,
    eventChatCommand = function(n,c)
        local p = {}
        for k in c:gmatch("[^%s]+") do
            p[#p+1]=k
        end
        if p[1] == "info" then
            tfm.exec.chatMessage("<BV>Click in the big circle <CH>as fast as you can<BV>. The more you click the higher your chances to be the winner!",n)
        end
        if p[1] == "p" then
            if p[2] then
                p[2] = p[2]:lower():gsub("%a",string.upper,1)
            else
                p[2] = n
            end
            if click.info[p[2]] then
                ui.addTextArea(3,"<p align='center'><font size='18'><a:active>"..p[2].."<font size='13'><p align='left'>\n<J>Total clicks <BL>: <V>"..click.info[p[2]].total.."\n<J>High Score <BL>: <V>"..click.info[p[2]].best.."\n\n<J>Victories <BL>: <V>"..tfm.get.room.playerList[p[2]].score,n,620,260,175,130,1,1,1,true)
                ui.addTextArea(4,"<p align='center'><R><B><a href='event:cp'>Close",n,625,365,165,20,0x101010,0x101010,1,true)
            end
        end
    end,
}

eventPlayerDied = function(n)
    click.eventPlayerDied(n)
end

eventNewPlayer = function(n)
    click.eventNewPlayer(n)
end
table.foreach(tfm.get.room.playerList,eventNewPlayer)

eventLoop = function()
    click.eventLoop()
end

eventTextAreaCallback = function(i,n,c)
    click.eventTextAreaCallback(i,n,c)
end

eventChatCommand = function(n,c)
    click.eventChatCommand(n,c)
end

click.init()