[Script] Wj

--Creator: Bolodefchoco
--Made in: 29/09/2015
--Last update: 17/05/2016
--[[ Notes:
    Does:
        Treine WJ criando um piso ou usando um já padronizado!
    Commands:
        !
            wj --> Iniciar um Wj com um piso já padronizado.
                madeira --> Escolhe o piso Madeira
                gelo --> Escolhe o piso Gelo
                trampolim --> Escolhe o piso Trampolim
                lava --> Escolhe o piso Lava
                chocolate --> Escolhe o piso Chocolate
                terra --> Escolhe o piso Terra
                grama --> Escolhe o piso Grama
                areia --> Escolhe o piso Areia
                nuvem --> Escolhe o piso Nuvem
                agua --> Escolhe o piso Água
                pedra --> Escolhe o piso Pedra
                neve --> Escolhe o piso Neve
                retangulo --> Escolhe o piso Retângulo
                circulo --> Escolhe o piso Círculo
                invisivel --> Escolhe o piso Invisível
                teia --> Escolhe o piso Teia
                    Número --> Escolhe a força do vento.
                        Número --> Escolhe a força da gravidade.
                            Número --> Escolhe a cor do piso (Caso seja um Retângulo ou Círculo).
            x --> Iniciar um Wj com um piso a criar.
                x --> Para todos* Caso o valor seja X, será o valor padrão. (Exemplo: x em Wind será 0)
                Número --> Escolhe a força do vento.
                    Número --> Escolhe a força da gravidade.
                        Número --> Escolhe o background 0-9.
                            Número --> Escolhe a fricção.
                                Número --> Escolhe a restituição.
                                    Número --> Escolhe a largura do piso.
                                        Número --> Escolhe a altura do piso.
                                            Número --> Escolhe o piso 0-15.
                                                Número --> Escolhe a cor do piso (Caso seja um Retângulo ou Círculo).
            cheese --> Dá queijo para todos os ratos.
]]--

adm = {Bolodefchoco=1} --<-- Coloque seu nick no lugar de Bolodefchoco

for _,f in next,{"fkDeath","utoNewGame","utoShaman","utoTimeLeft"} do
    tfm.exec["disableA"..f]()
end

eventNewGame = function()
    tfm.exec.setGameTime(1e7)
    ui.setMapName("# Ground Creator<")
end

deactivateAccents=function(s)
    local letters = {a = {"á","à","ä","â","ã"},e = {"é","è","ë","ê"},i = {"í","ì","î","ï"},o = {"ó","ò","ö","ô","õ"},u = {"ú","ù","ü","û"}}
    for k,v in next,letters do
        for i = 1,#v do
            s = s:gsub(v[i],tostring(k))
        end
    end
    return s
end

eventChatCommand=function(n,c)
    local p = {}
    for val in c:gmatch("[^%s]+") do table.insert(p,val) end
    if p[2] then p[2] = deactivateAccents(p[2]:lower()) end
    if adm[n] then
        local wind,gravity,background,friction,restitution,ground,color = 0,0,{0,1,2,3,5,7,8,9},0,0,0,''
        wind,gravity = p[3] or 0,p[4] or 10
        background = background[math.random(#background)]
        local done = false
        local xml = "<C><P F='"..background.."' G='"..wind..","..gravity.."' /><Z><S><S P='0,0,0.3,0.2,0,0,0,0' L='800' o='0' H='25' X='400' Y='400' T='12' />%s</S><D><DS Y='370' X='20' /></D><O /></Z></C>"
        if p[1] == "wj" then
            for g,v in next,{
                madeira = {0,.3,.2},
                gelo = {1,.05,0},
                trampolim = {2,1,3},
                lava = {3,20,3},
                chocolate = {4,20,.2},
                terra = {5,.3,.2},
                grama = {6,.3,.2},
                areia = {7,.1,.2},
                nuvem = {8,.3,.2},
                pedra = {10,.3,0},
                neve = {11,.05,.1},
                retangulo = {12,.3,.2},
                circulo = {13,.3,.2},
                invisivel = {14,.3,.2},
                teia = {15,.3,.2},
            } do
                if not done then
                    if p[2] == g then
                        ground = v[1]
                        friction = v[2]
                        restitution = v[3]
                        done = true
                        if v[1] == 12 or v[1] == 13 then
                            color = string.format('o="%s"',(p[5] or '324650'))
                        end
                        xml = xml:format("<S H='400' P='0,0,"..friction..","..restitution..",0,0,0,0' L='60' X='400' Y='320' "..color.." T='"..ground.."' />")
                    end
                end
            end
            if not done then
                if p[2] == "agua" then
                    ground = 9
                    done = true
                    xml = xml:format("<S H='321' P='0,0,,,,0,0,0' L='10' X='205' Y='226' T='9' /><S H='310' P='0,0,,,,0,0,0' L='51' X='484' Y='233' T='9' />")
                end
            end
            if done then
                tfm.exec.newGame(xml)
            end
        end
        if p[1] == "x" then
            wind = (p[2] and p[2]~="x" and p[2] or 0)
            gravity = (p[3] and p[3]~="x" and p[3] or 10)
            background = (p[4] and p[4]~="x" and p[4] or background)
            friction = (p[5] and p[5]~="x" and p[5] or .3)
            restitution = (p[6] and p[6]~="x" and p[6] or .2)
            local w = (p[7] and p[7]~="x" and p[7] or 60)
            local h = (p[8] and p[8]~="x" and p[8] or 400)
            ground = (p[9] and p[9]~="x" and p[9] or 0)
            color = string.format('o="%s"',(p[10] and p[10]~="x" and p[10] or '324650'))
            xml = "<C><P F='"..background.."' G='"..wind..","..gravity.."'/><Z><S><S H='25' P='0,0,0.3,0.2,0,0,0,0' L='800' o='0' X='400' Y='400' T='12' /><S H='"..h.."' P='0,0,"..friction..","..restitution..",0,0,0,0' L='"..w.."' X='400' "..color.." Y='320' T='"..ground.."' /></S><D><DS Y='370' X='20' /></D><O /></Z></C>"
            tfm.exec.newGame(xml)
        end
        if p[1] == "cheese" then
            table.foreach(tfm.get.room.playerList,tfm.exec.giveCheese)
        end
    end
end

eventPlayerDied=function(n) tfm.exec.respawnPlayer(n) end