jakeyboy29
2011-12-29 09:12:16
hi there. Im currently making a SW script, my first script in around 2 years. As you can imagine, its not coming along very fast. The TPA's and autocolouring functions to pass barrier and such are coming along fine.
However, I am having trouble with, at this very moment, the Radialwalk.
I have these points, but cant for the life of me work out how to, "if at one, goto another".
However, I am having trouble with, at this very moment, the Radialwalk.
function RadialWalkTolerance(Color, sRadial, eRadial, r, modX, modY, Tol: Integer): Boolean;
var
TPA: TPointArray;
i, h: Integer;
begin
Result := False;
if RadialWalkEx(TPA, MMCX, MMCY, Color, Tol, sRadial, eRadial, r) then
begin
h := High(TPA);
for i := 0 to h do
if MFNF(TPA[i].x, TPA[i].y, modX, modY) then
begin
FFlag(10);
Result := True;
Exit;
end;
end;
end; I have these points, but cant for the life of me work out how to, "if at one, goto another".
//RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, 319, 336, 70)
//RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, 352, 22, 64)
//RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, 66, 104, 73)
//RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, 70, 121, 73)
//RadialWalkEx(tpa, MMCX, MMCY, TheColor, 0, 34, 91, 65)