SRL Archive - First Scripts

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 :

             //////////////////////////////////////////////////////////////////////////////////////////////////////
            //                                                                                                  //
           //   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.

awesome!

worked 4 me

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? :D

Anyone else tested it? :P:spot:

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?

gained 4 mining lvls :)

Any problems using it? :P Post progress please ^^

sometimes it picks ores up off the ground and no antiban :(

    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

  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

K, fixed :P thanks for help ^^

looks good might try it in a while

awsome script gained 6 mining lvls:f:

Progress please? :P ^^ No problems running it?

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 :D

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

Thanks.

From: HighRoller21
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 =[

Nice script im gonna test it :)

testing now!