--[[
-*-All Rights Reserved @ Revolution Team 2018 
-*-This script is private script for RevolutionTeam use Only .
]]--
--This File Was Created By Hatrick_xD 
--Do Not Remove The CopyRights From this File 
--By Hatrick 2019 03 22 (For Rappelz 9.5.2 Private Server)

--ألتاجر ماندي--
function NPC_RevoTrader_Contact()
check_week_quest()
do_trigger_battle_check()
local u_per = gv('permission')
dlg_title( "@99000001" )
dlg_text( "@99000002")

dlg_menu( "@99000003", "Revo_NessasryItems()" )
--dlg_menu( "اسلحة الاحتراف", "Anmra_Weapons()" ) --
dlg_menu( "@99000005", "Revo_NessasryZinas()" )
dlg_menu( "@99000006", "Revo_NessasryCreatures()" )
dlg_menu( "@99000007", "Revo_NessasryStones()" )
dlg_menu( "@99000044", "open_market('Revo_Market_Arena')" )
--dlg_menu('<#0000FF>'.."بطاقات المهارة", "comp()" )
dlg_menu('<#00ff00>'.."تبادل", "change_Anmra()" )
dlg_menu('<#FF0000>'.."البيع السريع", "autoseller_contact()" )
--dlg_menu('<#FF0000>'.."test", "NPC_Albus_Anmra_contant()" )
--dlg_menu("إنتقال إلى دهليز الأطياف"," RunTeleport(0,42273,38913)") -- travel
--dlg_menu("<#FDC55B>".."أماكن تجميع أنمرا","hatrick_collect_places()") -- travel
dlg_menu("<#71C7E8>".."قتال الأبطال","npc_lobby_rent()") -- rent lobby
--dlg_menu("تطوير العتاد","update_item_rank7() ")
--dlg_menu('<#FF0000>'.."نظام فك الدروب المختومة", "Anmra_Idenitfy_all_list()" )
--if u_per == 100 then
--dlg_menu('<#FF0000>'.."معايرة الثقب", "volon_pwro_npc()" )
--end
dlg_menu( "@90010002", "" )
dlg_show()
end

function Anmra_Idenitfy_all_list()
dlg_title( "@99000001" )
dlg_text( "@99000002")
local u_per = gv('permission')
dlg_menu("@99000057", "Anmra_identify_Bystate_list()" )
dlg_menu("@99000058", "Anmra_identify_Atakeb()" )
dlg_menu("@99000059", "Anmra_identify_Atakeb_Ark()" )
dlg_menu("@99000060", "Anmra_identify_Sradeb()" )
dlg_menu("@99000061", "Anmra_identify_Sirk()" )
dlg_menu("@99000062", "Anmra_identify_Arcadia()" )
dlg_menu("@90010003", "NPC_Albus_Anmra_contant()" )
dlg_menu( "@90010002", "" )
dlg_show()
end

function Anmra_identify_Bystate_list()
local pitem =	{ 705016, 705017, 705018, 705019, 705020, 705021, 705022, 705023, 705024, 705025, 705026, 705027, 705028, 705029, 705030}
local szitem = table.getn(pitem)
local npc_name = "@"..get_npc_type().."|@"..get_npc_name()
dlg_title( npc_name) 
dlg_text( "@90610319" )
	
	--index = نوع التخصص
	--state = نوع الخصائص
	--item = الاداة المستعمله
	
	for i = 1, szitem do
		local cnt  = find_item( pitem[i] )
		local state = 0
		local index = 0
		
		if pitem[i] == 705016 or pitem[i] == 705017 or pitem[i] == 705018 or pitem[i] == 705019 or  pitem[i] == 705020 then -- اجوريا
			index = 0
		elseif pitem[i] == 705021 or pitem[i] == 705022 or pitem[i] == 705023 or pitem[i] == 705024 or  pitem[i] == 705025 then --أمانيس
			index = 10
		elseif pitem[i] == 705026 or pitem[i] == 705027 or pitem[i] == 705028 or pitem[i] == 705029 or  pitem[i] == 705030 then -- اورك
			index = 20
		end
		
		if cnt >0 then
			if pitem[i] == 705016 or pitem[i] == 705021 or pitem[i] == 705022 or pitem[i] == 705026  then --حربي
		       dlg_menu( "<#ebe6ad>|@" .. 10000000 + pitem[i]  .. "|(" .. cnt .. ")" , "Anmra_identify_Bystate_pieces("..state..","..(pitem[i] - 705016 + index)..","..pitem[i]..")" )
			   
			elseif  pitem[i] == 705020 or pitem[i] == 705025 or pitem[i] == 705030 then --البراري
				dlg_menu( "<#ebe6ad>|@" .. 10000000 + pitem[i]  .. "|(" .. cnt .. ")" , "Anmra_identify_Bystate_pieces("..(state + 3)..","..(pitem[i] - 705016 + index)..","..pitem[i]..")" )
				
			elseif pitem[i] == 705017 or pitem[i] == 705027 then --صياد
				dlg_menu( "<#ebe6ad>|@" .. 10000000 + pitem[i]  .. "|(" .. cnt .. ")" , "Anmra_identify_Bystate_pieces("..(state + 1)..","..(pitem[i] - 705016 + index)..","..pitem[i]..")" )
				
			elseif pitem[i] == 705018 or pitem[i] == 705019 or pitem[i] == 705023 or pitem[i] == 705024 or pitem[i] == 705028 or pitem[i] == 705029 then --سحري
			
				dlg_menu( "<#ebe6ad>|@" .. 10000000 + pitem[i]  .. "|(" .. cnt .. ")" , "Anmra_identify_Bystate_pieces("..(state + 2)..","..(pitem[i] - 705016 + index)..","..pitem[i]..")" )
			end
			
		else
				--dlg_menu( "@" .. 10000000 + pitem[i]  .. "|(" .. cnt .. ")" , "Anmra_identify_Bystate("..state..","..(i-1)..","..pitem[i]..")" )
		end
	end
	
	dlg_menu( "@90010003", "Anmra_Idenitfy_all_list()" )
	dlg_menu( "@90010002", " " )
	dlg_show()	
