沙巴克攻城捐献脚本

随便转转

xl21295806 发表于 2022-11-22 07:34
if (GetDayOfWeek = GetG(93,39)) and (GetHour = 19) and (GetMin = 55)  then            
begin
S ...

强烈支持楼主ing……

lanyue

真是难得给力的帖子啊。

xl21295806

       
  
if (GetDayOfWeek = GetG(93,39)) and (GetHour = 19) and (GetMin = 55)  then            
begin
ServerSay('沙巴克攻城战还有5分钟，请各位玩家做好准备！',0);
ServerSay('沙巴克攻城战还有5分钟，请各位玩家做好准备！',1);
ServerSay('沙巴克攻城战还有5分钟，请各位玩家做好准备！',2);
end

if (GetDayOfWeek = GetG(93,39)) and (GetHour = 19) and (GetMin = 58)  then            
begin
ServerSay('沙巴克攻城战还有2分钟，请各位玩家做好准备！',0);
ServerSay('沙巴克攻城战还有2分钟，请各位玩家做好准备！',1);
ServerSay('沙巴克攻城战还有2分钟，请各位玩家做好准备！',2);
end

if (GetDayOfWeek = GetG(93,39)) and (GetHour = 20) and (GetMin = 0)  then            
begin
SetG(1,1,1);
setg(93,41,1);
setg(93,42,1);
ServerSay('沙巴克攻城战已经开始！',0);
ServerSay('沙巴克攻城战已经开始！',1);
ServerSay('沙巴克攻城战已经开始！',2);
end

if (GetDayOfWeek = GetG(93,39)) and (GetHour = 21) and (GetMin = 30)  then            
begin
SetG(1,1,2);
setg(93,41,2);
ServerSay('沙巴克攻城战已经结束！，请玩家做好下次攻城的准备',0);
ServerSay('沙巴克攻城战已经结束！，请玩家做好下次攻城的准备',1);
ServerSay('沙巴克攻城战已经结束！，请玩家做好下次攻城的准备',2);
end


if  (GetYear = Y) and  (GetMonth = Mnum) and (GetDay = Dnum) and (GetHour = 19) and (GetMin = 55)  then
begin
ServerSay('沙巴克攻城战还有5分钟，请各位玩家做好准备！',0);
ServerSay('沙巴克攻城战还有5分钟，请各位玩家做好准备！',1);
ServerSay('沙巴克攻城战还有5分钟，请各位玩家做好准备！',2);
end

if  (GetYear = Y) and  (GetMonth = Mnum) and (GetDay = Dnum) and (GetHour = 20) and (GetMin = 0)  then
begin
SetG(1,1,1);
setg(93,41,1);
setg(93,42,1);
SetG(93,40,GetG(93,40)+1);
ServerSay('沙巴克攻城战已经开始！',0);
ServerSay('沙巴克攻城战已经开始！',1);
ServerSay('沙巴克攻城战已经开始！',2);
end

if  (GetG(93,40) = GetG(45,46)+1) and (GetHour = 21) and (GetMin = 30)  then
begin
SetG(1,1,2);
setg(93,41,2);
ServerSay('沙巴克攻城战已经结束！，请玩家做好下次攻城的准备',0);
ServerSay('沙巴克攻城战已经结束！，请玩家做好下次攻城的准备',1);
ServerSay('沙巴克攻城战已经结束！，请玩家做好下次攻城的准备',2);
end;

if  (GetG(93,40) = GetG(45,46)+1)and (GetHour = 23) and (GetMin = 59)  then
begin
  ServerSay('沙巴克捐赠已重置，请玩家出现为沙巴克做出贡献',0);
  ServerSay('沙巴克捐赠已重置，请玩家出现为沙巴克做出贡献',1);
  ServerSay('沙巴克捐赠已重置，请玩家出现为沙巴克做出贡献',2);
  SetG(45,47,0); //重置沙巴克捐赠
  SetG(45,46,GetG(45,46)+1); //重置沙巴克捐赠属性
  
end;

end;
begin
  if  GetG(45,45) < 0 then
  begin
  SetG(45,45,0);
  end;
  if  GetG(45,46) < 0 then
  begin
  SetG(45,46,0);
  end;
  
  if  GetG(45,47) < 0 then
  begin
  SetG(45,47,0);
  end;
amid;
end.