Page 1 of 3 123 LastLast
Results 1 to 25 of 56

Thread: [07Scape][SMART] Ardy Iron PowerMiner

  1. #1
    Join Date
    Jan 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default [07Scape][SMART] Ardy Iron PowerMiner

    I used this to get to 50 mining from 30.

    Set your user/pass in player deceleration.
    Set colors of the iron on line 140 in the second array, line 146 if you need to adjust speed.
    Stand here:


    Features:
    Gas checking
    Very fast
    100% Accurate rock finding

    You still have to watch it.

    Thanks to Flight for the mouse functions;
    http://villavu.com/forum/showthread....e+mouse+smooth
    NOT HELPING PEOPLE WITH SETUP, CONSIDER IT THE ANTI-LEECH.

    Code:
    program exualsArdyMiner07;
    {$DEFINE SMART}
    {$I SRL/SRL.simba}
    {$I P07Include.simba}
    var
      X, Y: Integer;
      ERock, SRock, WRock: TBox;
    
    Procedure P07_DeclarePlayer;
    begin
      P07_PlayerName:='';
      P07_PlayerPass:='';
    end;
    
    Procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
    var
      veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist,D: extended;
      lastX,lastY,MSP,W,TDist,T: integer;
      sqrt2,sqrt3,sqrt5,PDist,maxStep: extended;
    begin
      MSP  := MouseSpeed;
      sqrt2:= sqrt(2);
      sqrt3:= sqrt(3);
      sqrt5:= sqrt(5);
    
      TDist := Distance(Round(xs), Round(ys), Round(xe), Round(ye));
      if (TDist < 1) then
        TDist := 1;
      MarkTime(T);
      repeat
        if (TimeFromMark(T)>5000) then
          break;
    
        dist:= hypot(xs - xe, ys - ye);
        wind:= minE(wind, dist);
        if (dist < 1) then
          dist := 1;
        PDist := (dist/TDist);
        if (PDist < 0.01) then
          PDist := 0.01;
    
        if (PDist >= 0.15) then                                 //15% (or higher) dist to destination
        begin
          D := (Round((Round(dist)*0.3))/5);
          if (D < 20) then
            D := 20;
        end else if (PDist < 0.15) then
        begin
          if ((PDist <= 0.15) and (PDist >= 0.10)) then         //10%-15%
            D := RandomRange(8, 13)
          else if (PDist < 0.10) then                           //< 10%
            D := RandomRange(4, 7);
        end;
    
        if (D <= Round(dist)) then
          maxStep := D
        else
          maxStep := Round(dist);
    
        if dist >= targetArea then
        begin
          windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
        end else
        begin
          windX:= windX / sqrt2;
          windY:= windY / sqrt2;
        end;
    
        veloX:= veloX + windX;
        veloY:= veloY + windY;
        veloX:= veloX + gravity * (xe - xs) / dist;
        veloY:= veloY + gravity * (ye - ys) / dist;
    
        if (hypot(veloX, veloY) > maxStep) then
        begin
          randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
          veloMag:= sqrt(veloX * veloX + veloY * veloY);
          veloX:= (veloX / veloMag) * randomDist;
          veloY:= (veloY / veloMag) * randomDist;
        end;
    
        lastX:= Round(xs);
        lastY:= Round(ys);
        xs:= xs + veloX;
        ys:= ys + veloY;
    
        if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
          MoveMouse(Round(xs), Round(ys));
    
        W := (Random((Round(100/MSP)))*6);
        if (W < 5) then
          W := 5;
        W := Round(W*1.2);
        wait(W);
        lastdist:= dist;
      until(hypot(xs - xe, ys - ye) < 1)
    
      if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
        MMouse(Round(xe), Round(ye), 0, 0);
    
      MouseSpeed := MSP;
    end;
    
    Procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
      var
        randSpeed: extended;
        X,Y,MS: integer;
      begin
        MS := MouseSpeed;
        randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
        GetMousePos(X, Y);
        BrakeWindMouse(X, Y, RandomRange(eX-ranX, eX+ranX), RandomRange(eY-ranY,eY+ranY), 8, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
        MouseSpeed := MS;
      end;
    
    procedure checkForGas;
    begin
        if (AveragePixelShift(WRock, 250, 500) > 330) then
        begin
          WriteLn('Found gas, waiting 40s');
          Wait(40000);
        end;
    
        if (AveragePixelShift(ERock, 250, 500) > 330) then
        begin
          WriteLn('Found gas, waiting 40s');
          Wait(40000);
        end;
    
        if (AveragePixelShift(SRock, 250, 500) > 330) then
        begin
          WriteLn('Found gas, waiting 40s');
          Wait(40000);
        end;
    end;
    
    procedure ClickRock;
    begin
        if (P07_FindObjEx(x, y, ['Mine', 'Rocks'], [2503507, 1910851, 2042951, 2371663], 8, 15, 200, 150, 330, 240)) then
        begin
          BrakeMMouse(x, y, 0, 0);
          Wait(50 + Random(30));
          P07_MouseBox(x, y, x, y, mouse_left);
        end;
        Wait(RandomRange(600, 800));
    end;
    
    procedure initAntiRand;
    begin
        ERock := IntToBox( 285, 165, 315, 190);
        WRock := IntToBox( 235, 210, 255, 225);
        SRock := IntToBox( 275, 260, 315, 295);
    end;
    
    begin
      SetupSRL();
      P07_DeclarePlayer;
      SetupP07Include;
      ActivateClient;
      ClearDebug;
      initAntiRand;
    
      repeat
      if (not P07_LoggedIn) then
      begin
        P07_LogInPlayer;
        P07_MakeCameraAngleHigh;
        P07_MakeCompassNorth;
      end;
    
      if (P07_LoggedIn) then
      begin
        checkForGas;
        ClickRock;
    
        if P07_InvFull then
          P07_DropAllExcept([1]);
      end;
      until(isKeyDown(113));
    end.
    Attached Images Attached Images
    Last edited by exuals; 03-04-2013 at 02:59 AM.

  2. #2
    Join Date
    Sep 2010
    Posts
    5,762
    Mentioned
    136 Post(s)
    Quoted
    2739 Post(s)

    Default

    Good job on release but make sure you give credits to flight for mouse functions

  3. #3
    Join Date
    Jan 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by rjj95 View Post
    Good job on release but make sure you give credits to flight for mouse functions
    My bad, added in.

  4. #4
    Join Date
    Mar 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Error] (4:3): Unknown identifier 'P07_PlayerName' at line 3
    Compiling failed.

  5. #5
    Join Date
    Dec 2011
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    My SMART is starting the normal runescape, How do I change that?

  6. #6
    Join Date
    Mar 2013
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Chabbis1 View Post
    My SMART is starting the normal runescape, How do I change that?
    http://villavu.com/forum/showthread.php?t=97599

  7. #7
    Join Date
    Dec 2011
    Posts
    28
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    hmm, there's alot of bears there that attacks me , does it have to be in ardy exactly? or can it for example be in al kharid?

  8. #8
    Join Date
    Feb 2013
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Welcome to Project RS06
    Enter your username & password
    Click To Play
    Found gas, waiting 40s
    Found gas, waiting 40s
    Found gas, waiting 40s
    Found gas, waiting 40s
    Found gas, waiting 40s
    Found gas, waiting 40s
    Found gas, waiting 40s

    This is the log. the event is kind of glitchy and i have the same question as smeagol i currently am using it in a different place and it keeps saying found gas..

  9. #9
    Join Date
    Jan 2012
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by johnvacan159 View Post
    Welcome to Project RS06
    Enter your username & password
    Click To Play
    Found gas, waiting 40s
    Found gas, waiting 40s
    Found gas, waiting 40s
    Found gas, waiting 40s
    Found gas, waiting 40s
    Found gas, waiting 40s
    Found gas, waiting 40s

    This is the log. the event is kind of glitchy and i have the same question as smeagol i currently am using it in a different place and it keeps saying found gas..
    Disable gas if using in an alternate location

  10. #10
    Join Date
    Feb 2013
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by exuals View Post
    Disable gas if using in an alternate location
    Sweet got it thanks!

  11. #11
    Join Date
    Feb 2012
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am getting this error : [Error] C:\Simba\Includes\SRL/SRL/misc/SmartParams.Simba(295:135): Invalid number of parameters at line 294

  12. #12
    Join Date
    Feb 2013
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Nice script, works well.
    No problems for me for now.
    -Kaali

  13. #13
    Join Date
    Jun 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    it's not even doing anything for me :/

  14. #14
    Join Date
    Mar 2013
    Posts
    6
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by Judas Smells View Post
    it's not even doing anything for me :/
    It works great for me. are you sure you followed the steps for srl, smart, and simba? if not there is guides and even a video guide that walks u through it http://youtu.be/Iox4LylEj40. Also make sure you are entering your own DTM's/colors.

  15. #15
    Join Date
    Mar 2013
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    where is this located at in game?

  16. #16
    Join Date
    Mar 2013
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    works great for me, thanks. though sometimes it says it has found gas while there is none.

  17. #17
    Join Date
    Apr 2012
    Location
    Central Coast NSW
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I know this is as leech as it gets but I just came back from quitting few years back ( I used to use rsbot ) and when i saw scripts like this I know ud have to save them as .java and under then name etc ( read guides from that site ). Seeing as this is not a botting client i am sure it is very different. Any links to guides to see how I can add/run scripts like this that i do not directly download? Please help a leech out to become a non leech .

  18. #18
    Join Date
    Mar 2013
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    ^ agreed

  19. #19
    Join Date
    Mar 2013
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    ^ (1 post) leechers united

  20. #20
    Join Date
    Oct 2012
    Location
    North East England
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    as a powerminer this just drops ores? able to use this elsewhere or just ardy?

  21. #21
    Join Date
    Mar 2013
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    [Error] C:\Simba\Includes\SRL\SRL\misc\SmartParams.Simba(7 8:8): Unknown identifier 'RSReady' at line 77
    Compiling failed. help me get through it

  22. #22
    Join Date
    Jan 2012
    Posts
    64
    Mentioned
    0 Post(s)
    Quoted
    21 Post(s)

    Default

    Quote Originally Posted by kiingen View Post
    [Error] C:\Simba\Includes\SRL\SRL\misc\SmartParams.Simba(7 8:8): Unknown identifier 'RSReady' at line 77
    Compiling failed. help me get through it
    Same problem here

  23. #23
    Join Date
    May 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Had few problems with it, it would either spam click rock every 0.5sec slowing down mining a lot or just getting stuck with the whole checkForGas procedure, I got rid of the procedure, messed around with the speed and timing between clicks and such and it works flawless. I gotta babysit it but it's still much better then actually clicking myself :P
    Thanks man!

  24. #24
    Join Date
    Jun 2006
    Location
    Sweden
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    I've been looking for a good powerminer the whole day and this one seems to be the best one, IF the gas detection works. The mining&droping part works good, used it for about 10 minutes now, just waiting for the Gas detection part. Great job!

    EDIT:
    It did notice the gas:
    Found gas, waiting 40s
    Found gas, waiting 40s

    But just kept on mining :S gonna give another try
    Last edited by Chewar; 03-11-2013 at 11:55 PM.
    Respect your elders.

  25. #25
    Join Date
    Mar 2013
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I got it up and running. I commented out the gas procedure, and moved to a different location. (Also, if you could enlighten me on what the 'gas' actually is, that'd be great.)

    Perfect powerminer, now all it needs is anti-random support

    EDIT: facepalm -_- found out what gas is L0L

    Now that I know what it is... When I first tested this bot out in Ardy, it checked for gas every time I mined an ore. Pretty sure that's a bug, no? :L
    Last edited by Subzero_X; 03-16-2013 at 12:57 AM.

Page 1 of 3 123 LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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