Results 1 to 11 of 11

Thread: Lags in my AutoMiner.

  1. #1
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default Lags in my AutoMiner.

    Hi all, my autominer works good till now, but, it lags like hell.
    I think its somewhere in my Mining procedure:
    SCAR Code:
    procedure MineThaOre;
    begin
    if (FindColorSpiralTolerance(x, y, RockColor[0], 5, 5, 500, 336, 5)) or
    (FindColorSpiralTolerance(x, y, RockColor[1], 5, 5, 500, 336, 5)) or
    (FindColorSpiralTolerance(x, y, RockColor[2], 5, 5, 500, 336, 5)) then
    MMouse(x, y, 0, 0);
    wait(1000+random(500));
    if IsUpText('ine') then
    begin
    GetMousePos(x, y);
    Mouse(x, y, 0, 0, True);
    GasFound(x, y);
    wait(3000+random(1000));
    RocksMined := RocksMined + 1;
    end;
    end;

    I use arrays for my colors
    Ce ne sont que des gueux


  2. #2
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure MineThaOre;
    begin
      if FindColorSpiralTolerance(x, y, RockColor[0], 5, 5, 500, 336, 5) or
      FindColorSpiralTolerance(x, y, RockColor[1], 5, 5, 500, 336, 5) or
      FindColorSpiralTolerance(x, y, RockColor[2], 5, 5, 500, 336, 5) and
      (not Gasfound(x, y)) then
      begin
        Mouse(x, y, 2, 2, false);
        wait(100+random(100)); // 1 second is bit much...?
        if IsUpText('ine') then
        begin
          wait(500+ random(100));
          ChooseOption('ine');
          RocksMined := RocksMined + 1;
        end;
      end;
    end;

    Not sure its less laggy / working, but it should work I think

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  3. #3
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    k thanks ill try, but i think its in my FindNormalRandoms;
    (Found that out later)


    EDIT: and yes, its in my FindNormalRandoms;
    i commented that line once, and it didnt lag, anybody knows a FindRandom procedure like that one?
    Ce ne sont que des gueux


  4. #4
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    function FindFastRandoms: Boolean;    // the srl team
    var
      i: Integer;
    begin
      for i := 1 to 9 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
        end;
        Wait(1);
      end;
    end;
    procedure Randoms;
    begin
      if not LoggedIn then Exit;
      FindTalk;
      FindATradeByRick;
      FindNormalRandoms;
      FindFastRandoms;
      FindLamp('mining');
      SolvePinball;
      if FindFight then
      begin
        RunTo('S', True);
        Wait(15000 + random(5000));
        RunBack;
      end;
    end;
    from WT

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  5. #5
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    thx!
    Not trying

    EDIT : Still not working (with FindFastRandoms)
    I think, becuase the lagger (FindNormalRandoms) is included in FondFastRandoms..
    Ce ne sont que des gueux


  6. #6
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    could you send us the complete script? Maybe we find the reason of lagging it should NOT be the anti randoms, unless you missplaced it in the script maybe

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  7. #7
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Okay, here it is:

    SCAR Code:
    program Min0r;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}


    {
    Start Logged In!
    Check DebugBox after clicking start,
    it will then automacitly select the RS screen!
    }


    var x, y, RocksMined, O : Integer;
    RockColor: Array [0..2] of Integer;

    const
    RunDir = 'S'; //Direction to run when in fight

    procedure LoadArrays;
    begin
    RockColor[0] := 1581113;
    RockColor[1] := 1583170;
    RockColor[2] := 1581105;
    end;

    procedure RunOn;
    begin
    Mouse(674, 482, 2, 2, true);
    if (FindColor(x, y, 4869450, 625, 414, 658, 447)) then
    begin
    Mouse(x, y, 5, 5, true);
    end else
    Exit;
    end;

    procedure MineThaOre;
    begin
    if (not(LoggedIn)) then
    Exit;
    if (FindColorSpiralTolerance(x, y, RockColor[0], 5, 5, 500, 336, 5)) or
    (FindColorSpiralTolerance(x, y, RockColor[1], 5, 5, 500, 336, 5)) or
    (FindColorSpiralTolerance(x, y, RockColor[2], 5, 5, 500, 336, 5)) then
    MMouse(x, y, 0, 0);
    wait(100+random(100));
    if IsUpText('ine') then
    begin
    GetMousePos(x, y);
    Mouse(x, y, 0, 0, True);
    FindPick;
    GasFound(x, y);
    wait(3000+random(1000));
    RocksMined := RocksMined + 1;
    end;
    end;


    procedure Proggy;
    begin
    ClearDebug;
    Writeln('|+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++|');
    Writeln('Made by Floor66');
    Writeln('/////////////////////////////////////////////////////////////');
    Writeln('Copy? : Yes, but, CREDIT!');
    Writeln('\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\');
    Writeln('Ores did so far: '+IntToStr(RocksMined)+'');
    Writeln('|+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++|');
    end;

    procedure Credits;
    begin
    ClearDebug;
    Writeln('+++++++++++++++++++++++++++CREDITS:+++++++++++++++++++++++++++');
    Wait(500);
    Writeln(' _____   __       ______  ______  _____       ____    ____    ');
    Wait(100);
    Writeln('/\  __\ /\ \     /\  ___\/\  ___\/\  __\     / ___\  / ___\   ');
    Wait(100);
    Writeln('\ \ \_\ \ \ \    \ \ \/\ \ \ \/\ \ \ \_\ \  /\ \__/ /\ \__/   ');
    Wait(100);
    Writeln(' \ \  _\ \ \ \  __\ \ \ \ \ \ \ \ \ \ ,  /  \ \  _``\ \  _``\ ');
    Wait(100);
    Writeln('  \ \ \/  \ \ \_\ \\ \ \_\ \ \ \_\ \ \ \\ \  \ \ \_\ \ \ \_\ \');
    Wait(100);
    Writeln('   \ \_\   \ \____/ \ \_____\ \_____\ \_\ \_  \ \____/\ \____/');
    Wait(100);
    Writeln('    \/_/    \/___/   \/_____/\/_____/\/_/\/_/  \/___/  \/___/ ');
    Wait(100);
    Writeln('++++++++++++++++++++++++++++CREDITS:++++++++++++++++++++++++++');
    end;

    procedure AntiBan;
    begin
    if (not(LoggedIn)) then
    Exit;
    SleepAndMoveMouse(1000+random(1337));
    end;

    begin
      SetupSRL;
      MouseSpeed := 20;
      LoadArrays;
       Credits;
       wait(1000);
       ActivateClient;
       if (not(LoggedIn)) then
      begin
       Exit;
       end;
       repeat
        repeat
       O := O + 1
        if (not(LoggedIn)) then
        begin
        Exit;
        end;
         MineThaOre;
         AntiBan;
       Proggy;
    //     FindFastRandoms;  THIS IS COMMENTED BECAUSE IT LAGGED ME!
        until(O = 28);
       DropToPosition(1, 28);
      SrlRandomsReport;
       until(false);
    end.
    Ce ne sont que des gueux


  8. #8
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just was bit busy did it now,

    SCAR Code:
    program Min0r;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}


    {
    Start Logged In!
    Check DebugBox after clicking start,
    it will then automacitly select the RS screen!
    }


    var x, y, RocksMined, O : Integer;
    RockColor: Array [0..2] of Integer;

    const
    RunDir = 'S'; //Direction to run when in fight

    procedure LoadArrays;
    begin
    RockColor[0] := 1581113;
    RockColor[1] := 1583170;
    RockColor[2] := 1581105;
    end;

    procedure RunOn;
    begin
    Mouse(674, 482, 2, 2, true);
    if (FindColor(x, y, 4869450, 625, 414, 658, 447)) then
    begin
    Mouse(x, y, 5, 5, true);
    end else
    Exit;
    end;

    procedure MineThaOre;
    begin
      if (not(LoggedIn)) then
      Exit;
      if (FindColorSpiralTolerance(x, y, RockColor[0], 5, 5, 500, 336, 5)) or
      (FindColorSpiralTolerance(x, y, RockColor[1], 5, 5, 500, 336, 5)) or
      (FindColorSpiralTolerance(x, y, RockColor[2], 5, 5, 500, 336, 5)) then
      MMouse(x, y, 0, 0);
      wait(100+random(100));
      if IsUpText('ine') then
      begin
        GetMousePos(x, y);
        Mouse(x, y, 0, 0, True);
        FindPick;
        GasFound(x, y);
        wait(3000+random(1000));
        RocksMined := RocksMined + 1;
      end;
    end;

    function FindFastRandoms: Boolean;    // the srl team
    var
      i: Integer;
    begin
      for i := 1 to 9 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
        end;
        Wait(1);
      end;
    end;
    procedure Randoms;
    begin
      if not LoggedIn then Exit;
      FindTalk;
      FindATradeByRick;
      FindNormalRandoms;
      FindFastRandoms;
      FindLamp('mining');
      SolvePinball;
      if FindFight then
      begin
        RunTo('S', True);
        Wait(15000 + random(5000));
        RunBack;
      end;
    end;



    procedure Proggy;
    begin
    ClearDebug;
    Writeln('|+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++|');
    Writeln('Made by Floor66');
    Writeln('/////////////////////////////////////////////////////////////');
    Writeln('Copy? : Yes, but, CREDIT!');
    Writeln('\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\');
    Writeln('Ores did so far: '+IntToStr(RocksMined)+'');
    Writeln('|+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++|');
    end;

    procedure Credits;
    begin
    ClearDebug;
    Writeln('+++++++++++++++++++++++++++CREDITS:+++++++++++++++++++++++++++');
    Wait(500);
    Writeln(' _____   __       ______  ______  _____       ____    ____    ');
    Wait(100);
    Writeln('/\  __\ /\ \     /\  ___\/\  ___\/\  __\     / ___\  / ___\   ');
    Wait(100);
    Writeln('\ \ \_\ \ \ \    \ \ \/\ \ \ \/\ \ \ \_\ \  /\ \__/ /\ \__/   ');
    Wait(100);
    Writeln(' \ \  _\ \ \ \  __\ \ \ \ \ \ \ \ \ \ ,  /  \ \  _``\ \  _``\ ');
    Wait(100);
    Writeln('  \ \ \/  \ \ \_\ \\ \ \_\ \ \ \_\ \ \ \\ \  \ \ \_\ \ \ \_\ \');
    Wait(100);
    Writeln('   \ \_\   \ \____/ \ \_____\ \_____\ \_\ \_  \ \____/\ \____/');
    Wait(100);
    Writeln('    \/_/    \/___/   \/_____/\/_____/\/_/\/_/  \/___/  \/___/ ');
    Wait(100);
    Writeln('++++++++++++++++++++++++++++CREDITS:++++++++++++++++++++++++++');
    end;

    procedure AntiBan;
    begin
    if (not(LoggedIn)) then
    Exit;
    SleepAndMoveMouse(1000+random(1337));
    end;

    begin
      SetupSRL;
      MouseSpeed := 20;
      LoadArrays;
       Credits;
       wait(1000);
       ActivateClient;
       if (not(LoggedIn)) then
      begin
       Exit;
       end;
       repeat
        repeat
       O := O + 1
        if (not(LoggedIn)) then
        begin
        Exit;
        end;
         MineThaOre;
         AntiBan;
         FindfastRandoms;
         Randoms;
         Proggy;
        until(O = 28);
       DropToPosition(1, 28);
      SrlRandomsReport;
       until(false);
    end.

    This should work good... try this running

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  9. #9
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    EDIT : Read my last post
    Ce ne sont que des gueux


  10. #10
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well maybe its your pc? because can't help ya more..

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  11. #11
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Yar right! (i think) i am gonna test it on a way way WAY faster PC now.
    Ce ne sont que des gueux


Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Script lags game
    By lemonfuzz in forum OSR Help
    Replies: 2
    Last Post: 02-27-2009, 04:53 PM
  2. Lags at certain point in my script
    By steth1010 in forum OSR Help
    Replies: 3
    Last Post: 05-11-2007, 02:29 AM
  3. My First AutoMiner
    By RudeBoiAlex in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 03-03-2007, 06:56 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •