72家族网-手游源码论坛

6.9
查看:【43】 回复:【0】 发表于 2020-5-20 11:14
本主题由 族长 于 2020-5-24 11:13 分类
全站
1天前
全站
2天前
全站
3天前
全站
3天前
全站
4天前
全站
5天前
全站
5天前
全站
6天前
全站
7天前
全站
7天前
全站
8天前
全站
9天前
全站
9天前
全站
11天前
全站
12天前
全站
12天前
全站
13天前
全站
14天前
全站
18天前
全站
18天前

战神引擎手游源码

战神引擎激情闭关 泡点脚本

战神引擎激情闭关 泡点脚本
  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 下一条

综合统计   资源量:698109   会员数:108618   今日活跃:78   昨日活跃:533   同时在线:319

9年老站欢迎您,已运行,感谢一路相伴

域名:72jz.com 年龄:9年 世界排名:1,091,577 日均访问[PV]:15000  创建于2011年04月20日,过期时间为2029年04月20日[待续] 皖ICP备11014237号

本站专注为新手提供手游源码、网页游戏源码、游戏一键端资源教程开发技术交流学习论坛

本站资源来自互联网搜集,仅供本地电脑单机学习和交流,请勿用于商业用途,请自觉在24小时内删除。
若有侵权与文章中不妥之处,请联系邮箱:admjz@vip.qq.com(手机随时接收邮件)并出示相关证明以便删除。敬请谅解!

2011-2020 72家族网 版权所有 Powered by Discuz!
本站部分资源系统会自动采集第三方,若不小心侵权了品牌请及时联系我们邮箱,会在第一时间删除。