0wn 4 skill
2008-11-23 06:53:40
Im making a Barbarian Willow Assaulter in Runescape Members. Just wondering if you guys could test this for me and see if it works? Place your character near the box (in view on the Mainscreen) and Logged in please! And post if it opens the box or not :D It would be nice to get it flawless…
program DepositBox;
{.include SRL/SRL.scar}
Var
Times: Integer;
Function IsDeposit: Boolean;
Var
x,y: Integer;
Begin
If Not LoggedIn then Exit;
Result:= FindColorTolerance(x,y, 2070783, MSX1, MSY1, MSX2, MSY2, 10)
end;
Function OpenDepositBox: Boolean;
Var
DepP: TPointArray;
TP: Tpoint;
Dep: T2DPointArray;
I: Integer;
Begin
If Not LoggedIn then Exit;
ColorToleranceSpeed(2);
FindColorsSpiralTolerance(MSCX, MSCY, DepP, 7966616, MSX1, MSY1, MSX2, MSY2, 20);
Dep:= TPAtoATPAEx(DepP, 20, 20);
for i := 0 to Length(Dep)-1 do
begin
TP := MiddleTPA(Dep[i]);
MMouse(TP.x, TP.y, 3, 3);
Wait(100+Random(100));
Inc(Times)
if IsUpText('Depos') then
begin
Mouse(TP.x,TP.y,0,0,true);
FFlag(0);
Wait(500+Random(500));
Result:= IsDeposit;
ColorToleranceSpeed(1);
Exit;
end;
If Times = 8 then
Begin
Writeln('Not Found Deposit Box, Exiting');
Exit;
end;
Wait(500+random(500));
end;
end;
begin
SetupSRL;
ActivateClient;
Wait(1000+Random(500));
Case Random(2) of
0: SetAngle(False);
1: SetAngle(True);
end;
Case Random(3) of
0: MakeCompass('N');
1: MakeCompass('S');
2: MakeCompass('E');
end;
If OpenDepositBox then Writeln('Bank Opened') else Writeln('Failed');
end.