SCAR Code:
function RadialWalkRonny(TheColor, tol: Integer;StartRadial,EndRadial: Integer;
Radius, IncreaseBy, Xmod, Ymod: Integer): Boolean;
var
mx, my, ix, iy, ir: Integer;
begin
if (StartRadial = EndRadial) then
begin
WriteLn('WARNING: Using LinearRalk, StarRadial, and EndRadial are the same');
if LinearRoadWalk(TheColor, StartRadial, Radius, XMod, YMod) then
Result := True;
end else
if (not(radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius)))
then
begin
Ix:= startradial;
Iy:= endradial;
Ir:= radius;
repeat
startradial:= startradial - IncreaseBy;
endradial:= endradial + IncreaseBy;
if(radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius))
then result:= true; exit;
if(Ix = startradial)and(Iy = endradial)then
if(Ir > 70)then break;
radius:= radius + IncreaseBy;
until(radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius));
MouseFindFlag(MX, MY, Xmod, Ymod);
FFlag(10);
end else
result:= false;
end;