战神手游综合买+卖+存+修+脚本脚本素材

{

/************************************************************************}

PROGRAM Mir2;

{$I common.pas}

Procedure _doexit;

begin

   This_Npc.CloseDialog(This_Player);

end;

Procedure _getback;

Begin

   This_Npc.NpcDialog(This_Player,

   '请看目录决定找什么东西。\ \ \'+

   '|{cmd}<返回 main="">');

   This_Npc.Click_GetBack(This_Player);

end;

Procedure _storage;

begin

   This_Npc.NpcDialog(This_Player,

   '需要保管什么东西？\ \ \'+

   '|{cmd}<返回 main="">');

   This_Npc.Click_GetBack(This_Player);

end;

Procedure _DoInputDialog1;

begin

   This_Npc.InputDialog(This_Player,'请输入：', 0 , 100);

end;

Procedure P100;

begin

   If This_Npc.InputOK then

   begin

      This_Player.ReqOpenStorage(This_Npc.InputStr);

   end;

end;

Procedure _mbind;

begin

  This_Npc.NpcDialog(This_Player,

  '你知道我是什么人吗？我做的是这样的事情... \' +

  '你要试一下吗？有什么要拜托的就说吧！ \ \' +

  '|{cmd}<金币换金条. chgtobar="">'+addspace(' ',18)+'|{cmd}<金条换金币. bartogold="">\' +

  '|{cmd}<捆药瓶和卷轴 bind="">\'+ 

  '|{cmd}<取消 doexit="">');

end;

Procedure _chgtobar;

begin

   This_Npc.Click_GoldChgBar(This_Player);

end;

Procedure _bartogold;

begin

   This_Npc.Click_BartoGold(This_Player);

end;

Procedure _bind;

begin

  This_Npc.NpcDialog(This_Player,

  '目前我能捆的只有卷书和药水。\'+

  '你要捆吗？ \'+ 

  '要捆东西需要100金币。 \ \'+

  '|{cmd}<捆药水 p_bind="">'+addspace(' ',20)+'|{cmd}<捆卷书 z_bind=""> \ \'+

  '|{cmd}<返回 main="">');