【战神引擎】爆率控制脚本

PROGRAM Mir2;
{$I ActiveValidateCom.pas}
procedure Execute;
var
SYtime1,SYtime2 :integer;
begin
  SYtime1 := AutoOpenDay(3) + GetDateNum(GetNow);
  SYtime2 := AutoOpenDay(4) + GetDateNum(GetNow);
  if GetG(36,31) < SYtime1 then
  begin
  SetG(36,31,GetDateNum(GetNow));
  ChgMonItemPercent('书页',0);
  ChgMonItemPercent('绑定书页',0);
  end else
  if GetG(36,31) = SYtime1 then
  begin
  ChgMonItemPercent('书页',100);
  ChgMonItemPercent('绑定书页',100);
  SetG(36,31,SYtime1 +30);
  end;
  
  if GetG(36,35) < SYtime2 then
  begin
  SetG(36,35,GetDateNum(GetNow));
  ChgMonItemPercent('藏宝图碎片',0);
  end else
  if GetG(36,35) = SYtime2 then
  begin
  ChgMonItemPercent('藏宝图碎片',100);
  SetG(36,35,SYtime2 +30);
  end;
end;
Begin
   This_Npc.NpcDialog(This_Player,
   '上面什么也没写...'
   );
end.