Grats you will need to Add this Modified WalkPath to the top of WebWalk.Simba
as The Existing WalkPath in Reflection that WebWalk Uses Wont do the job
// Reflection WalkPath But this includes SolveOBST(); So to work with OBSTsolver
function WEB_WalkPath(Tiles: TTileArray): boolean;
var
i, t, attempts: integer;
P: TPoint;
next: boolean;
label
ProcStart;
begin
Inc(attempts);
ProcStart:
i := -1;
Result := false;
if(DistanceFrom(Tiles[High(Tiles)]) < 6)then
begin
Result := true;
Exit;
end;
//Getting the starting index.
for i := High(Tiles) downto 0 do
if(TileOnMM(Tiles[i]))then
begin
i := i;
Break;
end;
if(i = -1)then
Exit;
//Walk remainder of the path.
for i := i to High(Tiles) do
begin
next := false;
if not(TileOnMM(Tiles[i]))then
begin
Writeln('Tile not on MM.');
break;
end;
P := TileToMM(Tiles[i]);
Mouse(P.x, P.y, 1, 1, true);
while(DistanceFromFlag <> 0)do
begin
if not WaitToMove(2500)then
begin
MarkTime(t);
while(TimeFromMark(t) < 3500)do
if(WaitToMove(1000))then break;
if(TimeFromMark(t) >= 3500)then
begin
Writeln('***Didn''t move for 10 seconds. Find Obstical***');
SolveOBS();
next := false;
break;
end;
end;
if(i < High(Tiles))then
begin
if(TileOnMM(Tiles[i+1]))then
begin
next := true;
break;
end;
end;
end;
if(i < High(Tiles))then
if(TileOnMM(Tiles[i+1]))then
next := true;
if not next then
break;
end;
Result := DistanceFrom(Tiles[High(Tiles)]) <= 5;
if not Result then
begin
if(attempts > 7)then
begin
Writeln('Failed more than ten attempts.');
Exit;
end;
While(GetSpeed > 0)do wait(100+Random(100));
goto ProcStart;
end;
While(GetSpeed > 0)do wait(100+Random(100));
end;
you need to change all occurences of WalkPath() in WebWalk.simba to
WEB_WalkPath();
then you should be able to Add the Doors color and uptext in OBSTsolver's ini
now when you get to the door OBSTsolver Should do its job and use the door
worked for me so if you have any problems just ask .
i find it works nicely but to be honest most of the FullRSWebber paths dont need it lol
