72家族网-手游源码论坛

查看:【571】 回复:【0】 发表于 2020-5-20 11:14 存档时间: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. function Gaoji0LB(price, num: Integer):boolean;
  9. begin                                               

  10.   result := true;
  11. end;

  12. procedure _YBBG;

  13. begin            
  14. if This_Player.YBNum >= 1 then  
  15. begin   
  16. if This_Player.Level < 50 then
  17.   begin                 
  18.     This_Player.CallOut(This_Npc, 1, 'MFBG2');
  19.     This_Player.RandomFlyTo('Q004~2');
  20.     This_Npc.NpcDialog(This_Player,
  21.    '请好好把握这幸福的时光。'
  22.    );

  23.    end
  24.    else  
  25.    begin
  26.        This_Player.FlyTo('3', 333, 333);
  27.        This_Npc.NpcDialog(This_Player,
  28.    '不在指定地图。'
  29.    );   
  30.    end;
  31.   end
  32.   else  
  33.   begin
  34.        This_Player.FlyTo('3', 333, 333);
  35.        This_Npc.NpcDialog(This_Player,
  36.    '元宝不足了。'
  37.    );   
  38.   end;
  39.     end;

  40. procedure MFBG2;
  41. begin
  42.    if This_Player.YBNum >= 1 then
  43.    begin
  44.    if This_Player.Level < 49 then
  45.    begin
  46.    if CompareText(This_Player.MapName,'Q004~2') = 0 then
  47.   begin
  48.     This_Player.CallOut(This_Npc, 1, 'MFBG2');
  49.     This_Player.Give('经验',250000);
  50.     This_Player.PsYBConsum(This_NPC,'Gaoji0LB',20051,1,1);

  51.    end
  52.    else  
  53.    begin
  54.        This_Player.FlyTo('3', 333, 333);
  55.        This_Npc.NpcDialog(This_Player,
  56.    '不在指定地图。'
  57.    );   
  58.    end;
  59.   end
  60.   else  
  61.   begin
  62.        This_Player.FlyTo('3', 333, 333);
  63.        This_Npc.NpcDialog(This_Player,
  64.    '等级超过48级。'
  65.    );   
  66.   end;  
  67. end
  68. else
  69. begin
  70.      This_Player.FlyTo('3', 333, 333);
  71.      This_Npc.NpcDialog(This_Player,
  72.    '元宝不足。'
  73.    );
  74.     end;
  75.     end;




  76. begin
  77.    This_NPC.NpcDialog(This_Player,
  78.    '激情闭关:\ \'+
  79.    '欢迎来到元宝激情闭关.\ \'+
  80.    '里面将是一个最激情最具有特色危险恐怖的地方.\ \'+
  81.    '想要强大就得快人一步、可以在里面泡到48级哦.\ \'+
  82.    '|{cmd}<◆元宝闭关/@YBBG>');
  83. end.   
复制代码


使用道具

关闭

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

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

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