SRL Archive - SRL Archives

Function FSRWalk(color, MinStartAngle, MaxStartAngle, MinEndAngle, MaxEndAngle, radius, tries:integer):boolean;
var
  i, stepS, stepE:integer;
begin
  if not loggedin then exit;
  Result := false;

  if MinStartAngle < MaxStartAngle then
    swap(MinStartAngle, MaxStartAngle);
  if MinEndAngle > MaxEndAngle then
    swap(MinEndAngle, MaxEndAngle);
    
  //problems between start and end angle will be solved in RW.

  stepS := round((MinStartAngle - MaxStartAngle) / tries);
  StepE := round((MaxEndAngle - MinEndAngle) / tries);
  
  for i:= 0 to tries do
    if RadialWalk(color, (MinStartAngle - stepS*i), (MinEndAngle + stepE*i), radius, 3, 3) then
    begin
      Result := True;
      exit;
    end;
    
end;

don't really know how useful it would be in srl. Nice for failsafes tho, as many people do

if not RW then
  if not RW then
    if not RW then

only uses one color and atm no tolerance. basically like radial walk.
Did this for the scripting competition comments.

~RM