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

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

{

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

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">需要５元宝<购买 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">需要５元宝<购买 yibao=""><★★★★ c="249">\|'+

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

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

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

);

end.