Tea Stealer [Srl]

My second post

Script Written - Started about 7th November
Script last updated - About 5 minutes ago
Works with scar 3.15b and SRL - Rev 27-28.



Update log;
7th November - Wrote stealing and basic dropping
9th November - added mulitplayer, basic antirandoms and antiban
12th Nobember - Added a decent proggy
13th November - Added extra colours and IsUpText words for stall,
14th November - Added shoo away dog and a lost procedure, done
One for west of tea stall (near rune shop) and added
A north one - not working atm.
--------------------------

Things to come:

• Better lost procedure [Not Completed]
• Better AntiRandoms [Not Completed]
• Better AntiBan [Not Completed]
• Maybe a form [Not Completed]
• Hotkey to finnish script [Not Completed]
• Time to run for until finnish [Not Completed]
• Timer [Not Completed]

------
Please give ideas to add
--------------------------

Here is the code, just paste it into scar, fill out;

Name - Line 15
Password - Line 16
Nick - Line 17
Amount to steal - Line 5

And then drag crosshair into RS client, press play!
--------------------------

Additional Notes;
Tea stall is east of rune shop
Its South East of varrock west bank
Its not very stable EG, dont run it overnight
Logs off alot, if its too much for you, goto line 67 and change the 30 to a higher number, not too high because thats the antiban.
Dont steal and claim as your own
Dont leech
Make sure your below the north chair and north-west of bottom chair (you will know what i mean when your there.
--------------------------
Code

Code:

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

const
AmountToSteal = 1000;  // Amount of tea to steal
                      // 16 exp per tea


procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; //your runescape account
  Players[0].Pass := ''; // your runescape password of your account
  Players[0].Nick := ''; // 2-4 letters to use for antirandoms
  Players[0].Active := True; // use this character?
  
end;


var
x,y,i,Steals,EXPGained,Antibans,RandomCount,LoggedOut : integer;



Procedure Drop;
Begin

    case Random(4) of
    0:
      begin
        for i := 1 to 27 do
         DropItem(i);
      end;
         1: begin
         wait(Random(300));
         end;

         2: begin
         wait(Random(300));
         end;
         3: begin
         wait(Random(300));
         end;
         
         end;
End;

procedure Proggy;
Begin
            EXPGained:= Steals * 16;
            ClearDebug;
            Writeln('/////////////////////////////////////////////');
            Writeln('You Stole  ' + IntToStr(Steals) +'/'+ IntToStr(AmountToSteal) + '  Times');
            Writeln('You gained '+ IntToStr(EXPGained) +' Exp' );
            Writeln('You Did '+ IntToStr(Antibans) +' Antibans' );
            Writeln('You Ran away from '+ IntToStr(RandomCount) + ' Randoms' );
            Writeln('You Logged Out ' + IntToStr(LoggedOut) + ' Times');
            Writeln('//////////////////////////////////////////////');
End;

procedure Antiban;
begin
  if not LoggedIn then loginplayer;
  case Random(30) of
    0:
      begin
        HoverSkill('Thieving', False);
        Antibans:=Antibans+1;
        Proggy;
      end;
    1:
      begin
        Logout;
        wait(1000+Random(200));
        loginplayer;
         wait(100);
        Antibans:=Antibans+1;
        Proggy;
      end;
    2:
      begin
        GameTab(1 + Random(12));
        wait(800 + random(500));
        GameTab(4);
        Antibans:=Antibans+1;
        LoggedOut:=LoggedOut+1;
        Proggy;
      end;
    3:
      begin
        BoredHuman;
        Antibans:=Antibans+1;
        Proggy;
      end;
  end;

end;

Procedure StrayDog;
Begin
if FindColorSpiralTolerance(x, y, 7767471, msx1, msy1, msx2, msy2, 10) then
Begin
wait(300+Random(200));
Mouse(x, y, 3, 3, false);
wait(100+Random(200));
ChooseOption('way');
ChooseOption('hoo');
wait(500+Random(3000));

Proggy;
End;



End;


procedure randoms;
begin
  FindTalk;
  FindNormalRandoms;
  StrayDog;
  if (FindFight = true) then
  begin
    runaway('N',true,1,5000+random(1000));
    RandomCount:= RandomCount+1;
    Proggy;
    Logout;
    Proggy;
    wait(500+Random(5000));
    loginplayer;
    runaway('S',true,1,5000+random(1000));
    wait(5000+Random(2451));
  end;
  Proggy;
end;




Procedure FinnishScript;
Begin
ClearDebug;
Proggy;
End;

Procedure lost;
Begin
 begin
   if (FindSymbol(x, y, 'water source')) then
   wait(500+random(1000));
   Mouse(x+10+Random(10), y-15, 3, 3, true);
   wait(5000+Random(3000));
    end;


 { begin
   if (FindSymbol(x, y, 'dummy')) then
   wait(500+random(1000));
   runaway('S',true,1,5000+random(1000));
   wait(5000+Random(3000));
  end;}
End;

Procedure ClickStall;
Begin
         repeat
               if not FindObjCustom(x, y,  ['teal','eal','al'],  [8953516,9678010,8821930], 10) then
               begin
               lost;
               wait(1000+Random(500));
               end;
            FindObjCustom(x, y,  ['teal','eal','al'],  [8953516,9678010,8821930], 10);
            wait(800+Random(234));
            MMouse(x, y, 12, 13);
            wait(200+Random(234));
            Drop;
            Antiban;
            randoms;
            wait(800+Random(234));
            if IsUpText('teal') then
            begin
            Mouse(x,y,5,5,true);
            Steals:= Steals + 1;
            Proggy;
            Wait(1000+random(750));
          end;
        until(Steals=AmountToSteal)
end;



Procedure Setup;
Begin
  makecompass('n');
  keydown(VK_UP);
  wait(500+random(150)+random(150));
  keyup(VK_UP);
  wait(random(500));
  keydown(VK_RIGHT);
  wait(100+random(100));
  keyup(VK_RIGHT);
  wait(600+random(100));
  lost;
End;



Begin
SetupSRL;
ActivateClient;
ClearDebug;
DeclarePlayers;
Setup;
repeat
if not LoggedIn then loginplayer;
wait(2000+Random(1000));
ClickStall;
Antiban;
until(Steals=AmountToSteal)
FinnishScript;
End.

-----------------------------

Please post proggys and where you got stuck

 

Glad to see you made a script. Maby will test it out tommorow or so, but good luck!

 

Ill check it out, And send proggie

 

Added to working scripts sticky, keep up the good work

 

Thanks for that, has anybody actually got a proggy?
Or just leeching?

 

Works well thanks. But the anti randoms are completely useless.
/////////////////////////////////////////////
You Stole 122/100000 Times
You gained 1952 Exp
You Did 0 Antibans
You Ran away from 1 Randoms
You Logged Out 0 Times
//////////////////////////////////////////////

I had to help it alot. It does not respond to any randoms at all.

/////////////////////////////////////////////
You Stole 439/100000 Times
You gained 7024 Exp
You Did 1 Antibans
You Ran away from 0 Randoms
You Logged Out 0 Times
//////////////////////////////////////////////

 

Thanks for that (alot).
What did you help with other than randoms?

I am still trying to get a decent lost procedure

 

Really all you need to make it do is talk to the randoms.
on line 67 i put it to like 1000000 lol.
If you make it respond to randoms it will be great.
And thanks for making the script anyway.

 

Okay, how is this done and then anti-bans wont work

 

I have no idea how to make the anti-randoms work properly try asking jethr0k or GMK.

 

Lol nice script tho. but 1 problem....
/////////////////////////////////////////////
You Stole 12/8000 Times
You gained 192 Exp
You Did 6 Antibans
You Ran away from 0 Randoms
You Logged Out 3 Times
//////////////////////////////////////////////

logged out 3 times? and i had to manually type user/pass in myself. Dude, i think u shud get rid of the logout thing, would make it alot easier

 

Excellent idea for a script though. Targeting areas like this greatly decreases your chances of getting caught.

 

I edited the script slightly, It didnt seem to work with my SRL version

But yeah, Was just a small error with ], and after that it worked like a charm.

Got me 6 thieving levels so far