SRL Archive - Archive

fyi101 - SRL Member Application Form
fyi101

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
sythe forums

Programming Knowledge
Java, C++

Other Communitys
Sythe, Fagex

How Long have You Played Runescape
Five years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I've been in botting and RWT for several years now. I even signed up over here a year or so ago and was ready to get started. . . it just so happened that I found a program called mmoglider at that time. Since then I've been working with custom classes and scripts for the WoW bot, but with the impending lawsuit I think its a good time to remove myself from that mess. I think this community is much more respectful and supportive and I'd like to start transitioning over here as soon as possible.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program UBERMINER;
{.include SRL/SRL/Misc/Smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}

{\/\/\/\/\/\/\/\/\/\/\/\/\/\/\ÜBERMINER\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
{\/\/\/\/\/\/\/\/\/\/\/\/\/Created by fyi101\/\/\/\/\/\/\/\/\/\/\/\/\/}

var
x, y, IronOre, Loads, FailSafe: integer;
OreFound: Boolean;

{~~~~~~~~~~~~~~~~~~~~~~~~~JUST EDIT THIS~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
//This script assumes you have followed Markus's guide to setting up smart.
//Set this up in the East Varrock mine, by the iron ore.

procedure DeclarePlayers;
begin

  RoadColor := 8620941; //Color pick the road to varrock.

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.

  Players[0].Name := 'UserName';
  Players[0].Pass := 'Password';
  Players[0].Nick := 'Nick';  //First 3-4 letters of your name after the first
  Players[0].Active := True;
  Players[0].Integers[0] := 999;  //Loads
  Players[0].Integers[1] := 0; //Bank Pin, if n/a leave at 0
  Players[0].Booleans[0] := False; //If set to true, will bank
{
  Players[1].Name := 'UserName';
  Players[1].Pass := 'Password';
  Players[1].Nick := 'Nick';
  Players[1].Active := False;
  Players[1].Integers[0] := 999;  //Loads
  Players[1].Integers[1] := 0; //Bank Pin, if n/a leave at 0
  Players[1].Booleans[0] := True; //If set to true, will bank

  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := 'Nick';
  Players[2].Active := False;
  Players[2].Integers[0] := 999;  //Loads
  Players[2].Integers[1] := 0; //Bank Pin, if n/a leave at 0
  Players[2].Booleans[0] := True; //If set to true, will bank

  Players[3].Name := 'UserName';
  Players[3].Pass := 'Password';
  Players[3].Nick := 'Nick';
  Players[3].Active := False;
  Players[3].Integers[0] := 999;  //Loads
  Players[3].Integers[1] := 0; //Bank Pin, if n/a leave at 0
  Players[3].Booleans[0] := True; //If set to true, will bank

  Players[4].Name := 'UserName';
  Players[4].Pass := 'Password';
  Players[4].Nick := 'Nick';
  Players[4].Active := False;
  Players[4].Integers[0] := 999;  //Loads
  Players[4].Integers[1] := 0; //Bank Pin, if n/a leave at 0
  Players[4].Booleans[0] := True; //If set to true, will bank

  Players[5].Name := 'UserName';
  Players[5].Pass := 'Password';
  Players[5].Nick := 'Nick';
  Players[5].Active := False;
  Players[5].Integers[0] := 999;  //Loads
  Players[5].Integers[1] := 0; //Bank Pin, if n/a leave at 0
  Players[5].Booleans[0] := True; //If set to true, will bank
}
end;

{~~~~~~~~~~~~~~~~~~~~~~~~~~~~STOP HERE~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}



Procedure Mining;
begin
  Writeln('Spotted possible vein.');
  Mouse(x, y, 0, 0, true);
  Writeln('Ore mined successfully.');
end;

Procedure MineToBank;
begin
  Writeln('Headed to bank.');
  Wait(1000+Random(300));
  RadialRoadWalk(RoadColor,0,90,72,0,-1);
  Wait(1000+Random(300));
  RadialRoadWalk(RoadColor,0,10,72,0,-1);
  Wait(1000+Random(300));
  RadialRoadWalk(RoadColor,310,360,72,0,-1);
  Wait(1000+Random(300));
  RadialRoadWalk(RoadColor,270,340,72,0,-1);
  Wait(1000+Random(300));
  RadialRoadWalk(RoadColor,260,315,72,0,-1);
  Wait(1000+Random(300));
  SymbolAccuracy := 0.5;
  FindSymbol(x, y, 'bank');
  SymbolAccuracy := 0.8;
  MoveMouseSmoothEx(x, y, 1, 3, 45, 20, 10);
  Wait(300+Random(300));
  ClickMouse(x, y, true);
  Wait(1000+Random(300));
  FindColor(x, y, 7176069, 5, 165, 509, 232);
  MoveMouseSmoothEx(x, y, 1, 3, 45, 20, 10);
  ClickMouse(x,y,false);
  if(ChooseOption('Use-quickly')) then
  begin
    ChooseOption('Use-quickly');
  end else
  begin
    MoveMouseSmoothEx(284, 257, 1, 3, 45, 20, 10);
    Wait(300+Random(300));
    ClickMouse(x, y, true);
    OpenBankQuiet('veb');
  end;
  if(PinScreen ) then
    InPin(inttostr(Players[CurrentPlayer].Integers[1]));
  FindDTM(IronOre, x, y, 554, 207, 732, 461);
  MoveMouseSmoothEx(x, y, 1, 3, 45, 20, 10);
  Wait(1000+Random(500));
  ClickMouse(x, y, False);
  Wait(500+Random(500));
  ChooseOption('Store All');
  Writeln('Stored all ores.');
  CloseBank;
  Writeln('Exited Bank,');
end;

Procedure BankToMine;
begin
  Writeln('Headed to mine.');
  RadialRoadWalk(RoadColor,30,100,68,0,-1);
  Wait(1000+Random(300));
  RadialRoadWalk(RoadColor,90,100,68,0,-1);
  Wait(1000+Random(300));
  RadialRoadWalk(RoadColor,170,190,68,0,-1);
  Wait(1000+Random(300));
  RadialRoadWalk(RoadColor,160,200,68,0,-1);
  Wait(1000+Random(300));
  RadialRoadWalk(RoadColor,150,200,68,0,-1);
  Wait(1000+Random(300));
  RadialRoadWalk(RoadColor,150,200,40,0,-1);
  Wait(1000+Random(300));
  SymbolAccuracy := 0.5;
  FindSymbol(x, y, 'mining spot');
  SymbolAccuracy := 0.8;
  MoveMouseSmoothEx(x, y, 1, 3, 45, 20, 10);
  Wait(300+Random(300));
  ClickMouse(x, y, true);
  Writeln('Returned to mine.');
end;

procedure AntiBanProcedure;
begin
  if(not(LoggedIn))then
  Exit;
  case Random(8) of

  0: PickUpMouse;

  1: AlmostLogout;

  2: RandomMovement;

  3: Wait2(30000+Random(30000), True);

  4: HoverSkill('mining', False);

  5: HoverSkill('hitpoints', False);

  6: TypeSend('Mining levels?');

  7: ArrangeInv;

  end;
end;

Procedure Dropping;
begin
  repeat
    FindDTM(IronOre, x, y, 554, 207, 732, 461);
    MoveMouseSmoothEx(x, y, 1, 3, 45, 20, 10);
    Wait(500+Random(200));
    ClickMouse(x, y, False);
    Wait(500+Random(200));
    ChooseOption('Drop');
    Wait(500+Random(200));
  until(FindDTM(IronOre, x,y, 554, 207, 732, 461)) = False;
  Writeln('All ore dropped.');
end;

begin
  SetupSRL;
  ActivateClient;
  IronOre:=DTMFromString('78DA637461626078CC8002DCB515C0342394C' +
       'FE80F54731F554D5B8E0FAA1A77A09A3BA86ABCF59450D59801D5' +
       '3C455363AB85AAC60EA8E623AA9ADC085B54357E40356F50D5182' +
       '8A0BA19004FFB0BA4');
  SetupMining;
  DeclarePlayers;
  LoginPlayer;
  repeat
    repeat
      OreFound:=False;
      FailSafe:=0;
      repeat
        FailSafe:= Failsafe + 1
        If(FindObjTPA(x, y, 2371661, 7, 2, 2, 2, 3, ['ine'])) then
          OreFound:=True;
        if(FailSafe=100) then
        begin
          Logout;
        end;
      until(OreFound);
      Mining;
      if (GasFound(x, y) = true) then
      begin
         Mouse(250, 250, 10, 10, true);
         Wait(20000+Random(5000));
      end;
      FindNormalRandoms;
      Wait(2500+Random(500));
    until(invfull);
    if(Players[CurrentPlayer].Booleans[0]=False) then
    begin
      Dropping;
    end else
    begin
      MineToBank;
      BankToMine;
    end;
    Loads := Loads + 1;
    if(Loads=Players[CurrentPlayer].Integers[0])then
    begin
      NextPlayer(True);
      Loads:=0;
      MakeCompass('N');
      Writeln('Switched players successfully!');
    end else
      AntiBanProcedure;
  until(false);
end.

:spongebob: omg

i know you DIDNT make this…

you just copied pasted procs….. and tried to make it complex

Procedure Mining;
begin
  Writeln('Spotted possible vein.');
  Mouse(x, y, 0, 0, true);
  Writeln('Ore mined successfully.');
end;

NO please learn how to script by reading TUTS !

THERES NO DTM why did you say finddtm(blabhalbabhalba);

The fact he goes from Mouse to ClickMouse makes me think this needs a banhammer/delete + warn

Okay, first of all:

 IronOre:=DTMFromString('78DA637461626078CC8002DCB515C0342394C' +
       'FE80F54731F554D5B8E0FAA1A77A09A3BA86ABCF59450D59801D5' +
       '3C455363AB85AAC60EA8E623AA9ADC085B54357E40356F50D5182' +
       '8A0BA19004FFB0BA4');

And I'm sorry if it was too simplistic by your standards, but it is original.

I'm sorry fyi but this just doesn't make SRL-Member standards. You need

• Multiplayer
• Anti-ban
• Failsafes
• Walking
• Good use of TPA's is helpful
• Demonstrate a good knowledge of SRL and SCAR

Among other things before you re-apply. Browse around tutorial island for a while and hopefully you'll learn enough to make it into Members next time.

Would you guys prefer I script something else for my next go then? It seems people didn't take to well with the iron miner.

I'd love to hear any suggestions.

Read my tut(and what Special Ed said). So little use of SRL. Try in a month.

Don't be disappointed. There is always next time :)
Stick around and read some tuts.

Closed.