72家族网-手游源码论坛

查看:【653】 回复:【0】 发表于 2020-5-20 11:13 存档时间:2022-07-03
本主题由 族长 于 2021-11-6 02:20 反删除
头条
9天前
头条
17天前
头条
28天前
头条
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. 作者:开心就好
  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 下一条

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

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