end

function Anmra_identify_Bystate_pieces(state,index,item)

	local npc_name = "@"..get_npc_type().."|@"..get_npc_name()
	dlg_title( npc_name) 
	dlg_text( "@90610319" )
	dlg_menu( "<#ebe6ad>".."الدروع", "Anmra_identify_Bystate_armor("..state..","..index..","..item..")" )
	dlg_menu( "<#ebe6ad>".."القفازات", "Anmra_identify_Bystate_golves("..state..","..index..","..item..")" )
	dlg_menu( "<#ebe6ad>".."الأحذية", "Anmra_identify_Bystate_shoes("..state..","..index..","..item..")" )
	dlg_menu( "@90010003", "Anmra_Idenitfy_all_list()" )
	dlg_menu( "@90010002", " " )
	dlg_show()	
end




function Anmra_identify_Bystate_armor(state,index,item)
   itemInfo = {
        {
			
            {--ثقب
                {700000846 + state, 128 + index}, --درع نجم القطب
            }, item}
		}
		
		Anmra_identify_all(itemInfo)
end

function Anmra_identify_Bystate_golves(state,index,item)
   itemInfo = {
        {
			
            {--ثقب
                {700000850 + state, 133 + index}, --قفازات نجم القطب
            }, item}
		}
		
		Anmra_identify_all(itemInfo)
end

function Anmra_identify_Bystate_shoes(state,index,item)
   itemInfo = {
        {
			
            {--ثقب
                {700000854 + state, 138 + index}, --حذاء نجم القطب
            }, item}
		}
		
		Anmra_identify_all(itemInfo)
end

function Anmra_identify_Bystate(state,index,item)

   itemInfo = {
        {
			
            {--ثقب
                {700000846 + state, 128 + index}, --درع نجم القطب
                {700000850 + state, 133 + index}, --قفازات نجم القطب
                {700000854 + state, 138 + index}, --حذاء نجم القطب
            }, item}
		}
		
		
		Anmra_identify_all(itemInfo)
end


function Anmra_identify_Atakeb()
	
   itemInfo = {
        {
			
            {--ثقب
                {700000846, 68}, --درع نجم القطب
                {700000847, 71}, --درع كاستور
                {700000848, 74}, --درع ريغولوس
                {700000849, 77}, --درع فيغا
                {700000850, 69}, --قفازات نجم القطب
                {700000851, 72}, --قفازات كاستور
                {700000852, 75}, --قفازات ريغولوس
                {700000853, 78}, --قفازات فيغا
                {700000854, 70}, --حذاء نجم القطب
                {700000855, 73}, --حذاء كاستور
                {700000856, 76}, --حذاء ريغولوس
                {700000857, 79}, --حذاء فيغا
            }, 705009}
		}
		
		Anmra_identify_all(itemInfo)

end

