SRL Archive - RS3 Outdated / Broken Scripts

made this script begus i needed one ;)
plz reply!

Credits:85% to me and 15% to pointer made the drop procedure!

progres report come soon!

Thanks works decent a few erors nothing mutch.First reply!

Thank you for first post :D

so, the how many time isn't working huh?
gonna fix that

Deleted (by tunderofnl)

done (maybe)

Id test this but i'm not a member :(

wow nice job ill test this out

nice try, glad you give somthing back to t he community!!
shouldn't you also wait when you stunned? < TIP

From: the scar noob
nice try, glad you give somthing back to t he community!!
shouldn't you also wait when you stunned? < TIP

its in varock so it dont need but ty for reply's!

nice script dude, sorry i dont have a proggy for you i closed the box without thinking. It lasted 30+ minutes though. One thing is that i had ti do the simple randoms myself such as just talking to a random when he says your name. Im still learning so i cant help. Good script.

Haldope

how to make it faster please

I ran the script all last night, the proggy was 7 hours but only actually worked for 3. It failed to solve the frog random twice, it succesfully walked to the queen but did not click to ask to be returned. I still love this script as i need 50 thievin and their isnt many out there. Goodjob :D

Nice thiever ill try it now!

Should be useful for my skiller, thanks :]

Ill post a proggy soon.:spot:

Thanks for this, Ill test it for a few hours.

Hey man,
Nice script.
Just a quick question with this procedure

Procedure Antifuck;
Begin
Wait(3+random(6));
End;

Thats gonna wait less than 9 milliseconds.
Is it meant to be

Wait(3000+random(6000));?

when i run it, it doesnt do anything just keeps looking in the invetory then clicks the stats and then goes to the compass over and over again

ill test in a sec ill also post a progie :D hope it works nicely

Line 155: [Error] (14604:1): Unknown identifier 'antiban' in script C:\Documents and Settings\Unknown Rawr\Desktop\Tea stall Thiever made by tunderofnl.scar


Using divi 3.11 srl 3.81

:eek: it sucks :P kidding;) it rules i got my first 30 thieving levels :D thanks:stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :stirthepot: :f:

this script is stolen!!! he dosent post he is a leeacher and he a theaf

From: born to macro
this script is stolen!!! he dosent post he is a leeacher and he a theaf

you are a leecher my friend and clam down….

he stole it?

From: hermpie
he stole it?

i didnt i made it whit pointer!:fiery: :fiery:

Good job but i think you need to work on standards:

Program Tunderofnlsstalltiever;
{.include SRL\SRL.SCAR}
{
Instruction's!
stand in the west side of the tea stall (varock only!)
Log out!
edit line 14 and line 25/28!
Have fun autoing :D
WARNING DONT HAVE ITEMS WHIT YOU IT AUTO DROP ALL ITEMS!

Credits:85% to me and 15% to pointer drop procedure!


Feature loads procedure if you want to help me then PM me.
}

var
  TimesStolen: integer;

Const
 teastallColor         = 10072252; //only change if need

Procedure DeclarePlayers;
begin
  Status('Loading Player')

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

     Players[0].Name      := '';
     Players[0].Pass      := '';
     Players[0].Nick      := ''; // like zezima then you put there in zei or zez
     Players[0].Active    := True;  //dont change!

end;

procedure FindStall;
begin
  MakeCompass('N');
  LowestAngle;
  Status('Searching for Teastall');
  wait(50);
  FindObjMultiText(x,y,'Steal-from','Tea','stall',teastallColor,4);
  wait(200);
  MMouse(x,y,2,2);
  if(IsUpText('Steal-from'))then
  begin
    Status('Found Stall');
    Mouse(x,y,2,2,true);
  end;
end;

