Results 1 to 10 of 10

Thread: Tex's mining script..

  1. #1
    Join Date
    Sep 2007
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Tex's mining script..

    The mining script is awesome.. But it has one problem for me.. it doesn't drop the ores when the inventory is full, like the script is supposed to.. It also doesn't show me the Progress log.. thanks

    SCAR Code:
    //                        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 = 20; // How many loads you want.
     color1 = 5951; // 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;
                   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
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Try putting a wait before the until(InvFull)

    Also, it's StreX's powerminer, not Tex's.

    You should learn some basic scripting; just visit the Beginners' section of Tutorial Island.
    Interested in C# and Electrical Engineering? This might interest you.

  3. #3
    Join Date
    Sep 2007
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Putting a time before it didn't worked..

  4. #4
    Join Date
    Sep 2007
    Location
    Canada Eh
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You sure this is your script?

    EDIT: or you just misspelled tex

  5. #5
    Join Date
    Feb 2007
    Location
    Florida
    Posts
    460
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well I messed around with it and just deleted the Mining Include.

    Also the thanks: Integer was messing it up.

    Just tested this now and I ran it, Then it Mined 1 ore and lagged out.

    Last look at this script and all I can say is it's a right mess.

    SCAR Code:
    //                        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}

    var Clicks: Integer;
    i: Integer;
    x,y: Integer;
    Loads: Integer;

    const
     c = 20; // How many loads you want.
     Color =  8555; // 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;
                   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 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;
      repeat
          if(FindColor(x,y,Color,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
          DropTo(2,28);
          Findfastrandoms;
          Loads:=Loads+1;
         end;
           begin
           SetupSRL;
             i:= 0;
          repeat
           i:= i + 1;
           mining;
           drop;
           Proggy;
     until(i >= c);
    end.
    Varrock gTanner
    Previously known as England155.

  6. #6
    Join Date
    Sep 2007
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks alot! I will be testing it now

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

    Default

    Its still not working..

  8. #8
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Take ClearDebug out of the mining procedure if you want the reports to show up.
    Interested in C# and Electrical Engineering? This might interest you.

  9. #9
    Join Date
    Sep 2007
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I only want the dropping to work..

  10. #10
    Join Date
    Sep 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmmm ill try it on my guy and see if it works
    check out my fourm at

    www.rs2chat.co.nr
    get your scar scripts there.
    talk about runescape, music etc...
    its not a black market.
    you can set up ingame trades.

    lol

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Need Help With My Mining Script.
    By Claymore in forum OSR Help
    Replies: 4
    Last Post: 07-12-2008, 02:39 AM
  2. What kind of mining script do you want?
    By Runescapian321 in forum RS3 Outdated / Broken Scripts
    Replies: 13
    Last Post: 02-04-2008, 04:39 AM
  3. First Mining Script (Broke)
    By Geebly in forum First Scripts
    Replies: 5
    Last Post: 10-23-2007, 02:54 PM
  4. Looking for a Mining script or two
    By The Claw in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 04-24-2007, 05:33 PM
  5. Script for mining
    By Annighlater in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 03-27-2007, 09:59 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
  •