Thanks lol, got from level 13 thieveing to 20 getting it right so far 
**********EDIT
The Script Finnished
You Stole 50/50 Times
You gained 800 exp
You Did 17 antibans
You Ran away from 0randoms
I added a space between 0 and randoms btw
its not released yet due to its not good enough
New proggy
The Script Finnished
You Stole 50/50 Times
You gained 800 exp
You Did 23 antibans
You Ran away from 0 randoms
SCAR Code:
program New;
{.include SRL/SRL.scar}
const
AmountToSteal = 50; // Amount of tea to steal
// 16 exp per tea
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Username'; //your runescape account
Players[0].Pass := 'password'; // your runescape password of your account
Players[0].Nick := 'rna'; // 2-4 letters to use for antirandoms
Players[0].Active := True; // use this character?
end;
var
x,y,i,Steals,EXPGained,Antibans,RandomCount : integer;
Procedure Drop;
Begin
for i := 1 to 27 do
DropItem(i);
End;
procedure Antiban;
begin
if not LoggedIn then Exit;
case Random(30) of
0:
begin
HoverSkill('Thieving', False);
Antibans:=Antibans+1;
end;
1:
begin
HoverSkill('random', false);
Antibans:=Antibans+1;
end;
2:
begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4);
Antibans:=Antibans+1;
end;
3:
begin
BoredHuman;
Antibans:=Antibans+1;
end;
end;
end;
procedure randoms;
begin
findnormalrandoms;
if findfight=true then
begin
runaway('N',true,1,5000+random(1000));
RandomCount:= RandomCount+1;
end;
end;
Procedure Proggy;
Begin
ClearDebug;
Writeln('/////////////////////////////////////////////');
Writeln(' You Have Stole ' + IntToStr(Steals) + ' Times');
Writeln(' You Wanted To Steal ' + IntToStr(AmountToSteal) + ' Times');
Writeln('//////////////////////////////////////////////');
End;
Procedure FinnishScript;
Begin
EXPGained:= Steals * 16
ClearDebug;
Writeln('');
Writeln('');
Writeln('The Script Finnished');
if Steals=AmountToSteal then
Begin
Writeln('You Stole ' + IntToStr(Steals) +'/'+ IntToStr(AmountToSteal) + ' Times');
End;
Writeln('You gained '+ IntToStr(EXPGained) +' exp' );
Writeln('You Did '+ IntToStr(Antibans) +' antibans' );
Writeln('You Ran away from '+ IntToStr(RandomCount) + ' randoms' );
Writeln('');
Writeln('');
End;
Procedure ClickStall;
Begin
repeat
FindObjCustom(x, y, ['teal','eal','al'], [8953516,9678010,8821930], 10); // 10 = tolerance
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;
wait(300+Random(234));
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_DOWN);
wait(400+random(175)+random(175));
keyup(VK_DOWN);
wait(random(250));
keydown(VK_RIGHT);
wait(600+random(100));
keyup(VK_RIGHT);
wait(random(250));
End;
Begin
SetupSRL;
ActivateClient;
ClearDebug;
DeclarePlayers;
if not LoggedIn then loginplayer;
wait(2000+Random(1000));
Setup;
repeat
ClickStall;
Drop;
Antiban;
until(Steals=AmountToSteal)
FinnishScript;
End.
New thoughts and post a few small proggys please? some of the antirandoms wont work though
So dont use it wearing armor (i put teletab in last inven spot becuase it doesnt drop the 28th item)