function Anmra_identify_Atakeb_Ark()
 itemInfo = {
        {
	
            {--ثقب
                {700000846, 50}, --درع نجم القطب
                {700000847, 51}, --درع كاستور
                {700000848, 52}, --درع ريغولوس
                {700000849, 53}, --درع فيغا
                {700000850, 54}, --قفازات نجم القطب
                {700000851, 54}, --قفازات كاستور
                {700000852, 54}, --قفازات ريغولوس
                {700000853, 54}, --قفازات فيغا
                {700000854, 55}, --حذاء نجم القطب
                {700000855, 55}, --حذاء كاستور
                {700000856, 55}, --حذاء ريغولوس
                {700000857, 55}, --حذاء فيغا
            }, 601100409}
		}
		
		Anmra_identify_all(itemInfo)
end

function Anmra_identify_Sradeb()

   itemInfo = {
        {
			
            {--سراديب
                {601100355, 7}, --خوذة ميدوسا (احترافي)
                {601100356, 5}, --قفازات بالور (احترافي)
                {601100357, 6}, --حذاء الأرملة السوداء (احترافي)
                {601100358, 1}, --زي آرغوث (احترافي: محارب)<Warrior Costume>
                {601100359, 2}, --زي آرغوث (احترافي: صياد)<Hunter Costume>
                {601100360, 3}, --زي آرغوث (احترافي: ساحر)<Mage Costume>
                {601100361, 4}, --زي آرغوث (احترافي: براري)<Summoner Costume>
            }, 601100409}
		}
		
		Anmra_identify_all(itemInfo)

end


function Anmra_identify_Sirk()

   itemInfo = {
        {
			
            {--سيرك
                {3100001, 101}, --قاصم الغسق
                {3100002, 101}, --الرمح الراقص
                {3100003, 101}, --دموع الفولاذ الأحمر
                {3100004, 106}, --زمردة الدماء
                {3100005, 101}, --قوس العلامة الحمراء
                {3100006, 101}, --نشاب راميوس
                {3100007, 104}, --عصا الشفق الأحمر
                {3100008, 102}, --قاطع الظلال
                {3100009, 107}, --خنجر الضباب الدموي
                {3100010, 107}, --مطرقة الموت
                {3100011, 105}, --عصا الأرض المحترقة
                {3100012, 102}, --صدع الدمار
                {3100013, 103}, --درع عين اللهب
                {3100014, 105}, --درع كايوس
                {3100015, 108}, --حزام الفرو الفاخر
                {3100016, 109}, --أقراط المهرج
                {3100017, 110}, --القلادة النجمية
                {3100018, 111}, --خاتم ضوء القمر
                {3100019, 111}, --خاتم الغبار النيزكي
            } , 601100409}
		}
		
		Anmra_identify_all(itemInfo)

end

function Anmra_identify_Arcadia()

   itemInfo = {
        {
			
           {--أركاديا
				{3100020, 101}, --سيف قبضتين
                {3100021, 101}, --رمح
				{3100022, 101}, --فأس قبضتين
				{3100023, 106}, --صولجان قبضتين
				{3100024, 101},
				{3100025, 101},
				{3100026, 104},
				{3100027, 102},
				{3100028, 107},
				{3100029, 107},
				{3100030, 105},
				{3100031, 102},
				{3100034, 125},
				{3100035, 124},
				{3100032, 114},
				{3100033, 114},
				{3100036, 126},
				{3100037, 127}, --MixResourse - sreach(main_value_01 and sub01_value_01(item)) - mix_value_02
				
            } , 601100409}
		}
		
		Anmra_identify_all(itemInfo)

end

function NPC_RevoTrader_Maze()
test_p(2301)
dlg_title( "@99000001" )
dlg_text( "@99000002")
--dlg_menu( "تفعيل", "test_p(2301)" )
dlg_menu( "@90010002", "" )
dlg_show()
end

-- أماكن التجميع الجديدة
function hatrick_collect_places()
	local reg = {{70050402,94954,76631},{70050403,89729,79840},{70050404,91232,76957},{70050405,87748,79972}}
	dlg_title( "@99000001" )
	dlg_text( "@99000002")
	for i = 1, #reg do
	dlg_menu("@"..reg[i][1]," RunTeleport(0,"..reg[i][2]..","..reg[i][3]..")") -- travel
	end
	
	dlg_menu( "@2341", "NPC_RevoTrader_Contact()" )
	dlg_menu( "@90010002", "" )
	dlg_show()
end

function PC_Buff()
local state_level_PC = get_state_level( 9006 )

	if(state_level_PC == 1) then
		insert_item(910227,1)
		message('@247')
	else
		add_state(9006, 1, 1080000)
	end
end

