Results 1 to 3 of 3

Thread: help on my powerminer

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

    Default help on my powerminer

    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. 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
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Moved to scripting help.
    Administrator's Warning:


  3. #3
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    1st:
    don't use these
    movemouse(x,y);
    clickmouse(x,y,true);
    2cnd, why you need to make of this? if you'd like to use second click then use chooseoption('ine'); instead of bmp

    and I recomend you to use some srl findobj function...
    here:
    function FindObj(var cx, cy: Integer; Text: String; color, tolerance: Integer): Boolean;

    function FindObjCustom(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; tolerance : integer) : boolean;
    example:
    SCAR Code:
    FindObjCustom(x, y,['ine','ock'],[123456, 543210{<- these aren't real rock colors}], 7)

    Read some more tuts, or take some other dude's script to learn
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. powerminer
    By tpm1164 in forum First Scripts
    Replies: 5
    Last Post: 07-15-2007, 12:41 AM
  2. My Powerminer v. 3.00
    By GoF in forum RS3 Outdated / Broken Scripts
    Replies: 17
    Last Post: 01-22-2007, 02:08 AM
  3. Need Help On My First PowerMiner
    By Buckleyindahouse in forum OSR Help
    Replies: 3
    Last Post: 12-23-2006, 06:08 PM
  4. powerminer
    By shadowblade in forum OSR Help
    Replies: 20
    Last Post: 12-15-2006, 12:34 AM
  5. my powerminer
    By shadowblade in forum OSR Help
    Replies: 3
    Last Post: 12-09-2006, 03:04 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
  •