SRL Archive - First Scripts

Well so many people have kept asking for this. I know thres one out, but this one is very simple!

item set up - Invent can be in any order in the top row apart from fally teleport tablet!
Bank only needs 2nd summoning item in 1st spot - ring of dueling etc doenst need to be there.






1st item in yout bank HAS to be 2nd item for summoning.

This Script was a flax picker converted into a iron miner converted into a blue dragon scale collector converted into a summoner.

it works well for me, done about 800k summoning xp in total, so bugs are worked out quiet well.

BTW: Im editing the script still - Adding on different anti-bans, sometimes it cant get down the trap door because someone else is on it, then a text will appear saying "we should be at tele spot" Fixing that bug now.

Enjoy… Plz Comment… 1st posted script. When I get SRL Membership ill upload my kick-ass Mort Myre Script :f:

[EDIT] small update. Adding Need procedure: PeteThong. Basically if it all goes petethong, its going to tele and rebank.

program JiBBerSuMMonEdMe;
{$i srl/srl/misc/smart.simba}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}

const
  SRLStats_User = ''; // Your SRL Stats ID (If you dont have one then just leave it as it is)
  SRLStats_Password = ''; // Your SRL Stats Password (If you dont have one then just leave it as it is)
Var
X, Y, T, W, Breaks, Loads: Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // This is set to the total amount of players,  for now, just keep it set as 1
  NumberOfPlayers(HowManyPlayers); // Don't touch
  CurrentPlayer := 0; // This is the player to start with; the first player will always be 0

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
  Players[0].Integers[1] := 200;//# of loads to do.
  Players[0].Integers[2] := 720; // Time before breaking ( In minutes)
end;

procedure SetupLogin;
begin
  ClearDebug;
  // Setting up SMART;
  Smart_Server := 9;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  SetupSRLStats(295, SRLStats_User, SRLStats_Password);
  DeclarePlayers;
  LoginPlayer; //  Logging in...
end;

procedure BreakTime;
var
s, i: Integer;
begin
  if (s = 0) then
    s := Players[0].Integers[2] * 60000; //+ RandomRange(300000, 600000);
  if T = 1 then
  begin
    W:= GetTimeRunning;
    if (W > s) then
    begin
      Logout;
      i:= RandomRange(10, 15);
      Writeln('Taking a break for ' + IntToStr(i) + ' minutes');
      i:= i * 60000;
      Wait(i);
      T := 0;
      s:= W + s;
      Inc(Breaks);
      LoginPlayer;
    end;
  end else
  if T = 0 then
  begin
    T := T + 1;
  end;

end;

procedure SetupSps;

begin
  SPS_Setup(RUNESCAPE_SURFACE, ['9_7','8_7']);
  SPS_Continue := false;
end;


procedure Antiban; //idea taken from Coh3n's tutorial.
begin
  if not (LoggedIn) then
    Exit;
  begin
    case Random(100) of // Random(100) generates a random integer from 0 to 59
      10: RandomRClick;
      30: PickUpMouse;
      50: RandomMovement;
      70: BoredHuman;
      89: ExamineInv;
    end;
  end;
end;

procedure RestUp;
begin
  if not (LoggedIn) then
    Exit;
  begin
    SetRest;
    while not RunEnergy(95) do
    begin
      Antiban;
      Wait(Random(1000));
    end;
  end;
end;

Procedure PeteThong;

var
Pt: TPointArray;
p, h:  integer;


