72家族网-手游源码论坛

6.9
查看:【38】 回复:【0】 发表于 2020-5-20 11:13
本主题由 族长 于 2020-5-24 11:13 分类
全站
2小时前
全站
2小时前
全站
3小时前
全站
1天前
全站
2天前
全站
2天前
全站
3天前
全站
3天前
全站
4天前
全站
5天前
全站
6天前
全站
6天前
全站
8天前
全站
9天前
全站
9天前
全站
10天前
全站
11天前
全站
15天前
全站
15天前
全站
15天前

战神引擎手游源码

战神引擎端游改过来的土城跑酷奖励活动脚本


战神引擎端游改过来的土城跑酷奖励活动脚本
  1. { ***********************
  2. 土城跑酷
  3. 作者:开心就好
  4. 内容:在一个特定的时间段开始在土城一定范围内跑动随机得到一定的物品奖励,比如以下脚本
  5. 会在每天15:00-15:05 及19:00 -19:05开放
  6. ******************************}
  7. program Mir2;
  8. var
  9. WpName : string;
  10. Rdm_int,px, py :Integer;
  11. Procedure _doexit;
  12. begin
  13.    This_Npc.CloseDialog(This_Player);
  14. end;
  15. procedure _tcpk;
  16.    begin
  17. if This_Player.Level >1 then
  18.   begin                 
  19.     This_Player.CallOut(This_Npc, 1, 'tcpk2');
  20.     This_Player.FlyTo('3',333,333);
  21.     This_Npc.NpcDialog(This_Player,
  22.    '请好好把握这幸福的时光。'
  23.    );
  24.    end;
  25.     end;
  26. procedure tcpk2;
  27. begin
  28. Rdm_int := random(100);
  29. px:= This_player.My_X;
  30. py:= This_Player.My_Y;
  31. if  ((GetHour = 15) and (GetMin < 5)) or
  32. ((GetHour = 15) and (GetMin < 5)) then begin  //自己修改开放时间   
  33. if (This_Player.MapName = '3') and ( 323 < px ) and (px < 343 )
  34. and (323 < py ) and (py < 343) then  //在土城坐标333.333 周围10格内跑动有效
  35.     begin if (This_Player.GetV(77,1)  <> px) or  
  36.     (This_Player.GetV(77,2)  <> py )then   // 移动才会继续触犯以下代码
  37.     begin
  38.       if This_Player.FreeBagNum >= 2 then  
  39.        begin
  40.               if Rdm_int < 5 then  // 5%机会获得以下物品
  41.                 begin
  42.                 case random(25) of    // 5%机会获得以下25个物品中的一个
  43.                     0 : WpName := '屠龙';
  44.                     1 : WpName := '嗜魂法杖';
  45.                     2 : WpName := '逍遥扇';
  46.                                         3 : WpName := '圣战头盔';
  47.                                         4 : WpName := '光芒项链';
  48.                     5 : WpName := '光芒手镯';
  49.                     6 : WpName := '光芒戒指';
  50.                                         7 : WpName := '烈焰戒指';
  51.                     8 : WpName := '烈焰项链';
  52.                     9 : WpName := '烈焰手镯';
  53.                                         10: WpName := '雷霆项链';
  54.                                         11 :WpName := '传送戒指';
  55.                                         12: WpName := '麻痹戒指';
  56.                     13 :WpName := '隐身戒指';
  57.                     14 :WpName := '雷霆手镯';
  58.                                         15: WpName := '防御戒指';
  59.                                         16: WpName := '天师长袍';
  60.                                         17 :WpName := '天尊道袍';
  61.                                         18: WpName := '霓裳羽衣';
  62.                     19 :WpName := '法神披风';
  63.                     20 :WpName := '圣战宝甲';
  64.                                         21: WpName := '天魔神甲';
  65.                                         22 :WpName := '噬血术';
  66.                     23 :WpName := '逐日剑法';
  67.                                         24: WpName := '流星火雨';
  68.                                         end;
  69.              end else if Rdm_int < 10 then  
  70.                 begin
  71.                 case random(16) of
  72.                     0 : WpName := '屠龙';
  73.                     1 : WpName := '嗜魂法杖';
  74.                     2 : WpName := '逍遥扇';
  75.                                         4 : WpName := '圣战项链';
  76.                     5 : WpName := '圣战手镯';
  77.                     6 : WpName := '天尊戒指';
  78.                                         7 : WpName := '圣战戒指';
  79.                     8 : WpName := '天尊项链';
  80.                     9 : WpName := '天尊手镯';
  81.                                         10: WpName := '法神项链';
  82.                                         11 :WpName := '法神戒指';
  83.                                         12: WpName := '圣战戒指';
  84.                     13 :WpName := '技巧项链';
  85.                     14 :WpName := '法神手镯';
  86.                                         15: WpName := '防御戒指';                                       
  87.             end;
  88.              end   
  89.              else if Rdm_int < 20 then
  90.                 begin
  91.                 case random(10) of
  92.                     0 : WpName := '青铜腰带';
  93.                     1 : WpName := '龙牙';
  94.                     2 : WpName := '龙纹剑';
  95.                                         3 : WpName := '怒斩';
  96.                     4 : WpName := '黑铁头盔';
  97.                     5 : WpName := '恶魔铃铛';
  98.                     6 : WpName := '三眼手镯';
  99.                     7 : WpName := '泰坦戒指';
  100.                     8 : WpName := '力量戒指';
  101.                     9 : WpName := '天尊头盔';
  102.              end;
  103.              end  
  104.              else if Rdm_int < 50 then
  105.                 begin
  106.                 case random(13) of
  107.                     0 : WpName := '裁决之杖';
  108.                     1 : WpName := '骨玉权杖';
  109.                     2 : WpName := '无极棍';
  110.                                         3 : WpName := '10灵符礼包';
  111.                     4 : WpName := '祝福油';
  112.                     5 : WpName := '金刚石';
  113.                                         6 : WpName := '1元宝';
  114.                                         7 : WpName := '2元宝';
  115.                                         8 : WpName := '10元宝';
  116.                                         9 : WpName := '5元宝';
  117.                                         10 : WpName := '2灵符礼包';
  118.                                         11 : WpName := '5灵符礼包';
  119.                                         12 : WpName := '1灵符礼包';
  120.            end;
  121.              end   
  122.         else if Rdm_int < 99 then
  123.                 begin
  124.                 case random(4) of
  125.                     0 : begin
  126.                                         This_Player.Give('经验',5000);
  127.                                         This_Player.PlayerNotice('你获得5000经验!' , 1);
  128.                                         end;
  129.                     1 : begin
  130.           This_Player.Give('经验',50000);
  131.                                         This_Player.PlayerNotice('你获得50000经验!' , 1);
  132.                                         end;
  133.                     2 : begin This_Player.Give('经验',500000);
  134.                                         This_Player.PlayerNotice('你获得50000经验!' , 1);
  135.                                         end;
  136.                                         3 :  begin This_Player.Give('经验',5000000);
  137.                                         This_Player.PlayerNotice('你获得500w经验!' , 1);
  138.                                         end;
  139.                 end;
  140.                 end;
  141.         This_Player.Give(WpName , 1);
  142.         This_Player.PlayerNotice(
  143.             WpName + '已放入您的包裹!\',1);
  144.      This_Player.setV(77,1,px);
  145.       This_Player.setV(77,2,py) ;
  146.       This_Player.CallOut(This_Npc, 2, 'tcpk2');  // 2秒后循环运行
  147.       end else
  148.         This_Player.PlayerNotice(
  149.            '你的包裹空间不够!',1);
  150.      This_Player.CallOut(This_Npc, 2, 'tcpk2');   //  再次符合条件后继续运行
  151.    end else
  152.    This_Player.PlayerNotice(
  153.            '跑起来才有东西!',1);
  154.     This_Player.CallOut(This_Npc, 2, 'tcpk2');   //再次符合条件后继续运行
  155.    end else
  156.     This_Player.PlayerNotice(
  157.            '你跑得太远了!',1);
  158.     This_Player.CallOut(This_Npc, 2, 'tcpk2');   // 再次符合条件后继续运行
  159.    end else
  160.    This_Player.PlayerNotice(
  161.            '不在活动时间!',1);
  162.    end;
  163. begin   
  164. This_NPC.NpcDialog(This_Player,
  165.    '土城跑酷:\ \'+
  166.    '欢迎来到开心就好土城跑酷.\ \'+
  167.    '在土城一定范围内不停移动能随机获得多种物品.\ \'+
  168.    '想要强大就得快人一步、可以在这里跑酷.\ \'+
  169.    '|{cmd}<◆开始跑酷/@tcpk>');
  170. end.   
复制代码


使用道具

关闭

72家族网欢迎您-手游源码开发者论坛上一条 /1 下一条

综合统计   资源量:696426   会员数:108381   今日活跃:5   昨日活跃:624   同时在线:266

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!
本站部分资源系统会自动采集第三方,若不小心侵权了品牌请及时联系我们邮箱,会在第一时间删除。