语言 | English 简体 繁體 Tiếng Việt
  • 注册
  • 其他 其他 关注:613 内容:168

    战神引擎自动修理全身装备脚本

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

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

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

    当前位置: 35博客圈 > 手游分享 > 其他 > 正文
    • 3
    • 其他
    • LV11
      水晶之恋
      广告
      Program Mir2;
      procedure P100;
      begin
          exit;
      end;
      procedure _CallMain;
      var
         iTime:integer;
         Switch:string;
      begin
          if This_Player.GetS(110,1) < 1 then Switch := '关'
      else Switch := '开';
      if This_Player.GetS(111,1) < 1 then iTime := 0
          else iTime := This_Player.GetS(111,1);
          This_NPC.NpcDialog(This_Player,
          '设置自动修复时间 <'+ inttostr(iTime) +'/@SetTime>^<['+Switch+']/@SetLoop>|'+
          '{cmd}<关闭界面/@exit>');
      end;
      procedure LoopNow_2;
      var
         k:integer;
      begin
          if This_Player.GetS(110,1) > 0 then
      begin
              for k := 0 to 16 do
      begin
                  This_Player.RepairBodyEquip(k);
      end;
      This_Player.PlayerNotice('自动修复成功',1);
      This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
      end
      else
      This_Player.PlayerNotice('自动修复已关闭',0);
      exit;
      end;
      procedure LoopNow_1;
      var
         k:integer;
      begin
          if This_Player.GetS(110,1) > 0 then
      begin
          for k := 0 to 16 do
      begin
                  This_Player.RepairBodyEquip(k);
      end;
      This_Player.PlayerNotice('自动修复成功',1);
      This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_2');
      end
      else
      This_Player.PlayerNotice('自动修复已关闭',0);
      exit;
      end;
      procedure _SetLoop;
      begin
          if This_Player.GetS(111,1) < 1 then
      begin
          This_NPC.InputDialog(This_Player,'请先设置自动修复时间',1,100);
      exit;
      end;
          if This_Player.GetS(110,1) < 1 then
      begin
          This_Player.SetS(110,1,1);
      This_Player.PlayerNotice('自动修复已开启',2);
      This_Player.CallOutex(This_Npc, This_Player.GetS(111,1), 'LoopNow_1');
      _CallMain;
      end
      else
      This_Player.SetS(110,1,0);
      _CallMain;
      end;
      procedure P101;
      var
         Inum:integer;
      begin
          Inum := StrToIntDef(This_NPC.InputStr,-1);
      if (Inum > 0) and (Inum < 65535) then
      begin
              if This_Player.GetS(111,1) < 1 then
          begin
          This_Player.SetS(111,1,Inum);
      _CallMain;
      end;
      end
      else
      This_NPC.InputDialog(This_Player,'请输入1-65535之间的数字',1,100);
      exit;
      end;
      procedure _SetTime;
      begin
          This_NPC.InputDialog(This_Player,'请输入时间',0,101);
      end;
      begin
          _CallMain;
      end.
      LV7
      水晶之恋
      放在那裡呀

      喜歡架設局域網传奇玩

    • 搬瓦工可以放到NPC里面
      拉黑 2年前 电脑端回复
    • 回复
      LV9
      水晶之恋

      分享永远是最好的

      回复

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

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

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

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

      请登录之后再进行评论

      登录
      搬瓦工
      搬瓦工水晶之恋
      个人说明:本人大部分资源都是搬运的,勿充钱购买,不解答问题
      关注2 粉丝205 喜欢20 内容561
      TA的最新发布
    • 13D魔幻RPG端游【完美国际173v344妖族崛起修改版】5月最新整Linux手工服务端+网页注册+修改工具+GM指令+GM工具+PC客户端+详细搭建教程
    • 23D魔幻RPG端游【完美国际156仙恋完美6职业】3月最新整Linux手工服务端+网页注册+GM指令+GM工具+PC客户端+详细搭建教程
    • 33D魔幻RPG端游【完美国际145V63创世神堕落·黑夜传说】9月最新整理Linux手工服务端+管理后台+网页注册+GM指令+GM工具+PC客户端+详细搭建教程
    • 41655互通魔域手游【龙达圣装魔域终极挖宝版[神90]】7月最新整理Win半手工服务端+GM工具+安卓+详细搭建教程+视频教程
    • 5三网H5游戏【复古魔力归来H5高爆版】2025最新整理单机一键即玩镜像端+Linux手工服务端+管理后台+GM授权后台+教程【站长亲测】
    • 6战神引擎传奇手游【起源鸿蒙之梦天火龙单职业】最新整理WIN系特色服务端+安卓苹果双端+GM后台+详细搭建教程
    • 7MT3换皮神武【功夫神武】最新整理Linux手工端+安卓苹果双端+GM后台+代理后台+详细搭建教程+全套源码
    • 8稀有横版卡牌回合手游【主公别闹最游记代金券内购版】最新整理单机一键即玩镜像端+Linux手工服务端+安卓+GM授权后台+详细搭建教程
    • 91655互通魔域手游【蛇年新宠版[神95]】Win半手工服务端+GM工具+安卓+详细搭建教程+视频教程
    • 10白日门传奇手游【恋战传奇多区跨服完整版】4月最新整理Win一键服务端+全套客户端源码+服务端源码+管理后台+GM授权后台+安卓苹果双端+详细搭建教程+视频教程
      • 热门排行
    • 任务
    • 管理
    • 回底部
    • 帖子间隔 侧栏位置: