战神手游玩家快速买药脚本

战神手游玩家快速买药脚本

战神手游玩家快速买药脚本

{

*******************************************************************}

program mir2;

{$I TaoZhuang.pas}

function Gaoji0LB(price, num: Integer):boolean;

begin

result := true;

end;

procedure _yibao;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 5 then

begin

This_Player.Give('疗伤药包',1);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,5,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买疗伤药包!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _wubao;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 25 then

begin

This_Player.Give('疗伤药包',5);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,25,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买疗伤药包!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _shibao;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 50 then

begin

This_Player.Give('疗伤药包',10);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,50,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买疗伤药包!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _M5;

begin

This_Npc.NpcDialog(This_Player,

'|<            /c=red>\\'+

'|<疗伤药一包: c="red">需要5元宝<购买 yibao="">\\'+

'|<疗伤药五包: c="red">需要25元宝<购买 wubao="">\\'+

'|<疗伤药十包: c="red">需要50元宝<购买 shibao="">\\'+

'|<            /c=red>\\'

);

end;

procedure _M1;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 10 then

begin

This_Player.Give('火龙之心',1);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,10,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买火龙之心!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _M2;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 10 then

begin

This_Player.Give('超级护身符',1);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,10,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买超级护身符!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _M3;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 10 then

begin

This_Player.Give('超级灰色药粉',1);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,10,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买超级灰色药粉!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _M4;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 10 then

begin

This_Player.Give('超级黄色药粉',1);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,10,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买超级黄色药粉!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _M6;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 10 then

begin

This_Player.Give('魔血石(大)',1);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,10,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买魔血石(大)!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _M7;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 10 then

begin

This_Player.Give('沃玛号角',1);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,10,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买沃玛号角!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _M8;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 1000 then

begin

This_Player.Give('祖玛头像',1);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,1000,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买沃玛号角!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _M9;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 100 then

begin

This_Player.Give('金砖',1);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,100,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买金砖!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _500;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 1000 then

begin

This_Player.Give('至尊令牌',10);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,1000,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _2500;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 5000 then

begin

This_Player.Give('至尊令牌',50);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,5000,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _5000;

begin

if This_Player.FreeBagNum > 0 then

begin

if This_Player.YBnum >= 10000 then

begin

This_Player.Give('至尊令牌',100);

This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,10000,1);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你元宝不足,不能购买!'

);

end else

This_Npc.NpcDialog(This_Player,

'对不起,你背包已满!'

);

end;

procedure _M10;

begin

This_Npc.NpcDialog(This_Player,

'|<            /c=red>\\'+

'|<10个至尊令牌: c="red">需要1000元宝<购买 500="">\\'+

'|<50个至尊令牌: c="red">需要5000元宝<购买 2500="">\\'+

'|<100至尊令牌: c="red">需要10000元宝<购买 5000="">\\'+

'|<            /c=red>\\'

);

end;

begin

TZJH_NPC;

This_NPC.NpcDialog(This_Player,

'┏━━━━━━━━━━━━━━━━━━━┓\\'+

'|<★★★★ c="249"><疗伤药一包: c="252">需要5元宝<购买 yibao=""><★★★★ c="249">\\|'+

'|<★★★★ c="249"><疗伤药五包: c="252">需要25元宝<购买 wubao=""><★★★★ c="249">\\|'+

'|<★★★★ c="249"><疗伤药十包: c="252">需要50元宝<购买 shibao=""><★★★★ c="249">\\'+

'|┗━━━━━━━━━━━━━━━━━━━┛\\'

);

end.

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

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

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

昵称

取消
昵称表情代码图片