SCAR Code:
Program EdgevilleBucketFiller;
{.Include SRL/SRL.Scar}
//////////////////////////////////-INFORMATION-/////////////////////////////////
// This script will get your empty buckets from the bank and then fill them //
// with water. Press F12 to terminate script //
/////////////////////////////////////-SETUP-////////////////////////////////////
// 1.Load Runescape 32-bit low detail //
// 2.Place your character in Edgeville bank with empty buckets in the first //
// slot and full buckets 2nd //
// 3.Drag the crosshair onto the client //
// 4.Run the script //
////////////////////////////////-Later Versions-////////////////////////////////
// Make Soft Clay as well //
// Better Walking //
// Multiplayer //
// More Functions //
////////////////////////////////////////////////////////////////////////////////
var
FullBucket:integer;
LoadsDone:integer;
Const
LoadsToDo = 20; //How many Loads to do 28 buckets per load
RoadColour = 7699582; //The colour of the road on the minimap
WellColour = 333; //obv not right yet
Procedure DeclarePlayers;
Begin
HowManyPlayers:=1;
CurrentPlayer:=0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := 'username'; //your username
Players[0].Pass := 'password'; //your password
Players[0].Nick := 'ser'; //3-4 letters of username
Players[0].Active := True; //use this player?
Players[0].Strings[1] := ''; //bank pin?
end;
procedure antirandom;
begin
findnormalrandoms;
if findfight=true then
begin
runaway('S',true,1,5000+random(1000));
end;
end;
procedure antiban;
begin
if not loggedin then exit;
case Random(100) of
0: RandomRClick;
1: BoredHuman;
2: HoverSkill('Random', False);
3: DoEmote(1 + Random(10));
4: PickUpMouse;
end;
end;
var
Emptybucket: Integer;
procedure LoadBitmaps;
begin
Emptybucket := BitmapFromString(8, 17, 'beNpjYAADxkBv78jgYA' +
'ZU0NPUlJOaCpQFI2QAEWHMSExAluqor0sPkAYiIKOluirKTQIoCyQ' +
'hgkCU7CsV7ykZaC8KZABJNPGwgIDsYJkwJzE08cSoqKJIOUxzgG6r' +
'Ky0tiDFtyrYDKoCjCeUuvS3NxfFmHQUO3UVOQAQUAaLJlW4QZ/eVO' +
'gMRRGRatfvkzk6IOFwZUHBGncfE9naIOJDd1dAARMAAAaJ5Td5w9U' +
'CVsxs8V3T5TyxUA5sPAm21NcgIqAwiDjQHqBioHah+QYsPPOggjgE' +
'aBZSCGgIAI+twqQ==');
End;
procedure CloseBS;
begin
if bankscreen then
begin
mouse(489, 34, 3, 4, true);
antirandom;
end;
end;
var
x, y :integer;
procedure WithdrawEmptyBuckets;
begin
if bankscreen then
begin
If FindBitmapToleranceIn(EmptyBucket, x, y, 32, 88, 75, 128, 25)then
Withdraw(1,1,28);
if not FindBitmapToleranceIn(EmptyBucket, x, y, 32, 88, 75, 128, 25)then
logout;
writeln ('Couldn''t Find Empty Buckets In 1st Bank Slot Logging out!!');
end;
end;
procedure DepositInv;
begin
If not LoggedIn then Exit;
antirandom;
OpenBankFast('ab');
wait(500+random(500))then // i get Line 106: [Error] (16309:22): Identifier expected in script error here
If Not(BankScreen) or Not(PinScreen)Then
begin
wait(2000+random(1000))then
If Not(BankScreen) or Not(PinScreen)Then
logout;
writeln('couldn''t open bank');
end;
if PinScreen then InPin(Players[CurrentPlayer].Strings[1])then
if bankscreen then
begin
DepositAll;
end;
procedure Setup;
begin
cleardebug;
setupsrl;
Disguise('Windows Live Messenger');
ActivateClient;
declareplayers;
wait(1000);
makecompass('N');
if not InvEmpty;
then OpenBankFast('ab');
DepositAll;
end;
end;
procedure Proggy;
begin
writeln('====================================');
writeln('TROJANS EDGEVILLE BUCKET FILLER V0.1');
writeln('Loads done = ' + IntToStr(loadsdone));
writeln('filled' + IntToStr(loadsdone * 28)'Buckets');
writeln('Worked for' + (GetTimeRunning/60000)'Minutes');
writeln('====================================');
end;
procedure FillBuckets;
If not LoggedIn then Exit;
begin
RadialWalk(RoadColour, 270, 290, 35, 0, 5);
until fflag (0);
then RadialWalk(RoadColour, 359, 1, 20, 0, 0);
until fflag (0);
then mouse(579, 231, false);
wait (200);
FindObjCustom(x, y, ['ell'], [WellColour], 5);
procedure WalkToBank;
begin
if findsymbol (x,y,'bank') then
begin
Mouse(x, y, 5, 5, True);
end else wait(2000)
if not findsymbol(x,y,'bank') then
writeln ('couldn''t find bank symbol logging out') then
logout;
end;
end;
begin
Setup;
LoadBitmaps;
LoginPlayer;
repeat
WithdrawEmptyBuckets;
CloseBS;
antirandom;
FillBuckets;
antirandom;
WalkToBank;
DepositInv;
until(LoadsDone = LoadsToDo;
or
until isfkeydown(12)
proggy;
end.