战神传奇自动循环吃元宝灵符的脚本

2021-05-20 10:51:43 作者:首艺秀传奇网 阅读:118 标签:
下面是(www.syxiu.cn)小编搜集整理的关于战神传奇自动循环吃元宝灵符的脚本网游攻略,希望能够给大家以帮助。

  {自动吃元宝灵符 
作者:开心就好
内容:上线点击一次该NPC就会循环检测包里元宝,灵符数目,自动吃!
之处吃1 2 5 10元宝和灵符,需要大额自己在else后面添加
下线后该脚本停止运行,跑酷,泡点,套装触发和该脚本的思路一模一样! 
}
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.


本编文章链接:http://www.syxiu.cn/newcq/771.html
郑重声明:部分文章来源于网络,仅作为参考,如果网站中图片和文字侵犯了您的版权,请联系我们处理!

上一篇:有哪些传奇手游可以让传奇玩家成功赚到元宝的方法

下一篇:战神手游传奇私服的架设步骤

相关推荐


关注我们

    养殖诗词网
返回顶部