procedure Talk;
begin
   ClearDebug;
   Writeln('##### #   # #   # ####  ##### ###');
   Writeln('  #   #   # ##  # #   # #     #  #');
   Writeln('  #   #   # # # # #   # ####  ###');
   Writeln('  #   #   # #  ## #   # #     # #');
   Writeln('  #    ###  #   # ####  ##### #  #');
   wait(600);ClearDebug;wait(500);
   Writeln('##### #   # #   # ####  ##### ###');
   Writeln('  #   #   # ##  # #   # #     #  #');
   Writeln('  #   #   # # # # #   # ####  ###');
   Writeln('  #   #   # #  ## #   # #     # #');
   Writeln('  #    ###  #   # ####  ##### #  #');
   wait(600);ClearDebug;wait(500);
   Writeln('##### #   # #   # ####  ##### ###');
   Writeln('  #   #   # ##  # #   # #     #  #');
   Writeln('  #   #   # # # # #   # ####  ###');
   Writeln('  #   #   # #  ## #   # #     # #');
   Writeln('  #    ###  #   # ####  ##### #  #');

   wait(600);ClearDebug;wait(500);
   Writeln('##### #   # #   # ####  ##### ###');
   Writeln('  #   #   # ##  # #   # #     #  #');
   Writeln('  #   #   # # # # #   # ####  ###');
   Writeln('  #   #   # #  ## #   # #     # #');
   Writeln('  #    ###  #   # ####  ##### #  #');

   wait(600);ClearDebug;wait(500);
   Writeln('##### #   # #   # ####  ##### ###');
   Writeln('  #   #   # ##  # #   # #     #  #');
   Writeln('  #   #   # # # # #   # ####  ###');
   Writeln('  #   #   # #  ## #   # #     # #');
   Writeln('  #    ###  #   # ####  ##### #  #');
   wait(600);ClearDebug;wait(500);
   
end;

Procedure chatsonoff;
Begin
  SetChat('On', 1);
  SetChat('On', 1);
  SetChat('Off', 2);
  SetChat('Off', 2);
  SetChat('On', 3);
  SetChat('On', 3);
End;

procedure AntiRandom;
begin
  FindTalk; //looks for a few letters from characters name (Nick) for randoms
  FindNormalRandoms; //looks for normal randoms and solves (mime, plant, etc.)
  FindLamp('Thieving'); //if finds the lamp, picks the skill
   if FindFight then //if finds that you're in a fight
    begin
     RunAwayDirection('n'); //runs north (s, w, e)
     Wait(10000+random(2000)); //waits
     RunBack;//Runs back
    end;
end;

Procedure progresreport;

Begin
  WriteLn('----------------------------------------------')
  WriteLn(Players[CurrentPlayer].Name+'.');
  WriteLn('Thieving level is ' + IntToStr(Players[CurrentPlayer].Level[11]));
  Writeln('Worked for '+ TimeRunning);
  WriteLn('----------------------------------------------')
End;

procedure Droptea;
begin
  if (invfull = true) then
  begin
    gametab(4);
    status('Now Dropping');
    mousespeed:=1;
    dropto(1,28);
    wait(2000+random(550));
  end;
end;



Procedure Antifuck;
Begin
 Wait(3+random(6));
End;

Begin
 SetUpSRL;
 DeclarePlayers;
 Talk;
 ActivateClient;
 Loginplayer;
 chatsonoff;
 DropAll;
 Repeat
  Findstall;
  AntiRandom;
  antiban;
  Antifuck;
  AntiRandom;
  Antifuck;
  AntiRandom;
  Droptea;
  AntiRandom;
  GetAllLevels;
  progresreport;
  until(false);
End. 

Very nice job though, I think I got all of the mistakes. I have one similar to this.

aint working got error in findobjmulti. Any1 else got the same?

From: scarn00b
aint working got error in findobjmulti. Any1 else got the same?

…got the same damn problem..but us hy194's theiver hes gona put randoms soon..it shud be good..

From: hugolord
you are a leecher my friend and clam down….

yeah! go clams!

Oh nice script it worked quite well, sorry I got no proggy.

Line 44: [Error] (15133:1): Unknown identifier 'FindObjMultiText' in script C:\Users\Gebruiker\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.IE5\N6K8JQE9\Tea%20stall%20Thiever%20made%20by%20tunderofnl[1].scar got this error to plz help me :( i really need to get this working

hmmpph.. it wont work with me

Line 44: [Error] (15133:1): Unknown identifier 'FindObjMultiText'