• 中文
  • 注册
  • 修改教程 修改教程 关注:48 内容:391

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

  • 查看作者
  • 打赏作者
  • 当前位置: 35博客圈 > 技术教程 > 修改教程 > 正文
    • 修改教程
    • 大版主
      admin
      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.

      请登录之后再进行评论

      登录
      35boke
      35bokeadmin
      35博主
      个人签名:抢签到第一我是专业的,联系QQ3258794818
      关注5 粉丝271 喜欢22内容960
      未知
      赞助商广告
      招租100元一个月,在首页和帖子页面展示, 带用户点击任务!
    • 做任务
    • 偏好设置
    • 到底部
    • 帖子间隔 侧栏位置: