Results 1 to 24 of 24

Thread: [RS2][SRL]Arr0w's PowerMiner[SRL][RS2]

  1. #1
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [RS2][SRL]Arr0w's PowerMiner[SRL][RS2]

    Bassicly this this powermienr is an ok powerminer.

    Code:
    FEATURES
    *PickFinder
    *GasFinder
    *ProgressReport
    *Supports the new runescape interface
    And more.
    SCAR Code:
    {-------------------------- Arr0w's Powerminer --------------------------]
    [ To start this scipt fill the colors of the rock in the setup           ]
    [ Then start the script stand next to the rock you want to mine          ]
    [ Put your pick in first inv slot.                                       ]
    [                                                                        ]
    [   /\   |===\  |===\  /===\ |      |  /==\                              ]
    [  /  \  |  © | |  © | |   | |      | /                                  ]
    [ | ©  | |___/  |___/  | © | |      | \===\                              ]
    [ |====| |  \   |  \   |   | \  /\  /     /                              ]
    [ |    | |   \  |   \  \===/  \/  \/  \==/                               ]
    [                                                                        ]
    [ /==\ /===\ |      | |=== |===\  |    | ===== |   | |=== |===\          ]
    [ | ©| |   | |      | |    | ©  | |\  /|   |   |\  | |    |  © |         ]
    [ |__/ | © | |      | |==  |___/  | \/ |   |   | \ | |==  |___/          ]
    [ |    |   | \  /\  / |    |  \   |    |   |   |  \| |    |  \           ]
    [ |    \===/  \/  \/  |=== |   \  |    | ===== |   | |=== |   \          ]
    [                                                                        ]
    [------------------------------------------------------------------------]
    # ScriptName  = Anyore Powerminer!
    # Author      = Arr0w
    # Description = Mines any ore then drops them.
    # Authors Email = [email]Scott-_-bradford@hotmail.com[/email]
    # Date        = Published on the 10 october 2006
    # Comments    = Please post all Bugs/Corrections in this script's thread.
    }


    program PowerMiner;

    {.include SRL/SRL.Scar}
    {.include SRL/SRL/Skill/Mining.Scar}
    {.include SRL/SRL/Extended/xMapWalk.Scar}
    {.include SRL/SRL/Misc/Trade.Scar}

    //-=-=-=-=-=-=-=-=-=-=-=Setup=-=-=-=-=-=-=-=-=-=-=\\
    const
      RockColor = 7829376; // The color of the rock.
      RockColor1 = 7829376; // If the rock has 2 kind of colors find a different color from the top one.
      RunDirection = 'N'; // What direction to run if fight found?
      GenieSkill = 'Mining'; // What skill to use if genie is found?
      LoadsToDo = 50; // How many loads do you want to do?
      DisguiseScarAs = 'Google - FireFox'; // What do you want to disguise scar as?
      RandomTalking = True; // Do you want to random talk?
      TurnOffChats = False; // Do you want to turn off the chat?
      UserName = 'Pur3min3r44'; // This is required if you choose to keep chats on.
    //=-=-=-=-=-=-=-=-=-=-=End Of Setup=-=-=-=-=-=-=-=-=-=\\

    //NOTE: PUT A CAPiTAL AT THE BEGINING OF YOUR USERNAME.
    //NOTE: IF YOU HAVE RANDOMTALKING = TRUE THEN
    // YOU CANT HAVE CHATS OFF OTHERWISE THE SCRIPT WILL JUST GET CONFUSED.

    var
      gx, gy, Tradess, OresMined,
        Clay, OreMask, Loads: Integer;

    procedure Miner;
    begin
      Wait(100 + random(10));
      if (findcolorspiral(x, y, rockcolor, 3, 3, 515, 336)) or
        (findcolorspiral(x, y, rockcolor1, 3, 3, 515, 336)) then
      begin
        repeat
          Mmouse(x, y, 3, 3)
            Wait(200 + random(50));
          if (istextat2(x, y, 'ine', 5) = true) then
            wait(500 + random(50));
          Mouse(x, y, 2, 2, true)
            wait(1000)
        until (invfull)
          if (Invfull) = True then
          Loads := Loads + 1;
        OresMined := OresMined + 27
      end;
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure CantFindRocks;
    var
      WX, WY: integer;
    begin
      if (not (findcolorspiral(x, y, rockcolor, 3, 3, 515, 336))) or
        (not (findcolorspiral(x, y, rockcolor1, 3, 3, 515, 336))) then
      begin
        if FindSymbol(Wx, WY, 'mining site') then
        begin
          Mmouse(x, y, 3, 3)
            Mouse(x, y, 2, 2, true)
        end;
      end;
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure Randoms;
    begin
      TalkToRand;
      FindNormalRandoms;
      if (FindFight) then
      begin
        RunWhere(rundirection, false);
        Wait(10000 + random(200))
          RunBack;
      end;
      if (GasFound(gx, gy)) then
      begin
        RunWhere(rundirection, false);
        Wait(2000 + random(1000));
        RunBack;
        WriteLn('Waiting For Gas to Stop ..');
        Wait(10000 + random(2000));
      end;
      if (FindNewBox) then
      begin
        writeln('Found Strange Box Trying To Solve..')
          OpenBox;
        SolveBox;
        wait(1000);
      end;
      if (FindNewBox) then
      begin
        GambleNewBox;
      end;
      if (FindNewBox) then
      begin
        LogOut;
        Writeln('Unable To Solve Box....Terminating');
        TerminateScript;
      end;
      begin
        ItemGrab;
        FindPick;
        LoadSandArray;
        LoadSWBitMaps;
        SetupSandwich;
        ReleasesandWich;
        GetSandQuestion;
        SolveSandwich;
        SolveFrog;
      end;
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure WeAtMine;
    var
      WX, WY: Integer;

    begin
      if (not (FindSymbol(Wx, WY, 'mining site'))) then
      begin
        RunWhere('N', false)
          if (not (FindSymbol(Wx, WY, 'mining site'))) then
        begin
          RunBack;
          Flag;
          RunWhere('E', False)
            if (not (FindSymbol(Wx, WY, 'mining site'))) then
          begin
            RunBack;
            Flag;
            RunWhere('S', False)
              if (not (FindSymbol(Wx, WY, 'mining site'))) then
            begin
              RunBack;
              Flag;
              Runwhere('W', False)
                if (not (FindSymbol(Wx, WY, 'mining site'))) then
                WriteLn('We are defantly lost termInating script')
              TerminateScript;
            end;
          end;
        end;
      end;
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure LoadBitmaps;
    begin
      Clay := BitmapFromString(4, 4, '86714C89734D8B7650907A52978' +
        '1569781569A8357957E55A1895CA38B5D9F875B9C8559AC9262A8' +
        '8F60A58D5FA1895C');

      OreMask := BitmapFromString(11, 11, 'z78DA73730301033070436' +
        '2238B60024C35B84CC0A5923C13F0BB937813F0EB22DE04CC5022' +
        'CF04CADD404CC890EA0BFCE2F85D4E4C6A212FF470998FCC0600F' +
        'B599CC1');
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure DropOres;
    begin
      DwarfItem;
      ClickAllItemsBmpMaskTolWait('rop', OreMask, 20, 25, 30 + Random(30));
      ClickAllItemsBmpTolWait('rop', Clay, 10, 30 + Random(30));
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure ModSetRun(Run: Boolean);
    var
      WX, WY: Integer;
    begin
      GameTab(11);
      if Run then
      begin
        if (not (FindColorTolerance(WX, WY, 1711220, 663, 431, 665, 433, 5))) then
        begin
          Mouse(648, 431, 20, 20, true);
          Wait(100 + Random(100));
        end;
      end else
      begin
        if FindColorTolerance(WX, WY, 1711220, 663, 431, 665, 433, 5) then
        begin
          Mouse(648, 431, 20, 20, true);
          Wait(100 + Random(100));
        end;
      end;
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure ModRunTo(dir: string; runfar: Boolean);
    begin
      MakeCompass('N');
      ModSetRun(true);
      if (runfar) then
        case UpperCase(dir) of
          'N': MouseFlag(648, 83 - 63, 0, 0)
            'S': MouseFlag(648, 83 + 63, 0, 0)
            'E': MouseFlag(648 + 63, 83, 0, 0)
            'W': MouseFlag(648 - 63, 83, 0, 0)
        end;
      if (not runfar) then
        case UpperCase(dir) of
          'N': MouseFlag(648, 83 - 30, 0, 0)
            'S': MouseFlag(648, 83 + 30, 0, 0)
            'E': MouseFlag(648 + 30, 83, 0, 0)
            'W': MouseFlag(648 - 30, 83, 0, 0)
        end;
      Wait(6500);
      IdleTime(6000, 500, 1.0);
      if (runfar) then
        case Uppercase(dir) of
          'N': MouseFlag(648, 83 + 63, 0, 0)
            'S': MouseFlag(648, 83 - 63, 0, 0)
            'E': MouseFlag(648 - 63, 83, 0, 0)
            'W': MouseFlag(648 + 63, 83, 0, 0)
        end;
      if (not runfar) then
        case UpperCase(dir) of
          'N': MouseFlag(648, 83 + 30, 0, 0)
            'S': MouseFlag(648, 83 - 30, 0, 0)
            'E': MouseFlag(648 - 30, 83, 0, 0)
            'W': MouseFlag(648 + 30, 83, 0, 0)
        end;
      ModSetRun(False);
      GameTab(4);
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure ProgressReport;
    begin
      ChangeReportWidth(1);
      WriteLn('/===========================================\');
      WriteLn('| Thank You For Using Arr0w''s PowerMiner!  |');
      WriteLn('|===========================================|');
      WriteLn('Total Loads Done  : ' + IntToStr(Loads) + '! ');
      writeLn('Total Ores Mined  : ' + IntToStr(OresMined) + '!');
      writeLn('Total People Tryied To Trade With You : ' + IntToStr(trades) + '!');
      WriteLn('Made by Arr0w from moparisthebest.com        ');
      WriteLn('To see for a new version check moparisthebest');
      writeLn('<><><><><><><><><><><><><><><><><><><><><><><');
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure Trading;
    begin
      AcceptTrade;
      Wait(3000 + Random(100))
        Decline;
      Wait(100 + Random(101))
        SendText('No ty')
        SendKeysSilent(Chr(13));
      ChatsOff;
      Tradess := Trades + 1
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure ifchat;
    begin
      if FindChatText(UserName + '?') then
      begin
        SendText2('sorry i am a bit busy atm')
          SendText2(' Ill speak with you later')
          SendKeysSilent(Chr(13));
        Chatsoff;
      end;
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure Chats;
    begin
      if TurnOffChats = True then
      begin
        ChatsOff;
      end;
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    procedure Randomchats;
    begin
      if TurnOffChats = False then
        if RandomTalking = True then
        begin
          RandomChatEvery(10000 + random(10));
        end;
    end;

    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-Main Loop-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
    //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\

    begin
      DisguiseScar(DisguiseScarAs);
      ClearDebug;
      SRLRandomsReport;
      ActivateClient;
      SetupSRL;
      SetupSrlMining;
      LoadMiningBitmaps;
      Chats;
      ModSetRun(true);
      FindPickHeadColor;
      repeat
        WeAtMine;
        CantFindRocks;
        Miner;
        Wait(500 + random(56));
        Randoms;
        DropOres;
        Ifchat;
        Trading;
        Randoms;
        Randomchats;
        ProgressReport;
      until (loads = LoadsToDo)
        if loads = loadstodo then
        openwebpage('http://www.moparisthebest.org/smf/index.php/topic,27040.0.html')
    end.

  2. #2
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Leave feedback please.

  3. #3
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    please post some comments.

  4. #4
    Join Date
    Mar 2006
    Posts
    509
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    please dont triple post. When people see this and test it im sure you will get feedback
    Currently Working on: Its a Secret
    WSP!! <3 bebe

  5. #5
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sorry

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

    Default

    i get this error C:\Program Files\SCAR 2.03\includes\SRL/SRL/Extended/xMapWalk.Scar does not exist.

  7. #7
    Join Date
    Aug 2006
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    subzero, get the correct version of SRL

  8. #8
    Join Date
    Oct 2006
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok i did that and now i get

    Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL.scar does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL/Skill/Mining.Scar does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL/Extended/xMapWalk.Scar does not exist.
    Failed when compiling

  9. #9
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you msut of deleted the whole thign and didnt reinstall it properly.

  10. #10
    Join Date
    Mar 2006
    Posts
    509
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah reinstall SRL's folder into the include folder of scar 2.03 and it will work
    Currently Working on: Its a Secret
    WSP!! <3 bebe

  11. #11
    Join Date
    Oct 2006
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok thanks guys

  12. #12
    Join Date
    Oct 2006
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok now when i reinstall it i get this

    C:\Program Files\SCAR 2.03\includes\SRLv340.rarCRC failed in includes\ SRL \ SCAR Browser\ SCAR Browser.exe the file is corrupt

    and this

    C:\Program Files\SCAR 2.03\includes\SRLv340.rar unexpected end of archive.

    Ok how come scar isnt as easy as it use to be i rember all i had to do was find script get colors and then im done

  13. #13
    Join Date
    Sep 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    That's usually your download being interrupted. Redownload.


    Wow. I've been away quite a while. Real life, yea, way unpredictable. Sorry, y'all, if I've caused any inconvenience.

  14. #14
    Join Date
    Oct 2006
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok after i redownloaded i get this

    Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL.scar does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL/Skill/Mining.Scar does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL/Extended/xMapWalk.Scar does not exist.

  15. #15
    Join Date
    Sep 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by subz3r0 View Post
    ok after i redownloaded i get this

    Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL.scar does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL/Skill/Mining.Scar does not exist.
    Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL/Extended/xMapWalk.Scar does not exist.
    http://www.villu-reborn.com/showthread.php?t=3410

    You didn't read too carefully, I take it?


    Wow. I've been away quite a while. Real life, yea, way unpredictable. Sorry, y'all, if I've caused any inconvenience.

  16. #16
    Join Date
    Oct 2006
    Posts
    50
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok what the fuck it worked for 5 hours then i came back home and was gonna switch cahrs then i kepot on getting this [Runtime Error] : Exception: Canvas does not allow drawing in line 105 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\GameTab.scar

  17. #17
    Join Date
    Oct 2006
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It has problems with the box random, I didnt get the message it gave. But it was something like runtime error bleh something about C:\Program Files\SCAR203\includes\SRL\SRL\core\AntiRandoms.sc ar I dont know, it just screws up and stops completely.

  18. #18
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Re install your SRL...

    And if your comp is not enough good for Boxsolver

    Go to

    SRL/Core/Antirandoms.Scar

    UseBoxSolver = False;

    Then it will use Gamblebox;


    ~Home

  19. #19
    Join Date
    May 2006
    Location
    Canada
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice is this your first script?

    I'll get you a pregress report asap

  20. #20
    Join Date
    Oct 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey i finaly got around to using it and i like its smoothness and it works ..... except for one small thing

    it only mines 1 ore and drops 1 at a time i think that its a bit unnesesarry to do so much and besides i think that such a high rate of repetition is a bit attention grabing im not a scripter....yet... so if u coild tell me how to change it so it mines like 20 ores first then starts droping them, that way i can get it workin for a while long enought to print u a report or something

    thx

    Edit Problem Solved with new release thx

  21. #21
    Join Date
    Oct 2006
    Location
    England
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    majorly updated i have updated it a few times jsut frgot to update it here sorry.

  22. #22
    Join Date
    Oct 2006
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey arrow

    how do i change the time it clicks on the rock cuz its clicking every 1second and its too much clicking i tried changin some of the values but it still goues clik crazy and sometimes it will just sit there like "scanning" an area or something

  23. #23
    Join Date
    Jan 2007
    Location
    Ausrtalia, Melbourne
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Runtime Error] : Out Of Range in line 245 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\AntiRandoms\Sandwich.sc ar
    please help


    ehmm... dude.. sarcasim

  24. #24
    Join Date
    Aug 2007
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by the smith400 View Post
    please help
    its amazing how half the posts on these boards are spent on helping idiots like this, and still, we see these.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [Rs2][SRL]Arr0w's PowerMiner V3 With Forms!! Better Than Ever!![SRL][
    By Arr0w in forum RS3 Outdated / Broken Scripts
    Replies: 43
    Last Post: 12-03-2006, 09:31 AM
  2. [RS2]Arr0w's PowerMiner V2 Beta![RS2]
    By Arr0w in forum RS3 Outdated / Broken Scripts
    Replies: 16
    Last Post: 11-10-2006, 01:18 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
  •