// 'pipe' set - configurator    -by Dziq


loop a (listlen $pipe_materials) [
    pipe_tex = (at $pipe_materials $a 0) ; pipe_skin = (at $pipe_materials 0 1)
    if (&& (!= $pipe_flag 0) (= $pipe_skin 1) ) [  //clean skin
        pipe_pathes = [@(format "../diff%1-%2" $pipe_tex $pipe_skin) @(format "../mask%1-%2" $pipe_tex $pipe_skin) @(format "../norm%1-%2" $pipe_tex $pipe_skin)]
        if (= $a 0) [objload mesh.obj]
    ]
    if (&& (!= $pipe_flag 0) (= $pipe_skin 2) ) [  // rusty skin
        pipe_pathes = [@(format "../../diff%1-%2" $pipe_tex $pipe_skin) @(format "../../mask%1-%2" $pipe_tex $pipe_skin) @(format "../../norm%1-%2" $pipe_tex $pipe_skin)]
        if (= $a 0) [objload ../mesh.obj]
    ]
    if (&& (= $pipe_flag 0) (= $pipe_skin 1) ) [   // clean LOD
        pipe_pathes = [@(format "../../diff%1-%2" $pipe_tex $pipe_skin) @(format "../../mask%1-%2" $pipe_tex $pipe_skin) @(format "../../norm%1-%2" $pipe_tex $pipe_skin)]
        if (= $a 0) [objload mesh.obj]
    ]
    if (&& (= $pipe_flag 0) (= $pipe_skin 2) ) [   // rusty LOD
        pipe_pathes = [@(format "../../../diff%1-%2" $pipe_tex $pipe_skin) @(format "../../../mask%1-%2" $pipe_tex $pipe_skin) @(format "../../../norm%1-%2" $pipe_tex $pipe_skin)]
        if (= $a 0) [objload ../../lod/mesh.obj]
    ]

    if (= $a 0) [
        case (at $pipe_materials 0 1) 1 [  // clean skin
            mdlspec 200
            mdlgloss 400
            e1 = 1.4 ; e2 = 0.4
        ] 2 [  // rusty skin
            mdlspec 100
            mdlgloss 50
            e1 = 0 ; e2 = 0.6
        ]
    ]

    objskin (at $pipe_materials $a 2) (at $pipe_pathes 0) (at $pipe_pathes 1) $e1 $e2
    objbumpmap (at $pipe_materials $a 2) (at $pipe_pathes 2)
]

case $pipe_flag 0 [
] 1 [
    mdlellipsecollide 1
] 2 [
    objtricollide collider
] 4 [
    mdllod lod 256
] 5 [
    mdlellipsecollide 1 ; mdllod lod 256
] 6 [
    mdllod lod 256 ; objtricollide collider
]

mdlalphatest 0.01
mdlscale 800
mdlglow 0
mdlcolor -1