Files
2026-06-01 12:46:52 +02:00

839 lines
30 KiB
Lua

--[[
-*-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