SRL Archive - SRL Archives

Now, firstly, I haven't tested this. It was merely an idea, and I ran with it.

The concept is this:

If you set up ALL of your scripts with your radial walks at north then your script must always be facing north which could lead to detectability while walking. With this version of RadialWalk, it SHOULD right your compass for the script, but not on RS. This being said, it should walk as if the compass is north while it is at any degrees that the writer has made it be.

After that shpiel, here is the function:


*Edit: Changed CompassAngle to CA; and changed the rs_GetCompassAngle to add Degrees. Thanks Bob.

{Edited from RadialWalk, by Nava2 to include Independent Compass!}

function RadialWalkIC(TheColor: Integer; StartRadial, EndRadial: Integer; Radius: Integer; Xmod, Ymod: Integer): Boolean;
var CA, NewStart, NewEnd: integer;
    tpa: TPointArray;
    i: Integer
begin
  Result := False;
  CA := Round(rs_GetCompassAngleDegrees);
  if not (InRange(CA, 0, 5) or InRange(CA, 355, 360)) then
  begin
    NewStart := StartRadial - CA;
    NewEnd := EndRadial - CA;
  end else
  begin
    NewStart := StartRadial;
    NewEnd := EndRadial;
  end;
  if RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, NewStart, NewEnd, Radius) then
    for i := 0 to High(tpa) do
      if MFNF(tpa[i].x, tpa[i].y, Xmod, Ymod) then
      begin
        FFlag(10);
        Result := True;
        Break;
      end;
end;

I know this compiles but please let me know if it works ;)

Nava2

Ya it works, CompassAngle is already taken, use CA or something.

it's not rs_GetCompassAngle, it's rs_GetCompassAngleDegrees. Other than that, it works fine.

From: Bobarkinator
Ya it works, CompassAngle is already taken, use CA or something.

it's not rs_GetCompassAngle, it's rs_GetCompassAngleDegrees. Other than that, it works fine.

function RadialWalkIC(TheColor: Integer; StartRadial, EndRadial: Integer; Radius: Integer; Xmod, Ymod: Integer): Boolean;
var CA, NewStart, NewEnd: integer;
    tpa: TPointArray;
    i: Integer
begin
  Result := False;
  CA := Round(rs_GetCompassAngleDegrees);
  if not (InRange(CA, 0, 5) or InRange(CA, 355, 360)) then
  begin
    NewStart := StartRadial - CA;
    NewEnd := EndRadial - CA;
  end else
  begin
    NewStart := StartRadial;
    NewEnd := EndRadial;
  end;
  if RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, NewStart, NewEnd, Radius) then
    for i := 0 to High(tpa) do
      if MFNF(tpa[i].x, tpa[i].y, Xmod, Ymod) then
      begin
        FFlag(10);
        Result := True;
        Break;
      end;
end;

Should work :spot:

This is a great idea… im gonna try this with my Newt[er]. Some great anti-ban dude

Thanks, and I edited the function; forgot to say I did :D.

Nava2

N1ke! already made this.. and its shorter =/

  x := Round(rs_GetCompassAngleDegrees);
  UpdateColor('RoadColor');
  if (not LinearRoadWalk(RoadColor, 310 + x, 50, 1, 1)) then
    Deactivate('Lost while walking to trees using LRW.', 'Lost 1 - Trees');

I used this in omDac (also seen in my 3k thread), it's a lot shorter and also compass independent ;)

From: nielsie95

  x := Round(rs_GetCompassAngleDegrees);
  UpdateColor('RoadColor');
  if (not LinearRoadWalk(RoadColor, 310 + x, 50, 1, 1)) then
    Deactivate('Lost while walking to trees using LRW.', 'Lost 1 - Trees');

I used this in omDac (also seen in my 3k thread), it's a lot shorter and also compass independent ;)

Hmm, What are some of those other procedures you used though. And LinearRoadWalk, Is that in MapWalking.scar?

Also, I was unaware that N1ke! made this. Sorry; Either way both of our functions work. Might as well leave it here, and if anyone wants to use it they can. Advantage of mine; it's all in one procedure. Thats the only difference really.

Nava2

From: Nava2
Hmm, What are some of those other procedures you used though. And LinearRoadWalk, Is that in MapWalking.scar?

the other procs are ones he made in his script. yes LRW is in mapwalk.scar

From: XcanadamanX
the other procs are ones he made in his script. yes LRW is in mapwalk.scar

Cool; thanks :)

Nava2