SRL Archive - Research & Development Lounge

Function RadialWalkDir(Color:TColor; Dir:Char; Radius, XMod, YMod:Integer):Boolean;
var
  Angle : extended;
  NewStart, NewEnd, StartRadial, EndRadial: integer;
begin
  case Uppercase(Dir) of
    'N': begin StartRadial:=315; EndRadial:=405; end;
    'S': begin StartRadial:=135; EndRadial:=225; end;
    'E': begin StartRadial:=45; EndRadial:=135; end;
    'W': begin StartRadial:=225; EndRadial:=15; end;
  end;
  Angle := rs_GetCompassAngleDegrees; //from here
  NewStart := Trunc(StartRadial + Angle);
  while ((NewStart) > 360) do
    NewStart := NewStart - 360;
  NewEnd := Trunc(EndRadial + Angle);
  while ((NewEnd) > 360) do
    NewEnd := NewEnd - 360; //to here by benjaa
  Result:=RadialRoadWalk(Color, NewStart, NewEnd, Radius, XMod, YMod);
end;

Used like

RadialWalkDir(FindVarrockRoadColor, 'e', 76, 2, 2)

That would walk east at varrock with 76 Radius

Oooo I like this!

Good job man ;)

Suggestion, maybe add 'NE', 'NW', 'SE', 'SW', etc… That would be good ;), seeing as it would scan only a chosen quarter of the minimap.

it won't walk north. i'll let you figure why.

tip: http://www.villavu.com/forum/showthread.php?t=41188#15

~RM

From: Rasta Magician
it won't walk north. i'll let you figure why.

tip: http://www.villavu.com/forum/showthread.php?t=41188#15

~RM

Thanks dude. Updated first post

mabey add a bit so it doesnt work if the radius is more than a certain amount?

~shut

EDIT: so mabey

if Radius > 75 then
begin
  Writeln('Radius is too large and may cause unstable walking');
  exit;
end;

just a suggestion

is this in includes, :p though this way you don't have to use 0,90,180,270

You could change it to start using LinearWalk, and if it fails then expand the radials using RRW until it reaches SR and ER.

From: Cazax
You could change it to start using LinearWalk, and if it fails then expand the radials using RRW until it reaches SR and ER.

there would be no need to change the fuction much.

RWEx will call LinearWalkEx if SD = ED

therefore to walk north with RWEx all you have to do is

SD = 360; ED = 360;

it would basically be the same as just starting with smaller radiuses

~RM

From: Rasta Magician
it won't walk north. i'll let you figure why.

tip: http://www.villavu.com/forum/showthread.php?t=41188#15

~RM

No!! I can't read it :(.