• 中文
  • 注册
  • 战神引擎
  • 今日 0
  • 帖子 136
  • 关注 22
  • 脚本 脚本 关注:22 内容:136

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

  • 查看作者
  • 打赏作者
  • 拉黑名单
  • 当前位置: 35博客圈子 > 战神引擎 > 脚本 > 正文
    • 脚本
    • Lv.8 心有灵茜
      博主
      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.

      请登录之后再进行评论

      登录
    • 做任务
    • 偏好设置
    • 到底部
    • 帖子间隔 侧栏位置: