- 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.
|
