烈焰私服模式军需官装备回收脚本
发表时间：2017-05-03 11:36点击人气：责任编辑：admin
function ontalk2035(npc,event,player)
player:echo(0,npc:GetLowGUID(),[[
#&talk_line#&
一键回收首饰[可获得大量经验和元宝]
#&talk_line#&
60级以下首饰 ： 每件30元宝+400W经
#&talk_line#&
绝世，恶魔，太虚套装： 每件400元宝+3200W经验
#&talk_line#&
战魂，法魂，玄魂套装： 每件800元宝+6400W经验
#&talk_line#&
赤月，冥月，玄月套装： 每件1000元宝+8800W经验
#&talk_line#&
雷龙，炎龙，青龙套装 每件1500元宝+1.58亿经验
#&talk_line#&
战圣，法圣，道圣套装 每件2000元宝+3.58亿经验
#&talk_line#&
飞升10或以下(包括衣服武器)每件2000元宝+3.58亿经验
#&talk_line#&
<a href='event:M2402,1'>【一键回收以上装备】</a>
#&talk_line#&
<a href='event:M2402,2'>【经验玉回收】</a> <a href='event:M2402,3'>【清空副本传送卷(无奖励)】</a>
#&talk_line#&
<a href='event:M2402,4'>【一键吃物品】</a> <a href='event:M2402,5'>回收武器、衣服得经验和灵韵</a>
]]);
end
--60级以下首饰
ItemA1 = {
{40010,40011,40012,40013,40014,40015,40016,40017,40018,
50010,50011,50012,50013,50014,50015,50016,50017,50018,
60010,60011,60012,60013,60014,60015,60016,60017,60018,
70010,70011,70012,70013,70014,70015,70016,70017,70018,
90010,90011,90012,90013,90014,90015,90016,90017,90018,
100010,100011,100012,100013,100014,100015,100016,100017,100018},
};
--绝世，恶魔，太虚
ItemA2 = {
{40019,50019,60019,70019,90019,100019,40020,50020,60020,70020,90020,100020,40021,50021,60021,70021,90021,100021},
};
--战魂，法魂，玄魂
ItemA3 = {
{40022,50022,60022,70022,90022,100022,40023,50023,60023,70023,90023,100023,40024,50024,60024,70024,90024,100024,},
};
--赤月，冥月，玄月
ItemA4 = {
{40025,50025,60025,70025,90025,100025,40026,50026,60026,70026,90026,100026,40027,50027,60027,70027,90027,100027,},
};
--雷龙，炎龙，青龙
ItemA5 = {
{40028,50028,60028,70028,90028,100028,40029,50029,60029,70029,90029,100029,40030,50030,60030,70030,90030,100030,},
};
--战圣，法圣，道圣
ItemA6 = {
{40031,50031,60031,70031,90031,100031,40032,50032,60032,70032,90032,100032,40033,50033,60033,70033,90033,100033,},
};
--飞升10或以下包括武器
ItemA7 = {
{40201,40202,40203,40204,40205,40206,40207,40208,40209,40210,40211,40212,40213,40214,40215,
50201,50202,50203,50204,50205,50206,50207,50208,50209,50210,50211,50212,50213,50214,50215,
70201,70202,70203,70204,70205,70206,70207,70208,70209,70210,70211,70212,70213,70214,70215,
90201,90202,90203,90204,90205,90206,90207,90208,90209,90210,90211,90212,90213,90214,90215,
100201,100202,100203,100204,100205,100206,100207,100208,100209,100210,100211,100212,100213,100214,100215,
20101,20102,20103,20104,20105,20106,20107,20108,20109,20110,20111,20112,
30201,30202,30203,30204,30205,30206,30207,30208,30209,30210,30211,30212,30213,30214,30215,30216,30217,30218,30219,30220,30221,30222,30223,30224},
};
--传送卷
ItemA8 = {
{10189,10192,10200,10201},
};
--吃道具
ItemA9= {
{10116,10124,10127,10121,10120},
};
-- 武器和衣服
ItemA10= {
{20011,20012,20013,20014,20015,20016,20017,20018,20019,20020,20021,20022,20023,20024,20025,
30017,30018,30019,30020,30021,30022,30023,30024,30025,30026,30027,30028,30029,30030,30031,30032,30033,30034,30035,30036,30037,30038,30039,30040,30041,30042,30043,30044,30045,30046},
};
function ontalk2035_1(npc,event,player)------
local ItemNum = 0;
local Expr = 0;
local Goldr = 0;
for k = 1,#ItemA1 do
for i = 1,#ItemA1[k] do
local n = player:num_item_level(ItemA1[k][i],1);
if n >= 1 then
player:remove_item_level(ItemA1[k][i],n,1);
ItemNum = ItemNum + n;
Expr = Expr + 4000000 * n;
Goldr = Goldr + 30 * n;
end
end
end
for k = 1,#ItemA2 do
for i = 1,#ItemA2[k] do
local n = player:num_item_level(ItemA2[k][i],1);
if n >= 1 then
player:remove_item_level(ItemA2[k][i],n,1);
ItemNum = ItemNum + n;
Expr = Expr + 32000000 * n;
Goldr = Goldr + 400 * n;
end
end
end
for k = 1,#ItemA3 do
for i = 1,#ItemA3[k] do
local n = player:num_item_level(ItemA3[k][i],1);
if n >= 1 then
player:remove_item_level(ItemA3[k][i],n,1);
ItemNum = ItemNum + n;
Expr = Expr + 64000000 * n;
Goldr = Goldr + 800 * n;
end
end
end
for k = 1,#ItemA4 do
for i = 1,#ItemA4[k] do
local n = player:num_item_level(ItemA4[k][i],1);
if n >= 1 then
player:remove_item_level(ItemA4[k][i],n,1);
ItemNum = ItemNum + n;
Expr = Expr + 88000000 * n;
Goldr = Goldr + 1000 * n;
end
end
end
for k = 1,#ItemA5 do
for i = 1,#ItemA5[k] do
local n = player:num_item_level(ItemA5[k][i],1);
if n >= 1 then
player:remove_item_level(ItemA5[k][i],n,1);
ItemNum = ItemNum + n;
Expr = Expr + 150000000 * n;
Goldr = Goldr + 1500 * n;
end
end
end
for k = 1,#ItemA6 do
for i = 1,#ItemA6[k] do
local n = player:num_item_level(ItemA6[k][i],1);
if n >= 1 then
player:remove_item_level(ItemA6[k][i],n,1);
ItemNum = ItemNum + n;
Expr = Expr + 358000000 * n;
Goldr = Goldr + 2000 * n;
end
end
end
for k = 1,#ItemA7 do
for i = 1,#ItemA7[k] do
local n = player:num_item_level(ItemA7[k][i],1);
if n >= 1 then
player:remove_item_level(ItemA7[k][i],n,1);
ItemNum = ItemNum + n;
Expr = Expr + 358000000 * n;
Goldr = Goldr + 2000 * n;
end
end
end
if ItemNum >= 1 then
player:add_exp(Expr);
player:add_vcoin(Goldr);
player:alert(10,0,0,"您一共回收了" .. ItemNum .. "件装备!");
player:alert(10,0,0,"经验+" .. Expr .. " 元宝+" .. Goldr .."");
g_alert("玩家[<font color='#FF0000'>"..player:GetName().."</font>]回收装备获得经验+" .. Expr .. " 元宝+" .. Goldr .."",2,1000,0,1);
else
player:alert(10,0,0,"您没有可回收的装备!");
end
ontalk2035(npc,0,player,0);
end
function ontalk2035_2(npc,event,player)------
local ItemNum = 0;
local Expr = 0;
for i = 1,99 do
local n = player:num_item(10108);
if n >= 1 then
player:remove_item(10108,n);
ItemNum = ItemNum + n;
Expr = Expr + 3600000 * n;
end
end
for i = 1,99 do
local n = player:num_item(10109);
if n >= 1 then
player:remove_item(10109,n);
ItemNum = ItemNum + n;
Expr = Expr + 7200000 * n;
end
end
for i = 1,99 do
local n = player:num_item(10110);
if n >= 1 then
player:remove_item(10110,n);
ItemNum = ItemNum + n;
Expr = Expr + 12000000 * n;
end
end
if ItemNum >= 1 then
player:add_exp(Expr);
player:alert(10,0,0,"经验+" .. Expr .. "");
else
player:alert(10,0,0,"您没有可回收的道具!");
end
ontalk2035(npc,0,player,0);
end
function ontalk2035_3(npc,event,player)-----------------------------------
local ItemNum = 0;
for k = 1,#ItemA8 do
for i = 1,#ItemA8[k] do
local n = player:num_item(ItemA8[k][i]);
player:alert(10,0,0,""..ItemA8[k][i].."!");
if n >= 1 then
player:remove_item(ItemA8[k][i],n);
ItemNum = ItemNum + n;
end
end
end
if ItemNum >= 1 then
player:alert(10,0,0,"您一共回收了" .. ItemNum .. "个传送卷!");
else
player:alert(10,0,0,"您没有可回收的传送卷!");
end
ontalk2035(npc,0,player,0);
end
function ontalk2035_4(npc,event,player)-----------------------------------
local ItemNum = 0;
local fsxw=0;
local jgs=0;
local sssp=0;
local hzsp=0;
for k = 1,#ItemA9 do
for i = 1,#ItemA9[k] do
local n = player:num_item_level(ItemA9[k][i],1);
if n >= 1 then
if ItemA9[k][i]==10116 then
fsxw=fsxw+100000*n;
elseif ItemA9[k][i]==10120 then
jgs=jgs+10*n;
elseif ItemA9[k][i]==10121 then
jgs=jgs+100*n;
elseif ItemA9[k][i]==10124 then
sssp= sssp+200*n;
elseif ItemA9[k][i]==10127 then
hzsp= hzsp+100*n;
end
player:remove_item_level(ItemA9[k][i],n,1);
ItemNum = ItemNum + n;
end
end
end
if ItemNum >= 1 then
player:set_param(259,player:get_param(259) + fsxw);
player:set_param(248,player:get_param(248) + jgs);
player:set_param(257,player:get_param(257) + sssp);
player:set_param(247,player:get_param(247) + hzsp);
player:alert(10,0,0,"您一共回收了" .. ItemNum .. "个!");
player:alert(10,0,0,"魂珠碎片 + "..hzsp..",当前魂珠碎片数量"..player:get_param(247).."");
player:alert(10,0,0,"神石结晶 + "..sssp..",当前神石结晶数量"..player:get_param(257).."");
player:alert(10,0,0,"金刚石数量 + "..jgs..",当前金刚石数量"..player:get_param(248).."颗");
player:alert(10,0,0,"飞升修为 + "..fsxw..",当前飞升修为"..player:get_param(259).."");
else
player:alert(10,0,0,"您没有可回收的道具!");
end
ontalk2035(npc,0,player,0);
end
function ontalk2035_5(npc,event,player)---
local ItemNum = 0;
local Expr = 0;
local Aurar = 0;
for k = 1,#ItemA10 do
for i = 1,#ItemA10[k] do
local n = player:num_item_level(ItemA10[k][i],1);
if n >= 1 then
player:remove_item_level(ItemA10[k][i],n,1);
ItemNum = ItemNum + n;
Expr = Expr + 3000000 * n;
Aurar = Aurar + 5000 * n;
end
end
end
if ItemNum >= 1 then
player:add_exp(Expr);
player:set_param(253,player:get_param(253) + Aurar);
player:alert(10,0,0,"您一共回收了" .. ItemNum .. "件装备!");
player:alert(10,0,0,"经验+" .. Expr .. " 灵韵值+" .. Aurar .."");
g_alert("玩家[<font color='#FF0000'>"..player:GetName().."</font>]回收装备获得经验+" .. Expr .. " 灵韵值+" .. Aurar .."",2,1000,0,1);
else
player:alert(10,0,0,"您没有可回收的装备!");
end
ontalk2035_1(npc,0,player,0);
end
Npc2035Funid =
{
[0] = ontalk2035;
[1] = ontalk2035_1;
[2] = ontalk2035_2;
[3] = ontalk2035_3;
[4] = ontalk2035_4;
[5] = ontalk2035_5;
}
function CreatureNpcFun(npc,event,player,funid)
if Npc2035Funid[funid] ~= nil then
Npc2035Funid[funid](npc,evnet,player);
end
end
RegisterUnitEvent(2035,20,"ontalk2035")
RegisterUnitEvent(2035,29,"CreatureNpcFun")
本脚本适用于所有烈焰私服版本,因其所有装备数据均为原始道具ID,如有删除过原始数据的装备,请将脚本内相关的装备回收数组删除即可.具体的回收元宝数额请自行修改.