English 简体 繁體
  • 注册
  • 其他 其他 关注:415 内容:136

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

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

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

    当前位置: 35博客圈 > 手游分享 > 其他 > 正文
    • 3
    • 其他
    • LV11
      vip1
      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.
      LV6
      水晶之恋
      放在那裡呀

      喜歡架設局域網传奇玩

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

      分享永远是最好的

      回复

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

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

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

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

      请登录之后再进行评论

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