135 lines
3.0 KiB
Lua
135 lines
3.0 KiB
Lua
|
|
|
|
|
|
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
|
|
|
|
|
|
|
|
|
|
|