-- this some stuff in the future
function change_Anmra()
local u_per = gv('permission')
dlg_title("@90800003")
dlg_text("@90800055")
if u_per == 100 then
end
dlg_menu("@90800057","Guild_Block_Time_R(1)") -- Guild Block time Remove
dlg_menu("@90800080","all_titel_conf()") -- Guild Block time Remove
dlg_menu("@90800066","open_market( 'Custom_Shop_Custom_Items' )") -- items custom functions
dlg_menu("[مبادلة] الأطياف مقابل الميدان","change_chaos_ap()") -- items custom functions

dlg_menu("@90010002","")
dlg_show()
end

--item resource script_text value for item "essence_exchange(1100103)" -- essence of power

function essence_exchange(item)
    local count = find_item(item)

    if count > 0 then
        local reward = math.floor(count / 100)
        local remainder = count % 100

        local new_item = 1100119

        insert_item(new_item, reward)
        delete_item(get_item_handle(item), count - remainder)
    else
        print(" تم التحويل بنجاح'" .. item .. "'.")
    end
end

function essence_exchange_area_point(item)
    local count = find_item(item)

    if count > 0 then
	
		av('ap', count * 10)
        delete_item(get_item_handle(item), count)
		print(" تم التحويل بنجاح'" .. item .. "'.")
    end
end

function comp()

    dlg_title( "بطاقات المهارة لكل التخصصات" )
    dlg_text( "قم باختار الشعب الخاص بك." )
	dlg_menu("<#0000FF>أجوريا","NPC_card_gaia_contact()")
	dlg_menu("<#0000FF>أمانيس","NPC_card_asura_contact()")
    dlg_menu("<#0000FF>أرماد","NPC_card_deva_contact()")
    dlg_menu("عودة","NPC_RevoTrader_Contact()")
    dlg_menu("@90010002",'')   
end

function NPC_card_deva_contact()


dlg_title( "البطاقات الخاصة في شعب أمانيس" )
dlg_text( "اختيار التخصص الخاص فيك من هنا" )

dlg_menu( "@10300", "open_market( 'cs_1' )" )
dlg_menu( "@10301", "open_market( 'cs_5' )" )
dlg_menu( "@10302", "open_market( 'cs_2' )" )
dlg_menu( "@10303", "open_market( 'cs_8' )" )
dlg_menu( "@10310", "open_market( 'cs_6' )" )
dlg_menu( "@10311", "open_market( 'cs_7' )" )
dlg_menu( "@10312", "open_market( 'cs_3' )" )
dlg_menu( "@10313", "open_market( 'cs_4' )" )
dlg_menu( "@10314", "open_market( 'cs_9' )" )
dlg_menu( "@90010002", '' )
dlg_show()

end

function NPC_card_asura_contact()

dlg_title( "البطاقات الخاصة في شعب أرماد" )
dlg_text( "اختيار التخصص الخاص فيك من هنا" )

dlg_menu( "@10200", "open_market( 'cs_10' )" )
dlg_menu( "@10201", "open_market( 'cs_11' )" )
dlg_menu( "@10202", "open_market( 'cs_12' )" )
dlg_menu( "@10203", "open_market( 'cs_13' )" )
dlg_menu( "@10210", "open_market( 'cs_14' )" )
dlg_menu( "@10211", "open_market( 'cs_15' )" )
dlg_menu( "@10212", "open_market( 'cs_16' )" )
dlg_menu( "@10213", "open_market( 'cs_17' )" )
dlg_menu( "@10214", "open_market( 'cs_18' )" )
dlg_menu( "@90010002", '' )
dlg_show()

end

function NPC_card_gaia_contact()

dlg_title( "البطاقات الخاصة في شعب أجوريا" )
dlg_text( "اختيار التخصص الخاص فيك من هنا" )

dlg_menu( "@10100", "open_market( 'cs_20' )" )
dlg_menu( "@10101", "open_market( 'cs_21' )" )
dlg_menu( "@10102", "open_market( 'cs_22' )" )
dlg_menu( "@10103", "open_market( 'cs_23' )" )
dlg_menu( "@10110", "open_market( 'cs_24' )" )
dlg_menu( "@10111", "open_market( 'cs_25' )" )
dlg_menu( "@10112", "open_market( 'cs_26' )" )
dlg_menu( "@10113", "open_market( 'cs_27' )" )
dlg_menu( "@10114", "open_market( 'cs_28' )" )
dlg_menu( "@90010002", '' )
dlg_show()

end

function nametestnameme()
local numberAdd = math.random(1,8)
text = sconv("@188","#@item_name@#", "@" ..tostring(get_item_name_id(303770100 + numberAdd)))
private_notice(text)

