开区等待脚本设置

haoda

{脚本定制可以联系好大两只 QQ7122696}

{mapinfo.txt内加入这行内容    [0139~22 开区等待间  0] SAFE NORECALL NORANDOMMOVE NODRUG BLACKROOM}

{LogonQuest.pas内加入这行内容
if (GetMonth = 5) and (GetDay = 1) and (GetHour < 1) and (This_Player.MapName <> '0139~22')then
      This_Player.RandomFlyTo('0139~22');
}

program mir2;

procedure _letgo;
var
  i: integer;
begin
  if (GetHour >= 9) or (GetDay <> 26) then    //GetHour代表开区的整点，GetDay代表开区是几号，改这2个就可以了。   
  begin
    i := Random(1);
    if i = 1 then
      This_Player.Flyto('0', 650, 626)
    else
      This_Player.Flyto('0', 290, 617);
  end
  else
    This_Player.PlayerNotice('必须到1点才可以离开！', 0);
end;

begin
  This_Npc.NpcDialog(This_Player, '复古一区今天9点正式开区，届时你才可以离开等待间。\ \' +
    '|{cmd}<我要出去/@letgo>\');
end.