Results 1 to 19 of 19

Thread: StreX's PowerMiner.

  1. #1
    Join Date
    Mar 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default StreX's PowerMiner.

    It's a very simple script.. Made by using tutorials ><
    Tried to mine irons in gnome tree mining place. Worked good ^^

    If anyone got time and want to teach me how to add randoms and other stuff i would appreciate it ^^ tell me your msn if you got free time :P

    ANTI RANDOMS ARE FROM WT-Fakawi. All cretits for it goes for him!

    For those who are lazy to download :P :

    SCAR Code:
    //////////////////////////////////////////////////////////////////////////////////////////////////////
                //                                                                                                  //
               //   This is first script by StreX :)                                                               //
              //    Its a Power Miner for "Old style" ores in Gnome Tree mining place                             //
             //     I will update him as soon as i learn a bit more about scar scripting :P                      //
            //      ANTI RANDOMS ARE FROM WT-Fakawi. All cretits for it goes for him!                           //
           //                                                                                                  //
          //         CREDITS:                                                                                 //
         //                    WhoCares357 - for teaching for to script :P                                   //
        //                     WT-Fakawi - for anti randoms :P                                              //
       //                      NocKme - for helping creating the script and being a good friend :D         //
      //                       Me - for creating the script :D                                            //
     //                        mat_de_b - for helping to fix the script :)                               //
    //////////////////////////////////////////////////////////////////////////////////////////////////////

    //                        SETUP!
    //            Log in.
    //            Have a pickaxe equiped.
    //            Pick ore color. [27th line]
    //            Write how many loads you want.  [26th line]
    //            Set RS window.
    //            Hit Run Script!
    //
    //
    program StreXPowerIronMiner;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Mining.scar}

    var Clicks: Integer;
    i: Integer;
    x,y: Integer;
    Loads: Integer;
    Thank: Integer;
    const
     c = 1; // How many loads you want.
     color1 = 2503250; // color of the ore.

    function FindFastRandoms: Boolean; // By WT-Fakawi.
    var
      i: Integer;
    begin
      for I := 1 to 11 do
      begin
        case I of
           1:  if FindDead then
                begin
                Result := True;
                 wait(200);
                 end;

           2:  if FindMod then
                 Result := True;

           3:  if FindMime then
                 begin
                Result := True;
                 wait(200);
                 end;

           4:  if FindMaze then
                 begin
                Result := True;
                 wait(200);
                 end;

           5:  if FindQuiz then
                 Result := True;

           6:  if FindDemon then
                 Result := True;

           7: begin
                 if NoGameTab then
                 begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   writeln('No GameTab');
                   wait(200);
                 end;
               end;

           8: begin
                if InBlack then
                begin
                  Result := True;
                  Players[CurrentPlayer].loc := 'InBlack';
                  writeln('InBlack');
                  wait(200);
                end;
              end;

           9 : if RC then
                 Result := True;

           10 : if clicktocontinue then
                 result := true;

           11 : if FindFight then
                  begin
                    Result := True;
                    RunTo('N', True);
                    Wait(15000 + random(5000));
                    Runback;
                  end;

           12: if FindTalk then
                 Result := True;
        end;
        Wait(1);
      end;
    end;

    procedure thanks;
     begin
      Writeln('Thanks for using StreX Power Miner 0.01 :) Hope you like it')
     end;


    procedure Proggy;
    begin
    ClearDebug;
       Writeln('              StreX Auto Miner 0.01 ^^');
        Writeln('                 Progress Report:            ');
        Writeln('  Have done ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('---------------------------------------------');
        Writeln('  Made ' + IntToStr(Clicks) + ' Clicks' + '        ');
        Writeln('   Please post proggy in my thread. Thank you.');

    end;

    procedure mining;
      begin
     ClearDebug;
     Findfastrandoms;
     thanks;

      repeat
          if(FindColor(x,y,color1,168,114,414, 316))then
          begin
            Mouse(x,y,5,5,true);


            wait(5000+random(250));
            Clicks:=Clicks+1;
          end;

      until(InvFull);
    end;
        procedure drop;
         Begin
          DropAll;
          Findfastrandoms;
          Loads:=Loads+1;
         end;
           begin
           SetupSRL;
             i:= 0;
          repeat
           i:= i + 1;
           mining;
           drop;
           Proggy;
     until(i >= c);
    end.

  2. #2
    Join Date
    Aug 2007
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    awesome!

    worked 4 me

  3. #3
    Join Date
    Mar 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for testing tomd741 :P
    Added antirandoms. From WT-Fakawi. Saw in one post somebody posted that i can use them as long as i give him credits ><. I hope he won't get angry ><
    Anyone want to post a proggy? ^^ or correct someting?

  4. #4
    Join Date
    Mar 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  5. #5
    Join Date
    Feb 2007
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm testing right now, ill post results in like 5 minutes.


    EDIT:
    Line 26: [Error] (15355:1): Duplicate identifier 'x' in script

    Any help?

  6. #6
    Join Date
    Aug 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    gained 4 mining lvls

  7. #7
    Join Date
    Mar 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  8. #8
    Join Date
    Aug 2007
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sometimes it picks ores up off the ground and no antiban

  9. #9
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    repeat
            if(FindColor(x,y,color1,168,114,414, 316))then
    MMouse(x,y,0,0);
    wait(100+random(50));
    Mouse(x,y,0,0,true);
    wait(5000+random(250));
    Clicks:=Clicks+1;
    until(InvFull);
    end;

    This must be changed to

    SCAR Code:
    repeat
          if(FindColor(x,y,color1,168,114,414, 316))then
          begin // a begin is needed here, because more than one line is after the if
            Mouse(x,y,5,5,true);  // Mouse will move to it and Click so MM isn't
                                         // needed, the randoms of 5,5 make it less likely
                                        // to be banned
            wait(5000+random(250));
            Clicks:=Clicks+1;
          end; // This end means that everythign inbetween is done only
                 //  if the if is true
      until(InvFull);
    end;

    hope this helped, and look up a tutorial on standards, just makes scripting a bit easier
    The truth finally came out...


  10. #10
    Join Date
    Mar 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  11. #11
    Join Date
    Aug 2007
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks good might try it in a while

  12. #12
    Join Date
    Sep 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    awsome script gained 6 mining lvls

  13. #13
    Join Date
    Mar 2007
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  14. #14
    Join Date
    Sep 2007
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    After a bit of smacking Scar around I got this to run.... properly. I only ran it for a few minutes and noticed it was way too fast in clicking from one rock to the next. Also, it missed dropping the whole left side of the inventory :/

    Looks like a pretty good start though. Just needs some minor tweaking

  15. #15
    Join Date
    Mar 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah true, clicks a bit too fast. Maybe an option to set how many times it clicks? Good job though and keep it up

  16. #16
    Join Date
    May 2007
    Posts
    36
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks.

  17. #17
    Join Date
    Jan 2007
    Location
    Skaville, Jamaica
    Posts
    1,117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by HighRoller21 View Post
    sometimes it picks ores up off the ground and no antiban
    Oh come on, it's his first script.

    Well done StreX.

    A very good first script..my first script never worked =[

  18. #18
    Join Date
    Feb 2007
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script im gonna test it

  19. #19
    Join Date
    Sep 2007
    Location
    Seattle
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    testing now!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [RS2][SRL 4] StreX's Powerminer.
    By strex in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 09-16-2007, 09:42 AM
  2. powerminer
    By tpm1164 in forum First Scripts
    Replies: 5
    Last Post: 07-15-2007, 12:41 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
  •