请选择 进入手机版 | 继续访问电脑版

【悟空资源】

搜索
查看:【97】 回复:【0】 发表于 2020-5-28 01:45:49
发表于 2020-5-28 01:45:49 | 显示全部楼层 |阅读模式

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

[复制链接]
  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.
复制代码


回复

使用道具 举报

快速回复

Smilies
您需要登录后才可以回帖 登录 | 注册
高级模式

回复楼主

您好, 欢迎您来到本社区 , 请注册或者登录以便更好的玩转本社区!

用户组: 游客

我能做什么?

您需要登录后才可以回帖 登录 | 注册

本版积分规则

坛友爱热闹

12.12云产品限时秒杀,爆款1核2G云服务器,99元/1年

Archiver|手机版|小黑屋|

GMT+8, 2020-11-30 08:57 , Powered by Discuz! X3.4. Licensed.

【悟空资源】 :鄂ICP备20008277号-4

快速回复 返回顶部



fansbar