Ground mover

groundsTable = {}
selectedGround = false
tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAutoShaman(true)

function split(str)
    tok = {}
    for token in string.gmatch(str, "[^%s]+") do
        table.insert(tok,token)
    end
    str = tok[1]
    tok = {}
    for a in string.gmatch(str,'[^,]+') do
        table.insert(tok,a)
    end
    return tok
end

function parseXml(shaman)
vanillaGrounds = ''
groundsTable = {}
    if tfm.get.room.xmlMapInfo.xml then
        c = 0
        xml = tfm.get.room.xmlMapInfo.xml
        grounds = xml:match('<S>[^´]+/>'):gsub("<S>","")
        for id in grounds:gmatch('<S[^/]+/>') do
            c = c+1
            groundsTable[c] = {id = c,
            L = id:match('L="[0-9-.]+"'):gsub("L=",""):gsub('"',""),
            H = id:match('H="[0-9-.]+"'):gsub("H=",""):gsub('"',""),
            X = id:match('X="[0-9-.]+"'):gsub("X=",""):gsub('"',""),
            Y = id:match('Y="[0-9-.]+"'):gsub("Y=",""):gsub('"',""),
            T = id:match('T="[0-9-.]+"'):gsub("T=",""):gsub('"',""),
            O = '0'
            }
            if groundsTable[c].T == "12" or groundsTable[c].T == "13" then
                if id:find('o=') then
                    groundsTable[c].O = id:match('[oO]="([^"]+)')
                end
            end
            groundsTable[c].OTHERS = split(id:match('P="[^¨]+"'):gsub("P=",""):gsub('"',""))
            id = id:gsub('X=',string.format('lua="%s" X=',c))
            vanillaGrounds = vanillaGrounds..id
        end
        xmlStart = xml:match('<C>[^´]+<S>')
        xmlEnd = xml:match('</S>[^´]+</C>')
        xml = string.format("%s%s%s",xmlStart,vanillaGrounds,xmlEnd)
        tfm.exec.newGame(xml)
        tfm.exec.addPhysicObject(666, 200, -260, {type = 16})
        for id,tabl in pairs(groundsTable) do
            x = tabl.X
            y = tabl.Y
            tfm.exec.addJoint('-'..id, 666, 666, {point1 = string.format('%s,%s', x, y), point2 = string.format('%s,%s', x+1, y+2), line = 15, color= 0xD2504D, alpha = 0.6, foreground = true})
        end
        tfm.exec.setShaman(shaman)
        system.bindMouse(shaman)
    end
end

function eventSummoningEnd(playerName, objectType, xPosition, yPosition, angle, xSpeed, ySpeed, other)
tfm.exec.removeObject(other.id)
end

function getShamanRoom()
sc = {score = 0, name = 'Souris'}
    for k,v in pairs(tfm.get.room.playerList) do
        system.bindMouse(k,false)
        if v.score >= sc.score then
            sc = {score = v.score, name = k}
        end
    end
    tfm.exec.setPlayerScore(sc.name,0)
    return sc.name
end

function eventNewGame()
if tfm.get.room.xmlMapInfo.xml then
    mapAuthor = tfm.get.room.xmlMapInfo.author
        if mapAuthor ~= '#Module' then
            parseXml(getShamanRoom())
        end
    end
end

function eventMouse(player,x,y)
    if not selectedGround then
        for id,tabl in pairs(groundsTable) do
            if x > tabl.X-tabl.L/2 and x < tabl.X+tabl.L/2 and y > tabl.Y-tabl.H/2 and y < tabl.Y+tabl.H/2 then
                selectedGround = id
                tfm.exec.addJoint('-'..id, 666, 666, {point1 = string.format('%s,%s', tabl.X, tabl.Y), point2 = string.format('%s,%s', tabl.X+1, tabl.Y), line = 15, color= 0x5CB85C, alpha = 0.6, foreground = true})
            end
        end
    else
        tfm.exec.addPhysicObject(selectedGround,x,y,{color = '0x'..groundsTable[selectedGround].O, type = groundsTable[selectedGround].T, width = groundsTable[selectedGround].L, height = groundsTable[selectedGround].H, mass = groundsTable[selectedGround].OTHERS[1], friction = groundsTable[selectedGround].OTHERS[3], restitution = groundsTable[selectedGround].OTHERS[4], angle = groundsTable[selectedGround].OTHERS[5]})
        groundsTable[selectedGround].X = x
        groundsTable[selectedGround].Y = y
        x = groundsTable[selectedGround].X
        y = groundsTable[selectedGround].Y
        tfm.exec.addJoint('-'..selectedGround, 666, 666, {point1 = string.format('%s,%s', x, y), point2 = string.format('%s,%s', x+1, y), line = 15, color= 0xD2504D, alpha = 0.6, foreground = true})
        selectedGround = false
    end
end