begin;
      writeln ('petethong active');

  repeat
     if Bankscreen = False then
     wait(1000);
     p := 0 + 1;
     until BankScreen or (p = 10);
     writeln ('We Havnt Banked In 2 Minutes, Were Stuck');
     writeln('.... tele time.');
     writeln ('its all gone Pete Thong! ARRRHHH, Lets Restart');
     wait(2000)
     mousebox(690,222,710,227,1);
     writeln ('Please Say Where Back At Fally!')

     if not (LoggedIn) then
    Exit;
  if not FindNormalRandoms then
  begin
    MakeCompass('n');
    Wait(Random(1000));
    Pt     :=   [Point(3697, 3129), Point(3669, 3128),
                 Point(3642, 3139), Point(3618, 3158),
                 Point(3622, 3176)];
    if SPS_WalkPath(Pt) then
      Writeln('At Bank');
    Wait(RandomRange(1200, 1500));
  end;

begin
   If (findsymbol(x,y,'Bank')) then
    begin
    mouse(x,y,1,1,true);
    Writeln('Bank Found');
    wait(280+random(220));
    end else
    begin
    Writeln('Didnt Find Banker, After Searching Again!');
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'Going To Bank! We Found It';
    end;
end;
end;
procedure WithdrawBank; //Finding Bank Procedure

var
 Tr, Bo: integer;
 x, y: integer;

begin
  if FindNormalRandoms then   //finds randoms and if in random, logs out if
  if not LoggedIn then
  begin;
  end else
  makecompass('N');
  if BankScreen = false then
  begin

    writeln('Trying To Open Fally Bank...');
    MakeCompass('N');
    OpenBankFast('fwb');
    end;

  repeat
    wait(10);
    Tr := Tr +1;
  until (Tr = 1000) or (BankScreen = true);

  if BankScreen = True then
    begin
      Writeln('Bank successfully Opened');
      wait(1000 + random(1000));
      if BankScreen then
      begin
        Wait (200 + Random(300));
        FixBank;
      if (InvFull) then
        Mousebox(570, 260, 585, 265, 3);
        writeln('full invent');
        begin
          GetMousePos(x, y);
          Mouse(x, y, 0, 0, false);
          Wait(380 + random(50));
          ChooseOption('sit-All');
        end;
        ActivateClient;
      end;
         begin
    MouseBox(45, 100, 60, 113, 3);
    begin
      GetMousePos(x, y);
      Mouse(x, y, 0, 0, false);
      Wait(380 + random(50));
      ChooseOption('raw-All');
    end;
   end;
   begin
    MouseBox(45, 100, 60, 113, 3);
   end;
    end else
    if BankScreen = False then
      begin
      writeln('Fuck!');
        begin
        writeln ('Were Lost');
        writeln ('its all gone Pete Thong! ARRRHHH, Lets Restart');
        writeln('Going to Tele!');
        mousebox(690,222,710,227,1);
        end;
      end;
      CloseBank;
end;
function Walking(Color, Tolerance: Integer; SortFrom: tpoint): Boolean;// credit to Camaro' for the tutorial and function!
var
  i, x, y, rx, ry: Integer;
  TPA: TPointArray;
begin
  if not LoggedIn then Exit;
  FindNormalRandoms;
  FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color, MMX1, MMY1, MMX2, MMY2, Tolerance);
  SortTPAFrom(TPA, SortFrom);

  for i := 0 to High(TPA) do
  begin
    x := TPA[i].x;
    y := TPA[i].y;

    rx := RandomRange(-6, 6);
    ry := RandomRange(-6, 6);
    if (not rs_OnMinimap(x + rx, y + ry)) then
      Continue;

    Mouse(x + rx, y + ry, 0, 0, true);
    FFlag(0);
    Wait(200 + Random(500));
    Result := True;
    Break;
  end;
end;

procedure WalkToStore;
var
BankToStore: TPointArray;

