用于战神引擎的装备回收Npc脚本，相比之前更新的类似回收Npc脚本，玩家获得的奖励都是单独的，比如元宝、金币、灵符、声望、经验的给，但今天更新这个，玩家通过回收可以同时获得元宝和经验，脚本回收的装备名单非常的全面，明文版，gm可以可以根据自己的需求，任意修改里面的回收装备名单和获得元宝跟经验数量，脚本经过帮主亲自测试，没有问题。

部分脚本

procedure _sbaihun;
 begin
   if (This_Player.GetBagItemCount ('白虎战甲(男)') >= 1) then
   begin
        This_Player.Take('白虎战甲(男)',1);
        This_Player.ScriptRequestAddYBNum(5000);
		This_Player.Give('经验', 50000000);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你没有该物品，别来骗我了！'); 
  end;
 procedure _sbaihuv;
 begin
   if (This_Player.GetBagItemCount ('白虎战甲(女)') >= 1) then
   begin
        This_Player.Take('白虎战甲(女)',1);
        This_Player.ScriptRequestAddYBNum(5000);
		This_Player.Give('经验', 50000000);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你没有该物品，别来骗我了！'); 
  end;
 procedure _szhuque;
 begin
   if (This_Player.GetBagItemCount ('朱雀战袍(男)') >= 1) then
   begin
        This_Player.Take('朱雀战袍(男)',1);
        This_Player.ScriptRequestAddYBNum(5000);
		This_Player.Give('经验', 50000000);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你没有该物品，别来骗我了！'); 
  end;
 procedure _szhuquev;
 begin
   if (This_Player.GetBagItemCount ('朱雀战袍(女)') >= 1) then
   begin
        This_Player.Take('朱雀战袍(女)',1);
        This_Player.ScriptRequestAddYBNum(5000);
		This_Player.Give('经验', 50000000);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你没有该物品，别来骗我了！'); 
  end;
 procedure _sqlong;
 begin
   if (This_Player.GetBagItemCount ('青龙战衣(男)') >= 1) then
   begin
        This_Player.Take('青龙战衣(男)',1);
        This_Player.ScriptRequestAddYBNum(5000);
		This_Player.Give('经验', 50000000);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你没有该物品，别来骗我了！'); 
  end;
 procedure _sqlongv;
 begin
   if (This_Player.GetBagItemCount ('青龙战衣(女)') >= 1) then
   begin
        This_Player.Take('青龙战衣(女)',1);
        This_Player.ScriptRequestAddYBNum(5000);
		This_Player.Give('经验', 50000000);
    end
	else
        This_NPC.NpcDialog(This_Player,
		'你没有该物品，别来骗我了！'); 
  end;
Begin
  domain;
end.