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

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

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

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

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

    当前位置: 35博客圈 > 手游分享 > 其他 > 正文
    • 3
    • 其他
    • 广告
      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 粉丝203 喜欢20 内容536
      TA的最新发布
    • 13D魔幻RPG端游【完美国际128公测版】8月最新整理Linux手工服务端+管理后台+网页注册+修改工具+GM指令+GM工具+PC客户端+详细搭建教程
    • 2竞技射击端游【CS反恐精英】Win一键服务端+假人陪玩+GM工具+解压即玩+单机+详细外网搭建教程
    • 3竞技射击端游【CSOL反恐精英2汉化版】6月最新整理Linux手工服务端+Win一键服务端+单机+假人陪玩+假人语音+详细外网搭建教程+视频教程
    • 4RPG格斗手游【死神激斗】服务端源码+客户端源码+开发文档
    • 53D魔幻端游【霸王大陆2完整版】6月最新整理Win一键服务端+版本文档+加解密工具+GM工具+PC客户端+详细搭建教程
    • 6典藏3D怀旧端游【武林外传之傲视苍穹防官版】6月最新整理Linux手工服务端+网页注册+EL编辑器+GM工具+PC客户端+详细搭建教程
    • 7经典武侠端游【天龙八部之龙战国际】最新整理Linux手工服务端+PC客户端+GM工具+详细搭建教程
    • 8经典武侠端游【天龙八部之龙飞凤舞】最新整理单机一键即玩镜像端+Linux手工服务端+PC客户端+GM工具+详细搭建教程
    • 9经典武侠端游【天龙八部之龙飞凤舞】最新整理单机一键即玩镜像端+Linux手工服务端+PC客户端+GM工具+详细搭建教程
    • 10怀旧回合手游【天书奇谈3D最新混沌版】最新整理Linux手工商业服务端+安卓苹果双端+GM后台+详细搭建教程
      • 热门排行

      暂没有数据

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