SRL Archive - RS3 Outdated / Broken Scripts

Well I am a bit bored now. I just finished most of my Guild Miner and with that taking little of my time to maintain/update I am looking for a NEW CHALLENGE. So yea hit me with your ideas:D. I'm sorta leaning toward a Cow Killer which banks the Hides.

clan war or curser.

ummm…
well try something that has not been attempted

From: M_A_I_N_FTW
clan war or curser.

No-Members :(

From: simtoon
ummm…
well try something that has not been attempted

Such as…?

cockroacher would be good (kills cockroach soliders at the entrence or secred room picks stuff when out of food then goes to bank , banks inv , takes new food walks back) cockroaches are good for money they drop good stuff such as
and you should use nacrel's tehnics with pauses and sleeps to make it 24hr script.
# Rune scimitar (semi-rare)
# Rune 2-handed sword (extremely rare)
# Rune square shield (semi-rare)
# Rune chainbody (extremely rare)
# 5 Rune javelins(m)
# Shield left half(m)
# Dragon scimitar(m)
# Dragon spear(m)
# Dragon medium helmet(m)
# Dragon longsword(m)
# 1-20 Law runes (common)
# 1-15 Death runes
* 3 noted Mithril ore (very common)
* 1 noted Adamantite ore
* 1 noted Runite ore (extremely rare)
# Ranarr Seed

2nd idea i have if you could make giant killer/ big bone collector banker for the place where you need brass key and banks at .g.e or varrockwest bank

hope you like my suggetions :)

~rs2jke

ya i would like to see a giant killer and banker but got alot of people there so only if you could get the giant killer to work fast and i mean really fast then it will be good gl!

A: a good script that trains range (members cause its faster)
B: granite miner! If you need a members account, i guess i could lend u mine.

Here's a challenge…
No one has made it yet…

http://www.villavu.com/forum/showthread.php?t=36321

i think SRL Needs a new yew cutter :p

From: Quickmarch
i think SRL Needs a new yew cutter :p

There's one on the way *Cough* ;) .
Just finishing.
~Eerik~

From: ferit
Here's a challenge…
No one has made it yet…

http://www.villavu.com/forum/showthread.php?t=36321

Responded at your thread that there are at least 3 of those scripts + tons of outdated :p

heres a yew cutter:

program Yew_Cutt0r;
{.include SRL/SRL.scar}

Var
  X, y, Banked : Integer;

Const Ver = '0.1'; //Dont Touch!!!

