Results 1 to 6 of 6

Thread: [srl4] Corl45's Power miner

  1. #1
    Join Date
    Aug 2007
    Location
    Utah, U.S.A.
    Posts
    122
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [srl4] Corl45's Power miner

    this is my power miner, its my 2nd script. it not to complicated.
    here is a proggie i made:
    ~~~~~~~Corl45s Auto miner~~~~~~~~~~~~~~~~
    |time ran: 0:8:6
    |old mining lvl: 26
    |new mining level: 27
    |Loads done: 2
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


    if you dont want to download.....
    SCAR Code:
    program Corl45spowerminer;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Mining.scar}
    //**************************corl45's Power miner!***********************
    {1.LOG ON to your guy
     2.have pick weilded or un-weilded (if it is not. it wont drop 2 extra ores)
     3.it doesnt drop last row, i think its srl not me
     4. set color, loads, random time, and wait time.
     --------------------------------------------------------------------------------
     i plan on addid 2 or colors (two ores)

     if it cant find the color, it will freeze, so if he mines to fast it will freeze
     for now, just pause and un-pause and it should work (if ore came back)
     this only works with old rocks (non-dirt covered); i tested in dwafen mine.
     _=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=_=

     Thanks to:
     streX for giveing me the idea of a power miner.
     Srl team

    }

    //*************************User Defines***********************************************************
    //<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
    const
    color1 = 2832734;// color of ore you will be mining
    // ^current, iron. you might need to chose color every time you get on(even if you save)
    loadstodo = 5;// how many load before scrip terminates
    waitore = 10000;//how much time to wait before clicking on next ore(in miliseconds)
    randomtime = 500;//random time added to wait (in miliseconds)
    //<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
     //***************************END USER DEFINES****************************************************






    var
    oldlvl: Integer;
    currentlvl: Integer;
    H: Integer;
    M: Integer;
    S: Integer;
    i: Integer;
    x,y: Integer;
    loads: Integer;
    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 progress;
    begin
    ConvertTime(gettimerunning, H, M, S)
    writeln('~~~~~~~Corl45s Auto miner~~~~~~~~~~');
    writeln('|time ran:  ' + inttostr(H) + ':' + inttostr(M) + ':' + inttostr(S));
    Writeln('|old mining lvl:  ' + IntToStr(oldlvl));
    Writeln('|new mining level:  ' + IntToStr(Currentlvl));
    Writeln('|Loads done:  ' + IntToStr(Loads));
    writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    end;


    procedure miner;
    begin
    Findfastrandoms;
     repeat
      if(FindColor(x,y,color1,4,28,517, 336))then//168,114,414, 316
       begin
         Mouse(x,y,5,5,true);

         wait(waitore+random(randomtime));
         end;
      until(InvFull);
      end;

    procedure drop;
      begin
          Dropall;
          Findfastrandoms;
          Loads:=Loads+1;
      end;



    begin
      ActivateClient;
      SetupSRL;
      cleardebug;
      i:=0;
      ORECOLOR1:=0
        ORECOLOR2:=0
        ORECOLOR3:=0
        ORECOLOR:=0
        oldlvl:= GetSkillLevel('Mining');
      repeat
       currentlvl:= GetSkillLevel('Mining');
       progress;
       i:= i + 1;
       miner;
       drop;
       until(i >= loadstodo);
    end.

    all anti randoms go to WT-Fakawi.

  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    ORECOLOR1:=0
        ORECOLOR2:=0
        ORECOLOR3:=0
        ORECOLOR:=0

    What happened here?
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  3. #3
    Join Date
    Aug 2007
    Location
    Utah, U.S.A.
    Posts
    122
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i did that so the dumb [hint] orecolor1-3 not used in script mining
    and it opens up mining 3 times. its very annoying

  4. #4
    Join Date
    Jul 2007
    Posts
    44
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Says "No GameTab", but there is

  5. #5
    Join Date
    Aug 2007
    Location
    Utah, U.S.A.
    Posts
    122
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

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

    Default

    it didn't find my pick head and i lost a rune pick

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [SRL4][Reflection] Rimmington AnyThing Miner
    By noidea in forum RS3 Outdated / Broken Scripts
    Replies: 106
    Last Post: 03-03-2009, 02:32 PM
  2. corl45's Power miner (2nd script)
    By corl455 in forum First Scripts
    Replies: 31
    Last Post: 01-05-2008, 07:08 AM
  3. Vap0urs Power Chopper [SRL4]
    By Vap0ur in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 10-23-2007, 01:54 AM
  4. plz someone make a guild Miner for srl4
    By d35th-bullet in forum RS3 Outdated / Broken Scripts
    Replies: 7
    Last Post: 09-01-2007, 10:30 PM
  5. [Beta] [RS2] [SRL4] TGWGO's Power Chopper!
    By TheGuyWhoGotOn in forum RS3 Outdated / Broken Scripts
    Replies: 52
    Last Post: 08-24-2007, 08:35 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
  •