object ={
[createObject(3605,2596.9004000,720.2998000,15.9000000,0.0000000,0.0000000,179.9950000)],
[createObject(8559,2597.4004000,733.2002000,12.0000000,0.0000000,0.0000000,0.0000000)],
[createObject(8559,2597.4004000,733.2002000,13.5000000,0.0000000,0.0000000,0.0000000)],
[createObject(8559,2597.4004000,733.2002000,15.0000000,0.0000000,0.0000000,0.0000000)],
[createObject(8650,2609.2000000,753.7000100,0.5000000,90.0000000,0.0000000,90.0000000)],
[createObject(8650,2607.0000000,753.7000100,0.5000000,90.0000000,0.0000000,90.0000000)],
[createObject(8650,2585.6001000,753.7000100,0.5000000,90.0000000,0.0000000,270.0000000)],
[createObject(8650,2587.8000000,753.7000100,0.5000000,90.0000000,0.0000000,270.0000000)],
}

local shaders={
["DAwall.png"]={"badhousewalld06_128","badhousewall01_128","vnghse4_256",},
["DAwalltxt.png"]={"hottop5d_law",},
["DAroof.png"]={"genroof02_128",},
["DAground.png"]={"pavepat2_128",},
}
function setupShaders()
    for fileName,textures in pairs(shaders) do
        local shader = dxCreateShader ("shader.fx",1,100,false,"object")
        local texture = dxCreateTexture (fileName)
        dxSetShaderValue (shader,"CUSTOMTEX0", texture )
        shaders[fileName].shader=shader
    end
end
setupShaders()

-- code for object creation loop (assuming object is identified as "object"
for _,data in pairs(shaders) do
    local shader=data.shader
    for _,texture in pairs(data) do
        if type(texture)=="string" then
            engineApplyShaderToWorldTexture(shader,texture,object)
        end
    end
end

local objects = {
{3605,2596.9004000,720.2998000,15.9000000,0.0000000,0.0000000,179.9950000},
{8559,2597.4004000,733.2002000,12.0000000,0.0000000,0.0000000,0.0000000},
{8559,2597.4004000,733.2002000,13.5000000,0.0000000,0.0000000,0.0000000},
{8559,2597.4004000,733.2002000,15.0000000,0.0000000,0.0000000,0.0000000},
{8650,2609.2000000,753.7000100,0.5000000,90.0000000,0.0000000,90.0000000},
{8650,2607.0000000,753.7000100,0.5000000,90.0000000,0.0000000,90.0000000},
{8650,2585.6001000,753.7000100,0.5000000,90.0000000,0.0000000,270.0000000},
{8650,2587.8000000,753.7000100,0.5000000,90.0000000,0.0000000,270.0000000},
}


for index,value in ipairs(objects) do
    object = createObject(value[1],value[2],value[3],value[4],value[5],value[6],value[7])
end