procedure DeclarePlayers;
begin
  Disguise('SRL - Forms- Index...');

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;


  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := 'aum';
  Players[0].Active := True;
  Players[0].Integers[0] := 10; //Loads To Do?
  Players[0].PIN := '0000'; //Leave at 0000 if no pin else enter it :)

 {Players[1].Name := '';
  Players[1].Pass := '';
  Players[1].Nick := '';
  Players[1].Active := True;
  Players[1].Integers[0] := 5; //Loads To Do?  }

  WriteLn('Using ' +IntToStr(HowManyPlayers) + ' Players');
end;

Procedure WalkToTree;
Label RV;

Begin
  If FindSymbol(x, y, 'Tree') Then GoTo RV
    Else

  RadialWalk(FindDirtRoadColor, 230, 160, 65, 10, 20);
    Begin
      RV : WriteLn('Used Symbol Walking!');
      If FindSymbol(x, y, 'Tree') Then
        Mouse(x + 8, y + 4, 0, 0, True);
        FFlag(4);
    end;
end;

Function FindYew : Boolean;
Var
  I, Cts : Integer;
  TPA : Array Of TPoint;
  ATPA : T2DPointArray;

Begin

  Cts := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  FindColorsSpiralTolerance(MSCX, MSCY, TPA, 2386011, MSX1, MSY1, MSX2, MSY2, 10);
  ATPA := (TPAtoATPAEx(TPA, 4, 5));

  For I := 0 to High(ATPA) Do
    If MiddleTPAEx(ATPA[I], x, y) Then
      Begin
        MMouse(x, y, 0, 0);
        GetMousePos(x, y);
      If IsUpTextMultiCustom(['hop', 'ew', 'own']) Then
       Begin
         Result := True;
         Wait(80+ Random(80));
       end;
        If Result = True Then
          Exit
         else

         Try
           Wait(1);

         except
           Wait(2);

         Finally
          Wait(3) //:p
      end;
    end;
 ColorToleranceSpeed(Cts);
end;

{*******************************************************************************
function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
By: Sumilion
Description: Will look for an Ent and avoid if found.
*******************************************************************************}

function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
  x, y, EntTime, tcts: Integer;
begin
  if not(LoggedIn)then
    Exit;
  GetMousePos(x, y);
  if(x <> fx)or(y <> fy)then
    MMouse(fx, fy, 0, 0);
  if(IsUpText('Chop'))then
  begin
    tcts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorSpeed2Modifiers(0.03, 0.75);
    Result := (CountColorTolerance(118478, 9, 10, 124, 23, 10) > 10);
    SetColorSpeed2Modifiers(0.2, 0.2);
    ColorToleranceSpeed(tcts);
  end;
  if(Result)then
  begin
    WriteLn('Ent Found!!');
    if(AvoidWhenFound)then
    begin
      Writeln('Waiting for it to go away.');
      MFNF(MMCX, MMCY, -1, 1);
      MarkTime(EntTime);
      while(TimeFromMark(EntTime) < 35000)do
        if(Random(20) > 15)then
          IdleTime(500, 500, 0.4)
        else
          Wait(500 + Random(500));
      EntsAvoided := EntsAvoided + 1;
    end;
  end;
end;

Procedure IfFight;
Begin
  If (FindFight) Then
    RunAway('E', False, 1, 1000 + Random(500));
end;

Procedure WaitWhileChop;
Var mrk : Integer;
Begin
  MarkTime(mrk);
 Repeat
   FindNormalRandoms;
   FindEnt(x, y, True);
   IfFight;
     Case Random(4) Of
       0 : GameTab(1 + Random(12));

       1, 2 : FtWait(5);
      end;
       Wait(900 + Random(100));
       GameTab(4);
       SleepAndMoveMouse(4000 + Random(3000));
      IfFight;
     FindEnt(x, y, True);
    IfFight;
   FindNormalRandoms;
 Until(Not IsUpText('ew')) Or (TimeFromMark(mrk) > 13000 + Random(3000));
   FindEnt(x, y, True);
end;

Procedure SwitchTrees;
Begin
  Case FindSymbol(x, y, 'Water source') Of

    True : If FindSymbolIn(x, y, 'Tree', 547, 89, 683, 155) Then
             MouseFlag(x + 7, y - 3, 3, 3, 0);

    False : If FindSymbolIn(x, y, 'Tree', 570, 6, 700, 76) Then
              MouseFlag(x + 7, y + 3, 3, 3, 0);
  end;
end;

Procedure ChopTree;
Begin
 Repeat
   If Not FindYew Then
     Wait(2000 + Random(3000));
     FindNormalRandoms;
   If Not FindYew Then
     SwitchTrees
  Else
    Begin
      Case Random(3) Of
        0, 1 : Mouse(x, y, 2, 2, True);
        2 : Begin
              Mouse(x, y, 2, 2, False);
              Wait(Random(80) + 100);
              ChooseOptionMulti(['hop', 'ew', 'own']);
            end;
      end;
        Begin
          WaitWhileChop;
          Wait(1);
          FindNormalRandoms;
        end;
     end;
   Until(InvFull);
 IncEx(Players[CurrentPlayer].integers[3], 27);
 Inc(Players[CurrentPlayer].integers[2]);
end;

Procedure Bank;
Begin
SetRun(True);
  If FindBitmapToleranceIn(BitmapFromString(5, 7, 'beNrjFo7ipgsCAFtREGk='),
    x, y, MMX1, MMY1, MMX2, MMY2,30) Then
      Begin
        Wait(12000 + Random(2000));
        MouseFlag(x, y + 8, 4, 7, 6)
    end else
      If Not FindColor(x, y, FindVarrockRoadColor, MMX1, MMY1, MMX2, MMY2) Then
        MouseFlag(MMCX, MMCY - 60, 20, 5, 0)
      Else
        Begin
          Mouse(x, y, 9, 9, True);
          FFlag(5);
        end;
        
      If FindSymbol(x, y, 'Bank') Then
        MouseFlag(x, y, 1, 1, 0);
        
      If OpenBankFast('eb') Then
        If BankScreen Xor PinScreen Then
          Begin
            If InPin(Players[CurrentPlayer].PIN) Then
             Begin
               Deposit(2 + Random(24), 28, True);
               Wait(700 + Random(800));
               CloseBank;
             end;
         end;
    Inc(Banked);
 WriteLn('Banked!');
end;

Procedure Proggie;
Var I : Integer;
Begin
  WriteLn('');
  WriteLn('>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ');
  WriteLn('[      NaumanAkhlaQ Presents       ]');
  WriteLn('[         Yew Cutt0r!!             ]');
  WriteLn('|                                  |');
  WriteLn('| [> Worked '+ TimeRunning +'!     | ');
  WriteLn('| [> Chopped '+ IntToStr(Players[CurrentPlayer].integers[3])+' Logs |');
  WriteLn('| [> Banked '+ IntToStr(Banked) +' Loads|');
   WriteLn('| ---------------------- |');
   WriteLn('| [> Current Version Is V'+ Ver+' Pub!|');
   WriteLn('=       Thank You For Using ;)     |');
   WriteLn('=================================== ');
   For I := 0 to (HowManyPlayers - 1)  do
   Begin
     WriteLn('[~ '+ Players[I].Name +' /\ Chopped '+IntToStr(Players[I].integers[3])+ ' Logs. /\ Banked ' +IntToStr(Players[I].integers[2])+' Loads!');
     WriteLn('   <--------- |-----$$-----| --------->');
   End;
  Begin
   WriteLn('     ++++++++++++++++++++');
   SRLRandomsReport;
   If (Not (LoggedIn)) Then
     Begin
       WriteLn('--> Lost Player : '+Capitalize(Players[CurrentPlayer].Name));
       LogOut;
       NextPlayer(False);

   end else
    WriteLn('> Using ' +IntToStr(HowManyPlayers)+ ' Players');
      Try
        If Banked >= Players[CurrentPlayer].Integers[0] Then
          WriteLn('Loads Done and Dusted!');
      Finally
        FindNormalRandoms;
      Except
    end;
  end;
end;


begin
  SetupSRL;
  DeclarePlayers;
  ActivateClient;
  Wait(999);
 Repeat
  If Not LoggedIn Then LoginPlayer;
  Repeat
    SetRun(True);
    WalkToTree;
    ChopTree;
    Bank;
    Proggie;
  Until(Banked >= Players[CurrentPlayer].Integers[0]) xOr (Not LoggedIn)
    LogOut;

  If Banked >= Players[CurrentPlayer].Integers[0] Then
    NextPlayer(True)
  Else
    NextPlayer(False);

 Until(AllPlayersInactive);
 TerminateScript;
end.

Sorry to be offtopic, but what does MFNF() do? Looks like a fix of mouse and flag.

Edit: MAke a 1337 ranger~!~

A new cow killer and hide picker would be amazing. All the ones out there are outdated or just plain suck.

yeah, a cow killer would be awesome.

i say you should make a tut island runner… they are all outdated or just for the wrong tutorial!!! this would be challenging …. and thats what you want isn't it?

o0o0o0o
A tut runner would be great :)

