Results 1 to 4 of 4

Thread: powerminer script help

  1. #1
    Join Date
    Oct 2006
    Posts
    6,752
    Mentioned
    95 Post(s)
    Quoted
    532 Post(s)

    Default powerminer script help

    Hey, as I said i would I tried making my first powerminer and I did. It's works perfectly until it right clicks the rock and goes to click on rocks. Could anyone please help me. Run it first to see what I mean. Also just see what else I could do better next time. Thanks guys!
    SCAR Code:
    program Powerminer;
    {.include SRL/SRL.scar}
    const
     loads = 5;//how many loads do you want to do?
     color1 =9869218;//first color of rock
     color2 =7697790;//second color of rock
     waittime = 7000; //time to wait before clicking rock
     rundir = 'S';//direction to run incase of fight

      var
      x , y , i , minerocks: integer;


    procedure antirandoms; //basic antirandoms

    begin
      mouse(x,y,0,0,true);
      findnormalrandoms;
      flag;
      ftwait(2);
      if  (findFight=true) then
      begin
      RunAwayDirection(rundir);
      wait (15000 + random(3000));
      Runback
      end;
      end;

      procedure Delcarebmps;
      begin
        minerocks := BitmapFromString(58, 10, 'beNrVU0sWgCAI5HZdoG3' +
           '3PwZZBuGA+alNPBYjAm/EgWhbl7840cGWmTPIDsfhnsnPDoeNV/Ww' +
           'TaZUP2PbQWCObQLKU9nm8bxiKx3IeJEpEVvlEyhSQm6uRz/wMKLBg' +
           'q2I4QqqNiT5johmoAoSmroFAA+BHwnZ3kEdiAONqtN7tuwZsHt7oI' +
           'RRtqAEmdHEbCGTjTW3rCoPGR1U2Vtga4FdLg/CTL+MtUL8BSfLEIT' +
           'HH9gOZM8BuQ==');
           end;
           

          procedure miner;
      begin
      wait(waittime+500)

        if(FindColorTolerance(x,y, color1,0, 0,700,500,4)) and
           (FindcolorTolerance(x,y,color2,0, 0,720,520,4)) then
           begin
           
           Mouse(x, y, 0, 0, false);
           wait(1000)
           end;
           begin
           if(findBitmap(minerocks,x,y))then
           movemouse(x,y);
           clickmouse(x,y,true);

           end;
           end;
           Procedure Logout1;
           begin
           mouse(637,484,2,2,false)
           mouse(632,374,4,4,false)
           end;
           



           
           
           

           procedure antiban;

           begin;
           wait(100*100);
           typesend('mining lvls?');
           wait(1000+random(1000))
           typesend('argghh');
           end;
           

        begin
        SetupSRL;
        Delcarebmps;
        Antiban;
        repeat
         miner;
         i:= i + 1
          DropToPosition(2, 28)
          until(i >= Loads)
          begin;
          logout1;
          end;
          end.
    “The long-lived and those who will die soonest lose the same thing. The present is all that they can give up, since that is all you have, and what you do not have, you cannot lose.” - Marcus Aurelius

  2. #2
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    change
    SCAR Code:
    begin
           if(findBitmap(minerocks,x,y))then
           movemouse(x,y);
           clickmouse(x,y,true);
     
           end;
    to
    SCAR Code:
    chooseoption('ine');

  3. #3
    Join Date
    Oct 2006
    Posts
    6,752
    Mentioned
    95 Post(s)
    Quoted
    532 Post(s)

    Default

    Quote Originally Posted by Timer View Post
    change
    SCAR Code:
    begin
           if(findBitmap(minerocks,x,y))then
           movemouse(x,y);
           clickmouse(x,y,true);
     
           end;
    to
    SCAR Code:
    chooseoption('ine');
    thanks a lot dude, but what exactly is that code. Oh and how do I get the script to drop the ore only when my inventory is full. And what is your MSN.
    “The long-lived and those who will die soonest lose the same thing. The present is all that they can give up, since that is all you have, and what you do not have, you cannot lose.” - Marcus Aurelius

  4. #4
    Join Date
    May 2007
    Location
    Ohio
    Posts
    2,296
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    my Aim is: Timer250

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. PowerMiner , first script
    By zorro in forum First Scripts
    Replies: 11
    Last Post: 07-30-2008, 03:25 AM
  2. My 2nd script. Powerminer!
    By owned1112 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 10-11-2007, 03:05 PM
  3. My first script (PowerMiner)
    By valesar in forum First Scripts
    Replies: 10
    Last Post: 09-12-2007, 12:49 AM
  4. First Script (PowerMiner)
    By I Karma I in forum OSR Help
    Replies: 7
    Last Post: 05-04-2007, 05:56 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
  •