自动吃元宝和灵符脚本(自动吃包裹里面的)

上线点击一次该NPC就会循环检测包里元宝，灵符数目，自动吃！之处吃1-2-5-10元宝和灵符，需要大额自己在else后面添加下线后该脚本停止运行，跑酷，泡点，套装触发和该脚本的思路一模一样！脚本经过帮主亲自测试，可以正常使用。

脚本如下

{自动吃元宝灵符

作者：开心就好

内容：上线点击一次该NPC就会循环检测包里元宝，灵符数目，自动吃！

之处吃12510元宝和灵符，需要大额自己在else后面添加

下线后该脚本停止运行，跑酷，泡点，套装触发和该脚本的思路一模一样！

}

PROGRAMMir2;

Procedure_doexit;

begin

This_Npc.CloseDialog(This_Player);

end;

proceduredomain;

begin

This_NPC.NpcDialog(This_Player,

'☆☆☆欢迎光临【战神180复古】自助中心☆☆☆\\|'

+'☆☆本中心为了玩家自动吃包里小额元宝和灵符而设计☆☆\\|'

+'☆☆下线后再次上线需要重新开启☆☆\\|'

+'{cmd}<开启 kq="">\\');

end;

procedurekq;

begin

ifThis_Player.GetBagItemCount('1灵符礼包')>0then

begin

This_Player.Take('1灵符礼包',1);

This_Player.AddLF(1,1);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('2灵符礼包')>0then

begin

This_Player.Take('2灵符礼包',1);

This_Player.AddLF(1,2);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('5灵符礼包')>0then

begin

This_Player.Take('5灵符礼包',1);

This_Player.AddLF(1,5);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('10灵符礼包')>0then

begin

This_Player.Take('10灵符礼包',1);

This_Player.AddLF(1,10);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('20灵符礼包')>0then

begin

This_Player.Take('20灵符礼包',1);

This_Player.AddLF(1,20);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('50灵符礼包')>0then

begin

This_Player.Take('50灵符礼包',1);

This_Player.AddLF(1,50);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('100灵符礼包')>0then

begin

This_Player.Take('100灵符礼包',1);

This_Player.AddLF(1,100);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('1元宝')>0then

begin

This_Player.Take('1元宝',1);

This_Player.ScriptRequestAddYBNum(1);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('2元宝')>0then

begin

This_Player.Take('2元宝',1);

This_Player.ScriptRequestAddYBNum(2);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('5元宝')>0then

begin

This_Player.Take('5元宝',1);

This_Player.ScriptRequestAddYBNum(5);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('10元宝')>0then

begin

This_Player.Take('10元宝',1);

This_Player.ScriptRequestAddYBNum(10);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

ifThis_Player.GetBagItemCount('50元宝')>0then

begin

This_Player.Take('50元宝',1);

This_Player.ScriptRequestAddYBNum(50);

This_Player.CallOut(This_NPC,5,'kq');

This_Player.PlayerNotice('已开启成功–!系统处理中',2);

endelse

This_Player.CallOut(This_NPC,5,'kq');

end;

procedure_kq;

begin

kq;

end;

begin

domain;

end.

------本页内容已结束，喜欢请分享------

感谢您的来访，获取更多优质资源请收藏本站。