function SelectSkin()

info = get_monster_info()
if  info == 0 then
	cprint("No Monster Target")
	return
end

infoskin =get_summon_id_by_monster_id(info[1])

main_summon = get_main_summon() or 0
sub_summon  = get_sub_summon() or 0
menu = 0

if main_summon > 0 then
menu = 1
summon_index = get_summon_handle_index(main_summon)
cprint("Main crea handle = " .. main_summon)
menu1 = sconv("Main = #@creature_name@# Niv. #@creature_level@#", "#@creature_name@#",tostring(get_creature_value( main_summon, "name" )) ,"#@creature_level@#",tostring(get_creature_value( main_summon, "level" )))
trigger1 = 'SelectEvo('.. summon_index ..' )'
end

if sub_summon > 0 then
menu = 2
summon_index = get_summon_handle_index(sub_summon)
cprint("Sub crea handle = " .. main_summon)
menu2 = sconv("Sub = #@creature_name@# Niv. #@creature_level@#", "#@creature_name@#",tostring(get_creature_value( sub_summon, "name" )) ,"#@creature_level@#",tostring(get_creature_value( sub_summon, "level" )))
trigger2 = 'SelectEvo('.. summon_index ..' )'
end


if menu == 1 then
	dlg_special_menu( "SELECT YOUR CREATURE" , 'Warp' , menu1, trigger1 )
end
if menu == 2 then
	dlg_special_menu( "SELECT YOUR CREATURE" , 'Warp' , menu1, trigger1, menu2, trigger2 )
end



end


function get_summon_handle_index(handle)


for i = 0 , 5 do


crea_handle = 0
crea_handle = get_creature_handle(i)
if handle ~= 0 and handle ~= nil then

cprint ("crea slot " .. i .. " = " .. crea_handle)

end

if get_creature_handle(i) == handle then
	return i
end

end 

return -1


end


function SelectEvo(index)

cprint("im in SelectEvo with index = " .. index)


info = get_monster_info()
if  info == 0 then
	cprint("No Monster Target")
	return
end

infoskin =get_summon_id_by_monster_id(info[1])



if get_item_code( get_wear_item_handle_creature( index , 0  ) ) ~= 800001035 then
	private_notice("Equip Item SKin In Ur Creature For Apply Skin")
	return 0
end


menu1 = sconv("#@Creature_Name@# (Evo 1)", "#@Creature_Name@#", '@' ..get_summon_name_code (infoskin[1]) )
trigger1 = 'SelectStage('.. index ..' , '.. infoskin[1] ..' )'

menu2 = sconv("#@Creature_Name@# (Evo 2)", "#@Creature_Name@#", '@' ..get_summon_name_code (infoskin[2]) )
trigger2 = 'SelectStage('.. index ..' , '.. infoskin[2] ..' )'

menu3 = sconv("#@Creature_Name@# (Evo 3)", "#@Creature_Name@#",'@' ..get_summon_name_code (infoskin[3]) )
trigger3 = 'SelectStage('.. index ..' , '.. infoskin[3] ..' )'

dlg_special_menu( "SELECT SKIN" , 'Warp' , menu1, trigger1, menu2, trigger2 , menu3, trigger3 )

end

function SelectStage(index , id_crea )

trigger1 = 'change_skin('.. index ..' , '.. id_crea ..' , 5 )'
trigger2 = 'change_skin('.. index ..' , '.. id_crea ..' , 0 )'

dlg_special_menu( "SELECT STAGE|STADAGE" , 'Warp' , "YES", trigger1, "NO", trigger2 )

end


function change_skin( index , id_crea , stage )

handle = get_wear_item_handle_creature( index , 0  )
set_item_random_option( handle , 1 , 148 , id_crea , stage )


handle = get_creature_handle(index)
creature_handle = get_creature_value(handle, "handle")
add_state(1670, 1, 1, creature_handle)

private_notice("SKIN UPDATE")

end