查看: 750|回复: 3

[架设求助] 找高手帮我把活动文件里面的活动时间改成全天24小时

[复制链接] 主动推送

18

主题

80

回帖

1459

积分

钻石VIP

Rank: 16Rank: 16Rank: 16Rank: 16

积分
1459
发表于 2020-11-22 20:23:15 | 显示全部楼层 |阅读模式
20金钱
找高手帮我把活动文件里面的活动时间改成全天24小时 帮我改下这两个文件里面的活动时间谢谢 删除命令行之类的不好使 加载会出错
谢谢大神!!
  if  (GetHour = 20) and (GetMin = 55)    then  
  begin
  ServerSay('激情泡点活动还有5分钟就开始了,请前往土城[活动大使]集结!',2);
  ServerSay('激情泡点活动还有5分钟就开始了,请前往土城[活动大使]集结!',2);
  ServerSay('激情泡点活动还有5分钟就开始了,请前往土城[活动大使]集结!',2);
  ServerSay('激情泡点活动还有5分钟就开始了,请前往土城[活动大使]集结!',2);
  ServerSay('激情泡点活动还有5分钟就开始了,请前往土城[活动大使]集结!',2);
This_Npc.NpcSay('激情泡点活动还有5分钟就开始了,请前往土城[活动大使]集结!!');
  end;
   if  (GetHour = 21) and (GetMin = 00)    then  
  begin
ServerSay('激情泡点活动已开始,请前往土城[活动大使]进入,经验嗷嗷的上涨!',2);
ServerSay('激情泡点活动已开始,请前往土城[活动大使]进入,经验嗷嗷的上涨!',2);
ServerSay('激情泡点活动已开始,请前往土城[活动大使]进入,经验嗷嗷的上涨!',2);
ServerSay('激情泡点活动已开始,请前往土城[活动大使]进入,经验嗷嗷的上涨!',2);
ServerSay('激情泡点活动已开始,请前往土城[活动大使]进入,经验嗷嗷的上涨!',2);
This_Npc.NpcSay('激情泡点活动已开始,请前往土城[活动大使]进入,经验嗷嗷的上涨!');
  end;

   if  (GetHour = 21) and (GetMin = 5)    then  
  begin
  ServerSay('激情泡点活动已经关闭,请期待下次活动开启!',2);
  ServerSay('激情泡点活动已经关闭,请期待下次活动开启!',2);
  ServerSay('激情泡点活动已经关闭,请期待下次活动开启!',2);
  ServerSay('激情泡点活动已经关闭,请期待下次活动开启!',2);
  ServerSay('激情泡点活动已经关闭,请期待下次活动开启!',2);
This_Npc.NpcSay('激情泡点活动已经关闭,请期待下次活动开启!');




procedure _huodong8;
begin
  This_Npc.NpcDialog(This_Player,
           '<═════════><欧皇传奇/c=243><════════>|\'
           +'<激情泡点/c=229>                                             <←←/@main>|\'
           +'玩家进入地图可获得<高速>经验值  |\'           
           +'地图内人数<越少>,获得的经验<越高> |\'  
           +'地图内人数超过<20>人,将没有经验 |\'
           +'每天晚上<21>点开启,<10>分钟后结束活动 |\'                     
       +'|进入地图:          <进入激情泡点/@huodong88>  |\ \'
    +'|<═════════><欧皇传奇/c=243><════════>|\'

   );
end;

procedure _huodong88;
begin
if  ((GetHour = 21) and (GetMin >= 0)) and ((GetHour = 21) and (GetMin <= 11)) then   //自己修改开放时间  
begin                 
    This_Player.RandomFlyTo('Q004~111');
                ServerSay('玩家[<' + This_Player.Name + '>]进入[激情泡点]高速经验呼呼的涨!', 70);
      end else
        This_Player.PlayerNotice(
           '不在活动时间内,无法进入[激情泡点]!',5);               
   end;


附件: 您需要 登录 才可以下载或查看,没有账号?立即注册

最佳答案

查看完整内容

if ((GetHour = 21) and (GetMin >= 0)) and ((GetHour = 21) and (GetMin




上一篇:剑侠情缘杨门解包客户端出现解包问题求解
下一篇:贪玩雷霆传奇!外网进不去
回复

使用道具 举报

6

主题

1486

回帖

1万

积分

御龙大将军

积分
19612

论坛元老最佳新人活跃会员热心会员突出贡献

发表于 2020-11-22 20:23:16 | 显示全部楼层
if  ((GetHour = 21) and (GetMin >= 0)) and ((GetHour = 21) and (GetMin <= 11)) then     这里改成
if true then


试试吧~
回复

使用道具 举报

17

主题

20

回帖

3715

积分

光辉大校

积分
3715
发表于 2020-11-22 20:50:21 | 显示全部楼层
在活动里 你发NPC是什么鬼
回复

使用道具 举报

18

主题

80

回帖

1459

积分

钻石VIP

Rank: 16Rank: 16Rank: 16Rank: 16

积分
1459
 楼主| 发表于 2020-11-22 20:57:51 | 显示全部楼层
不是直接在NPC里面改活动时间么?  那是在什么地方改啊
回复

使用道具 举报

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

本版积分规则

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