end

--------------------------------------
function t9fe7()
dlg_title( "التاجر العام" )
dlg_text( "تم تطوير الادوات بنجاح !!" )
	local i, handle, lv, text, text2, command, enhance, f, price
 
	for i = 0, 7 do
 
		handle = get_wear_item_handle( i )
 
		if handle ~= 0 then

            lv = get_item_level( handle )
			enhance = get_item_enhance( handle )

        
		set_item_level( handle , 10 )
		set_item_enhance( handle , 25 )


		
		else
dlg_menu("<#CFECEC>إنهاء المحادثة",  "")
dlg_show()
end

end
end
--------------------------------------
function Anmra_Weapons()
dlg_title( "@99000001" )
dlg_text( "هنا سوف تجد كل الأسلحة التي ستسعدك وتجعلك اقوى")
dlg_menu( "خوذ المتجر", "open_market('Revo_Market_OldHelmets_Part_01')" )
dlg_menu( "الإكسسوارات", "open_market('Revo_Market_ProAccessoires')" )
dlg_menu( "الدروع", "open_market('Revo_Market_ProArmors')" )
dlg_menu( "القفازات", "open_market('Revo_Market_ProGloves')" )
dlg_menu( "الأحزمة وملحقاتها", "open_market('Revo_Market_ProGroups')" )
dlg_menu( "الخوذ", "open_market('Revo_Market_ProHelmets')" )
dlg_menu( "الأحذية", "open_market('Revo_Market_ProShoses')" )
dlg_menu( "الاسلحة", "open_market('Revo_Market_ProWeapons')" )
dlg_menu( "@90010002", "" )
dlg_show()
end


function Revo_NessasryItems()
dlg_title( "@99000001" )
dlg_text( "@99000011")
dlg_menu( "@99000012", "open_market('Revo_Market_Materials')" )
dlg_menu( "@99000013", "open_market('Revo_Market_Development')" )
dlg_menu( "@99000014", "open_market('Revo_Market_Support')" )
dlg_menu( "@99000015", "open_market('Revo_Market_Other')" )
dlg_menu( "@99000046","open_market( 'Custom_Shop_Nicklas_Awake' )")
dlg_menu( "@99000016", "NPC_RevoTrader_Contact()" )
dlg_menu( "@90010002", "" )
dlg_show()
end

function Revo_NessasryZinas()
dlg_title( "@99000001" )
dlg_text( "@99000034")
dlg_menu( "@99000028", "open_market('Revo_Market_SkinZinas')" )
dlg_menu( "@99000029", "open_market('Revo_Market_HairZinas')" )
dlg_menu( "@99000030", "open_market('Revo_Market_NewMaskZinas')" )
dlg_menu( "@99000031", "open_market( 'Revo_Market_FullSetsZinas' )" ) --
dlg_menu( "@99000032", "open_market('Revo_Market_WeaponsZinas')" )
dlg_menu( "@99000033", "open_market('Revo_Market_WingsZinas')" )
dlg_menu( "@7257", "open_market('Revo_Market_EmblemZinas')" )
dlg_menu( "@99000016", "NPC_RevoTrader_Contact()" )
dlg_menu( "@90010002", "" )
dlg_show()
end

function Revo_NessasryCreatures()
local u_per = gv('permission')
dlg_title( "@99000001" )
dlg_text( "@99000035")
--dlg_menu( "@99000036", "open_market('Revo_Market_CreaturesCards')" ) --
dlg_menu( "@99000048", "open_market('Revo_Market_SetsPets')" )
dlg_menu( "@99000038", "open_market('Revo_Market_AntiDotesPets')" )
dlg_menu( "@99000049", "open_market('Revo_Market_AntiDotesPets_2')" )
dlg_menu( "@99000039", "open_market('Revo_Market_PetsSolutions')" )
dlg_menu( "@99000040", "open_market('Revo_Market_Pets')" )
dlg_menu( "@99000045", "open_market('Revo_Market_Creature_Spirits')" )
dlg_menu( "@99000016", "NPC_RevoTrader_Contact()" )
dlg_menu( "@90010002", "" )
dlg_show()
end

function Revo_NessasryStones()
dlg_title( "@99000001" )
dlg_text( "@99000041")
dlg_menu( "@99000042", "open_market('Revo_Market_LegendesStones')" )
dlg_menu( "@99000043", "open_market('Revo_Market_ProStones')" )
dlg_menu( "@99000016", "NPC_RevoTrader_Contact()" )
dlg_menu( "@90010002", "" )
dlg_show()
end




