SRL Archive - Research & Development Lounge

I have been working on thisscript for a couple of weeks and was wondering if it was ready for members.

If not then please tell me why and what to add to it.

~thanks

No. Kinda simple and you need more failsafes.

K thanks for your reply

No, it's almost ready. Its got TPA's,and walking and DTM's, but… Not enough of it is yours. Make your own functions and things. And there are not enough fail safes. Good job though. You were close.

Thanks

If your using radialwalk and your walking on a road, then use radialroadwalk…im pretty sure its better.

if RadialRoadWalk(FindLumbyRoadColor, 90, 100, 70, 5, 5)then
  FFlag(6);

(You would use FindVarrokRoadColor)

The funny thing is I was just changing that now LOL!
BTW what is the differece between radialraodwalk and radialwalk?
~Thanks for your reply

No , most of the advanced Code , if others , learn it yourself :)

From: dallas574
The funny thing is I was just changing that now LOL!
BTW what is the differece between radialraodwalk and radialwalk?
~Thanks for your reply

Im not that sure, but I used it cause this told me to.

Thanks for your voting and replies if anyone know what is the difference between radialwalk and radialrooadwalk please tell me :)

From: dallas574
Thanks for your voting and replies if anyone know what is the difference between radialwalk and radialrooadwalk please tell me :)

function RadialWalk(TheColor: Integer; StartRadial, EndRadial: Integer; Radius: Integer; Xmod, Ymod: Integer): Boolean;
var
  tpa: TPointArray;
  i: Integer;
begin
  Result := False;
  if RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, StartRadial, EndRadial, 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;

function RadialRoadWalk(TheColor: Integer; StartRadial, EndRadial: Integer; Radius: Integer; Xmod, Ymod: Integer): Boolean;
var
  tpa: TPointArray;
  i: Integer;
begin
  Result := False;
  if (not LoggedIn) then Exit;
  if (RoadColorChecker) then
    if (DebugRadialRoad) then
      WriteLn(' THROUGH RADIALROADWALK=  ---> ' + IntToStr(RoadColor));
  if RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, StartRadial, EndRadial, Radius) then
    for i := 0 to High(tpa) do
      if MFNF(tpa[i].x, tpa[i].y, Xmod, Ymod) then
      begin
        CountFlag(10);
        Result := True;
        Break;
      end;
end;

nothing really

~shut

I use radial walk mostly because you can just insert road color…. Doesnt make a difference, and the FFlag function is built in to the walking, so if you want to change the distance you have to change it in the radialwalk function.

Like Make

function RadialWalk(TheColor: Integer; StartRadial, EndRadial: Integer; Radius: Integer; Xmod, Ymod: Integer): Boolean;
var
tpa: TPointArray;
i: Integer;
begin
Result := False;
if RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, StartRadial, EndRadial, Radius) then
for i := 0 to High(tpa) do
if MFNF(tpa.x, tpa.y, Xmod, Ymod) then
begin
FFlag(10); // Change this to whatever
Result := True;
Break;
end;
end;

Also change the name to like RadialWalkTwo or something so you dont have duplicate identifiers in the script.