last_head_name = "null"
last_head=getNodeByName "mesh:head_1"
Count = 33
head_flag = false

rollout unnamedRollout "Character Kit" width:217 height:300
(
    dropDownList drp1 "Head" pos:[9,10] width:190 height:40 items:#("Head:A", "Head:B","Head:C")


    on drp1 selected i do(
    head_node = getNodeByName "node:head"
      cur_head = i

--=========================================
if (cur_head ==1)  then(

if head_flag==false then (
for i=1 to Count do (
    mesh_head = "mesh:head_"+i as String
    for obj in objects do
        if obj.name == mesh_head do
            select $'mesh:head_1'
            head_flag = true
    )
)

if head_flag==true then (
    myHEAD = #("mesh:head_1")
    mergemaxfile "D:\head.max" myHEAD
    mHead_1 = getNodeByName "mesh:head_1"
    mHead_1.pos = head_node.pos
    head_flag = false
    )
)
--=========================================

if (cur_head ==2)  then(

if head_flag==false then (
for i=1 to Count do (
    mesh_head = "mesh:head_"+i as String
    for obj in objects do
        if obj.name == mesh_head do
            print(mesh_head)
            delete obj
            head_flag = true
    )
)

if head_flag==true then (
    myHEAD = #("mesh:head_2")
    mergemaxfile "D:\head.max" myHEAD
    mHead_1 = getNodeByName "mesh:head_2"
    mHead_1.pos = head_node.pos
    head_flag = false
    )
)
--=========================================




    )
)


createDialog unnamedRollout