详细内容

▲置顶 收藏  | 删除  | 修改  | 举报  |

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.

复制代码

●友情提示

信息自选┆使用自愿┆真伪自辨┆风险自担

 站长推荐：下载APP，把网站装进手机