传奇脚本战神引擎自动攻城攻沙脚本定时器

夜游神 · 发表于 2022-12-31 21:05:48

program mir2;
{$I ActiveValidateCom.pas}
procedure _exit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure Execute;
begin
if (GetDayOfWeek > 0) and (GetHour = 19) and (GetMin = 55) and (GetG(37,7)= 0) and (AutoOpen(6)) then
begin
SetG(37,7,1);
ServerSay('提示:沙巴克集体攻城还有5分钟开始，请各大行会准备！', 1);
ServerSay('提示:沙巴克集体攻城还有5分钟开始，请各大行会准备！', 2);
ServerSay('提示:沙巴克集体攻城还有5分钟开始，请各大行会准备！', 3);
ServerSay('提示:沙巴克集体攻城还有5分钟开始，请各大行会准备！', 6);
ServerSay('提示:沙巴克集体攻城还有5分钟开始，请各大行会准备！', 5);
end;
if (GetDayOfWeek > 0) and (GetHour = 20) and (GetMin = 0) and (GetG(37,7)= 1) and (AutoOpen(6)) then
begin
SetG(37,7,2);
SetG(1,1,1);
ServerSay('提示:沙巴克攻城战开始了，请各大行会参与！', 1);
ServerSay('提示:沙巴克攻城战开始了，请各大行会参与！', 2);
ServerSay('提示:沙巴克攻城战开始了，请各大行会参与！', 5);
end;
if (GetDayOfWeek > 0) and (GetHour = 20) and (GetMin = 55) and (GetG(37,7)= 2) and (AutoOpen(6)) then
begin
SetG(37,7,3);
ServerSay('提示:沙巴克攻城战还有5分钟结束，请抓紧时间！', 1);
ServerSay('提示:沙巴克攻城战还有5分钟结束，请抓紧时间！', 2);
ServerSay('提示:沙巴克攻城战还有5分钟结束，请抓紧时间！', 5);
end;
if (GetDayOfWeek > 0) and (GetHour = 21) and (GetMin = 0) and (GetG(37,7)= 3) and (AutoOpen(6)) then
begin
SetG(37,7,0);
SetG(1,1,2);
ServerSay('提示:沙巴克攻城战结束了，请明天再来参与！', 1);
ServerSay('提示:沙巴克攻城战结束了，请明天再来参与！', 2);
ServerSay('提示:沙巴克攻城战结束了，请明天再来参与！', 5);
end;
end;
Begin
domain;
end.

复制代码

Chinese.Doll · 发表于 2023-12-28 08:07:00

积分任务

[战神引擎] 传奇脚本战神引擎自动攻城攻沙脚本定时器

相关帖子