global tex_slot = undefined
global tex_folder = undefined
fn ddstex f = (
WriteString f "\x44\x44\x53\x20\x7C"
for i=1 to 2 do writebyte f 0
WriteString f "\x07\x10\x08"
WriteString f "\x04"
for i=1 to 2 do writebyte f 0
WriteString f "\x04"
for i=1 to 2 do writebyte f 0
WriteString f "\x08"
for i=1 to 54 do writebyte f 0
WriteString f "\x20"
for i=1 to 2 do writebyte f 0
WriteString f "\x04"
for i=1 to 2 do writebyte f 0
WriteString f "\x44\x58\x54\x31"
for i=1 to 20 do writebyte f 0
WriteString f "\x10"
for i=1 to 17 do writebyte f 0
WriteString f "\xFF\xFF"
for i=1 to 5 do writebyte f 0
)
fn tgatex f = (
for i=1 to 2 do writebyte f 0
WriteString f "\x02"
for i=1 to 8 do writebyte f 0
WriteString f "\x04"
WriteString f "\x04"
WriteString f "\x18"
for i=1 to 48 do writebyte f 255
for i=1 to 8 do writebyte f 0
WriteString f "\x54\x52\x55\x45\x56\x49\x53\x49\x4F\x4E\x2D\x58\x46\x49\x4C\x45\x2E"
)
fn bmptex f = (
WriteString f "\x42\x4D\x3C"
for i=1 to 6 do writebyte f 0
WriteString f "\x36"
for i=1 to 2 do writebyte f 0
WriteString f "\x28"
for i=1 to 2 do writebyte f 0
WriteString f "\x01"
for i=1 to 2 do writebyte f 0
WriteString f "\x01"
for i=1 to 2 do writebyte f 0
WriteString f "\x01"
WriteString f "\x10"
for i=1 to 4 do writebyte f 0
WriteString f "\x06"
for i=1 to 2 do writebyte f 0
WriteString f "\x12\x0B"
writebyte f 0
WriteString f "\x12\x0B"
for i=1 to 9 do writebyte f 0
WriteString f "\xFF\x7F"
for i=1 to 3 do writebyte f 0
)
fn fixmat = (
select $*
a=getCurrentSelection()
if a.count > 0 then(
for i=1 to a.count do(
if classOf a[i] == Editable_mesh then(
if meshop.getNumMaps a[i] > 2 then(
if classOf a[i].material == MultiMaterial then(
for j=1 to a[i].material.count do(
if tex_slot == 1 then a[i].material.materialList[j].adTextureLock = off
a[i].material.materialList[j].Maps[tex_slot] = Bitmaptexture fileName:("_L_0000.dds")
a[i].material.materialList[j].Maps[tex_slot].coordinates.mapChannel = 2
))))))
clearSelection()
if getNumNamedSelSets()>0 then(
for k=1 to getNumNamedSelSets() do(
ssname = getNamedSelSetName k
a=selectionsets[ssname]
if a.count > 0 then(
for i=1 to a.count do(
if classOf a[i] == Editable_mesh then(
if meshop.getNumMaps a[i] > 2 then(
if classOf a[i].material == MultiMaterial then(
for j=1 to a[i].material.count do(
if tex_slot == 1 then a[i].material.materialList[j].adTextureLock = off
a[i].material.materialList[j].Maps[tex_slot] = Bitmaptexture fileName:(ssname+".dds")
a[i].material.materialList[j].Maps[tex_slot].coordinates.mapChannel = 2
))))))))
)
fn gotex = (
atex = #()
select $*
a=getCurrentSelection()
if a.count > 0 then(
for i=1 to a.count do(
if classOf a[i] == Editable_mesh then(
if classOf a[i].material == MultiMaterial then(
for j=1 to a[i].material.count do(
for k=1 to a[i].material.materialList[j].maps.count do(
if a[i].material.materialList[j].maps[k] != undefined then(
tmpstr = a[i].material.materialList[j].maps[k].fileName
if atex.count<1 then atex[1]=tmpstr else(
chk = true
for l=1 to atex.count do(
if atex[l] == tmpstr then chk = false
)
if chk then append atex tmpstr
))))))))
clearSelection()
if atex.count>0 then(
for i=1 to atex.count do(
substr = filterString(atex[i]) "\\"
tex_filename = (tex_folder+substr[substr.count])
output_file = fopen tex_filename "wb"
ext = filterString(substr[substr.count]) "."
if ext[ext.count] == "dds" then ddstex output_file
else if ext[ext.count] == "tga" then tgatex output_file
else if ext[ext.count] == "bmp" then bmptex output_file
else WriteString output_file "dummy"
fclose output_file
)))
rollout dtex "Dummy Textures" width:170 height:210(
button btn_folder "Output Folder..." pos:[15,90] width:140 height:26
button btn_buildtex "Build textures" pos:[15,150] width:140 height:26
dropDownList ddl1 "Map Slot" pos:[20,20] width:130 height:40 items:#(
"Ambient Color", "Specular Color", "Specular Level", "Glossiness",
"Self-Illumination", "Opacity", "Filter Color", "Bump", "Reflection",
"Refraction", "Displacement") selection:5
on ddl1 selected a do(
if a >=2 then(
a=a+1
tex_slot = a
)
else (
tex_slot = a
messagebox ("Selecting this slot may alter mapChannel on export/import operation.")
))
on btn_folder pressed do(
a = getSavePath caption:"Select Output Folder"
if a != undefined then(
btn_folder.caption=a
tex_folder = a + "\\"
))
on btn_buildtex pressed do(
if tex_slot == undefined then tex_slot = ddl1.selection+1
if tex_folder != undefined then(
fixmat()
gotex()
destroyDialog dtex
)
else messagebox ("Select output folder first!")
))
createDialog dtex