and take you a while.

I'd say a ge firemaker. I got 50,501 logs to burn, so it'd help me, and I know it'd help others to :P.

From: Sand Storm
I'd say a ge firemaker. I got 50,501 logs to burn, so it'd help me, and I know it'd help others to :P.

why ge? aren't there a ton of these for other banks…:confused:

Are you a member? i got a good member idea, that is challenging but not very, its pretty much 80% walking, 5% banking, 15% talking to a NPC

I think a cow killer + hide banker would be pretty B.A. So my vote goes towards that.

~KotN

catherby or fishing guild lob fisher please?

a script that superheats ores i know this has been attempted before but nothing really succesfull so give it a go =]

umm… i will give you a rep++ if you make a tut island runner… i really need one really really badly(this isn't a double post…its just begging(notmuchbetter))

I was wondering if it would be in your interest in developing a script dedicated for Edgevill Man House?

A script that would Open the door if clicking on a Char outside the closed door, One that would collect the Bronze arrows, coins and runes that it drops.

Or a Minotaur Killer that would collect all bronze arrows, Iron arrows, Rune Ess, Tin & Copper ore?

May work, You're the artist, SCAR is your Canvas =p

-BquamB

Hey,

I got a good idea for a new script, maybe this is never made………
Its about using runecrafting guild tablets to make runes…. That is just click tablet, click altar and then craft runes, and run back from respective altar.

We could also make run back from all altar same, if using cabage teleport possible, i.e, Craft runes, do cabage teleport using ring, walk to draynor bank and bank runes, and repeat. Start at any place in rs if u got tablet in inventory.