Results 1 to 8 of 8

Thread: mining randoms

  1. #1
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default mining randoms

    i'm making a powerminer so how do i make it find pick head when it goes flying off the pick and attach it again and how do i find gasses?
    On another note is there a way to make it so if i want to mine tin ore it won't click on people wearing the same colour for e.g. steel as tin ore?
    Sleeping...

  2. #2
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    Come on people i know it's not that hard please?! i can't find anything on it anywhere
    Sleeping...

  3. #3
    Join Date
    Dec 2006
    Posts
    45
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey

    FindGas(x,y)

    Will Find The gas at the (x,y) Co-ordinated, which the mouse find the ore color at..

    But make sure you put and If FindGas.. Then Runaway
    If Not or Else Mine. So It Only Mines If No Gas Is Found..

    Now The Pick There a multiple way but the easiest is add FindPick Within The script so it search's whether the pick head has gone.

    Try Change the TIN color or the OreTol

  4. #4
    Join Date
    Jun 2006
    Location
    USA
    Posts
    1,828
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    In beginning of the script use once FindPickHeadColors;
    And when you want to look for pick, use FindPick;

    Also you need to have SetupSRLMining; in script.

  5. #5
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    thanks a lot guys
    Sleeping...

  6. #6
    Join Date
    Oct 2006
    Posts
    38
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    for the problem of it clicking on peoples steel armour use
    FindObj(var cx, cy: Integer; Text: String; color, tolerance: Integer): Boolean;
    check the object section in the SRL include.
    FindObj makes it look for the color with the certain text in the top left hand of the screen eg FindObj( x, y, 'Mine' , 1234567, 5 ) // the last number is the tolerance and that isn't a real color

    Hope it helps
    http://www.fenjer.com/adnan/SRLStats/555.png
    Only just fugured out how to get this stat thing working.... wasted all that time...

  7. #7
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    thx a lot mate
    ok if it doesn't find the pickhead then does it log....i can't test it atm seeing i'm waiting for an answer to another of my zillion questions which you can find in script help if your interested..called "drop ore only" but yeah anyway. thx

    EDIT: it's not finding gasses with the way i've done it suggestions plz:

    SCAR Code:
    procedure FindGasses;
    begin
    if FindGas(x,y)then
    begin
        RunAwayDirection(RunDirec);
        Wait(10000 + random(2000));
        RunBack;
      end;
    end;
    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                  PROGGY!                             //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////

    procedure Report;
    begin
      Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
      Writeln('[]------------------By RK-----------------[]');
      writeln('RRRRRRRRRRRRRRRRR   KKKKKKKKK    KKKKKKK')
        wait(500)
        writeln('R::::::::::::::::R  K:::::::K    K:::::K')
        wait(500)
        writeln('R::::::RRRRRR:::::R K:::::::K    K:::::K')
        wait(500)
        writeln('RR:::::R     R:::::RK:::::::K   K::::::K')
        wait(500)
        writeln('  R::::R     R:::::RKK::::::K  K:::::KKK ')
        wait(500)
        writeln('  R::::R     R:::::R  K:::::K K:::::K')
        wait(500)
        writeln('  R::::RRRRRR:::::R   K::::::K:::::K')
        wait(500)
        writeln('  R:::::::::::::RR    K:::::::::::K')
        wait(500)
        writeln('  R::::RRRRRR:::::R   K:::::::::::K')
        wait(500)
        writeln('  R::::R     R:::::R  K::::::K:::::K')
        wait(500)
        writeln('  R::::R     R:::::R  K:::::K K:::::K')
        wait(500)
        writeln('  R::::R     R:::::RKK::::::K  K:::::KKK')
        wait(500)
        writeln('RR:::::R     R:::::RK:::::::K   K::::::K')
        wait(500)
        writeln('R::::::R     R:::::RK:::::::K    K:::::K')
        wait(500)
        writeln('R::::::R     R:::::RK:::::::K    K:::::K')
        wait(500)
        writeln('RRRRRRRR     RRRRRRRKKKKKKKKK    KKKKKKK')Loads := Loadz * 28;
        WriteLn('     Ores Mined/Dropped : '+IntToStr(Loadz*28));
        Writeln('            Worked For : ' + ScriptTime2(2)) //Displays how long it worked for
        Writeln('               Mined ' + IntToStr(Loadz) + ' Loads');
      Writeln('[]------------------By RK-----------------[]');
      Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
    end;
    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                  MINEING AND DROPPING                //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////


    function FindOre: Boolean;
    begin
      if FindObj( x, y, 'Mine' , OreeColor, 5 ) then
      begin
        Result := True;
        Status('Found Ore =D');
      end else
        Status('Did not find Ore =(');
      wait(5 + random(5));
    end;

    function MouseAndClick: Boolean;
    begin
      repeat
        if (FindOre) then
        begin
          MMouse(x, y, 0, 0);
          Result := True;
          Wait(20 + random(150));
          Mouse(x, y, 0, 0, true);
          OreMined := OreMined + 1
            wait(3000);
          Exit;
        end;
      until (false)
    end;

    procedure UntilMined(Time: integer);
    var timer: integer;
    begin
      status('waiting for pick swing')
        if FindText(x, y, 'You swing your', SmallChars, 20, 415, 152, 431) then
      begin
        marktime(Timer);
        status('waiting for ore')
          repeat
          wait(1000 + random(1000))
        until FindText(x, y, 'anage', SmallChars, 20, 415, 152, 431) or
          (timefrommark(Timer) > Time);
        writeln('Finished mining')
      end;
    end;

    function CoordsToInvSpot(gx,gy:integer):integer;
    var col,row:integer;
    begin
    if ((gx>569) and(gx<600)) then col:=1;
    if ((gx>611) and(gx<642)) then col:=2;
    if ((gx>653) and(gx<684)) then col:=3;
    if ((gx>695) and(gx<723)) then col:=4;

    if ((gy>213) and(gy<244)) then row:=1;
    if ((gy>249) and(gy<280)) then row:=2;
    if ((gy>285) and(gy<316)) then row:=3;
    if ((gy>322) and(gy<352)) then row:=4;
    if ((gy>357) and(gy<387)) then row:=5;
    if ((gy>393) and(gy<424)) then row:=6;
    if ((gy>429) and(gy<459)) then row:=7;

    result:=((row-1)*4)+col;
    end;

    procedure drop;
    begin
      if (invfull) then
      begin
          GameTab(4);
          OreDTM:= DTMFromString('78DA634C636060706740038C48249006A9F12' +
           '3A0261F487813A12688809A1C201141847BA209A84902123104D4' +
           'C4028944026AA2893007E4DE28026A828930071436A104D484128' +
           'E0B0047CA0967');
          repeat
        if FindDTM(OreDTM,x,y,MIx1,MIY1,MIx2,MIY2) then
        DropItem(coordstoinvspot(x,y));
        wait(200+random(200));
      until not(FindDTM(OreDTM,x,y,MIx1,MIY1,MIx2,MIY2));
      freedtm(OreDTM);
      Loads := Loads + 1;
      end;
    end;
    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                    MAIN LOOP                         //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////
    begin
      ClearDebug;
      SetupSRL;
      SetupSRLMining;
      DeclarePlayers;
      Activateclient;
      wait(1000);
      LoginPlayer;
      wait(1000);
      MakeCompass('N');
      HighestAngle;
      SetRun(true);
      FindPickHeadColor;
      repeat
        repeat
          Gametab(4);
          FindOre;
          MouseAndClick;
          UntilMined(5000);
          CoordsToInvSpot(x,y);
          Drop;
          FindPick;
          FindGasses;
          AntiRandoms;
          OtherRandoms;
          until(Loads = Loadz);
          if (Loads = Loadz) then
          begin
          Report;
          Logout;
          Nextplayer(true);
          Loads:=0
          end;
          MakeCompass('N');
          HighestAngle;
          SetRun(true);
          FindPickHeadColor;
          Gametab(4);
          FindOre;
          MouseAndClick;
          UntilMined(5000);
          CoordsToInvSpot(x,y);
          Drop;
          FindPick;
          FindGasses;
          AntiRandoms;
          OtherRandoms;
          until (false);
    end.
    Sleeping...

  8. #8
    Join Date
    Jan 2007
    Location
    Not here
    Posts
    1,604
    Mentioned
    2 Post(s)
    Quoted
    19 Post(s)

    Default

    Ok my proggy isn't working....i ran it for 5 hours and it didn't come up! that was my ticket to members lol so can't someone show me why it didnt do my proggy:
    also i need a better one atm mine sux! i need to know how to add if the player is active or not:
    SCAR Code:
    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                  PROGGY!                             //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////

    procedure Report;
    begin
      Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
      Writeln('[]------------------By RK-----------------[]');
      writeln('RRRRRRRRRRRRRRRRR   KKKKKKKKK    KKKKKKK')
        wait(500)
        writeln('R::::::::::::::::R  K:::::::K    K:::::K')
        wait(500)
        writeln('R::::::RRRRRR:::::R K:::::::K    K:::::K')
        wait(500)
        writeln('RR:::::R     R:::::RK:::::::K   K::::::K')
        wait(500)
        writeln('  R::::R     R:::::RKK::::::K  K:::::KKK ')
        wait(500)
        writeln('  R::::R     R:::::R  K:::::K K:::::K')
        wait(500)
        writeln('  R::::RRRRRR:::::R   K::::::K:::::K')
        wait(500)
        writeln('  R:::::::::::::RR    K:::::::::::K')
        wait(500)
        writeln('  R::::RRRRRR:::::R   K:::::::::::K')
        wait(500)
        writeln('  R::::R     R:::::R  K::::::K:::::K')
        wait(500)
        writeln('  R::::R     R:::::R  K:::::K K:::::K')
        wait(500)
        writeln('  R::::R     R:::::RKK::::::K  K:::::KKK')
        wait(500)
        writeln('RR:::::R     R:::::RK:::::::K   K::::::K')
        wait(500)
        writeln('R::::::R     R:::::RK:::::::K    K:::::K')
        wait(500)
        writeln('R::::::R     R:::::RK:::::::K    K:::::K')
        wait(500)
        writeln('RRRRRRRR     RRRRRRRKKKKKKKKK    KKKKKKK')Loads := Loadz * 28;
        WriteLn('     Ores Mined/Dropped : '+IntToStr(Loadz*28));
        Writeln('            Worked For : ' + ScriptTime2(2)) //Displays how long it worked for
        Writeln('               Mined ' + IntToStr(Loadz) + ' Loads');
      Writeln('[]------------------By RK-----------------[]');
      Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
    end;
    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                  MINEING AND DROPPING                //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////


    function FindOre: Boolean;
    begin
      if FindObj( x, y, 'Mine' , OreeColor, 5 ) then
      begin
        Result := True;
        Status('Found Ore =D');
      end else
        Status('Did not find Ore =(');
      wait(5 + random(5));
    end;

    function MouseAndClick: Boolean;
    begin
      repeat
        if (FindOre) then
        begin
          MMouse(x, y, 0, 0);
          Result := True;
          Wait(20 + random(150));
          Mouse(x, y, 0, 0, true);
          OreMined := OreMined + 1
            wait(3000);
          Exit;
        end;
      until (false)
    end;

    procedure UntilMined(Time: integer);   //JuKKa helped here thanks
    var timer: integer;
    begin
      status('waiting for pick swing')
        if FindText(x, y, 'You swing your', SmallChars, 20, 415, 152, 431) then
      begin
        marktime(Timer);
        status('waiting for ore')
          repeat
          wait(1000 + random(1000))
          FindTalk;
       FindNormalRandoms;
    FindPick;
    if(FindGas(x,y))then
     begin
      RunAwayDirection('N');
       Wait(15000)
      RunBack;
     end;
        until FindText(x, y, 'anage', SmallChars, 20, 415, 152, 431) or
          (timefrommark(Timer) > Time);
        writeln('Finished mining')
      end;
    end;

    function CoordsToInvSpot(gx,gy:integer):integer; //Full Credit to Boreas here
    var col,row:integer;
    begin
    if ((gx>569) and(gx<600)) then col:=1;
    if ((gx>611) and(gx<642)) then col:=2;
    if ((gx>653) and(gx<684)) then col:=3;
    if ((gx>695) and(gx<723)) then col:=4;

    if ((gy>213) and(gy<244)) then row:=1;
    if ((gy>249) and(gy<280)) then row:=2;
    if ((gy>285) and(gy<316)) then row:=3;
    if ((gy>322) and(gy<352)) then row:=4;
    if ((gy>357) and(gy<387)) then row:=5;
    if ((gy>393) and(gy<424)) then row:=6;
    if ((gy>429) and(gy<459)) then row:=7;

    result:=((row-1)*4)+col;
    end;

    procedure drop; //Full Credit to Boreas here
    begin
      if (invfull) then
      begin
          GameTab(4);
          OreDTM:= DTMFromString('78DA634C636060706740038C48249006A9F12' +
           '3A0261F487813A12688809A1C201141847BA209A84902123104D4' +
           'C4028944026AA2893007E4DE28026A828930071436A104D484128' +
           'E0B0047CA0967');
          repeat
        if FindDTM(OreDTM,x,y,MIx1,MIY1,MIx2,MIY2) then
        DropItem(coordstoinvspot(x,y));
        wait(200+random(200));
      until not(FindDTM(OreDTM,x,y,MIx1,MIY1,MIx2,MIY2));
      freedtm(OreDTM);
      Loads := Loads + 1;
      end;
    end;
    ////////////////////////////////////////////////////////////
    ///////////////////////////////////////////////////////////
    //                    MAIN LOOP                         //
    /////////////////////////////////////////////////////////
    ////////////////////////////////////////////////////////
    begin
      ClearDebug;
      SetupSRL;
      SetupSRLMining;
      DeclarePlayers;
      Activateclient;
      wait(1000);
      LoginPlayer;
      wait(1000);
      MakeCompass('N');
      HighestAngle;
      SetRun(true);
      FindPickHeadColor;
      repeat
        repeat
          Gametab(4);
          FindOre;
          MouseAndClick;
          UntilMined(5000);
          CoordsToInvSpot(x,y);
          Drop;
          FindPick;
          FindGasses;
          AntiRandoms;
          OtherRandoms;
          until(Loads = Loadz);
          if (Loads = Loadz) then
          begin
          Report;                //Full Credit to Pentti helped with whole switching players thing
          Logout;
          Nextplayer(true);
          Loads:=0
          end;
          MakeCompass('N');
          HighestAngle;
          SetRun(true);
          FindPickHeadColor;
          Gametab(4);
          FindOre;
          MouseAndClick;
          UntilMined(5000);
          CoordsToInvSpot(x,y);
          Drop;
          FindPick;
          FindGasses;
          AntiRandoms;
          OtherRandoms;
          until (false);
    end.

    and if some1 could tell me how to make it log out and go to next player if it can't find pick that would be good.

    EDIT: OOPS soz for double post!!!!
    Sleeping...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Mining
    By mormonman in forum OSR Help
    Replies: 4
    Last Post: 12-24-2008, 03:23 AM
  2. Tutorial Mining - no randoms? -Ores automatically drop
    By Kik in forum RuneScape News and General
    Replies: 5
    Last Post: 08-18-2007, 08:28 PM
  3. Ess mining randoms
    By crackkilzu in forum News and General
    Replies: 1
    Last Post: 05-05-2007, 04:53 AM
  4. Replies: 3
    Last Post: 03-31-2007, 02:34 AM

Posting Permissions

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