战神引擎简易自动回收Npc脚本。

部分脚本

PROGRAM Mir2;
{$I TaoZhuang.pas}
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure kq;
begin
if  This_Player.GetV(99,9) > 0 then
 begin 
  if This_Player.GetBagItemCount('绿色项链') >0  then
  begin
      This_Player.Take('绿色项链', 1);
      This_Player.Give('经验',500000);
      This_Player.CallOut(This_NPC,2,'kq');
  end else 
  if This_Player.GetBagItemCount('力量戒指')>0  then
  begin
      This_Player.Take('力量戒指', 1);
      This_Player.Give('经验',500000);
      This_Player.CallOut(This_NPC,2,'kq');
  end else 
  if This_Player.GetBagItemCount('骑士手镯')>0  then
  begin
      This_Player.Take('骑士手镯', 1);
      This_Player.Give('经验',500000);
      This_Player.CallOut(This_NPC,2,'kq');
  end else 
  if This_Player.GetBagItemCount('恶魔铃铛')>0  then
  begin
      This_Player.Take('恶魔铃铛', 1);
      This_Player.Give('经验',500000);
      This_Player.CallOut(This_NPC,2,'kq');
  end else 
   if This_Player.GetBagItemCount('黑铁头盔')>0  then
  begin
      This_Player.Take('黑铁头盔', 1);
      This_Player.Give('经验',500000);
      This_Player.CallOut(This_NPC,2,'kq');
  end else
  if This_Player.GetBagItemCount('龙之手镯')>0  then
  begin
      This_Player.Take('龙之手镯', 1);
     This_Player.Give('经验',500000);
      This_Player.CallOut(This_NPC,2,'kq');
  end else
  if This_Player