begin
  if not (LoggedIn) then
    Exit;
  if not FindNormalRandoms then
  begin
    if not RunEnergy(25) then
      RestUp;
    MakeCompass('n');
    Writeln('Walking to Taverly Summoning Store...');
    Wait(Random(1000));
    BankToStore :=  [Point(3615, 3174), Point(3617, 3156), Point(3640, 3148),
                    Point(3649, 3129), Point(3681, 3125), Point(3698, 3103),
                    Point(3699, 3065), Point(3701, 3029), Point(3694, 3004),
                    Point(3665, 2982), Point(3642, 2964), Point(3638, 2946),
                    Point(3633, 2919), Point(3627, 2886), Point(3617, 2855),
                    Point(3593, 2847), Point(3583, 2847)];
    if SPS_WalkPath(BankToStore) then
      Writeln('Near The Gate?');
    Wait(RandomRange(1200, 1500));
  end;
end;
procedure Summoningsymbol;
var
x,y:integer;

begin
   If (findsymbol(x,y,'summoning store')) then
    begin
    mouse(x,y,1,1,true);
    Writeln('Summoning Store Found');
    wait(280+random(220));
    end else
    begin
    Writeln('Summoning Store Not Found');
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'Walking to Summoning Store';
    PeteThong;
    end;
end;
procedure CheckGate;
var
x,y:integer;

begin
     if (findobjcustom(x,y,['lose'],[8420225,8354175,7959417],5)) then
      begin
        Writeln('Gate Open');
        Summoningsymbol;
      end else
      begin
        Mouse(x,y,1,1,true);
        Writeln('Gate Closed - Opening Gate');
        wait(500+ random(250));
        summoningsymbol;
      end;
end;
procedure findTD;
var
x,y,t:integer;

begin
    t:=t+100;
    if (findobjcustom(x,y,['pen','limb'],[855309, 921102, 798517],5))then
    begin
      Writeln('TrapDoor found');
      movemouse(x,y);
      If(WaitUptext('Open', 300)) then
        begin
          Mouse(x, y, 0, 0, true);
        repeat
          wait(t);
        until (not IsMoving)
          wait(300);
          mousebox(232,154,251,152,1);
        end else
        If(WaitUptext('Climb', 300)) then
          begin
            Mouse(x, y, 0, 0, true);
          end;
      end;
end;
procedure TrapDoor;
var
 x,y,t: integer;

begin
repeat
wait(t);
until (Not isMoving)
Writeln('Trying to Find TrapDoor');
if FindNormalRandoms then
  if not LoggedIn then
  begin
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'Inactive.';
    Exit;
  end else
    t:=t+1000;
    Makecompass(115+random(5));
    wait(1000 + random(500));
  repeat
    wait(t);
  until (Not IsMoving)
    if (Findcolortolerance(x,y,859681,MSX1,MSY1,MSX2,MSY2,30)) then
    begin
      findTD;
    end else
    begin
      summoningsymbol;
      repeat
      wait(t);
      until (Not IsMoving)
      findTD;
    end;
end;
procedure findob;
var
x,y,t:integer;

begin
    t:=t+100;
    if (findobjcustom(x,y,['pen','limb'],[855309, 921102, 798517],5))then
    begin
      Writeln('TrapDoor found');
      movemouse(x,y);
      If(WaitUptext('Open', 300)) then
        begin
          Mouse(x, y, 0, 0, true);
        repeat
          wait(t);
        until (not IsMoving)
          wait(300);
          mousebox(232,154,251,152,1);
        end else
        If(WaitUptext('Climb', 300)) then
          begin
            Mouse(x, y, 0, 0, true);
          end;
      end;
end;
procedure MakePouch;

var
  x,y,c,t,a,b:integer;

