SCAR Code:
program BucketBuyer;
{.include SRL/SRL.scar}
const
NPCcolor = 1344272;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //how many players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //current player
Players[0].Name := '4d'; //username!
Players[0].Pass := 'lp'; //password
Players[0].Nick := 'k1l'; //Nick (3-4 letters of ur name
Players[0].Active := True; //is the player active?
end;
procedure PreparePlayer;
begin
if not LoggedIn then LoginPlayer;
end;
procedure AntiRandoms;
begin
findnormalrandoms;
if findfight=true then
begin
runaway('E',true,1,5000+random(1000));
end;
end;
procedure AntiBan;
begin
case random(60) of
0: RandomRClick;
end;
end;
var
x, y : Integer;
WaterBucketDTM : Integer;
procedure BuyWaterBucket;
begin
WaterBucketDTM := DTMFromString('78DA63F466606070654001C5D1FA0CBF80342' +
'310FF0702C66020C38A010D30229140DA0548F811501302243C09' +
'A8710212F604D480DC1C805F0D00FCCA096D');
Wait(3000+random(1000));
if (FindDTM(WaterBucketDTM, x, y, MSx1, MSy1, MSx2, MSy2)) then
begin
Wait(800+random(150));
Mouse(x, y, 3, 3, False);
Wait(800+random(150));
if ChooseOption('X') then
begin
Wait(800+random(150));
TypeSend('123');
Wait(800+random(150))
end;
end;
end;
procedure WalkToDepositBox;
begin
LoadSymbolBitmapColor('bank')
if FindSymbol(x, y, 'bank') then
begin
Wait(4000+random(150));
Mouse(x,y,4,4, True);
FFlag(1);
Wait(1000+random(150));
end;
end;
procedure OpenDepositBox;
begin
if (FindColorSpiralTolerance(x, y, 6382171, 10, 10, 520, 340, 6)) then
begin
Wait(1000+random(150));
Mouse(x, y, 3, 3, False);
Wait(1000+random(150));
ChooseOption('Deposit');
FFlag(2);
Wait(1000+random(150));
end;
end;
procedure DepositBucket;
begin
WaterBucketDTM := DTMFromString('78DA63F466606070654001C5D1FA0CBF80342' +
'310FF0702C66020C38A010D30229140DA0548F811501302243C09' +
'A8710212F604D480DC1C805F0D00FCCA096D');
if (FindDTM(WaterBucketDTM, x, y, MSx1, MSy1, MSx2, MSy2)) then
begin
Wait(1000+random(150));
Mouse(x,y,3,3, False);
Wait(1000+random(150));
ChooseOption('All');
Wait(1000+random(150));
end;
FreeDTM(WaterBucketDTM);
end;
procedure WalkToTrade;
begin
LoadSymbolBitmapColor('shop');
if FindSymbol(x, y, 'shop') then
begin
Wait(4000+random(150));
Mouse(x,y,4,4, True);
FFlag(1);
Wait(1000+random(150));
end;
end;
procedure Trade;
begin
begin
if FindObj(x,y,'frim',1344272,5) then
Wait(100+random(400));
Mouse(x, y, 2, 2, False);
Wait(100+random(400));
ChooseOption('rade');
end;
end;
procedure MainLoop;
begin
MouseSpeed:= 15+random(3);
ActivateClient;
SetAngle(true);
MakeCompass('n');
if (loggedin) then
begin
Trade;
Antiban;
BuyWaterBucket;
Antiban;
WalkToDepositBox;
Antiban;
OpenDepositBox;
Antiban;
DepositBucket;
Antiban;
WalkToTrade;
Antiban;
end;
end;
begin
SetupSRL;
ActivateClient;
MainLoop;
Wait(1000+random(100));
repeat
until (loggedin=false)
end.