SRL Archive - First Scripts

Hey there,

This is my first proper script :f: , and it's a power miner.
You can use this powerminer in: Dwarven Mines, both lummy mines, Varrock east and west mines and Rimmington mine.

The rocks available to power mine are: clay, copper, tin, iron, coal, gold, mith and adamant.

Features: find-randoms, anti-ban, random compass, declare players, running from fights, drop all and mine rocks. IMPORTANT: I couldn't figure out how to make it stop after a certain amount of loads. Basically you have to stop it yourself, and I wouldn't recommend letting it run for much more than one hour straight for risk of getting caught and banned. Remember all the usual ways of not getting caught macroing, e.g. don't use a lvl 3 char with default clothing.

Read setup instructions - very easy to use.

Please post any problems or feedback.

And thanks to all the people who answered my nooby :duh: questions while I was making it.

Enjoy!

:(h):

I'll check in this later.

1. Never capitalize bolded words in SCAR.
2. Use proper standards.
3. Use CamelBack for functions and procedures, eg. MakeCompass.
4. Use Mouse, not ClickMouse.
5. For true statements, don't include "=True", just use the variable, eg. if (InvFull), not if (InvFull=True).

Fixed:

{INSTRUCTIONS}
{Fill out declare players form.}
{Specify rock type and mine. - Scroll down to bottom and fill out where indicated.}
{ -Your rock and mine options to choose from are:

>  rimmington_Clay, rimmington_Copper, rimmington_Tin, rimmington_Iron, rimmington_Gold.  --- Rimmington is the mine.

>  varrock_Copper, varrock_Tin, varrock_Iron. --- Varrock east is the mine.

>  lumbridge_Copper, lumbridge_Tin, lumbridge_Coal, lumbridge_Mithril, lumbridge_Adamant. --- Mine closet to lummy for copper and tin.
                                                                                             Mine Under draynor for coal, mith and addy.

>  falador_Clay, falador_Copper, falador_Tin, falador_Iron, falador_Coal, falador_Mithril, falador_Adamant --- Dwarven mines.}

{-Be logged in to RS (low detail) wielding Pick and in the mine you specify with atleast one of the rocks you want to mine in view.}
{-Drag target onto RS and run script... happy autoing}

{----------------------------------Don't touch---------------------------------------------}
program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}

var
  x, y: integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
{------------------------------------Between these------------------------------------------}

  Players[0].Name := 'Username'; // Fill out here.
  Players[0].Pass := 'Password';// Here.
  Players[0].Nick := 'Nick';   // And here.
  Players[0].Active := True;
end;

///////////////////////////////////////////////////////////////////////////////////////
////////////////////////Dont touch below here except where indicated///////////////////
///////////////////////////////////////////////////////////////////////////////////////

procedure RunningFromFights;
begin
  FindNormalRandoms;
  if FindFight then
    RunAway('N', True, 1, 5000);
end;

procedure RandomCompass;
begin
  case Random(15) of
    1: MakeCompass('N');
    2: MakeCompass('E');
    3: MakeCompass('W');
    4: MakeCompass('S');
    5: SetAngle(True);
  end;
end;

procedure FindRandoms;
begin
    if not LoggedIn or not (Players[CurrentPlayer].Active) then
      NextPlayer(False);
    FindNormalRandoms;
    Wait(400)
    FindTalk;
    RunningFromFights;
    FindLamp('mining');
end;

procedure AntiBan;
begin
  case Random(20) of
    0: RandomRClick;
    1: BoredHuman;
    2: HoverSkill('mining', False);
  end;
end;

begin
  SetupSRL;
  DeclarePlayers;
  repeat
    Mousespeed := 15
    DropAll;
    repeat
      LoadRockRecords;
      FindObjRock(x, y, rimmington_Iron);//<-----------------Specify rock type and mine here. Choose from list in INSRUCTIONS.
      Mouse(x, y, 3, 3, True);//                                       MUST be spelt CORRECTLY!!
      FindRandoms;
      AntiBan;
      RandomCompass;
      Wait(3000+random(2000));
    until (InvFull);
  until False;
end.

how does it know which mine your at?

It doesn't need to know which mine you're at.

It's a powerminer. It looks for the colors.

Looks good and yeah what thevoiceinyourhead said dont use clickmouse…very good for different locations though…good job for first script :)


if you can please add in a proggy report cuz i will gladly test & post proggies!

Yeah add an proggie report :f: Ill test it soon good work for a first script :f:

Very good for first scrip :) I will take it :P

From: Nytratas
Very good for first scrip :) I will take it :P

LEECHER!!!!!!! LOLZ….ever heard of posting feedback?

I like it its pretty good! I would suggest adding anti randoms, other than that i did it for about a half hour until sandwich lady came :P

Oh ya! and definately find gas stuff. Broke my pick twice

It drops your pick, becuase i use it in my inventory (skiller) please solve