开区等待脚本设置
{脚本定制可以联系好大两只 QQ7122696}{mapinfo.txt内加入这行内容 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.
页:
[1]