72家族网-手游源码论坛

查看:【724】 回复:【1】 发表于 2020-5-20 11:18 存档时间:2022-06-30
本主题由 族长 于 2021-11-6 02:20 反删除
头条
5天前
头条
13天前
头条
24天前
头条
2022-05-30
头条
2022-05-30
头条
2022-05-30
头条
2022-05-19
头条
2022-05-02
头条
2022-04-22
头条
2022-04-18
头条
2022-04-13
头条
2022-04-02
头条
2022-04-01
头条
2022-03-28
头条
2022-03-24
头条
2022-03-23
头条
2022-03-23
头条
2022-03-23
头条
2022-03-23
头条
2022-03-23

战神引擎手游源码

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

战神引擎锻造金刚石脚本-已修复脚本
  1. {
  2. *******************************************************************}

  3. program Mir2;



  4. procedure _DoExit;
  5. begin
  6.   This_Npc.CloseDialog(This_Player);
  7. end;

  8. procedure _Exit;
  9. begin
  10.   This_Npc.CloseDialog(This_Player);
  11. end;

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


  20. end;



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

  37.   );
  38. end;

  39. procedure _ForgeDiamondStart_YB1;

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

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

  54.        end;  
  55.     end;     
  56. end;

  57. procedure _ForgeDiamondStart_YB2;
  58. begin
  59.      begin
  60.        if This_Player.YBNum >= 100 then     //这里检测元宝数量
  61.       begin
  62.          This_Player.Give('经验',20000);    //给多少经验
  63.          This_Player.Give('金刚石',10);      //给多少金刚石
  64.          This_Player.MyShengwan := This_Player.MyShengwan + 10;  // 这里加声望
  65.          This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20150,100,1);   //这里减多少元宝
  66.          begin
  67.          This_Player.NotifyClientCommitItem(0,'锻造成功!');  //这里成功提示
  68.          end;
  69.       end else  
  70.        begin
  71.          This_Player.NotifyClientCommitItem(0,'无法锻造:你的元宝不足,需要'+inttostr(100)+'元宝。');   //这里写不足是需要多少元宝

  72.        end;  
  73.     end;     
  74. end;     

  75. procedure _ForgeDiamondStart_YB3;
  76. begin
  77.      begin
  78.        if This_Player.YBNum >= 200 then     //这里检测元宝数量
  79.       begin
  80.          This_Player.Give('经验',100000);    //给多少经验
  81.          This_Player.Give('金刚石',20);      //给多少金刚石
  82.          This_Player.MyShengwan := This_Player.MyShengwan + 10;  // 这里加声望
  83.          This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20150,200,1);   //这里减多少元宝
  84.          begin
  85.          This_Player.NotifyClientCommitItem(0,'锻造成功!');  //这里成功提示
  86.          end;
  87.       end else  
  88.        begin
  89.          This_Player.NotifyClientCommitItem(0,'无法锻造:你的元宝不足,需要'+inttostr(200)+'元宝。');   //这里写不足是需要多少元宝

  90.        end;  
  91.     end;     
  92. end;


  93. procedure _ForgeDiamondStart_YB4;
  94. begin
  95.      begin
  96.        if This_Player.YBNum >= 500 then     //这里检测元宝数量
  97.       begin
  98.          This_Player.Give('经验',10000);    //给多少经验
  99.          This_Player.Give('金刚石',50);      //给多少金刚石
  100.          This_Player.MyShengwan := This_Player.MyShengwan + 10;  // 这里加声望
  101.          This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20150,500,1);   //这里减多少元宝
  102.          begin
  103.          This_Player.NotifyClientCommitItem(0,'锻造成功!');  //这里成功提示
  104.          end;
  105.       end else  
  106.        begin
  107.          This_Player.NotifyClientCommitItem(0,'无法锻造:你的元宝不足,需要'+inttostr(500)+'元宝。');   //这里写不足是需要多少元宝

  108.        end;  
  109.     end;     
  110. end;


  111. procedure _ForgeDiamondStart_YB5;
  112. begin
  113.      begin
  114.        if This_Player.YBNum >= 1000 then     //这里检测元宝数量
  115.       begin
  116.          This_Player.Give('经验',1000000);    //给多少经验
  117.          This_Player.Give('金刚石',150);      //给多少金刚石
  118.          This_Player.MyShengwan := This_Player.MyShengwan + 10;  // 这里加声望
  119.          This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20150,1000,1);   //这里减多少元宝
  120.          begin
  121.          This_Player.NotifyClientCommitItem(0,'锻造成功!');  //这里成功提示
  122.          end;
  123.       end else  
  124.        begin
  125.          This_Player.NotifyClientCommitItem(0,'无法锻造:你的元宝不足,需要'+inttostr(1000)+'元宝。');   //这里写不足是需要多少元宝

  126.        end;  
  127.     end;     
  128. end;





  129. begin   

  130.   This_Npc.NpcDialog(This_Player,
  131.   '|{cmd}<金刚石锻造/@ForgeDiamond>                    \ \'
  132.   );
  133. end.  
复制代码



使用道具

关闭

72家族网 - 游戏开发者学习平台上一条 /1 下一条

本站资源来自互联网搜集,仅供本地电脑单机学习和交流,请勿用于商业用途,请自觉在24小时内删除。
本站仅提供信息存储空间服务,软件的复制品持有人不知道也没有合理的理由应当知道展示的作品侵权!
本站所有资源仅限用于研究产品软件内含、设计思想和原理为目的用途,禁止任何商用行为,违者后果自负!
若有侵权与文章中不妥之处,请联系邮箱:zhende5555@qq.com(手机随时接收邮件)并出示相关证明以便删除。敬请谅解!

2011-2022 私服论坛 www.sifubbs.com 手游源码技术讨论平台 Powered by Discuz!