function open_Revo_market(market) --in case players should pay to open shops
local gold = tonumber(gv("gold"))
local level = tonumber(gv("lv"))
local price = level * 100
if gold >= price then
open_market(market)
sv("gold", gold - price )
else
message(sconv("@99000052", "#@price@#",tostring(price))) 
end
end
--نهاية التاجر ماندي--

function NPC_Albus_contant() 		-- ????? ??????? 9_2 -> coin
	local player_permission = gv('permission')
	local state_code = get_local_info()
	dlg_title( "@690000128" )
	dlg_text( "@90610872" ) -- ??? ??????
	
	if player_permission == 100 or player_permission == 0 then
	--dlg_menu( "@90610871", "exchange_coin(0)" ) 		-- ??? ??? ??
	dlg_menu( "@90610309", "exchange_skillcard(0)" ) 	-- ?? ?? ??
	
	--if state_code ~= 512 and state_code ~= 4096 then
		dlg_menu( "<#ebe6ad>|@90610938|<#ff0000>NEW", "exchange_devildom(0)" ) 	-- <#6DD66D> ??/??? ??   ? ???
		--dlg_menu( "@90610840", "exchange_cube(0,0)" ) 		-- 7?? ?? ??/??
	--end
	-- ???? ?? ??, ??, ??? ??
	--if state_code == 1 or state_code == 256 --[[or state_code == 8192]] then --MohcenMaher, S.A
		--dlg_menu_exchange( 705014, "exchange_alteration(0,0)")
		--dlg_menu_exchange( 705009, "exchange_alteration(1,0)")
	--end
	--  ??? ?? ??? ??? ?? ???? ??
	--if state_code == 1 or state_code == 256 or state_code == 8192 then --MohcenMaher, S.A
		--dlg_menu( "@7814 |@90606604", "exchange_locked(0)" ) 
		--dlg_menu( "@90611046", "exchange_attribute(0)" ) -- ?? ?? ??
	--end
	end
	dlg_menu( "@90010002", " " )	--?? ??
	dlg_show()
end

function exchange_skillcard(sel)
	-- ?? ????, ?? 1? ????, ?? 2? ????,?? ??? ??
	local pitem =	{ 1100405, 1100406, 1100407, 1100408,	1100410, 1100411, 1100412, 1100413, 1100414, 1100415, 1100416, 1100417, 1100418, 1100419, 1100420, 1100421, 1100422, 1100423, 1100424	}
	local pdrop = 	{ -3000406,-3000407,-3000408,-3000409, -5801200,-5801210,-5801220,-5801230,-5801240,-5802200,-5802210,-5802220,-5802230,-5802240,-5803200,-5803210,-5803220,-5803230,-5803240	}
	local szitem = table.getn(pitem) 
	--dlg_title( "@690000128" )
	local npc_name = "@"..get_npc_type().."|@"..get_npc_name()
	dlg_title( npc_name) 
	if sel == 0 then
		dlg_text( "@90610319" )				 -- ?? ???? ???...
	elseif sel >= 1 and sel <=szitem then
		local cnt  = find_item( pitem[sel] ) 
		if cnt <= 0  then
			dlg_text( "@90610321" ) -- ?? ??
		else
			dlg_text( "@90610320" ) -- ????
			if cnt > 5000 then --100 then  --MohcenMaher, 9.8
				cnt = 5000
			end
			delete_item (get_item_handle(pitem[sel]), cnt)
			for i=1,cnt do
				local result = pick_item_in_drop_group( pdrop[sel] )
				insert_item( result[1], result[2] )
			end
		end
	end

	for i = 1, szitem do
		local cnt  = find_item( pitem[i] ) 
		if cnt >0 then 
		       dlg_menu( "<#ebe6ad>|@" .. 10000000 + pitem[i]  .. "|(" .. cnt .. ")" , "exchange_skillcard(" .. i ..")" )
		else
			dlg_menu( "@" .. 10000000 + pitem[i]  .. "|(" .. cnt .. ")" , "exchange_skillcard(" .. i ..")" )
		end
	end

	dlg_menu( "@90010003", "NPC_Albus_contant()" ) --????
	dlg_menu( "@90010002", " " ) -- ????
	dlg_show()	
end