begin
if FindNormalRandoms then
  if not LoggedIn then
   begin
    Players[CurrentPlayer].Active := False;
    Players[CurrentPlayer].Loc := 'Inactive.';
    Exit;
   end else
    c := 105 + random(30);
    makecompass(c);
  repeat
    wait(t);
    t := t+1;
  until (not IsMoving) or (t>=1000)
    wait(1000 + random(500));
    if (findobjcustom(x,y,['nfuse','ouch'],[2389103, 2058596, 2058082,1992032],5)) then
      begin
        writeln('Obelisk Found');
        movemouse(x,y);
        wait(500+ random(250));
        mouse(x,y,0,0,true);
        repeat
          wait(t);
        until (Not IsMoving)
        if (findcolor(a,b,105157,200,35,210,45)) then
          begin
            Mousebox(50,71,75,80,3);
            GetMousePos(x, y);
            Mouse(x, y, 0, 0, false);
            Wait(1000 + random(50));
            ChooseOption('use-All');
            Wait(1200 + random(730));
            writeln ('made Pouch, Teleing');
            Wait(800 + random(600));
            mousebox(690,222,710,227,1);
          end else
          begin
            Writeln('Checkbox not toggled - Toggling Checkbox');
            wait(200);
            Mousebox(200,35,210,45,1);
            Mousebox(50,71,75,80,3);
            GetMousePos(x, y);
            Mouse(x, y, 0, 0, false);
            Wait(1000 + random(50));
            ChooseOption('use-All');
            Wait(1000 + random(500));
            mousebox(690,222,710,227,1);
          end;
      end;
end;
procedure BacktoBank;  //Sps
var
TeleToBank: TPointArray;

begin
  if not (LoggedIn) then
    Exit;
  if not FindNormalRandoms then
  begin
    if not RunEnergy(25) then
      RestUp;
    MakeCompass('n');
    Writeln('We Should Be At The Tele Spot...');
    Wait(Random(1000));
    TeleToBank :=  [Point(3697, 3129), Point(3669, 3128),
                    Point(3642, 3139), Point(3618, 3158),
                    Point(3622, 3176)];
    if SPS_WalkPath(TeleToBank) then
      Writeln('At Bank');
    Wait(RandomRange(1200, 1500));
  end;
end;


procedure MainLoop;
begin
  SetupLogin;
  SetupSps;
  T := 0;
  for Loads := 0 to Players[0].Integers[1] do
  begin
    if not (LoggedIn) then
    Break;
    BreakTime;
    WithdrawBank;
    WalkToStore;
    CheckGate;
    TrapDoor;
    MakePouch;
    BackToBank;

  end;
end;

begin
  MainLoop;
end.

Not too sure why you've got
procedure StartFancy;

I mean, I get that it used to be SilentSpys Flax Collector but is it necessary to have that in there still? >.>

From: honeyhoney
Not too sure why you've got
procedure StartFancy;

I mean, I get that it used to be SilentSpys Flax Collector but is it necessary to have that in there still? >.>

sorry posted wrong script, that was mid work, before it could even could summon. Used hes SPS Setup for walking. changing now, sorry

Me being stupid forgot to take my username and password and bank pin off my script! gf me! btw who ever when on my account you are really dumb! u didnt see the santa near the top of the bank! and GREEN PHAT in collection box!

but gf u still got about 60m :S

From: jibber
Me being stupid forgot to take my username and password and bank pin off my script! gf me! btw who ever when on my account you are really dumb! u didnt see the santa near the top of the bank! and GREEN PHAT in collection box!

but gf u still got about 60m :S

I'm sure when you get to hold of the account you can report the IP to the admins! :) Hope this gets settled out. Very well written first script, too! :)

~Eerik.

Script is very nice looking, will try it out when I have some cash to spend summoning.

when you post up a script to help others you would have thought they would have the common decency not to steal from you… hope you weren't hit too hard.

I'll be sure to try this out soon :) and post a proggy once i have one

EDIT: do you need to use falador teleports for this script to work or does it walk back?

I have a custom Taverly House Method if you want.. And banks at Castlewars.. It's apart of my first script :) if you want it.. PM ME

Is it possible for you to add a simple download option. For some reason my Copy and pastea rarely work.


Thanks

Demon

ill look up how to add a download verion.

i can adapt the script so it can walk back instead of teleing, but need to do it tomoz :)

(went corps last night, got ely :D ) so im good for cash now…