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

1. PROGRAM Mir2;
   
2. {$I ActiveValidateCom.pas}
   
3. procedure Execute;
   
4. var
   
5. SYtime1,SYtime2 :integer;
   
6. begin
   
7.   SYtime1 := AutoOpenDay(3) + GetDateNum(GetNow);
   
8.   SYtime2 := AutoOpenDay(4) + GetDateNum(GetNow);
   
9.   if GetG(36,31) < SYtime1 then
   
10.   begin
    
11.   SetG(36,31,GetDateNum(GetNow));
    
12.   ChgMonItemPercent('书页',0);
    
13.   ChgMonItemPercent('绑定书页',0);
    
14.   end else
    
15.   if GetG(36,31) = SYtime1 then
    
16.   begin
    
17.   ChgMonItemPercent('书页',100);
    
18.   ChgMonItemPercent('绑定书页',100);
    
19.   SetG(36,31,SYtime1 +30);
    
20.   end;
    
21.   
    
22.   if GetG(36,35) < SYtime2 then
    
23.   begin
    
24.   SetG(36,35,GetDateNum(GetNow));
    
25.   ChgMonItemPercent('藏宝图碎片',0);
    
26.   end else
    
27.   if GetG(36,35) = SYtime2 then
    
28.   begin
    
29.   ChgMonItemPercent('藏宝图碎片',100);
    
30.   SetG(36,35,SYtime2 +30);
    
31.   end;
    
32. end;
    
33. Begin
    
34.    This_Npc.NpcDialog(This_Player,
    
35.    '上面什么也没写...'
    
36.    );
    
37. end.

复制代码