语言 | English 简体 繁體 Tiếng Việt
  • 注册
  • 手游教程 手游教程 关注:516 内容:1383

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

  • 查看作者
  • 打赏作者
  • 此版块是用户分享手游资源相关内容的论坛,其中包含了作者原创、搬砖、转载,以及可能存在网盘失效的情况。

    如果需要联系楼主,请点击帖子右侧聊天。如果发现虚假资源,请举报!

    解压密码请使用360压缩或者好压查看注释

    当前位置: 35博客圈 > 手游分享 > 手游教程 > 正文
    • 1
    • 手游教程
    • 广告
      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.

      LV11
      水晶之恋
      楼主辛苦了,谢谢楼主,楼主好人一生平安!
      回复

      手游分享板块严查恶意、辱骂、讽刺等评论,如发现此类评论轻则小黑屋,重则永久封禁!

      如果发现帖子违规,用户可以点击帖子标题旁的向下箭头,选择举报内容

      如果联系请站内私信联系,禁止留下QQ,微信等联系方式否则会被系统拦截

      如果想挣取水币,请在[手游分享] [端游分享]版块分享资源赚取水币

      请登录之后再进行评论

      登录
    • 任务
    • 管理
    • 回底部
    • 帖子间隔 侧栏位置: