ronny.m.p
2007-06-07 19:47:47
Well as we speak SRL members are enjoying a function called ClickTile. I won't get into detail but it is very advanced and we non-members will probably never get to use it. So I thought…why not make a function for us guys to use? So I researched my MapWalking functions and developed this. Basicly it's the same as RadialWalk only it was 1 very cool feature. If the function dosen't find the color then it will make the startradial and endradial distance larger until it does. If it travles in a full circle and still dosent find the color then it will increase the radius. Increases are controled by the IncreaseBy area of the function syntax. It might cause some minor lagg on old computers but it should be alright. Testers would be nice. I will make a gif to demontsrate ASAP. Remember all credits to RdailWalk go to Wizzup? and WT-Fakawi and i am not pladgerizeing!
EDIT: Use the Radial Walking Aid by Yakman to help with this function!
function RadialWalkRonny(TheColor, tol: Integer;StartRadial,EndRadial: Integer;
Radius, IncreaseBy, Xmod, Ymod: Integer): Boolean;
var
mx, my, ix, iy, ir: Integer;
begin
if (StartRadial = EndRadial) then
begin
WriteLn('WARNING: Using LinearRalk, StarRadial, and EndRadial are the same');
if LinearRoadWalk(TheColor, StartRadial, Radius, XMod, YMod) then
Result := True;
end else
if (not(radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius)))
then
begin
Ix:= startradial;
Iy:= endradial;
Ir:= radius;
repeat
startradial:= startradial - IncreaseBy;
endradial:= endradial + IncreaseBy;
if(radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius))
then result:= true; exit;
if(Ix = startradial)and(Iy = endradial)then
if(Ir > 70)then break;
radius:= radius + IncreaseBy;
until(radialwalkex(mx, my, 648, 83, thecolor, 0, startradial, endradial, radius));
MouseFindFlag(MX, MY, Xmod, Ymod);
FFlag(10);
end else
result:= false;
end;EDIT: Use the Radial Walking Aid by Yakman to help with this function!