战神引擎自动循环吃元宝灵符的脚本

PROGRAM Mir2;
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
    This_NPC.NpcDialog(This_Player,
       '☆☆☆欢迎光临【开心就好】自助中心☆☆☆\|'              
     +' ☆☆本中心为了玩家自动吃包里小额元宝和灵符而设计☆☆\|'
     +' ☆☆下线后再次上线需要重新开启☆☆\|'
    +'{cmd}<开启/@kq> \');
end;

procedure kq;
begin
  if This_Player.GetBagItemCount('1灵符礼包') >0  then
  begin
      This_Player.Take('1灵符礼包', 1);
      This_Player.AddLF(1,1);
      This_Player.CallOut(This_NPC,5,'kq');
  end else 
  if This_Player.GetBagItemCount('2灵符礼包')>0  then
  begin
      This_Player.Take('2灵符礼包', 1);
      This_Player.AddLF(1,2);
      This_Player.CallOut(This_NPC,5,'kq');
  end else 
  if This_Player.GetBagItemCount('5灵符礼包')>0  then
  begin
      This_Player.Take('5灵符礼包', 1);
      This_Player.AddLF(1,5);
      This_Player.CallOut(This_NPC,5,'kq');
  end else 
  if This_Player.GetBagItemCount('10灵符礼包')>0  then
  begin
      This_Player.Take('10灵符礼包', 1);
      This_Player.AddLF(1,10);
      This_Player.CallOut(This_NPC,5,'kq');
  end else 
   if This_Player.GetBagItemCount('1元宝')>0  then
  begin
      This_Player.Take('1元宝', 1);
      This_Player.ScriptRequestAddYBNum(1);
      This_Player.CallOut(This_NPC,5,'kq');
  end else
  if This_Player.GetBagItemCount('2元宝')>0  then
  begin
      This_Player.Take('2元宝', 1);
      This_Player.ScriptRequestAddYBNum(2);
      This_Player.CallOut(This_NPC,5,'kq');
  end else
  if This_Player.GetBagItemCount('5元宝')>0  then
  begin
      This_Player.Take('5元宝', 1);
      This_Player.ScriptRequestAddYBNum(5);
      This_Player.CallOut(This_NPC,5,'kq');
  end else
  if This_Player.GetBagItemCount('10元宝')>0  then
  begin
      This_Player.Take('10元宝', 1);
      This_Player.ScriptRequestAddYBNum(10);
      This_Player.CallOut(This_NPC,5,'kq');
  end else
      This_Player.CallOut(This_NPC,5,'kq');
end;

procedure _kq;
begin
kq;
end;
begin
domain;
end.