战神引擎锻造金刚石脚本-已修复脚本

admin

战神引擎锻造金刚石脚本-已修复脚本

{
*******************************************************************}

program Mir2;



procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;

procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;

//*******************锻造金刚石***********************
procedure _ForgeDiamond;
begin
  This_Npc.NpcDialog(This_Player,
  '锻造金刚石需要用强大的意志力，并且等级达到15级，\'+
  '金刚石可以用来锻造武器和衣服，首饰等装备，十分\'+
  '有用，金刚石可以打BOSS和活动获得，也可以元宝锻造。\ \'+
  '|{cmd}<我要开始金刚石锻造/@ForgeDiamondStart>' );


end;



procedure _ForgeDiamondStart;
begin
  if This_Player.Level < 15 then
  begin
  This_Npc.NpcDialog(This_Player,
  '你的等级不满15级，不可锻造金刚石。'
  );
  end else
  This_Npc.NpcDialog(This_Player,
  '一旦开始锻造，就会收取元宝，请确保你的包裹有足够的空间。\'+      //这里 巴拉巴一堆话 自己改
  '|如果因为包裹满，无法获得金刚石，将不予退还元宝！！！。\ \'+    //这里也是
  '|{cmd}<使用5元宝锻造10颗金刚石/@ForgeDiamondStart_YB1>\'+
  '|{cmd}<使用10元宝锻造200颗金刚石/@ForgeDiamondStart_YB2>\'+
  '|{cmd}<使用20元宝锻造40颗金刚石/@ForgeDiamondStart_YB3>\'+
   '|{cmd}<使用50元宝锻造100颗金刚石/@ForgeDiamondStart_YB4>\'+
  '|{cmd}<使用100元宝锻造200颗金刚石/@ForgeDiamondStart_Y5>\'

  );
end;

procedure _ForgeDiamondStart_YB1;

begin
     begin
       if This_Player.YBNum >= 50 then     //这里检测元宝数量     由于我没找到元宝的函数接口 ，点击 了M2会提示
      begin
         This_Player.Give('经验',10000);    //给多少经验
         This_Player.Give('金刚石',5);      //给多少金刚石
         This_Player.MyShengwan := This_Player.MyShengwan + 10;  // 这里加声望

         This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20150,50,1);   //这里减多少元宝
         begin
         This_Player.NotifyClientCommitItem(0,'锻造成功！');  //这里成功提示可以写上获得了多少颗
         end;
      end else  
       begin
         This_Player.NotifyClientCommitItem(0,'无法锻造：你的元宝不足，需要'+inttostr(50)+'元宝。');   //这里写不足是需要多少元宝

       end;  
    end;     
end;

procedure _ForgeDiamondStart_YB2;
begin
     begin
       if This_Player.YBNum >= 100 then     //这里检测元宝数量
      begin
         This_Player.Give('经验',20000);    //给多少经验
         This_Player.Give('金刚石',10);      //给多少金刚石
         This_Player.MyShengwan := This_Player.MyShengwan + 10;  // 这里加声望
         This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20150,100,1);   //这里减多少元宝
         begin
         This_Player.NotifyClientCommitItem(0,'锻造成功！');  //这里成功提示
         end;
      end else  
       begin
         This_Player.NotifyClientCommitItem(0,'无法锻造：你的元宝不足，需要'+inttostr(100)+'元宝。');   //这里写不足是需要多少元宝

       end;  
    end;     
end;     

procedure _ForgeDiamondStart_YB3;
begin
     begin
       if This_Player.YBNum >= 200 then     //这里检测元宝数量
      begin
         This_Player.Give('经验',100000);    //给多少经验
         This_Player.Give('金刚石',20);      //给多少金刚石
         This_Player.MyShengwan := This_Player.MyShengwan + 10;  // 这里加声望
         This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20150,200,1);   //这里减多少元宝
         begin
         This_Player.NotifyClientCommitItem(0,'锻造成功！');  //这里成功提示
         end;
      end else  
       begin
         This_Player.NotifyClientCommitItem(0,'无法锻造：你的元宝不足，需要'+inttostr(200)+'元宝。');   //这里写不足是需要多少元宝

       end;  
    end;     
end;


procedure _ForgeDiamondStart_YB4;
begin
     begin
       if This_Player.YBNum >= 500 then     //这里检测元宝数量
      begin
         This_Player.Give('经验',10000);    //给多少经验
         This_Player.Give('金刚石',50);      //给多少金刚石
         This_Player.MyShengwan := This_Player.MyShengwan + 10;  // 这里加声望
         This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20150,500,1);   //这里减多少元宝
         begin
         This_Player.NotifyClientCommitItem(0,'锻造成功！');  //这里成功提示
         end;
      end else  
       begin
         This_Player.NotifyClientCommitItem(0,'无法锻造：你的元宝不足，需要'+inttostr(500)+'元宝。');   //这里写不足是需要多少元宝

       end;  
    end;     
end;


procedure _ForgeDiamondStart_YB5;
begin
     begin
       if This_Player.YBNum >= 1000 then     //这里检测元宝数量
      begin
         This_Player.Give('经验',1000000);    //给多少经验
         This_Player.Give('金刚石',150);      //给多少金刚石
         This_Player.MyShengwan := This_Player.MyShengwan + 10;  // 这里加声望
         This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20150,1000,1);   //这里减多少元宝
         begin
         This_Player.NotifyClientCommitItem(0,'锻造成功！');  //这里成功提示
         end;
      end else  
       begin
         This_Player.NotifyClientCommitItem(0,'无法锻造：你的元宝不足，需要'+inttostr(1000)+'元宝。');   //这里写不足是需要多少元宝

       end;  
    end;     
end;





begin   

  This_Npc.NpcDialog(This_Player,
  '|{cmd}<金刚石锻造/@ForgeDiamond>                    \ \'
  );
end.  

pybaodan

6666666666666666666666666