function exchange_devildom(sel)
	-- ?? ????, ?? 1? ????, ?? 2? ????,?? ??? ??
	local pitem =	{ 2016127 , 2016131, 2016153,  2016154   }   -- , 2016160 }  ??? ??? 100? 50? 10? ?? ????? ???.
	local pdrop = 	{-9007245, -9007245, -9007281, -9007284  }
	local szitem = table.getn(pitem) 
	local npc_name = "@"..get_npc_type().."|@"..get_npc_name()
	dlg_title( npc_name) 
	if sel == 0 then
		dlg_text( "@90610935" )	 -- ?? ???? ???...?? ??? ??
	elseif sel >= 1 and sel <=szitem then
		local cnt  = find_item( pitem[sel] ) 
		if cnt <= 0  then
			dlg_text( "@90610936" ) -- ?? ??? ?????. ?? ??? ??
		else
			dlg_text( "@90610937" ) 	-- ????? ?????. ?? ??? ??
			if cnt > 100 then 
				cnt = 100
			end
			delete_item (get_item_handle(pitem[sel]), cnt)
			for i=1,cnt do
				local result = pick_item_in_drop_group( pdrop[sel] )
				insert_item( result[1], result[2] )
			end
		end
	end

	for i = 1, szitem do
		local cnt  = find_item( pitem[i] ) 
		if cnt >0 then 
		       dlg_menu( "<#ebe6ad>|@" .. 10000000 + pitem[i]  .. "|(" .. cnt .. ")" , "exchange_devildom(" .. i ..")" )
		else
			dlg_menu( "@" .. 10000000 + pitem[i]  .. "|(" .. cnt .. ")" , "exchange_devildom(" .. i ..")" )
		end
	end

	dlg_menu( "@90010003", "NPC_Albus_contant()" ) --????
	dlg_menu( "@90010002", " " ) -- ????
	dlg_show()	
end

function exchange_alteration(type,sel)

        local psrc = 	{ 705014,705009 }
        local pitem =  	{ 705031,705032,705033,705034,705035, 705036,705037,705038,705039,705040, 705041,705042,705043,705044,705045,
                          705016,705017,705018,705019,705020, 705021,705022,705023,705024,705025, 705026,705027,705028,705029,705030 }
        local item_src = psrc[type+1]
		local szitem = table.getn(pitem)
        dlg_title( "@690000128" )

        if (sel==0) then
                dlg_text( "@90610865" ) -- ?? ????? ????????
                for i = 1, 15 do
                        dlg_menu( "@" .. 10000000 + pitem[type*15+i] , "exchange_alteration(".. type .. "," .. i ..")" ) --????
                end
        elseif sel >=1 and sel <= szitem then
			local cnt = find_item(item_src)
			if cnt <= 10  then  						-- ??
				 dlg_text( "@90610297" )				-- ??	
			else
						dlg_text( "@90605296" ) -- ??? ????? ???????.
						local item_idx = pitem[type*15+sel]
						delete_item(  get_item_handle(item_src),10 )
						insert_item(item_idx,1)
						message( "<#00ffff>|" .. sconv( "@253", "#@item_name@#", "@"..tostring(get_item_name_id( item_idx ))) )
			end
        end
        dlg_menu( "@90010003", "NPC_Albus_contant()" ) --????
        dlg_menu( "@90010002", " " )        --?? ??
        dlg_show()
end

function exchange_locked(sel)
--insert_item( 2013821,1)
        local psrc  =  { 2012787, 2013821, 950117 }
        local pdst  =  { 2013698, 2013699, 950112 }
	local szdata = table.getn(psrc); 
	local cnt = 0
        dlg_title( "@690000128" )
        if (sel==0) then
                dlg_text( "@90610865" ) -- ?? ????? ????????
                for i = 1, szdata do
			cnt = find_item(psrc[i])
			if cnt >0 then 
	                        dlg_menu( "<#ebe6ad>|@" .. 10000000 + psrc[i] .. "|(".. tostring(cnt) .. ")" , "exchange_locked(" .. i ..")" ) --????
			else
				dlg_menu( "@" .. 10000000 + psrc[i] .. "|(".. tostring(cnt) .. ")" , "exchange_locked(" .. i ..")" ) --????
			end
                end
        elseif sel >=1 and sel <= szdata then
		cnt = find_item(psrc[sel])
		if cnt <= 0 then
			dlg_text( "@90610297" ) -- ??? ????? ???????.
		else
	                delete_item(  get_item_handle(psrc[sel]),cnt )
        	        insert_item( pdst[sel],cnt)
                	dlg_text( "@90605296" ) -- ??? ????? ???????.
 		end
        end
        dlg_menu( "@90010003", "NPC_Albus_contant()" ) --????
        dlg_menu( "@90010002", " " )        --?? ??
        dlg_show()
end

