Results 1 to 4 of 4

Thread: [RS2][SRL 4] StreX's Powerminer.

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

    Default [RS2][SRL 4] StreX's Powerminer.

    It's my first script :P It's simple but working..

    Tried to mine irons in gnome tree mining place. Worked good ^^

    ++++++++++++++++++++++++++++++++++++++++++++++++++ +

    CREDITS :
    WT-Fakawi - For anti randoms.. All credits for anti randoms goes for him!
    NocKme - For helping to create the script and being a good friend ^^.
    Me - For creating the script.
    WhoCares357 - for teaching for to script :P
    mat_de_b - for helping to fix the script

    ++++++++++++++++++++++++++++++++++++++++++++++++++ +

    FUTURE UPDATES ~~ (will update as soon as I get some time ^^

    Gonna add logining in;
    Will add Form aswell.. But when i will learn a bit more about scripting ;
    Anti bad;
    Some other srl procedures.

    ++++++++++++++++++++++++++++++++++++++++++++++++++ +

    If you got any problems, suggestions, how to fix something, please tell me here on PM me ^^ (as I said, I'm still an amateur on scripting)

    Post progress if not hard!

    ++++++++++++++++++++++++++++++++++++++++++++++++++ +

    For those who are lazy to download :P

    Script:
    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('  did ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('---------------------------------------------');
        Writeln('  Did ' + 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.

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

    Thank you, StreX ^^

  2. #2
    Join Date
    Sep 2007
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Good try it after school.
    http://www.AWSurveys.com/HomeMain.cfm?RefID=Jble

    I have made here 20 euros in few day and got it out already plus you get 1.25 euros for any friend u refer, great way to get cash so u can buy mills or memberships

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

  4. #4
    Join Date
    Apr 2007
    Posts
    57
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    works great

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. StreX's PowerMiner.
    By strex in forum First Scripts
    Replies: 18
    Last Post: 09-14-2007, 03:48 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
  •