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

上线点击一次该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.

温馨提示:本文最后更新于2022-06-14 22:57:57,某些文章具有时效性,若有错误或已失效,请在下方留言或联系吾爱游戏迷
------本页内容已结束,喜欢请分享------

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

© 版权声明
THE END
喜欢就支持一下吧
点赞224 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片