Last try, same result. Scar clicked north on the compass, Which set my Result := True.
SCAR Code:
program WalkOutOfVarrock;
{.include SRL/SRL.scar}
var
DDTMTolerance : Integer;
function SetDDTM: Integer;
var
dtmMainPoint: TDTMPointDef;
dtmSubPoints: Array [0..3] of TDTMPointDef;
TempTDTM: TDTM;
RoadColor : Integer;
begin
RoadColor := FindVarrockRoadColor;
dtmMainPoint.x := 905;
dtmMainPoint.y := 241;
dtmMainPoint.AreaSize := 1;
dtmMainPoint.AreaShape := 0;
dtmMainPoint.Color := RoadColor;
dtmMainPoint.Tolerance := 0;
dtmSubPoints[0].x := 905;
dtmSubPoints[0].y := 241;
dtmSubPoints[0].AreaSize := 1;
dtmSubPoints[0].AreaShape := 0;
dtmSubPoints[0].Color := RoadColor;
dtmSubPoints[0].Tolerance := 0;
dtmSubPoints[1].x := 905;
dtmSubPoints[1].y := 230;
dtmSubPoints[1].AreaSize := 1;
dtmSubPoints[1].AreaShape := 0;
dtmSubPoints[1].Color := RoadColor;
dtmSubPoints[1].Tolerance := 0;
dtmSubPoints[2].x := 905;
dtmSubPoints[2].y := 250;
dtmSubPoints[2].AreaSize := 1;
dtmSubPoints[2].AreaShape := 0;
dtmSubPoints[2].Color := RoadColor;
dtmSubPoints[2].Tolerance := 0;
dtmSubPoints[3].x := 901;
dtmSubPoints[3].y := 239;
dtmSubPoints[3].AreaSize := 1;
dtmSubPoints[3].AreaShape := 0;
dtmSubPoints[3].Color := RoadColor;
dtmSubPoints[3].Tolerance := 0;
TempTDTM.MainPoint := dtmMainPoint;
TempTDTM.SubPoints := dtmSubPoints;
Result := AddDTM(TempTDTM);
end;
Function WalkOutOfBank : Boolean;
var
x, y, DDTM : Integer;
begin
if not LoggedIn then Exit;
SetRun(True);
DDTM := SetDDTM
DDTMTolerance := 5
repeat
if not DTMRotated(DDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
IncEx(DDTM, 5);
Writeln('DDTM Tolerance Increased by 5, It is now ... '+IntToStr(DDTMTolerance));
FreeDTM(DDTM);
DDTM := SetDDTM;
end else
begin
Mouse(x, y, 4, 4, true);
Writeln('Found DDTM clicking on Point now');
Result := True;
Wait(500);
Break;
end;
until DDTMTolerance >= 50;
DDTM := SetDDTM;
DDTMTolerance := 5;
end;
begin
SetupSRL;
ClearDebug;
ActivateClient;
Wait(100+Random(1000));
MakeCompass('w');
if WalkOutOfBank then
Writeln('Walked out of bank')
else
Writeln('I give up GG');
end.
I didn't put much effort into it as I would, but no mistakes were made to my knowledge in making it. GG. DDTM := Not used for me.
begin
RadialWalkTolerance := 100;
DDTM := -100;
if (RadialWalkTolerance > DDTM) then
Writeln('RadialWalkTolerance Wins')
else
Writeln('H@x');
end.