SCAR Code:
{Tea stealer made by Lancelot074. Credits to the tutorials all over the site
##############1. Set up declare players below.##############################
##############2. Position player near the varrock tea stall.################
##############3. Start scripted logged out.#################################
##############4. Enjoy?#####################################################}
program LanceTea;
{.include SRL/SRL/Misc/Smart.Scar}
{.include SRL/SRL.scar}
const
Usebank= False; //True if you want to bank
teacolor1= 8750479;//Don't change
teacolor2= 8750479; //Don't change
var
x, y, randomm, Loadnum: Integer;
Procedure DeclarePlayers;
begin
SRLID := '';
SRLPassword := '';
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='';//username
Players[0].Pass :='';//password
Players[0].Nick :='';//2-4 letters of username
Players[0].Active:=True;//Want to use player?
MouseSpeed := 12;
end;
Procedure randoms;
begin
FindTalk;
FindNormalRandoms;
SolveChatRandom;
FindLamp('Thieving');
If(FindFight)Then
begin
MakeCompass('N');
RunTo('N', True);
Wait(7000 +Random(3000));
RunTo('S', True);
end;
end;
procedure antiban;
begin
randomm := Random(4)
case randomm of
0:
begin
Wait(3591+(random(287)));
RandomRClick;
Wait(3591+(random(287)));
Randoms;
end;
1:
begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
2:
begin
Wait(3294+(random(873)));
Randoms;
HoverSkill('Woodcutting' ,false);
Wait(3294+(random(873)));
end;
3:
begin
Wait(3694+(random(791)));
GameTab(random(13)+1);
Randoms;
Wait(3694+(random(791)));
GameTab(4);
end;
end;
end;
Procedure stealtea;
begin
if not LoggedIn then
Exit;
Makecompass('E');
repeat
if FindObjCustom(x, y, ['Ste', 'eal'], [teacolor1, teacolor2], 7) then
begin
mouse(x, y, 0, 0, false);
Wait(500);
ChooseOption('eal');
end;
until (InvFull);
end;
procedure Bank;
var
time: Integer;
begin
MarkTime(time); //this will start a timer
repeat;
if (not(Loggedin)) then break; //if you're chat is not logged in it will break out of the loop
OpenBankQuiet('varrock east'); // ^^
until(BankScreen or (TimeFromMark(time) > 120000)); // if it took longer then 2 minutis then it will stop trying to open the bank.
end;
Procedure Bankit;
var
TeaDTM, time: Integer; //make sure to have a integer from all you're bitmaps and dtms.
begin
TeaDTM := DTMFromString('78DA639CC7C4C090CAC8800C84B820344C947' +
'13BA61A4174350B806AAA51D588F172A0AAD90A54538AAA868F85' +
'1955CD4EA09A2C5435EC0C6876AD02AAA941730F1B138A1A007D1' +
'B0763');
MarkTime(time);
repeat
if (not(Loggedin)) then break;
OpenBankQuiet('varrock east')
until(BankScreen or (TimeFromMark(time) > 120000));
if Bankscreen then
begin
Loadnum:= Loadnum + 28
ReportVars[0] := ReportVars[0] + 28;
Deposit(2, 28, 2);
CloseBank;
WriteLn('We have banked ' +IntToStr(Loadnum) + ' Tea cups.');
end;
FreeBitMap(TeaDTM);
end;
Procedure WalkTobank;
Var
BankDTM: Integer;
begin
BankDTM := DTMFromString('78DA63DCCBC4C0B0970105DCDFEFC2F01F483' +
'302F17F2060DC0954731055CDDBB70C0C5C503520C0B897083507' +
'30D5FCF9C384A20600476012AD');
begin
if DTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
Flag;
end;
end;
FreeDTM(BankDTM);
end;
Procedure WalkTostall;
Var
StallDTM: Integer;
begin
StallDTM := DTMFromString('78DA63BCCBC4C0F080010574D51432FC07D28' +
'C40FC1F08189F01D5DC4655F3F495070317540D0830BE02AA798A' +
'AA660B1737AA9A1740359751D51CD1D2405103004332119F');
begin
if DTMRotated(StallDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
Mouse(x, y, 1, 1, True);
Flag;
end;
end;
FreeDTM(StallDTM);
end;
Procedure proggy;
begin
ClearDebug;
WriteLn('----------------------------------------------');
WriteLn(' _____ __ _ _ ');
WriteLn('/__ \___ __ _/ _\ |_ ___ __ _| | ___ _ __ ');
WriteLn(' / /\/ _ \/ _` \ \| __/ _ \/ _` | |/ _ \ __|');
WriteLn(' / / | __/ (_| |\ \ || __/ (_| | | __/ | ');
WriteLn(' \/ \___|\__,_\__/\__\___|\__,_|_|\___|_| ');
WriteLn(' By Lancelot074 ');
WriteLn('Tea stole: ' + inttostr(Loadnum)+'.');
writeln('TeaStealer was ran for ' + TimeRunning + '.');
end;
begin
SetupSRL;
ScriptID := '660';
DeclarePlayers;
LoginPlayer;
if SRLID = '' then
begin
ClearDebug;
Writeln('Go to : http://www.stats.srl-forums.com');
WriteLn('And register an account, leecher! :)');
TerminateScript;
end;
repeat
stealtea;
antiban;
randoms;
if Usebank=(False) then
begin
DropAll;
Loadnum:=Loadnum + 28;
ReportVars[0] := ReportVars[0] + 28;
end;
if Usebank=(True) then
begin
WalkTobank;
Bank;
Bankit;
WalkTostall;
end;
proggy;
until(false);
end.