灵符回收Npc脚本(回收装备获得灵符包)

用于战神引擎的灵符回收Npc脚本，玩家回收装备获得灵符包，记得是灵符包，并不是直接给人物增加灵符，获得的灵符包在玩家背包里面，需要双击吃掉，如果你们要使用这个教程，记得对接对应的脚本到taozhuang文件，不能直接覆盖这份文件到自己版本里面，否则会乱套，回收的灵符包数据库里面也有有对应的，否则装备扣除以后，无法给与灵符包这个物品。

脚本默认有30多件回收装备名单，明文版，可以任意修改里面的回收物品名单和给与对应的灵符包。灵符包的脚本文件帮主压缩到文件里面了，使用的时候，覆盖到对应的文件夹就行。当然，物品DB数据需要自己写，脚本是从1.76兄弟复古赤月魔龙版本提取的，有这个版本可以直接到里面复制DB数据。

灵符回收Npc脚本(回收装备获得灵符包)

部分脚本

PROGRAM Mir2;
{$I TaoZhuang.pas}
procedure _M1; 
begin
if This_Player.GetBagItemCount ('圣战头盔[传说]') >= 1 then
begin
This_Player.Take('圣战头盔[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用圣战头盔[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有圣战头盔[传说]!');
end;
procedure _M2; 
begin
if This_Player.GetBagItemCount ('圣战手镯[传说]') >= 1 then
begin
This_Player.Take('圣战手镯[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用圣战手镯[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有圣战手镯[传说]!');
end;
procedure _M3; 
begin
if This_Player.GetBagItemCount ('圣战戒指[传说]') >= 1 then
begin
This_Player.Take('圣战戒指[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用圣战戒指[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有圣战戒指[传说]!');
end;
procedure _M4; 
begin
if This_Player.GetBagItemCount ('圣战项链[传说]') >= 1 then
begin
This_Player.Take('圣战项链[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用圣战项链[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有圣战项链[传说]!');
end;
procedure _M5; 
begin
if This_Player.GetBagItemCount ('法神头盔[传说]') >= 1 then
begin
This_Player.Take('法神头盔[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用法神头盔[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有法神头盔[传说]!');
end;
procedure _M6; 
begin
if This_Player.GetBagItemCount ('法神手镯[传说]') >= 1 then
begin
This_Player.Take('法神手镯[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用法神手镯[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有法神手镯[传说]!');
end;
procedure _M7; 
begin
if This_Player.GetBagItemCount ('法神戒指[传说]') >= 1 then
begin
This_Player.Take('法神戒指[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用法神戒指[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有法神戒指[传说]!');
end;
procedure _M8; 
begin
if This_Player.GetBagItemCount ('法神项链[传说]') >= 1 then
begin
This_Player.Take('法神项链[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用法神项链[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有法神项链[传说]!');
end;
procedure _M9; 
begin
if This_Player.GetBagItemCount ('天尊头盔[传说]') >= 1 then
begin
This_Player.Take('天尊头盔[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用天尊头盔[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有天尊头盔[传说]!');
end;
procedure _M10; 
begin
if This_Player.GetBagItemCount ('天尊手镯[传说]') >= 1 then
begin
This_Player.Take('天尊手镯[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用天尊手镯[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有天尊手镯[传说]!');
end;
procedure _M11; 
begin
if This_Player.GetBagItemCount ('天尊戒指[传说]') >= 1 then
begin
This_Player.Take('天尊戒指[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用天尊戒指[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有天尊戒指[传说]!');
end;
procedure _M12; 
begin
if This_Player.GetBagItemCount ('天尊项链[传说]') >= 1 then
begin
This_Player.Take('天尊项链[传说]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用天尊项链[传说]兑换了一元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有天尊项链[传说]!');
end;
procedure _N1; 
begin
if This_Player.GetBagItemCount ('裁决之杖[光武]') >= 1 then
begin
This_Player.Take('裁决之杖[光武]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用裁决之杖[光武]兑换了1元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有裁决之杖[光武]!');
end;
procedure _N2; 
begin
if This_Player.GetBagItemCount ('骨玉权杖[光武]') >= 1 then
begin
This_Player.Take('骨玉权杖[光武]',1);
This_Player.Give('1灵符礼包',1);
ServerSay('玩家【'+This_Player.Name+'】用骨玉权杖[光武]兑换了1元充值！',2);
end
else
This_Npc.NpcDialog(This_Player,
        '你没有骨玉权杖[光武]!');
end;

分享到：

赞(0)