function exchange_attribute(sel,handle,  effect)

	local code
	dlg_title( "@690000128" )
	if sel == 0  then
		dlg_text( "@90611047" )
		for i = 0, 12 do
			if  i == 12 then
				handle = get_wear_item_handle(26)
				--cprint(handle)
			elseif  i == 7 then
				--continue
			else
				handle = get_wear_item_handle( i )
			end

			if handle > 0 then
				code = get_item_code(handle)	
				local eff  = get_item_effect(handle)
				local grade = get_item_grade(handle)
				if code > 30000000 and code < 35000000 and eff < 100000 and grade>=1 and grade <= 7 then 
					dlg_menu( "<#ebe6ad>|@" .. tostring(get_item_name_id(code)) , "exchange_attribute(1," .. handle .. ")" )

				end
			end
		end
	elseif sel == 1 then
		dlg_text( "@90611050" )
		code = get_item_code(handle)	
		local grade = get_item_grade(handle)
		local type = get_item_type(handle)
		local pbase = {  100932, 100932,  100965, 100954, 100976, 100987, 100998, 0, 101020, 100921, 100921, 101009, 100943,
						  400089, 400089,  400161, 400137, 400185, 400209, 400233, 0, 400041, 400065, 400065, 400017, 400113 }
		--?,?,?,?,?,?,?,?,?,?,?,?,?
		local base = 0
		if grade >=1 and grade <=3 then
			if  type == 99 then
				base = pbase[12+1]
			elseif type >=0 and type <=11 then
				base = pbase[type+1]
			end 
			if base > 0 and grade >=1 and grade <=3 then
				dlg_menu( "<#ebe6ad>|@90610953|@" .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+0 .. ")" ) -- 90610953
				dlg_menu( "<#ebe6ad>|@90610954|@" .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+1 .. ")" ) -- 90610954
				dlg_menu( "<#ebe6ad>|@90610955|@" .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+2 .. ")" ) -- 90610955
				dlg_menu( "<#ebe6ad>|@90610956|@"   .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+3 .. ")" ) -- 90610956
				dlg_menu( "<#ebe6ad>|@90610957|@"   .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+4 .. ")" ) -- 90610957
				dlg_menu( "<#ebe6ad>|@90610958|@"   .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+5 .. ")" ) -- 90610958
				dlg_menu( "<#ebe6ad>|@90610959|@"   .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+6 .. ")" ) -- 90610959
				dlg_menu( "<#ebe6ad>|@90610960|@" .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+7 .. ")" ) -- 90610960
				dlg_menu( "<#ebe6ad>|@90610961|@"   .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+8 .. ")" ) -- 90610961
				dlg_menu( "<#ebe6ad>|@90610962|@" .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+9 .. ")" ) -- 90610962
				dlg_menu( "<#ebe6ad>|@90610963|@"   .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+10 .. ")" ) -- 90610963
			end
		elseif grade >=5 and grade <=7 then
			if  type == 99 then
				base = pbase[12+14]
			elseif type >=0 and type <=11 then
				base = pbase[type+14]
			end 
			if base > 0 then
				dlg_menu( "<#ebe6ad>|@90610964|@" .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+0 .. ")" ) -- 90610964
				dlg_menu( "<#ebe6ad>|@90610965|@" .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+1 .. ")" ) -- 90610965
				dlg_menu( "<#ebe6ad>|@90610966|@" .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+2 .. ")" ) -- 90610966
				dlg_menu( "<#ebe6ad>|@90610967|@"   .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+3 .. ")" ) -- 90610967
				dlg_menu( "<#ebe6ad>|@90610968|@"   .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+4 .. ")" ) -- 90610968
				dlg_menu( "<#ebe6ad>|@90610969|@"   .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+5 .. ")" ) -- 90610969
				dlg_menu( "<#ebe6ad>|@90610970|@"   .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+6 .. ")" ) -- 90610970
				dlg_menu( "<#ebe6ad>|@90610971|@" .. tostring(get_item_name_id(code)) , "exchange_attribute(2," .. handle .. "," .. base+7 .. ")" ) -- 90610971
			end
		end
	elseif sel == 2 then
		local prev = get_item_effect(handle,effect)
		if prev == nill or prev <100000  then
			set_item_effect(handle,effect)
			dlg_text( "@90611048" )
		else
			dlg_text( "@90611049" )
		end
	end	

	if sel == 1 then
		dlg_menu( "@90010003", "exchange_attribute(0)" ) --????
	else
		dlg_menu( "@90010003", "NPC_Albus_contant()" ) --????
	end 

	dlg_menu( "@90010002", " " )        --?? ??
	dlg_show()
end