Results 1 to 12 of 12

Thread: Dropping powerminer

  1. #1
    Join Date
    Apr 2006
    Location
    Lincolnshire
    Posts
    106
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Post Dropping powerminer

    This powerminer can be used anywhere.it is an edited version of stupid 3ooo's powerminer.i have edited it only slightly so most creds go to him.instructions in the script, it is very user-friendly and i hope you enjoy, but dont leave on for long times such as 5 hours straight

  2. #2
    Join Date
    Feb 2006
    Location
    Pennsylvania
    Posts
    1,524
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    You should edit it to use SRL, that would be even better

  3. #3
    Join Date
    Apr 2006
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It works great except for me it doesn't do any random events, any suggestions? I've been ported by the baguette lady and had my invetory filled with boxes. I'd appreciate any help.

  4. #4
    Join Date
    Apr 2006
    Location
    California
    Posts
    555
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yes please add randoms.

  5. #5
    Join Date
    Apr 2006
    Location
    Lincolnshire
    Posts
    106
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Cool

    i would add randoms, but im such a noobie SCAR script maker, i wouldnt know where to begin .please feel free to take it and modify it yourself then post here

  6. #6
    Join Date
    Sep 2006
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice Script, well done

  7. #7
    Join Date
    Oct 2006
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Where't the script? I don see it anywhere

  8. #8
    Join Date
    Nov 2006
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Color Picked: 16777215 at (725, 220)
    User specified a new RS window
    Color Picked: 7053039 at (-435, 257)
    Include file C:\Program Files\SCAR 2.03\includes\SSI2.txt does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\BoxBreaker.txt does not exist.
    Failed when compiling


    Doesn't work with me

  9. #9
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    You don't have those includes. I would tell you how to Download Inlcudes, but you're better off using SRL scripts.

  10. #10
    Join Date
    Jun 2006
    Posts
    250
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    LMAO. Dont know why I bothered, but here it is for SRL: (rather crude editing, so you may need to look through and stuff to find color settings. Autocolor doesn't work and I cant be bothered to fix it.)

    SCAR Code:
    {=========================================================================]
    [                              PowerMiner                                 ]
    [                             version: 4.01                               ]
    [=========================================================================]
    | Description:                                                            |
    |   A macro that you can run in any mine. It'll mine a full load of either|
    |   tin, copper, iron, or coal and drop it once it's full, then continue  |
    |   minning.This version is perfect it just needs updating when new       |
    |   random events come out.                                               |
    | Instructions:                                                           |
    |   1.V-bright, 32bit resolution.                                         |
    |   2.Need SCAR version 2.02 at least                                     |
    |   3.Run script next to the full rock you want to mine.                  |
    |   4.Recomended to have extra pickaxes in your inventory.                |
    |   5.Click and drag the crosshair over the Runescape client.             |
    |     Then press the green arrow.(make sure camera view is all the way up)|
    |   6.A window should pop-up,on the drop down menu select                 |
    |   your ore type and click start.                                        |
    |   7.The script should begin power mining                                |
    [=========================================================================]


    program StupidPowerMiner;

    {.include SRL\SRL.scar}

    {.include SRL\SRL\skill\mining.scar}

    const
    //=//================Colors(Leave as 0 to let script find)=============\=\\
    RockColor1= 2702653;//Colors of rocks in main screen.
    RockColor2= 3559247;
    RockColor3= 2834753;
    MMPickColor= 8750477;//Pick symbol color. [SS:2575992]
    MMOreColor= 4416666;//Mini map ore color. [SS:4010803]
    //=\\=================================================================//=\\
    //=\\ Under the varibles you may disable the forms and setup options. //=\\
    //=\\=================================================================//=\\
    var
      OreCol,OreTol1,OreTol2,DroppedOres,OreType,MapOreColor,MapPickColor,
      NotStuckMark,RunMark,MaxWait,SetRunTime,x1,y1:integer;
      XpPerOre:extended;
      RunDirection:string;
      Look4Gas,DropAllButPick,LogsOut,Chats,Rotates:boolean;

    procedure Setup;
    begin
    //=//==============================Setup===============================\=\\
    LogsOut:= true;//If you want to log out every so often for antiban.
    Chats:= true;//If you want to randomly chat for anti-ban.
    Look4Gas:= true;//Set to false if you are having trouble with it constantly finding gas.
    Rotates:= true;//If you want to randomly rotate the screen for anti-ban.
    MaxWait:= 20;//Maximum time in seconds to wait while mining a rock.
    SetRunTime:= 300;//Sets run every chosen amount of seconds.
    RunDirection:= 'N';//Direction to run away from.
    DropAllButPick:= true;//If you want to drop gems, gold, etc. instead of just ores.
    //=\\=================================================================//=\\
    end;

    //DO NOT TOUCH BELOW

    //==============================Misc Procedures===============================\\

    procedure GetOreType;
    begin
      if(OreType=1)then//1-Copper
      begin
        OreCol:=4550039;
        OreTol1:=15;OreTol2:=35;
        XpPerOre:= 17.5;
      end;
      if(OreType=2)then//2-Tin
      begin
        OreCol:=10263976;
        OreTol1:=15;OreTol2:=35;
        XpPerOre:= 17.5;
      end;
      if(OreType=3)then//3-Iron
      begin
        OreCol:=2371664;
        OreTol1:=5;OreTol2:=25;
        XpPerOre:= 35;
      end;
      if(OreType=4)then//4-coal
      begin
        OreCol:=2900546;
        OreTol1:=5;OreTol2:=13;
        XpPerOre:= 50;
      end;
    end;

    procedure SetColors;
    begin
      OreColor1:=RockColor1;
      OreColor2:=RockColor2;
      OreColor3:=RockColor3;
      MapPickColor:=MMPickColor;
      MapOreColor:=MMOreColor;
    end;

    //=========================Color Finding Procedures===========================\\

    function FindMapOreColor:integer;
    var
      MapOre,MapOre2:integer;
    begin
      MapOre := BitmapFromString(3, 3,
             '3D2C345948546D5D624A39416D5D626D5D625948546D5D626D5D62' +
             '');
      MapOre2 := BitmapFromString(3, 3,
             '061115222D35364243131E22364243364243222D35364243364243' +
             '');
      if(FindBitmapsProgressiveTol(MapOre,MapOre2,0,0,0,65,5,587,41,705,118))then
        Result:=GetColor(x+1,y+1);
      FreeBitmap(MapOre);
      FreeBitmap(MapOre2);
    end;

    procedure FindColors;
    var
      c:integer;
    begin
      WriteLn('Finding colors please Wait...');
      repeat
      c:=c+1;
      if(MapOreColor>0)and(MapPickColor>0)and(OreColor1>0)and(OreColor2>0)and
      (OreColor3>0)then
        Break;
      FindOreColors(OreCol,OreTol1,OreTol2);
      MapPickColor:=GetSymbolColor(x,y,'mining spot');
      MapOreColor:=FindMapOreColor;
      if(c>=10)then
      begin
        WriteLn('Could not find colors, please stand next to a full rock and '+
        'make sure the mining spot symbol is visible in the minimap, then'+
        ' run the script again');
        TerminateScript;
      end;
      until(c>10)
    end;

    //========================Random Protection Procedures========================\\

    procedure ReturnToRocks;
    begin
    if(not(FindMMColor(x,y,MapPickColor)))then
      begin
      if(FindMMColor(x,y,MapOreColor))then
        begin
        Mouse(x,y,1,1,true);
        Flag;
        end
      else if(not(FindMMColor(x,y,MapPickColor)))and
      (not(FindMMColor(x,y,MapOreColor)))then
        begin
        writeln('Lost!!!');
        TerminateScript;
        end;
      end;
    if(FindColorSpiral(x,y,MapPickColor,565,5,725,160))then
      begin
        Mouse(x,y,1,1,true);
        Flag;
        ClickMMColorTol(MapOreColor,10);
      end;
    end;

    procedure TimedProcedures;
    begin
      if(TimeFromMark(NotStuckMark)>60000)then
      begin
        ReturnToRocks;
        MarkTime(NotStuckMark);
      end;
      if(TimeFromMark(RunMark)>SetRunTime*1000)then
      begin
        MarkTime(RunMark);
        SetRun(true);
      end;
    end;

    procedure FindRandoms;
    begin
      FindNormalRandoms;
      antiban
      if findcolortolerance(x1,y1,255,244,142,286,156,10)then
       begin
        if random(2) = 1 then if(HpPercent < 90) then
        begin
         runto(RunDirection,true)
        End
     End
      if FindGas(x,y) then RunTo(RunDirection,false);
      if Findname Then FindTalk;
    end;

     //-----//-----//-----//-----//-----//-----//-----//-----//-----//--
    //-----\\-----\\-----//-----\\-----\\-----//-----\\-----\\-----\\--

    function FindObjB(var cx, cy: Integer; Text: String; color, tolerance: Integer): Boolean;
    var
      Timees,x, y, a, c, i, x1, y1, x2, y2: Integer;
    begin
      if (FindMSColorTol(x, y, color, tolerance)) then
      begin
        x1 := 245;
        y1 := 165;
        x2 := 277;
        y2 := 185;
        repeat
          if (not (Loggedin)) then
            break;
          a := a + 1;
          if (a = 1) then
            c := c + 1;
          if (a = 3) then
            c := c + 1;
          for i := 1 to c do
          begin
            if (a = 1) then
            begin
              x1 := x1 + 30;
              x2 := x2 + 30;
            End;
            if (a = 2) then
            begin
              y1 := y1 - 20;
              y2 := y2 - 20;
            End;
            if (a = 3) then
            begin
              x1 := x1 - 30;
              x2 := x2 - 30;
            End;
            if (a = 4) then
            begin
              y1 := y1 + 20;
              y2 := y2 + 20;
            End;
            if (x1 = 485) and (x2 = 517) then
              x2 := x2 - 2;
            if (y1 = 325) and (y2 = 345) then
              y2 := y2 - 7;
            if (x2 > 515) then
              Break;
            if (FindColorTolerance(x, y, color, x1, y1, x2, y2, tolerance)) then
            begin
            Timees:=Timees+1
              MMouse(x, y, 0, 0)
                cx := x; cy := y;
              if(Timees>10)
            then
             begin
             timees:=0
              End;
              wait(100+random(30))
              if (IsUpText(Text)) then
              begin
                Result := True;
                Break;
              End;
            End;
          End;
          if (a = 4) then
            a := 0;
        until (x2 > 515) or (Result = True);
      End;
      timees:=0
    End;

    //-----//-----//-----//-----//-----//-----//-----//-----//-----//--
    //-----\\-----\\-----//-----\\-----\\-----//-----\\-----\\-----\\--

    //============================Main Screen Procedures==========================\\

    procedure DropIfNeeded;
    begin
      if(InventoryFull)then
      begin
        DroppedOres:=DroppedOres+(CountItemBmpTol(Ore,50));
        dwarfitem
      end
    end;

    procedure Mine;
    var
      SysTime:integer;
    begin
      SetRandomOreColor;
      SendArrowSilentWait(1, 100 + random(500));
      if(FindObjB(x,y,'Mine',OreColor,5))then
      begin
        if(not(FindGas(x,y)))then
        begin
          Mouse(x,y,4,4,true);
          if(FlagPresent)then
          begin
            Flag;
            Wait(500+random(500));
          end;
          MarkTime(SysTime);
          repeat
          if(not(FindColorSpiral(x,y,OreColor,210,130,300,220)))then
            Break;
          FindRandoms;
          Wait(500+Random(500));
          until(not(GetColor(109,430)=0)and(not(GetColor(195,426)=0)))or
          (TimeFromMark(SysTime)>=MaxWait*1000)
          MarkTime(NotStuckMark);
        end;
      end;
    end;


    //==================================Main Line=================================\\

    begin
    SetupSRL
    SetupSRLMining
    Setup;
    ActivateClient

    GetOreType;
    SetColors;
    FindColors;
    if(FindPickHeadColor)then
    begin
      MarkTime(NotStuckMark);
      MarkTime(RunMark);
      writeln('Map pick color: '+inttostr(MapPickColor)+' Map ore color: ')
      repeat
      TimedProcedures;
      DropIfNeeded;
      FindRandoms;
      Mine;
      Wait(100+random(50));
      until(false)
    end;
    end.

  11. #11
    Join Date
    Dec 2006
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm having problems the mouse makes circles then freezes up and stops

  12. #12
    Join Date
    Nov 2006
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wath i can tel line good but script is dumb... No anti rondoms thei dont work , script are old , nothing new antibans , no script hiding, and so one ... I dont tel eni one to download this script nothing good ...

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with dropping
    By dallas574 in forum OSR Help
    Replies: 3
    Last Post: 07-24-2008, 05:13 PM
  2. Replies: 13
    Last Post: 04-12-2008, 05:32 PM
  3. Issues with Dropping in Powerminer
    By Method in forum OSR Help
    Replies: 12
    Last Post: 09-04-2007, 12:02 AM
  4. Dropping help again....
    By RudeBoiAlex in forum OSR Help
    Replies: 3
    Last Post: 03-04-2007, 09:40 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
  •