Results 1 to 6 of 6

Thread: power ore miner (mines and drops) by outlander

  1. #1
    Join Date
    Jun 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default power ore miner (mines and drops) by outlander

    my first auto miner, mines and drops.

    PHP Code:
    /////////////////////////////////////////////////////////
    /////////power ore miner (mines and drops ores)///////////
    ///////////////made by Outlander////////////////////////
    //////////////////not for retail/////////////////////////
    ///start with 5 pickaxes in the first 5 slots/1 pick and other items.///////////
     ///////////////////version  1.0.2 public beta/////////////////////////
    program outlanders_ore_miner_and_dropper;
     {.include 
    SRL/SRL.scar}

    Const
    Orecolour 1582146// fill in ore color using color picker
    begin
    repeat
    FindColorSpiral
    (x,y,orecolour,MSX1,MSY1,MSX2,MSY2)


     
    DisguiseScar('Internetexplorer7');


      
    findcolorspiral(x,y,orecolour,MSX1,MSY1,MSX2,MSY2);
     
    mmouse (x,y,2,2)
    wait (300+random(800))
    Mouse(x,y,1,1,true)


     
     
    Mouse(x,y,1,1,true)
    wait (3000+random(10000))

    writeln ('now dropping ore...')
    /////////////////////////////////////dropping ore
     
    mmouse (627,265,2,2)
      
    wait (500+random(1000))
     
    mouse (627,265,1,1,false)
      
    mmouse (606,307,2,2)
      
    wait (500+random(1000))
      
    findcolorspiral(x,y,65535,MSX1,MSY1,MSX2,MSY2);
      
    mmouse (x,y,2,2)
       
    wait (500+random(1000))
      
    Mouse(x,y,1,1,true)




    until (false)



     
    end

  2. #2
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    hey so a power miner is your first script. thats good, my first script was a useless autotalker.

    i've got a few suggestions for you.

    firstly, you need to learn the standards for script (indenting and setting out, etc.). this will make your script a lot easier to follow and easier to understand what you are trying to do.

    secondly, i dont get what you are doing here:
    SCAR Code:
    FindColorSpiral(x,y,orecolour,MSX1,MSY1,MSX2,MSY2)


     DisguiseScar('Internetexplorer7');


      findcolorspiral(x,y,orecolour,MSX1,MSY1,MSX2,MSY2);

    why can't you just disguisescar once at the begin and then find the rock colour?

    thirdly, from what i can see, the script clicks the rock, waits about 1.5 secs, clicks again, clicks straight away then waits. then it drops. you it mines three ores then drops three ores?
    make it click and wait until the inventory is full then begin dropping

    fourthly, you should put hte mining and the dropping is separate procedures. this will allow you to manipulate them more easily and in better ways.

    fifthly, what are you doing here?:
    SCAR Code:
    mmouse (627,265,2,2)
      wait (500+random(1000))
     mouse (627,265,1,1,false)
      mmouse (606,307,2,2)
      wait (500+random(1000))
      findcolorspiral(x,y,65535,MSX1,MSY1,MSX2,MSY2);
      mmouse (x,y,2,2)
       wait (500+random(1000))
      Mouse(x,y,1,1,true)

    it moves the mouse, waits 1.5 secs, clicks, then what? chooses the drop option? theres easier methods than that such as SRL's DropAll and ChooseOption functions.
    i also dont get what the FindColorSpiral function is there for. does this also mean that you are only dropping one ore even though you are mining 3 ores per loop?

    heres what a very simple autominer could be:
    SCAR Code:
    program AutoMiner;
    {.include SRL/SRL.scar}

    const
      OreColour = 456346;

    procedure Mine;
      begin
        x:=MSCX;
        y:=MSCY;  
        If FindColorSpiralTolerance(x, y, OreColour, MSX1, MSY1, MSX2, MSY2, 10) then
         begin
          repeat
           Flag;
           x:=MSCX;
           y:=MSCY;  
           FindColorSpiralTolerance( x, y, OreColour, MSX1, MSY1, MSX2, MSY2, 10)  
           Mouse(x, y, 1, 1, true);
           Wait(3000+random(500));
          until not (FindColorSpiralTolerance( x, y, OreColour, MSX1, MSY1, MSX2, MSY2, 10));
         end;
      end;

    procedure Drop;
      begin
       if InvCount >= 28 then
        DropTo(6, 28);
      end;

    begin
     repeat
      repeat
       Mine;
      until(InvCount >= 28);
      if InvCount >= 28 then
       Drop;
     until(false);
    end.

  3. #3
    Join Date
    Jun 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks for the help mate. btw just try it, it mines 1 ore and then drops 1 ore. etc...

  4. #4
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    np, yea i figured but that is sorta ... not normal. lol. make it mine until you get a full inv then drop all or something.

  5. #5
    Join Date
    Jun 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok thanks mate. btw, ur script mines but does not drop for me.

  6. #6
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by outlander View Post
    ok thanks mate. btw, ur script mines but does not drop for me.

    lol i didn't expect it too. the drop procedure is only 2 lines long and i didn't even do it in scar. if you want a really good drop procedure you need to use dtm's and better functions than dropto.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. help with my power miner...
    By Cazax in forum OSR Help
    Replies: 3
    Last Post: 01-03-2008, 10:25 PM
  2. power ore miner (mines and drops) by outlander
    By outlander in forum RS3 Outdated / Broken Scripts
    Replies: 9
    Last Post: 08-22-2007, 06:48 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
  •