找高手帮我把活动文件里面的活动时间改成全天24小时

108427096 · 发表于 2020-11-22 20:23:15

找高手帮我把活动文件里面的活动时间改成全天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;