sm

立即登录 | 账号注册

积分: 0 |用户组: 游客

搜索
服务器租用 传奇3一条龙 支付平台源码 无法下载点击此处反馈
查看: 423|回复: 1

[战神引擎] 战神引擎神兵利器活动脚本

[复制链接]

826

主题

36

回帖

23万

积分

霸王教主

积分
235497
发表于 2023-7-5 00:14:59 | 显示全部楼层 |阅读模式
  1. program Mir2;

  2. Procedure _doexit;
  3. begin
  4.    This_Npc.CloseDialog(This_Player);
  5. end;

  6. function Gaoji0LB(price, num: Integer):boolean;
  7. begin                                               

  8.   result := true;
  9. end;


  10. procedure _YBBG;
  11. var temp: integer;
  12. //随机5个点传送
  13. begin
  14.   temp := random(5)+1;
  15.   if  (GetHour() = 21) and (GetMin() >= 0) and (GetMin() <= 19) then
  16.   begin
  17.     if compareText(This_Player.MapName, '3') = 0 then
  18.     begin
  19.                  This_Player.randomFlyto('0139~33');
  20.                                  This_Player.CallOut(This_Npc, 1, 'MKB23');
  21.     end;  
  22.   end
  23.   else
  24.     This_Npc.NpcDialog(This_Player,
  25.     '不在活动时间!\'
  26.     );  
  27. end;

  28. procedure MKB23;
  29. begin
  30.        if ((GetHour = 21) and (GetMin < 19)) then
  31.       begin
  32.          if CompareText(This_Player.MapName,'0139~33') = 0 then
  33.          begin
  34.             This_Player.CallOut(This_Npc, 1, 'MKB23');
  35.             This_Player.Give('经验',8000);
  36.          end ;
  37.          end else
  38.          begin
  39.              This_Player.FlyTo('3', 333, 333);
  40.     This_Player.PlayerNotice('活动已经结束了,等待下次活动开启!',2);
  41.        end ;
  42. end ;          


  43. procedure Execute;
  44. begin
  45. if  (GetHour = 20) and (GetMin = 55)    then  
  46.   begin
  47.   This_NPC.NpcNotice('神兵争夺战5分钟后开始!!');
  48.   end
  49.   else
  50.   if  (GetHour = 20) and (GetMin = 56)    then  
  51.   begin
  52.   This_NPC.NpcNotice('神兵争夺战4分钟后开始!!');
  53.   end
  54.   else
  55.   if  (GetHour = 20) and (GetMin = 57)    then  
  56.   begin
  57.   This_NPC.NpcNotice('神兵争夺战3分钟后开始!!');
  58.   end
  59.   else
  60.   if  (GetHour = 20) and (GetMin = 58)    then  
  61.   begin
  62.   This_NPC.NpcNotice('神兵争夺战2分钟后开始!!');
  63.   end
  64.   else
  65.   if  (GetHour = 20) and (GetMin = 59)    then  
  66.   begin
  67.   This_NPC.NpcNotice('神兵争夺战1分钟后开始!!');
  68.   end
  69.   else
  70.   if  (GetHour = 21) and (GetMin = 00)    then  
  71.   begin
  72.   This_NPC.NpcNotice('神兵争夺战已经开始,BOSS[神兵守护]1分钟后复活!!');
  73.   This_NPC.NpcNotice('神兵争夺战已经开始,BOSS[神兵守护]1分钟后复活!!');
  74.   This_NPC.NpcNotice('神兵争夺战已经开始,BOSS[神兵守护]1分钟后复活!!');
  75.   end
  76.   else
  77.   if (GetHour = 21) and (GetMin = 01) and
  78. (This_NPC.CheckMapMonByName('0139~33' , '神兵守护') = 0) then
  79. begin
  80. This_NPC.CreateMon('0139~33',23,28,1,'神兵守护',1);      
  81. This_NPC.NpcNotice('神兵守护已出现在神兵争夺战区域,勇士请抓紧时间为了荣誉战斗吧!');
  82. end;
  83. end;




  84. begin
  85.    This_NPC.NpcDialog(This_Player,
  86.    'Bg:public:13|'+
  87.    'Exit:public:163:94:740:78|'+
  88.    '1:Text:180:80:18:活动介绍∶@249|'+
  89.    '1:Text:400:80:18:每天晚上21点到21点20开启夺宝活动@254|'+
  90.    '1:Text:400:120:18:刷新一只神兵守护,暴率极高,每次开启20分钟@254|'+
  91.    '1:Text:400:160:18:20分钟后结束不可进入@244|'+
  92.    '1:Text:180:200:18:怪物暴率∶@249|'+
  93.    '1:Text:400:200:18:赤金镇天 1∶5 赤金玄天1∶5 赤金开天 1∶5@254|'+
  94.    '1:Text:400:240:18:恶魔心脏 1∶10 转生碎片1∶10 冰龙碎片 1∶15@254|'+
  95.    '1:Spr:pm:17:26:660:320:0.1:0.6|'+
  96.    '1:Spr:pm:17:26:140:320:0.1:0.6|'+
  97.    
  98.    
  99.    
  100.    
  101.    
  102.    '1:Btn:public:151:380:350:神兵利器@YBBG|'+
  103.    '1:Text:380:350:18:神兵利器@70|'+
  104.    '|{cmd}</@YBBG>'
  105.     );


  106.      
  107. end.   
复制代码







上一篇:战神引擎装备自动回收道具脚本
下一篇:战神引擎冲级奖励npc脚本-3.pas
回复

使用道具 举报

1

主题

252

回帖

1070

积分

旋风流星刀

积分
1070
QQ
发表于 2023-12-22 08:37:10 | 显示全部楼层
积分任务
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

GMT+8, 2024-4-29 00:19 , Processed in 0.285533 second(s), 53 queries .

Powered by Discuz! X3.5

Copyright © 2001-2024, Tencent Cloud.

快速回复 返回顶部 返回列表