objs=#()
k=1
for i in selection do
(
append objs i
--print i.material.diffuseMap.fileName
)
numOfItems = objs.count
for r = 1 to numOfItems  do
(
if objs[r] != "" then (
print objs[r]

 firstmat =objs[r].material.diffuseMap.fileName
 firstObj = objs[r]
 convertTo firstObj PolyMeshObject
 rcounter = r + 1
  for i= rcounter   to numOfItems do
    (
   if objs[i] != "" then (
   
    mat = objs[i].material.diffuseMap.fileName
     if firstmat == mat then (
        firstObj.EditablePoly.attach objs[i] firstObj
       objs[i]=""
       )
     )  
    )
)
)
messagebox "ok"

for i in selection do
(
tm = bitmaptexture()
tm.filename=i.name
mat = XRayMtl diffuseMap:tm
--mat.EShaderType="default"
f=(GetDir #scripts) +"\\sh.csv"
in_text = openfile  f
while not eof in_text do
(
inputData = readLine in_text
arr_mat = filterString inputData ";"
--messagebox inputArray[1]
    if matchPattern tm.filename pattern:arr_mat[1] splitEmptyTokens:true then
    (
    print arr_mat[2]+" "+ arr_mat[3] + " "+ arr_mat[4]
       
       if arr_mat[2] == " " then () else (mat.EShaderType = execute (arr_mat[2]))
       if arr_mat[3] == " " then () else (mat.CShaderType = execute (arr_mat[3]))
    if arr_mat[4] == " " then () else (mat.GameMtlType = execute (arr_mat[4]))
    
    )
)
close in_text
i.material=mat
showTextureMap i.material tm off
i.material.name=i.name as string
)
messagebox "ok"

*stena*;;;14
*beton*;;;14
*briks*;;;11
*shifer*;;;30
*wood*;;;35
*mtl*;;;25
*def_shaders\def_trans_v*;11;29;8
*def_shaders\def_trans*;10;29;8
*def_shaders\def_aref*;4;22;29
*barbwire*;4;22;29