SCAR Code:
procedure GoToDoor;
var
i,rdx,rdy,bkx,bky,tank:integer;
TPARoad:TPointArray;
begin
setrun(true);
Setangle(True);
repeat
i:=i+1;
writeln('Repeated '+inttostr(i));
if RadialWalkEx(Tparoad,MMCX, MMCY,7963011,30,220,270,50) then
begin
writeln('Managed to RadialWalk');
tank:=tank+1;
MiddleTPAEx(TPARoad,rdx, rdy);
Mouse(rdx,rdy,3,3,true);
end;
until(i=10) or (tank=7)
if i=10 then
begin
FindSymbol(bkx,bky,'bank');
Restart:=True; //This "Restart" is a global boolean
Mouse(bkx,bky,10,10,true);
Exit;
end else
writeln('Managed to Radialwalk 7 times, exiting procedure.');
end;
Problem is, RadialWalkEx never manages to get "True" even if i set the tolerance to 200 o.O
Any problems with it?