simple
1. take buckets from bank
2. fills them up
3. banks them
i need to fill 3k buckets lol
simple
1. take buckets from bank
2. fills them up
3. banks them
i need to fill 3k buckets lol
thats easy enough, pm me with exactly what you want it to do and dont want it to do.
here peeps, this is what i got so far....
tell me what to, and il update!
Start logged in with 28 buckets. and if you have pin pre-enter it.
SCAR Code:program BucketFiller;
{.include SRL/SRL.Scar}
var
x, y, WaterCol : integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Nick := '';//3-4 Letters Of Your Username
Players[0].Active := True;//Are You Using This Player? True=Yes False=No.
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
function WakToWater : boolean;
begin
Result := False;
RoadColor := FindVarrockRoadColor;
RadialRoadWalk(RoadColor, 325, 295, 70, 0, 0);
wait(1000+random(200));
CountFlag(0);
if (FindSymbolIn(x, y, 'water', 562, 11, 623, 137)) then
begin
Mouse(x, y, 5, 5, True);
end else
RadialRoadWalk(RoadColor, 310, 260, 22, 0, 0);
wait(1000+random(2000));
CountFlag(0);
wait(random(1000));
Result := True;
end;
function AutoColorWater : boolean;
var
WaterTol : integer;
begin
WaterTol := 0;
Result := False;
wait(random(2000));
repeat
if (FindColorTolerance(x, y, 10777692, MSX1, MSY1, MSX2, MSY2, WaterTol)) then
break;
WaterTol := WaterTol + 1;
until (not(LoggedIn)) or (WaterTol >= 25);
if (WaterTol >= 25) then
Writeln('AHH');
Result := True;
WaterCol := GetColor(x, y);
Writeln(IntToStr(WaterCol));
end;
function FillBucket : boolean;
begin
Result := False;
MouseItem(1, True);
Wait(200+random(200));
if (FindObjCustom(x, y, ['ntai', 'ount', 'nta'], [WaterCol], 0)) then
begin
Mouse(x, y, 4, 4, True);
Result := True;
end;
end;
function WaitWhileFilling : boolean;
var
I : integer;
begin
Result := False;
for I := 0 to 54 do
begin
Wait(560+random(50));
end;
MMouseItem(28);
if (IsUpTextMultiCustom(['of', 'wate', 'ater'])) then
Result := True;
Writeln(BoolToStr(Result));
end;
function ToBank : boolean;
var
Tries : integer;
begin
Result := False;
if (RadialRoadWalk(RoadColor, 110, 130, 50, 0, 0)) then
begin
Wait(random(1000));
CountFlag(0);
repeat
FindBank('veb');
until (BankScreen) or (Tries >= 10)
if (Tries >= 10) then
Logout;
Result := True;
end;
end;
function DoBankStuff : boolean;
begin
Result := False;
FixBank;
DepositAll;
Withdraw(1, 1, 0);
CloseBank;
Result := True;
end;
begin
SetupSRL;
DeclarePlayers;
repeat
MakeCompass('N');;
if (WakToWater) then
if (AutoColorWater) then
if (FillBucket) then
WaitWhileFilling;
if (ToBank) then
DoBankStuff;
until(False);
end.
nice, maybe you could add srl stats or that thing where it makes a proggy
but thats just to much
that took five minutes to make. stop leeching edit yourself.![]()
sorry
There are currently 1 users browsing this thread. (0 members and 1 guests)